Code: Alles auswählen.
DATA: header LIKE BAPI2017_GM_HEAD_01,
code LIKE BAPI2017_GM_CODE,
lt_item LIKE TABLE OF BAPI2017_GM_ITEM_CREATE,
ls_item LIKE BAPI2017_GM_ITEM_CREATE,
lt_return LIKE TABLE OF BAPIRET2.
DATA: lv_ktogr TYPE ktogr.
header-pstng_date = sy-datum.
header-doc_date = sy-datum.
code-gm_code = '03'. "03 = Goods Issue
LOOP AT lt_import into ls_import.
Select SINGLE KTOGR
FROM ANLA INTO lv_ktogr
WHERE ANLN1 = ls_import-ranl1.
ls_item-material = ls_import-matnr. "material
ls_item-plant = '9000'. "Plant
ls_item-stge_loc = '9000'. "Storage Location
ls_item-asset_no = ls_import-ranl1. "Assetnumber
ls_item-entry_qnt = ls_import-menge. "Quantity
* ls_item-entry_uom = 'PC'.
ls_item-move_type = '241'. "Movement type
ls_item-gl_account = lv_ktogr.
ls_item-entry_uom_iso = 'PCE'. "ISO Code
ls_item-mvt_ind = 'W'. "Movement Indicator
ls_item-par_compco = '99'.
APPEND ls_item TO lt_item.
ENDLOOP.
CALL FUNCTION 'BAPI_GOODSMVT_CREATE'
EXPORTING
goodsmvt_header = header
goodsmvt_code = code
* TESTRUN = ' '
* GOODSMVT_REF_EWM =
* IMPORTING
* GOODSMVT_HEADRET =
* MATERIALDOCUMENT =
* MATDOCUMENTYEAR =
TABLES
goodsmvt_item = lt_item
* GOODSMVT_SERIALNUMBER =
return = lt_return
* GOODSMVT_SERV_PART_DATA =
* EXTENSIONIN =
.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'.