Index: vhLib/Logger.cls.xml
===================================================================
diff -u -r3515 -r3532
--- vhLib/Logger.cls.xml	(.../Logger.cls.xml)	(revision 3515)
+++ vhLib/Logger.cls.xml	(.../Logger.cls.xml)	(revision 3532)
@@ -279,12 +279,19 @@
 	}
 	Do ResultSet.Close()
 	
-	
+	#Dim Logger As vhLib.Logger = ..%New("vhLib.Logger")
+	Do Logger.%New("vhLib.Logger").Info("VerwijderLogRecords", "'" _ LoggingIdsToDelete.Count() _ "' te wissen voor server '" _ Server _ "', datum '" _ Datum _ "', Niveau '" _ Niveau _ "'.")
+		
+	Do $system.OBJ.SetTransactionMode(0)
+	#Dim AantalGewist As %Integer = 0
 	Set IdsToDeleteIterator = ##class(TECH.ListIterator).%New( LoggingIdsToDelete )
 	While IdsToDeleteIterator.HasNext() {
 		Set IdToDelete = IdsToDeleteIterator.Next()
 		Do ##class(vhLib.Logging).DeleteLogging(IdToDelete)
+		Set AantalGewist = AantalGewist + 1
 	}
+	
+	Do:(LoggingIdsToDelete.Count() > 0) Logger.Info("VerwijderLogRecords", "'" _ AantalGewist _ "' gewist voor server '" _ Server _ "', datum '" _ Datum _ "', Niveau '" _ Niveau _ "'.")
 ]]></Implementation>
 </Method>
 </Class>