ABAP--如何创建动态结构的报表

最新推荐文章于 2023-11-17 10:02:14 发布

原创最新推荐文章于 2023-11-17 10:02:14 发布 · 349 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#报表 #structure #table #subroutine #insert #report

本文介绍如何在ABAP中使用cl_alv_table_create类动态创建表，并填充数据。通过构建字段目录、创建动态表及插入数据的过程，展示了完整的实现步骤。

1、使用cl_alv_table_create=>create_dynamic_table

REPORT zmaschl_create_data_dynamic .

TYPE-POOLS: slis.

DATA: it_fcat TYPE slis_t_fieldcat_alv,
      is_fcat LIKE LINE OF it_fcat.
DATA: it_fieldcat TYPE lvc_t_fcat,
      is_fieldcat LIKE LINE OF it_fieldcat.
DATA: new_table TYPE REF TO data.
DATA: new_line TYPE REF TO data.
FIELD-SYMBOLS: TYPE ANY TABLE,
               TYPE ANY,
               TYPE ANY.

* Build fieldcat
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
       EXPORTING
           i_structure_name = 'SYST'
       CHANGING
           ct_fieldcat      = it_fcat[].
   LOOP AT it_fcat INTO is_fcat WHERE NOT reptext_ddic IS initial.
        MOVE-CORRESPONDING is_fcat TO is_fieldcat.
        is_fieldcat-fieldname = is_fcat-fieldname.
        is_fieldcat-ref_field = is_fcat-fieldname.
        is_fieldcat-ref_table = is_fcat-ref_tabname.
        APPEND is_fieldcat TO it_fieldcat.
   ENDLOOP.

* Create a new Table
CALL METHOD cl_alv_table_create=>create_dynamic_table
       EXPORTING
        it_fieldcatalog = it_fieldcat
       IMPORTING
        ep_table        = new_table.

* Create a new Line with the same structure of the table.
ASSIGN new_table->* TO .
CREATE DATA new_line LIKE LINE OF .
ASSIGN new_line->* TO .

* Test it...
   DO 30 TIMES.
      ASSIGN COMPONENT 'SUBRC' OF STRUCTURE TO .
      = sy-index.
      INSERT INTO TABLE .
   ENDDO.

   LOOP AT ASSIGNING .
      ASSIGN COMPONENT 'SUBRC' OF STRUCTURE TO .
      WRITE .
   ENDLOOP.

2、使用动态创建临时程序 generate subroutine pool code name prog
                           message msg
                           line    lin
                           word    wrd
                           offset off.并调。

Trackback: http://tb.blog.youkuaiyun.com/TrackBack.aspx?PostId=1175996