Ben
|
Best Answer
It may be necessary to produce human-readable data with a check digit for various Code 128 specifications including USPS IMpb, SSCC18, and SCC-14. The Code 128 Font Package font encoders do not produce human-readable with check digits for GS1-128 barcodes. Therefore, we have written a formula that will allow you to produce human-readable for some of the specifications listed. This formula along with either IDAutomation's font formula and Code 128 barcode fonts will allow the user/developer to generate the proper combination of barcode and human-readable for GS1-128 in Crystal Reports.
This example explains how to produce the human-readable field with the MOD10 Check Digit.
1. Run Crystal Reports
2. In the Field Explorer, right-click Formula Fields and select New.
3. Create a name for the Formula and select OK.
4. In the Formula Editor, set the Syntax to Basic Syntax and remove the formula = code.
5. Paste this human-readable formula into the Formula Editor field area.
'****************************************************************************************
' IDAutomation Font Formula for Human Readable GS1-128
' Compatibility: Crystal Reports 9 and above
' Font to use: IDAutomationC128 (version 2009 and above)
' Tutorial: http://www.idautomation.com/font-encoders/crystal-reports/font-formulas/
'
' Copyright, IDAutomation.com, Inc. 2000-2018. All rights reserved.
' You may embed this font encoder formula within your report if you own a valid
' license from IDAutomation.com for the associated barcode font,
' and this entire section and copyright notice are not modified or removed.
'
' Distribution of this formula within your organization requires a multi-user or site license.
' Distribution of this formula outside your organization requires a developer license.
'
'****************************************************************************************
Dim I As Number
Dim J As Number
Dim OnlyCorrectData As String
Dim CheckDigitValue As Number
Dim Factor As Number
Dim CheckDigit As Number
Dim NewLine As String
Dim CurrentChar As String
Dim CurrentCharNum As Number
Dim IMpbCheckDigit As String
Dim HumanReadableText As String
Dim StringLength As Number
Dim DataToFormat As String
Dim DataToFormatParens As String
Dim Groupby As Number
Dim ApplyTilde As Boolean
Dim ShowFullHR As Boolean
Dim ReturnCheckDigitOnly As Boolean
Dim HRData As String
Dim m As Number ' The number of digits to calculate MOD10 for
Dim ValuesToRemove As Number
'Set Parameters
'HR Data is your Data
HRData = "(00)08556340080264936"
'Groupby is the amount of numbers to appear in a group. For example, if Groupby = 4 for the data 12345678, it will format to 1234 5678
'This parameter only works when ShowFullHR is False.
Groupby = 0
'ShowFullHR when set to True displays the full Human Readable (with parentheses) and Check digit.
ShowFullHR = True
'm is the number of values that you want to appear in the human-readable. It is the number of characters included in the check digit calculation.
'For example, if the data is (00)1234567890123456 and m = 10. The calculated check digit will be 7890123456
m = 17
DataToFormat = HRData
DataToFormat = Replace(DataToFormat, "(", "")
DataToFormat = Replace(DataToFormat, ")", "")
ValuesToRemove = (Len(DataToFormat) - m)
DataToFormat = right(DataToFormat,len(DataToFormat)- ValuesToRemove)
HumanReadableText = ""
Dim M10StringLength As Number
Dim M10OnlyCorrectData As String
Dim M10Factor As Number
Dim M10WeightedTotal As Number
Dim M10CheckDigit As Number
Dim M10I As Number
M10OnlyCorrectData = ""
M10StringLength = Len(DataToFormat)
'Check to make sure data is numeric and remove dashes, etc.
For M10I = 1 To M10StringLength
'Add all numbers to OnlyCorrectData string
'2006.2 BDA modified the next 2 lines for compatibility with different office versions
CurrentCharNum = AscW(Mid(DataToFormat, M10I, 1))
If CurrentCharNum > 47 And CurrentCharNum < 58 Then M10OnlyCorrectData = M10OnlyCorrectData & Mid(DataToFormat, M10I, 1)
Next M10I
'Generate MOD 10 check digit
M10Factor = 3
M10WeightedTotal = 0
M10StringLength = Len(DataToFormat)
For M10I = M10StringLength To 1 Step -1
'Get the value of each number starting at the end
'CurrentCharNum = Mid(M10NumberData, I, 1)
'Multiply by the weighting factor which is 3,1,3,1...
'and add the sum together
M10WeightedTotal = M10WeightedTotal + (Val(Mid(DataToFormat, M10I, 1)) * M10Factor)
'Change factor for next calculation
M10Factor = 4 - M10Factor
Next M10I
'Find the CheckDigit by finding the smallest number that = a multiple of 10
M10I = (M10WeightedTotal Mod 10)
If M10I <> 0 Then
M10CheckDigit = (10 - M10I)
Else
M10CheckDigit = 0
End If
IMpbCheckDigit = totext(M10CheckDigit,0,"")
DataToFormat = DataToFormat & IMpbCheckDigit
DataToFormatParens = DataToFormatParens & IMpbCheckDigit
'Formula = DataToFormat
J = 0
If (Groupby = 0)Then
HumanReadableText = HRData & IMpbCheckDigit
Else
For I = 1 To Len(DataToFormat)
CurrentCharNum = AscW(Mid(DataToFormat, I, 1))
If CurrentCharNum > 31 And CurrentCharNum < 128 Then
HumanReadableText = HumanReadableText & Mid(DataToFormat, I, 1)
J = J + 1
End If
If (J Mod Groupby) = 0 Then HumanReadableText = HumanReadableText & " "
Next I
End If
If ShowFullHR = True Then
Formula = HRData & IMpbCheckDigit
Else
Formula = HumanReadableText
End If
''End of Code
6. Edit the HRData and any of the other parameters to meet the specification.
7. Save and close.
8. Drag the Human Readable field to the report.
When generating GS1 symbols, IDAutomation recommends testing the result with the Barcode Decoder App which parses out GS1 data to verify proper encoding.
Posted 6.1 year(s) ago
|