[59084] in SAPr3-news
[ABAP] Unterscheidung zwischen 0 und ' ' und ''
daemon@ATHENA.MIT.EDU (St. Kother)
Fri Mar 16 05:24:16 2007
To: sapr3-news@mit.edu
Date: Fri, 16 Mar 2007 10:24:04 +0100
From: "St. Kother" <steffen.kother@gmx.net>
Message-ID: <55v61kF238msrU1@mid.individual.net>
Reply-To: steffen.kother@gmx.net
Hallo Leute,
bin gerade am implementieren der Prüfzeichenermittlung für Code 39. Dazu
habe ich diese (noch nicht ganz komplette) Routine[1].
Jetzt kann ja in der zu prüfenden Zeichenkette sowohl 0 (Wert 0) als
auch ein Leerzeichen (Wert 38) vorkommen. Leider bekomme ich es nciht
gebacken, beide Werte entsprechend abzufangen und für das Leerzeichen
manuell SY-FDPOS auf 38 zu setzen.
Kann mir bitte jemand helfen?
--
MfG, Steffen
[1]
form z_barcodedruck_get_checksign using p_d_code.
data: checkstring (43) type c, "43 Zeichen (0..42)
bc_leng type i, "Länge Barcode
bc_char type c, "Barcodezeichen
bc_chari type i, "Barcodezeichenoffset
bc_sum type i, "Summe Barcodezeichen
rest type i. "Restwert bc_sum / 43
* aus dem Druckerhandbuch
checkstring = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ-. $/+%'.
* Testbarcode
p_d_code = '0815KN002S +0065102300/%$ZY'.
* Barcodezeichekette durchlaufen
bc_leng = strlen( p_d_code ).
while bc_chari < bc_leng.
* Zeichen ermitteln
bc_char = p_d_code+bc_chari(1).
* Zeichenwert ermitteln und zur Kontrolle ausgeben
search checkstring for bc_char.
write: / SY-FDPOS.
* Offset erhöhen
bc_chari = bc_chari + 1.
endwhile.
endform. " z_barcodedruck_get_checksign
