IDOC读取

最新推荐文章于 2023-03-08 14:08:16 发布

saptopia

最新推荐文章于 2023-03-08 14:08:16 发布

阅读量966

点赞数

CC 4.0 BY-SA版权

分类专栏： ABAP 应用文章标签： struct excel download header structure byte

本文链接：https://blog.youkuaiyun.com/saptopia/article/details/1758441

该博客详细介绍了如何在SAP中读取IDOC数据，并使用ABAP函数模块进行处理。通过调用'IDOC_READ_COMPLETELY'和相关函数，解析并展示IDOC结构和数据记录。如果选择下载选项，程序还会将数据导出到Excel文件。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

DATA: idoc_control LIKE edidc,
      number_of_data_records LIKE sy-dbcnt,
      number_of_status_records LIKE sy-dbcnt,
      int_edids LIKE edids OCCURS 0 WITH HEADER LINE,
      int_edidd LIKE edidd OCCURS 0 WITH HEADER LINE.

TYPE-POOLS : ledid.

DATA: struct_type TYPE ledid_struct_type ,
      idoc_struct TYPE ledid_t_idoc_struct,
      segments TYPE ledid_t_segment,
      segment_struct TYPE ledid_t_segment_struct,
      excel_tab(2000) OCCURS 0 WITH HEADER LINE.

PARAMETER: docnum LIKE edidc-docnum OBLIGATORY, ""Idoc Number
           sap_rel LIKE sy-saprl DEFAULT sy-saprl OBLIGATORY,
           pi_ver LIKE edi_verrec-version DEFAULT '3' OBLIGATORY,
           d_excel AS CHECKBOX DEFAULT 'X'. ""Download ?

START-OF-SELECTION.
PERFORM read_idoc.
PERFORM process_idoc.
IF d_excel = 'X'.
PERFORM download_to_excel.
ENDIF.

END-OF-SELECTION.

*&--------------------------------------------------------------------*
*&      Form read_idoc
*&--------------------------------------------------------------------*
*       text
*---------------------------------------------------------------------*
FORM read_idoc.
CALL FUNCTION 'IDOC_READ_COMPLETELY'
    EXPORTING
      document_number          = docnum
    IMPORTING
      idoc_control             = idoc_control
      number_of_data_records   = number_of_data_records
      number_of_status_records = number_of_status_records
    TABLES
      int_edids                = int_edids
      int_edidd                = int_edidd
    EXCEPTIONS
      document_not_exist       = 1
      document_number_invalid = 2
      OTHERS                   = 3.
IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.

ENDFORM. "" read_idoc

*&--------------------------------------------------------------------*
*&      Form process_idoc
*&--------------------------------------------------------------------*
*       text
*---------------------------------------------------------------------*
FORM process_idoc.
PERFORM read_idoc_structure.
PERFORM display_data_records.
ENDFORM.                    "" process_idoc

*&--------------------------------------------------------------------*
*& Form display_data_records
*&--------------------------------------------------------------------*
* text
*---------------------------------------------------------------------*
FORM display_data_records.

DATA: pe_seg_header LIKE edi_sapi01,
        segname LIKE edi_iapi12-segmenttyp,
        prev_segname LIKE edi_iapi12-segmenttyp VALUE ' ',
        pt_fields2 LIKE edi_iapi12 OCCURS 0 WITH HEADER LINE,
        pt_fvalues2 LIKE edi_iapi14 OCCURS 0 WITH HEADER LINE,