Code: Alles auswählen.
data:
lc_blart_bapi_saplacc9 TYPE string VALUE '(SAPLACC9)IT_ACCIT[]',
SELECT SINGLE (ein paar Felder...)
INTO ls_mara
FROM mara
WHERE matnr = lv_matnr .
* if document type in Set, set error
IF sy-subrc <> 0.
* check doc type from BAPI function group ACC9
ASSIGN (lc_blart_bapi_saplacc9) TO <lt_accit_bapi>.
IF <lt_accit_bapi> IS ASSIGNED.
READ TABLE <lt_accit_bapi> ASSIGNING FIELD-SYMBOL(<ls_accit_bapi>) INDEX 1.
IF sy-subrc = 0.
ASSIGN <ls_accit_bapi>-blart TO <lv_blart>.
ENDIF.
ENDIF.
Jetzt wird ein Set eingelesen und die Belegart dagegen geprüft, wenn Belegart im Set Dann Exit Returnvariable auf Fehler setzen und Meldung ausgeben, Beleg wird dann nicht gebucht
else.
ls_line_item_200-Felder aus ls_mara übergeben.
endif
Code: Alles auswählen.
* check doc type from BAPI function group ACC9
ASSIGN (lc_blart_bapi_saplacc9) TO <lt_accit_bapi>.
ENDIF.
IF <lt_accit_bapi> IS ASSIGNED.
lt_accit_bapi = <lt_accit_bapi>.
READ TABLE lt_accit_bapi ASSIGNING FIELD-SYMBOL(<ls_accit_bapi>) INDEX 1.
IF sy-subrc = 0.
ASSIGN <ls_accit_bapi>-blart TO <lv_blart>.
ABAP Tabelleninformation TH \FUNCTION-POOL=ACC9\DATA=IT_ACCIT
ABAP Variablenwert (Zeichen) V0 {200;BKPFF;$;;0000000001;;;;;;000000;;;0200;0021089736;0000;000;000;;20221206;20221231;20221206;00000000;00;D2
ABAP Variablenwert (Halbbyte) X0 03030304040504040202020202020202020202020202020202020202030303030303030303030202020202020202020202020202020202
ABAP Variablenwert (Halbbyte) X0 020000020B0006060400000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000
ABAP Variablenwert (Zeichen) V0 {200;BKPFF;$;;0000000002;;;;;;000000;;;0200;0021089736;0000;000;000;;20221206;20221231;20221206;00000000;00;D2
ABAP Variablenwert (Halbbyte) X0 03030304040504040202020202020202020202020202020202020202030303030303030303030202020202020202020202020202020202
ABAP Variablenwert (Halbbyte) X0 020000020B0006060400000000000000000000000000000000000000000000000000000000020000000000000000000000000000000000
ABAP Variablenwert (Zeichen) V0 {200;BKPFF;$;;0000000003;;;;;;000000;;;0200;0021089736;0000;000;000;;20221206;20221231;20221206;00000000;00;D2
ABAP Variablenwert (Halbbyte) X0 03030304040504040202020202020202020202020202020202020202030303030303030303030202020202020202020202020202020202
Wie hast du denn den Job debuggt? Mit TCODE = JDBG?