Index: vhLib/Logging.cls.xml
===================================================================
diff -u -r3440 -r3441
--- vhLib/Logging.cls.xml	(.../Logging.cls.xml)	(revision 3440)
+++ vhLib/Logging.cls.xml	(.../Logging.cls.xml)	(revision 3441)
@@ -374,6 +374,17 @@
 ]]></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>
+<Implementation><![CDATA[
+	Do ##class(vhLib.LoggingGetalIndex).VerwijderVoorLogEntryId(..%Id())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DataLocation>^LOG.vhLib.LoggingD</DataLocation>
Index: vhLib/LoggingGetalIndex.cls.xml
===================================================================
diff -u -r3372 -r3441
--- vhLib/LoggingGetalIndex.cls.xml	(.../LoggingGetalIndex.cls.xml)	(revision 3372)
+++ vhLib/LoggingGetalIndex.cls.xml	(.../LoggingGetalIndex.cls.xml)	(revision 3441)
@@ -41,8 +41,7 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Logging:vhLib.Logging</FormalSpec>
 <Implementation><![CDATA[
-	#dim GevondenGetallen As %String = "" 
-	Do ..GeefGetallenInTekst(Logging.Detail, .GevondenGetallen)
+	#dim GevondenGetallen As %String = ..GeefGetallenInTekst(Logging.Detail)
 	Set Getal=""
 	For {
 		Set Getal=$Order(GevondenGetallen(Getal)) 
@@ -57,10 +56,32 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwijderVoorLogEntry">
+<Description>
+Do ##class(vhLib.LoggingGetalIndex).VerwijderVoorLogEntry(##class(vhLib.Logging).%OpenId("PRA-W7_DEV1||64877||102"))</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Logging:vhLib.Logging</FormalSpec>
+<Implementation><![CDATA[	Do ..VerwijderVoorLogEntryId(Logging.%Id())
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderVoorLogEntryId">
+<Description>
+Do ##class(vhLib.LoggingGetalIndex).VerwijderVoorLogEntry("PRA-W7_DEV1||64877||102")</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>LoggingId:%String</FormalSpec>
+<Implementation><![CDATA[
+	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"))
+	}
+]]></Implementation>
+</Method>
+
 <Method name="GeefGetallenInTekst">
 <ClassMethod>1</ClassMethod>
-<FormalSpec><![CDATA[Tekst:%String,&GevondenGetallen:%String]]></FormalSpec>
-<ReturnType>%String</ReturnType>
+<FormalSpec>Tekst:%String</FormalSpec>
 <Implementation><![CDATA[
 	#dim Einde As %Integer
 	#dim Waarde As %String
@@ -88,6 +109,8 @@
 	If ("" '= Getal) {
 		Set GevondenGetallen(Getal) = "1"
 	}
+	
+	Quit GevondenGetallen
 ]]></Implementation>
 </Method>