FUNCTION ZMM_EXTEND_MATERIAL_LGORT.
*"----------------------------------------------------------------------
*"*"本地接口:
*" IMPORTING
*" VALUE(I_MATNR) TYPE MARD-MATNR
*" VALUE(I_WERKS) TYPE MARD-WERKS
*" VALUE(I_LGORT) TYPE MARD-LGORT
*"----------------------------------------------------------------------
DATA:I_HEADDATA LIKE BAPIMATHEAD,
I_STORAGELOCATIONDATA LIKE BAPI_MARD,
I_STORAGELOCATIONDATAX LIKE BAPI_MARDX,
I_RETURN LIKE BAPIRET2.
DATA: LW_MARD TYPE MARD.
SELECT SINGLE * FROM MARD INTO LW_MARD
WHERE MATNR = I_MATNR
AND WERKS = I_WERKS
AND LGORT = I_LGORT.
IF SY-SUBRC <> 0."不存在 扩库位
CLEAR I_HEADDATA.
I_HEADDATA-MATERIAL = I_MATNR.
I_HEADDATA-STORAGE_VIEW = 'X'.
CLEAR I_STORAGELOCATIONDATA.
CLEAR I_STORAGELOCATIONDATAX.
I_STORAGELOCATIONDATA-PLANT = I_WERKS.
I_STORAGELOCATIONDATA-STGE_LOC = I_LGORT.
I_STORAGELOCATIONDATAX-PLANT = I_WERKS.
I_STORAGELOCATIONDATAX-STGE_LOC = I_LGORT.
CALL FUNCTION 'BAPI_MATERIAL_SAVEDATA'
EXPORTING
HEADDATA = I_HEADDATA
STORAGELOCATIONDATA = I_STORAGELOCATIONDATA
STORAGELOCATIONDATAX = I_STORAGELOCATIONDATAX
IMPORTING
RETURN = I_RETURN.
ENDIF.
ENDFUNCTION.
————————————————
版权声明:本文为CSDN博主「SAP剑客」的原创文章,遵循CC 4.0 BY-SA版权协议,转载请附上原文出处链接及本声明。
原文链接:https://blog.csdn.net/zhongguomao/article/details/79591023