SAP ABAP MM扩充库位 BAPI_MATERIAL_SAVEREPLICA

本来扩充库位是主数据的事情，但是主数据这边人员不接这个工作 。全归为IT。IT表示这个工作也是存在沟通成本，对IT进行了骚扰 。

做一个工具吧，扩充库位

REPORT zfm_mm_ext_lgort. TABLES:mara,mard,t001L. SELECTION-SCREEN BEGIN OF BLOCK 001 WITH FRAME TITLE TEXT-001. SELECT-OPTIONS:s_matnr FOR mara-matnr OBLIGATORY. SELECT-OPTIONS:s_mtart FOR mara-mtart . SELECTION-SCREEN END OF BLOCK 001. SELECTION-SCREEN BEGIN OF BLOCK 002 WITH FRAME TITLE TEXT-002. SELECT-OPTIONS:s_werks FOR mard-werks OBLIGATORY. SELECT-OPTIONS:s_lgort FOR mard-lgort OBLIGATORY. SELECTION-SCREEN END OF BLOCK 002. DATA: ls_return TYPE bapiret2, lt_head TYPE TABLE OF bapie1matheader, lt_mard TYPE TABLE OF bapie1mard, lt_mardx TYPE TABLE OF bapie1mardx. DATA: lmstyp TYPE msgty, lmsg TYPE bapi_msg, ldata TYPE ztmm014_output. INITIALIZATION. START-OF-SELECTION. SELECT werks,lgort FROM t001L INTO TABLE @DATA(ltlgort) WHERE werks IN @s_werks AND lgort IN @S_lgort. SELECT mara~matnr INTO TABLE @DATA(lt_matnr) FROM mara WHERE matnr IN @s_matnr AND mtart IN @s_mtart. LOOP AT lt_matnr INTO DATA(lsmatnr). LOOP AT ltlgort INTO DATA(lslgort). APPEND VALUE #( FUNCTION = '009' material = lsmatnr-matnr storage_view = 'X' ) TO lt_head. APPEND VALUE #( FUNCTION = '009' material = lsmatnr-matnr plant = lslgort-werks stge_loc = lslgort-lgort ) TO lt_mard. APPEND VALUE #( FUNCTION = '009' material = lsmatnr-matnr plant = lslgort-werks stge_loc = lslgort-lgort ) TO lt_mardx. ENDLOOP. ENDLOOP. CALL FUNCTION 'BAPI_MATERIAL_SAVEREPLICA' EXPORTING noappllog = 'X' " 不写入应用日志 testrun = '' " 生产模式（'X'为测试模式） inpfldcheck = '' nochangedoc = '' IMPORTING RETURN = ls_return TABLES headdata = lt_head storagelocationdata = lt_mard storagelocationdatax = lt_mardx. IF ls_return-TYPE <> 'E'. CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' EXPORTING WAIT = 'X'. WRITE: / '库存已扩充'. ELSE. CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'. WRITE: / '库存扩充失败，请检查'. ENDIF.