Попытка вывести выражение [[engine.pageheight/2]- [engine.cury]] в мемо на Банде Detailfooter1 - о
RuslanChernykh
г.Харьков
1. Сразу оговорюсь, с FR3 только начинаю разбираться, проект использует Fr2.56.
2. Перевожу часть отчетов на FR3 (версия 3.24).
3. В проекте скомпилена возможность сохранять отчеты в формате FR3, т.к. используются IBX компоненты и скрипты написаны в боле-менее классическом стиле особых трудностей не возникает.
4. Переводил печатную форму, где был скрипт для корректной печати двух экземпляров на листе, который отчего-то не работал на версии FR3:
Ошибка
Были обнаружены следующие ошибки:
Memo38: Invalid variant operation
ОК
Хотя отдельно числа выводятся и оба вроде одного типа....
2. Перевожу часть отчетов на FR3 (версия 3.24).
3. В проекте скомпилена возможность сохранять отчеты в формате FR3, т.к. используются IBX компоненты и скрипты написаны в боле-менее классическом стиле особых трудностей не возникает.
4. Переводил печатную форму, где был скрипт для корректной печати двух экземпляров на листе, который отчего-то не работал на версии FR3:
procedure DetailFooter1OnBeforePrint(Sender: TfrxComponent);
begin
with DetailFooter1, Engine do
Footer_Height:=0.0;
begin
if <QueryDgv."RECNUM"> = 1 then begin
// 1-й экз.
NewPageFlag := 0;
Footer_Height := (Engine.PageHeight/2) - Engine.CurY;
if Footer_Height < DetailFooter1.Height then begin
NewPageFlag := 1;
end
else begin
DetailFooter1.Height := Footer_Height;
end;
end
end
end;
Ошибка
Были обнаружены следующие ошибки:
Memo38: Invalid variant operation
ОК
Хотя отдельно числа выводятся и оба вроде одного типа....
Комментарии
[Engine.PageHeight/2 - Engine.CurY]