[progress Communities] [progress Openedge Abl] Forum Post: Oo Control Flow Of Program Question.

[OctavioOlguin]

I have this class. It needs visual representation. (so it has on InitializeComponents: THIS-OBJECT:Load:Subscribe(THIS-OBJECT:BioLogin_Load). ) I managed to do polimorphism with this class... CONSTRUCTOR PUBLIC BioLogin ( INPUT pOperacion AS CHARACTER ): SUPER(). InitializeComponent(). THIS-OBJECT:ComponentsCollection:ADD(THIS-OBJECT:components). ASSIGN pRequestedOperation = pOperacion. ProcessOperation(pOperacion). THIS-OBJECT:CLOSE (). // this is the problem <<----- CATCH e AS Progress.Lang.Error: UNDO, THROW e. END CATCH. END CONSTRUCTOR. CONSTRUCTOR PUBLIC BioLogin ( INPUT pNomina AS INTEGER, INPUT pOperacion AS CHARACTER, INPUT pNmbr AS INTEGER ): SUPER(). InitializeComponent(). THIS-OBJECT:ComponentsCollection:ADD(THIS-OBJECT:components). ASSIGN pNominaEmpleado = pNomina // inyeccion de parámetros... pOperacionSolicitada = pOperacion pDedoARegistrar = pNmbr. CATCH e AS Progress.Lang.Error: UNDO, THROW e. END CATCH. END CONSTRUCTOR. CONSTRUCTOR PUBLIC BioLogin ( ): SUPER(). InitializeComponent(). THIS-OBJECT:ComponentsCollection:ADD(THIS-OBJECT:components). CATCH e AS Progress.Lang.Error: UNDO, THROW e. END CATCH. END CONSTRUCTOR. but have the problem (indicated on code). there is a use case of the class where I don't need/want visual representation. (first constructor). So it runs method processOperation(pOperacion) , I would like to terminate this instance of the run and return to previous UIB window. The calling procedure (UIB ABL) does the following to instantiate biologin rTemp = NEW BioLogin ( "Asistencia" ) . WAIT-FOR rTemp:showDialog(). DELETE OBJECT rTemp. The problem is after the exit condition on the ProcessOperation(pOperacion) is met (7 seconds of inactivity) I want to return to caller, but it creates a System.ObjectDisposedException: Cannot access a disposed object. error, so I'm lost. TIA

Continue reading...