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.