раскрасить dbgrid, проверка дата и процент

[xxbesoxx]

Но раз не получается , Буду решать чуть - по другому . буду проверять dbgrdProcent проверка qryProcent.FieldByName('proc_date') буду прорисовать dbgrdПроцент тоже .

procedure Tfrmmain.dbgrdProcentDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
    if qryProcent.RecordCount<>0 then
    begin
      if  Date - int(qryProcent.FieldByName('proc_date').AsDateTime) > 12   then
      begin
        dbgrdProcent.Canvas.Brush.Color:= $0000FFFF;
        dbgrdProcent.DefaultDrawColumnCell
        (Rect, DataCol, Column, State);
      end;
    end;
 if qryProcent.RecordCount<>0 then
    begin
  if  Date - int(qryProcent.FieldByName('proc_date').AsDateTime) > 20   then
  begin
     dbgrdProcent.Canvas.Brush.Color:= $00E46EFF;
     dbgrdProcent.DefaultDrawColumnCell
    (Rect, DataCol, Column, State);
  end;

end;
end;

end.

Я думаю что пойдет , нечего страшного

[xxbesoxx]

Сообщение от Аватар

Вопрос изначально нужно задавать правильно.
То есть от последней даты Procent.proc_date ориентироваться?

когда из таблиц Priem делаем фильтр в таблицу Procent

procedure Tfrmmain.qryPriemAfterScroll(DataSet: TDataSet);
begin
   if  qryPriem.FieldByName('pr_id').AsString <> '' then
   begin
     qryProcent.Filtered := False;
     qryProcent.Filter := 'pr_priem_id='+ qryPriem.FieldByName('pr_id').AsString;
     qryProcent.Filtered := True;
    end;
end;

Думаю что на это моменте надо переходить на "последней даты Procent.proc_date" что потом на него ориентироваться. Для этого объявляю процедур разделе Private

  private
    { Private declarations }
    procedure ProcentNEXT; //

и тела этого процедуре пишу

procedure Tfrmmain.ProcentNEXT;
  var
   Data: TDateTime;
   i: Integer;
begin
   Data := Date;
   if qryProcent.RecordCount>0 then
    begin
     qryProcent.First;
    for i:=0 to qryProcent.RecordCount-1  do
    begin
      // Прохожу пустой цикл , чтобы попасть последней даты Procent.proc_date
    qryProcent.Next;
    end;
      edtProcent.Text :=  FormatDateTime('dd.mm.yyyy', qryProcent.FieldByName
      ('proc_date').AsDateTime); // edtProcent - это едит может из едита делать как то ориентация
     end

end;

и это процедура вызываю каждого qryPriemAfterScroll

procedure Tfrmmain.qryPriemAfterScroll(DataSet: TDataSet);
begin
   if  qryPriem.FieldByName('pr_id').AsString <> '' then
   begin
     qryProcent.Filtered := False;
     qryProcent.Filter := 'pr_priem_id='+ qryPriem.FieldByName('pr_id').AsString;
     qryProcent.Filtered := True;
     if qryProcent.Active = True then ProcentNEXT;
   end;
end;

Как это "последней даты Procent.proc_date " сравнить >12 или 20 ???