4.ALV Grid
通过cl_gui_alv_grid类显示ALV List。
示例：
"cl_gui_alv_grid事件 CLASS c3_event_handler DEFINITION. PUBLIC SECTION. CLASS-METHODS:m_onf1 FOR EVENT onf1 OF cl_gui_alv_grid IMPORTING e_fieldname es_row_no er_event_data. CLASS-METHODS:m_onf4 FOR EVENT onf4 OF cl_gui_alv_grid IMPORTING e_fieldname es_row_no er_event_data. "生成toolbar CLASS-METHODS:m_toolbar FOR EVENT toolbar OF cl_gui_alv_grid IMPORTING e_object e_interactive. "生成menu CLASS-METHODS:m_menu_button FOR EVENT menu_button OF cl_gui_alv_grid IMPORTING e_object e_ucomm. "before user command CLASS-METHODS:m_before_user_command FOR EVENT before_user_command OF cl_gui_alv_grid IMPORTING e_ucomm. "user command CLASS-METHODS:m_user_command FOR EVENT user_command OF cl_gui_alv_grid IMPORTING e_ucomm. "右键menu CLASS-METHODS:m_context_menu_request FOR EVENT context_menu_request OF cl_gui_alv_grid IMPORTING e_object. ENDCLASS. CLASS c3_event_handler IMPLEMENTATION. METHOD m_onf1. DATA:lv_mes TYPE string. lv_mes = e_fieldname && '--' && es_row_no-row_id. MESSAGE lv_mes TYPE 'I'. ENDMETHOD. METHOD m_onf4. DATA:lv_mes TYPE string. lv_mes = e_fieldname && '--' && es_row_no-row_id. MESSAGE lv_mes TYPE 'I'. ENDMETHOD. METHOD m_before_user_command. DATA:lv_mes TYPE string. lv_mes = 'before function:' && e_ucomm. MESSAGE lv_mes TYPE 'I'. ENDMETHOD. METHOD m_toolbar. DATA:lv_mes TYPE string. DATA:ls_toolbar TYPE stb_button. "按钮类型:0button; "1:menu and default button; "2menu; "3separator; "4radio button;5checkbox "添加间隔线 ls_toolbar-butn_type = 3. APPEND ls_toolbar TO e_object->mt_toolbar. "添加button ls_toolbar-function = 'FUN1'. ls_toolbar-icon = icon_employee. ls_toolbar-quickinfo = 'funcion 1'. ls_toolbar-text = '自定义function'. ls_toolbar-butn_type = 0. APPEND ls_toolbar TO e_object->mt_toolbar. "添加menu ls_toolbar-function = 'MENU1'. ls_toolbar-icon = icon_employee. ls_toolbar-quickinfo = 'Menu 1'. ls_toolbar-text = '自定义menu1'. ls_toolbar-butn_type = 2. APPEND ls_toolbar TO e_object->mt_toolbar. ls_toolbar-function = 'MENU2'. ls_toolbar-icon = icon_employee. ls_toolbar-quickinfo = 'Menu default button'. ls_toolbar-text = '自定义menu2'. ls_toolbar-butn_type = 1. APPEND ls_toolbar TO e_object->mt_toolbar. ENDMETHOD. METHOD m_menu_button. IF e_ucomm = 'MENU1'. e_object->add_function( EXPORTING fcode = 'MFUNC1' text = 'menu1 func1' ). e_object->add_function( EXPORTING fcode = 'MFUNC2' text = 'menu1 func2' ). ELSEIF e_ucomm = 'MENU2'. e_object->add_function( EXPORTING fcode = 'MFUNC3' text = 'menu1 func3' ). e_object->add_function( EXPORTING fcode = 'MFUNC4' text = 'menu1 func4' ). ENDIF. ENDMETHOD. METHOD m_user_command. DATA:lv_mes TYPE string. lv_mes = 'function:' && e_ucomm. MESSAGE lv_mes TYPE 'I'. ENDMETHOD. METHOD m_context_menu_request. DATA:lt_std_fcodes type ui_functions. DATA:lt_own_fcodes type ui_functions. APPEND 'CFUNC1' TO lt_own_fcodes. APPEND 'CFUNC2' TO lt_own_fcodes. APPEND cl_gui_alv_grid=>mc_fc_detail TO lt_std_fcodes. APPEND cl_gui_alv_grid=>mc_fc_find TO lt_std_fcodes. e_object->add_function( EXPORTING fcode = 'CFUNC1' text = 'context func1'). e_object->add_function( EXPORTING fcode = 'CFUNC2' text = 'context func2'). "隐藏右键菜单function e_object->hide_functions( fcodes = lt_std_fcodes ). "反灰右键菜单function "e_object->disable_functions( fcodes = lt_std_fcodes ). "将隐藏菜单function显示 "e_object->show_functions( fcodes = lt_std_fcodes ). "将反灰菜单function恢复 "e_object->enable_functions( fcodes = lt_std_fcodes ). ENDMETHOD. ENDCLASS. "cl_gui_alv_grid CLASS c3 DEFINITION. PUBLIC SECTION. TYPES:BEGIN OF s_out. INCLUDE TYPE spfli. TYPES: sel TYPE C LENGTH 1. "行选择控制字段 TYPES: handle_dd TYPE lvc_s_drop-handle. "下拉控制字段 TYPES: t_style TYPE lvc_t_styl. "控制单元格编辑字段 TYPES: lights TYPE C LENGTH 1. "display exception TYPES: line_color TYPE C LENGTH 4. "行颜色控制 TYPES: t_scol TYPE lvc_t_scol. "单元格颜色控制 TYPES: t_styl TYPE lvc_t_styl. "button样式 TYPES: link TYPE C LENGTH 4. "链接字段 TYPES: date TYPE D. "日期字段，edit mask TYPES:END OF s_out. "表 DATA:lt_out TYPE TABLE OF s_out. DATA:ls_out LIKE LINE OF lt_out. "字段 DATA:lt_fcat TYPE lvc_t_fcat. DATA:ls_fcat TYPE lvc_s_fcat. "layout DATA:ls_layout TYPE lvc_s_layo. "exclude function DATA:lt_exclude TYPE ui_functions. DATA:ls_exclude TYPE ui_func. "link DATA:lt_link TYPE lvc_t_hype. DATA:ls_link TYPE lvc_s_hype. "group DATA:lt_group TYPE lvc_t_sgrp. DATA:ls_group TYPE lvc_s_sgrp. "sort DATA:lt_sort TYPE lvc_t_sort. DATA:ls_sort TYPE lvc_s_sort. DATA:lo_alv TYPE REF TO cl_gui_alv_grid. METHODS:m_alv_init. METHODS:m_alv_show. PRIVATE SECTION. METHODS:m_get_data. METHODS:m_build_fieldcat. METHODS:m_build_layout. METHODS:m_set_drop_down. METHODS:m_set_cell_edit. METHODS:m_set_events. METHODS:m_set_no_toolbar. METHODS:m_set_hyperlink. METHODS:m_set_group. METHODS:m_set_sort. ENDCLASS. CLASS c3 IMPLEMENTATION. METHOD m_alv_init. IF lo_alv IS INITIAL. CREATE OBJECT lo_alv EXPORTING i_parent = cl_gui_container=>default_screen. ENDIF. "获取并设置数据 me->m_get_data( ). "设置fieldcat me->m_build_fieldcat( ). "设置layout me->m_build_layout( ). "设置drop down me->m_set_drop_down( ). "设置单元格编辑 me->m_set_cell_edit( ). "设置事件 me->m_set_events( ). "设置隐藏toolbar上function me->m_set_no_toolbar( ). "设置超链接 me->m_set_hyperlink( ). "设置分组 me->m_set_group( ). "设置排序 me->m_set_sort( ). ENDMETHOD. METHOD m_alv_show. "显示alv lo_alv->set_table_for_first_display( EXPORTING "layout is_layout = ls_layout "exclude toolbar it_toolbar_excluding = lt_exclude "超链接 it_hyperlink = lt_link "分组 it_special_groups = lt_group CHANGING it_fieldcatalog = lt_fcat it_outtab = lt_out "排序 it_sort = lt_sort ). ENDMETHOD. "获取设置数据 METHOD m_get_data. DATA:lv_index TYPE I. DATA:lt_scol TYPE lvc_t_scol. DATA:ls_scol TYPE lvc_s_scol. DATA:lt_styl TYPE lvc_t_styl. DATA:ls_styl TYPE lvc_s_styl. "获取数据 SELECT * FROM spfli INTO CORRESPONDING FIELDS OF TABLE lt_out. LOOP AT lt_out INTO ls_out. "设置exception域值 lv_index = sy-tabix MOD 3 + 1. ls_out-lights = lv_index. "设置行颜色值 "第一位固定C,第二为主色调，第二位次色调，第三位：0字体色，1背景颜色 "0 | COL_BACKGROUND } 0 GUI-dependent "1 | COL_HEADING } 1 Gray-blue "2 | COL_NORMAL } 2 Light gray "3 | COL_TOTAL } 3 Yellow "4 | COL_KEY } 4 Blue-green "5 | COL_POSITIVE } 5 Green "6 | COL_NEGATIVE } 6 Red "7 | COL_GROUP } 7 Purple IF sy-tabix = 3. ls_out-line_color = 'C310'. ENDIF. "设置单元格颜色值 IF sy-tabix = 4. ls_scol-fname = 'CONNID'. ls_scol-color-col = '5'. APPEND ls_scol TO lt_scol. ls_out-t_scol = lt_scol. ENDIF. "设置日期 ls_out-date = sy-datum + sy-tabix. MODIFY lt_out FROM ls_out TRANSPORTING lights line_color t_scol date. ENDLOOP. ENDMETHOD. "设置fieldcat "修改field catalog after output "GET_FRONTEND_FIELDCATALOG "SET_FRONTEND_FIELDCATALOG "function：LVC_FIELDCATALOG_MERGE "获取field catalog "当只是显示数据库表，没有其他字段 "set_table_for_first_display指定I_STRUCTURE_NAME,表名; METHOD m_build_fieldcat. DATA:lv_index TYPE I. "获取fieldcatalog CALL FUNCTION 'LVC_FIELDCATALOG_MERGE' EXPORTING i_structure_name = 'SPFLI' CHANGING ct_fieldcat = lt_fcat EXCEPTIONS inconsistent_interface = 1 program_error = 2 OTHERS = 3. IF sy-subrc <> 0. LEAVE PROGRAM. ENDIF. "fieldcatalog字段 "col_id 列id,在get_selected_cells_id,set_selected_cells_id使用; "fieldname 字段名; "ref_table DDIC table; "ref_field DDIC field; "colddictxt space,'L':SCRTEXT_L,'M':SCRTEXT_M,,'S':SCRTEXT_S,'R':REPTEXT "selddictxt reference字段描述作为layout选择行列描述,space,L,M,S,R; "tipddictxt 提示tip,space,L,M,S,R; "coltext 列标题,当没有reference字段时必须设置; "seltext layout中选择列时的列描述; "tooltip 设置提示; "reptext 当有reference字段,字段描述; "scrtext_l 长描述; "scrtext_m 中长描述; "scrtext_s 短描述; "cfieldname reference currency字段; "currency 金额单位; "qfieldname reference quantity字段; "quantity 数量单位; "checkbox 是否CHECKBOX显示; "col_pos 列位置; "do_sum 是否合计; "emphasize 是否强调标记 " SPACE, 'X':颜色值, or 'Cxyz' (x:'1'-'9' color number, " y(intensified),z(inverse): '0'=off '1'=on); "hotspot 是否热点; "href_hndl 超链接,set_table_for_first_display参数：it_hyperlink设置链接; "key 是否key字段,设置fixed或隐藏; "lowercase 是否小写; "no_out 是否显示,layout可以显示; "no_merging 是否合并; "no_sum 是否合计; "outputlen 列宽; "style 列样式,按钮CL_GUI_ALV_GRID=> MC_STYLE_BUTTON; "tech 是否tech字段，不会显示在layout; "web_field 超链接cell级别设置字段 "decimals_o 小数位数 "decmfield 逐行指定字段设置小数位数 "edit_mask 格式转换,示例日期:__/__/____ "exponent 数据类型为f,指定指数; "icon 是否显示icon; "just R:靠右,L:靠左,C:居中; "lzero 是否前置0; "no_sign 是否正负号; "no_zero 是否显示0; "round 十进制P类型值输出; "roundfield 逐行指定字段设置round; "symbol 显示symbol; "dd_outlen 设置eidt_mask，输出长度; "intlen 设置edit_mask，内部长度; "inttype ABAP类型,当没有reference必须设置; "rollname 设置f1帮助reference ddic字段; "dragdropid 设置drag drop; "reprep 是否打开report interface,method:activate_reprep_interface; "sp_group 分组; "txt_field subtotal字段描述; LOOP AT lt_fcat INTO ls_fcat. lv_index = sy-tabix. ls_fcat-col_pos = lv_index. ls_fcat-tabname = 'SPFLI'. "设置下拉 IF ls_fcat-fieldname = 'CARRID'. ls_fcat-drdn_hndl = '1'. "输出长度 ls_fcat-outputlen = 5. "不检查foreign key ls_fcat-checktable = '!'. "单列编辑控制 ls_fcat-edit = 'X'. ENDIF. IF ls_fcat-fieldname = 'CITYFROM'. ls_fcat-drdn_hndl = '2'. "输出长度 ls_fcat-outputlen = 10. "单列编辑控制 ls_fcat-edit = 'X'. ENDIF. "直接设置下拉字段 IF ls_fcat-fieldname = 'FLTYPE'. ls_fcat-drdn_field = 'HANDLE_DD'. "单列编辑控制 ls_fcat-edit = 'X'. ENDIF. "设置f4可用 IF ls_fcat-fieldname = 'AIRPFROM'. ls_fcat-f4availabl = 'X'. ENDIF. "设置所属分组 ls_fcat-sp_group = '1'. MODIFY lt_fcat FROM ls_fcat. ENDLOOP. "添加sel选择列 lv_index = lv_index + 1. CLEAR ls_fcat. ls_fcat-col_pos = lv_index. ls_fcat-fieldname = 'SEL'. ls_fcat-checkbox = 'X'."显示为checkbox ls_fcat-edit = 'X'. APPEND ls_fcat TO lt_fcat. "添加exception显示列 lv_index = lv_index + 1. CLEAR ls_fcat. ls_fcat-col_pos = lv_index. ls_fcat-fieldname = 'LIGHTS'. APPEND ls_fcat TO lt_fcat. "添加链接列 lv_index = lv_index + 1. CLEAR ls_fcat. ls_fcat-col_pos = lv_index. ls_fcat-fieldname = 'LINK'. ls_fcat-href_hndl = '1'. APPEND ls_fcat TO lt_fcat. "添加日期列 lv_index = lv_index + 1. CLEAR ls_fcat. "字段有DDIC reference会自动edit mask "无DDIC,需要指定inlen,dd_outlen,edit_mask ls_fcat-col_pos = lv_index. ls_fcat-fieldname = 'DATE'. ls_fcat-intlen = 8. ls_fcat-dd_outlen = 10. ls_fcat-edit_mask = '__/__/____'. APPEND ls_fcat TO lt_fcat. ENDMETHOD. "设置layout METHOD m_build_layout. "color设置 "ls_layout-zebra = 'X'. "是否斑马线显示 ls_layout-ctab_fname = 'T_SCOL'. "单元格颜色控制字段 ls_layout-info_fname = 'LINE_COLOR'. "行颜色控制字段 "编辑设置 ls_layout-edit = ''. "是否可编辑,整体控制 ls_layout-edit_mode = ''. "编辑模式 ls_layout-stylefname = 'T_STYLE'. "单元格编辑控制字段,显示button "显示设置 ls_layout-cwidth_opt = ''. "是否自动列宽 ls_layout-smalltitle = ''. "是否small title ls_layout-grid_title = ''. "toolbar和alv之间title ls_layout-no_headers = ''. "是否显示列头 ls_layout-no_hgridln = ''. "是否显示水平线 ls_layout-no_vgridln = ''. "是否显示竖线 ls_layout-no_keyfix = ''. "是否关键词固定 ls_layout-no_merging = ''. "是否禁止单元格合并 ls_layout-no_rowmark = ''. "是否禁止行选择 ls_layout-no_toolbar = ''. "是否隐藏toolbar. "total设置 ls_layout-no_totarr = ''. "是否total行箭头指示 ls_layout-no_totexp = ''. "是否total行显示icon ls_layout-no_totline = ''. "是否显示汇总行 ls_layout-numc_total = ''. "是否numc字段汇总 ls_layout-totals_bef = ''. "汇总行显示首行 "DETAILINIT ls_layout-detailinit = ''. "是否detail页显示初始值 ls_layout-detailtitl = ''. "detail title "ls_layout-s_dragdrop = ''. "structure of drag drop ls_layout-keyhot = ''. "是否key hotspot ls_layout-sgl_clk_hd = ''. "是否single click on header生效 "选择模式,默认单选,A:行,列选择;B:单行选择;C:多行选择;D:单元格选择 ls_layout-sel_mode = ''. ls_layout-box_fname = 'SEL'. "行选择标志字段 "exceptions设置,1：yellow;2:green;3:red ls_layout-excp_fname = 'LIGHTS'. "exceptions字段 ls_layout-excp_led = 'X'. "是否LED显示 ls_layout-excp_conds = 'X'. "是否total,subtotal显示exception ls_layout-excp_rolln = 'LIGHTS'. "exception,F1帮助文本 ENDMETHOD. "设置下拉选择 METHOD m_set_drop_down. DATA:lt_dropdown TYPE lvc_t_drop. DATA:ls_dropdown TYPE lvc_s_drop. ls_dropdown-handle = '1'. ls_dropdown-value = 'AZ'. APPEND ls_dropdown TO lt_dropdown. ls_dropdown-handle = '1'. ls_dropdown-value = 'ZZ'. APPEND ls_dropdown TO lt_dropdown. ls_dropdown-handle = '2'. ls_dropdown-value = 'xian'. APPEND ls_dropdown TO lt_dropdown. ls_dropdown-handle = '2'. ls_dropdown-value = 'beijing'. APPEND ls_dropdown TO lt_dropdown. LOOP AT lt_out INTO ls_out. "指定某个单元格下拉 IF sy-tabix = 1. ls_out-handle_dd = 1. MODIFY lt_out FROM ls_out TRANSPORTING handle_dd. ENDIF. IF sy-tabix = 2. ls_out-handle_dd = 2. MODIFY lt_out FROM ls_out TRANSPORTING handle_dd. ENDIF. ENDLOOP. "设置下拉table lo_alv->set_drop_down_table( EXPORTING it_drop_down = lt_dropdown ). ENDMETHOD. "设置单元格编辑 METHOD m_set_cell_edit. DATA:lt_style TYPE lvc_t_styl. DATA:ls_style TYPE lvc_s_styl. "设置单元格是否可编辑 ls_style-fieldname = 'COUNTRYFR'. ls_style-style = cl_gui_alv_grid=>mc_style_enabled. "可编辑 INSERT ls_style INTO TABLE lt_style. ls_style-fieldname = 'COUNTRYTO'. ls_style-style = cl_gui_alv_grid=>mc_style_enabled. "可编辑 INSERT ls_style INTO TABLE lt_style. "设置单元格显示按钮 ls_style-fieldname = 'LINK'. ls_style-style = cl_gui_alv_grid=>mc_style_button. "按钮 INSERT ls_style INTO TABLE lt_style. LOOP AT lt_out INTO ls_out. IF sy-tabix = 1. ls_out-t_style = lt_style. MODIFY lt_out FROM ls_out TRANSPORTING t_style. ENDIF. ENDLOOP. ENDMETHOD. "设置事件 METHOD m_set_events. DATA:lt_f4 TYPE lvc_t_f4. DATA:ls_f4 TYPE lvc_s_f4. ls_f4-fieldname = 'AIRPFROM'. ls_f4-register = 'X'. ls_f4-getbefore = 'X'. ls_f4-chngeafter = 'X'. ls_f4-internal = 'X'. APPEND ls_f4 TO lt_f4. "设置f1事件响应 SET HANDLER c3_event_handler=>m_onf1 FOR lo_alv. "设置f4事件响应 lo_alv->register_f4_for_fields( it_f4 = lt_f4 ). SET HANDLER c3_event_handler=>m_onf4 FOR lo_alv. "设置change standard function SET HANDLER c3_event_handler=>m_before_user_command FOR lo_alv. "将标准function关闭 lo_alv->set_user_command( EXPORTING i_ucomm = space ). "设置toolbar function SET HANDLER c3_event_handler=>m_toolbar FOR lo_alv. "设置function相应事件 SET HANDLER c3_event_handler=>m_user_command FOR lo_alv. "设置右键菜单 SET HANDLER c3_event_handler=>m_context_menu_request FOR lo_alv. "设置menu function SET HANDLER c3_event_handler=>m_menu_button FOR lo_alv. ENDMETHOD. "设置隐藏toolbar METHOD m_set_no_toolbar. "方式1：在layout设置no_toolbar "方式2:设置set_table_for_first_display方法 "参数it_toolbar_excluding = lt_exclude ls_exclude = cl_gui_alv_grid=>mc_fc_detail. APPEND ls_exclude TO lt_exclude. ENDMETHOD. "设置超链接 METHOD m_set_hyperlink. ls_link-handle = '1'. ls_link-href = 'https://www.baidu.com/'. APPEND ls_link TO lt_link. ls_link-handle = '2'. ls_link-href = 'https://www.runoob.com/'. APPEND ls_link TO lt_link. "方法set_table_for_first_display "参数:it_hyperlink ENDMETHOD. "设置字段分组 METHOD m_set_group. ls_group-sp_group = '1'. ls_group-text = 'group1'. APPEND ls_group TO lt_group. ls_group-sp_group = '2'. ls_group-text = 'group2'. "方法set_table_for_first_display "参数:it_special_groups ENDMETHOD. "设置排序 METHOD m_set_sort. ls_sort-spos = 1. ls_sort-fieldname = 'CARRID'. ls_sort-up = ''. ls_sort-down = 'X'. APPEND ls_sort TO lt_sort. ls_sort-spos = 2. ls_sort-fieldname = 'CONNID'. ls_sort-up = 'X'. ls_sort-down = ''. APPEND ls_sort TO lt_sort. "方法set_table_for_first_display "参数:it_sort "设置sort,在alv显示后更改排序使用 "lo_alv->set_sort_criteria( it_sort = lt_sort ). ENDMETHOD. ENDCLASS.