Index: TECH/ResultSet.cls.xml
===================================================================
diff -u -r1321 -r1571
--- TECH/ResultSet.cls.xml	(.../ResultSet.cls.xml)	(revision 1321)
+++ TECH/ResultSet.cls.xml	(.../ResultSet.cls.xml)	(revision 1571)
@@ -37,6 +37,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefLijstVanIDs">
+<FormalSpec>VeldNaam:%String="ID"</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	Set LijstVanWaarde=##class(%ListOfDataTypes).%New()
+	While (..Next()) {
+		Do LijstVanWaarde.Insert(..GetDataByName(VeldNaam))
+	}
+	Quit LijstVanWaarde
+]]></Implementation>
+</Method>
+
 <Method name="CatchNoRecordException">
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[	Do ##class(TECH.ExceptionHandler).Catch("TECH.Exceptions.ResultSetNoRecordException")