ME01创建货源清单
此文档使用函数：ME_DIRECT_INPUT_SOURCE_LIST创建货源清单
事务代码：ME01
输入抬头信息
保存即可
## 3.1调用函数
定义参数
字段
调用函数
## 3.2问题解决
因为ME_DIRECT_INPUT_SOURCE_LIST中会报E类型消息，在接口中会导致程序直接中断，所以需要在异常处理中加入error_message
= 99，捕捉报的E类型消息
## 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 error_message = 99 OTHERS = 3.IF SY-SUBRC <> 0.MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy- msgv4 INTO e_return-message. 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."-----------------------------@斌将军-----------------------------
