ui 开发语言服务器数据库前端 SAP ooalv各种事件的用法

1、需新建屏幕1001 并画container：'CONT1' 2、需新建屏幕1002 并画container：'CONT2' 3、定义屏幕1001、1002的ok_code和逻辑流 4、定义工具栏

程序代码：

TABLES t001w.

TYPES:BEGIN OF typ_t001w ,

werks TYPE t001w-werks,

name1 TYPE t001w-name1,

werks2 TYPE t001w-werks,

rowcolor TYPE char10,

zcheckbox TYPE c, "LAYOUT-CHECBOX = 'ZCHECKBOX'.

* zflag TYPE c, "LAYOUT-BOX_FNAME = 'ZFLAG'.

zicon TYPE char10, "LAYOUT-ICON = 'ZICON' 图标需要显示的

END OF typ_t001w.

TYPES:BEGIN OF typ_smf ,

werks TYPE t001w-werks,

name1 TYPE t001w-name1,

END OF typ_smf.

DATA:i_t001w TYPE TABLE OF typ_t001w,"""""第一次ALV内表

i_detail TYPE TABLE OF typ_smf, """""单击ALV内表列ZICON显示的明细ALV内表

i_smf TYPE TABLE OF typ_smf.""""SF内表

DATA:fieldcat TYPE lvc_t_fcat,

grid TYPE REF TO cl_gui_alv_grid, "alv控件名

grid2 TYPE REF TO cl_gui_alv_grid, "alv控件名

g_container TYPE scrfname VALUE 'CONT1',"重新定义本地容器对象名

g_container2 TYPE scrfname VALUE 'CONT2',"重新定义本地容器对象名

is_layout TYPE lvc_s_layo,

ps_layout TYPE lvc_s_layo,

g_custom_container TYPE REF TO cl_gui_custom_container,

g_custom_container2 TYPE REF TO cl_gui_custom_container.

DATA: ui_functions TYPE ui_functions. "隐藏按钮的内表

*********ALV上事件捕捉类

DATA:gs_toolbar TYPE stb_button. "按钮

CLASS alv_event_receiver DEFINITION DEFERRED. "声明类对象

*----------------------------------------------------------------------*

* CLASS alv_event_receiver DEFINITION

*----------------------------------------------------------------------*

CLASS alv_event_receiver DEFINITION. "声明类成员可见性

PUBLIC SECTION. "定义相关类成员可以被程序中的所有对象调用

CLASS-METHODS: "静态方法

handle_toolbar "初始化工具栏对象事件，如增加按钮并设定其属性

FOR EVENT toolbar OF cl_gui_alv_grid

IMPORTING e_object e_interactive,

handle_menu_button "用于在下拉菜单中增加选项

FOR EVENT menu_button OF cl_gui_alv_grid

IMPORTING e_object e_ucomm,

handle_user_command "工具栏中的按钮的单击事件

FOR EVENT user_command OF cl_gui_alv_grid

IMPORTING e_ucomm,

handle_hotspot_click

FOR EVENT hotspot_click OF cl_gui_alv_grid "屏幕中的单击事件，可以具体到某行某列，需要设置热点

IMPORTING e_row_id e_column_id es_row_no,

handle_double_click

FOR EVENT double_click OF cl_gui_alv_grid "屏幕中的双击事件，可以具体到某行某列，即使设置热点也必须双击

IMPORTING e_row e_column es_row_no.

ENDCLASS. "alv_event_receiver DEFINITION

*&---------------------------------------------------------------------*

*& Class (Implementation) alv_event_receiver

*&---------------------------------------------------------------------*

* Text

*----------------------------------------------------------------------*

CLASS alv_event_receiver IMPLEMENTATION. "实现类方法

METHOD handle_toolbar.

gs_toolbar-function = 'B_SUM'. "为按钮分配功能码

gs_toolbar-icon = icon_display. "为按钮分配图标

gs_toolbar-text = '总行数'. "为按钮分配文本

gs_toolbar-butn_type = '0'. "定义按钮类型，不填时默认为0

APPEND gs_toolbar TO e_object->mt_toolbar. "添加按钮到工具栏

gs_toolbar-function = 'B_PRINT'. "为按钮分配功能码

gs_toolbar-icon = icon_import. "为按钮分配图标

gs_toolbar-text = '转储订单打印'. "为按钮分配文本

gs_toolbar-checked = 'X'.

gs_toolbar-butn_type = '0'. "定义按钮类型，不填时默认为0

APPEND gs_toolbar TO e_object->mt_toolbar. "添加按钮到工具栏

gs_toolbar-function = 'B_LIST'. "为按钮分配功能码

gs_toolbar-quickinfo = '自定义下拉菜单'.

gs_toolbar-icon = icon_biw_report_view. "为按钮分配图标

gs_toolbar-text = '下拉菜单'. "为按钮分配文本

gs_toolbar-butn_type = '1'. "定义按钮类型

APPEND gs_toolbar TO e_object->mt_toolbar. "添加按钮到工具栏

gs_toolbar-function = 'B_EDIT'. "为按钮分配功能码

gs_toolbar-icon = icon_change. "为按钮分配图标

gs_toolbar-text = '切换编辑状态'. "为按钮分配文本

gs_toolbar-checked = 'X'.

gs_toolbar-butn_type = '0'. "定义按钮类型，不填时默认为0

APPEND gs_toolbar TO e_object->mt_toolbar. "添加按钮到工具栏

ENDMETHOD. "handle_toolbar

METHOD handle_menu_button.

IF e_ucomm = 'B_LIST'.

CALL METHOD e_object->add_function

EXPORTING

icon = icon_display

fcode = 'B_SUM'

text = '显示ALV总数'.

ENDIF.

ENDMETHOD. "handle_menu_button

METHOD handle_user_command.

DATA sum TYPE i.

DATA text TYPE string.

DATA: lwa_t001w LIKE LINE OF i_t001w.

DATA: lwa_smf LIKE LINE OF i_smf.

CASE e_ucomm.

WHEN 'B_SUM'.

DESCRIBE TABLE i_t001w[] LINES sum.

text = sum.

CONCATENATE '当前表格中数据的总行数:' text INTO text.

MESSAGE text TYPE 'I'. "为何消息类型为 E 时运行时显示A类型，异常终止到初始界面

WHEN 'B_PRINT'.

LOOP AT i_t001w INTO lwa_t001w WHERE zcheckbox = 'X'.

lwa_smf-werks = lwa_t001w-werks.

lwa_smf-name1 = lwa_t001w-name1.

APPEND lwa_smf TO i_smf.

CLEAR :lwa_t001w,lwa_smf.

ENDLOOP.

IF i_smf[] IS INITIAL.

MESSAGE '请至少选择一行数据区打印！' TYPE 'E'. "E类型消息会转化为A类型，很蛋疼，求破！

ELSE.

PERFORM frm_print_data. "这个没具体写。

ENDIF.

WHEN 'B_EDIT'.

IF grid->is_ready_for_input( ) EQ 0.

CALL METHOD grid->set_ready_for_input

EXPORTING

i_ready_for_input = 1.

ELSE.

CALL METHOD grid->set_ready_for_input

EXPORTING

i_ready_for_input = 0.

ENDIF.

WHEN OTHERS.

ENDCASE.

ENDMETHOD. "handle_user_command

"ALV内表展示处单击事件捕捉，需要设置热点对单击列字段

METHOD handle_hotspot_click.

DATA:lwa_t001w LIKE LINE OF i_t001w.

READ TABLE i_t001w INTO lwa_t001w INDEX es_row_no-row_id. "判断行号

CASE e_column_id-fieldname . "判断列名

WHEN 'NAME1'.

CALL TRANSACTION 'ME51N' AND SKIP FIRST SCREEN. "随便写的

WHEN 'ZICON'. "

SELECT werks

name1

INTO TABLE i_detail

FROM t001w

WHERE werks = lwa_t001w-werks2.

CLEAR lwa_t001w.

IF sy-subrc NE 0.

MESSAGE 'No result finding!' TYPE 'I'.

ELSE.

CALL SCREEN 1002.

ENDIF.

WHEN OTHERS.

ENDCASE.

* MESSAGE i001(00) WITH '当前行：' es_row_no-row_id '，航线代码：' ls_lt001w-werks.

ENDMETHOD. "handle_hotspot_click

"ALV内表展示处双击击事件捕捉，如果设置热点双击不起作用

METHOD handle_double_click.

DATA:lwa_t001w LIKE LINE OF i_t001w.

READ TABLE i_t001w INTO lwa_t001w INDEX es_row_no-row_id.

IF e_column-fieldname = 'WERKS'.

SET PARAMETER ID 'AUN' FIELD lwa_t001w-werks.

CALL TRANSACTION 'VA03' AND SKIP FIRST SCREEN.

ENDIF.

ENDMETHOD. "handle_double_click

ENDCLASS. "alv_event_receiver

START-OF-SELECTION.

CALL SCREEN 1001.

*&---------------------------------------------------------------------*

*& Module STATUS_1001 OUTPUT

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

MODULE status_1001 OUTPUT.

SET PF-STATUS 'T001'.

* SET TITLEBAR 'xxx'.

ENDMODULE. " STATUS_1001 OUTPUT

*&---------------------------------------------------------------------*

*& Module USER_COMMAND_1001 INPUT

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

MODULE user_command_1001 INPUT.

FIELD-SYMBOLS TYPE typ_t001w .

DATA: i TYPE i VALUE 0.

DATA ok_code TYPE sy-ucomm.

ok_code = sy-ucomm.

CLEAR sy-ucomm.

CASE ok_code.

WHEN 'BACK'.

LEAVE TO SCREEN 0.

WHEN 'EDIT'.

IF grid->is_ready_for_input( ) EQ 0.

CALL METHOD grid->set_ready_for_input

EXPORTING

i_ready_for_input = 1.

ELSE.

CALL METHOD grid->set_ready_for_input

EXPORTING

i_ready_for_input = 0.

ENDIF.

WHEN 'EXECU'.

SELECT * FROM t001w

INTO CORRESPONDING FIELDS OF TABLE i_t001w.

LOOP AT i_t001w ASSIGNING .

-werks2 = -werks.

-zicon = '@16@'. "图标

ENDLOOP.

IF g_custom_container IS INITIAL.

PERFORM exclude_tb_functions CHANGING ui_functions. "隐藏某些按钮

PERFORM frm_layout_set.

PERFORM frm_fieldcat_set.

PERFORM alv_show.

ELSE.

CALL METHOD grid->refresh_table_display. "刷新

ENDIF.

WHEN OTHERS.

ENDCASE.

ENDMODULE. " USER_COMMAND_1001 INPUT

*&---------------------------------------------------------------------*

*& Form ALV_SHOW

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* --> p1 text

* <-- p2 text

*----------------------------------------------------------------------*

FORM alv_show .

CREATE OBJECT g_custom_container "创建容器对象

EXPORTING container_name = g_container.

CREATE OBJECT grid "创建ALV对象

EXPORTING i_parent = g_custom_container.

CALL METHOD grid->register_edit_event "可编辑回传方法

EXPORTING

i_event_id = grid->mc_evt_modified.

CALL METHOD grid->set_table_for_first_display

EXPORTING

* I_BUFFER_ACTIVE =

* I_BYPASSING_BUFFER =

* I_CONSISTENCY_CHECK =

* I_STRUCTURE_NAME = 'T001W'

* IS_VARIANT =

i_save = 'X'

* I_DEFAULT = 'X'

is_layout = is_layout

* IS_PRINT =

* IT_SPECIAL_GROUPS =

it_toolbar_excluding = ui_functions[]

* IT_HYPERLINK =

* IT_ALV_GRAPHICS =

* IT_EXCEPT_QINFO =

* IR_SALV_ADAPTER =

CHANGING

it_outtab = i_t001w[]

it_fieldcatalog = fieldcat[].

* IT_SORT =

* IT_FILTER =

* EXCEPTIONS

* INVALID_PARAMETER_COMBINATION = 1

* PROGRAM_ERROR = 2

* TOO_MANY_LINES = 3

* others = 4

******注册ALV中引用的事件

SET HANDLER alv_event_receiver=>handle_toolbar

alv_event_receiver=>handle_menu_button

alv_event_receiver=>handle_user_command

alv_event_receiver=>handle_hotspot_click

alv_event_receiver=>handle_double_click

FOR ALL INSTANCES.

****调用方法激活自定义工具对象

CALL METHOD grid->set_toolbar_interactive.

ENDFORM. " ALV_SHOW

*&---------------------------------------------------------------------*

*& Form exclude_tb_functions

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* -->PT_EXCLUDE text

*----------------------------------------------------------------------*

FORM exclude_tb_functions CHANGING pt_exclude TYPE ui_functions .

DATA ls_exclude TYPE ui_func.

ls_exclude = cl_gui_alv_grid=>mc_fc_filter . "过滤器