Скрыть страницу

mvb

Здравствуйте! На странице Page3 есть PageHeader и MasterData. Как отменить печать (и предпросмотр) страницы, если MasterData не содержит записей?
Пробовал так:

procedure Page3OnBeforePrint(Sender: TfrxComponent);
begin
     if qActs.RecordCount=0 then      // qActs: TfrxFIBQuery
      Page3.Visible := false;                                                       
end;

Ничего не меняется, как впрочем и просто:

procedure Page3OnBeforePrint(Sender: TfrxComponent);
begin
      Page3.Visible := false;                                                       
end;

и так тоже:

procedure frxReport1OnReportPrint(Sender: TfrxComponent);
begin
     Page3.Visible := false;  
end;

Dalx

гм... последние два - должны работать, наскока я знаю... впервом же - есть вопрос в том - будет ли при начале генерирования 3-й страницы открыт датасет.
проверьте все ли подцеплено и все ли корректно. можно попробовать вывести showmessage для проверки. возможно просто косяк в версии?

mvb

версия наипоследнейшая. Насчет if qActs.RecordCount=0 then я тоже сомневался, поэтому попробовал вообще без проверки, просто Page3.Visible := false;, но результат тот же - не скрывается страница...

gpi

procedure frxReport1OnStartReport(Sender: TfrxComponent);
begin
     Page3.Visible:=false;  
end;

или просто в главной процедуре отчёта

begin
     Page3.Visible:=false;  
end.

gpi

или

procedure Page2OnAfterPrint(Sender: TfrxComponent);
begin
    Page3.Visible:=false;  
end;

mvb

в Page2OnAfterPrint страница не прячется, в frxReport1OnStartReport (как и в главной процедуре отчёта) прячется независимо от qActs.RecordCount (я так понимаю, что к этому моменту qActs еще не открыт).
Вопросы:
1. когда происходит открытие НД? перед печатью страницы? Или отчета?
2. у меня 4 страницы в отчете, я их переместил и они отображаются как Page1, Page3, Page4, Page2 - в какой последовательности они будут обрабатываться? В порядке создания (1,2,3,4) или в порядке табов (1,3,4,2)?

mvb

положил на Page3 мемку и написал для нее обработчик:

procedure Memo152OnBeforePrint(Sender: TfrxComponent);
begin
     tfrxmemoview(sender).text := inttostr(qActs.RecordCount);                                                                                  
end;

запускаю отчет - в мемке значение 0, а MasterData содержит и отображает запись. Получается, что НД открывается при первом к нему обращении?

mvb

почему тогда не обрабатываются MasterData2OnAfterPrint и MasterData2OnBeforePrint? Вернее, обрабатываются, но Page3.Visible := false; не имеет эффекта?

gpi

написал:

в frxReport1OnStartReport (как и в главной процедуре отчёта) прячется независимо от qActs.RecordCount (я так понимаю, что к этому моменту qActs еще не открыт)

Ну так откройте его: qActs.Open

написал:

2. у меня 4 страницы в отчете, я их переместил и они отображаются как Page1, Page3, Page4, Page2 - в какой последовательности они будут обрабатываться? В порядке создания (1,2,3,4) или в порядке табов (1,3,4,2)?

в порядке табов

mvb

спасибо, так работает

procedure frxReport1OnStartReport(Sender: TfrxComponent);
begin
     qActs.Open;                   
     if qActs.RecordCount = 0 then
      Page3.Visible := false;                                                       
end;