SAP 本地发送IDOC

  DATA: V_DO_HANDLE_ERROR         TYPE EDIGENERAL-ERRHANDLE,
        LS_EDIDC                  TYPE EDIDC,
        V_INBOUND_PROCESS_DATA_IN TYPE TEDE2,
        LT_EDIDC                  TYPE STANDARD TABLE OF EDIDC.

  DATA: SYSTEM_NAME TYPE CHAR10.

*获取本地系统参数
  LS_EDIDC-SNDPRN = 'SYS_HUA'.
  LS_EDIDC-RCVPRN = 'SAPDEV'.
  LS_EDIDC-RCVPOR = 'SAPDEV'.
  LS_EDIDC-RCVPRT = 'LS'.
  CONCATENATE 'SAP' SY-SYSID INTO SYSTEM_NAME.

  LS_EDIDC-SNDPOR = SYSTEM_NAME.
  LS_EDIDC-SNDPRT = 'LS'.


  LS_EDIDC-MESTYP =  'ZDER0010_MSG'. "信息类型
  LS_EDIDC-IDOCTP =  'ZDER0010_IDOC'. "IDOC 类型
  LS_EDIDC-DIRECT = '2'.

  CALL FUNCTION 'IDOC_INBOUND_WRITE_TO_DB'
    EXPORTING
      PI_DO_HANDLE_ERROR      = V_DO_HANDLE_ERROR
      PI_RETURN_DATA_FLAG     = ' '
    IMPORTING
      PE_IDOC_NUMBER          = LS_EDIDC-DOCNUM
      PE_INBOUND_PROCESS_DATA = V_INBOUND_PROCESS_DATA_IN
    TABLES
      T_DATA_RECORDS          = LT_EDIDD

    CHANGING
      PC_CONTROL_RECORD       = LS_EDIDC  "Control Data
    EXCEPTIONS
      IDOC_NOT_SAVED          = 1
      OTHERS                  = 2.


  APPEND LS_EDIDC TO LT_EDIDC.

  CALL FUNCTION 'IDOC_START_INBOUND'
    EXPORTING
      PI_INBOUND_PROCESS_DATA = V_INBOUND_PROCESS_DATA_IN
      PI_CALLED_ONLINE        = 'X'
      SUCC_SHOW_FLAG          = 'X'
    TABLES
      T_CONTROL_RECORDS       = LT_EDIDC
    EXCEPTIONS
      OTHERS                  = 1.
*生成IDOC后，直接进入IODC处理函数进行逻辑处理