IDOC是类似XML的一种
SAP系统与其他系统的一种集成工具。我们在
SAP数据接口技术类型里已经了解了IDOC，下面我们来看看一个例子：
一，Outbound IDOC
1，设置IDOC Type.
(2) WE30, 创建IDOC Type，定义结点间的相互逻辑关系.
先输入YPOIDOC，然后点击创建，紧跟着点击create new进入。在主界面中，先点击创建按钮，将YPOHEAD添加，设置Mandatory seg打勾，min ＝ 1， max ＝ 1，代表我们每个IDOC仅包含一张采购订单。然后在YPOHEAD下添加YPOITEM，同样的Mandatory seg打勾，min ＝ 1， max ＝ 99999.
2，创建Message Type.
(1) WE81，创建Message Type.
先切换到编辑状态，然后点击New Entries，输入YPO即可。
(2) WE82,，关联Message Type和IDOC Type.
3，创建到I02的端口.
首先确保系统内已经有到I02的R/3 Connection（SM59）,如果没有则先创建一个名为I02001。
接着WE21创建Port，类型TRANSACTIONAL RFC，名为I02PORT，RFC destination则填写I02001。
4，SALE，创建Logical System.
SALE, Sending and Receiving Systems，Logical Systems， define logical systems，新增一个logical system，名为I02LS，这将作为下一步的Partner。
Define logical systems下方，有Assign Client to logical system，这里可针对本系统(I04)定义logical system，作为发送IDOC时的发送方标识，我对Client 001的定义是I04LS.
5，WE20，定义我们的Partner profile.
在PARTNER TYPE为logical system下，创建一个patner no为I02LS的partner，type填写LS。
下面的Permitted agent，填写US(User)，Agent为你自己的用户名或某basis人员用户名。
然后，点击outbound下方的加号，创建一个outbound parameter。Message Type为YPO，receiver port为I02PORT，output mode选择transfer idoc immed.，Basic Type填写YPOIDOC，保存即可。
6，编程发送IDOC
设置了这么多，真累啊，总算可以写程序了，是不是很开心呢？
程序的思路就是，把每个
IDOC结点按字符串形式逐个添加，而字符串的添加次序自然也体现了IDOC结点间的逻辑关系。代码如下，
DATA: ls_pohead TYPE ypohead,
ls_poitem TYPE ypoitem,
ls_edidc TYPE edidc,
lt_edidc TYPE TABLE OF edidc,
lt_edidd TYPE TABLE OF edidd WITH HEADER LINE.
CLEAR ls_edidc.
*系统根据下面4行即可与WE20设置关联起来
ls_edidc-mestyp = 'YPO'. "Message Type
ls_edidc-idoctp = 'YPOIDOC'. "IDOC Type
ls_edidc-rcvprn = 'I02LS'. "Partner Number of Recipient
ls_edidc-rcvprt = 'LS'. "Partner Type of Receiver
*添加IDOC结点
CLEAR lt_edidd.
lt_edidd-segnam = 'YPOHEAD'."结点名称
lt_edidd-dtint2 = 0.
CLEAR ls_pohead.
ls_pohead-ebeln = '4001122334'.
ls_pohead-bukrs = '0400'.
ls_pohead-bedat = '20090630'.
lt_edidd-sdata = ls_pohead. "结点内容
APPEND lt_edidd.
CLEAR lt_edidd.
lt_edidd-segnam = 'YPOITEM'.
lt_edidd-dtint2 = 0.
CLEAR ls_poitem.
ls_poitem-ebeln = '4001122334'.
ls_poitem-ebelp = '0001'.
ls_poitem-matnr = '000000000000004527'.
ls_poitem-menge = '3'.
ls_poitem-meins = 'ST'.
lt_edidd-sdata = ls_poitem.
APPEND lt_edidd.
CLEAR lt_edidd.
lt_edidd-segnam = 'YPOITEM'.
lt_edidd-dtint2 = 0.
CLEAR ls_poitem.
ls_poitem-ebeln = '4001122334'.
ls_poitem-ebelp = '0002'.
ls_poitem-matnr = '000000000000009289'.
ls_poitem-menge = '5'.
ls_poitem-meins = 'M'.
lt_edidd-sdata = ls_poitem.
APPEND lt_edidd.
CALL FUNCTION 'MASTER_IDOC_DISTRIBUTE'
EXPORTING
master_idoc_control = ls_edidc "Export
TABLES
communication_idoc_control = lt_edidc "Import
master_idoc_data = lt_edidd "Export
EXCEPTIONS
error_in_idoc_control = 1
error_writing_idoc_status = 2
error_in_idoc_data = 3
sending_logical_system_unknown = 4
OTHERS = 5.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ELSE.
COMMIT WORK.
WRITE: 'Idoc sent:'.
LOOP AT lt_edidc INTO ls_edidc.
NEW-LINE.
WRITE: 'Idoc number is', ls_edidc-docnum,
'; receiver partner is', ls_edidc-rcvprn,
'; sender partner',ls_edidc-sndprn.
ENDLOOP.
ENDIF.
7，查看IDOC.
WE05可以查看我们刚刚发送的IDOC， BD87还可对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，至此，我们的设置已经完毕。
SAP系统接收到从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。
加载中...
[复制链接]
IP卡
狗仔卡
发表于 2010-12-9 15:51:09
提升卡
置顶卡
沉默卡
喧嚣卡
鍙樿壊鍗
鏄捐韩鍗
发表于 2011-3-29 13:23:39