serial BL.EC.Common 1 %RegisteredObject 0 1 KlantID:%String,UserID:%String,DateFrom:%Integer,DateTo:%Integer %String Naam AS KlantNaam, Toegang->UserNaam AS UserName FROM Derde_EC.Logging" ; *** Where Clause *** Set WhereClause="" Do:($G(KlantID)'="") qseAddToWhereClause("(Klant="_KlantID_")") Do:($G(UserID)'="") qseAddToWhereClause("(Toegang="_UserID_")") Do:($G(DateFrom)'="") qseAddToWhereClause("(Datum>="_DateFrom_")") Do:($G(DateTo)'="") qseAddToWhereClause("(Datum<="_DateTo_")") Set:(WhereClause'="") SQL=SQL_$C(13,10)_WhereClause Set SortClause="ORDER BY Datum,Tijd" Set:(SortClause'="") SQL=SQL_$C(13,10)_SortClause Quit SQL qseAddToWhereClause(Statement) If WhereClause="" Do . Set WhereClause="WHERE "_Statement Else Do . Set WhereClause=WhereClause_" AND "_Statement Quit ]]> ========================================================================================================================== QUERY: GET STATISTICS . ========================================================================================================================== %Query paTimeInterval:%String,paKlantID:%String -------------------------------------------------------------------------------------------------------------------------- 1 %Status 1 GetStatisticsExecute %Status 1 GetStatisticsExecute %Status d ##class(BL.EC.Logging).TestQ() 1 param=1 %Library.CacheSerialState ^BL.EC.LoggingS