Index: APPS/Halux/PPS/impl/Aansturing/AansturingActieUitvoerder/AsyncUitvoerder.cls.xml
===================================================================
diff -u -r61061 -r61982
--- APPS/Halux/PPS/impl/Aansturing/AansturingActieUitvoerder/AsyncUitvoerder.cls.xml	(.../AsyncUitvoerder.cls.xml)	(revision 61061)
+++ APPS/Halux/PPS/impl/Aansturing/AansturingActieUitvoerder/AsyncUitvoerder.cls.xml	(.../AsyncUitvoerder.cls.xml)	(revision 61982)
@@ -41,16 +41,21 @@
 	If (..IsTAXLade(BatchCategorie) || ..IsTBXofLBXlade(BatchCategorie)) { 
 		Do ..VerkrijgLock(BatchCategorie, BatchID)
 	}		
-
-	while itActiesIDs.HasNext() {
-		#dim ActieID As %String = itActiesIDs.Next()
-		#dim ActieParameters As %ListOfDataTypes = ""
-		Set ActieParameters = ..AansturingActieUitvoerder.GeefActieParametersVoorActieID(ActieParametersLijst,ActieID)
-		Do ..AansturingActieUitvoerder.VoerUitAansturingActieVoorBatch(BatchID,ActiviteitGroepID,ActieID,ActieParameters)
-	}
-	
-	If (..IsTAXLade(BatchCategorie) || ..IsTBXofLBXlade(BatchCategorie)) { 
+	try {
+		while itActiesIDs.HasNext() {
+			#dim ActieID As %String = itActiesIDs.Next()
+			#dim ActieParameters As %ListOfDataTypes = ""
+			Set ActieParameters = ..AansturingActieUitvoerder.GeefActieParametersVoorActieID(ActieParametersLijst,ActieID)
+			Do ..AansturingActieUitvoerder.VoerUitAansturingActieVoorBatch(BatchID,ActiviteitGroepID,ActieID,ActieParameters)
+		}
+		
+		If (..IsTAXLade(BatchCategorie) || ..IsTBXofLBXlade(BatchCategorie)) { 
+			Do ..Verwijderlock(BatchCategorie)
+		}
+	} Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 		Do ..Verwijderlock(BatchCategorie)
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)
 	}
 ]]></Implementation>
 </Method>