ME01创建货源清单函数、BAPI

FUNCTION zsrm_source_list.
"----------------------------------------------------------------------
""Local interface:
"  TABLES
"      INPUT STRUCTURE  ZSRM_SOURCE_LIST_INPUT OPTIONAL
"      OUTPUT STRUCTURE  ZSRM_SOURCE_LIST_OUTPUT OPTIONAL
"----------------------------------------------------------------------

"批量更改货源清单

DATA:lt_eordu LIKE TABLE OF eordu WITH HEADER LINE.

SORT input BY matnr werks.

DATA:lv_matnr TYPE matnr,

lv_werks TYPE werks_d.

DATA:wa_input TYPE zsrm_source_list_input.

LOOP AT input.

MOVE-CORRESPONDING input TO wa_input.

AT NEW werks.

CLEAR:lt_eordu[].

REFRESH lt_eordu.

ENDAT.

CALL FUNCTION ‘CONVERSION_EXIT_ALPHA_INPUT’

EXPORTING

input = wa_input-matnr

IMPORTING

output = wa_input-matnr

EXCEPTIONS

OTHERS = 1.

CALL FUNCTION ‘CONVERSION_EXIT_ALPHA_INPUT’

EXPORTING

input = wa_input-lifnr

IMPORTING

output = wa_input-lifnr

EXCEPTIONS

OTHERS = 1.

lt_eordu-matnr = wa_input-matnr.

lt_eordu-werks = wa_input-werks.

lt_eordu-vdatu = wa_input-vdatu.

lt_eordu-bdatu = wa_input-bdatu.

lt_eordu-lifnr = wa_input-lifnr.

lt_eordu-ekorg = wa_input-ekorg.

lt_eordu-reswk = wa_input-reswk.

lt_eordu-autet = wa_input-autet.

lt_eordu-erdat = sy-datum.

lt_eordu-ernam = sy-uname.
lt_eordu-zeord = record-zeord.

lt_eordu-kz = ‘I’.

APPEND lt_eordu.

lv_matnr = wa_input-matnr.

lv_werks = wa_input-werks.

AT END OF werks.

CALL FUNCTION ‘ME_INITIALIZE_SOURCE_LIST’ .

CALL FUNCTION ‘ME_DIRECT_INPUT_SOURCE_LIST’

EXPORTING

i_matnr = lv_matnr

i_werks            = lv_werks
         I_MT06E            =  lt_eordu
         I_NO_MATERIAL_READ =
         activity           = ‘V’
         I_VORGA            =
         I_LOGSY            =

TABLES

t_eord = lt_eordu

EXCEPTIONS

plant_missing = 1

material_missing = 2

OTHERS = 3.

IF sy-subrc <> 0.

output-matnr = lv_matnr.

output-werks = lv_werks.

output-flag = ‘E’.

output-message = ‘货源清单创建失败’.

APPEND output.

CLEAR output.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
* WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ELSE.

CALL FUNCTION ‘ME_POST_SOURCE_LIST_NEW’

EXPORTING

i_matnr = wa_input-matnr.

CALL FUNCTION ‘BAPI_TRANSACTION_COMMIT’

EXPORTING

wait = ‘X’.

output-matnr = lv_matnr.

output-werks = lv_werks.

output-flag = ‘S’.

output-message = ‘货源清单创建成功’.

APPEND output.

CLEAR output.

ENDIF.

ENDAT.

ENDLOOP.

ENDFUNCTION.

ME01创建货源清单函数、BAPI相关推荐

SAP ME01 创建货源清单
1业务说明此文档使用函数:ME_DIRECT_INPUT_SOURCE_LIST创建货源清单 2前台实现事务代码:ME01 输入抬头信息保存即可 3代码实现 3.1调用函数定义参数字段调用 ...
[SAP顾问之路] MM货源清单及配额协议-阿龙学习MM PA 笔记（2）
MM货源清单及配额协议-阿龙学习MM PA 笔记(2) SAP-阿龙 SAP顾问之路 2019-03-29原文欢迎关注公众号"SAP顾问之路"获取SAP PA官方教材及培训视频, ...
SAP MM模块工厂级货源清单管理
1.开启工厂级货源清单管理在SAP系统当中,当物料没有启用货源清单管理的时候,货源清单可维护可不维护,物料启用货源清单的位置有两个,其中一个就是工厂级货源清单管理,也就是说在这个工厂下所有的物料都要 ...
SAP中货源清单创建的几种方法
SAP中采购货源清单创建的方法有以下几种: 1.ME01 手动逐个创建. 2.ME05 系统自动批量创建. 3.通过信息记录中的菜单"附加"-"源清单"创建. ...
SAP 货源清单的维护 ME01
上一个微博中说明了如何开启工厂级货源清单管理,那么怎么维护货源清单呢,SAP标准功能中有3种维护方法,一个是手动维护就是ME01这个事务码:第二个是半自动维护,也是ME01点击生成按钮,可以生成货源清 ...
SAP 货源清单Source list
创建Source list事务代码:ME01 要使用Source list需要满足以下之一条件: A.物料主数据中设置:"源清单"勾选. B.后台配置:工厂层的 "源清单 ...
【MM模块】Source Lists 货源清单
Source Lists (货源清单)是Source Determination(货源决定)的一部分. 货源决定就是当我们有采购需求的时候可以决定问哪个供应商购买,以哪种方式购买的一个过程. Sour ...
创建一个存储函数，返回指定员工的姓名,薪水和年收入
/* 创建一个存储函数,返回指定员工的姓名,薪水和年收入 */ create or replace function queryEmp2(eno in number, empname out VARC ...
MySQL创建字段+数据处理函数+汇总数据（聚集函数）+分组数据
[0]README 0.1)本文部分文字描述转自"MySQL 必知必会",旨在review"MySQL创建字段+数据处理函数+汇总数据(聚集函数)+分组数据" ...

ME01创建货源清单函数、BAPI

ME01创建货源清单函数、BAPI相关推荐

最新文章

热门文章