If this method returns an error then the object will not be created.]]> Groep:%String="" 1 1 %Status 1 Exceptie:TECH.Exceptions.Exception,ExtraOmschrijving:TECH.String="" 0:" ",1:"")_ExtraOmschrijving,..GeefExceptieInfo(Exceptie)) ]]> 1 Exceptie:TECH.Exceptions.Exception 1 Exceptie:TECH.Exceptions.Exception 1 %String Niveau:%String,Actie:%String,Detail:%CacheString="",blnSendMail:%Boolean=0 vhLib.Logging Actie:%String,Detail:%CacheString,blnSendMail:%Boolean=0 vhLib.Logging Actie:%String,Detail:%CacheString vhLib.Logging Actie:%String,Detail:%CacheString,blnSendMail:%Boolean=0 vhLib.Logging Actie:%String,Detail:%CacheString vhLib.Logging Actie:%String,Detail:%CacheString,blnSendMail:%Boolean=0 vhLib.Logging Actie:%String,Detail:%CacheString vhLib.Logging Actie:%String,Detail:%CacheString,blnSendMail:%Boolean=0 vhLib.Logging ClassName:%String,Method:%String 0 ClassName:%String,Method:%String,Result:%RegisteredObject 1 Do ##class(vhLib.Logger).ClearOldLogItems(30,30,10,10) 1 DaysError:%Integer=30,DaysWarning:%Integer=30,DaysInformation:%Integer=10,DaysDebug:%Integer=10 %Status 1 Datum:%Date,Niveau:%String 1 'WS.Vhisie4.Winkelkar.WinkelkarService'" Do ..VerwijderLogRecords(QueryString, Datum, Niveau) Set Datum = Datum - 20 Set QueryString = "SELECT %NOLOCK ID FROM vhLib.Logging WHERE Datum<=? AND Niveau=? AND Groep='WS.Vhisie4.Winkelkar.WinkelkarService'" Do ..VerwijderLogRecords(QueryString, Datum, Niveau) } ]]> 1 QueryString:%String,Datum:%Date,Niveau:%String 1 0) Logger.Info("VerwijderLogRecords", "'" _ AantalGewist _ "' gewist voor datum '" _ Datum _ "', Niveau '" _ Niveau _ "'.") ]]>