Blank date in field

rbuser

My report prints a letter informing of an increase of fine from amount A to
amount B.
I bulk print 30-40 letters at the same time.
Once the print run is fine I then change the underlying data.
Amount A is now Amount B,
The date of the change(Today).

I work this way as I have to check the print job has completed before
changing the data. eg no paper errors jams etc.

The problem is when I run the print job the change_of_Date field has no
value so I use a system variable of type ttDate.
I set the system variable to visible := false and use the following code:

procedure TDatamodule4.ppHeaderBand21BeforePrint(Sender: TObject);
begin
if ppDBText221.Text = '' then ppSystemVariable4.Visible := true;
end;


I also use the same code on ppDetailBand29BeforePrint

This should show todays date if the ppDBText is blank.

When I print the report the system variable does not show. It shows in
design mode.

Any help appreciated.

SteveW.

nicocizik

Hi Steve,

Try placing a break point in these events to be sure the system variable's
Visible property is acutally getting set to True. If not, your conditional
statement may need to be altered.

--
Regards,

Nico Cizik
Digital Metaphors
http://www.digital-metaphors.com