method handle_hotspot_click.
    data: ls_color type lvc_s_scol.

    read table itab into wa index e_row_id-index.
    case e_column_id-fieldname.
      when 'IKONE'.
        refresh wa-color_cell.
        case wa-ikone.
          when sym_large_square or sym_flash.
            ls_color-fname = 'IKONE'.
            ls_color-color-col = 6.
            append ls_color to wa-color_cell.
            wa-ikone = sym_checkbox.
          when sym_checkbox.
            wa-ikone = sym_large_square.
          when others.
        endcase.
        modify itab from wa index e_row_id-index.
        clear wa.
        alvg->refresh_table_display( is_stable = wa_stable ).

  method handle_user_command.
    case e_ucomm.
      when 'SELECT'.
        clear wa.
        wa-ikone = sym_checkbox.
        modify itab from wa transporting ikone
                        where ikone eq sym_large_square
                           or ikone eq sym_flash.
        call method alvg->refresh_table_display
          exporting
            is_stable = wa_stable.
      when 'DESELECT'.
        wa-ikone = sym_large_square.

        modify itab from wa transporting ikone
                        where ikone eq sym_checkbox.
        call method alvg->refresh_table_display
          exporting
            is_stable = wa_stable.
      when others.
    endcase.
  endmethod.

  method handle_alv_toolbar.
    type-pools: icon.
    data: ls_toolbar type stb_button.
    clear ls_toolbar.
    ls_toolbar-function  = 'SELECT'.                       "#EC  NOTEXT
    ls_toolbar-icon      = icon_select_all.
    ls_toolbar-butn_type = '0'.
    ls_toolbar-disabled  = space.
    ls_toolbar-text      = ''.                              "#EC NOTEXT
    ls_toolbar-quickinfo = 'Выделить всё'.

    insert ls_toolbar into e_object->mt_toolbar index 2.
    clear ls_toolbar.
    ls_toolbar-function  = 'DESELECT'.                     "#EC  NOTEXT
    ls_toolbar-icon      = icon_deselect_all.
    ls_toolbar-butn_type = '0'.
    ls_toolbar-disabled  = space.
    ls_toolbar-text      = ''.                              "#EC NOTEXT
    ls_toolbar-quickinfo = 'Отменить выделение'.
*  ls_toolbar-checked   = space.
    insert ls_toolbar into e_object->mt_toolbar index 3.
  endmethod.                    "handle_alv_toolbar

REPORT  zalvobject_example                   .

INCLUDE <cl_alv_control>.
DATA: ok_code LIKE sy-ucomm.
CLASS cl_gui_object DEFINITION LOAD.
CLASS lcl_event_receiver DEFINITION DEFERRED.

DATA: BEGIN OF main OCCURS 0,
      checkbox TYPE c,
      descript(20) TYPE c,
      cell  TYPE lvc_t_styl,
      END OF main.

DATA: gt_fieldcat TYPE lvc_t_fcat.
DATA: gs_fieldcat TYPE lvc_s_fcat.

DATA: g_container TYPE scrfname VALUE 'CONTAINER',
      grid  TYPE REF TO cl_gui_alv_grid,
      g_custom_container TYPE REF TO cl_gui_custom_container.

DATA: event_receiver TYPE REF TO lcl_event_receiver.
DATA: gs_layout   TYPE lvc_s_layo.
DATA: lt_exclude TYPE ui_functions.
DATA: gs_variant TYPE disvariant.
DATA: gt_sort     TYPE lvc_t_sort.

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

  PUBLIC SECTION.
    METHODS handle_data_changed
      FOR EVENT data_changed OF cl_gui_alv_grid
      IMPORTING er_data_changed.
ENDCLASS.                    "lcl_event_receiver DEFINITION

*---------------------------------------------------------------------*
*       CLASS lcl_event_receiver IMPLEMENTATION
*---------------------------------------------------------------------*
*       ........                                                      *
*---------------------------------------------------------------------*
CLASS lcl_event_receiver IMPLEMENTATION.
  METHOD handle_data_changed.
    PERFORM data_changed USING er_data_changed.
  ENDMETHOD.                    "handle_data_changed
ENDCLASS.                    "lcl_event_receiver IMPLEMENTATION

START-OF-SELECTION.

*** Заполняем таблицу

  main-descript = 'Иванов'.
  APPEND main.
  main-descript = 'Петров'.
  APPEND main.
  main-descript = 'Сидоров'.
  APPEND main.

*** Формируем каталог полей

  CLEAR gs_fieldcat.
  gs_fieldcat-fieldname = 'DESCRIPT'.
  gs_fieldcat-datatype = 'CHAR'.
  gs_fieldcat-inttype = 'C'.
  gs_fieldcat-intlen = 20.
  gs_fieldcat-scrtext_l = 'Описание'.
  APPEND gs_fieldcat TO gt_fieldcat.

  CLEAR gs_fieldcat.
  gs_fieldcat-fieldname = 'CHECKBOX'.
  gs_fieldcat-datatype = 'CHAR'.
  gs_fieldcat-inttype = 'C'.
  gs_fieldcat-intlen = 1.
  gs_fieldcat-scrtext_l = 'Отметка'.
  gs_fieldcat-edit = 'X'.
  gs_fieldcat-checkbox = 'X'.
  APPEND gs_fieldcat TO gt_fieldcat.

  CALL SCREEN 100.
*&---------------------------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE status_0100 OUTPUT.
  SET PF-STATUS '100'.
  SET TITLEBAR '100'.

  IF g_custom_container IS INITIAL. " если контейнер не создан
    IF sy-batch IS INITIAL. " если не запущен фоновый режим

      CREATE OBJECT g_custom_container " создаем контейнер
             EXPORTING container_name = g_container.
    ENDIF.
    CREATE OBJECT grid     " создаем грид
         EXPORTING i_parent = g_custom_container.

    CREATE OBJECT event_receiver. " создаем приемник событий
* и привязываем его к гриду
    SET HANDLER event_receiver->handle_data_changed FOR grid.

    IF sy-batch IS INITIAL.
* метод обработки изменений при смене ячеек

      CALL METHOD grid->register_edit_event
        EXPORTING
          i_event_id = cl_gui_alv_grid=>mc_evt_modified.

    ENDIF.

    gs_layout-stylefname = 'CELL'.

    CALL METHOD grid->set_ready_for_input
      EXPORTING
        i_ready_for_input = 1.

    CALL METHOD grid->set_table_for_first_display
      EXPORTING
        it_toolbar_excluding = lt_exclude
        i_save               = 'A'
        is_variant           = gs_variant
        is_layout            = gs_layout
      CHANGING
        it_fieldcatalog      = gt_fieldcat
        it_sort              = gt_sort
        it_outtab            = main[].

  ENDIF.

ENDMODULE.                 " STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE user_command_0100 INPUT.

  CASE ok_code.
    WHEN 'SAVE'.
    WHEN 'CHANGE'.
    WHEN 'LEAVE'.
      CALL METHOD g_custom_container->free.
      CALL METHOD cl_gui_cfw=>flush.
      CLEAR: g_custom_container, grid.
      SET SCREEN 0.
      LEAVE SCREEN.
    WHEN 'EXIT'.
      CALL METHOD g_custom_container->free.
      CALL METHOD cl_gui_cfw=>flush.
      CLEAR: g_custom_container, grid.
      SET SCREEN 0.
      LEAVE SCREEN.
  ENDCASE.

ENDMODULE.                 " USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*&      Form  DATA_CHANGED
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_ER_DATA_CHANGED  text
*----------------------------------------------------------------------*
FORM data_changed USING  rr_data_changed TYPE REF TO
                                         cl_alv_changed_data_protocol.
  MESSAGE 'Событие поймано!' TYPE 'I'.

ENDFORM.                    " DATA_CHANGED