migo 免费收货
migo 界面操作
操作界面参数
表头选择 收货，其他，511.
物料
数量
何处
供应商
批次
批次号系统不必存在，提交时系统创建
ABAP 实现
参数
DATA: gm_header TYPE bapi2017_gm_head_01.
DATA: gm_code TYPE bapi2017_gm_code.
DATA: gm_headret TYPE bapi2017_gm_head_ret.
DATA: gm_item TYPE TABLE OF
bapi2017_gm_item_create WITH HEADER LINE.
DATA: gm_return TYPE bapiret2 OCCURS 0 WITH HEADER LINE.
DATA: gm_retmtd TYPE bapi2017_gm_head_ret-mat_doc.
CLEAR: gm_return, gm_retmtd. REFRESH gm_return.
* Setup BAPI header data.
gm_header-pstng_date = sy-datum.
gm_header-doc_date = sy-datum.
gm_code-gm_code = ‘05’. " MB1C
* Write 971 movement to table
CLEAR gm_item.
MOVE ‘511’ TO gm_item-move_type .
* MOVE ‘Q’ TO gm_item-spec_stock.
MOVE iv_matnr TO gm_item-material.
MOVE iv_lfimg TO gm_item-entry_qnt.
* MOVE ‘PC’ TO GM_ITEM-ENTRY_UOM.
MOVE iv_werks TO gm_item-plant.
MOVE iv_lgort TO gm_item-stge_loc.
*MOVE ‘0901’ TO GM_ITEM-MOVE_REAS.
MOVE iv_charg TO gm_item-batch.
MOVE iv_charg TO gm_item-val_type.
MOVE iv_vendor TO gm_item-vendor.
APPEND gm_item.
* Call goods movement BAPI
CALL FUNCTION ‘BAPI_GOODSMVT_CREATE’
EXPORTING
goodsmvt_header = gm_header
goodsmvt_code = gm_code
IMPORTING
goodsmvt_headret = gm_headret
materialdocument = gm_retmtd
TABLES
goodsmvt_item = gm_item
return = gm_return.
if gm_return is INITIAL.
ev_result = ‘S’.
else.
ev_result = ‘E’.
endif.
IF NOT gm_retmtd IS INITIAL.
COMMIT WORK AND WAIT.
CALL FUNCTION ‘DEQUEUE_ALL’.
ELSE.
COMMIT WORK AND WAIT.
CALL FUNCTION ‘DEQUEUE_ALL’.
ENDIF.