Index: APPS/PM/Kenmerk/impl/MetaDefinitieMogelijkeWaardenRepository.cls.xml
===================================================================
diff -u -r29059 -r33013
--- APPS/PM/Kenmerk/impl/MetaDefinitieMogelijkeWaardenRepository.cls.xml	(.../MetaDefinitieMogelijkeWaardenRepository.cls.xml)	(revision 29059)
+++ APPS/PM/Kenmerk/impl/MetaDefinitieMogelijkeWaardenRepository.cls.xml	(.../MetaDefinitieMogelijkeWaardenRepository.cls.xml)	(revision 33013)
@@ -43,7 +43,8 @@
 <Implementation><![CDATA[
 	Set MogelijkeWaarden = ##class(%ListOfDataTypes).%New()
 	
-	Set RS = ##class(%ResultSet).%New("APPS.PM.Kenmerk.impl.MetaDefinitieMogelijkeWaardenRepository:qWaardenSortering")
+	#dim QueryAPI As TECH.Query.QueryAPI = ##class(TECH.Context).Instance().GeefQueryAPI()
+	#dim RS As TECH.ResultSet = QueryAPI.GetResultSet(##class(TECH.ClassQuery).%New("APPS.PM.Kenmerk.impl.MetaDefinitieMogelijkeWaardenRepository","qWaardenSortering"))
 	Do RS.Execute(..KenmerkGroep,..KenmerkNaam)
 	If (RS.Next()) {
 		/// WaardenSortering nagaan en als mogelijkheden invullen
@@ -62,7 +63,7 @@
 	
 	If ##class(TECH.Config.ConfigMgr).Instance().GeefBoolean("APPS.PM.Kenmerk.MogelijkeWaarden.InclusiefReedsIngevulde") {
 		/// Dynamisch een query opbouwen om de mogelijkheden in te vullen
-		Set RSMogelijkheden = ##class(%ResultSet).%New("Prod.Kenmerk.DataDefinitie:MogelijkhedenVoorKenmerk")
+		#dim RSMogelijkheden As TECH.ResultSet = QueryAPI.GetResultSet(##class(TECH.ClassQuery).%New("Prod.Kenmerk.DataDefinitie","MogelijkhedenVoorKenmerk"))
 		Do RSMogelijkheden.Execute(..KenmerkGroep,..KenmerkNaam)
 		While (RSMogelijkheden.Next()){	
 			#dim Waarden As %List = RSMogelijkheden.Get("Waarde")