Index: AX/Uitgaand/BKH/OpenstaandeVerkoopFactuur/impl/TransactionRepository.cls.xml
===================================================================
diff -u -r34788 -r34791
--- AX/Uitgaand/BKH/OpenstaandeVerkoopFactuur/impl/TransactionRepository.cls.xml	(.../TransactionRepository.cls.xml)	(revision 34788)
+++ AX/Uitgaand/BKH/OpenstaandeVerkoopFactuur/impl/TransactionRepository.cls.xml	(.../TransactionRepository.cls.xml)	(revision 34791)
@@ -53,18 +53,9 @@
 <FormalSpec>Id:%String</FormalSpec>
 <ReturnType>TECH.Iterator</ReturnType>
 <Implementation><![CDATA[
-	set List = ##class(%ListOfObjects).%New()
-	
 	#dim SqlTableName As %String = ##class(TECH.CompiledClassUtils).GetSQLTableName(..ClassName)
-	
 	set Query = ##class(TECH.DynamicQuery).%New("SELECT RecId FROM "_SqlTableName_" WHERE TransactionId = ? AND %SQLUpper(DataAreaID) = %SQLUpper(?)",$listbuild(Id,..FirmaBepaler.GeefInitialen()))
-
-	#dim ResultSet As TECH.ResultSet = ..QueryAPI.GetResultSet(Query)
-	while ResultSet.Next() {
-		do List.Insert(..GeefViaID(ResultSet.GetData(1)))	
-	}
-
-	quit ##class(TECH.ListIterator).%New(List)
+	quit ##class(TECH.Repository.RepositoryResultIterator).%New(..QueryAPI.GetResultSet(Query),$this)
 ]]></Implementation>
 </Method>
 </Class>