Code: Alles auswählen.
DATA: BEGIN OF bapi_header OCCURS 0.
INCLUDE STRUCTURE bapi2017_gm_head_01.
DATA: END OF bapi_header.
DATA: BEGIN OF bapi_item OCCURS 0.
INCLUDE STRUCTURE bapi2017_gm_item_create.
DATA: END OF bapi_item.
DATA: BEGIN OF bapi_return OCCURS 0.
INCLUDE STRUCTURE bapiret2.
DATA: END OF bapi_return.
bapi_header-pstng_date = sy-datum.
bapi_header-doc_date = sy-datum.
bapi_header-pr_uname = sy-uname.
LOOP AT gt_new_ekpo INTO gs_ekpo WHERE ebeln = gs_ekko-ebeln.
IF gs_ekpo-matnr IS NOT INITIAL.
bapi_item-material = gs_ekpo-matnr.
ELSE.
bapi_item-material = gs_ekpo-ematn.
ENDIF.
bapi_item-plant = gs_ekpo-werks.
bapi_item-stge_loc = gs_ekpo-lgort.
bapi_item-move_type = '101'.
bapi_item-mvt_ind = 'F'.
bapi_item-stck_type = 'F'.
bapi_item-vendor = gs_ekko-lifnr.
bapi_item-po_number = gs_ekpo-ebeln.
bapi_item-po_item = gs_ekpo-ebelp.
bapi_item-entry_qnt = gs_ekpo-menge.
bapi_item-entry_uom = gs_ekpo-meins.
bapi_item-po_pr_qnt = gs_ekpo-menge.
bapi_item-orderpr_un = gs_ekpo-meins.
bapi_item-no_more_gr = 'X'.
APPEND bapi_item.
ENDLOOP.
CALL FUNCTION 'BAPI_GOODSMVT_CREATE'
EXPORTING
goodsmvt_header = bapi_header
goodsmvt_code = '01'
TABLES
goodsmvt_item = bapi_item
return = bapi_return
.
Code: Alles auswählen.
bapi_item-mvt_ind = 'B'.
Code: Alles auswählen.
bapi_item-mvt_ind = 'F'.
Folgende Benutzer bedankten sich beim Autor PeterPaletti für den Beitrag:
fritz61