EAN 128 Prüfziffer

Hallo,

es gibt den Befehl STRCHECKSUM, der die Püfziffer berechnen kann.

Ich möchte gerne für den EAN 128 die Prüfziffer berechnen, nur welche Gewichtung ich nehmen muss weiß ich nicht.

Unser Softwarehaus sagte mir, das es beim EAN 128 nicht so einfach währe.
Stimmt das?

Kann mir einer von Euch helfen?

Kenn mich da auch leider nicht so aus. Aber was ich finden konnte war:

Prüfziffer: Berechnung nach Modulo 103

Und vielleicht kann diese Seite hier dir weiter helfen:
klick

In der Wikipedia steht folgendes: http://de.wikipedia.org/wiki/Code128

Ein Algorithmus steht dort: http://www.strichcode.co.at/check_digit_calc.htm

Danke für die Links,
ich vermute damit komme ich weiter (hoffentlich).

Code 128 in der Tat etwas komplizierter.

Diese Funktion ist für die Fonts von Millstone anwendbar.

Wert ist der Funktionsparameter, Rueckgabewert ist der Text für den Font Code128.

Code:

num1 := 0;
FOR I := 1 TO STRLEN(wert) DO
  IF wert[1] > 126 THEN
    num1 += (I * (wert[I] - 71))
  ELSE
    num1 += (I * (wert[I] - 32));

Z[1] := (num1 MOD 103) + 32;

IF Z[1] > 126 THEN
  Z[1] += 39;

START[1] := 173;
ENDE[1] := 207;

CASE Z[1] OF
  166 :  Rueckgabewert:=START+wert+'¦'+ENDE; 
  167:   Rueckgabewert:=START+wert+'§'+ENDE; 
  168:   Rueckgabewert:=START+wert+'¨'+ENDE; 
  169:   Rueckgabewert:=START+wert+'©'+ENDE; 
  170:   Rueckgabewert:=START+wert+'ª'+ENDE; 
  171:   Rueckgabewert:=START+wert+'«'+ENDE; 
  172:   Rueckgabewert:=START+wert+'¬'+ENDE; 
  173:   Rueckgabewert:=START+wert+'­'+ENDE; 
ELSE
  Rueckgabewert := START+wert+Z+ENDE; 
END;
EXIT(Rueckgabewert);

Bei Mibuso gilt es folgendes Tool http://www.mibuso.com/dlinfo.asp?FileID=943.