REUSE_ALV_GRID_DISPLAY_LVC - automatisch sichern

Code: Alles auswählen.

*----------------------------------------------------------------------*
*       CLASS lcl_event_receiver DEFINITION
*----------------------------------------------------------------------*
CLASS lcl_event_receiver DEFINITION.

  PUBLIC SECTION.
    class-METHODS:
      handle_data_changed
            FOR EVENT data_changed  OF  cl_gui_alv_grid
            IMPORTING er_data_changed sender.

ENDCLASS.                    "lcl_event_receiver DEFINITION

Code: Alles auswählen.

*----------------------------------------------------------------------*
*       CLASS lcl_event_receiver IMPLEMENTATION
*----------------------------------------------------------------------*
CLASS lcl_event_receiver IMPLEMENTATION.

  METHOD handle_data_changed.
    if 1 = 1.
    endif.

  ENDMETHOD.                    "handle_data_changed
ENDCLASS.   

Code: Alles auswählen.

FORM alv_event_caller_exit USING cs_data TYPE slis_data_caller_exit.
  CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
    IMPORTING
      e_grid = gr_grid.

  SET HANDLER lcl_event_receiver=>handle_context_menu_req FOR gr_grid.

  gr_grid->register_edit_event( cl_gui_alv_grid=>mc_evt_modified ).
  SET HANDLER lcl_event_receiver=>handle_data_changed FOR gr_grid.
ENDFORM.     

Code: Alles auswählen.

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
    EXPORTING
      i_callback_program = sy-cprog
      it_events          = lt_events
[...]

Code: Alles auswählen.

  FIELD-SYMBOLS: <ls_event> TYPE slis_alv_event.

  DATA: l_event  TYPE lvc_fname.

  CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      i_list_type     = 4
    IMPORTING
      et_events       = ct_events
    EXCEPTIONS
      list_type_wrong = 1
      OTHERS          = 2.
  IF sy-subrc = 0.
    READ TABLE ct_events ASSIGNING <ls_event>
               WITH KEY name = 'CALLER_EXIT'.
    IF sy-subrc EQ 0.
      CONCATENATE 'ALV_EVENT_' <ls_event>-name
             INTO <ls_event>-form.
    ENDIF.
    READ TABLE ct_events ASSIGNING <ls_event>
               WITH KEY name = 'USER_COMMAND'.
    IF sy-subrc EQ 0.
      CONCATENATE 'ALV_EVENT_' <ls_event>-name
             INTO <ls_event>-form.
    ENDIF.
  ENDIF.