动态报表 - 海边星

【转载】动态报表

栏目：ABAP 作者：在海边看星星阅读：（1347）更新于：2023-03-30 13:55

REPORT  zdyn_test.
FIELD-SYMBOLS: <dyn_table> TYPE STANDARD TABLE,
<dyn_wa>,
<dyn_field>.
DATA: dy_table TYPE REF TO data,
     dy_line  TYPE REF TO data,
     it_structure TYPE lvc_t_fcat,
     wa_structure TYPE lvc_s_fcat.
START-OF-SELECTION.
PERFORM create_structure.  " 定义内表的结构
PERFORM create_dynamic_table.  " 按照定义的内表结构，产生一个内表
PERFORM write_data_to_dyntable.  " 向动态内表中写数
PERFORM output_dyntable_data.   " 从动态内表中取数，并写到屏幕
*&---------------------------------------------------------------------*
*&      Form  create_structure
*&---------------------------------------------------------------------*
FORM create_structure .
wa_structure-fieldname = 'COL1'.  " 第一列列名
wa_structure-col_pos   = 1.       " 表示第一列 --- 可心省略，默认情况下，第一行对应到生产内表的第一列，如果指定，则按指定的列顺序生成内表
wa_structure-inttype = 'C'.       " 数据类型
wa_structure-intlen = 6.          " 长度
APPEND wa_structure TO it_structure.
wa_structure-fieldname = 'COL2'.  " 第二列列名
wa_structure-col_pos   = 2.       " 表示第二列--- 可心省略，默认情况下，第一行对应到生产内表的第一列，如果指定，则按指定的列顺序生成内表
wa_structure-inttype = 'C'.       " 数据类型
wa_structure-intlen = 6.          " 长度
APPEND wa_structure TO it_structure.
wa_structure-fieldname = 'COL3'.  " 第三列名
wa_structure-col_pos   = 3.       " 表示第三列 --- 可心省略，默认情况下，第一行对应到生产内表的第一列，如果指定，则按指定的列顺序生成内表
wa_structure-inttype = 'C'.       " 数据类型
wa_structure-intlen = 6.          " 长度
APPEND wa_structure TO it_structure.
ENDFORM.                    " create_structure
*&---------------------------------------------------------------------*
*&      Form  create_dynamic_table
*&---------------------------------------------------------------------*
FORM create_dynamic_table .
CALL METHOD cl_alv_table_create=>create_dynamic_table
   EXPORTING
it_fieldcatalog = it_structure
   IMPORTING
ep_table        = dy_table.
ASSIGN dy_table->* TO <dyn_table>.    " 用表类型指针 <dyn_table> 指向 数据对象的内容.
ENDFORM.                    " create_dynamic_table
*&---------------------------------------------------------------------*
*&      Form  write_data_to_dyntable
*&---------------------------------------------------------------------*
FORM write_data_to_dyntable .
DATA:wa_new_line TYPE REF TO data.
DATA:i TYPE n.
DATA:j TYPE n.
CREATE DATA wa_new_line LIKE LINE OF <dyn_table>.  " 建立一个与动态内表结构相同的数据对象，且数据对象为是一个结构
ASSIGN wa_new_line->* TO <dyn_wa>.
" 用<dyn_wa>指针指向该结构
DO 3 TIMES.
    i = i + 1.
   CLEAR j.
  LOOP AT it_structure INTO wa_structure.
    j = j + 1.
  ASSIGN COMPONENT wa_structure-fieldname OF STRUCTURE <dyn_wa> TO <dyn_field>.  " 用指针 <dyn_field>指向工作区<dyn_wa>中的一个字段，字段名为wa_structure-fieldname.
  CONCATENATE i j INTO <dyn_field>.                                              " 给指针指向的字段赋值
  ENDLOOP.
  APPEND <dyn_wa> TO <dyn_table>.
ENDDO.
ENDFORM.                    " write_data_to_dyntable
*&---------------------------------------------------------------------*
*&      Form  output_dyntable_data
*&---------------------------------------------------------------------*
FORM output_dyntable_data .
LOOP AT it_structure INTO wa_structure.
   WRITE: wa_structure-fieldname(5).
ENDLOOP.
LOOP AT <dyn_table> INTO <dyn_wa>.
   WRITE: / .
   LOOP AT it_structure INTO wa_structure.
     ASSIGN COMPONENT wa_structure-fieldname OF STRUCTURE <dyn_wa> TO <dyn_field>.  " 用指针 <dyn_field>指向工作区<dyn_wa>中的一个字段，字段名为wa_structure-fieldname.
     WRITE: <dyn_field>.
   ENDLOOP.
ENDLOOP.
ENDFORM.                    " output_dyntable_data

转载自转载: ABAP动态内表操作 - Park_SAP - 博客园 (cnblogs.com)

本文系在海边看星星创作，可自由转载、引用，但需署名作者且注明文章出处..

本文标题：动态报表

原文网址：功能暂未开放.

本文标签：动态报表

发表自： Win 10 位于：江西省萍乡市评论： 0 关键词：动态报表

上一篇：批量复制角色并修改权限参数文件组织级别数据...

下一篇： ALV 菜单隐藏按钮...

我的评论