Customizing codeunit ApplicationManagement

jks

Hi all,

I added two statements in codeunit 1 i.e ApplicationManagement, one in CompanyOpen and one in CompanyClose. On CompanyOpen I have added statement for Database connection and on CompanyClose I disconnect from there. Code is as follow:

CompanyOpen
IF GUIALLOWED THEN
LogInStart;
TestCD.Init;

ComapnyClose
IF GUIALLOWED THEN
BEGIN
TestCD.Term;
LogInEnd;
END;

Here TestCD is my another codeunit. Now CompanyOpen code works perfectly. but on CompanyClose I get error
Internal error 2 in module 7
Contact your dealer if you need assistance.
And then Navision crashes.

Please help.

Marije_Brummel

What does TestCD do? Is it a singleinstance CU with some Automation contol?

jks

Yes.

Marije_Brummel

Just as i thought . Wow this is scary.

What is the code in the functions? I've had the same error some years ago.

jks

Code just uses the Automation Variable and invokes COM interface function to connect to the database.

What you did then to resolve it??
Please help.

Marije_Brummel

I was hoping to remember by looking at your code. But my guess is you forgot to CLEAR the automation contol.

jks

No I have cleared it.
My code is as follow:

Term
{
AutomationVar.Terminate();
returnvalue := AutomationVar.ErrCode;
IF returnvalues <> 0 THEN ERROR('display error');

CLEAR(Automationvar);
}

Marije_Brummel

Just thinking, I don't have the database at hand.

Is the TestCD codunit a global var in CU1 or local?

jks

Global