Index: AX/Uitgaand/PM/AankoopOrderHoofding/impl/AankoopOrderHoofdingIteratorStatement.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/PM/AankoopOrderHoofding/impl/AankoopOrderHoofdingIteratorStatement.cls.xml	(revision 0)
+++ AX/Uitgaand/PM/AankoopOrderHoofding/impl/AankoopOrderHoofdingIteratorStatement.cls.xml	(revision 42158)
@@ -0,0 +1,34 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.PM.AankoopOrderHoofding.impl.AankoopOrderHoofdingIteratorStatement">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="ToeleveringApi">
+<Type>DOM.AKP.ToeleveringAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>ToeleveringApi:DOM.AKP.ToeleveringAPI</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..ToeleveringApi = $$$Inject(ToeleveringApi,##class(DOM.DomeinContext).Instance().GeefToeleveringAPI())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Invoke">
+<FormalSpec>ResultSet:TECH.ResultSet</FormalSpec>
+<ReturnType>DOM.AKP.ProductToeleveringLijn</ReturnType>
+<Implementation><![CDATA[
+	#dim Toelevering As DOM.AKP.Toelevering = ..ToeleveringApi.GeefToelevering($piece(ResultSet.GetData(1),"||",2))
+	quit Toelevering
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/PM/AankoopOrderHoofding/impl/AankoopOrderHoofdingIterator.cls.xml
===================================================================
diff -u -r42135 -r42158
--- AX/Uitgaand/PM/AankoopOrderHoofding/impl/AankoopOrderHoofdingIterator.cls.xml	(.../AankoopOrderHoofdingIterator.cls.xml)	(revision 42135)
+++ AX/Uitgaand/PM/AankoopOrderHoofding/impl/AankoopOrderHoofdingIterator.cls.xml	(.../AankoopOrderHoofdingIterator.cls.xml)	(revision 42158)
@@ -3,6 +3,11 @@
 <Class name="AX.Uitgaand.PM.AankoopOrderHoofding.impl.AankoopOrderHoofdingIterator">
 <Super>TECH.RegisteredObject,TECH.Iterator</Super>
 
+<Property name="DynIterator">
+<Type>TECH.Iterator</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="Vestiging">
 <Type>AX.common.enu.InterneFirmaInitialen</Type>
 <Private>1</Private>
@@ -39,6 +44,9 @@
 	Set ..Vestiging = Vestiging
 	Set ..QueryAPI = $$$Implementation(QueryAPI,##class(TECH.Context).Instance().GeefQueryAPI())
 	Do ..VoerUitQuery()
+	Set Statement = ##class(AX.Uitgaand.PM.AankoopOrderHoofding.impl.AankoopOrderHoofdingIteratorStatement).%New()
+	Set ResultSetIterator = ##class(TECH.ResultSetIterator).%New(..ResultSet)
+	Set ..DynIterator = ##class(TECH.DynamicIterator).%New(ResultSetIterator,Statement,)
 	Set ..Converter = ##class(AX.Uitgaand.PM.AankoopOrderHoofding.impl.AankoopOrderHoofdingDixfConverter).%New()
 
 	Quit $$$OK
@@ -60,14 +68,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.AankoopOrderHoofding.AankoopOrderHoofding</ReturnType>
 <Implementation><![CDATA[
-	#dim Toelevering As DOM.AKP.Toelevering = ..ToeleveringApi.GeefToelevering($piece(..ResultSet.GetData(1),"||",2))
+	#dim Toelevering As DOM.AKP.Toelevering = ..DynIterator.Next()
 	#dim ConvertedHoofding As AXdixf.AankoopOrderHoofding.AankoopOrderHoofding = ..Converter.Convert(Toelevering, ..Vestiging)
 	Quit ConvertedHoofding
 ]]></Implementation>