客户需求:根据ALV上的采购订单IDN进行过账,如果有IDN,就根据IDN过账,如果没有,就根据采购订单过账。
BAPI ITEM数据填充如下:
DATA:ls_goodsmvt_item TYPE bapi2017_gm_item_create,
l_line TYPE char6,
l_str TYPE string,
lt_return LIKE bapiret2 OCCURS 0,
lv_ebeln TYPE ekpo-ebeln,
lv_ebelp TYPE ekpo-ebelp,
lv_smbln TYPE matdoc-smbln,
lv_smblp TYPE matdoc-smblp,
lv_sgtxt TYPE matdoc-sgtxt,
ls_lips TYPE lips.
l_line = pv_tabix.
* 抬头
IF p_budat IS NOT INITIAL.
ps_goodsmvt_header-pstng_date = p_budat.
ELSE.
ps_goodsmvt_header-pstng_date = sy-datum.
ENDIF.
ps_goodsmvt_header-doc_date = sy-datum.
* 明细
* ls_goodsmvt_item-line_id = 1.
ls_goodsmvt_item-line_id = l_line.
ls_goodsmvt_item-plant = ps_alv-werks."委托工厂
ls_goodsmvt_item-material = p