CL_SALV_TABLE: Sortierung retten

Code: Alles auswählen.

REPORT.
DATA h_land1 TYPE land1.

SELECT-OPTIONS s_land1 FOR h_land1.

*----------------------------------------------------------------------*
*       CLASS l DEFINITION
*----------------------------------------------------------------------*
CLASS l DEFINITION.
  PUBLIC SECTION.
    CLASS-METHODS disp.
    CLASS-METHODS load.
    CLASS-DATA mt_data TYPE STANDARD TABLE OF t005.
    CLASS-DATA mr_salv TYPE REF TO cl_salv_table.
    CLASS-DATA mr_dock TYPE REF TO cl_gui_docking_container.
ENDCLASS.                    "l DEFINITION

*----------------------------------------------------------------------*
*       CLASS l IMPLEMENTATION
*----------------------------------------------------------------------*
CLASS l IMPLEMENTATION.
  METHOD load.
    SELECT * FROM t005 INTO TABLE mt_data WHERE land1 IN s_land1.
  ENDMETHOD.                    "load
  METHOD disp.

    IF mr_salv IS INITIAL.
      CREATE OBJECT mr_dock
        EXPORTING
          side                    = cl_gui_docking_container=>dock_at_bottom
          ratio                   = 85
          no_autodef_progid_dynnr = space
        EXCEPTIONS
          others                  = 6.

      cl_salv_table=>factory( EXPORTING r_container  = mr_dock
                              IMPORTING r_salv_table = mr_salv
                               CHANGING t_table      = mt_data  ).
      mr_salv->display( ).
    ELSE.
      mr_salv->refresh( refresh_mode = IF_SALV_C_REFRESH=>full ).
    ENDIF.

  ENDMETHOD.                    "disp
ENDCLASS.                    "l IMPLEMENTATION

AT SELECTION-SCREEN.
  l=>load( ).
  l=>disp( ).