Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2013.03.22;
Скачать: CL | DM;

Вниз

FastReport Помогите. Выделение строк по условию   Найти похожие ветки 

 
Gedimen ©   (2012-08-19 15:52) [0]

Доброго времени суток, мастера.
Нужна Ваша помощь.
(использую Delphi XE2, FastReport 4.12.6)

Нужно выделить строки в отчете желтым цветом (в зависимости от условия).
Есть поле date_end.
Нужно при формировании отчета проверять:
- если date_end< "текущая дата +20 дней", то выделяем желтым.
Но при реализации какая-то хрень получается.
Например у меня 7 строк в отчете:
1 - Не удовлетворяет условию;
2, 3 удовлетворяет;
4 - опять нет.
и т.д. Так он мне берет и выделяет, например, все кроме первой.
Пробовал по-разному: через OnAfterData, OnAfterPrint, OnBeforePrint.
Одна фигня. Такое чувство, что он только один раз проверяет условие.


//<myDate> передаю дату+20 из программы.
procedure Memo6OnAfterData(Sender: TfrxComponent);
   if (StrToDate(<frxDBDataset1."date_check">)< StrToDate(<myDate>)) then
       memo6.color:=cl Yellow;                                      
end;

Уже весь инет облазил, а так ничего толкового не нашел.
P.S. Условное выделение под мою задачу не подходит, т.к. буду выделять красным когда дата окончания будет меньше текущей.


 
Gedimen ©   (2012-08-19 15:54) [1]

В коде указал <date_check> (не ошибка). Просто другой кусок скопировал. Это поле тоже проверяю.


 
Inovet ©   (2012-08-19 17:41) [2]

procedure MasterData1OnBeforePrint(Sender: TfrxComponent)
begim
 if (<dMd."ID"> mod 2) = 1 memo6.Color := clYellow;                                
 else memo6.Color = clWhite;                                
end


 
Gedimen ©   (2012-08-19 20:50) [3]

Спасибо. Сам допер уже.



Страницы: 1 вся ветка

Текущий архив: 2013.03.22;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.376 c
2-1336578971
мтк
2012-05-09 19:56
2013.03.22
SetOrdProp и составное свойтво


1-1295644073
Wadimka
2011-01-22 00:07
2013.03.22
Конвертация даты в миллисекундах в TDateTime


15-1332451802
Юрий
2012-03-23 01:30
2013.03.22
С днем рождения ! 21 марта 2012 среда


3-1278159587
alex810
2010-07-03 16:19
2013.03.22
Запрос с нечувствительностью к регистру


15-1328797365
Empleado
2012-02-09 18:22
2013.03.22
Billiards masters