Define Class TestC5 As Session OLEPUBLIC Function Test1() This.EndTransaction() Return "Test1" EndFunc Function Test2 Return "Test2" EndFunc Protected Function EndTransaction() Local loCom, loContext, loContextState loCom = CREATEOBJECT( "MTXAS.APPSERVER.1" ) loContext = loCom.GetObjectContext() loContext.SetComplete() Store NULL TO loCom, loContext EndFunc EndDefineThen run the following:
ox = CreateObject("TestC5.TestC5") ? ox.Test1() && Test 1 ? ox.Test2() && Test 2 ox=Null && Kaboom !!!The error i get in the application event log is the following:
COM+ Internal Error. Please contact Microsoft Product Support Services to report this error. Assertion Failure: !m_fActivated Server Application ID: {F6BBDE6A-DCA5-4654-8266-0DCCF336F2E7} Server Application Name: TestC5 The serious nature of this error has caused the process to terminate. COM+ Services Internals Information: File: .\jit.cpp, Line: 78