IDOC实例, Inbound IDOC

这里将继续沿用上篇文章的例子，讲述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。