ALV Grid Sortierung - Doppelte Werte gruppieren

Code: Alles auswählen.

"go_alv type ref to cl_gui_alv_grid 

      "Otherwise no filled Checkboxes are visible
      IF NOT go_alv IS INITIAL.
        CALL METHOD go_alv->check_changed_data .
      ENDIF.

Code: Alles auswählen.

Code: Alles auswählen.

REPORT zknobel_xstring.

INCLUDE <cl_alv_control>.

CLASS lcl DEFINITION FINAL.
  PUBLIC SECTION.
    TYPES: BEGIN OF mts_data,
             box     TYPE char1,
             line    TYPE text10,
             t_style TYPE lvc_t_styl,
           END OF mts_data.
    METHODS:
      main,
      get_fcat RETURNING VALUE(rt_fcat) TYPE lvc_t_fcat,
      handle_hotspot_click FOR EVENT hotspot_click OF cl_gui_alv_grid IMPORTING es_row_no sender.
    DATA: mt_data TYPE STANDARD TABLE OF mts_data WITH NON-UNIQUE DEFAULT KEY.
ENDCLASS.

END-OF-SELECTION.

  NEW lcl( )->main( ).

CLASS lcl IMPLEMENTATION.
  METHOD main.
    DO 10 TIMES.
      APPEND VALUE #( line = sy-index DIV 3 ) TO me->mt_data ASSIGNING FIELD-SYMBOL(<ls_data>).
      APPEND VALUE #( fieldname = 'BOX'
                      style    = alv_style_checkbox_not_checked
                    ) TO <ls_data>-t_style.
    ENDDO.


    DATA(lt_fcat) = me->get_fcat( ).
    DATA(lo_grid) = NEW cl_gui_alv_grid( i_parent = cl_gui_container=>screen0 ).
    SET HANDLER me->handle_hotspot_click FOR lo_grid.
    lo_grid->set_table_for_first_display(
      EXPORTING
        is_layout                     = VALUE #( stylefname = 'T_STYLE'
                                               )
      CHANGING
        it_outtab                     = me->mt_data
        it_fieldcatalog               = lt_fcat      " Field Catalog
      EXCEPTIONS
        invalid_parameter_combination = 1                    " Wrong Parameter
        program_error                 = 2                    " Program Errors
        too_many_lines                = 3                    " Too many Rows in Ready for Input Grid
        OTHERS                        = 4
    ).
    ASSERT sy-subrc = 0.
    WRITE '.'.
  ENDMETHOD.

  METHOD get_fcat.
    APPEND VALUE #( fieldname = 'BOX'
                    hotspot   = 'X'
                  ) TO rt_fcat.
    APPEND VALUE #( fieldname = 'LINE'
                  ) TO rt_fcat.
  ENDMETHOD.

  METHOD handle_hotspot_click.
    READ TABLE me->mt_data ASSIGNING FIELD-SYMBOL(<ls_data>) INDEX es_row_no-row_id.
    CHECK sy-subrc = 0.
    CLEAR <ls_data>-t_style.
    IF <ls_data>-box = 'X'.
      <ls_data>-box = space.
      APPEND VALUE #( fieldname = 'BOX'
                      style    = alv_style_checkbox_not_checked
                    ) TO <ls_data>-t_style.
    ELSE.
      <ls_data>-box = 'X'.
      APPEND VALUE #( fieldname = 'BOX'
                      style    = alv_style_checkbox_checked
                    ) TO <ls_data>-t_style.
    ENDIF.
    sender->refresh_table_display( EXPORTING
                                      is_stable      = VALUE #( row = 'X' col = 'X' )
*                                      i_soft_refresh = i_soft_refresh " Without Sort, Filter, etc.
                                    EXCEPTIONS
                                      finished       = 1              " Display was Ended (by Export)
                                      OTHERS         = 2
                                  ).
  ENDMETHOD.
ENDCLASS.