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>