SAP 貨物移動 BAPI 的簡單使用 BAPI_GOODSMVT_CREATE
阿新 • • 發佈:2019-01-07
DATA:output_header LIKE bapi2017_gm_head_01 ,
output_code LIKE bapi2017_gm_code.
DATA:lh_input_mblnr TYPE mseg-mblnr,
lh_string TYPE string,
lh_row TYPE char3.
DATA:i_bukrs TYPE ekko-bukrs.
TYPES:input_item LIKE bapi2017_gm_item_create,
input_number LIKE bapi2017_gm_serialnumber,
input_return LIKE bapiret2 .
DATA:it_input_item TYPE STANDARD TABLE OF input_item,
lt_input_item LIKE LINE OF it_input_item,
it_input_return TYPE STANDARD TABLE OF input_return,
lt_input_return LIKE LINE OF it_input_return,
it_input_number TYPE STANDARD TABLE OF input_number,
lt_input_number LIKE LINE OF it_input_number.
DATA:it_marv TYPE STANDARD TABLE OF marv,
wa_marv LIKE LINE OF it_marv.
REFRESH:it_input_item,it_input_return,it_input_number.
CLEAR:output_header,output_code.
output_header-pstng_date = sy-datum.
output_header-doc_date = sy-datum.
output_header-doc_date = sy-datum.
"
lt_input_item-material = 'KT1000010'. "物料
lt_input_item-plant = '3710'. "發出工廠
lt_input_item-stge_loc = 'P200'. "發獲倉
lt_input_item-move_stloc = 'P800'. "收穫貨倉庫
lt_input_item-move_type = '105'. "移動型別
lt_input_item-entry_qnt = '1'. "數量
lt_input_item-stck_type = 'X'. "X 為移動到質檢倉 其他點選進去看
lt_input_item-po_number = '4500000456'. "採購訂單
lt_input_item-po_item = '00010'. "行專案
lt_input_item-entry_uom = 'ST'. "指定單位
lt_input_item-mvt_ind = 'B'. "指定移庫為採購訂單
APPEND lt_input_item TO it_input_item.
CLEAR:lh_input_mblnr.
IF it_input_item IS NOT INITIAL.
CALL FUNCTION 'BAPI_GOODSMVT_CREATE'
output_code LIKE bapi2017_gm_code.
DATA:lh_input_mblnr TYPE mseg-mblnr,
lh_string TYPE string,
lh_row TYPE char3.
DATA:i_bukrs TYPE ekko-bukrs.
TYPES:input_item LIKE bapi2017_gm_item_create,
input_number LIKE
input_return LIKE bapiret2 .
DATA:it_input_item TYPE STANDARD TABLE OF input_item,
lt_input_item LIKE LINE OF it_input_item,
it_input_return TYPE STANDARD TABLE OF input_return,
lt_input_return LIKE LINE OF it_input_return,
it_input_number TYPE
lt_input_number LIKE LINE OF it_input_number.
DATA:it_marv TYPE STANDARD TABLE OF marv,
wa_marv LIKE LINE OF it_marv.
REFRESH:it_input_item,it_input_return,it_input_number.
CLEAR:output_header,output_code.
output_header-pstng_date =
output_header-doc_date = sy-datum.
output_header-doc_date = sy-datum.
"
lt_input_item-material = 'KT1000010'. "物料
lt_input_item-plant = '3710'. "發出工廠
lt_input_item-stge_loc = 'P200'. "發獲倉
lt_input_item-move_stloc = 'P800'. "收穫貨倉庫
lt_input_item-move_type = '105'. "移動型別
lt_input_item-entry_qnt = '1'. "數量
lt_input_item-stck_type = 'X'. "X 為移動到質檢倉 其他點選進去看
lt_input_item-po_number = '4500000456'. "採購訂單
lt_input_item-po_item = '00010'. "行專案
lt_input_item-entry_uom = 'ST'. "指定單位
lt_input_item-mvt_ind = 'B'. "指定移庫為採購訂單
APPEND lt_input_item TO it_input_item.
CLEAR:lh_input_mblnr.
IF it_input_item IS NOT INITIAL.
CALL FUNCTION 'BAPI_GOODSMVT_CREATE'