SAP ME01建立貨源清單

1業務說明

此文檔使用函數：ME_DIRECT_INPUT_SOURCE_LIST建立貨源清單

2前臺實現

事務代碼：ME01

輸入擡頭信息

保存便可

3代碼實現

3.1調用函數

定義參數

字段

調用函數

3.2問題解決

3.3源代碼

DATA:LT_EORD TYPE TABLE OF EORDU,
  LS_EORD TYPE EORDU,
  LV_MATNR TYPE EORD-MATNR,
  LV_WERKS TYPE EORD-WERKS.

LV_MATNR = '000000000000000431'."物料
LV_WERKS = '2000'."工廠

CLEAR:LS_EORD.
LS_EORD-MATNR = '000000000000000431'."物料
LS_EORD-WERKS = '2000'."工廠
LS_EORD-VDATU = '20191210'."有效期從
LS_EORD-BDATU = '20191230'."有效期至
LS_EORD-LIFNR = '0070003311'."供應商
LS_EORD-EKORG = '2000'."採購組織
LS_EORD-RESWK = ''."採購物料的工廠
LS_EORD-EORTP = '0'."資源清單記錄的類別
LS_EORD-AUTET = ''."WA_INPUT-AUTET."物料計劃中的資源清單使用
LS_EORD-ERDAT = SY-DATUM."記錄的建立日期
LS_EORD-ERNAM = SY-UNAME."建立人
LS_EORD-ZEORD = '00001'."RECORD-ZEORD."資源清單記錄號
LS_EORD-KZ =  'I'."複選框 I新增 U更新
APPEND LS_EORD TO LT_EORD.

CALL FUNCTION 'ME_INITIALIZE_SOURCE_LIST'."源清單維護初始化

CALL FUNCTION 'ME_DIRECT_INPUT_SOURCE_LIST'
  EXPORTING
    I_MATNR          = LV_MATNR
    I_WERKS          = LV_WERKS
*   I_MT06E          =
*   I_NO_MATERIAL_READ       =
*   ACTIVITY         = 'V'
*   I_VORGA          =
*   I_LOGSY          =
  TABLES
    T_EORD           = LT_EORD
  EXCEPTIONS
    PLANT_MISSING    = 1
    MATERIAL_MISSING = 2
    OTHERS          = 3.
IF SY-SUBRC <> 0.
* Implement suitable error handling here
  MESSAGE '建立貨源清單失敗' TYPE 'S' DISPLAY LIKE 'E'.
  RETURN.
ELSE.

  CALL FUNCTION 'ME_POST_SOURCE_LIST_NEW' "在集成商品維護中過賬訂單
   EXPORTING
     I_MATNR       = LV_MATNR
*     O_MATNR       =
    .
  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
    EXPORTING
      WAIT = 'X'.

  MESSAGE '建立貨源清單成功' TYPE 'S'.
ENDIF.