Index: DOM/AKP/impl/ToeleveringProductLijnIteratorStatement.cls.xml
===================================================================
diff -u
--- DOM/AKP/impl/ToeleveringProductLijnIteratorStatement.cls.xml	(revision 0)
+++ DOM/AKP/impl/ToeleveringProductLijnIteratorStatement.cls.xml	(revision 41992)
@@ -0,0 +1,34 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.AKP.impl.ToeleveringProductLijnIteratorStatement">
+<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: DOM/AKP/impl/ToeleveringProductLijnIterator.cls.xml
===================================================================
diff -u
--- DOM/AKP/impl/ToeleveringProductLijnIterator.cls.xml	(revision 0)
+++ DOM/AKP/impl/ToeleveringProductLijnIterator.cls.xml	(revision 41992)
@@ -0,0 +1,79 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.AKP.impl.ToeleveringProductLijnIterator">
+<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(DOM.AKP.impl.ToeleveringProductLijnIteratorStatement).%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 Flow_Toelev.Lijn WHERE CodeSoortLijn = 'KTRPL'"
+	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>
Index: AX/Uitgaand/PM/AankoopOrderRegel/impl/ToeleveringProductLijnIterator.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/PM/AankoopOrderRegel/impl/ToeleveringProductLijnIterator.cls.xml	(revision 0)
+++ AX/Uitgaand/PM/AankoopOrderRegel/impl/ToeleveringProductLijnIterator.cls.xml	(revision 41992)
@@ -0,0 +1,88 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.PM.AankoopOrderRegel.impl.ToeleveringProductLijnIterator">
+<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.ToeleveringProductLijnIteratorStatement).%New()
+	Set ResultSetIterator = ##class(TECH.ResultSetIterator).%New(..ResultSet)
+	Set ..DynIterator = ##class(TECH.DynamicIterator).%New(ResultSetIterator,Statement,)
+
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VoerUitQuery">
+<Description>
+Van deze iterator bestaat een generische versie zonder filter, nml.: DOM.AKP.impl.ToeleveringLijnIterator</Description>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#Dim SqlStatement as %String
+	Set SqlStatement = "SELECT * FROM Flow_Toelev.Lijn WHERE CodeSoortLijn = 'KTRPL'"
+	_" AND ID [ '5002||261154||101' OR ID [ '5005||265590||101' OR ID [ '5026||276749||101' OR ID [ '5490||278804||101' OR "
+	_"ID [ '5938||242802||101' OR ID [ '6051||280399||101' OR ID [ '6118||274544||101' OR ID [ '6118||274544||101' OR "
+	_"ID [ '6332||209746||101' OR ID [ '6347||261332||101' OR ID [ '6415||278507||101' OR ID [ '6494||256645||101' OR "
+	_"ID [ '6628||274325||101' OR ID [ '6813||276747||101' OR ID [ '7012||275442||101' OR ID [ '7112||268449||101' OR "
+	_"ID [ '7178||271524||101' OR ID [ '7407||272363||106' OR ID [ '7409||251880||101' OR ID [ '7509||280028||101' OR "
+	_"ID [ '7541||272115||101' OR ID [ '7564||270368||101' OR ID [ '7771||274511||101' OR ID [ '7802||264788||101' OR "
+	_"ID [ '8090||278685||101'"
+	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>
Index: AX/Uitgaand/PM/AankoopOrderRegel/impl/ToeleveringProductLijnIteratorStatement.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/PM/AankoopOrderRegel/impl/ToeleveringProductLijnIteratorStatement.cls.xml	(revision 0)
+++ AX/Uitgaand/PM/AankoopOrderRegel/impl/ToeleveringProductLijnIteratorStatement.cls.xml	(revision 41992)
@@ -0,0 +1,34 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.PM.AankoopOrderRegel.impl.ToeleveringProductLijnIteratorStatement">
+<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>