Index: APPS/PM/Kenmerk/impl/DataDefinitieRepository.cls.xml
===================================================================
diff -u -r29059 -r29581
--- APPS/PM/Kenmerk/impl/DataDefinitieRepository.cls.xml	(.../DataDefinitieRepository.cls.xml)	(revision 29059)
+++ APPS/PM/Kenmerk/impl/DataDefinitieRepository.cls.xml	(.../DataDefinitieRepository.cls.xml)	(revision 29581)
@@ -31,9 +31,11 @@
 	Set Kenmerken = ##class(%ListOfObjects).%New()
 		 		 			 
 	/// DataDefinities ophalen
-	Set RS=##class(%ResultSet).%New()
-	Do RS.Prepare("SELECT PRNr, UnID, KenmerkGroep, KenmerkNaam, Waarden, InstanceVersion FROM Prod_Kenmerk.DataDefinitie WHERE PRNr IN ("_SQLPRNrs_") AND KenmerkGroep = ?")
-	Do RS.Execute(..KenmerkGroep)
+	Set Query = ##class(TECH.DynamicQuery).%New()
+	Set Query.Statement = "SELECT PRNr, UnID, KenmerkGroep, KenmerkNaam, Waarden, InstanceVersion FROM Prod_Kenmerk.DataDefinitie WHERE PRNr IN ("_SQLPRNrs_") AND KenmerkGroep = ?"
+	Set Query.Parameters = $ListBuild(..KenmerkGroep)
+	Set Query.RuntimeMode = ##class(TECH.enu.ResultSetRuntimeMode).Logical()
+	#dim RS As TECH.ResultSet = ##class(TECH.Context).Instance().GeefQueryAPI().GetResultSet(Query)
 	Set tmpUnID = ""
 	 Set tmpKenmerkGroep = ""
 	 Set tmpPRNr = ""