ALV 动态显示列Demo
2016-11-09 13:20
295 查看
*-------------ALV 相关--------------------------
DATA: wa_layo TYPE lvc_s_layo.
DATA: wa_fcat TYPE lvc_s_fcat,
it_fcat TYPE lvc_t_fcat.
DATA it_scol TYPE lvc_t_scol.
DATA: g_grid TYPE REF TO cl_gui_alv_grid.
FIELD-SYMBOLS: < dyn_table > TYPE STANDARD TABLE,
< dyn_wa >,
< dyn_field >.
DATA: dy_table TYPE REF TO data,
dy_line TYPE REF TO data.
DATA: colname(10),
index(2).
* 列数
PARAMETERS: col TYPE i.
CLEAR: it_fcat.
* 根据条件动态生成列
DO col TIMES.
index = index + 1.
CONCATENATE 'COL' index INTO colname.
PERFORM frm_add_fcat USING:
colname 'C' '描述' '100'.
ENDDO.
* 根据it_fact生成动态表
CALL METHOD cl_alv_table_create=>create_dynamic_table
EXPORTING
it_fieldcatalog = it_fcat
IMPORTING
ep_table = dy_table.
ASSIGN dy_table->* TO < dyn_table >.
CREATE DATA dy_line LIKE LINE OF < dyn_table >.
ASSIGN dy_line->* TO < dyn_wa >.
* 给表字段赋值
CLEAR: index.
DO col TIMES.
index = index + 1.
CONCATENATE 'COL' index INTO colname.
ASSIGN COMPONENT colname OF STRUCTURE < dyn_wa> TO < dyn_field >.
< dyn_field > = '列数据'.
ENDDO.
APPEND < dyn_wa > TO < dyn_table >.
* 相当于给内表放入两条数据
CLEAR: index.
DO col TIMES.
index = index + 1.
CONCATENATE 'COL' index INTO colname.
ASSIGN COMPONENT colname OF STRUCTURE < dyn_wa > TO < dyn_field >.
< dyn_field > = '列数据'.
ENDDO.
APPEND < dyn_wa > TO < dyn_table >.
CLEAR: wa_layo.
wa_layo-zebra = 'X'.
wa_layo-cwidth_opt = 'X'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
EXPORTING
i_callback_program = sy-repid
is_layout_lvc = wa_layo
it_fieldcat_lvc = it_fcat
TABLES
t_outtab = < dyn_table >
EXCEPTIONS
program_error = 1
OTHERS = 2.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
*&---------------------------------------------------------------------*
*& Form frm_add_fcat
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->VALUE1 text
* -->VALUE2 text
* -->VALUE3 text
* -->VALUE4 text
*----------------------------------------------------------------------*
FORM frm_add_fcat USING value1 value2 value3 value4.
wa_fcat-fieldname = value1.
wa_fcat-inttype = value2.
wa_fcat-reptext = value3.
wa_fcat-intlen = value4.
APPEND wa_fcat TO it_fcat.
CLEAR: wa_fcat.
ENDFORM. "frm_add_fcat
DATA: wa_layo TYPE lvc_s_layo.
DATA: wa_fcat TYPE lvc_s_fcat,
it_fcat TYPE lvc_t_fcat.
DATA it_scol TYPE lvc_t_scol.
DATA: g_grid TYPE REF TO cl_gui_alv_grid.
FIELD-SYMBOLS: < dyn_table > TYPE STANDARD TABLE,
< dyn_wa >,
< dyn_field >.
DATA: dy_table TYPE REF TO data,
dy_line TYPE REF TO data.
DATA: colname(10),
index(2).
* 列数
PARAMETERS: col TYPE i.
CLEAR: it_fcat.
* 根据条件动态生成列
DO col TIMES.
index = index + 1.
CONCATENATE 'COL' index INTO colname.
PERFORM frm_add_fcat USING:
colname 'C' '描述' '100'.
ENDDO.
* 根据it_fact生成动态表
CALL METHOD cl_alv_table_create=>create_dynamic_table
EXPORTING
it_fieldcatalog = it_fcat
IMPORTING
ep_table = dy_table.
ASSIGN dy_table->* TO < dyn_table >.
CREATE DATA dy_line LIKE LINE OF < dyn_table >.
ASSIGN dy_line->* TO < dyn_wa >.
* 给表字段赋值
CLEAR: index.
DO col TIMES.
index = index + 1.
CONCATENATE 'COL' index INTO colname.
ASSIGN COMPONENT colname OF STRUCTURE < dyn_wa> TO < dyn_field >.
< dyn_field > = '列数据'.
ENDDO.
APPEND < dyn_wa > TO < dyn_table >.
* 相当于给内表放入两条数据
CLEAR: index.
DO col TIMES.
index = index + 1.
CONCATENATE 'COL' index INTO colname.
ASSIGN COMPONENT colname OF STRUCTURE < dyn_wa > TO < dyn_field >.
< dyn_field > = '列数据'.
ENDDO.
APPEND < dyn_wa > TO < dyn_table >.
CLEAR: wa_layo.
wa_layo-zebra = 'X'.
wa_layo-cwidth_opt = 'X'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
EXPORTING
i_callback_program = sy-repid
is_layout_lvc = wa_layo
it_fieldcat_lvc = it_fcat
TABLES
t_outtab = < dyn_table >
EXCEPTIONS
program_error = 1
OTHERS = 2.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
*&---------------------------------------------------------------------*
*& Form frm_add_fcat
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->VALUE1 text
* -->VALUE2 text
* -->VALUE3 text
* -->VALUE4 text
*----------------------------------------------------------------------*
FORM frm_add_fcat USING value1 value2 value3 value4.
wa_fcat-fieldname = value1.
wa_fcat-inttype = value2.
wa_fcat-reptext = value3.
wa_fcat-intlen = value4.
APPEND wa_fcat TO it_fcat.
CLEAR: wa_fcat.
ENDFORM. "frm_add_fcat
相关文章推荐
- ALV 动态显示列Demo
- FPGA驱动OLED动态显示(Verilog代码)——Demo演示(链接)
- 项目试验的小demo-关于画布上动态显示一张图片的一部分
- 在Google Earth中显示中国城市和机场(动态生成KML的Demo)
- 转帖 动态内表 动态ALV显示
- 【转载】alv 动态显示列
- 【ABAP】ALV Tree demo(WBS元素分层显示)
- ABAP 动态的实现任意表的ALV显示
- FusionChart实现柱状图、饼状图的动态数据显示 附Demo
- 动态内表 动态ALV显示
- ALV动态列内表实现Demo
- 动态内表 动态ALV显示
- demo1 动态显示view或弹框 动态隐藏view或弹框
- 动态内表及动态ALV显示
- 动态内表在ALV中显示
- demo1 动态显示view或弹框 动态隐藏view或弹框
- 动态内表及动态ALV显示
- demo2动态加载显示商品详情页
- ABAP开发如何动态的实现任意表的ALV显示
- ALV Tree demo(WBS元素分层显示)[引用别人的]