Index: AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelIterator.cls.xml
===================================================================
diff -u -r41926 -r41954
--- AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelIterator.cls.xml	(.../AankoopOrderRegelIterator.cls.xml)	(revision 41926)
+++ AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelIterator.cls.xml	(.../AankoopOrderRegelIterator.cls.xml)	(revision 41954)
@@ -23,22 +23,24 @@
 <Private>1</Private>
 </Property>
 
-<Property name="ToeleveringApi">
-<Type>DOM.AKP.ToeleveringAPI</Type>
+<Property name="DynIterator">
+<Type>TECH.Iterator</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>QueryAPI:TECH.Query.QueryAPI="",Vestiging:AX.common.enu.InterneFirmaInitialen,ToeleveringApi:DOM.AKP.ToeleveringAPI</FormalSpec>
+<FormalSpec>QueryAPI:TECH.Query.QueryAPI="",Vestiging:AX.common.enu.InterneFirmaInitialen</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..ToeleveringApi = $$$Inject(ToeleveringApi,##class(DOM.DomeinContext).Instance().GeefToeleveringAPI())
 	Set ..Vestiging = Vestiging
 	Set ..QueryAPI = $$$Implementation(QueryAPI,##class(TECH.Context).Instance().GeefQueryAPI())
 	Do ..VoerUitQuery()
+	Set Statement = ##class(AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelIteratorStatement).%New()
+	Set ResultSetIterator = ##class(TECH.ResultSetIterator).%New(..ResultSet)
+	Set ..DynIterator = ##class(TECH.DynamicIterator).%New(ResultSetIterator,Statement,)
 	Set ..Converter = ##class(AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter).%New()
 
 	Quit $$$OK
@@ -64,14 +66,14 @@
 
 <Method name="HasNext">
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit ( ..ResultSet.Next() > 0 )
+<Implementation><![CDATA[	Quit ..DynIterator.HasNext()
 ]]></Implementation>
 </Method>
 
 <Method name="Next">
 <ReturnType>AXdixf.AankoopOrderRegel.AankoopOrderRegel</ReturnType>
 <Implementation><![CDATA[
-	#dim ToeleveringLijn As DOM.AKP.ProductToeleveringLijn = ..ToeleveringApi.GeefToeleveringLijn(..ResultSet.Data("Toelevering"),..ResultSet.Data("UniekLijnNr"))
+	#dim ToeleveringLijn As DOM.AKP.ProductToeleveringLijn = ..DynIterator.Next()
 	#dim ConvertedToeleveringLijn As AXdixf.AankoopOrderRegel.AankoopOrderRegel = ..Converter.Convert(ToeleveringLijn, ..Vestiging)
 	Quit ConvertedToeleveringLijn
 ]]></Implementation>