You’re offline. This is a read only version of the page.
59
HCode128.png"https://strokescribe.com/en/code-128-excel-word-access-html.html">https://strokescribe.com/en/code-128-excel-word-access-html.html and found "start code" (community.dynamics.com/.../Code128.png):
=======
CLEAR(Character);
Offset := 32;
ToCodeString[1] := 353;
Total := 104;
FOR iCounter := 1 TO STRLEN(CodeString) DO BEGIN
Character := CodeString[iCounter];
ASCIIVAlue := Character;
CheckDigit := ((ASCIIVAlue - Offset) * (iCounter));
Total += CheckDigit;
ToCodeString[iCounter + 1] := ASCIIVAlue;
END;
Check := Total MOD 103;
Holder := 0;
CASE Check OF
0 : Holder := 8364; // (Hex:20AC) (Alt+0128)
1..94 : Holder := Check + Offset;
95 : Holder := 8216; // (Hex:2018) (Alt+0145)
96 : Holder := 8217; // (Hex:2019) (Alt+0146)
97 : Holder := 8220; // (Hex:201C) (Alt+0147)
98 : Holder := 8221; // (Hex:201D) (Alt+0148)
99 : Holder := 8226; // (Hex:2022) (Alt+0149)
100 : Holder := 8211; // (Hex:2013) (Alt+0150)
101 : Holder := 8212; // (Hex:2014) (Alt+0151)
102 : Holder := 732; // (Hex:2DC) (Alt+0152)
END;
ToCodeString[STRLEN(ToCodeString) + 1] := Holder;
ToCodeString[STRLEN(ToCodeString) + 1] := 339;
FOR iCounter := 1 TO STRLEN(ToCodeString) DO
IF ToCodeString[iCounter] = 32 THEN
ToCodeString[iCounter] := 8364;
EXIT(ToCodeString);
=======
and I tried to use an example, but not luck.
I'm trying to match information from both "source place" and can't find where is correct information.
Finally, the code does not work with my Font. And I don't know how to check this start|stop inside this font.
Thank you in advance for ANY ideas on how to solve the issue.
Thank you in advance.
*This post is locked for comments
I have the same question (0)
Share
Report
All responses (
Answers (
