Page break not working in trsClientReport (D6.02rb10)

rbuser

Hi,

Please help with an unexpected result when using the tppPageBreak control.

I am using the tppPageBreak control in a report and conditionally set
visible true/false depending on report data. When this is run in the design
environment the page break behaves as required. When run in our application
using the report server and trsClientReport the page break does not behave
in the same way. Specifically it is not turning off when it supposed to ie.
it seems to be ignoring the tppPageBreak.Visible = false.

I have attach my event code below and as you can see when I have a document
of type 'Quotation' the page break should not be effected but it is.

Is there some other property that I should be using to suppress a page break
or is there some setting in the server that I have overlooked?

Thanks,
Dave.

procedure ReportBeforePrint;
begin
{Show totals as appropriate}
regConfTotals.visible := false;
regQuoteTotals.visible := false;
regLetter.Visible:= false;
pgbLetter.visible := false;
regAddress.Visible := false;
pgbPaymentForm.visible := false;
regPaymentForm.Visible := false;

{Turn on regions and page breaks as required}
if V_DOC_ITINERARY_1['DOC_TYPE'] ='Quotation' then
begin
regQuoteTotals.visible := true;
regAddress.Visible := true;
end;
if V_DOC_ITINERARY_1['DOC_TYPE'] ='Confirmation' then
begin
regConfTotals.visible := true;
regAddress.Visible := true;
end;
if V_DOC_ITINERARY_1['DOC_TYPE'] ='Final Confirmation' then
begin
regConfTotals.visible := true;
regAddress.Visible := true;
regPaymentForm.visible := true;
end;
if V_DOC_ITINERARY_1['DOC_TYPE'] ='Itinerary' then
begin
pgbPaymentForm.visible := true;
regLetter.visible := true;
end;
end;

nardmoseley

- for testing, try creating a simple project that can run the report in a
standard Delphi project (i.e. using TppReport.Print). The report should
behave the same way on the server.

- for testing, try adding a Label to the report and at the bottom of the
ReportBeforePrint code, set the Label.Caption

if pbpPaymentForm.Visible then
myLabel.Caption := 'BeforePrint event: page break visible'
else
myLabel.Caption := 'BeforePrint event: page break not visible'


- is V_DOC_ITINERARY_1 a datapipeline? Does it contain only a single record?

--
Nard Moseley
Digital Metaphors
www.digital-metaphors.com