uses
  Graphics, Controls, Forms, Dialogs, StdCtrls,
  ComCtrls, ExtCtrls, ibquery, DB, ChequeList, FR,
  ScriptRes, Barcode, ZKassa, StrUtils, Windows, Classes,
  IBDatabase, dxTL, dxDBTL, dxDBCtrl, dxDBGrid, Graphics;

begin
    if (Global['cell_gridname'] = 'dxbase') and
       (Pos('SNAME', TdxDBTreeListColumn(Global['cell_column']).FieldName) > 0) then
    begin
       if (Global['cell_node'].Values[TdxDBGrid(Global['cell_node'].Owner).ColumnByFieldName('PLAN_QUANT').Index] >=0) then
       begin
         Global['cell_font'].Style := Global['cell_font'].Style + SetOf([fsItalic, fsBold ]);
         Global['cell_color'] := $0057E6AC;
       end

       //922057 A.K. 2018-10-05
       if (Global['cell_node'].Values[TdxDBGrid(Global['cell_node'].Owner).ColumnByFieldName('MALOHOD').Index] = 1) Then
         Global['cell_color'] := $00D7FF;

       //946062 A.K. 2019-19-09
       if (Global['cell_node'].Values[TdxDBGrid(Global['cell_node'].Owner).ColumnByFieldName('IS_WARES_DOHOD').Index] = 1) Then
         Global['cell_color'] := $00FF9F;         
    end
end;