自定义IDOC

阅读原文时间：2023年07月14日阅读：1

1需求场景 4

2配置发送端IDOC 4

2.1定义段（WE31） 4

3.1创建接收端RFC目标（SM59） 14

3.2创建接收端的端口（WE21） 14

3.3定义逻辑系统并分配集团（SALE） 14

3.4创建接收端程序 14

3.5注册入站处理函数（BD51） 16

3.6将入站函数与基本类型/消息类型关联（WE57） 16

3.7创建进站处理代码（WE42） 16

3.8创建发送端合作伙伴配置文件（WE20） 16

4测试IDOC 17

1需求场景

可以通过配置IDOC，在相同系统不同客户端之间传输数据，也可以在不同SAP系统中传输数据。

2配置发送端IDOC

1.定义段类型，包含需要传输的字段

2.创建成功后设置批准

1.创建开发对象

2.将段维护到基本类型

1. 定义消息类型

2.WE82把基本类型分配给消息类型

1.定义一个表类型

2.定义行类型

1. 创建RFC目标连接

2输入目标系统账户名密码

1. 定义逻辑系统

1. 将逻辑系统分配到集团

在发送端不需要分配300逻辑系统到集团，但是300逻辑系统需要在接收端配置时分配

输入城市、逻辑系统、货币保存

创建模型视图

双击检查该维护系统是否正确

添加消息类型

点击生成合作伙伴参数文件

生成成功

点击更改参数文件

1. 创建一个接口，用于程序调用，发送IDOC数据到目标系统

2.源代码

FUNCTION zmakt_idoc_send.

*"----------------------------------------------------------------------
*"*"本地接口：
*" TABLES
*" ZTMAKT TYPE ZTMAKT OPTIONAL
*" EXCEPTIONS
*" NO_IDOC
*" NO_MODEL
*"----------------------------------------------------------------------
*常规变量
DATA:
*IDoc的控制记录
idoc_control LIKE edidc,
*IDoc的数据记录
t_idoc_data LIKE edidd OCCURS WITH HEADER LINE,
*MASTER_IDOC_CONTROL创建的IDoc的表
t_comm_control LIKE edidc OCCURS WITH HEADER LINE,
*逻辑系统的伙伴类型
c_partner_type_logical_system LIKE edidc-rcvprt,
*帮助变量检查是否必须创建IDoc
h_create_idoc.
* 特定的变量
DATA:
* IDoc段结构
zsmakt TYPE zsmakt,
* 要输入控制记录的数据
c_message_type LIKE edidc-mestyp VALUE 'ZMAKTMAS',
c_base_idoc_type LIKE edidc-idoctp VALUE 'ZMAKT_TYPE',
* 段类型
c_header_segtyp LIKE edidd-segnam VALUE 'ZMAKT'.

CLEAR:zsmakt.
zsmakt-matnr = ''.
zsmakt-maktx = '测试物料描述'.
APPEND zsmakt TO ztmakt.

* 检查这个IDOC是否被创建，读取组件
CALL FUNCTION 'ALE_MODEL_DETERMINE_IF_TO_SEND'
EXPORTING
message_type = c_message_type
* SENDING_SYSTEM = ' '
* RECEIVING_SYSTEM = ' '
* VALIDDATE = SY-DATUM
IMPORTING
idoc_must_be_sent = h_create_idoc.
* exceptions
* own_system_not_defined = 1
* others = 2.
IF h_create_idoc IS INITIAL.
RAISE no_model.
* no message flow maintained in the model, nothing to do
EXIT.
ENDIF.
* 将表头放入IDOC
LOOP AT ztmakt.
MOVE-CORRESPONDING ztmakt TO zsmakt.
* 将记录添加到IDOC数据表
t_idoc_data-segnam = c_header_segtyp.
t_idoc_data-sdata = zsmakt.
APPEND t_idoc_data.
ENDLOOP.
idoc_control-mestyp = c_message_type.
idoc_control-idoctp = c_base_idoc_type.
CALL FUNCTION 'MASTER_IDOC_DISTRIBUTE'
* 在更新任务中"如果应用程序文档在更新任务中发布
EXPORTING
master_idoc_control = idoc_control
TABLES
communication_idoc_control = t_comm_control
master_idoc_data = t_idoc_data
EXCEPTIONS
error_in_idoc_control =
error_writing_idoc_status =
error_in_idoc_data =
sending_logical_system_unknown =
OTHERS = .
COMMIT WORK.
READ TABLE t_comm_control INDEX .
IF sy-subrc <> .
RAISE no_idoc.
* no IDoc was created, you can react here, if neccessary
ENDIF.
ENDFUNCTION.

3配置接收端IDOC

以上配置都是在200系统（源系统）中配置，以下配置都是在300系统（目标系统）中配置

该文档记录的是在同一服务器的不通客户端传输数据，又由于段类型、基本类型、消息类型都是跨Client的，所以2.1 、2.2 、2.3不需要在300系统再次配置了（但如果不是在同一服务器上，则需要像上面那样进行配置）

与发送端一致，可参考上边操作，关联上发送端的目标地址和实例号

参照2.6

参照2.7 、2.8

这个函数的参数接口是有规范的，可以从IDOC_INPUT_BBP_IV这些标准函数拷贝参数接口部分

源代码部分：

FUNCTION ZIDOC_PO_PROCESS.
*"----------------------------------------------------------------------
*"*"本地接口：
*" IMPORTING
*" VALUE(INPUT_METHOD) LIKE BDWFAP_PAR-INPUTMETHD
*" VALUE(MASS_PROCESSING) LIKE BDWFAP_PAR-MASS_PROC
*" EXPORTING
*" VALUE(WORKFLOW_RESULT) LIKE BDWF_PARAM-RESULT
*" VALUE(APPLICATION_VARIABLE) LIKE BDWF_PARAM-APPL_VAR
*" VALUE(IN_UPDATE_TASK) LIKE BDWFAP_PAR-UPDATETASK
*" VALUE(CALL_TRANSACTION_DONE) LIKE BDWFAP_PAR-CALLTRANS
*" TABLES
*" IDOC_CONTRL STRUCTURE EDIDC
*" IDOC_DATA STRUCTURE EDIDD
*" IDOC_STATUS STRUCTURE BDIDOCSTAT
*" RETURN_VARIABLES STRUCTURE BDWFRETVAR
*" SERIALIZATION_INFO STRUCTURE BDI_SER
*" EXCEPTIONS
*" WRONG_FUNCTION_CALLED
*" OTHERS
*"----------------------------------------------------------------------
DATA: zsmakt TYPE zsmakt.

CLEAR idoc_contrl.
READ TABLE idoc_contrl INDEX .
IF idoc_contrl-mestyp <> 'ZMAKTMAS'.
RAISE wrong_function_called.
ENDIF.
LOOP AT idoc_contrl.
LOOP AT idoc_data WHERE docnum = idoc_contrl-docnum.
"直接将字符赋值给结构，贬值过程中会按照结构中的字段长度来划分各字段
zsmakt = idoc_data-sdata.
WRITE: / 'Head',zsmakt. "此处直接把收到的数据打印出来
ENDLOOP.
"根据数据处理情况设置当前IDoc处理的状态
IF = .
CLEAR idoc_status.
idoc_status-docnum = idoc_contrl-docnum."当前正处理的IDoc
idoc_status-status = ''. "IDOC处理成功
APPEND idoc_status.
ELSE.
CLEAR idoc_status.
idoc_status-docnum = idoc_contrl-docnum.
idoc_status-status = ''. "IDOC不成功
idoc_status-msgty = 'E'. "错误信息
idoc_status-msgid = 'YMSG'.
idoc_status-msgno = ''.
APPEND idoc_status.
ENDIF.
ENDLOOP.
ENDFUNCTION.