Barcode EAN128

[Zuther]

Sorry!
Meine Programmierkenntnisse sind nicht allzu gut.
Trotzdem möchte ich Dich nochmal fragen ob es für die Prüfziffernberechnung etwas gibt!

mfg
Hans

[camouflage]

Habe zwar meine eigenen Routinen aber die gefallen mir fast noch besser ;-)

guckst Du:
Mod 10 check digit calculation

[Fuerchau]

Vorsicht: Der Link arbeitet mit einer "2323.."-Bewertung!


d MyDs ds
d FaktorC 17 inz('31313131313131313')
d Faktor 1S 0 overlay(FaktorC) dim(17)
d
d ValueN 17S 0
d ValueS 1S 0 overlay(ValueN) dim(17)
d

d MultS 3p 0 inz dim(17)
d SummS 9p 0
d Check 1p 0

c/free
ValueN = 12345678901234567;
MultS = ValueS * Faktor;
SummS = %xfoot(MultS);
Check = %rem((10-%rem(sum:10)-1):9)+1;

[Zuther]

Hallo zusammen!

vielen Dank für Eure Antworten. Sie haben mir sehr geholfen.

mfg
Hans Zuther