REPORT  z_salv_example.

* Класс обработки событий
CLASS lcl_handle_events DEFINITION.
  PUBLIC SECTION.
    METHODS
      : on_user_command
            FOR EVENT added_function OF cl_salv_events
            IMPORTING e_salv_function
      .
ENDCLASS.

CLASS lcl_handle_events IMPLEMENTATION.

  METHOD on_user_command.
    CASE sy-ucomm.
      WHEN 'MYFUNCTION'.
*         Здесь должен быть код, скрывающий кнопку MYFUNCTION
          SET PF-STATUS 'SALV_STANDARD' EXCLUDING 'MYFUNCTION'.
*         К сожалению, PF-STATUS не работает
    ENDCASE.
  ENDMETHOD.

ENDCLASS.

DATA
  : gt_spfli TYPE STANDARD TABLE OF spfli

  , gr_table   TYPE REF TO cl_salv_table
  , gr_events  TYPE REF TO cl_salv_events_table
  , gr_handler TYPE REF TO lcl_handle_events
.

START-OF-SELECTION.

  SELECT *
      UP TO 100 ROWS
      INTO TABLE gt_spfli
      FROM spfli
  .

* Создание ALV Grid
  TRY.
    cl_salv_table=>factory(
        IMPORTING r_salv_table = gr_table
        CHANGING  t_table      = gt_spfli
    ).
  CATCH cx_salv_msg.
  ENDTRY.

* Назначение GUI-статуса
  gr_table->set_screen_status(
      pfstatus      = 'SALV_STANDARD'
      report        = sy-cprog
      set_functions = gr_table->c_functions_all
  ).

* Назначение обработчика событий
  gr_events = gr_table->get_event( ).
  CREATE OBJECT gr_handler.
  SET HANDLER gr_handler->on_user_command FOR gr_events.

* Вывод ALV Grid
  gr_table->display( ).

* Назначение GUI-статуса
  gr_table->set_screen_status(
      pfstatus      = 'SALV_STANDARD'
      report        = sy-cprog
      set_functions = gr_table->c_functions_all
  ).

REPORT  z_salv_example.

* Класс обработки событий
CLASS lcl_handle_events DEFINITION.
  PUBLIC SECTION.
      METHODS
        : constructor
              IMPORTING pi_table TYPE REF TO cl_salv_table

        , on_user_command
              FOR EVENT added_function OF cl_salv_events
              IMPORTING e_salv_function
        .
  PRIVATE SECTION.
      DATA
        : fr_myfunc TYPE REF TO cl_salv_function
      .
ENDCLASS.

DATA
  : gt_spfli TYPE STANDARD TABLE OF spfli

  , gr_table   TYPE REF TO cl_salv_table
  , gr_events  TYPE REF TO cl_salv_events_table
  , gr_handler TYPE REF TO lcl_handle_events
.

CLASS lcl_handle_events IMPLEMENTATION.

  METHOD constructor.
    DATA
      : lr_functions TYPE REF TO cl_salv_functions
      , lt_functions TYPE salv_t_ui_func
      , lr_function  TYPE REF TO cl_salv_function
      , lv_name      TYPE string
    .
    FIELD-SYMBOLS
      : <function> LIKE LINE OF lt_functions
    .

*   Сохранение ссылки на кнопку
    lr_functions = pi_table->get_functions( ).
    lt_functions = lr_functions->get_functions( ).
    LOOP AT lt_functions ASSIGNING <function>.
      lr_function = <function>-r_function.

      CASE lr_function->get_name( ).
        WHEN 'MYFUNCTION'.
            fr_myfunc = lr_function.
      ENDCASE.

    ENDLOOP.
  ENDMETHOD.

  METHOD on_user_command.
    CASE sy-ucomm.
      WHEN 'MYFUNCTION'.
*         Скрытие кнопки
          fr_myfunc->set_visible( abap_false ).
    ENDCASE.
  ENDMETHOD.

ENDCLASS.

START-OF-SELECTION.

  SELECT *
      UP TO 100 ROWS
      INTO TABLE gt_spfli
      FROM spfli
  .

* Создание ALV Grid
  TRY.
    cl_salv_table=>factory(
        IMPORTING r_salv_table = gr_table
        CHANGING  t_table      = gt_spfli
    ).
  CATCH cx_salv_msg.
  ENDTRY.

* Назначение GUI-статуса
  gr_table->set_screen_status(
      pfstatus      = 'SALV_STANDARD'
      report        = sy-cprog
      set_functions = gr_table->c_functions_all
  ).

* Назначение обработчика событий
  gr_events = gr_table->get_event( ).
  CREATE OBJECT gr_handler
      EXPORTING pi_table = gr_table
  .
  SET HANDLER gr_handler->on_user_command FOR gr_events.

* Вывод ALV Grid
  gr_table->display( ).