1 %RegisteredObject TECH.Algo.SQL.QueryEngine.Tabel array 1 TECH.Algo.SQL.QueryEngine.SelectieVeld list 1 %String array 1 TECH.Algo.SQL.QueryEngine.IWhereConditie 1 TECH.Algo.SQL.QueryEngine.Tabel 1 SelectieVeld list 1 %Integer 1 Tabel:TECH.Algo.SQL.QueryEngine.Tabel TECH.ListIterator Tabel:TECH.Algo.SQL.QueryEngine.Tabel MaxAantal:%Integer Veld:%String,Tabel:TECH.Algo.SQL.QueryEngine.Tabel IndexVanVeld:%Integer ForeignKey:TECH.Algo.SQL.QueryEngine.ForeignKey ForeignKey:TECH.Algo.SQL.QueryEngine.ForeignKey,Tabel:TECH.Algo.SQL.QueryEngine.Tabel 1 WhereConditie:TECH.Algo.SQL.QueryEngine.IWhereConditie %String 1 %String 1 %String 1 %String Tabel:TECH.Algo.SQL.QueryEngine.Tabel 1 %String 1 0) { Set GroupByString = " GROUP BY" #dim Iterator As TECH.Iterator = ##class(TECH.ListIterator).%New(..GroupBy) While (Iterator.HasNext()) { #dim SelectieVeld As SelectieVeld = Iterator.Next() Set GroupByString = GroupByString_" "_SelectieVeld.GeefTabel().GeefNaam()_"."_SelectieVeld.GeefVeld() If (Iterator.HasNext()) { Set GroupByString = GroupByString_", " } } } Quit GroupByString ]]>