本文共 1275 字，大约阅读时间需要 4 分钟。

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.

转载地址：http://mmqaf.baihongyu.com/