Index: TECH/ResultSet.cls.xml
===================================================================
diff -u -r545 -r723
--- TECH/ResultSet.cls.xml	(.../ResultSet.cls.xml)	(revision 545)
+++ TECH/ResultSet.cls.xml	(.../ResultSet.cls.xml)	(revision 723)
@@ -11,6 +11,40 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefIDVanEersteRecord">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Query:%String,lbParams:%List="",RuntimeMode:TECH.enu.ResultSetRuntimeMode=""</FormalSpec>
+<ReturnType>%CacheString</ReturnType>
+<Implementation><![CDATA[	Quit ..GeefVeldVanEersteRecord(Query,lbParams,"ID",RuntimeMode)
+]]></Implementation>
+</Method>
+
+<Method name="GeefVeldVanEersteRecord">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Query:%String,lbParams:%List="",VeldNaam:%String,RuntimeMode:TECH.enu.ResultSetRuntimeMode=""</FormalSpec>
+<ReturnType>%CacheString</ReturnType>
+<Implementation><![CDATA[
+	#dim Waarde As %CacheString = ""
+	#dim ResultSet As TECH.ResultSet = ..Create(Query,lbParams)
+	If ResultSet.Next() {
+		Set Waarde=ResultSet.GetDataByName(VeldNaam)
+	}
+	Else {
+		Set NoRecordException=##class(TECH.Exceptions.ResultSetNoRecordException).%New("Geen resultaat voor Query : "_Query_"   met Params "_$$LCVT^vhLib(lbParams))
+		Do ##class(TECH.ExceptionHandler).Throw(NoRecordException)
+	}
+	Quit Waarde
+]]></Implementation>
+</Method>
+
+<Method name="CatchNoRecordException">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+
+	Do ##class(TECH.ExceptionHandler).Catch("TECH.Exceptions.ResultSetNoRecordException")
+]]></Implementation>
+</Method>
+
 <Method name="Next">
 <FormalSpec><![CDATA[&Status:%Status]]></FormalSpec>
 <ReturnType>%Integer</ReturnType>