Index: vhLib/Logger.cls.xml
===================================================================
diff -u -r2912 -r3157
--- vhLib/Logger.cls.xml	(.../Logger.cls.xml)	(revision 2912)
+++ vhLib/Logger.cls.xml	(.../Logger.cls.xml)	(revision 3157)
@@ -220,23 +220,43 @@
 <FormalSpec>DaysError:%Integer=30,DaysWarning:%Integer=30,DaysInformation:%Integer=10,DaysDebug:%Integer=10</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set OldDateTimeError = $h-DaysError	
-	Set OldDateTimeWarning = $h-DaysWarning
-	Set OldDateTimeInformation = $h-DaysInformation
-	Set OldDateTimeDebug = $h-DaysDebug
+	Set OldDateTimeError = $$$CurrentDate-DaysError	
+	Set OldDateTimeWarning = $$$CurrentDate-DaysWarning
+	Set OldDateTimeInformation = $$$CurrentDate-DaysInformation
+	Set OldDateTimeDebug = $$$CurrentDate-DaysDebug
 	
 	set Server = $$$Server do ExecQuery
 	set Server = $piece(##class(TECH.Config.ConfigMgr).Instance().GeefString("Makova_ServerEnNamespace"),"\",1) do ExecQuery
 	
+	#dim Date = ""
+	for { set Date = $O(^ERRORS(Date)) Quit:Date=""
+		if Date < OldDateTimeError kill ^ERRORS(Date)
+	}
+
 	Quit $$$OK	
 	
 ExecQuery
-	&sql(DELETE FROM vhLib.Logging WHERE Datum<=:OldDateTimeError AND Server=:Server AND Niveau = 'E')	
-	&sql(DELETE FROM vhLib.Logging WHERE Datum<=:OldDateTimeWarning AND Server=:Server AND Niveau = 'W')	
-	&sql(DELETE FROM vhLib.Logging WHERE Datum<=:OldDateTimeInformation AND Server=:Server AND Niveau = 'I')	
-	&sql(DELETE FROM vhLib.Logging WHERE Datum<=:OldDateTimeDebug AND Server=:Server AND Niveau = 'D')
+	Do ..RemoveLogByItem(OldDateTimeError, Server, "E")	
+	Do ..RemoveLogByItem(OldDateTimeWarning, Server, "W")	
+	Do ..RemoveLogByItem(OldDateTimeInformation, Server, "I")	
+	Do ..RemoveLogByItem(OldDateTimeDebug, Server, "D")
 ]]></Implementation>
 </Method>
+
+<Method name="RemoveLogByItem">
+<ClassMethod>1</ClassMethod>
+<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 ResultSet As TECH.ResultSet = ##class(TECH.Context).Instance().GeefQueryAPI().GetResultSet(Query)
+	While ResultSet.Next() {
+		Do ##class(vhLib.Logging).%DeleteId(ResultSet.GetDataByName("ID"))
+	}
+]]></Implementation>
+</Method>
 </Class>