Index: vhLib/LoggingGetalIndex.cls.xml
===================================================================
diff -u -r3442 -r3515
--- vhLib/LoggingGetalIndex.cls.xml	(.../LoggingGetalIndex.cls.xml)	(revision 3442)
+++ vhLib/LoggingGetalIndex.cls.xml	(.../LoggingGetalIndex.cls.xml)	(revision 3515)
@@ -26,12 +26,37 @@
 Do ##class(vhLib.LoggingGetalIndex).BouwOp()</Description>
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
+	#dim AantalLoggingEntries, AantalGelukt, AantalGefaald As %Integer = 0
+	#dim EersteGelukt, LaatsteGelukt, EersteGefaald, LaatsteGefaald As %String = ""
+	
 	#dim LoggingEntriesResultSet As TECH.ResultSet = ##class(TECH.ResultSet).%New("vhLib.Logging"_":"_"Extent")
 	Do LoggingEntriesResultSet.Execute()
 	While LoggingEntriesResultSet.Next() {
+		Set AantalLoggingEntries = AantalLoggingEntries + 1
 		#dim Logging As vhLib.Logging = ##class(vhLib.Logging).%OpenId(LoggingEntriesResultSet.GetDataByName("ID"))
-		Do ..BouwOpVoorLogEntry(Logging)
+		Try {
+			Do ..BouwOpVoorLogEntry(Logging)
+			Set AantalGelukt = AantalGelukt + 1
+			Set:(AantalGelukt=1) EersteGelukt = LoggingEntriesResultSet.GetDataByName("ID")
+			Set LaatsteGelukt = LoggingEntriesResultSet.GetDataByName("ID")
+		} Catch {
+			Set AantalGefaald = AantalGefaald + 1
+			Do:(AantalGefaald = 1) ##class(vhLib.Logger).LogExceptie(##class(TECH.ExceptionHandler).Catch())
+			Set:(AantalGefaald=1) EersteGefaald = LoggingEntriesResultSet.GetDataByName("ID")
+			Set LaatsteGefaald = LoggingEntriesResultSet.GetDataByName("ID")
+		}
 	}
+	
+	Do LoggingEntriesResultSet.Close()
+	
+	Do ##class(vhLib.Logger).%New().Info("vhLib.LoggingGetalIndex::BouwOp", 
+		"AantalLoggingEntries='"_AantalLoggingEntries
+		_ "' AantalGelukt='"_AantalGelukt
+		_ "' AantalGefaald='"_AantalGefaald
+		_ "' EersteGelukt='"_EersteGelukt
+		_ "' LaatsteGelukt='"_LaatsteGelukt
+		_ "' EersteGefaald='"_EersteGefaald
+		_ "' LaatsteGefaald='"_LaatsteGefaald)
 ]]></Implementation>
 </Method>
 
@@ -41,7 +66,8 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Logging:vhLib.Logging</FormalSpec>
 <Implementation><![CDATA[
-	#dim GevondenGetallen As %String = ..GeefGetallenInTekst(Logging.Detail)
+	#dim GevondenGetallen As %String = ""
+	Do ..GeefGetallenInTekst(Logging.Detail, .GevondenGetallen)
 	Set Getal=""
 	For {
 		Set Getal=$Order(GevondenGetallen(Getal)) 
@@ -71,19 +97,35 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>LoggingId:%String</FormalSpec>
 <Implementation><![CDATA[
+	Set LoggingGetalIndexesToDelete = ##class(%ListOfDataTypes).%New()
 	Set Query = ##class(TECH.DynamicQuery).%New("SELECT %NOLOCK ID FROM vhLib.LoggingGetalIndex WHERE Logging=?" ,$ListBuild(LoggingId))
 	#dim ResultSet As TECH.ResultSet = ##class(TECH.Context).Instance().GeefQueryAPI().GetResultSet(Query)
 	While ResultSet.Next() {
-		Do ##class(vhLib.LoggingGetalIndex).%DeleteId(ResultSet.GetDataByName("ID"))
+		Do LoggingGetalIndexesToDelete.Insert( ResultSet.GetDataByName("ID") )
 	}
+	Do ResultSet.Close()
+	
+	Set IdsToDeleteIterator = ##class(TECH.ListIterator).%New( LoggingGetalIndexesToDelete )
+	While IdsToDeleteIterator.HasNext() {
+		Set IdToDelete = IdsToDeleteIterator.Next()
+		Set ObjectToDelete = ##class(vhLib.LoggingGetalIndex).%DeleteId(IdToDelete)
+	}
 ]]></Implementation>
 </Method>
 
+<Method name="VerwijderLoggingGetalIndex">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ID:%String</FormalSpec>
+<Implementation><![CDATA[	w ##class(vhLib.LoggingGetalIndex).%DeleteId(ID), !
+]]></Implementation>
+</Method>
+
 <Method name="GeefGetallenInTekst">
+<Description>
+Set GG=""  Do ##class(vhLib.LoggingGetalIndex).GeefGetallenInTekst("abc123456def987654hij",.GG)  zw GG</Description>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>Tekst:%String</FormalSpec>
+<FormalSpec><![CDATA[Tekst:%String,&GevondenGetallen:%String]]></FormalSpec>
 <Implementation><![CDATA[
-	Set GevondenGetallen = ""
 	#dim Einde As %Integer
 	#dim Waarde As %String
 	#Dim Start As %Integer = 0
@@ -110,8 +152,6 @@
 	If ("" '= Getal) {
 		Set GevondenGetallen(Getal) = "1"
 	}
-	
-	Quit GevondenGetallen
 ]]></Implementation>
 </Method>
 
Index: vhLib/Logger.cls.xml
===================================================================
diff -u -r3472 -r3515
--- vhLib/Logger.cls.xml	(.../Logger.cls.xml)	(revision 3472)
+++ vhLib/Logger.cls.xml	(.../Logger.cls.xml)	(revision 3515)
@@ -270,11 +270,21 @@
 <FormalSpec>QueryString:%String,Datum:%Date,Server:%String,Niveau:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
+	Set LoggingIdsToDelete = ##class(%ListOfDataTypes).%New()
+	
 	Set Query = ##class(TECH.DynamicQuery).%New(QueryString,$ListBuild(Datum, Server, Niveau))
 	#dim ResultSet As TECH.ResultSet = ##class(TECH.Context).Instance().GeefQueryAPI().GetResultSet(Query)
 	While ResultSet.Next() {
-		Do ##class(vhLib.Logging).%DeleteId(ResultSet.GetDataByName("ID"))
+		Do LoggingIdsToDelete.Insert(ResultSet.GetDataByName("ID"))
 	}
+	Do ResultSet.Close()
+	
+	
+	Set IdsToDeleteIterator = ##class(TECH.ListIterator).%New( LoggingIdsToDelete )
+	While IdsToDeleteIterator.HasNext() {
+		Set IdToDelete = IdsToDeleteIterator.Next()
+		Do ##class(vhLib.Logging).DeleteLogging(IdToDelete)
+	}
 ]]></Implementation>
 </Method>
 </Class>
Index: vhLib/Logging.cls.xml
===================================================================
diff -u -r3443 -r3515
--- vhLib/Logging.cls.xml	(.../Logging.cls.xml)	(revision 3443)
+++ vhLib/Logging.cls.xml	(.../Logging.cls.xml)	(revision 3515)
@@ -374,14 +374,13 @@
 ]]></Implementation>
 </Method>
 
-<Method name="OnDelete">
-<Description>
-Deze method kan beter overschreven worden dan de %OnDelete.
-De OnDelete loopt sowieso in zijn geheel binnen een transactie.
-Wanneer een exceptie optreedt binnen de method zal de delete actie volledig teruggedraaid worden.</Description>
+<Method name="DeleteLogging">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>oid:%ObjectIdentity</FormalSpec>
+<ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Do ##class(vhLib.LoggingGetalIndex).VerwijderVoorLogEntryId(..%Id())
-	Quit $$$OK
+	Do ##class(vhLib.LoggingGetalIndex).VerwijderVoorLogEntryId(oid)
+	Quit ##class(vhLib.Logging).%DeleteId(oid)
 ]]></Implementation>
 </Method>