Index: TECH/BackgroundProcess/Uitvoerder.cls.xml
===================================================================
diff -u -r1198 -r1599
--- TECH/BackgroundProcess/Uitvoerder.cls.xml	(.../Uitvoerder.cls.xml)	(revision 1198)
+++ TECH/BackgroundProcess/Uitvoerder.cls.xml	(.../Uitvoerder.cls.xml)	(revision 1599)
@@ -27,6 +27,7 @@
 	new ParameterIterator, ParameterCount , Parameter
 	
 	#dim Data As TECH.BackgroundProcess.Data = ##class(TECH.BackgroundProcess.impl.Data).OpenId(DataID)
+	#dim SignalID As %String = Data.GetSignalID()
 	
 	try {
 		do SetDataInParams
@@ -36,14 +37,13 @@
 		
 		do ##class(vhLib.Logger).%New().Info("BackgroundProcessUitvoerder","Execute : "_Code)
 		xecute Code
-		
+		Do ##class(TECH.BackgroundProcess.impl.Data).DeleteId(DataID)
 	} catch {
 		new Exception
 		#dim Exception As TECH.Exceptions = ##class(TECH.ExceptionHandler).Catch()
-		do ##class(vhLib.Logger).LogEnMailExceptie(Exception)	
+		do ##class(vhLib.Logger).LogEnMailExceptie(Exception, "voor background process data met ID="_DataID)	
 	}
 	
-	#dim SignalID As %String = Data.GetSignalID()
 	do:##class(%SYSTEM.Event).Defined(SignalID) ##class(%SYSTEM.Event).Signal(SignalID)
 	quit