Hi all,
Actually we are in upgradation of Nav 2009R2 to 2013R2…
Now my Question is I am not Getting the code128bwinlarge format for my bin labels properly in 13R2 Reports…
Actually I used this code to generate code128 in classic reports
CLEAR(Offset);
CLEAR(HighAscii);
CLEAR(Total);
CLEAR(iCounter);
CLEAR(Holder);
CLEAR(Check);
CLEAR(Character);
CLEAR(ASCIIValue);
CLEAR(CheckDigit);
Offset := 32;
HighAscii := 66;
“128BCodeString”[1] := Offset + HighAscii + 104;
Total := 104;
FOR iCounter := 1 TO STRLEN(CodeString) DO BEGIN
Character := CodeString[iCounter];
ASCIIValue := Character;
CheckDigit := ((ASCIIValue - Offset) * (iCounter));
Total += CheckDigit;
“128BCodeString”[iCounter + 1] := ASCIIValue;
END;
Check := Total MOD 103;
Holder := 0;
IF (Check + Offset >= 127) THEN
Holder := Check + Offset + HighAscii
ELSE
Holder := Check + Offset;
“128BCodeString”[STRLEN(“128BCodeString”)+1] := Holder;
Holder := 106 + Offset + HighAscii;
“128BCodeString”[STRLEN(“128BCodeString”)+1] := Holder;
CLEAR(iCounter);
FOR iCounter := 1 TO STRLEN(“128BCodeString”) DO
IF(“128BCodeString”[iCounter] = 32) THEN
“128BCodeString”[iCounter] := 177;
EXIT(“128BCodeString”);
This code is working fine in classic reports but while coming to 13R2 it is not working properly…
The result value also different in classic as well as 13R2 Reports…
But why I am getting the different values …
Can any One help on this…