[58734] in SAPr3-news
Re: Umwandlung von Eingabewerten
daemon@ATHENA.MIT.EDU (St. Kother)
Mon Jan 22 05:48:35 2007
To: sapr3-news@mit.edu
Date: Mon, 22 Jan 2007 11:48:22 +0100
From: "St. Kother" <steffen.kother@gmx.net>
Message-ID: <51jj3nF1jsi0oU1@mid.individual.net>
Reply-To: steffen.kother@gmx.net
Hi Ralf,
Ralf-J. Triebel schrieb:
> Shift right beim nachfolgenden (!) Feld ist Dein Freund. Rechts werden
> die Leerstellen beim concatenate abgeschnitten, links bleiben sie er-
> halten:
Danke. Hatte nur noch leichte Probleme/Bedenken mit meiner numerischen
Menge. Hab einfach probiert, ob ich sie einfach wie unten geschrieben
konvertieren kann...
[abap 4]
report z_zeichenketten.
* Barcodeeingaben
parameters: p_matnr type z_bc_material,
p_pal type z_bc_palette,
p_menge type z_bc_menge,
p_lager type z_bc_lager,
p_charg type z_bc_charge.
* Variablen zur Laufzeit
data: d_menge type string,
d_code type z_bc_barcode,
length type i,
d_char type c value '.'.
* Ermitteln der Länge der Materialnummer
while not d_char is initial.
d_char = p_matnr+length(1).
length = length + 1.
endwhile.
* "Konvertieren" der numerischen Menge in einen String
d_menge = p_menge.
* Korrektur bzw. Setzen des Zählers und Anpassung der Menge
if length < 7.
length = 7 - length + 1.
* Verschieben der Menge um x Stellen nach rechts
do length times.
shift d_menge right.
enddo.
endif.
* Barcodezeichenkette erzeugen
concatenate p_pal p_matnr d_menge p_lager p_charg
into d_code.
* Barcodezeichenkette ausgeben
write: d_code.
[/abap 4]
Tut wie gewollt.
Danke an alle.
--
Mit freundlichen Gruessen / Kind regards
Steffen Kother
