Index: AX/Uitgaand/PM/AankoopOrderRegel/impl/BevestigdeProductToeleveringLijnIteratorStatement.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/PM/AankoopOrderRegel/impl/BevestigdeProductToeleveringLijnIteratorStatement.cls.xml	(revision 0)
+++ AX/Uitgaand/PM/AankoopOrderRegel/impl/BevestigdeProductToeleveringLijnIteratorStatement.cls.xml	(revision 42018)
@@ -0,0 +1,34 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.PM.AankoopOrderRegel.impl.BevestigdeProductToeleveringLijnIteratorStatement">
+<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 ToeleveringLijn As DOM.AKP.ProductToeleveringLijn = ..ToeleveringApi.GeefToeleveringLijn(ResultSet.Data("Toelevering"),ResultSet.Data("UniekLijnNr"))
+	quit ToeleveringLijn
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelIterator.cls.xml
===================================================================
diff -u -r41993 -r42018
--- AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelIterator.cls.xml	(.../AankoopOrderRegelIterator.cls.xml)	(revision 41993)
+++ AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelIterator.cls.xml	(.../AankoopOrderRegelIterator.cls.xml)	(revision 42018)
@@ -13,11 +13,16 @@
 <Private>1</Private>
 </Property>
 
-<Property name="ToeleveringLijnIterator">
+<Property name="BlumBevestigdeProductToeleveringLijnIterator">
 <Type>TECH.Iterator</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="ProductToeleveringLijnIterator">
+<Type>TECH.Iterator</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="Converter">
 <Type>AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter</Type>
 <Private>1</Private>
@@ -32,10 +37,11 @@
 <Implementation><![CDATA[
 	Set ..Vestiging = Vestiging
 	/// Kies onderstaand de ..ToeleveringLijnIterator naar keuze: Mèt filter of de generische. Zet de andere in comment.
-	Set ..ToeleveringLijnIterator = ##class(DOM.AKP.impl.ToeleveringProductLijnIterator).%New()
-	///Set ..ToeleveringLijnIterator = ##class(AX.Uitgaand.PM.AankoopOrderRegel.impl.ToeleveringProductLijnIterator).%New()
+	///Set ..ToeleveringLijnIterator = ##class(DOM.AKP.impl.ToeleveringProductLijnIterator).%New()
+	Set ..ProductToeleveringLijnIterator = ##class(AX.Uitgaand.PM.AankoopOrderRegel.impl.ToeleveringProductLijnIterator).%New()
+	Set ..BlumBevestigdeProductToeleveringLijnIterator = ##class(AX.Uitgaand.PM.AankoopOrderRegel.impl.BevestigdeProductToeleveringLijnIterator).%New()
 	#dim AankoopOrderRegelIterator As TECH.IteratorOfIterators = ##class(TECH.IteratorOfIterators).%New()
-	Do AankoopOrderRegelIterator.SetIterators(..ToeleveringLijnIterator)
+	Do AankoopOrderRegelIterator.SetIterators(..ProductToeleveringLijnIterator,..BlumBevestigdeProductToeleveringLijnIterator)
 	Set ..AankoopOrderRegelIterator = AankoopOrderRegelIterator
 	Set ..Converter = ##class(AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter).%New()
 
Index: AX/Uitgaand/PM/AankoopOrderRegel/impl/BevestigdeProductToeleveringLijnIterator.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/PM/AankoopOrderRegel/impl/BevestigdeProductToeleveringLijnIterator.cls.xml	(revision 0)
+++ AX/Uitgaand/PM/AankoopOrderRegel/impl/BevestigdeProductToeleveringLijnIterator.cls.xml	(revision 42018)
@@ -0,0 +1,79 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.PM.AankoopOrderRegel.impl.BevestigdeProductToeleveringLijnIterator">
+<Super>TECH.RegisteredObject,TECH.Iterator</Super>
+
+<Property name="DynIterator">
+<Type>TECH.Iterator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Key">
+<Type>TECH.String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="QueryAPI">
+<Type>TECH.Query.QueryAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ResultSet">
+<Type>TECH.ResultSet</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>QueryAPI:TECH.Query.QueryAPI=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..QueryAPI = $$$Implementation(QueryAPI,##class(TECH.Context).Instance().GeefQueryAPI())
+	Do ..VoerUitQuery()
+	Set Statement = ##class(AX.Uitgaand.PM.AankoopOrderRegel.impl.BevestigdeProductToeleveringLijnIteratorStatement).%New()
+	Set ResultSetIterator = ##class(TECH.ResultSetIterator).%New(..ResultSet)
+	Set ..DynIterator = ##class(TECH.DynamicIterator).%New(ResultSetIterator,Statement,)
+
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VoerUitQuery">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#Dim SqlStatement as %String
+	Set SqlStatement = "SELECT * FROM APPS_EDIExport_AankoopOrderResponse_BLUM_impl.BlOrdRsp a INNER JOIN Flow_Toelev.Lijn b ON ToeleveringNr = Toelevering GROUP BY a.ID"
+	Set ..ResultSet = ..QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement))
+]]></Implementation>
+</Method>
+
+<Method name="HasNext">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..DynIterator.HasNext()
+]]></Implementation>
+</Method>
+
+<Method name="Next">
+<ReturnType>AXdixf.AankoopOrderRegel.AankoopOrderRegel</ReturnType>
+<Implementation><![CDATA[
+	#dim ToeleveringLijn As DOM.AKP.ProductToeleveringLijn = ..DynIterator.Next()
+	Quit ToeleveringLijn
+]]></Implementation>
+</Method>
+
+<Method name="Reset">
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Key">
+<ReturnType>%CacheString</ReturnType>
+<Implementation><![CDATA[	quit ..Key
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>