*&---------------------------------------------------------------------*
*& Report ZWTEST
*&
*&---------------------------------------------------------------------*
*& ALV OO 模板
*& 赵伟-20121227
*&---------------------------------------------------------------------*
REPORT zwtest.
TYPE-POOLS: slis.
DATA: BEGIN OF it_output OCCURS 0,
mark,
docno(5) TYPE c,
itemno(5) TYPE c,
icon TYPE icon_d,
text(10) TYPE c,
cellcolor TYPE lvc_t_scol,
cellstyle TYPE lvc_t_styl,
END OF it_output.
DATA: g1_grid TYPE REF TO cl_gui_alv_grid,
g1s_layout TYPE lvc_s_layo,
it_fieldcat TYPE lvc_t_fcat,
wa_fieldcat TYPE lvc_s_fcat,
g1s_variant TYPE disvariant,
it_exclude TYPE ui_functions.
DATA: wa_cellcolor TYPE lvc_s_scol,
wa_cellstyle TYPE lvc_s_styl,
wa_s_stbl TYPE lvc_s_stbl."稳定刷新
DATA: save_ok LIKE sy-ucomm,
ok_code LIKE sy-ucomm.
DATA: g_valid,
g_tabix LIKE sy-tabix,
g_index LIKE sy-index.
CLASS lcl_event_handler DEFINITION DEFERRED."声明ALV事件接收类
DATA: g_event_handler TYPE REF TO lcl_event_handler.
"需要指定col_pos
DEFINE add_fieldcat.
clear wa_fieldcat.
wa_fieldcat-col_pos = &1.
wa_fieldcat-fieldname = &2.
wa_fieldcat-coltext = &3.
wa_fieldcat-key = &4.
wa_fieldcat-fix_column = &4.
wa_fieldcat-edit = &5.
wa_fieldcat-checkbox = &6.
wa_fieldcat-no_zero = 'X'.
wa_fieldcat-decimals_o = 2."小数点位数
append wa_fieldcat to it_fieldcat.
END-OF-DEFINITION.