Tdbcrossview
надо напечатать график работы
выглядит это так: слева фамилии, сверху число месяца, в ячейкеах кол-во рабочих часов.
делаю так:
есть ли какойто вариант обхода?
+ дополнительный вопрос
прибегнул к такой конструкции
следовательно TfrxMemoView(sender).text = '0' не применимо...
это глюк или так будет всегда?
выглядит это так: слева фамилии, сверху число месяца, в ячейкеах кол-во рабочих часов.
делаю так:
procedure DBCross1Cell0OnBeforePrint(Sender: TfrxComponent);
begin
if strtoint(trim(TfrxMemoView(sender).text)) = 0 then
TfrxMemoView(sender).text := <frxDBDataset1."PWC_ALPHA_CODE">;
end;
есть ли какойто вариант обхода?
+ дополнительный вопрос
прибегнул к такой конструкции
изза того, что TfrxMemoView(sender).text возвращает строку с переносом.strtoint(trim(TfrxMemoView(sender).text)) = 0
следовательно TfrxMemoView(sender).text = '0' не применимо...
это глюк или так будет всегда?
Комментарии
Да, так и должно быть.
немогу найти
Выложите шаблон отчёта.
+
как віглядит запрос
var
Val: String;
begin
Val := trim(TfrxMemoView(sender).text);
if ValidInt(Val) then
if strtoint(Val) = 0 then
TfrxMemoView(sender).text := <frxDBDataset1."PWC_ALPHA_CODE">;
end;
я так понял проблема была не в присвоении а в сравнении...