*для АЛВ грида----------------
DATA: alv_variant              LIKE   disvariant.
DATA: alv_keyinfo              TYPE   slis_keyinfo_alv.
DATA: alv_layout               TYPE   slis_layout_alv.
DATA: alv_default_variant      LIKE    disvariant-variant.      "n579976
DATA: alv_detail_func(30).
DATA:  fc_flat                 TYPE   slis_fieldcat_alv OCCURS 0 WITH HEADER LINE.
DATA: repid                    LIKE   sy-repid,
       variant                  LIKE   disvariant.
DATA: GS_LAYOUT                TYPE   SLIS_LAYOUT_ALV,
       MCOL                     TYPE   LVC_S_SCOL.

*-----------------------------
*тип результирующей таблицы
types: begin of RES_TABLE_TYPE,
..........................
  COLORS           TYPE LVC_T_SCOL,       "Для АЛВ раскраски строк
end of  RES_TABLE_TYPE.

*для АЛВ грида----------------
DATA: alv_variant              LIKE   disvariant.
DATA: alv_layout               TYPE   slis_layout_alv.
DATA: alv_default_variant      LIKE    disvariant-variant.      "n579976
DATA:  fc_flat                 TYPE   slis_fieldcat_alv OCCURS 0 WITH HEADER LINE.
DATA: repid                    LIKE   sy-repid,
          variant                  LIKE   disvariant.
DATA: GS_LAYOUT                TYPE   SLIS_LAYOUT_ALV,
       MCOL                     TYPE   LVC_S_SCOL.

*-----------------------------
DATA: RES_TABLE TYPE TABLE OF  RES_TABLE_TYPE
                     WITH HEADER LINE
                     INITIAL SIZE 100.
...........................
  GS_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
  GS_LAYOUT-COLTAB_FIELDNAME = 'COLORS'.

   CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      it_fieldcat             = fc_flat[]
      i_callback_program      = repid
      i_callback_user_command = 'USER_COMMAND' "визов функции при двойном клике
      i_default               = 'X'
      i_save                  = 'A'
      is_variant              = alv_variant
      IS_LAYOUT               = GS_LAYOUT

    TABLES
      t_outtab                = RES_TABLE[]

...........................

FORM user_command  USING r_ucomm LIKE sy-ucomm
                         rs      TYPE slis_selfield.
break-point.

data SELL_LVBELN TYPE LIKP-VBELN.

Data ls_cellcolor TYPE lvc_s_scol.

loop at RES_TABLE INTO LIN.
   IF rs-tabindex = sy-TABIX.
     SELL_LVBELN = LIN-RVBELN.

*
    MCOL-FNAME = 'RVBELN'.
    MCOL-COLOR-COL = 6.
    APPEND MCOL TO LIN-COLORS.

   rs-refresh = 'X'.

*
    exit.
   ENDIF.
endloop.
ENDFORM.

MODIFY res_table FROM lin INDEX rs-tabindex.

    MCOL-FNAME = 'RVBELN'.
    MCOL-COLOR-COL = 6.
    APPEND MCOL TO LIN-COLORS.