ALV 动态行列

动态ALV显示的行列，解决部分报表需求。

运行截图如下：

选择屏幕：

ALV输出效果1：

ALV输出效果2：:

ABAP代码：

 *&---------------------------------------------------------------------*
 *& Report  ZCHENH068
 *&
 *&---------------------------------------------------------------------*
 *&
 *&
 *&---------------------------------------------------------------------*
 
 REPORT zchenh068.
 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(),
       lv_col(),
       lv_row(),
       lv_title TYPE string.
 
 * 列数
 PARAMETERS: col TYPE i.
 PARAMETERS: row TYPE i.
 
 CLEAR: it_fcat.
 
 * 根据条件动态生成列
 DO col TIMES.
   lv_col = lv_col + .
   CONCATENATE 'COL' lv_col INTO colname.
   CONCATENATE '第' lv_col '列抬头描述' INTO lv_title.
   PERFORM frm_add_fcat USING:
         colname 'C' lv_title ''.
 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>.
 
 * 给表字段赋值
 
 * 相当于给内表放入row行数据
 DO row TIMES.
 * 相当于给内表放入col列数据
   CLEAR: lv_col.
   lv_row = lv_row + .
   DO col TIMES.
     lv_col = lv_col + .
     CONCATENATE 'COL' lv_col INTO colname.
     ASSIGN COMPONENT colname OF STRUCTURE <dyn_wa>  TO <dyn_field>.
 *    CONCATENATE '第' lv_row '行数据'  '第' lv_col '列数据' INTO  <dyn_field>.
     CONCATENATE '行，列坐标：（' lv_row',' lv_col ')' INTO  <dyn_field>.
   ENDDO.
   APPEND <dyn_wa> TO <dyn_table>.
 ENDDO.
 
 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      =
     OTHERS             = .
 IF sy-subrc <> .
   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