DATA: BEGIN OF gt_naklad OCCURS 0.
        INCLUDE STRUCTURE zsalv_reestr.
DATA: celltab TYPE lvc_t_styl,
      colinfo TYPE lvc_t_scol.
DATA: light TYPE c.
DATA: END OF gt_naklad.


...


DATA:
        lt_celltab TYPE lvc_t_styl,
        ls_celltab TYPE lvc_s_styl,
        l_ind      TYPE sy-tabix,
        l_index    TYPE i.
  DATA ls_cellcolor TYPE lvc_s_scol.

  STATICS style TYPE i.

  gs_layout-excp_led = 'X'.         " это светофор
  style = 1.

  LOOP AT gt_naklad.

        PERFORM fill_celltab USING 'RO' '2' ' '
                               gt_naklad-idn
                               gt_naklad-god
                             CHANGING lt_celltab.


      INSERT lines of lt_celltab INTO TABLE gt_naklad-celltab.
      MODIFY gt_naklad INDEX l_index.
endloop.

    CALL METHOD grid_1->set_table_for_first_display
      EXPORTING
*        i_buffer_active      = 'X'                                  "gs_test-buffer_active
*        i_bypassing_buffer   = 'X'                                  "gs_test-bypassing_buffer
*        i_consistency_check  = 'X'                                  "  l_consistency_check
        i_structure_name     = czsalv
        is_variant           = ls_vari                   " gs_variant
        i_save               = 'A'                    " 'U'
        i_default            = 'X'      "con_true
        is_layout            = gs_layout            "ls_layo
*        is_print             = ls_prnt
*        it_hyperlink         = lt_hype
        it_toolbar_excluding = lt_exclude
      CHANGING
        it_outtab            = gt_naklad[]
        it_fieldcatalog      = lt_fcat
*        it_sort              = gt_sortalv[]
        .


FORM fill_celltab USING value(p_mode) value(chtoto) value(l_ll)
                  l_idn TYPE ztreestr_naklad-idn
                  l_god TYPE ztreestr_naklad-god
                  CHANGING pt_celltab TYPE lvc_t_styl.

   DATA: ls_celltab TYPE lvc_s_styl,
        l_mode     TYPE raw4,
        l_count    TYPE i.

* This forms sets the style of column 'PRICE' editable
* according to 'p_mode' and the rest to read only either way.
  IF chtoto = '1'.    " OR  p_mode EQ 'RO'.
    ls_celltab-style = cl_gui_alv_grid=>mc_style_no_delete_row.      " удалять эти записи нельзя!
    INSERT ls_celltab INTO TABLE pt_celltab.
    l_mode = cl_gui_alv_grid=>mc_style_disabled.
  ENDIF.
...
EBDFORM.