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 _ "' items gewist voor datum '" _ Datum _ "', Niveau '" _ Niveau _ "'; Eerste ID='"_EersteIdGewist_"' LaatsteID='"_LaatsteIdGewist_"'.") If ExceptionList.Count() > 0 { Set OmvattendeException = ##class(TECH.Exceptions.GeneralErrorException).%New("Error bij VerwijderLogRecords. Aantal fouten: "_ExceptionList.Count() _$$$If(ContinueLoopToDelete, "", " (While-loop afgebroken, want max aantal fouten bereikt).") ) Do OmvattendeException.ZetInnerExcepties(ExceptionList) Do OmvattendeException.VoegToeExtraInfo("'" _ AantalGewist _ "' items reeds gewist voor datum '" _ Datum _ "', Niveau '" _ Niveau _ "'; Eerste ID='"_EersteIdGewist_"' LaatsteID='"_LaatsteIdGewist_"'.") Do ..Logger.ErrorMail("VerwijderLogRecords", OmvattendeException.ToStream()) } Quit AantalGewist ]]>