Ofwel via ID ID = select ID,* from Prod.OptiBox_Logging order by Datum DESC, TIJD DESC Do ##class(vhPowerTools.APPS.Optibox.Service).%New().Optimaliseer(ID) Ofwel een overzicht op scherm tonen en request selecteren, vb laatste drie requests mogelijk selecteren : Do ##class(vhPowerTools.APPS.Optibox.Service).%New().Optimaliseer(,3) %RegisteredObject ID:%String="",AantalLaatsteRequests:%Integer="" 1 BonID:%String 1 BestandNaam:%String,BonID:%String 1 BestandNaam:%String 1 OptiReq:WS.Prod.PanOpti.q1.OPTIREQ 1 WS.Prod.PanOpti.q1.OPTIREQ LoggingRequest:DS.Prod.OptiBox.Logging 1 WS.Prod.PanOpti.q1.OPTIREQ ",1) #dim reader As %XML.Reader = ##class(%XML.Reader).%New() #dim sc As %Status = reader.OpenString(OptiRequest) Do reader.Correlate("OPTIREQ","WS.Prod.PanOpti.q1.OPTIREQ") Do reader.Next(.OptiReq,.sc) Quit OptiReq ]]> AantalLaatsteRequests:%Integer 1 DS.Prod.OptiBox.Logging ",1) Write !,"---------------------------",! Set IndexLoggingItem = IndexLoggingItem + 1 } #dim IndexGekozenItem As %Integer Write !,"Kies uw item : " Read IndexGekozenItem If ##class(TECH.Integer).IsValid(IndexGekozenItem) { Set LoggingRequest = Loggings.GetAt(IndexGekozenItem) }Else{ Write !,"Geen geldig gekozen item : '"_IndexGekozenItem_"'" } Quit LoggingRequest ]]>