SELECT-OPTIONS gruppieren

Code: Alles auswählen.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(5) text-t09.
SELECT-OPTIONS: gr_abc1  FOR tab-abc1.
SELECTION-SCREEN COMMENT 57(6) text-t10. 
SELECT-OPTIONS: gr_abc2  FOR tab-abc2.

Code: Alles auswählen.

REPORT.

CLASS lcl_main DEFINITION DEFERRED.

DATA gs_t005t TYPE t005t.

SELECT-OPTIONS s_land1 FOR gs_t005t-land1.

CLASS lcl_main DEFINITION.
  PUBLIC SECTION.
    CLASS-METHODS go.
  PROTECTED SECTION.
    CLASS-DATA mt_data         TYPE STANDARD TABLE OF t005t.
    CLASS-DATA ms_data         LIKE LINE OF mt_data.
    CLASS-DATA mr_box          TYPE REF TO cl_gui_dialogbox_container.
    CLASS-DATA mr_salv_table   TYPE REF TO cl_salv_table.
    CLASS-METHODS box.
    CLASS-METHODS select.
    CLASS-METHODS display.
    CLASS-METHODS box_close    FOR EVENT close OF cl_gui_dialogbox_container.
ENDCLASS.

CLASS lcl_main IMPLEMENTATION.
  METHOD go.

    select( ).
    display( ).

  ENDMETHOD.

  METHOD select.

    SELECT * FROM t005t INTO TABLE mt_data
     WHERE land1 IN s_land1
       AND spras = sy-langu.

  ENDMETHOD.

  METHOD display.


    box( ).

    IF mr_salv_table IS INITIAL.
      TRY.
          cl_salv_table=>factory(
            EXPORTING
              r_container = mr_box
            IMPORTING
              r_salv_table   = mr_salv_table
            CHANGING
              t_table        = mt_data
                 ).
          mr_salv_table->display( ).
        CATCH cx_salv_msg .
      ENDTRY.
    ELSE.
      mr_salv_table->refresh( ).
    ENDIF.

  ENDMETHOD.

  METHOD box.

    IF mr_box IS INITIAL.
      CREATE OBJECT mr_box
        EXPORTING
          width  = 1800
          height = 800
          top    = 10
          left   = 100.
      SET HANDLER box_close FOR mr_box.
    ELSE.
      mr_box->set_visible( abap_true ).
    ENDIF.

  ENDMETHOD.
  METHOD box_close.
    mr_box->set_visible( abap_false ).
  ENDMETHOD.
ENDCLASS.


AT SELECTION-SCREEN.

  lcl_main=>go( ).

Code: Alles auswählen.

SELECTION-SCREEN COMMENT 1(7) text-t01.
"Select-Option
SELECTION-SCREEN COMMENT 58(7) text-t02.
"Select-Option