stringvar barcode := '';
stringvar belegnr := '';
numbervar p0 := 0;
numbervar p1 := 0;
numbervar p2 := 0;
numbervar p3 := 0;
numbervar p4 := 0;
numbervar p5 := 0;
numbervar p6 := 0;
numbervar p7 := 0;
//belegnr := LEFT('000', (13 - LENGTH(totext({TmpDruck_Buchlaufkarten.ISBN}))))+ totext({TmpDruck_Buchlaufkarten.ISBN});
belegnr := '0'+{TmpDruck_Buchlaufkarten.ISBN};
p0 := tonumber(MID(belegnr, 1, 2));
p1 := tonumber(MID(belegnr, 3, 2));
p2 := tonumber(MID(belegnr, 5, 2));
p3 := tonumber(MID(belegnr, 7, 2));
p4 := tonumber(MID(belegnr, 9, 2));
p5 := tonumber(MID(belegnr, 11, 2));
p6 := tonumber(MID(belegnr, 13, 2));
p7 := Remainder((105 + (p0*1) + (p1*2) + (p2*3) + (p3*4) + (p4*5) + (p5*6) + (p6*7)), 103);
barcode := 'Í';
if p0 = 0 THEN barcode := barcode + 'Ï'
else if p0 >= 95 THEN barcode := barcode + chr(p0 + 100)
else barcode := barcode + chr(p0 + 32);
if p1 = 0 THEN barcode := barcode + 'Ï'
else if p1 >= 95 THEN barcode := barcode + chr(p1 + 100)
else barcode := barcode + chr(p1 + 32);
if p2 = 0 THEN barcode := barcode + 'Ï'
else if p2 >= 95 THEN barcode := barcode + chr(p2 + 100)
else barcode := barcode + chr(p2 + 32);
if p3 = 0 THEN barcode := barcode + 'Ï'
else if p3 >= 95 THEN barcode := barcode + chr(p3 + 100)
else barcode := barcode + chr(p3 + 32);
if p4 = 0 THEN barcode := barcode + 'Ï'
else if p4 >= 95 THEN barcode := barcode + chr(p4 + 100)
else barcode := barcode + chr(p4 + 32);
if p5 = 0 THEN barcode := barcode + 'Ï'
else if p5 >= 95 THEN barcode := barcode + chr(p5 + 100)
else barcode := barcode + chr(p5 + 32);
if p6 = 0 THEN barcode := barcode + 'Ï'
else if p6 >= 95 THEN barcode := barcode + chr(p6 + 100)
else barcode := barcode + chr(p6 + 32);
if p7 = 0 THEN barcode := barcode + 'Ï'
else if p7 >= 95 THEN barcode := barcode + chr(p7 + 100)
else barcode := barcode + chr(p7 + 32);
barcode := barcode + 'Î';
barcode;
Das wäre der komplette Code.
Wir haben an sich schon alles versucht was wir konnten, sind auch so weit gekommen, dass die Komplette ISBN angezeigt wird, nur mit einer führender 0 am Anfang, die wir dort einfach nicht weg kriegen.