ABAP物料仓位扩充

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.