SAP 自定義IDoc實例

惨绿少年.

发布于 2021-03-04 04:12:55

62200

代码可运行

文章被收录于专栏：ABAPABAP

运行总次数：0

代码可运行

IDoc接口應用于SAP系統與其他系統的業務數據交換過程，包含數據結構的定義以及數據的處理邏輯，其中的數據結構即為IDoc（intermediate document).IDoc是一種系統間通用的數據交換格式，通過IDoc，SAP系統可以和SAP系統和非SAP系統進行數據交換。

發送端配置

Create RFC Destination(SM59）

Define Logical System(SALE)

Assign Logical System to Client

只需要添加接收端的logical System

Development segments(WE31)

Segment type 名字前三位不能有“_,"不然會報錯無法保存創建完成后，會自動生成一個結構體。

Develop IDoc Types(WE30)

Create Message Type(WE81)

Binding Message types and IDoc types(WE82)

Release 填系統版本

Create Disturbution Model(BD64)

先創建Model view ，然後添加剛創建的Message type

Automatic generation PORT and Partners profiles(BD82)

全是綠色就是成功了，我這個已經有了，所有都是已經存在。如果有報錯的話，按報錯提示再處理。

Ports in IDoc Processing(WE21) 在we21中查看是否生成成功

Partner profiles(WE20) 在we20中查看生成信息

Create program send IDoc

REPORT zt_new_user.

TABLES: ztab_create_user.
DATA: gs_tabinfo TYPE ztnew_user,
      gs_edidc   TYPE edidc,
      gt_edidc   TYPE TABLE OF edidc,
      gt_edidd   TYPE TABLE OF edidd WITH HEADER LINE.
CLEAR gt_edidc.
gs_edidc-mestyp = 'ZTN_USER'.
gs_edidc-idoctp = 'ZT_NEW_USER'.
gs_edidc-rcvprn = 'IDES800'.
gs_edidc-rcvprt = 'LS'.

CLEAR: gs_tabinfo,
       gt_edidd.
gt_edidd-segnam = 'ZTNEW_USER'.
gt_edidd-dtint2 = 0.
gs_tabinfo-username = 'TEST03'.
gs_tabinfo-password = '12345678'.
gs_tabinfo-firstname = 'ASD'.
gs_tabinfo-lastname = 'asdff'.
gt_edidd-sdata = gs_tabinfo.
APPEND gt_edidd.
CALL FUNCTION 'MASTER_IDOC_DISTRIBUTE'
  EXPORTING
    master_idoc_control            = gs_edidc
  TABLES
    communication_idoc_control     = gt_edidc
    master_idoc_data               = gt_edidd
  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.
  COMMIT WORK.
  WRITE: 'IDoc sent'.
  LOOP AT gt_edidc INTO gs_edidc.
    NEW-LINE.
    WRITE: 'IDoc Nnumber is', gs_edidc-docnum,
           '; Receiver partner is', gs_edidc-rcvprn,
           '; Sender partner',gs_edidc-sndprn.
  ENDLOOP.
ENDIF.

接收端配置

下面是接收端配置，如果發送方和接收方在同一服務器下，第2步至第7步則無需配置。

Create Inbound Function module

FUNCTION ZCREATE_USER.
*"----------------------------------------------------------------------
*"*"Local Interface:
*"  IMPORTING
*"     VALUE(INPUT_METHOD) LIKE  BDWFAP_PAR-INPUTMETHD
*"     VALUE(MASS_PROCESSING) LIKE  BDWFAP_PAR-MASS_PROC
*"  EXPORTING
*"     VALUE(WORKFLOW_RESULT) TYPE  BDWF_PARAM-RESULT
*"     VALUE(APPLICATION_VARIABLE) TYPE  BDWF_PARAM-APPL_VAR
*"     VALUE(IN_UPDATE_TASK) TYPE  BDWFAP_PAR-UPDATETASK
*"     VALUE(CALL_TRANSACTION_DONE) TYPE  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
*"----------------------------------------------------------------------
 TABLES: ztab_create_user.
  DATA: ls_tabinfo TYPE ZTNEW_USER.
  DATA: ls_tab LIKE ztab_create_user OCCURS 0 WITH HEADER LINE.
  data: logondata like BAPILOGOND,
        address like BAPIADDR3,
        return like TABLE OF BAPIRET2 with HEADER LINE.
  CLEAR idoc_contrl.
  READ TABLE idoc_contrl INDEX 1.
  IF idoc_contrl-mestyp <> 'ZTN_USER'.
    RAISE wrong_function_called.
  ENDIF.
  LOOP AT idoc_contrl.
    LOOP AT idoc_data WHERE docnum = idoc_contrl-docnum.
      CASE idoc_data-segnam.
        WHEN 'ZTNEW_USER'.
          ls_tabinfo = idoc_data-sdata.
          MOVE-CORRESPONDING ls_tabinfo TO ls_tab.
          address-firstname = ls_tab-firstname.
          address-lastname = ls_tab-lastname.
          CALL FUNCTION 'BAPI_USER_CREATE1'
            EXPORTING
              username                      = ls_tab-username
              logondata                     = logondata
              password                      = ls_tab-password
              address                       = address
           TABLES
             RETURN                        = return.
        WHEN OTHERS.
      ENDCASE.
    ENDLOOP.
    IF sy-subrc = 0.
      CLEAR idoc_status.
      idoc_status-docnum = idoc_contrl-docnum.
      idoc_status-status = '53'.
      APPEND idoc_status.
    ELSE.
      CLEAR idoc_status.
      idoc_status-docnum = idoc_contrl-docnum.
      idoc_status-status = '51'.
      idoc_status-msgty = 'E'.
      idoc_status-msgid = 'YMSG'.
      idoc_status-msgno = '001'.
      APPEND idoc_status.
    ENDIF.
  ENDLOOP.
ENDFUNCTION.