Code: Alles auswählen.
CALL METHOD grid->set_table_for_first_display
EXPORTING
i_structure_name = 'GT_AUSGABE'
is_variant = gs_variant
it_toolbar_excluding = t_excl
..........
Code: Alles auswählen.
*---------------------------------------------------------------------*
* CLASS lcl_event_handler DEFINITION
*---------------------------------------------------------------------*
*
*---------------------------------------------------------------------*
CLASS lcl_event_handler DEFINITION .
PUBLIC SECTION .
METHODS:
*--To add new functional buttons to the ALV toolbar
handle_toolbar FOR EVENT toolbar OF cl_gui_alv_grid
IMPORTING e_object e_interactive ,
*--To implement user commands
handle_user_command
FOR EVENT user_command OF cl_gui_alv_grid
IMPORTING e_ucomm .
*--To be triggered before user commands
*handle_before_user_command
*FOR EVENT before_user_command OF cl_gui_alv_grid
*IMPORTING e_ucomm.
*--Double-click control
*handle_double_click
*FOR EVENT double_click OF cl_gui_alv_grid
*IMPORTING e_row e_column es_row_no.
PRIVATE SECTION.
ENDCLASS. "lcl_event_handler DEFINITION
*---------------------------------------------------------------------*
* CLASS lcl_event_handler IMPLEMENTATION
*---------------------------------------------------------------------*
*
*---------------------------------------------------------------------*
CLASS lcl_event_handler IMPLEMENTATION .
*--Handle Toolbar
METHOD handle_toolbar.
PERFORM handle_toolbar USING e_object e_interactive .
ENDMETHOD . "handle_toolbar
*--Handle User Command
METHOD handle_user_command .
PERFORM handle_user_command USING e_ucomm .
ENDMETHOD. "handle_user_command
*--Handle Before User Command JG
* METHOD handle_before_user_command .
* PERFORM handle_before_user_command USING e_ucomm .
* ENDMETHOD . "handle_before_user_command
ENDCLASS. "lcl_event_handler IMPLEMENTATION
:
:
:
*&--------------------------------------------------------------------*
*& Form handle_toolbar
*&--------------------------------------------------------------------*
* text
*---------------------------------------------------------------------*
* -->I_OBJECT text
*---------------------------------------------------------------------*
FORM handle_toolbar USING i_object TYPE REF TO cl_alv_event_toolbar_set
e_interactive .
DATA: ls_toolbar TYPE stb_button.
* Paltzhalter / Seperator
CLEAR ls_toolbar.
MOVE 3 TO ls_toolbar-butn_type.
APPEND ls_toolbar TO i_object->mt_toolbar.
* Button MARKIEREN
CLEAR ls_toolbar.
MOVE 'MARK' TO ls_toolbar-function. "#EC NOTEXT
MOVE icon_execute_object TO ls_toolbar-icon.
MOVE 'Programm ausführen'(201) TO ls_toolbar-quickinfo.
MOVE ' Programm ausführen'(201) TO ls_toolbar-text.
MOVE ' ' TO ls_toolbar-disabled. "#EC NOTEXT
APPEND ls_toolbar TO i_object->mt_toolbar.
ENDFORM . "handle_toolbar
Folgende Benutzer bedankten sich beim Autor Tron für den Beitrag:
SAP_ENTWICKLER
Folgende Benutzer bedankten sich beim Autor a-dead-trousers für den Beitrag:
SAP_ENTWICKLER