Barcode 128 mislukt nieuwe server 2012

robinho81

Beste mensen,

Voorheen werkten wij op een windows server 2008 waarbij gebruik gemaakt werd van een stuk code om een barcode 128 te genereren. Op dit moment zijn wij aan het overschakelen naar windows server 2012 en daarbij constateren wij dat de barcode verkeerd gegenereerd wordt.

ASCII tekens die uitgerekend worden:
Windows server 2008: š%P1Rœ
Windows server 2012: “%P1R∙

Zover ik begrepen heb gaat het om het start en eind teken wat bij Windows server 2008 wel goed staat, maar op een of andere manier niet goed is bij Windows Server 2012. Heeft het iets met taal/toetsenbordinstellingen te doen? Kan iemand ons hierbij helpen? Alvast bedankt voor het meedenken!

Dit is de code:


offset := 32;
highAscii := 66;
newCodeString[1] := offset + highAscii + 104;
total := 104;

FOR stringCounter := 1 TO STRLEN(rawData) DO BEGIN
character := rawData[stringCounter];
ASCIIValue := character;
checkDigit := ((ASCIIValue - offset) * (stringCounter));
total += checkDigit;
newCodeString[stringCounter + 1] := ASCIIValue;
END;
check := total MOD 103;
holder := 0;

IF (check + offset >= 127) THEN
holder := check + offset + highAscii
ELSE
holder := check + offset;


newCodeString[STRLEN(newCodeString)+1] := holder;
holder := 106 + offset + highAscii;
newCodeString[STRLEN(newCodeString)+1] := holder;

FOR rCounter := 1 TO STRLEN(newCodeString) DO
IF(newCodeString[rCounter] = 32) THEN
newCodeString[rCounter] := 177;

EXIT(newCodeString);

txeriff

english please. A simple search returned me this:

https://mibuso.com/downloads/barcode-128-with-fonts-sample