IDOC实例, Inbound IDOC

    技术2022-05-20  41

    这里将继续沿用上篇文章的例子,讲述I02对接收到的采购订单信息进行的相关处理。   1,创建IDOC Type和Message Type. 与上篇Outbound Idoc中的前两个步骤完全一样。   2,创建一个function:Y_IDOC_PO_PROCESS. 当IDOC设置完毕之后,SAP可以自动调用该Funtion Module处理IDOC。所以这个函数的接口都是规范的。 下面步骤中将介绍的tcode:BD51中可以查询到很多Inbound Function,比如IDOC_INPUT_BBP_IV,可参照创建我们的接口。 接下来就可以写入我们的代码,根据IDOC内容,创建相应的销售订单。为了简化,这里我们仅仅将其存到数据库表里面,请先创建两个表Y02_POHEAD和Y02_POITEM,字段参考WE31中的YPOHEAD和YPOITEM。然后写入下面代码:   DATA: lv_subrc LIKE sy-subrc,       ls_chead TYPE ypohead,       ls_citem TYPE ypoitem,       ls_pohead TYPE y02_pohead,       lt_poitem TYPE TABLE OF y02_poitem WITH HEADER LINE.     CLEAR idoc_contrl.   READ TABLE idoc_contrl INDEX 1.   IF idoc_contrl-mestyp <> 'YPO'.     RAISE wrong_function_called.   ENDIF.   LOOP AT idoc_contrl.     CLEAR: ls_pohead, lt_poitem[].     LOOP AT idoc_data WHERE docnum = idoc_contrl-docnum.       CASE idoc_data-segnam.         WHEN 'YPOHEAD'.           CLEAR: ls_chead, ls_pohead.           ls_chead = idoc_data-sdata.           MOVE-CORRESPONDING ls_chead TO ls_pohead.         WHEN 'YPOITEM'.           CLEAR: ls_citem, lt_poitem.           ls_citem = idoc_data-sdata.           MOVE-CORRESPONDING ls_citem TO lt_poitem.           APPEND lt_poitem.         WHEN OTHERS.       ENDCASE.     ENDLOOP.     lv_subrc = 0.     INSERT y02_pohead FROM ls_pohead.     IF sy-subrc = 0.       INSERT y02_poitem FROM TABLE lt_poitem.       lv_subrc = sy-subrc.     ELSE. "订单号已经存在       lv_subrc = sy-subrc.     ENDIF.     IF lv_subrc = 0.       COMMIT WORK.       CLEAR idoc_status.       idoc_status-docnum = idoc_contrl-docnum.       idoc_status-status = '53'. "IDOC处理成功       APPEND idoc_status.     ELSE.       ROLLBACK WORK.       CLEAR idoc_status.       idoc_status-docnum = idoc_contrl-docnum.       idoc_status-status = '51'. "IDOC不成功       idoc_status-msgty = 'E'. "错误信息       idoc_status-msgid = 'YMSG'.       idoc_status-msgno = '001'.       APPEND idoc_status.     ENDIF.   ENDLOOP.   3,在BD51中注册我们的Function Module. 在编辑状态下,点击New Entries,填入函数名Y_IDOC_PO_PROCESS,Input Type=1即可。   4,在WE57中将Function Module与IDOC Type/Message Type关联 点击New Entries,Function Module输入Y_IDOC_PO_PROCESS,其下的Type填写F;IDOC Type下的Basic Type填写YPOIDOC;Message Type填写YPO;Direction填写2(Inbound)。   5,WE42,创建Inbound Process Code. 注意该步骤必须在BD51和WE57之后,否则将出现错误提示。 创建新条目,Process Code输入YPC_PO,在Option ALE下选择Processing with ALE service,在Processing Type下选择function module。保存后,在随后的窗口中,输入Inbound Module为Y_IDOC_PO_PROCESS。   6,WE20,维护Partner Profiles. 首先确保SALE中已经维护好了对应于接收方的Logical System,假设名称为I04LS。 (WE05查看您的Inbound IDOC, 均可看到其Partner名称,这就是我们所需要的。) 本步骤与上篇的WE20类似,不同的是,这里是维护从I04LS过来的Inbound Parameters。 Message Type输入YPO,Process Type输入YPC_PO,然后选中"Trigger immediately"即可。   7,至此,我们的设置已经完毕。系统接收到从I04传来的IDOC后即会立刻处理。 同时,各位针对上篇做过练习的朋友,系统中应该会遗留几个处于出错状态的IDOC吧?可以用BD87,在主界面上选中结点YPO后,点击Process按钮,一次性处理。处理前,顺便在SE37中打开Y_IDOC_PO_PROCESS并设置几个断点即可调试。   补充: (1)如果状态码为56,则应该是您的WE20没设置好; (2)由于上面代码中控制了不能插入同样的采购单号,所以只有一个Inbound IDOC将处理成功(状态码53),其余将失败(状态码51)。只要新发送的IDOC赋于不同的采购单号即可避免。 (3)Outbound的状态码是0-50,03代表OK;Inbound的状态码则是50-99,53代表OK。

    最新回复(0)