Index: TECH/Persistentie/Repository.cls.xml
===================================================================
diff -u -r2394 -r2606
--- TECH/Persistentie/Repository.cls.xml	(.../Repository.cls.xml)	(revision 2394)
+++ TECH/Persistentie/Repository.cls.xml	(.../Repository.cls.xml)	(revision 2606)
@@ -94,6 +94,23 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZoekViaFilter">
+<FormalSpec>Filter:%String,Params:%List</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	#dim SqlTableName As TECH.String = ##class(TECH.CompiledClassUtils).GetSQLTableName(..#DataClassName)
+	#dim SqlStatement As TECH.String = "SELECT ID FROM " _SqlTableName _" WHERE " _Filter
+
+	#dim ResultSet As TECH.ResultSet = ..QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement,Params))
+	#dim Opener As TECH.Persistentie.Repository.ResultSetItemOpener = ##class(TECH.Persistentie.Repository.ResultSetItemOpener).%New($this)
+	#dim ResultSetIterator As TECH.Iterator = ##class(TECH.ResultSetIterator).%New(ResultSet)
+	#dim Result As TECH.Iterator = ##class(TECH.DynamicIterator).%New(ResultSetIterator, Opener)
+
+	quit Result
+]]></Implementation>
+</Method>
+
 <Method name="BestaatViaFilter">
 <FormalSpec>Filter:%String,Params:%List</FormalSpec>
 <Private>1</Private>
Index: TECH/Persistentie/Repository/ResultSetItemOpener.cls.xml
===================================================================
diff -u
--- TECH/Persistentie/Repository/ResultSetItemOpener.cls.xml	(revision 0)
+++ TECH/Persistentie/Repository/ResultSetItemOpener.cls.xml	(revision 2606)
@@ -0,0 +1,33 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.Persistentie.Repository.ResultSetItemOpener">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="Repository">
+<Type>TECH.Persistentie.Repository</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Repository:TECH.Persistentie.Repository</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..Repository = Repository
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Invoke">
+<FormalSpec>ResultSet:TECH.ResultSet</FormalSpec>
+<ReturnType>TECH.Persistent</ReturnType>
+<Implementation><![CDATA[	Quit ..Repository.GeefViaID(ResultSet.GetDataByName("ID"))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>