Menu Button in ALV toolbar (multiple choices for a button)

Question

Hi abapers,
I would like to have a button with multiple choices in the toolbar;
at the moment I have created a menu button with just one function.
Here is my code:
CLASS lcl_event_receiver (Definition)
CLASS lcl_event_receiver DEFINITION.
  PUBLIC SECTION.
    METHODS:
    handle_toolbar
        FOR EVENT toolbar OF cl_gui_alv_grid
            IMPORTING e_object e_interactive.
ENDCLASS.                    "lcl_event_receiver DEFINITION
CLASS lcl_event_receiver (Implementation)
CLASS lcl_event_receiver IMPLEMENTATION.
  METHOD handle_toolbar.
    DATA: ls_toolbar  TYPE stb_button.
*Separator
    CLEAR ls_toolbar.
    MOVE 3 TO ls_toolbar-butn_type.
    APPEND ls_toolbar TO e_object->mt_toolbar.
*Button
    CLEAR ls_toolbar.
    MOVE 1 TO ls_toolbar-butn_type.
    MOVE 'EDIT' TO ls_toolbar-function.
    MOVE icon_change TO ls_toolbar-icon.
    MOVE ' Modifica'(l02) TO ls_toolbar-text.
    MOVE ' ' TO ls_toolbar-disabled.
    MOVE 'Modifica' TO ls_toolbar-quickinfo.
    APPEND ls_toolbar TO e_object->mt_toolbar.
  ENDMETHOD.                    "handle_toolbar
ENDCLASS.                    "lcl_event_receiver IMPLEMENTATION

Answer 1

hi,
check this code and reward me if it helps you..
TYPE-POOLS : slis,icon.
*Structure declaration for tcodes
TYPES : BEGIN OF ty_table,
        tcode TYPE tcode,
        pgmna TYPE progname,
        END OF ty_table.
*Structure for tocde text
TYPES : BEGIN OF ty_itext,
        tcode TYPE tcode,
        ttext TYPE ttext_stct,
        sprsl TYPE sprsl,
        END OF ty_itext.
*Structure for output display
TYPES : BEGIN OF ty_output,
        tcode TYPE tcode,
        pgmna TYPE progname,
        ttext TYPE ttext_stct,
       END OF ty_output.
*internal table and work area declarations
DATA : it_table TYPE STANDARD TABLE OF ty_table INITIAL SIZE 0,
       it_output TYPE STANDARD TABLE OF ty_output INITIAL SIZE 0,
       it_ittext TYPE STANDARD TABLE OF ty_itext INITIAL SIZE 0,
       wa_table TYPE ty_table,
       wa_output TYPE ty_output,
       wa_ittext TYPE ty_itext.
*Class definition for ALV toolbar
CLASS:      lcl_alv_toolbar   DEFINITION DEFERRED.
*Declaration for toolbar buttons
DATA : ty_toolbar TYPE stb_button.
Data declarations for ALV
DATA: c_ccont TYPE REF TO cl_gui_custom_container,   "Custom container object
      c_alvgd         TYPE REF TO cl_gui_alv_grid,   "ALV grid object
      it_fcat            TYPE lvc_t_fcat,            "Field catalogue
      it_layout          TYPE lvc_s_layo,            "Layout
      c_alv_toolbar    TYPE REF TO lcl_alv_toolbar,           "Alv toolbar
      c_alv_toolbarmanager TYPE REF TO cl_alv_grid_toolbar_manager.  "Toolbar manager
*Initialization event
INITIALIZATION.
*Start of selection event
START-OF-SELECTION.
*Subroutine to get values from tstc table
  PERFORM fetch_data.
*subroutine for alv display
  PERFORM alv_output.
      CLASS lcl_alv_toolbar DEFINITION
      ALV event handler
CLASS lcl_alv_toolbar DEFINITION.
  PUBLIC SECTION.
*Constructor
    METHODS: constructor
               IMPORTING
                 io_alv_grid TYPE REF TO cl_gui_alv_grid,
*Event for toolbar
    on_toolbar
       FOR EVENT toolbar
       OF  cl_gui_alv_grid
       IMPORTING
         e_object.
ENDCLASS.                    "lcl_alv_toolbar DEFINITION
      CLASS lcl_alv_toolbar IMPLEMENTATION
      ALV event handler
CLASS lcl_alv_toolbar IMPLEMENTATION.
  METHOD constructor.
  Create ALV toolbar manager instance
    CREATE OBJECT c_alv_toolbarmanager
      EXPORTING
        io_alv_grid      = io_alv_grid.
   ENDMETHOD.                    "constructor
  METHOD on_toolbar.
  Add customized toolbar buttons.
  variable for Toolbar Button
      ty_toolbar-icon      =  icon_generate.
    ty_toolbar-butn_type = 0.
    ty_toolbar-text = 'Button1'.
      APPEND ty_toolbar TO e_object->mt_toolbar.
      ty_toolbar-icon      =  icon_voice_output.
    ty_toolbar-butn_type = 0.
    ty_toolbar-text = 'Button2'.
       APPEND ty_toolbar TO e_object->mt_toolbar.
     ty_toolbar-icon      =  icon_phone.
    ty_toolbar-butn_type = 0.
    ty_toolbar-text = 'Button3'.
       APPEND ty_toolbar TO e_object->mt_toolbar.
     ty_toolbar-icon      =  icon_mail.
    ty_toolbar-butn_type = 0.
    ty_toolbar-text = 'Button4'.
       APPEND ty_toolbar TO e_object->mt_toolbar.
   ty_toolbar-icon      =  icon_voice_input.
    ty_toolbar-butn_type = 0.
    ty_toolbar-text = 'Button5'.
     APPEND ty_toolbar TO e_object->mt_toolbar.
  Call reorganize method of toolbar manager to
  display the toolbar
     CALL METHOD c_alv_toolbarmanager->reorganize
      EXPORTING
        io_alv_toolbar = e_object.
   ENDMETHOD.                    "on_toolbar
ENDCLASS.                    "lcl_alv_toolbar IMPLEMENTATION
*&      Form  fetch_data
      text
-->  p1        text
<--  p2        text
FORM fetch_data .
Select the tcodes upto 200 rows from TSTC
   SELECT   tcode
           pgmna
           FROM tstc
           INTO CORRESPONDING FIELDS OF TABLE it_table
           UP TO 200 ROWS
           WHERE dypno NE '0000'.
*Select the tcode textx
   IF it_table[] IS NOT INITIAL.
     SELECT ttext
           tcode
           sprsl
           FROM tstct
           INTO CORRESPONDING FIELDS OF TABLE it_ittext
           FOR ALL ENTRIES IN it_table
           WHERE tcode = it_table-tcode
           AND sprsl = 'E'.
   ENDIF.
Apppending the data to the internal table of ALV output
   LOOP AT it_table INTO wa_table.
    wa_output-tcode = wa_table-tcode.
    wa_output-pgmna = wa_table-pgmna.
   For texts
    READ TABLE it_ittext INTO wa_ittext WITH KEY tcode = wa_table-tcode.
    wa_output-ttext = wa_ittext-ttext.
     APPEND wa_output TO it_output.
    CLEAR wa_output.
   ENDLOOP.
   ENDFORM.                    " fetch_data
*&      Form  alv_output
      text
-->  p1        text
<--  p2        text
FORM alv_output .
*Calling the ALV
  CALL SCREEN 0600.
  ENDFORM.                    " alv_output
Calling the ALV screen with custom container
On this statement double click  it takes you to the screen painter SE51.Enter the attributes
*Create a Custom container and name it CC_CONT and OK code as OK_CODE.
*Save check and Activate the screen painter.
Now a normal screen with number 600 is created which holds the ALV grid. PBO of the actual screen , Here we can give a title and *customized menus
*&      Module  STATUS_0600  OUTPUT
      text
MODULE status_0600 OUTPUT.
SET PF-STATUS 'xxxxxxxx'.
SET TITLEBAR 'xxx'.
ENDMODULE.                 " STATUS_0600  OUTPUT
calling the PBO module ALV_GRID.
*&      Module  ALV_GRID  OUTPUT
      text
MODULE alv_grid OUTPUT.
*create object for custom container
  CREATE OBJECT c_ccont
       EXPORTING
          container_name = 'CC_CONT'.
*create object of alv grid
  CREATE OBJECT c_alvgd
      EXPORTING
          i_parent = c_ccont.
create ALV event handler
  CREATE OBJECT c_alv_toolbar
    EXPORTING
      io_alv_grid = c_alvgd.
Register event handler
  SET HANDLER c_alv_toolbar->on_toolbar FOR c_alvgd.
Fieldcatalogue for ALV
   PERFORM alv_build_fieldcat.
ALV attributes FOR LAYOUT
  PERFORM alv_report_layout.
   CHECK NOT c_alvgd IS INITIAL.
Call ALV GRID
   CALL METHOD c_alvgd->set_table_for_first_display
    EXPORTING
      is_layout                     = it_layout
    CHANGING
      it_outtab                     = it_output
      it_fieldcatalog               = it_fcat
    EXCEPTIONS
      invalid_parameter_combination = 1
      program_error                 = 2
      too_many_lines                = 3
      OTHERS                        = 4.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
               WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
ENDMODULE.                 " ALV_GRID  OUTPUT
*&      Form  alv_build_fieldcat
      text
     <--P_IT_FCAT  text
FORM alv_build_fieldcat.
   DATA lv_fldcat TYPE lvc_s_fcat.
  CLEAR lv_fldcat.
  lv_fldcat-row_pos   = '1'.
  lv_fldcat-col_pos   = '1'.
  lv_fldcat-fieldname = 'TCODE'.
  lv_fldcat-tabname   = 'IT_OUTPUT'.
  lv_fldcat-outputlen = 8.
  lv_fldcat-scrtext_m = 'TCODE'.
  APPEND lv_fldcat TO it_fcat.
  CLEAR lv_fldcat.
   lv_fldcat-row_pos   = '1'.
  lv_fldcat-col_pos   = '2'.
  lv_fldcat-fieldname = 'PGMNA'.
  lv_fldcat-tabname   = 'IT_OUTPUT'.
  lv_fldcat-outputlen = 15.
  lv_fldcat-scrtext_m = 'PROGNAME'.
  APPEND lv_fldcat TO it_fcat.
  CLEAR lv_fldcat.
  lv_fldcat-row_pos   = '1'.
  lv_fldcat-col_pos   = '3'.
  lv_fldcat-fieldname = 'TTEXT'.
  lv_fldcat-tabname   = 'IT_OUTPUT'.
  lv_fldcat-outputlen = 60.
  lv_fldcat-scrtext_m = 'Description'.
  APPEND lv_fldcat TO it_fcat.
  CLEAR lv_fldcat.
ENDFORM.                    " alv_build_fieldcat
*&      Form  alv_report_layout
      text
     <--P_IT_LAYOUT  text
FORM alv_report_layout.
   it_layout-cwidth_opt = 'X'.
   it_layout-zebra = 'X'.
ENDFORM.                    " alv_report_layout
PAI module of the screen created. In case we use an interactive ALV or
*for additional functionalities we can create OK codes
*and based on the user command we can do the coding.
*&      Module  USER_COMMAND_0600  INPUT
      text
MODULE user_command_0600 INPUT.
ENDMODULE.                 " USER_COMMAND_0600  INPUT
thanks,
gupta