Index: APPS/Halux/common/impl/BatchService.cls.xml
===================================================================
diff -u -r38152 -r48100
--- APPS/Halux/common/impl/BatchService.cls.xml	(.../BatchService.cls.xml)	(revision 38152)
+++ APPS/Halux/common/impl/BatchService.cls.xml	(.../BatchService.cls.xml)	(revision 48100)
@@ -103,11 +103,13 @@
 <Method name="VerwijderBatchesOuderDan">
 <FormalSpec>AantalDagen:%Integer=30</FormalSpec>
 <Implementation><![CDATA[
+	#Dim Logger As vhLib.Logger = ##class(vhLib.Logger).%New()
 	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")
 	set ResultSet.RuntimeMode = ##class(TECH.enu.ResultSetRuntimeMode).Logical()
 	Do ResultSet.Execute(AantalDagen)
 	While (ResultSet.Next()) {
+		Do Logger.Info("Verwijderen batch", ResultSet.Data("ID"))
 		Do ##class(APPS.Halux.common.impl.BatchImpl).%DeleteId(ResultSet.Data("ID"))
 	}
 ]]></Implementation>