Displaying selection screen as pop-up from dialog box

Question

Hi,
      I have a screen which is of dialog-box type. This dialog screen shows an ALV and has a button in the ALV toolbar. On pressing this button, a pop-up screen is to be displayed. This pop-up screen is designed as a selection-screen. Is it possible to display this selection screen as a pop-up from a dialog box screen?
Regards,
Suhas

Answer 1

Hi Suhas,
Its possible to display selection screen as pop-up from dialog box.....Check the code below...copy paste and execute...
SELECTION-SCREEN BEGIN OF SCREEN 123 AS WINDOW TITLE text-001.
PARAMETER p.
SELECTION-SCREEN END   OF SCREEN 123.
CALL SELECTION-SCREEN 123 STARTING AT 20 5
                            ENDING AT 80 15.
The below code might help u to add a button in alvgrid's toolbar......
*       CLASS lcl_event_handler DEFINITION
CLASS lcl_event_handler DEFINITION.
  PUBLIC SECTION.
    DATA: wa_toolbar   TYPE stb_button,
          calc         TYPE REF   TO cl_gui_frontend_services.
    METHODS : toolbar_handle FOR EVENT toolbar      OF cl_gui_alv_grid
                                    IMPORTING e_object
                                              e_interactive,
              ucomm_handle   FOR EVENT user_command OF cl_gui_alv_grid
                                    IMPORTING e_ucomm.
ENDCLASS.                    "lcl_event_handler DEFINITION
*       CLASS lcl_event_handler IMPLEMENTATION
CLASS lcl_event_handler IMPLEMENTATION.
  METHOD toolbar_handle.
    MOVE   3 TO  wa_toolbar-butn_type.
    APPEND wa_toolbar   TO e_object->mt_toolbar.
    MOVE : 0            TO wa_toolbar-butn_type,
           'CALC'       TO wa_toolbar-function,
           '@0M@'       TO wa_toolbar-icon,
           'Calculator' TO wa_toolbar-quickinfo.
    APPEND wa_toolbar TO e_object->mt_toolbar.
  ENDMETHOD. "toolbar_handle
  METHOD ucomm_handle.
    IF e_ucomm = 'CALC'.   " When button added in toolbar is clicked
      IF calc IS INITIAL.
        CREATE OBJECT calc.
      ENDIF.
      CALL METHOD cl_gui_frontend_services=>execute
   EXPORTING
     application            = 'CALC'.
    ENDIF.
  ENDMETHOD. "ucomm_handle
ENDCLASS.                    "lcl_event_handler IMPLEMENTATION
DATA : container    TYPE REF   TO cl_gui_custom_container,
       grid         TYPE REF   TO cl_gui_alv_grid,
       event        TYPE REF   TO lcl_event_handler,
       it_display   TYPE TABLE OF mara,
       wa_display   TYPE mara.
START-OF-SELECTION.
  CALL SCREEN 100.
*&      Module  STATUS_0100  OUTPUT
*       text
MODULE status_0100 OUTPUT.
  SET PF-STATUS 'BASIC'.
  PERFORM build_it_display.
  PERFORM create_objects.
ENDMODULE.                 " STATUS_0100  OUTPUT
*&      Module  USER_COMMAND_0100  INPUT
*       text
MODULE user_command_0100 INPUT.
  CASE sy-ucomm.
    WHEN 'BACK'.
      SET SCREEN 0.
      LEAVE SCREEN.
    WHEN 'EXIT'.
      SET SCREEN 0.
      LEAVE SCREEN.
    WHEN 'CANC'.
      SET SCREEN 0.
      LEAVE SCREEN.
  ENDCASE.
ENDMODULE.                 " USER_COMMAND_0100  INPUT
*&      Form  build_it_display
*       text
*  -->  p1        text
*  <--  p2        text
FORM build_it_display .
  SELECT * FROM mara UP TO 15 ROWS INTO TABLE it_display.
ENDFORM.                    " build_it_display
*&      Form  create_objects
*       text
*  -->  p1        text
*  <--  p2        text
FORM create_objects .
  IF container IS INITIAL.
    CREATE OBJECT container
    EXPORTING
      container_name     = 'CUSTOM'.
    CREATE OBJECT event.
    CREATE OBJECT grid
      EXPORTING
        i_parent         = container.
    SET HANDLER event->toolbar_handle FOR grid.
    SET HANDLER event->ucomm_handle   FOR grid.
    CALL METHOD grid->set_table_for_first_display
      EXPORTING
        i_structure_name = 'MARA'
      CHANGING
        it_outtab        = it_display.
  ENDIF.
ENDFORM.                    " create_objects
Cheers,
Jose.