%RegisteredObject 0 %ListOfDataTypes AantalDagen:%Integer,FilterGroepenIterator:TECH.Iterator,FilterNiveauIterator:TECH.Iterator %String 0 { Do Conditie.VoegToeSubconditie(##class(TECH.Algo.SQL.QueryEngine.EnkelvoudigeConditie).%New("Datum > '"_$zd($Horolog-AantalDagen,1)_"'")) } If FilterGroepenIterator.HasNext() { Do Conditie.VoegToeSubconditie( ..GeefSubConditieVoorFilter(FilterGroepenIterator,"Groep") ) } If FilterNiveauIterator.HasNext() { Do Conditie.VoegToeSubconditie( ..GeefSubConditieVoorFilter(FilterNiveauIterator,"Niveau") ) } Do QueryBuilder.ZetWhereConditie(Conditie) set SqlStatement = QueryBuilder.GeefQueryString() _ " ORDER BY Datum DESC, Tijd DESC, SubID DESC" Quit SqlStatement ]]> FilterItemsIterator:TECH.Iterator,SqlField:%String 1 TECH.Algo.SQL.QueryEngine.IWhereConditie