首先转到T代码SE80选择功能组= MIGO

然后转到->包含LMIGOKR1->重置方法

创建增强功能

方法重置。

增强2 ZPOST_J1IGRECON。 "活动版本
*
数据：消息类型字符串。

如果GODYNPRO-MAT_DOC不是INITIAL，而GODYNPRO-DOC_YEAR不是INITIAL，并且sy-tcode ='MIGO'和（SY-UCOMM = 'OK_POST1'或SY-UCOMM ='OK_POST'）。

等待最多2秒。

从mseg到表@DATA（it_mseg）中选择mblnr，mjahr，其中mblnr = @ GODYNPRO-MAT_DOC和mjahr = @ GODYNPRO-DOC_YEAR。

如果sy-subrc = 0。

描述it_mseg线数据（计数）表。

中频计数> 1。

使用选择屏幕" 1000"提交ZAUTO_FIFO_POST，其中P_MBLNR = GODYNPRO-MAT_DOC
P_MJAHR = GODYNPRO-DOC_YEAR并返回。

CONCATENATE'材料文档'GODYNPRO-MAT_DOC'已发布'到味精，由'分隔。

消息msg类型'S'。

ENDIF。

清除：计数

ENDIF。

ENDIF。

增强。

创建程序= ZAUTO_FIFO_POST

*＆--------------------------------------------- ------------------------ *
*＆报告ZAUTO_FIFO_POST
*＆
*＆-------- -------------------------------------------------- ----------- *
*＆
*＆
*＆----------------------- ---------------------------------------------- *
报告zauto_fifo_post。

* ---------------------------------------- ------------------------------ *
*数据定义
* --------- -------------------------------------------------- ----------- *
*单个事务的Batchinputdata
数据：bdcdata类似于bdcdata OCCURS 0，带有标题行。
*呼叫事务的消息
数据：messtab类似于bdcmsgcoll 带有标题行的OCCURS0。


参数：p_mblnr类型mkpf-mblnr，
p_mjahr类型mkpf-mjahr。

开始选择。

*执行bdc_dynpro使用'SAPMJ1IGRC''0100'。

bdcdata-program ='SAPMJ1IGRC'。
bdcdata-dynpro ='0100'。
bdcdata-dynbegin ='X'。
附加bdcdata。

*执行bdc_field 使用'BDC_CURSOR'
*'MKPF-MJAHR'。
清除bdcdata。
bdcdata-fnam ='BDC_CURSOR'。" fnam。
bdcdata-fval ='MKPF-MJAHR'。" fval。
附加bdcdata。

*执行bdc_field，使用'BDC_OKCODE'
*'= RECO'。
清除bdcdata。
bdcdata-fnam ='BDC_OKCODE'。" fnam。
bdcdata-fval ='= RECO'。" fval。
附加bdcdata。

*执行bdc_field使用'MKPF-MBLNR'
* p_mblnr。 "" 5000353391"。

清除bdcdata。
bdcdata-fnam ='MKPF-MBLNR'。" fnam。
bdcdata-fval = p_mblnr。" fval。
附加bdcdata。


*使用'MKPF-MJAHR'执行bdc_field。* p_mjahr。"'2020'。

清除bdcdata。
bdcdata-fnam ='MKPF-MJAHR'。" fnam。
bdcdata-fval = p_mjahr。" fval。
附加bdcdata。

*执行bdc_field使用'R_FIFO'
*'X'。


清除bdcdata。
bdcdata-fnam ='R_FIFO'。" fnam。
bdcdata-fval ='X'。" p_mjahr'。" fval。
附加bdcdata。

*执行bdc_dynpro使用'SAPMJ1IGRC ''0200'。
清除bdcdata。
bdcdata-program ='SAPMJ1IGRC'。
bdcdata-dynpro ='0200'。
bdcdata-dynbegin ='X'。
附加bdcdata。

*使用'BDC_CURSOR'执行PERC bdc_field
*'MKPF-MBLNR'。

清除bdcdata。
bdcdata-fnam ='BDC_CURSOR'。
bdcdata-fval = 'MKPF-MBLNR'。
附加bdcdata。

*执行bdc_field使用'BDC_OKCODE'
*'= SAVE'。
清除bdcdata。
bdcdata-fnam ='BDC_OKCODE' 。
bdcdata-fval = '= SAVE'。
附加bdcdata。

*使用'J1IGRECON'执行bdc_transaction。

使用bdcdata
呼叫'J'IGRECON'模式'N'
*更新 'L'"将CUPDATE
消息发送到messtab。
提交工作。