Index: vhLib/LogOpkuiser.cls.xml
===================================================================
diff -u -r3791 -r3794
--- vhLib/LogOpkuiser.cls.xml	(.../LogOpkuiser.cls.xml)	(revision 3791)
+++ vhLib/LogOpkuiser.cls.xml	(.../LogOpkuiser.cls.xml)	(revision 3794)
@@ -109,23 +109,27 @@
 	
 	Do ..Logger.Info("VerwijderLogRecords", "'" _ LoggingIdsToDelete.Count() _ "' te wissen voor datum '" _ Datum _ "', Niveau '" _ Niveau _ "'.")
 		
-	#Dim AantalGewist As %Integer = 0
+	#dim AantalGewist As %Integer = 0
+	#dim EersteIdGewist As %String = ""
+	#dim LaatsteIdGewist As %String = ""
 	Set IdsToDeleteIterator = ##class(TECH.ListIterator).%New( LoggingIdsToDelete )
 	While IdsToDeleteIterator.HasNext() {
-		Set IdToDelete = IdsToDeleteIterator.Next()
+		#dim IdToDelete As %String = IdsToDeleteIterator.Next()
 		Try {
 			#dim sc As %Status = ##class(vhLib.Logging).DeleteLogging(IdToDelete)
 			Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(sc)
 			
 			Set AantalGewist = AantalGewist + 1
+			Set:(EersteIdGewist="") EersteIdGewist = IdToDelete
+			Set LaatsteIdGewist = IdToDelete
 		} 
 		Catch {
 			#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 			Do ..Logger.ErrorMail("VerwijderLogRecords", "'" _ AantalGewist _ "' reeds gewist voor datum '" _ Datum _ "', Niveau '" _ Niveau _ "'.  Error bij record '"_IdToDelete_"' : "_Exception.GeefErrorInformatie())
 		}
 	}
 		
-	Do:(LoggingIdsToDelete.Count() > 0) ..Logger.Info("VerwijderLogRecords", "'" _ AantalGewist _ "' gewist voor datum '" _ Datum _ "', Niveau '" _ Niveau _ "'.")
+	Do:(LoggingIdsToDelete.Count() > 0) ..Logger.Info("VerwijderLogRecords", "'" _ AantalGewist _ "' gewist voor datum '" _ Datum _ "', Niveau '" _ Niveau _ "'; Eerste ID='"_EersteIdGewist_"' LaatsteID='"_LaatsteIdGewist_"'.")
 	
 	Quit AantalGewist
 ]]></Implementation>