Posted: March 11 2004 at 12:08pm | IP Logged

Wich barcodefont do i need to use to create an sscc18 in this format:

(00)12345678901234567(*)

and how do I apply it?

* this is how I calculate the checkdigit in VB

<<<< Generate MOD 10 check digit >>>>
     Factor = 3
     weightedTotal = 0
     StringLength = Len(sscc18)
     For i = StringLength To 1 Step -1
    'Get the value of each number starting at the end
          CurrentCharNum = Mid(sscc18, i, 1)
    'multiply by the weighting factor which is 3,1,3,1...
    'and add the sum together
          weightedTotal = weightedTotal + CurrentCharNum * Factor
    'change factor for next calculation
          Factor = 4 - Factor
     Next i
'Find the CheckDigit by finding the smallest number that = a multiple of 10
     i = (weightedTotal Mod 10)
     If i <> 0 Then
          CheckDigit = (10 - i)
     Else
          CheckDigit = 0

Posted: March 11 2004 at 4:34pm | IP Logged

If you do NOT want to display human readable, please choose 'MRV Code128m' font.

If you want human readable to be displayed, you may choose 'MRV Code128cMA' typeface. The trailing letter 'A' means with human readable.

If you want to print barcode with highter aspect ratio, please choose font name ending with 't' or 'xt'.

like 'MRV Code128t'  'MRV Code128xt'

Posted: July 30 2004 at 8:22am | IP Logged

How about "CheckDigit = (10 - (weightedTotal Mod 10) ) Mod 10"

Thanks for the help!  I really liked the "factor = 4 - factor".

Kenny