Eingabewert mit 0 expandieren?

Die Frage ist als "gelöst" markiert. Den entsprechend Beitrag findest du hier.

Getting started ... Alles für einen gelungenen Start.
7 Beiträge • Seite 1 von 1
7 Beiträge Seite 1 von 1

Eingabewert mit 0 expandieren?

Beitrag von Gast ( / / 0 / 3 ) »
Hallo,

kann jemand mir helfen, folgendes zu implementieren:

ich habe einen

Code: Alles auswählen.

parameters input(10) type c.
es wird nach der Eingabe Ueberprueft, ob der Eingabewert eine 10 stellige Zahl ist, wenn nicht, werden Nullen links hinzugef�gt, z.B wenn Input=123, es wird dann auf 0000000123 expandiert. Wie?

Danke im voraus.

gesponsert
Stellenangebote auf ABAPforum.com schalten
kostenfrei für Ausbildungsberufe und Werksstudenten


Beitrag von ereglam (Top Expert / 1829 / 2 / 7 ) »

Code: Alles auswählen.

IF input CO '0123456789 '. "wichtig: Leerzeichen im Prüfstring
* Eingabe nach rechts schieben, bis eine Ziffer dort steht
  SHIFT input RIGHT DELETE TRAILING space.
* Leerzeichen mit '0' ersetzen
  OVERLAY input WITH '0000000000' ONLY space.
* or
  TRANSLATE input USING ' 0'.
ENDIF.
PS:
es wird unterstellt, dass innerhalb der Zeichenkette keine Lücken vorhanden sind. Sonst kommt nicht das heraus, was der Anwender sich vorstellt...

Code: Alles auswählen.

12 34 => 0000012034
Gruß
Ereglam


May the Force be with your code
|| .| |.|| | .... . ..|. ||| .|. |.|. . |... . .|| .. | .... |.|| ||| ..| .|. |.|. ||| |.. .

Beitrag von GastX (Specialist / 277 / 4 / 18 ) »
Unter Verzicht auf Plausis etc. reicht auch die automatische Konvertierung, will sagen:

Code: Alles auswählen.

REPORT Z.
PARAMETERS EINGABE(10) TYPE C.
DATA: AUSGABE(10) TYPE N.

START-OF-SELECTION.
  WRITE : / INPUT.
  AUSGABE = INPUT. " Umwandlung fertig
  INPUT = AUSGABE. " hier nur zurückschieben
  WRITE : / INPUT.
Oder?
Gruss, Frank

Beitrag von black_adept (Top Expert / 4099 / 128 / 941 ) »
Hallo Gast1,

falls in das Eingabefeld theoretisch auch nicht-ganzzahlen eingetragen werden dürfen ( sonst die Methode von Frank anwenden ) würde ich den Standardbaustein "CONVERSION_EXIT_ALPHA_INPUT" probieren (siehe auch Doku zu dessen Funktionsweise).
live long and prosper
Stefan Schmöcker

email: stefan@schmoecker.de

Beitrag von Gast ( / / 0 / 3 ) »
toll! vielen Dank fuer eure Hilfe.

Gruss

Beitrag von Gast ( / / 0 / 3 ) »
Warum nehmt ihr nicht einfach:

Code: Alles auswählen.

parameters input(10) type N.
Statt type C type N ????????

Beitrag von GastX (Specialist / 277 / 4 / 18 ) »
tja, da haben wir uns wohl nur auf die Konvertierung gestürzt ... hast natürlich recht, bei Parametern das gleich über die Definition zu klären...

Frank

Seite 1 von 1

Vergleichbare Themen

3
Antw.
1879
Views
Adressblock expandieren/collapsen
von deejey » 03.01.2019 12:48 • Verfasst in Dialogprogrammierung
7
Antw.
3195
Views
Eingabewert in einer internen Tabelle?
von zickzack0312 » 12.03.2006 01:11 • Verfasst in ABAP® für Anfänger
3
Antw.
1359
Views
Tablecontrol: Eingabewert wird nicht übernommen
von khb » 10.02.2015 17:26 • Verfasst in ABAP® für Anfänger
1
Antw.
2423
Views
Alle Methoden / Forms im Quellcode Einklappen/Expandieren
von Timoniac » 22.12.2017 12:33 • Verfasst in ABAP® für Anfänger

Über diesen Beitrag


Die Frage ist als "gelöst" markiert. Den entsprechend Beitrag findest du hier.

Unterstütze die Community und teile den Beitrag für mehr Leser und Austausch

Aktuelle Forenbeiträge

Regex in where
vor 16 Stunden von tar 8 / 363
Daten an Tabelle binden
Gestern von Bright4.5 3 / 1634
Programm anlegen mit Vorlage
vor 2 Tagen von DeathAndPain 2 / 282
IT0024 Qualifikationen CP-ID
vor 2 Tagen von DeathAndPain 2 / 525

Newsletter Anmeldung

Keine Beiträge verpassen! Wöchentlich versenden wir lesenwerte Beiträge aus unserer Community.
Die letzte Ausgabe findest du hier.
Details zum Versandverfahren und zu Ihren Widerrufsmöglichkeiten findest du in unserer Datenschutzerklärung.

Aktuelle Forenbeiträge

Regex in where
vor 16 Stunden von tar 8 / 363
Daten an Tabelle binden
Gestern von Bright4.5 3 / 1634
Programm anlegen mit Vorlage
vor 2 Tagen von DeathAndPain 2 / 282
IT0024 Qualifikationen CP-ID
vor 2 Tagen von DeathAndPain 2 / 525

Unbeantwortete Forenbeiträge

BUSOBJEKT zu CMIS PHIO ermitteln
vor 2 Tagen von snooga87 1 / 219
aRFC im OO-Kontext
letzen Monat von ralf.wenzel 1 / 3401
Hilfe bei SWEC/SWE2
September 2024 von retsch 1 / 9951