DATA: gt_fieldcat TYPE lvc_t_fcat .
DATA: gs_fieldcat TYPE lvc_s_fcat .
DATA: gs_layout TYPE lvc_s_layo .
DEFINE append_field.
gs_fieldcat–fieldname = &1.
gs_fieldcat–coltext = &2.
gs_fieldcat–ref_field = &3.
gs_fieldcat–ref_table = &4.
APPEND gs_fieldcat TO gt_fieldcat.
CLEAR: gs_fieldcat.
END-OF-DEFINITION.
* gs_layout-box_fname = ‘MARK’.
* gs_layout-coltab_fieldname = ‘CLR’ . “列颜色
*gs_layout-ctab_fname = ‘CELLCOLOR’ . “单元格颜色
gs_layout–cwidth_opt = ‘X’. “列宽自适应
gs_layout–zebra = ‘X’. “斑马线
append_field: ‘SGTXT’ ‘行项目文本’ ” ” .
append_field: ‘GJAHR’ ‘会计年度’ ” ” .
IF r_01 EQ ‘X’ OR r_02 EQ ‘X’.
CALL FUNCTION ‘REUSE_ALV_GRID_DISPLAY_LVC’
EXPORTING
i_callback_program = sy–repid
* i_callback_pf_status_set = ‘FRM_STATUS_SET’
i_callback_user_command = ‘FRM_USER_COMMAND’
**
* I_GRID_SETTINGS =
is_layout_lvc = gs_layout
it_fieldcat_lvc = gt_fieldcat
i_save = ‘A’
* i_grid_settings = ls_grid_settings
* it_events = lt_events
* is_variant = ls_variant
* ES_EXIT_CAUSED_BY_USER =
TABLES
t_outtab = gt_out
EXCEPTIONS
program_error = 1
OTHERS = 2.
IF sy–subrc <> 0.
* Implement suitable error handling here
ENDIF.