Index: vhLib/Logger.cls.xml
===================================================================
diff -u -r3293 -r3348
--- vhLib/Logger.cls.xml	(.../Logger.cls.xml)	(revision 3293)
+++ vhLib/Logger.cls.xml	(.../Logger.cls.xml)	(revision 3348)
@@ -249,9 +249,30 @@
 <FormalSpec>Datum:%Date,Server:%String,Niveau:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim QueryString As %String = "SELECT %NOLOCK ID FROM vhLib.Logging WHERE Datum<=? AND Server=? AND Niveau=?"
-	Set Query = ##class(TECH.DynamicQuery).%New(QueryString,$ListBuild(Datum, Server, Niveau))
+	#dim QueryString As %String
 	
+	If $$$Not(Niveau = "I") {
+		Set QueryString = "SELECT %NOLOCK ID FROM vhLib.Logging WHERE Datum<=? AND Server=? AND Niveau=?"
+		Set Query = ##class(TECH.DynamicQuery).%New(QueryString,$ListBuild(Datum, Server, Niveau))
+		Do ..VerwijderLogRecords(Query)
+	} Else {
+		Set QueryString = "SELECT %NOLOCK ID FROM vhLib.Logging WHERE Datum<=? AND Server=? AND Niveau=? AND Groep<>'WS.Vhisie4.Winkelkar.WinkelkarService'"
+		Set Query = ##class(TECH.DynamicQuery).%New(QueryString,$ListBuild(Datum, Server, Niveau))
+		Do ..VerwijderLogRecords(Query)
+		
+		Set Datum = Datum - 20
+		Set QueryString = "SELECT %NOLOCK ID FROM vhLib.Logging WHERE Datum<=? AND Server=? AND Niveau=? AND Groep='WS.Vhisie4.Winkelkar.WinkelkarService'"
+		Set Query = ##class(TECH.DynamicQuery).%New(QueryString,$ListBuild(Datum, Server, Niveau))
+		Do ..VerwijderLogRecords(Query)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderLogRecords">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Query:TECH.DynamicQuery</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
 	#dim ResultSet As TECH.ResultSet = ##class(TECH.Context).Instance().GeefQueryAPI().GetResultSet(Query)
 	While ResultSet.Next() {
 		Do ##class(vhLib.Logging).%DeleteId(ResultSet.GetDataByName("ID"))