Index: AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelIterator.cls.xml
===================================================================
diff -u -r42197 -r42215
--- AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelIterator.cls.xml	(.../AankoopOrderRegelIterator.cls.xml)	(revision 42197)
+++ AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelIterator.cls.xml	(.../AankoopOrderRegelIterator.cls.xml)	(revision 42215)
@@ -18,6 +18,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="IteratorOfIterators">
+<Type>TECH.IteratorOfIterators</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="ProductToeleveringLijnIterator">
 <Type>TECH.Iterator</Type>
 <Private>1</Private>
@@ -36,11 +41,14 @@
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..Vestiging = Vestiging
+	
 	Set ..ProductToeleveringLijnIterator = ##class(AX.Uitgaand.PM.AankoopOrderRegel.impl.ProductToeleveringLijnIterator).%New(Vestiging,)
 	Set ..BlumBevestigdeProductToeleveringLijnIterator = ##class(AX.Uitgaand.PM.AankoopOrderRegel.impl.BevestigdeProductToeleveringLijnIterator).%New()
-	#dim AankoopOrderRegelIterator As TECH.IteratorOfIterators = ##class(TECH.IteratorOfIterators).%New()
-	Do AankoopOrderRegelIterator.SetIterators(..ProductToeleveringLijnIterator,..BlumBevestigdeProductToeleveringLijnIterator)
-	Set ..AankoopOrderRegelIterator = AankoopOrderRegelIterator
+	#dim IteratorOfIterators As TECH.IteratorOfIterators = ##class(TECH.IteratorOfIterators).%New()
+	Set ..IteratorOfIterators = IteratorOfIterators
+	Do ..IteratorOfIterators.SetIterators(..ProductToeleveringLijnIterator,..BlumBevestigdeProductToeleveringLijnIterator)
+	Do ..BepaalAankoopOrderRegelIterator(Vestiging)
+	
 	Set ..Converter = ##class(AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter).%New()
 
 	Quit $$$OK
@@ -61,6 +69,25 @@
 	Quit ConvertedToeleveringLijn
 ]]></Implementation>
 </Method>
+
+<Method name="BepaalAankoopOrderRegelIterator">
+<Description>
+Voor Halux mag enkel de ProductToeleveringLijnIterator gebruikt worden (geen BLUM)</Description>
+<FormalSpec>Vestiging:AX.common.enu.InterneFirmaInitialen</FormalSpec>
+<Implementation><![CDATA[
+	If Vestiging = ##class(AX.common.enu.InterneFirmaInitialen).VanHoeckeNv() {
+		Set ..AankoopOrderRegelIterator = ..IteratorOfIterators
+	} Else {
+		If Vestiging = ##class(AX.common.enu.InterneFirmaInitialen).HaluxNv() {
+			Set ..AankoopOrderRegelIterator = ..ProductToeleveringLijnIterator
+		}
+		Else {
+			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.IllegalArgumentException).%New("Geef als parameter ofwel VanHoecke, ofwel Halux mee! Huidige parameter = '"_Vestiging_"' <"))
+		}
+	}
+	Quit ..AankoopOrderRegelIterator
+]]></Implementation>
+</Method>
 </Class>