01 MB01
02 MB31
03 MB1A
04 MB1B
05 MB1C
06 MB11
07 MB04
BAPI2017_GM_ITEM_CREATE-mvt_ind(Domain:KZBEW) - Movement Indicator
* Goods movement w/o reference
* B - Goods movement for purchase order
* F - Goods movement for production order
* L - Goods movement for delivery note
* K - Goods movement for kanban requirement (WM - internal only)
* O - Subsequent adjustment of "material-provided" consumption
* W - Subsequent adjustment of proportion/product unit material
参考:
http://hi.baidu.com/tktik/item/2b0b2017faa5ab21f7625c7d、
一个部分冲销的例子;
FORM bapi_process.
CLEAR gdsmt_item.
REFRESH gdsmt_item[].
LOOP AT gii_tab.
* SHIFT gii_tab-kdauf LEFT DELETING LEADING '0'.
* SHIFT GII_TAB-KDPOS LEFT DELETING LEADING '0'.
MOVE '313' TO gdsmt_item-move_type. "移动类型
MOVE gii_tab-sobkz TO gdsmt_item-spec_stock.
MOVE gii_tab-matnr TO gdsmt_item-material. "物料
MOVE gii_tab-gmnga TO gdsmt_item-entry_qnt. "数量
MOVE gii_tab-meinh TO gdsmt_item-entry_uom. "单位
MOVE gii_tab-werks TO gdsmt_item-plant. "工厂
MOVE 'LW01' TO gdsmt_item-stge_loc.
MOVE gii_tab-lgort TO gdsmt_item-move_stloc.
* MOVE gii_tab-lgort TO gdsmt_item-stge_loc.
* MOVE 'LW01' TO gdsmt_item-move_stloc.
MOVE 'X' TO gdsmt_item-xstob. "冲销标志
MOVE gii_tab-kdauf TO gdsmt_item-val_sales_ord.
MOVE gii_tab-kdpos TO gdsmt_item-val_s_ord_item.
MOVE gii_tab-ktext TO gdsmt_item-item_text.
MOVE gii_tab-aufnr TO gdsmt_item-gr_rcpt.
APPEND gdsmt_item.
ENDLOOP.
IF NOT gdsmt_item[] IS INITIAL.
CALL FUNCTION 'BAPI_GOODSMVT_CREATE'
EXPORTING
goodsmvt_header = gdsmt_header
goodsmvt_code = gdsmt_code
IMPORTING
materialdocument = mat_doc
TABLES
goodsmvt_item = gdsmt_item
return = return.
LOOP AT return.
CLEAR loc_msg.
CONCATENATE '冲销成功!' return-message INTO loc_msg.
IF return-type EQ 'E'.
MESSAGE return-message TYPE 'E'.
errflag = 'X'.
ELSE.
MESSAGE loc_msg TYPE 'S'.
ENDIF.
ENDLOOP.
IF errflag IS INITIAL.
COMMIT WORK AND WAIT.
CLEAR loc_msg.
IF sy-subrc NE 0.
MESSAGE '冲销操作出现错误,请稍后重试!' TYPE 'E'.
EXIT.
ELSE.
CONCATENATE '冲销物料凭证:' mat_doc '已成功创建!' INTO loc_msg.
MESSAGE i184(sabapdocu) WITH loc_msg.
ENDIF.
ELSE.
MESSAGE '冲销有误!' TYPE 'E'.
ENDIF.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'.
ENDIF.
ENDFORM. "bapi_process