ALV 事件詳細使用(增加按鈕、增加下拉框等)
report Z_OOALV.
type-pools: icon.
class lcl_event_receiver definition deferred.
tables: sflight.
data:
gi_index_rows type lvc_t_row,
g_selected_row like lvc_s_row.
data: gt_fieldcat type lvc_t_fcat,
wa_fieldcat type lvc_s_fcat,
tmp_fieldcat type lvc_t_fcat,
gs_layout type lvc_s_layo.
data:
o_event_receiver type ref to lcl_event_receiver.
data:zcw type lvc_t_cell,
wa_cw type lvc_s_cell.
data:m1_flag type i value 1. "手工输入的开关
data:zd type sflight.
data:zkey(1) type c.
data:zc type string.
data:ztext type string.
data:l_lines type i.
data:zrow_no type lvc_t_roid,
zno1 type lvc_s_roid.
*****************************定义类
class lcl_event_receiver definition.
public section.
methods:
handle_toolbar for event toolbar of cl_gui_alv_grid
importing
e_object e_interactive,
handle_user_command for event user_command of cl_gui_alv_grid
importing e_ucomm,
****************************************以下定义的方法必要的时候可激活
*Hotspot click control
handle_hotspot_click
for event hotspot_click of cl_gui_alv_grid
importing e_row_id e_column_id es_row_no ,
*Double-click control
handle_double_click
for event double_click of cl_gui_alv_grid
importing e_row e_column es_row_no,
*To be triggered before user commands
handle_before_user_command
for event before_user_command of cl_gui_alv_grid
importing e_ucomm,
*Controlling data changes when ALV Grid is editable
handle_data_changed
for event data_changed of cl_gui_alv_grid
importing er_data_changed ,
*To be triggered after data changing is finished
handle_data_changed_finished
for event data_changed_finished of cl_gui_alv_grid
importing e_modified ,
*To control menu buttons
handle_menu_button
for event menu_button of cl_gui_alv_grid
importing e_object e_ucomm .
endclass. "lcl_event_receiver DEFINITION
data: tab_toolbar type ttb_button,
no_toolbar type stb_button.
types: begin of st_sflight.
include structure sflight.
types: traffic_light type c.
types: line_color(4) type c.
types: ptype_dd_hndl type int4 .
types: cellstyles type lvc_t_styl.
types: end of st_sflight.
data:g_wa_sflight type st_sflight.
data:it_sflight like table of sflight,
wa_sflight like sflight.
data: gi_sflight type standard table of st_sflight.
data: ok_code like sy-ucomm.
data:
go_grid type ref to cl_gui_alv_grid,
go_custom_container type ref to cl_gui_custom_container.
*****************************" 选择屏幕窗口对像表结构表
tables sscrfields.
selection-screen:
begin of line,
pushbutton 2(10) s1 user-command c1,
pushbutton 12(10) s2 user-command c2,
end of line.
**************************为下拉列表的定义
type-pools: vrm.
data: it_val type vrm_values,
w_line like line of it_val.
*****************************
initialization.
**********************初始下拉列表
w_line-key = '1'.
w_line-text = '销售部'.
append w_line to it_val.
clear w_line.
w_line-key = '2'.
w_line-text = '国贸部'.
append w_line to it_val.
clear w_line.
w_line-key = '3'.
w_line-text = '洁具销售部'.
append w_line to it_val.
clear w_line.
call function 'VRM_SET_VALUES'
exporting
id = 'zsxdw'
values = it_val.
*************************按钮初始化
s1 = '按钮1'.
s2 = '按钮2'.
select-options:zid for sflight-carrid.
select-options:zcoid for sflight-connid.
parameter:zsxdw as listbox visible length 10.
***************************选择屏幕按钮的触发
at selection-screen.
case sscrfields-ucomm.
when 'C1'.
zid-low = 'AC'.
zid-sign = 'I'.
zid-option = 'EQ'.
append zid.
zsxdw = '1'.
when 'C2'.
zid-low = 'AF'.
zid-sign = 'I'.
zid-option = 'EQ'.
clear zid[].
append zid.
zsxdw = '2'.
endcase.
start-of-selection.
perform get_data.
set screen 200.
data: num1(4) type n value '800'.
"初始化窗口800。
*********************************************根据选择读下拉列表
read table it_val with key key = zsxdw into w_line.
zkey = w_line-key.
ztext = w_line-text.
**********************************************************屏幕的输出处理
module status_0200 output.
set pf-status 'ZSTANDARD'.
**********************************************初始客户在标准屏幕上的控件
if go_custom_container is initial.
create object go_custom_container
exporting container_name = 'ALV_OOO'.
create object go_grid
exporting
i_parent = go_custom_container.
perform load_data_into_grid.
endif.
create object o_event_receiver."创造事件对象
*************************************注册时间对象
set handler o_event_receiver->handle_user_command for go_grid.
set handler o_event_receiver->handle_toolbar for go_grid.
set handler o_event_receiver->handle_menu_button for go_grid .
set handler o_event_receiver->handle_double_click for go_grid .
set handler o_event_receiver->handle_hotspot_click for go_grid .
* SET HANDLER o_event_receiver->handle_button_click FOR go_grid .
set handler o_event_receiver->handle_before_user_command for go_grid.
set handler o_event_receiver->handle_data_changed for go_grid.
set handler o_event_receiver->handle_data_changed_finished for
go_grid.
call method go_grid->set_toolbar_interactive.
call method cl_gui_control=>set_focus
exporting
control = go_grid.
endmodule. " STATUS_0100 OUTPUT
**********************************************************屏幕的输入处理
module user_command_0200 input.
case ok_code.
when 'EXIT' or 'BACK' or 'UP' or 'CANCEL'.
leave to screen 0.
when 'ZZSAVE'.
data :show_num type n.
show_num = zc.
message show_num type 'S'.
perform save_changes.
when 'ZF'.
show_num = zc.
message show_num type 'S'.
endcase.
endmodule. " USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
*& Form load_data_into_grid
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
form
load_data_into_grid .
data:
l_layout type disvariant.
l_layout-report = sy-repid.
loop at gi_sflight into g_wa_sflight.
if g_wa_sflight-paymentsum < 1000.
g_wa_sflight-traffic_light = '1'.
g_wa_sflight-line_color = 'C610'.
elseif g_wa_sflight-paymentsum => 1000 and
g_wa_sflight-paymentsum < 2000.
g_wa_sflight-traffic_light = '2'.
else.
g_wa_sflight-traffic_light = '3'.
endif.
modify gi_sflight from g_wa_sflight.
endloop.
perform prepare_field_catalog changing gt_fieldcat .
perform prepare_layout changing gs_layout .
perform prepare_drilldown_values.
go_grid->set_table_for_first_display(
exporting
* I_BUFFER_ACTIVE = I_BUFFER_ACTIVE
* I_BYPASSING_BUFFER = I_BYPASSING_BUFFER
* I_CONSISTENCY_CHECK = I_CONSISTENCY_CHECK
i_structure_name = 'SFLIGHT'
* IS_VARIANT = IS_VARIANT
i_save = 'A'
* I_DEFAULT = 'X'
is_layout = gs_layout
* IS_PRINT = IS_PRINT
* IT_SPECIAL_GROUPS = IT_SPECIAL_GROUPS
* IT_TOOLBAR_EXCLUDING = IT_TOOLBAR_EXCLUDING
* IT_HYPERLINK = IT_HYPERLINK
* IT_ALV_GRAPHICS = IT_ALV_GRAPHICS
* IT_EXCEPT_QINFO = IT_EXCEPT_QINFO
* IR_SALV_ADAPTER = IR_SALV_ADAPTER
changing
it_outtab = gi_sflight
it_fieldcatalog = gt_fieldcat
* IT_SORT = IT_SORT
* IT_FILTER = IT_FILTER
).
endform. " load_data_into_grid
*----------------------------------------------------------------------*
* CLASS lcl_event_receiver IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
class lcl_event_receiver implementation.
method handle_toolbar.
constants:
c_button_normal type i value 0,
c_menu_and_default_button type i value 1,
c_menu type i value 2,
c_separator type i value 3,
c_radio_button type i value 4,
c_checkbox type i value 5,
c_menu_entry type i value 6.
data:
ls_toolbar type stb_button,
no_toolbar type stb_button.
clear ls_toolbar.
move c_separator to ls_toolbar-butn_type.
tab_toolbar = e_object->mt_toolbar.
**************************屏幕更新的时候 按钮 只添加一次。
read table tab_toolbar with key function = 'ZCHANGE' into no_toolbar.
if sy-subrc <> 0.
clear ls_toolbar.
****************************添加按钮 函数
move 'ZCHANGE' to ls_toolbar-function.
move icon_change to ls_toolbar-icon.
move 'Change flight' to ls_toolbar-quickinfo.
move '修改' to ls_toolbar-text.
move ' ' to ls_toolbar-disabled.
append ls_toolbar to e_object->mt_toolbar.
endif.
clear no_toolbar.
read table tab_toolbar with key function = 'ZSAVE' into no_toolbar.
if sy-subrc <> 0.
clear ls_toolbar.
move 'ZSAVE' to ls_toolbar-function.
move icon_system_save to ls_toolbar-icon.
move '保存表里的数据到系统数据库' to ls_toolbar-quickinfo.
move '保存到数据库' to ls_toolbar-text.
move ' ' to ls_toolbar-disabled.
append ls_toolbar to e_object->mt_toolbar.
endif.
read table tab_toolbar with key function = 'ZSELECTION' into no_toolbar.
if sy-subrc <> 0.
clear ls_toolbar.
move 'ZSELECTION' to ls_toolbar-function.
move '编辑列' to ls_toolbar-quickinfo.
move '编辑列' to ls_toolbar-text.
move ' ' to ls_toolbar-disabled.
append ls_toolbar to e_object->mt_toolbar.
endif.
read table tab_toolbar with key function = 'ZINPUT' into no_toolbar.
if sy-subrc <> 0.
clear ls_toolbar.
move 'ZINPUT' to ls_toolbar-function.
move '手工输入' to ls_toolbar-quickinfo.
move '手工输入' to ls_toolbar-text.
move '' to ls_toolbar-disabled.
endif.
append ls_toolbar to e_object->mt_toolbar.
read table tab_toolbar with key function = 'ZREF' into no_toolbar.
if sy-subrc <> 0.
clear ls_toolbar.
move 'ZREF' to ls_toolbar-function.
move '刷新' to ls_toolbar-quickinfo.
move '刷新' to ls_toolbar-text.
move '' to ls_toolbar-disabled.
append ls_toolbar to e_object->mt_toolbar.
endif.
endmethod. "handle_toolbar
method handle_user_command.
case e_ucomm.
when 'ZCHANGE'.
* CALL FUNCTION 'ZCHANGE'.
*****************8判断是否选择行, 没有则提示
call method go_grid->get_selected_rows
importing
et_index_rows = gi_index_rows
et_row_no = zrow_no.
describe table gi_index_rows lines l_lines.
if l_lines = 0.
call function 'POPUP_TO_DISPLAY_TEXT'
exporting
titel = '操作提示！ '
textline1 = '请选择你要修改的行记录之后，'
textline2 = ' 再点“修改”按钮。'
start_column = 4
start_row = 4.
exit.
endif.
loop at gi_index_rows into g_selected_row.
read table gi_sflight index g_selected_row-index into g_wa_sflight.
move-corresponding g_wa_sflight to zd.
endloop.
leave to screen '200'.
when 'ZSAVE'.
describe table gi_index_rows lines l_lines.
clear it_sflight.
loop at gi_sflight into g_wa_sflight.
move-corresponding g_wa_sflight to wa_sflight.
append wa_sflight to it_sflight.
endloop.
modify sflight from table it_sflight.
if sy-subrc = 0.
message s000(zd003) with '保存成功！'.
else.
message e000(zd003) with '保存不成功！'.
endif.
when 'ZSELECTION'.
************************888框架操作
go_grid->get_frontend_fieldcatalog(
importing
et_fieldcatalog = gt_fieldcat
).
loop at gt_fieldcat into wa_fieldcat.
if wa_fieldcat-fieldname = 'PRICE' .
wa_fieldcat-edit = 'X' .
modify gt_fieldcat from wa_fieldcat.
endif .
endloop .
call method go_grid->set_frontend_fieldcatalog
exporting
it_fieldcatalog = gt_fieldcat.
call method go_grid->refresh_table_display.
call method cl_gui_cfw=>flush.
data: zvalue type string.
go_grid->get_selected_cells(
importing
et_cell = zcw
).
loop at zcw into wa_cw.
read table gi_sflight into g_wa_sflight index wa_cw-row_id.
concatenate 'g_wa_sflight-' wa_cw-col_id into zvalue.
message s000(zd003) with '你选择的值为：' (zvalue).
endloop.
when 'ZINPUT'.
perform adjust_editables using gi_sflight.
when 'ZREF'.
loop at gi_sflight into g_wa_sflight.
clear g_wa_sflight-cellstyles.
modify gi_sflight from g_wa_sflight.
endloop.
m1_flag = 1.
call method go_grid->refresh_table_display.
call method cl_gui_cfw=>flush.
endcase.
endmethod. "handle_user_command
*Handle Hotspot Click
method handle_hotspot_click .
* PERFORM handle_hotspot_click USING e_row_id e_column_id es_row_no .
endmethod . "handle_hotspot_click
*Handle Double Click
method handle_double_click .
perform handle_double_click using e_row e_column es_row_no .
endmethod . "handle_double_click
*Handle Before User Command
method handle_before_user_command .
* PERFORM handle_before_user_command USING e_ucomm .
endmethod . "handle_before_user_command
*Handle Data Changed
method handle_data_changed .
* PERFORM handle_data_changed USING er_data_changed .
endmethod. "handle_data_changed
*Handle Data Changed Finished
method handle_data_changed_finished .
* PERFORM handle_data_changed_finished USING e_modified .
endmethod . "handle_data_changed_finished
*Handle Menu Buttons
method handle_menu_button .
* PERFORM handle_menu_button USING e_object e_ucomm .
endmethod . "handle_menu_button
endclass. "lcl_event_receiver
*&---------------------------------------------------------------------*
*& Form save_changes
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
form save_changes .
data: l_traffic_light type c.
if zd-carrid <> '' and zd-connid <> '' and zd-fldate <> ''.
move-corresponding zd to g_wa_sflight.
modify gi_sflight index g_selected_row-index from g_wa_sflight.
call method go_grid->refresh_table_display.
call method cl_gui_cfw=>flush.
clear zd.
else.
message i000(zd003) with '请填写前三项！'.
endif.
endform. " save_changes
*&---------------------------------------------------------------------*
*& Form get_data
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
form
get_data .
select *
from sflight
into corresponding fields of table gi_sflight
where carrid in zid and connid in zcoid.
endform. " get_data
*&---------------------------------------------------------------------*
*& Form prepare_field_catalog
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* <--P_GT_FIELDCAT text
*----------------------------------------------------------------------*
form
prepare_field_catalog changing pt_fieldcat type lvc_t_fcat .
data ls_fcat type lvc_s_fcat .
clear ls_fcat .
ls_fcat-fieldname = 'FLDATE' .
* ls_fcat-ref_table = 'SFLIGHT' .
* ls_fcat-ref_table = 'CONNID' .
ls_fcat-outputlen = '10' .
* ls_fcat-emphasize = 'C410'.
ls_fcat-drdn_hndl = '1' . "设置为下拉表形式
* ls_fcat-drdn_field = 'FLDATE'.
*ls_fcat-EDIT = 'X'.
append ls_fcat to pt_fieldcat .
clear ls_fcat .
* ls_fcat-drdn_field = 'PLANETYPE'.
ls_fcat-fieldname = 'PLANETYPE' .
* ls_fcat-ref_table = 'SFLIGHT' .
* ls_fcat-ref_table = 'CONNID' .
ls_fcat-outputlen = '10' .
* ls_fcat-emphasize = 'C410'.
ls_fcat-drdn_hndl = '2' . "设置为下拉表形式
* ls_fcat-drdn_field = 'PLANETYPE'.
append ls_fcat to pt_fieldcat .
endform. " prepare_field_catalog
*&---------------------------------------------------------------------*
*& Form prepare_layout
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* <--P_GS_LAYOUT text
*----------------------------------------------------------------------*
form
prepare_layout changing ps_layout type lvc_s_layo.
*************************************************布局设置
ps_layout-grid_title = 'Flights'."ALV的标题
ps_layout-excp_fname = 'TRAFFIC_LIGHT'.
ps_layout-info_fname = 'LINE_COLOR'.
ps_layout-zebra = 'X' .
ps_layout-sel_mode = 'D'.
ps_layout-stylefname = 'CELLSTYLES' .
endform. " prepare_layout
*--- Drilldown values
form prepare_drilldown_values.
data lt_ddval type lvc_t_drop .
data ls_ddval type lvc_s_drop .
ls_ddval-handle = '1' .
ls_ddval-value = '20080502' .
append ls_ddval to lt_ddval .
ls_ddval-handle = '1' .
ls_ddval-value = 'JSF-44' .
append ls_ddval to lt_ddval .
ls_ddval-handle = '1' .
ls_ddval-value = 'KMDA-53' .
append ls_ddval to lt_ddval .
ls_ddval-handle = '1' .
ls_ddval-value = 'SS3O/N' .
append ls_ddval to lt_ddval .
go_grid->set_drop_down_table(
it_drop_down = lt_ddval
).
data lt_val type lvc_t_drop .
* DATA ls_ddval TYPE lvc_s_drop .
ls_ddval-handle = '2' .
ls_ddval-value = 'aaa' .
append ls_ddval to lt_val .
ls_ddval-handle = '2' .
ls_ddval-value = 'bbb' .
append ls_ddval to lt_val .
ls_ddval-handle = '2' .
ls_ddval-value = 'ccc' .
append ls_ddval to lt_val .
ls_ddval-handle = '2' .
ls_ddval-value = 'ddd' .
append ls_ddval to lt_val .
go_grid->set_drop_down_table(
it_drop_down = lt_val
).
endform. " prepare_drilldown_values
*&---------------------------------------------------------------------*
*& Form handle_double_click
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->I_ROW text
* -->I_COLUMN text
* -->I_ROW text
* -->I_COLUMN text
* -->IS_ROW_NO text
*----------------------------------------------------------------------*
form
handle_double_click using i_row type lvc_s_row i_column type
lvc_s_col is_row_no type lvc_s_roid.
data: zvalue type string.
read table gi_sflight into g_wa_sflight index is_row_no-row_id .
concatenate 'g_wa_sflight-' i_column into zvalue.
message s000(zd003) with '你双击的单元格值为：' (zvalue).
endform. . "handle_double_click
*&---------------------------------------------------------------------*
*& Form adjust_editables
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_GI_SFLIGHT text
*----------------------------------------------------------------------*
form
adjust_editables using pt_list like gi_sflight .
if m1_flag = 1.
data ls_listrow like line of pt_list .
data ls_stylerow type lvc_s_styl .
data lt_styletab type lvc_t_styl .
loop at pt_list into ls_listrow .
if ls_listrow-carrid = 'AC' .
ls_stylerow-fieldname = 'FLDATE' .
ls_stylerow-style = cl_gui_alv_grid=>mc_style_disabled .
append ls_stylerow to lt_styletab .
endif .
if ls_listrow-connid = '0455' .
ls_stylerow-fieldname = 'PAYMENTSUM' .
ls_stylerow-style = cl_gui_alv_grid=>mc_style_enabled .
append ls_stylerow to lt_styletab .
endif .
clear ls_stylerow.
loop at lt_styletab into ls_stylerow.
append ls_stylerow to ls_listrow-cellstyles.
*INSERT LINES OF lt_styletab INTO ls_listrow-cellstyles .
modify pt_list from ls_listrow .
endloop.
clear lt_styletab.
call method go_grid->refresh_table_display.
call method cl_gui_cfw=>flush.
endloop .
m1_flag = 0.
endif.
endform. " adjust_editable