Index: TECH/Query/impl/QueryAPI.cls.xml
===================================================================
diff -u -r933 -r1321
--- TECH/Query/impl/QueryAPI.cls.xml	(.../QueryAPI.cls.xml)	(revision 933)
+++ TECH/Query/impl/QueryAPI.cls.xml	(.../QueryAPI.cls.xml)	(revision 1321)
@@ -8,6 +8,25 @@
 <Implementation><![CDATA[	quit ##class(TECH.Query.impl.QueryUitvoerder).%New()
 ]]></Implementation>
 </Method>
+
+<Method name="GeefIDVanEnigeOptioneleRecord">
+<FormalSpec>Query:%String,lbParams:%List="",RuntimeMode:TECH.enu.ResultSetRuntimeMode=""</FormalSpec>
+<ReturnType>%CacheString</ReturnType>
+<Implementation><![CDATA[
+	#dim Resultset As TECH.ResultSet = ##class(TECH.ResultSet).Create(Query, lbParams)
+	#dim ID As %String = ""
+	If (Resultset.Next()) {
+		Set ID = Resultset.Get("ID")
+		If Resultset.Next() {
+			Do Resultset.Close()
+			set Exception = ##class(TECH.Exceptions.AbstractOmschrijvingException).%New("Meerdere records gevonden, terwijl er 0 of 1 moeten zijn!")
+			Do ##class(TECH.ExceptionHandler).Throw( Exception )
+		}
+		Do Resultset.Close()
+	}
+	Quit ID
+]]></Implementation>
+</Method>
 </Class>