zoukankan      html  css  js  c++  java
  • 自定义IDOC配置

    目录

    1需求场景    4

    2配置发送端IDOC    4

    2.1定义段(WE31    4

    2.2定义基本类型(WE30    4

    2.3定义消息类型(WE81    5

    2.4定义传输结构    5

    2.5创建RFC目标(SM59    6

    2.6创建接收端端口(WE21    6

    2.7配置发送端逻辑系统(SALE    7

    2.8分配逻辑系统    7

    2.9维护分布模型和视图    8

    2.10发送端程序    12

    3配置接收端IDOC    14

    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

    2.1定义段(WE31)

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

    2.创建成功后设置批准

    2.2定义基本类型(WE30)

    1.创建开发对象

    2.将段维护到基本类型

    2.3定义消息类型(WE81)

    1. 定义消息类型

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

    2.4定义传输结构

    1.定义一个表类型

    2.定义行类型

    2.5创建RFC目标(SM59)

    1. 创建RFC目标连接

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

    2.6创建接收端端口(WE21)

    2.7配置发送端逻辑系统(SALE)

    1. 定义逻辑系统

    2.8分配逻辑系统

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

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

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

    2.9维护分布模型和视图

    创建模型视图

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

    添加消息类型

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

    生成成功

    点击更改参数文件

    2.10发送端程序

    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 0 WITH HEADER LINE,
    *MASTER_IDOC_CONTROL创建的IDoc的表
            t_comm_control LIKE edidc OCCURS 0 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 = '000000000123456789'.
      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          = 1
        error_writing_idoc_status      = 2
        error_in_idoc_data             = 3
        sending_logical_system_unknown = 4
        OTHERS                         = 5.
      COMMIT WORK.
      READ TABLE t_comm_control INDEX 1.
      IF sy-subrc <> 0.
        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系统再次配置了(但如果不是在同一服务器上,则需要像上面那样进行配置)

    3.1创建接收端RFC目标(SM59)

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

    3.2创建接收端的端口(WE21)

    参照2.6

    3.3定义逻辑系统并分配集团(SALE)

    参照2.7 、2.8

    3.4创建接收端程序

    这个函数的参数接口是有规范的,可以从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 1.
      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 1 = 0.
          CLEAR idoc_status.
          idoc_status-docnum = idoc_contrl-docnum."当前正处理的IDoc
          idoc_status-status = '53'. "IDOC处理成功
          APPEND idoc_status.
        ELSE.
          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.
    ENDFUNCTION.

    3.5注册入站处理函数(BD51)

    3.6将入站函数与基本类型/消息类型关联(WE57)

    3.7创建进站处理代码(WE42)

    3.8创建发送端合作伙伴配置文件(WE20)

    1. 创建合作伙伴类型,添加进站消息类型

    双击消息类型

    4测试IDOC

    1.运行程序,调用发送端接口,执行成功之后,运行事务代码BD87查看结果。如果未黄灯,可以点击处理,再次执行。

    2.在接收程序里面打上断点,处理接收的IDOC,发现进入断点,数据也传输过去了

  • 相关阅读:
    微信网页授权功能来获取用户信息(昵称或头像)之php实现
    你人生的那口井挖好了吗?
    java项目打jar包
    Oracle 客户端配置笔记
    资源管理右键卡住的问题
    Java Web 项目学习(二) 开发注册功能
    Java Web 项目学习(三) 过滤敏感词 前缀树 反射 类加载
    Java Web 项目学习(二) 检查登录状态
    Java Web 项目学习(二)账号设置
    Java Web 项目学习(二) 显示登录信息
  • 原文地址:https://www.cnblogs.com/BinGeneral/p/12867230.html
Copyright © 2011-2022 走看看