S
seeme0526
Unregistered / Unconfirmed
GUEST, unregistred user!
if Assigned(FrmSteRec) then
begin
if (FrmSteRec.CobBZ.Text <> '') or (FrmSteRec.BTNSAVEPH.Enabled = True) then FrmSteRec.CloseQuery;
end;
if Assigned(FrmInit) then
begin
if FrmInit.BTNSAVE.Enabled = True then FrmInit.CloseQuery;
end;
Application.Terminate;
begin
if (FrmSteRec.CobBZ.Text <> '') or (FrmSteRec.BTNSAVEPH.Enabled = True) then FrmSteRec.CloseQuery;
end;
if Assigned(FrmInit) then
begin
if FrmInit.BTNSAVE.Enabled = True then FrmInit.CloseQuery;
end;
Application.Terminate;