vhLib.Macro 1 TECH.Mockable vhLib.Logger 1 %Integer 50000 1 1 1 %Status BulkAantal:%Integer Do ##class(vhLib.LogOpkuiser).KuisOpOudeLogs(30,30,10,10) DaysError:%Integer=30,DaysWarning:%Integer=30,DaysInformation:%Integer=10,DaysDebug:%Integer=10 %Status Datum:%Date,Niveau:%String 1 'WS.Vhisie4.Winkelkar.WinkelkarService'" Do ..KuisOpLogsViaSelectieQuery(QueryString, Datum, Niveau) Set Datum = Datum - 20 Set QueryString = "SELECT %NOLOCK TOP " _ ..BulkAantal _ " ID FROM vhLib.Logging WHERE Datum<=? AND Niveau=? AND Groep='WS.Vhisie4.Winkelkar.WinkelkarService'" Do ..KuisOpLogsViaSelectieQuery(QueryString, Datum, Niveau) } ]]> QueryString:%String,Datum:%Date,Niveau:%String 1 0) } ]]> @Return Het aantal gewiste records. QueryString:%String,Datum:%Date,Niveau:%String 1 %Integer 0) ..Logger.Info("VerwijderLogRecords", "'" _ AantalGewist _ "' gewist voor datum '" _ Datum _ "', Niveau '" _ Niveau _ "'.") Quit AantalGewist ]]>