*CLASS DEFINITION
METHODS:
      on_f4 for event onf4 of cl_gui_alv_grid
        importing
          sender
          e_fieldname
          e_fieldvalue
          es_row_no
          er_event_data
          et_bad_cells
          e_display.

DATA:       gt_f4 TYPE lvc_t_f4,
          gs_f4 TYPE lvc_s_f4.

*CLASS DEFINITION


*далее в каком-нибудь методе типа конструктора
    SET HANDLER on_f4 FOR l_gui_sel_alv.

    REFRESH gt_f4.
    gs_f4-fieldname  = 'HIGH'.
    gs_f4-register   = 'X'.
    APPEND gs_f4 TO gt_f4.

    gs_f4-fieldname  = 'LOW'.
    gs_f4-register   = 'X'.
    APPEND gs_f4 TO gt_f4.

    CALL METHOD l_gui_sel_alv->register_f4_for_fields
      EXPORTING
        it_f4 = gt_f4.


  method on_f4.

    data : it_f4  type table of ddshretval,
           is_f4 type ddshretval,
           ls_modi type lvc_s_modi,
           grid type ref to cl_gui_alv_grid.

    field-symbols: <itab> type lvc_t_modi.

          call function 'F4IF_FIELD_VALUE_REQUEST'
               exporting
                    tabname    = 'BSEG'
                    fieldname  = 'BUKRS'
               tables
                    return_tab = it_f4.


          assign er_event_data->m_data->* to <itab>.
          if sy-subrc = 0.
            read table it_f4 into is_f4
            with key fieldname = 'BUKRS'.
            if not is_f4 is initial.
              ls_modi-row_id    = es_row_no-row_id.
              ls_modi-fieldname = e_fieldname.
              ls_modi-value     = is_f4-fieldval.
              append ls_modi to <itab>.
            endif.
            er_event_data->m_event_handled = 'X'.
            unassign <itab>.
          endif.
endmethod.