Me again..

rbuser

Hi Team,
Win 10, D10.2.1, Advantage 12, latest RB Ent.

I don't know if this is Delphi, Advantage Database or RB.

Given the following procedure..
{code}
procedure TAppointmentsForm.btnPrintCurrentListClick(Sender: TObject);
begin
//
////////////////// Part A //////////////
ApptTemp.Exclusive := True;
ApptTemp.Open;
ApptTemp.AdsZapTable;
//
Appointments.AdsCopyTableContents(ApptTemp);
//
ApptTemp.Close;
ApptTemp.Exclusive := False;
//
//////////////// Part B /////////////////
with ReportsFrm.ReportsForm do
begin
ppRE1.LoadReport('Appointments', 2);
ppR1.ShowAutoSearchDialog := False;
ppR1.Print;
ppR1.FreeModules
end;
//
end;
{code}
The report is using ApptTemp.
If I just enable part A, i.e. comment out part B, the procedure runs through fine. ApptTemp is updated correctly for
multiple simultaneous users.
If I just enable part B, the procedure works fine. I get the report for multiple simultaneous users.
If parts A & B are enabled I get the error "The specified table, memo file, or index file was unable to be opened."
when the second user tries to run the procedure.
That's OK, I can trap that and tell the Second+ user to wait.
However, the 'lock' on ApptTable doesn't go away when the report is closed by the first user, or if the calling unit
is closed. It isn't untill the app itself is closed by the first user that the sacond user can continue. :-(
As I said, I don't know if this is Delphi, Advantage Database or RB.
Appreciate any thoughts as to what is going on and how to rectify it.

Regards & TIA,
Ian

nicocizik

Hi Ian,

For future reference, please create meaningful subjects for your
newsgroup threads so others with the same issue can search easier.

This appears to be a similar issue to the one we addressed April 10,
2017. Is it possible to alter the example you sent then to demonstrate
this issue? Please send me the steps I need to take to recreate the
problem or alter the example you sent back then and send it to me in
.zip format so I can see if there is anything we can do.

--

rbuser

Nico Cizik (Digital Metaphors) wrote:

IB - Apologies

IB - Do you hav Advantage Database available? Not sure an example will br relevant without it.

Regards,
Ian

nicocizik

Hi Ian,


Yes, I also have the previous example you sent in April which is very
similar to the code you posted. I could use that if you give me the
steps to recreate this new issue.


--

rbuser

Nico Cizik (Digital Metaphors) wrote:


Sorry Nico,
I had totally forgotten abot the old one. :-(
I have updated it and resent it via email.
To recreate run the app twice. With both apps open, run the report in one through to closing the report but still in
the app, then run the report in the second app.

Regards & Tks,
Ian