Index: APPS/Halux/common/BatchService.cls.xml
===================================================================
diff -u -r1073 -r1477
--- APPS/Halux/common/BatchService.cls.xml	(.../BatchService.cls.xml)	(revision 1073)
+++ APPS/Halux/common/BatchService.cls.xml	(.../BatchService.cls.xml)	(revision 1477)
@@ -90,7 +90,14 @@
 
 <Method name="VerwijderBatchesOuderDan">
 <FormalSpec>AantalDagen:%Integer=30</FormalSpec>
-<Implementation><![CDATA[	&SQL(DELETE FROM APPS_Halux_common_impl.BatchImpl WHERE DATEDIFF('dd',AanmaakTijdStip,CURRENT_TIMESTAMP) > :AantalDagen AND IsActief = 0)
+<Implementation><![CDATA[
+	Set ResultSet = ##class(%ResultSet).%New()
+	Do ResultSet.Prepare("SELECT ID FROM APPS_Halux_common_impl.BatchImpl WHERE DATEDIFF('dd',AanmaakTijdStip,CURRENT_TIMESTAMP) > ? AND IsActief = 0")
+	Do ResultSet.Execute(AantalDagen)
+	While (ResultSet.Next())
+	{
+		Do ##class(APPS.Halux.common.Batch).%DeleteId(ResultSet.Data("ID"))
+	}
 ]]></Implementation>
 </Method>
 </Class>