Index: vhLib/LogViewer.cls.xml =================================================================== diff -u -r315 -r821 --- vhLib/LogViewer.cls.xml (.../LogViewer.cls.xml) (revision 315) +++ vhLib/LogViewer.cls.xml (.../LogViewer.cls.xml) (revision 821) @@ -17,17 +17,13 @@ -AantalDagen:%Integer,FilterGroepenIterator:TECH.Iterator,FilterNiveauIterator:TECH.Iterator +AantalDagen:%Integer,FilterGroepenIterator:TECH.Iterator,FilterNiveauIterator:TECH.Iterator,BijkomendeCondities:%ListOfDataTypes %String 0 { @@ -39,7 +35,23 @@ If FilterNiveauIterator.HasNext() { Do Conditie.VoegToeSubconditie( ..GeefSubConditieVoorFilter(FilterNiveauIterator,"Niveau") ) } + + Set BijkomendeConditieIt = ##class(TECH.ListIterator).%New(BijkomendeCondities) + While BijkomendeConditieIt.HasNext(){ + #dim BijkomendeConditie As %String = BijkomendeConditieIt.Next() + #dim VeldNaam As %String = $Piece(BijkomendeConditie,"=",1) + #dim Waarde As %String = $Piece(BijkomendeConditie,"=",2) + Do Conditie.VoegToeSubconditie(##class(TECH.Algo.SQL.QueryEngine.EnkelvoudigeConditie).%New(VeldNaam_" = '"_Waarde_"'")) + Do QueryBuilder.SelecteerVeldVanTabel(VeldNaam,Tabel) + } + Do QueryBuilder.ZetWhereConditie(Conditie) + + #dim Veld As %String + For Veld="Datum", "Tijd", "Groep", "Niveau", "Actie", "JobID", "Gebruiker", "DetailTrunc As Detail" { + Do QueryBuilder.SelecteerVeldVanTabel(Veld,Tabel) + } + #dim SqlStatement As %String = QueryBuilder.GeefQueryString() _ " ORDER BY Datum DESC, Tijd DESC, SubID DESC" Quit SqlStatement