Assign
14 Beiträge
•
Seite 1 von 1
14 Beiträge
Seite 1 von 1
Hallo liebe Helfer!
Arbeite zum erstenmal mit Assign und habe da leider ziemlich große Schwierigkeiten.
Ich lese aus einer Datei Daten. (Im Anhang wie die Datei aussieht)
Und zwar ist es mir im Moment nicht klar, wie ich meine Internen Tabellen itab_fnam und itab_fval definieren muß, daß es funktioniert.
Falls Euch sonst noch etwas am Coding auffällt, sagt es mir bitte.
Hoffe Ihr könnt mir weiterhelfen, da ich im Moment total auf der Leitung stehe.
Vielen Dank!
Robin
Arbeite zum erstenmal mit Assign und habe da leider ziemlich große Schwierigkeiten.
Ich lese aus einer Datei Daten. (Im Anhang wie die Datei aussieht)
Und zwar ist es mir im Moment nicht klar, wie ich meine Internen Tabellen itab_fnam und itab_fval definieren muß, daß es funktioniert.
Falls Euch sonst noch etwas am Coding auffällt, sagt es mir bitte.
Hoffe Ihr könnt mir weiterhelfen, da ich im Moment total auf der Leitung stehe.
Vielen Dank!
Robin
Code: Alles auswählen.
REPORT z_anlaginv.
TABLES: anla.
DATA: wa_timedepentdata TYPE bapi1022_feglg003,
wa_timedepentdatax TYPE bapi1022_feglg003x,
wa_inventory TYPE bapi1022_feglg011,
wa_inventoryx TYPE bapi1022_feglg011x.
DATA: wa_return TYPE bapiret2.
PARAMETERS: datei(40) TYPE c.
DATA: BEGIN OF itab_anlaginv OCCURS 10,
bukrs LIKE anla-bukrs,
anhaupt LIKE anla-anln1,
anunter LIKE anla-anln2,
END OF itab_anlaginv.
DATA: wa_anlaginv LIKE LINE OF itab_anlaginv.
DATA:upload TYPE string.
upload = datei.
CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
filename = upload
filetype = 'ASC'
TABLES
data_tab = itab_anlaginv
EXCEPTIONS
file_open_error = 1
file_read_error = 2
no_batch = 3
gui_refuse_filetransfer = 4
invalid_type = 5
no_authority = 6
unknown_error = 7
bad_data_format = 8
header_not_allowed = 9
separator_not_allowed = 10
header_too_long = 11
unknown_dp_error = 12
access_denied = 13
dp_out_of_memory = 14
disk_full = 15
dp_timeout = 16
OTHERS = 17.
IF sy-subrc <> 0.
MESSAGE i040(/sapdmc/lsmw_glo_010) WITH '&' '&'.
* Fehler beim Upload der Datei '&' (Return-Code &).
ENDIF.
DATA: BEGIN OF itab_fnam OCCURS 10,
END OF itab_fnam.
DATA: BEGIN OF itab_fval OCCURS 10,
END OF itab_fval.
FIELD-SYMBOLS <fs> TYPE ANY.
LOOP AT itab_anlaginv INTO wa_anlaginv.
AT NEW subnumber.
IF itab_fnam CS 'TIMEDEPENTDATA'.
ASSIGN COMPONENT itab_fnam OF STRUCTURE wa_timedepentdata TO <fs>.
<fs> = itab_fval.
ELSEIF itab_fnam CS 'TIMEDEPENTDATAX'.
ASSIGN COMPONENT itab_fnam OF STRUCTURE wa_timedepentdatax TO <fs>.
<fs> = itab_fval.
ELSEIF itab_fnam CS 'INVENTORY'.
ASSIGN COMPONENT itab-fnam OF STRUCTURE wa_inventory TO <fs>.
<fs> = itab_fval.
ELSEIF itab-fnam CS 'INVENTORYX'.
ASSIGN COMPONENT itab_fnam OF STRUCTURE wa_inventoryx TO <fs>.
<fs> = itab_fval.
ELSE.
MESSAGE.
ENDIF.
AT END OF subnumber.
DATA: wa_companycode LIKE anla-bukrs,
wa_asset LIKE anla-anln1,
wa_subnumber LIKE anla-anln2.
CALL FUNCTION 'BAPI_FIXEDASSET_CHANGE'
EXPORTING
companycode = wa_companycode
asset = wa_asset
subnumber = wa_subnumber
inventory = wa_inventory
inventoryx = wa_inventoryx
timedependentdata = wa_timedepentdata
timedependentdatax = wa_timedepentdatax
IMPORTING
return = wa_return.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
ENDLOOP.
gesponsert ⓘ
Stellenangebote auf ABAPforum.com schalten
kostenfrei für Ausbildungsberufe und Werksstudenten
kostenfrei für Ausbildungsberufe und Werksstudenten
Hallo nochmal!
Habe mein Coding noch etwas überarbeitet. (ASSIGN)
Nur leider weis ich jetzt nicht mehr weiter.
Muß ich die Felder TIMEDEPENDENTDATA ... auch in meine itab_anlaginv mitaufnehemen?
Wenn ja, wie mache ich das. Denn im Moment bekomme ich da einen Syntaxfehler:
"ITAB_ANLAGINV muß ein zeichenartiges Datenobjekt sein (Datentyp C, N, D, T oder String)"
Danke für Eure Hilfe!
Robin
Habe mein Coding noch etwas überarbeitet. (ASSIGN)
Nur leider weis ich jetzt nicht mehr weiter.
Muß ich die Felder TIMEDEPENDENTDATA ... auch in meine itab_anlaginv mitaufnehemen?
Wenn ja, wie mache ich das. Denn im Moment bekomme ich da einen Syntaxfehler:
"ITAB_ANLAGINV muß ein zeichenartiges Datenobjekt sein (Datentyp C, N, D, T oder String)"
Danke für Eure Hilfe!
Robin
Code: Alles auswählen.
TABLES: anla.
DATA: wa_timedepentdata TYPE bapi1022_feglg003,
wa_timedepentdatax TYPE bapi1022_feglg003x,
wa_inventory TYPE bapi1022_feglg011,
wa_inventoryx TYPE bapi1022_feglg011x.
DATA: wa_return TYPE bapiret2.
PARAMETERS: datei(40) TYPE c.
DATA: BEGIN OF itab_anlaginv OCCURS 10,
bukrs LIKE anla-bukrs,
anhaupt LIKE anla-anln1,
anunter LIKE anla-anln2,
timedepentdata LIKE bapi1022_feglg003,
timedepentdatax LIKE bapi1022_feglg003x,
inventory LIKE bapi1022_feglg011,
inventoryx LIKE bapi1022_feglg011x,
END OF itab_anlaginv.
DATA: wa_anlaginv LIKE LINE OF itab_anlaginv.
DATA: itab_fval LIKE TABLE OF wa_anlaginv.
FIELD-SYMBOLS <fs> TYPE ANY.
LOOP AT itab_anlaginv INTO wa_anlaginv.
AT NEW anunter.
ENDAT.
IF itab_anlaginv CS 'TIMEDEPENTDATA'.
ASSIGN COMPONENT itab_anlaginv OF STRUCTURE wa_timedepentdata TO
<fs>.
<fs> = itab_fval.
ELSEIF itab_anlaginv CS 'TIMEDEPENTDATAX'.
ASSIGN COMPONENT itab_anlaginv OF STRUCTURE wa_timedepentdatax TO
<fs>.
<fs> = itab_fval.
ELSEIF itab_anlaginv CS 'INVENTORY'.
ASSIGN COMPONENT itab_anlaginv OF STRUCTURE wa_inventory TO <fs>.
<fs> = itab_fval.
ELSEIF itab_anlaginv CS 'INVENTORYX'.
ASSIGN COMPONENT itab_anlaginv OF STRUCTURE wa_inventoryx TO <fs>.
<fs> = itab_fval.
ELSE.
MESSAGE e393(01).
* Fehler beim Starten des Textabgleichs
ENDIF.
AT END OF anunter.
Beitrag
von black_adept (Top Expert / 4099 / 128 /
941
)
»
Wie wäre es, wenn du mal verrätst was deine Codingstrecke überhaupt machen soll - oder noch besser was genau die Aufgabe ist, die du lösen sollst mit dem Programm.
Leider ist mir das weder aus deinen bisherigen Ausführungen noch aus deiner doch arg spärlichen Programmdokumentation 100% klar geworden.
Auch die Frage, warum du überhaupt mit ASSIGN arbeiten musst, ist mir unklar. Man kann zwar einige Sachen sehr elegant mit ASSIGN lösen - aber man muss halt wissen was man tut. M.E. sollte jmd. erst dann anfangen mit ASSIGN zu arbeiten, wenn ihm der Rest der Sprache in Fleisch und Blut übergegangen ist, da der Befehl zwar sehr mächtig aber auch sehr gefährlich ist ( vgl. Pointer in C ).
Ach ja - wenn du einen Syntaxfehler erhältst wär es auch nützlich mit anzugeben zu welcher Zeile der Syntaxfehler angezeigt wird...
Leider ist mir das weder aus deinen bisherigen Ausführungen noch aus deiner doch arg spärlichen Programmdokumentation 100% klar geworden.
Auch die Frage, warum du überhaupt mit ASSIGN arbeiten musst, ist mir unklar. Man kann zwar einige Sachen sehr elegant mit ASSIGN lösen - aber man muss halt wissen was man tut. M.E. sollte jmd. erst dann anfangen mit ASSIGN zu arbeiten, wenn ihm der Rest der Sprache in Fleisch und Blut übergegangen ist, da der Befehl zwar sehr mächtig aber auch sehr gefährlich ist ( vgl. Pointer in C ).
Ach ja - wenn du einen Syntaxfehler erhältst wär es auch nützlich mit anzugeben zu welcher Zeile der Syntaxfehler angezeigt wird...
Hallo black_adept!
Danke für Deine Antwort.
Ich muß die Excel Datei einlesen, und mittels dieser Daten das BAPI_FIXEDASSET_CHANGE starten. (Anlageninventur - Anlagenändern)
Nachdem ich nicht weis, wann der nächste Datenblock beginnt (der erste hat 10 Zeilen, der zweite 12 Zeilen, ...), war ich der Meinung, daß ich das mit einem ASSIGN lösen kann. (Anlagenunternummer)
Den Syntaxfehler bekomme ich, wenn ich zu meiner Datendeklaration timedependentdata, .... dazugebe.
Hoffe mein Problem ist jetzt klarer und Ihr könnt mir weiterhelfen.
Tut mir leid, daß ich mich falsch ausgedrückt habe.
Schöne Grüße
Robin
Danke für Deine Antwort.
Ich muß die Excel Datei einlesen, und mittels dieser Daten das BAPI_FIXEDASSET_CHANGE starten. (Anlageninventur - Anlagenändern)
Nachdem ich nicht weis, wann der nächste Datenblock beginnt (der erste hat 10 Zeilen, der zweite 12 Zeilen, ...), war ich der Meinung, daß ich das mit einem ASSIGN lösen kann. (Anlagenunternummer)
Den Syntaxfehler bekomme ich, wenn ich zu meiner Datendeklaration timedependentdata, .... dazugebe.
Code: Alles auswählen.
DATA: BEGIN OF itab_anlaginv OCCURS 10,
bukrs LIKE anla-bukrs,
anhaupt LIKE anla-anln1,
anunter LIKE anla-anln2,
* timedependentdata LIKE bapi1022_feglg003,
* timedependentdatax LIKE bapi1022_feglg003x,
* inventory LIKE bapi1022_feglg011,
* inventoryx LIKE bapi1022_feglg011x,
END OF itab_anlaginv.
Tut mir leid, daß ich mich falsch ausgedrückt habe.
Schöne Grüße
Robin
Du hast also eine durch Semikolon getrennte Datei, die pro Zeile je fünf Spalten hat.robin1at hat geschrieben: Hoffe mein Problem ist jetzt klarer und Ihr könnt mir weiterhelfen.
Dann mußt du die Datei erst einmal ganz einlesen.
In deiner jetztigen Form funktioniert das Einlesen nicht, da werden Zeilen abgeschnitten und die Felder werden nicht gesplittet.
Die Zeilen kannst dann am Semikolon splitten (ABAP-Befehl SPLIT). Dann hast du eine interne Tabelle mit fünf Spalten. Diese sortiertst du, wenn das File nicht schon sortiert ist, nach den ersten beiden Spalten. Dann kannst du mit einem Loop incl. Gruppenstufen (AT NEW; AT END) und einem CASE Block die Daten auswerten. Und für das BAPI umpacken und dann den BAPI-Aufrufen starten.
Gruß Hendrik
Beitrag
von black_adept (Top Expert / 4099 / 128 /
941
)
»
Hi Robin,
damit kann man doch schon viel mehr anfangen.
1.) Du brauchst nicht unbedingt Feldsymbole.
2.) Bestimmen der Länge des Datenblocks bzw. Bestimmen des Satztyps:
In deinem Fall lies dir die Datei zeilenweise ein. Auch wenn das Format etwas ungewöhnlich ist ( alles in "" verpackt ) kannst du anhand des 4. Feldes erkennen welcher Satztyp grade ankommt.
Außerdem scheinen mir die ersten 3 Felder ( = 15 STellen bis Ende Hauptnummer, 20 Stellen bis Ende Unternummer) die Anlagennummer zu enthalten. Daran kannst du auch erkennen, ob ein neuer Satz kommt.
3.) Syntaxfehler.
Mag ja sein, dass ein Syntaxfehler auftaucht, wenn du die ausgesternte Zeile hinzufügst - aber WO in deinem Coding taucht der denn Fehler jetzt auf? Die Tabellendefinition ist zwar veraltet aber korrekt.
3b)
sollte bestimmt
heißen, oder?
damit kann man doch schon viel mehr anfangen.
1.) Du brauchst nicht unbedingt Feldsymbole.
2.) Bestimmen der Länge des Datenblocks bzw. Bestimmen des Satztyps:
In deinem Fall lies dir die Datei zeilenweise ein. Auch wenn das Format etwas ungewöhnlich ist ( alles in "" verpackt ) kannst du anhand des 4. Feldes erkennen welcher Satztyp grade ankommt.
Außerdem scheinen mir die ersten 3 Felder ( = 15 STellen bis Ende Hauptnummer, 20 Stellen bis Ende Unternummer) die Anlagennummer zu enthalten. Daran kannst du auch erkennen, ob ein neuer Satz kommt.
3.) Syntaxfehler.
Mag ja sein, dass ein Syntaxfehler auftaucht, wenn du die ausgesternte Zeile hinzufügst - aber WO in deinem Coding taucht der denn Fehler jetzt auf? Die Tabellendefinition ist zwar veraltet aber korrekt.
3b)
Code: Alles auswählen.
ASSIGN COMPONENT itab_anlaginv OF STRUCTURE wa_timedepentdata TO
<fs>. Code: Alles auswählen.
ASSIGN COMPONENT 'ITAB_ANLAGINV' OF STRUCTURE wa_timedepentdata TO
<fs>. Hallo JHM und black_adept!
Erstmals vielen vielen Dank für Eure Hilfe!
Das mit dem Syntaxfehler hat sich schon geklärt. Ich habe mein Coding nun ziemlich umgebaut.
JHM Du hast gemeint, daß ich einen Split brauche. Ja, da hast Du wohl recht. Nun meine Frage. Wo baue ich den ein, und wie muß ich das ins coding schreiben?
SPLIT itab_anlaginv AT ';'?
black_adept, sollte ich das beim ASSIGN in '' stellen?
Im moment habe ich nämlich das Problem, daß mir das Programm nicht über meine eingebaute Message
MESSAGE e393(01).
* Fehler beim Starten des Textabgleichs
drübergeht.
Im Anhang jetzt nochmals mein aktuelles Coding.
Vielen vielen Dank für Eure Hilfe!!!
Erstmals vielen vielen Dank für Eure Hilfe!
Das mit dem Syntaxfehler hat sich schon geklärt. Ich habe mein Coding nun ziemlich umgebaut.
JHM Du hast gemeint, daß ich einen Split brauche. Ja, da hast Du wohl recht. Nun meine Frage. Wo baue ich den ein, und wie muß ich das ins coding schreiben?
SPLIT itab_anlaginv AT ';'?
black_adept, sollte ich das beim ASSIGN in '' stellen?
Im moment habe ich nämlich das Problem, daß mir das Programm nicht über meine eingebaute Message
MESSAGE e393(01).
* Fehler beim Starten des Textabgleichs
drübergeht.
Im Anhang jetzt nochmals mein aktuelles Coding.
Vielen vielen Dank für Eure Hilfe!!!
Code: Alles auswählen.
REPORT z_anlaginv.
TABLES: anla.
DATA: wa_timedepentdata TYPE bapi1022_feglg003,
wa_timedepentdatax TYPE bapi1022_feglg003x,
wa_inventory TYPE bapi1022_feglg011,
wa_inventoryx TYPE bapi1022_feglg011x.
DATA: wa_return TYPE bapiret2.
PARAMETERS: p_datei(40) TYPE c.
DATA: BEGIN OF itab_anlaginv OCCURS 10,
bukrs LIKE anla-bukrs,
anhaupt LIKE anla-anln1,
anunter LIKE anla-anln2,
feldname(60),
feldwert(60),
END OF itab_anlaginv.
DATA: BEGIN OF wa_gw_alt,
bukrs LIKE anla-bukrs,
anhaupt LIKE anla-anln1,
anunter LIKE anla-anln2,
END OF wa_gw_alt.
DATA: wa_gw_neu LIKE wa_gw_alt.
DATA: wa_anlaginv LIKE LINE OF itab_anlaginv.
DATA: upload TYPE string.
DATA: wa_companycode LIKE anla-bukrs,
wa_asset LIKE anla-anln1,
wa_subnumber LIKE anla-anln2.
DATA: itab_fval LIKE TABLE OF wa_anlaginv.
FIELD-SYMBOLS <fs> TYPE ANY.
START-OF-SELECTION.
*###################
upload = p_datei.
CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
filename = upload
filetype = 'ASC'
TABLES
data_tab = itab_anlaginv
EXCEPTIONS
file_open_error = 1
file_read_error = 2
no_batch = 3
gui_refuse_filetransfer = 4
invalid_type = 5
no_authority = 6
unknown_error = 7
bad_data_format = 8
header_not_allowed = 9
separator_not_allowed = 10
header_too_long = 11
unknown_dp_error = 12
access_denied = 13
dp_out_of_memory = 14
disk_full = 15
dp_timeout = 16
OTHERS = 17.
IF sy-subrc <> 0.
MESSAGE i040(/sapdmc/lsmw_glo_010).
* Fehler beim Upload der Datei
ENDIF.
SORT itab_anlaginv BY bukrs anhaupt anunter.
LOOP AT itab_anlaginv INTO wa_anlaginv.
MOVE-CORRESPONDING wa_anlaginv TO wa_gw_neu.
IF wa_gw_neu <> wa_gw_alt
AND NOT wa_gw_neu IS INITIAL.
CALL FUNCTION 'BAPI_FIXEDASSET_CHANGE'
EXPORTING
companycode = wa_companycode
asset = wa_asset
subnumber = wa_subnumber
inventory = wa_inventory
inventoryx = wa_inventoryx
timedependentdata = wa_timedepentdata
timedependentdatax = wa_timedepentdatax
IMPORTING
return = wa_return.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
IF itab_anlaginv CS 'TIMEDEPENTDATA'.
ASSIGN COMPONENT itab_anlaginv OF STRUCTURE wa_timedepentdata TO
<fs>.
<fs> = itab_fval.
ELSEIF itab_anlaginv CS 'TIMEDEPENTDATAX'.
ASSIGN COMPONENT itab_anlaginv OF STRUCTURE wa_timedepentdatax TO
<fs>.
<fs> = itab_fval.
ELSEIF itab_anlaginv CS 'INVENTORY'.
ASSIGN COMPONENT itab_anlaginv OF STRUCTURE wa_inventory TO <fs>.
<fs> = itab_fval.
ELSEIF itab_anlaginv CS 'INVENTORYX'.
ASSIGN COMPONENT itab_anlaginv OF STRUCTURE wa_inventoryx TO <fs>.
<fs> = itab_fval.
ELSE.
MESSAGE e393(01).
* Fehler beim Starten des Textabgleichs
ENDIF.
ELSE.
IF itab_anlaginv CS 'TIMEDEPENTDATA'.
ASSIGN COMPONENT itab_anlaginv OF STRUCTURE wa_timedepentdata TO
<fs>.
<fs> = itab_fval.
ELSEIF itab_anlaginv CS 'TIMEDEPENTDATAX'.
ASSIGN COMPONENT itab_anlaginv OF STRUCTURE wa_timedepentdatax TO
<fs>.
<fs> = itab_fval.
ELSEIF itab_anlaginv CS 'INVENTORY'.
ASSIGN COMPONENT itab_anlaginv OF STRUCTURE wa_inventory TO <fs>.
<fs> = itab_fval.
ELSEIF itab_anlaginv CS 'INVENTORYX'.
ASSIGN COMPONENT itab_anlaginv OF STRUCTURE wa_inventoryx TO <fs>.
<fs> = itab_fval.
ELSE.
MESSAGE e393(01).
* Fehler beim Starten des Textabgleichs
ENDIF.
ENDIF.
wa_gw_alt = wa_gw_neu.
ENDLOOP.
CALL FUNCTION 'BAPI_FIXEDASSET_CHANGE'
EXPORTING
companycode = wa_companycode
asset = wa_asset
subnumber = wa_subnumber
inventory = wa_inventory
inventoryx = wa_inventoryx
timedependentdata = wa_timedepentdata
timedependentdatax = wa_timedepentdatax
IMPORTING
return = wa_return.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
Hallo PsychoMantis!
Ja, habe die Message einmal auskommentiert.
Das Programm läuft auch, nur ich glaube, daß im ASSIGN irgend ein Fehler ist.
Wie kann ich denn kontrollieren, ob das Programm alles richtig abgearbeitet hat?
Wenn ich es mir im Debugger ansehe, scheint es nicht so, als würde es denn BAPI aufrufen. Ich glaube, daß der Fehler im Assign liegt, und dieser nicht richtig abgearbeitet wird.
Hoffe es kann mir noch irgendwer weiterhelfen.
Bitte bitte bitte!
Danke
Robin
Ja, habe die Message einmal auskommentiert.
Das Programm läuft auch, nur ich glaube, daß im ASSIGN irgend ein Fehler ist.
Wie kann ich denn kontrollieren, ob das Programm alles richtig abgearbeitet hat?
Wenn ich es mir im Debugger ansehe, scheint es nicht so, als würde es denn BAPI aufrufen. Ich glaube, daß der Fehler im Assign liegt, und dieser nicht richtig abgearbeitet wird.
Hoffe es kann mir noch irgendwer weiterhelfen.
Bitte bitte bitte!
Danke
Robin
Beitrag
von PsychoMantis (ForumUser / 98 / 0 /
0
)
»
Hi robin,
du machst einfach nen Break-Point bei deinem Assign und arbeitest das ganze dann im Debugger Schritt-für-Schritt (F5-Taste) ab. Über das Feld sy-subrc kannst du gucken ob das ganze fehlerfrei läuft. sy-subrc = 0 -> keine Fehler aufgetreten
Gruß
Psy
du machst einfach nen Break-Point bei deinem Assign und arbeitest das ganze dann im Debugger Schritt-für-Schritt (F5-Taste) ab. Über das Feld sy-subrc kannst du gucken ob das ganze fehlerfrei läuft. sy-subrc = 0 -> keine Fehler aufgetreten
Gruß
Psy
Zum SPLIT:
[edit]kleine Codekorrektur hatte die definition von itab_anlaginv falsch im Kopf[/edit]
Code: Alles auswählen.
DATA: BEGIN OF itab_anlaginv OCCURS 10,
bukrs LIKE anla-bukrs,
anhaupt LIKE anla-anln1,
anunter LIKE anla-anln2,
feldname(60),
feldwert(60),
END OF itab_anlaginv.
*** Neue Tabelle
TYPES: BEGIN OF t_file,
line(255) type c,
END OF t_file.
DATA: gt_file TYPE TABLE OF t_file,
gw_fiel TYPE t_file.
*** File in die neue Tabelle laden
CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
filename = upload
filetype = 'ASC'
TABLES
* data_tab = itab_anlaginv
data_tab = gt_file
EXCEPTIONS
file_open_error = 1
file_read_error = 2
no_batch = 3
gui_refuse_filetransfer = 4
invalid_type = 5
no_authority = 6
unknown_error = 7
bad_data_format = 8
header_not_allowed = 9
separator_not_allowed = 10
header_too_long = 11
unknown_dp_error = 12
access_denied = 13
dp_out_of_memory = 14
disk_full = 15
dp_timeout = 16
OTHERS = 17.
IF sy-subrc <> 0.
MESSAGE i040(/sapdmc/lsmw_glo_010).
* Fehler beim Upload der Datei
ENDIF.
*** Jetzt jede Zeile in einzelne Felder splitten
LOOP AT gt_file INTO gw_file.
SPLIT gw_file AT ';' INTO itab_anlaginv-bukrs
itab_anlaginv-anhaupt
itab_anlaginv-anunter
itab_anlaginv-feldname
itab_anlaginv-feldwert.
* Gesplitte Tabzeile übernehmen
APPEND itab_anlaginv.
ENDLOOP.
* Das brauchst du nur wenn das file noch nicht sortiert ist
SORT itab_anlaginv BY bukrs anhaupt anunter.
* Dann einen LOOP über die itab_anlaginv.
LOOP AT itab_anlaginv.
AT NEW anhaupt.
* Hier die Daten für das BAPI refreschen/clearen
ENDAT.
* Hier die Daten für das Bapi aufbauen. z.B. mit Case
AT end of anhaupt.
* Hier das BAPI aufrufen um die Daten zuverarbeiten
ENDAT.
ENDLOOP.
Gruß Hendrik
Seite 1 von 1
Vergleichbare Themen
0
Antw.
Antw.
1003
Views
Views
Frage die ABAP Experten
Über diesen Beitrag
Unterstütze die Community und teile den Beitrag für mehr Leser und Austausch
Aktuelle Forenbeiträge
Newsletter Anmeldung
Keine Beiträge verpassen! Wöchentlich versenden wir lesenwerte Beiträge aus unserer Community.Die letzte Ausgabe findest du hier.