Index: APPS/PM/Vertaling/ExcelExportBase.cls.xml
===================================================================
diff -u -r31082 -r31084
--- APPS/PM/Vertaling/ExcelExportBase.cls.xml	(.../ExcelExportBase.cls.xml)	(revision 31082)
+++ APPS/PM/Vertaling/ExcelExportBase.cls.xml	(.../ExcelExportBase.cls.xml)	(revision 31084)
@@ -120,11 +120,14 @@
 <ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[
 		#Dim List As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
-		#Dim rset As %ResultSet= ##class(%ResultSet).%New("APPS.PM.Vertaling.ExcelExportBase:qAlleTalen")
-		#Dim sc As %Status = rset.Execute()
-		While (rset.Next(.sc)){
+
+		#dim sc As %Status
+		#dim Query As %String = "SELECT Taal  FROM Res.VertalingAbstract  GROUP BY Taal  ORDER BY Taal->VolgNr"
+		#dim Params As %List = $ListBuild()
+		#dim ResultSet As TECH.ResultSet =  ##class(TECH.Context).Instance().GeefQueryAPI().GetDynamicResultSet(Query,Params)
+		While (ResultSet.Next(.sc)){
 			If ($SYSTEM.Status.IsOK(sc)) {
-				Do List.Insert(rset.Data("Taal"))
+				Do List.Insert(ResultSet.Data("Taal"))
 			}
 			Else {
 				Quit
@@ -173,13 +176,6 @@
 		 GROUP BY Main.Intern, Main.Type</SqlQuery>
 <Parameter name="CONTAINID" value="1"/>
 </Query>
-
-<Query name="qAlleTalen">
-<Type>%SQLQuery</Type>
-<SqlQuery>		Select Taal From Res.VertalingAbstract
- 		Group By Taal</SqlQuery>
-<Parameter name="CONTAINID" value="1"/>
-</Query>
 </Class>