Index: TECH/Persistentie/Repository.cls.xml
===================================================================
diff -u -r2327 -r2370
--- TECH/Persistentie/Repository.cls.xml	(.../Repository.cls.xml)	(revision 2327)
+++ TECH/Persistentie/Repository.cls.xml	(.../Repository.cls.xml)	(revision 2370)
@@ -74,6 +74,26 @@
 <Implementation><![CDATA[	Do ..Gateway.DeleteId(ID)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefViaFilter">
+<FormalSpec>Filter:%String,Params:%List</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.Persistent</ReturnType>
+<Implementation><![CDATA[
+	#dim SQLTableName As TECH.String = ##class(TECH.CompiledClassUtils).GetSQLTableName(..#DataClassName)
+	#dim SqlStatement As TECH.String = "SELECT * FROM " _SQLTableName _" WHERE " _Filter
+
+	set QueryAPI = ##class(TECH.Query.impl.QueryAPI).%New()	
+	#dim ResultSet As TECH.ResultSet = QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement,Params))
+	#dim ResultSetIterator As TECH.ResultSetIterator = ##class(TECH.ResultSetIterator).%New(ResultSet)
+	
+	#dim Result As TECH.Persistent = ""
+	Set:ResultSetIterator.HasNext() Result = $classMethod(..#DataClassName,"%OpenId",ResultSetIterator.Next().Data("ID"))
+	Quit:('ResultSetIterator.HasNext()) Result
+
+	// Throw exception more then one item found !!!
+]]></Implementation>
+</Method>
 </Class>