We're currently trying 2 different means of encoding to try to get something to work. The results of both we're applying the IDautomation font to.
1) First we started out using our high-volume document composition software, HP Exstream, which has a built-in module for encoding barcode data. This produced the scan with the FNC1 values as zero.
2) Secondly I'm now trying to bypass the use of the HP Exstream encoding routine, and trying to write my own routine in something similar to VB script....but so far that approach is yielding not being able to scan anything as I don't understand if the FNC1 is to be included in the mod103 calc or not, or in the pairing.
The below test module was one of the variations of encoding that I was trying, but it didn't work.
start = x'CD'
end = x'CE'
FNCCode = x'CA'
total = 0
BarCode1 = '42023453'
BarCode2 = '92612901093110000000370282'
BarCode = BarCode1 & BarCode2
n = Len(BarCode)
pos = 2
//start total to include start (unweighted) and FNCCode weighted, so pos starts at 2 above (first //FNCCode)
total = 105 + 102
For j = 1 To n Step 2
//separate into pairs, taking the value of the substring of pairs, with subset C, Chart Value equals the //pair
pair = Val(Mid(BarCode, j, 2))
total = total + (pair * pos)
//increment position so next multiplication times new position
pos = pos + 1
field1 = Int(total / 103)
remainder = total - (field1 * 103)
CheckSum = Int(remainder)
BarCodeSet = BarCode1
For k = 1 To len(BarCodeSet) Step 2
//separate into pairs, taking the value of the substring of pairs, with subset C, Chart Value equals the pair
pairSet = Label_MOD103 (Val(Mid(BarCodeSet, k, 2)) + 1)
totalSet = totalSet & pairSet
BarCodeSet2 = BarCode2 & CheckSum
//s stars at 7 which is the first position following the 2nd occurrence of the FNCCode
For s = 7 To len(BarCodeSet2) Step 2
//separate into pairs, taking value of the substring of pairs, with subset C, Chart Value equals the pair
pairSet2 = Label_MOD103 (Val(Mid(BarCodeSet2, s, 2)) + 1)
totalSet2 = totalSet2 & pairSet2
value = start & FNCCode & totalSet & FNCCode & totalSet2 & end
Posted 10 year(s) ago