abap_salv_template/Class.abap at main · davmapo/abap_salv_template · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
*&---------------------------------------------------------------------*
*& Include          Z_SALV_CLASS
*&---------------------------------------------------------------------*

***** Event handler class for ALV events *****

CLASS lcl_event_handler DEFINITION.
  PUBLIC SECTION.
    METHODS:
      " Handle click on checkbox hotspot.
      m_link_click
        FOR EVENT link_click OF cl_salv_events_table
        IMPORTING
          row, column,

      " Handle added functions.
      m_added_function
        FOR EVENT added_function OF cl_salv_events_table
        IMPORTING
          e_salv_function.
ENDCLASS.

CLASS lcl_event_handler IMPLEMENTATION.

    METHOD m_link_click.

        " Handle click on checkbox hotspot.

        DATA: lt_selected_rows TYPE salv_t_row.

        lt_selected_rows = go_selection->get_selected_rows( ).

        READ TABLE gt_alv ASSIGNING FIELD-SYMBOL(<ls_alv>) INDEX row.
        IF sy-subrc IS INITIAL.
            IF <ls_alv>-checkbox IS INITIAL.
                <ls_alv>-checkbox = 'X'.
                IF line_exists( lt_selected_rows[ table_line = row ] ) = abap_false.
                    APPEND row TO lt_selected_rows.
                ENDIF.
            ELSE.
                CLEAR <ls_alv>-checkbox.
                DELETE lt_selected_rows = row.
            ENDIF.
        ENDIF.
        go_selection->set_selected_rows( lt_selected_rows ).
        go_alv->refresh( s_stable = VALUE #( row = abap_true col = abap_true )  ).

    ENDMETHOD.

    METHOD m_added_function.

        " Handle added functions passing selected rows.

        DATA: lt_selected_rows TYPE salv_t_row.

        lt_selected_rows = go_selection->get_selected_rows( ).

        CASE e_salv_function.

            " Example
            WHEN '1_MY_FUNCTION'.

                PERFORM f_1_my_function USING lt_selected_rows.

        " Add more cases as needed for other fields

        ENDCASE.

    ENDMETHOD.

ENDCLASS.