Tdbcrossview

subdigger · March 2008

надо напечатать график работы
выглядит это так: слева фамилии, сверху число месяца, в ячейкеах кол-во рабочих часов.

делаю так:

procedure DBCross1Cell0OnBeforePrint(Sender: TfrxComponent);
begin
  if strtoint(trim(TfrxMemoView(sender).text)) = 0 then                                         
    TfrxMemoView(sender).text := <frxDBDataset1."PWC_ALPHA_CODE">;
end;

всё бы ничего но когда кол-во часов = 0 вместо 0 нада подставлять "В" и тут компонента начинает ругатся, что это не число.

есть ли какойто вариант обхода?

+ дополнительный вопрос
прибегнул к такой конструкции

написал:

strtoint(trim(TfrxMemoView(sender).text)) = 0

изза того, что TfrxMemoView(sender).text возвращает строку с переносом.
следовательно TfrxMemoView(sender).text = '0' не применимо...

это глюк или так будет всегда?

gpi · March 2008

Установите для ячейки агрегатную функцию=None

-=Den=- · March 2008

subdigger написал: »

+ дополнительный вопрос
прибегнул к такой конструкции изза того, что TfrxMemoView(sender).text возвращает строку с переносом.
следовательно TfrxMemoView(sender).text = '0' не применимо...

это глюк или так будет всегда?

Да, так и должно быть.

subdigger · March 2008

написал: »

Да, так и должно быть.

а собственно зачем, если не секрет?

subdigger · March 2008

gpi написал: »

Установите для ячейки агрегатную функцию=None

это где?

немогу найти

gpi · March 2008

В редакторе кросса

subdigger · March 2008

gpi написал: »

В редакторе кросса

нашёл . сделал так.

gpi · March 2008

Может быть в ячейке установлено форматирование для числа?
Выложите шаблон отчёта.

subdigger · March 2008

gpi написал: »

Может быть в ячейке установлено форматирование для числа?
Выложите шаблон отчёта.

это типа *.fr3?

gpi · March 2008

да

subdigger · March 2008

вот
+
как віглядит запрос

-=Den=- · March 2008

procedure DBCross1Cell0OnBeforePrint(Sender: TfrxComponent);
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;

subdigger · March 2008

написал: »

procedure DBCross1Cell0OnBeforePrint(Sender: TfrxComponent);
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;

заработало.
я так понял проблема была не в присвоении а в сравнении...

Tdbcrossview

Комментарии

Оставить комментарий