SAP中按钮隐藏



PURPOSE: Sometimes, for special operation, don't want to user to find specified button.

 

SAP中按钮隐藏

 

REPORT ZSDREP6708   NO STANDARD PAGE HEADING
                    LINE-SIZE 280 MESSAGE-ID zstdmsg.

TYPE-POOLS:slis.
DATA:rt_extab TYPE slis_t_extab.

 

*Define below in PAI.


  MODULE status_2000 OUTPUT.

    APPEND 'PRINT' TO rt_extab.
  SET PF-STATUS '2000' EXCLUDING rt_extab.

  ENDMODULE.

 

*After implemented,Screen will show as below.

 

SAP中按钮隐藏


实现方法: 1. 在ALV报表的布局,添加一个隐藏/显示字段的按钮。 2. 在程序定义一个全局变量,用于记录当前字段的显示状态,初始值为真(即显示)。 3. 在按钮的点击事件,判断当前的显示状态,如果为真,则将需要隐藏的字段的可见性设为假,并将按钮的文字改为“显示”,同时将全局变量的值改为假;如果为假,则将需要显示的字段的可见性设为真,并将按钮的文字改为“隐藏”,同时将全局变量的值改为真。 4. 最后调用REUSE_ALV_GRID_DISPLAY函数刷新ALV报表即可。 示例代码如下: DATA: gv_hide_field TYPE abap_bool VALUE 'X'. * 定义按钮事件处理程序 DATA: lcl_event_receiver TYPE REF TO cl_gui_alv_grid. CLASS lcl_event_receiver DEFINITION. PUBLIC SECTION. METHODS: on_toolbar FOR EVENT toolbar OF cl_gui_alv_grid IMPORTING e_object e_alv_toolbar. ENDCLASS. CLASS lcl_event_receiver IMPLEMENTATION. METHOD on_toolbar. DATA: l_button TYPE salv_s_toolbar_button. * 添加一个隐藏/显示字段的按钮 l_button-function = 'HIDE_SHOW_FIELD'. l_button-icon = 'ICON_HIDE_SHOW'. l_button-quickinfo = 'Hide/Show Field'. l_button-text = 'Hide Field'. l_button-user_command = 'HIDE_SHOW_FIELD'. APPEND l_button TO e_alv_toolbar->salv_toolbar. ENDMETHOD. ENDCLASS. * 定义隐藏/显示字段的按钮事件处理程序 DATA: lcl_event_handler TYPE REF TO lcl_event_receiver. CLASS lcl_event_handler DEFINITION. PUBLIC SECTION. METHODS: on_user_command FOR EVENT user_command OF cl_gui_alv_grid IMPORTING e_ucomm e_selfield. ENDCLASS. CLASS lcl_event_handler IMPLEMENTATION. METHOD on_user_command. DATA: l_layout TYPE lvc_s_layo. CASE e_ucomm. WHEN 'HIDE_SHOW_FIELD'. * 判断当前显示状态 IF gv_hide_field = abap_true. l_layout-hide = abap_true. " 需要隐藏的字段 e_selfield-layout = l_layout. e_selfield-refresh = abap_true. e_selfield-free = abap_true. SET CURSOR FIELD 'HIDE_SHOW_FIELD'. e_selfield-text = 'Show Field'. gv_hide_field = abap_false. ELSE. l_layout-hide = abap_false. " 需要显示的字段 e_selfield-layout = l_layout. e_selfield-refresh = abap_true. e_selfield-free = abap_true. SET CURSOR FIELD 'HIDE_SHOW_FIELD'. e_selfield-text = 'Hide Field'. gv_hide_field = abap_true. ENDIF. ENDCASE. ENDMETHOD. ENDCLASS. * 初始化报表 DATA: gt_outtab TYPE TABLE OF <your_data_type>. CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY' EXPORTING i_callback_program = sy-repid i_callback_top_of_page = 'TOP_OF_PAGE' i_callback_user_command = 'USER_COMMAND' i_callback_pf_status_set = 'PF_STATUS_SET' is_layout = gs_layout TABLES t_outtab = gt_outtab EXCEPTIONS program_error = 1 OTHERS = 2. IF sy-subrc <> 0. MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. ENDIF. * 添加隐藏/显示字段的按钮 CREATE OBJECT lcl_event_receiver. * 添加按钮事件处理程序 CREATE OBJECT lcl_event_handler. SET HANDLER lcl_event_handler->on_user_command FOR lcl_event_receiver.
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值