Anpassung der Fehlerausgabe?

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

Getting started ... Alles für einen gelungenen Start.
1 Beitrag • Seite 1 von 1
1 Beitrag Seite 1 von 1

Anpassung der Fehlerausgabe?

Beitrag von hmaxi96 (ForumUser / 77 / 13 / 1 ) »
Hallo Leute,

ich lese Felder aus einer Exceldatei aus und schreibe Sie mit Hilfe von Transfer in
eine .txt-Datei. Anschließend lese ich die .txt-Datei mit dem Programm RLPLAT00
ein und erstelle einen Lagerplatz.

Um zu prüfen ob die Daten der Exceldatei korrekt sind habe ich abfragen hinzugefügt,
die stellen meine Variable error auf Wert 1 wenn Sie nicht korrekt sind.
Wenn ich nun auf den Hotspot klicke sind die Werte aus meiner .txt-Datei bereits
abgerufen und die Lagerplätze werden erstellt.
Aber wenn beispielweise 1 Wert nicht korrekt ist werden alle anderen Zeile auch nicht
in RLPLAT00 eingelesen (auch logisch bei meiner IF-Abfrage), dennoch weiß ich nicht wie
ich es sonst abfragen soll. Hier mal ein paar Ausschnitte aus meinem Quelltext:

Hotspot-Event:

Code: Alles auswählen.

AT LINE-SELECTION.
  CASE sy-sysid.
  WHEN 'C01'.
    IF gs_file-file IS INITIAL.
    SUBMIT RLPLAT00 WITH LOGINAME = 'Z_RLPLAT00_DEV' WITH CALTR = 'X'.
    ELSE.
    MESSAGE E208(00) WITH 'Überprüfen Sie die Fehlermeldungen!'.
    ENDIF.
  WHEN 'CQ1'.
    IF gs_file-file IS INITIAL.
    SUBMIT RLPLAT00 WITH LOGINAME = 'Z_RLPLAT00_QUAL' WITH CALTR = 'X'.
    ELSE.
    MESSAGE E208(00) WITH 'Überprüfen Sie die Fehlermeldungen!'.
    ENDIF.
  WHEN 'C02'.
    IF gs_file-file IS INITIAL.
    SUBMIT RLPLAT00 WITH LOGINAME = 'Z_RLPLAT00' WITH CALTR = 'X'.
    ELSE.
    MESSAGE E208(00) WITH 'Überprüfen Sie die Fehlermeldungen!'.
    ENDIF.
ENDCASE.

Hotspot:

Code: Alles auswählen.

FORMAT COLOR 5.
FORMAT HOTSPOT ON.
  WRITE: 'RLPLAT00 Absprung'.
FORMAT HOTSPOT OFF.
FORMAT reset.

1 kleine Prüfung:

Code: Alles auswählen.

prflgnum = strlen( wa-lgnum ).
IF prflgnum > 3.
WRITE 98 'Lagernummer zu lange'.
gs_file-file = '1'.
ELSE.
READ TABLE gt_t300 INTO gs_t300 WITH KEY lgnum = wa-lgnum.
IF gs_t300-lgnum NE wa-lgnum.
WRITE 98 'Lagernummer ungültig'.
gs_file-file = '1'.
ENDIF.
ENDIF.

Transfer:

Code: Alles auswählen.

FORM phyname.

  TYPES: BEGIN OF lty_xls,
*  3.	prüfen feldlänge der 5 felder
      lgnum     TYPE lgnum,
      lgtyp     TYPE lgtyp,
      lgpla     TYPE lgpla,
      lgber     TYPE lgber,
      lvs_lptyp TYPE lvs_lptyp,
       END OF lty_xls.

DATA: lt_xls TYPE TABLE OF lty_xls,
      ls_xls TYPE lty_xls.
DATA: phynam TYPE string.


  CALL FUNCTION 'FILE_GET_NAME'
       EXPORTING LOGICAL_FILENAME = p_lognam
       IMPORTING FILE_NAME        = phynam
       EXCEPTIONS
            FILE_NOT_FOUND          = 01.

  IF NOT SY-SUBRC IS INITIAL.
    MESSAGE E651(M7) WITH PHYNAM.
  ENDIF.

OPEN DATASET PHYNAM FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.

LOOP AT gt_xls INTO gs_xls.
    MOVE gs_xls-lgnum TO ls_xls-lgnum.
    MOVE gs_xls-lgtyp TO ls_xls-lgtyp.
    MOVE gs_xls-lgber TO ls_xls-lgber.
    MOVE gs_xls-lvs_lptyp TO ls_xls-lvs_lptyp.
    MOVE gs_xls-lgpla TO ls_xls-lgpla.
    APPEND ls_xls TO lt_xls.
ENDLOOP.


LOOP AT lt_xls INTO ls_xls.
  TRANSFER ls_xls TO phynam.
ENDLOOP.
  CLOSE DATASET PHYNAM.

ENDFORM.


Danke im Voraus.

Gruß
Max
Investor im Bereich Kryptowährungen.
Bei Interesse oder Fragen stehe ich Ihnen gerne zur Verfügung.

https://www.xing.com/profile/Maximilian_Hauer3

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


Seite 1 von 1

Vergleichbare Themen

22
Antw.
5274
Views
Unicode Anpassung
von L0w-RiDer » 25.03.2019 09:42 • Verfasst in ABAP® für Anfänger
0
Antw.
1073
Views
Anpassung Profilvergleich
von KlausB » 09.06.2006 09:59 • Verfasst in Human Resources
0
Antw.
721
Views
Anpassung Ausgabestruktur
von Gottschall » 26.04.2017 10:27 • Verfasst in ABAP® für Anfänger
0
Antw.
1081
Views
Anpassung Wertehilfe
von Amja92 » 29.01.2017 14:52 • Verfasst in ABAP® für Anfänger
5
Antw.
2693
Views
Anpassung MBLB
von Toby » 13.02.2014 09:24 • Verfasst in Material Management & Produktionsplanung

Über diesen Beitrag

hmaxi96
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

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.

Unbeantwortete Forenbeiträge

Zwischensumme Adobe Forms
vor 4 Tagen von Lucyalison 1 / 71
Group Items auf einer Filterbar
vor einer Woche von Bright4.5 1 / 111
tRFC Transaktionen SM58
vor 4 Wochen von A6272 1 / 141