Index: vhLib/LoggingGetalIndex.cls.xml
===================================================================
diff -u -r3520 -r3532
--- vhLib/LoggingGetalIndex.cls.xml	(.../LoggingGetalIndex.cls.xml)	(revision 3520)
+++ vhLib/LoggingGetalIndex.cls.xml	(.../LoggingGetalIndex.cls.xml)	(revision 3532)
@@ -21,6 +21,24 @@
 <Unique>1</Unique>
 </Index>
 
+<Method name="BewaarIndex">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Logging:vhLib.Logging,Getal:%Integer</FormalSpec>
+<Implementation><![CDATA[	Set ^LOG.vhLib.LoggingGetalIndexD(Getal, Logging.%Id()) = ""
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderLoggingGetalIndex">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ID:%String</FormalSpec>
+<Implementation><![CDATA[
+	#Dim Index As vhLib.LoggingGetalIndex = ##class(vhLib.LoggingGetalIndex).%OpenId(ID)
+	#Dim Getal As %Numeric = Index.Getal
+	#Dim LoggingId As %String = Index.LoggingGetObjectId()
+	Kill ^LOG.vhLib.LoggingGetalIndexD(Getal, LoggingId)
+]]></Implementation>
+</Method>
+
 <Method name="BouwOp">
 <Description>
 Do ##class(vhLib.LoggingGetalIndex).BouwOp()</Description>
@@ -72,12 +90,7 @@
 	For {
 		Set Getal=$Order(GevondenGetallen(Getal)) 
 		Quit:(""=Getal)
-		If (Getal>1000) {
-		Set Idx = ##class(vhLib.LoggingGetalIndex).%New()
-		Set Idx.Logging = Logging
-		Set Idx.Getal = Getal
-			Do Idx.%Save()
-		}
+		Do:(Getal>=1000) ..BewaarIndex(Logging, Getal)
 	}
 ]]></Implementation>
 </Method>
@@ -108,18 +121,11 @@
 	Set IdsToDeleteIterator = ##class(TECH.ListIterator).%New( LoggingGetalIndexesToDelete )
 	While IdsToDeleteIterator.HasNext() {
 		Set IdToDelete = IdsToDeleteIterator.Next()
-		Set ObjectToDelete = ##class(vhLib.LoggingGetalIndex).%DeleteId(IdToDelete)
+		Do ..VerwijderLoggingGetalIndex(IdToDelete)
 	}
 ]]></Implementation>
 </Method>
 
-<Method name="VerwijderLoggingGetalIndex">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>ID:%String</FormalSpec>
-<Implementation><![CDATA[	w ##class(vhLib.LoggingGetalIndex).%DeleteId(ID), !
-]]></Implementation>
-</Method>
-
 <Storage name="VHOpslag">
 <Type>%CacheSQLStorage</Type>
 <StreamLocation>^LOG.vhLib.LoggingGetalIndexS</StreamLocation>
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>