SAP IDOC测试

IDOC测试……对于这些标准的IDOC，只要做相应配置就可以启用。

下面的测试是创建自定义的消息类型，IDOC类型和相关处理程序。

两个Client,138和118，138作为发送端，118为接收端。

Outbound IDOC :138端的配置1 设置IDOC Type.1.1 WE31，创建segment。

这里先输入YPOHEAD，点击创建，在接下来的屏幕中，录入EBELN, BUKRS, BEDAT等字段及他们对应的data element。

接着创建YPOITEM，输入EBELN, EBELP, MATNR, MENGE, MEINS等字段及他们对应的data element。

1.2 WE30, 创建IDOC Type，定义结点间的相互逻辑关系.先输入YPOIDOC，然后点击创建，紧跟着点击create new进入。

在主界面中，先点击创建按钮，将YPOHEAD添加，设置Mandatory seg打勾，min ＝1，max ＝1，代表我们每个IDOC 仅包含一张采购订单。

然后在YPOHEAD下添加YPOITEM，同样的Mandatory seg打勾，min ＝1，max ＝999。

最后如下：2 创建Message Type.2.1 WE81，创建Message Type.先切换到编辑状态，然后点击New Entries，输入YPO即可。

2.2 WE82，关联Message Type和IDOC Type.3，创建到118的端口.3.1 SM59，创建到接收端的连接3.2 WE21，创建PortWE21创建Port，类型TRANSACTIONAL RFC，名为DEV118-1。

4 创建并分配Logical System。

4.1 BD54，创建逻辑系统4.2 SCC4，分配逻辑系统给CLIENT。

分配R3P118给客户端118，如下：分配R3P138给客户端138，截图略5 WE20，定义Partner profile。

在PARTNER TYPE为logical system下，创建一个patner no为R3P118的partner，type填写LS。

下面的Post processing:Permitted agent，填写US(User)，Agent为你自己的用户名或某basis 人员用户名。

然后，点击outbound下方的加号，创建一个outbound parameter。

Message Type 为YPO，receiver port为DEV118-1，output mode选择transfer idoc immed.，Basic Type填写YPOIDOC，保存即可。

出站参数设置如下在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 编程发送IDOCREPORT ytestidoc_o.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.DATA: L_ebeln TYPE ebeln.CLEAR ls_edidc.*系统根据下面4行即可与WE20设置关联起来ls_edidc-mestyp = 'YPO'. "message typels_edidc-idoctp = 'YPOIDOC'. "idoc typels_edidc-rcvprn = 'R3P118'. "partner number of recipient ls_edidc-rcvprt = 'LS'. "partner type of receiverL_ebeln = '0310101222'.*添加IDOC结点CLEAR lt_edidd.lt_edidd-segnam = 'YPOHEAD'. "结点名称lt_edidd-dtint2 = 0.CLEAR ls_pohead.ls_pohead-ebeln = L_ebeln.LS_POHEAD-BUKRS = 'HCTH'.ls_pohead-bedat = '20140827'.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 = L_ebeln.ls_poitem-ebelp = '0010'.ls_poitem-matnr = '141-50007-011002'.LS_POITEM-MENGE = '100'.ls_poitem-meins = 'ST'.lt_edidd-sdata = ls_poitem.APPEND lt_edidd.CLEAR lt_edidd.CALL FUNCTION 'MASTER_IDOC_DISTRIBUTE'EXPORTINGmaster_idoc_control = ls_edidc* OBJ_TYPE = ''* CHNUM = ''TABLEScommunication_idoc_control = lt_edidcmaster_idoc_data = lt_ediddEXCEPTIONSERROR_IN_IDOC_CONTROL = 1ERROR_WRITING_IDOC_STATUS = 2ERROR_IN_IDOC_DATA = 3SENDING_LOGICAL_SYSTEM_UNKNOWN = 4OTHERS = 5.IF sy-subrc <> 0.MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNOWITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.ELSE.* COMMIT WORK.CALL FUNCTION 'DB_COMMIT'.CALL FUNCTION 'DEQUEUE_ALL'.COMMIT WORK AND WAIT.CALL FUNCTION 'EDI_DOCUMENT_DEQUEUE_LATER'EXPORTINGdocnum = ls_edidc-docnumEXCEPTIONSidoc_is_not_to_dequeue = 1OTHERS = 2.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.---------------------------------------------------------------------------------------------------------------------------------Inbound IDOC :118端的配置1 创建IDOC Type和Message Type.与上面Outbound Idoc中的前两个步骤完全一样。

（因为是跨客户端的，如果是同一个系统就省了这步）2 SM37，创建一个function：Y_IDOC_PO_PROCESS.当IDOC设置完毕之后，SAP可以自动调用该Funtion Module处理IDOC。

所以这个函数的接口都是规范的。

下面步骤中将介绍的tcode：BD51中可以查询到很多Inbound Function，比如IDOC_INPUT_BBP_IV，可参照创建我们的接口。

接下来就可以写我们的代码了，为了简化，这里仅仅将接收到的数据存入表中，先创建两个表YPOHEAD02和YPOITEM02，字段参考WE31中的YPOHEAD和YPOITEM。

然后写入下面代码：DATA: lv_subrc LIKE sy-subrc,ls_chead TYPE ypohead,ls_citem TYPE ypoitem,ls_pohead TYPE ypohead02,lt_poitem TYPE TABLE OF ypoitem02 WITH HEADER LINE.CLEAR idoc_contrl.READ TABLE idoc_contrl INDEX 1.IF idoc_contrl-mestyp NE '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 ypohead02 FROM ls_pohead.IF sy-subrc EQ 0.INSERT ypoitem02 FROM TABLE lt_poitem.lv_subrc = sy-subrc.ELSE.* 订单号已经存在lv_subrc = sy-subrc.ENDIF.IF lv_subrc EQ 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即可。