Table Won't Open second time..

rbuser

Hi Team,
Win 10, D10.1, RB18.01.

I have a table that gets filtered. I then copy the filtered contents to a temp table, I then run a report on the
contents of the temp table. See code below..

{code}
//
ApptTemp.Close;
ApptTemp.Open; << Fails here the second time round.
ApptTemp.AdsZapTable;
//
Appointments.AdsCopyTableContents(ApptTemp);
//
ApptTemp.Close;
//
with ReportsFrm.ReportsForm do
begin
ppRE1.LoadReport('Appointments', 2);
ppR1.Icon.LoadFromFile('DBWorkflow.ico');
ppR1.ShowAutoSearchDialog := False;
ppR1.Print;
end;
//
{code}

The concept here is that the end user can set any filter they like on the primary table (Appointments) and then report
on it via the secondary (ApptTemp).

On first run it works perfectly.

My issue is that on the second running, even without changing the filter condition, the app fails at ApptTemp.Open.

If I comment out the With...End, for the report generation I get no error.

Seemingly the Report Engine is keeping hold of ApptTemp after the report generation. If this is the case, is there
something I can do to force a release?

Regards & TIA,
Ian

nicocizik

Hi Ian,

We have not seen this behavior before.

My first suggestion is to try setting PreviewFormSettings.SinglePageOnly
to True and see if you still get the error.

Another option would be to try closing or disconnecting the report's
pipeline before altering the temporary table.

RP1.DataPipeline.Close;

ApptTemp.Close;
ApptTemp.Open; << Fails here the second time round.
ApptTemp.AdsZapTable;
//
Appointments.AdsCopyTableContents(ApptTemp);

...

--

rbuser

Hi Nico,
Thank you for your response. Forgot to mention but you probably guessed, I am using Advantage Database. v 12.

I tried both suggestions.

Changing the setting PreviewFormSettings.SinglePageOnly to True did nothing, same result.

Closing the pipeline at the position shown:
{code}
ReportsFrm.ReportsForm.ppR1.DataPipeline.Close;
//
ApptTemp.Close;
ApptTemp.Open;
ApptTemp.AdsZapTable;
{code}
resulted in a different error.

Moving the datapipeline close into the With.. structure:
{code}
with ReportsFrm.ReportsForm do
begin
ppRE1.LoadReport('Appointments', 2);
ppR1.Icon.LoadFromFile('DBWorkflow.ico');
ppR1.ShowAutoSearchDialog := False;
ppR1.Print;
ppR1.DataPipeline.Close;
end;
{code}
ended with the original error..

Moving the datapipele.close after the with:
{code}
with ReportsFrm.ReportsForm do
begin
ppRE1.LoadReport('Appointments', 2);
ppR1.Icon.LoadFromFile('DBWorkflow.ico');
ppR1.ShowAutoSearchDialog := False;
ppR1.Print;
end;
//
ReportsFrm.ReportsForm.ppR1.DataPipeline.Close;
{code}
gave the same original error result.

Don't know where to go from here..:-(

Regards,
Ian

rbuser

Tried this..
{code}
ApptTemp.Close;
//
with ReportsFrm.ReportsForm do
begin
ppRE1.LoadReport('Appointments', 2);
ppR1.Icon.LoadFromFile('DBWorkflow.ico');
ppR1.ShowAutoSearchDialog := False;
ppR1.Print;
ppR1.DataPipeline.Close;
end;
//
ApptTemp.Open; << Error trying to open.
//
{code}

Same error.

Regards,
Ian

rbuser

Not a solution - A work around..

{code}
with ReportsFrm.ReportsForm do
begin
ppRE1.LoadReport('Appointments', 2);
ppR1.Icon.LoadFromFile('DBWorkflow.ico');
ppR1.ShowAutoSearchDialog := False;
ppR1.Print;
ppRE1.LoadReport('Job Ticket', 2);
end;
{code}

It works.

Regards,
Ian

nicocizik

Hi Ian,

Interesting, thanks for sharing your test cases.

I'm going to need to see this in action to track down the cause. Please
create a simple example that I can run here demonstrating the issue and
I'll take a look at what is going on.

Using Advantage is okay if you include the data.

--

rbuser

Hi Nico,
Ahh now that will be a challenge. The two forms are part of a 20+ form application.
I will see what I can do.

Regards,
Ian

rbuser

HI Nico,
It was easier than I thought. :-)
RBTest.rar sent to support@..
See comment in Appointments source.

Regards,
Ian