Index: TECH/Persistentie/impl/Repository.cls.xml
===================================================================
diff -u -r2828 -r3201
--- TECH/Persistentie/impl/Repository.cls.xml	(.../Repository.cls.xml)	(revision 2828)
+++ TECH/Persistentie/impl/Repository.cls.xml	(.../Repository.cls.xml)	(revision 3201)
@@ -94,6 +94,21 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZoekAlle">
+<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 
+
+	#dim ResultSet As TECH.ResultSet = ..QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement))
+	#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="ZoekViaFilter">
 <FormalSpec>Filter:%String,Params:%List</FormalSpec>
 <Private>1</Private>