VinceCoder
4/15/2019 - 12:02 PM

Nascondere pulsanti toolbar

REPORT zalv.
DATA:
r_container TYPE REF TO cl_gui_custom_container,
r_grid TYPE REF TO cl_gui_alv_grid.
DATA:
t_sflight TYPE TABLE OF sflight.
DATA:
t_fun TYPE ui_functions,
fs_fun TYPE ui_func.
SELECT * FROM sflight INTO TABLE t_sflight.
CALL SCREEN 100.
*&---------------------------------------------------------------------
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------

MODULE status_0100 OUTPUT.
SET PF-STATUS 'SCREEN'.
SET TITLEBAR 'TITLE'.
ENDMODULE. " STATUS_0100 OUTPUT
*&---------------------------------------------------------------------
*& Module USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------

MODULE user_command_0100 INPUT.
CASE sy-ucomm.
WHEN 'BACK'.
LEAVE TO SCREEN 0.
ENDCASE.
ENDMODULE. "USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------
*& Module HANDLER OUTPUT
*&---------------------------------------------------------------------

MODULE list OUTPUT.CREATE OBJECT
r_container
EXPORTING
container_name = 'CONTAINER'.
CREATE OBJECT r_grid
EXPORTING
i_parent = r_container.
fs_fun = cl_gui_alv_grid=>mc_fc_maximum.
APPEND fs_fun TO t_fun.
fs_fun = cl_gui_alv_grid=>mc_fc_minimum.
APPEND fs_fun TO t_fun.
fs_fun = cl_gui_alv_grid=>mc_fc_subtot.
APPEND fs_fun TO t_fun.
fs_fun = cl_gui_alv_grid=>mc_fc_sum.
APPEND fs_fun TO t_fun.
fs_fun = cl_gui_alv_grid=>mc_fg_sort.
APPEND fs_fun TO t_fun.
fs_fun = cl_gui_alv_grid=>mc_fc_filter.
APPEND fs_fun TO t_fun.
fs_fun = cl_gui_alv_grid=>mc_fc_detail.
APPEND fs_fun TO t_fun.
CALL METHOD r_grid->set_table_for_first_display
EXPORTING
it_toolbar_excluding = t_fun
i_structure_name = 'SFLIGHT'
CHANGING
it_outtab = t_sflight.
ENDMODULE. "LIST OUTPUT