Index: TECH/BackgroundProcess/Uitvoerder.cls.xml =================================================================== diff -u -r3207 -r3801 --- TECH/BackgroundProcess/Uitvoerder.cls.xml (.../Uitvoerder.cls.xml) (revision 3207) +++ TECH/BackgroundProcess/Uitvoerder.cls.xml (.../Uitvoerder.cls.xml) (revision 3801) @@ -32,25 +32,26 @@ #dim Data As TECH.BackgroundProcess.Data = ##class(TECH.BackgroundProcess.impl.Data).OpenId(DataID) #dim SignalID As %String = Data.GetSignalID() - try { - do ..SetDataInParams(Data) - do ..LoadRuntimeInfo(Data.GetRuntimeInfo()) + Try { + Do ..SetDataInParams(Data) + Do ..LoadRuntimeInfo(Data.GetRuntimeInfo()) - do ##class(vhLib.Logger).%New().Info("BackgroundProcessUitvoerder","Execute : "_Data.ClassName_" "_Data.MethodName) + Do ##class(vhLib.Logger).%New().Info("BackgroundProcessUitvoerder","Execute : "_Data.ClassName_" "_Data.MethodName) #dim Class As %Base = $classmethod(Data.ClassName,"%New") - do ..ExecuteMethod(Class,Data.MethodName,..Params) + Do ..ExecuteMethod(Class,Data.MethodName,..Params) Do ##class(TECH.BackgroundProcess.impl.Data).DeleteId(DataID) - } catch { + } Catch { #dim Exception As TECH.Exceptions = ##class(TECH.ExceptionHandler).Catch() - do ##class(vhLib.Logger).LogEnMailExceptie(Exception, "voor background process data met ID="_DataID) + Do ##class(vhLib.Logger).LogEnMailExceptie(Exception, "voor background process data met ID="_DataID) } - do:##class(%SYSTEM.Event).Defined(SignalID) ##class(%SYSTEM.Event).Signal(SignalID) - quit + Do:##class(%SYSTEM.Event).Defined(SignalID) ##class(%SYSTEM.Event).Signal(SignalID) + + Quit ]]>