Index: APPS/Halux/PPS/Document/impl/common/TussenEtiketVoorToeleveringBepaler.cls.xml
===================================================================
diff -u -r33319 -r33372
--- APPS/Halux/PPS/Document/impl/common/TussenEtiketVoorToeleveringBepaler.cls.xml	(.../TussenEtiketVoorToeleveringBepaler.cls.xml)	(revision 33319)
+++ APPS/Halux/PPS/Document/impl/common/TussenEtiketVoorToeleveringBepaler.cls.xml	(.../TussenEtiketVoorToeleveringBepaler.cls.xml)	(revision 33372)
@@ -7,14 +7,24 @@
 <FormalSpec>ToeleveringID:%String</FormalSpec>
 <ReturnType>BL.Etiket.LadeKlantEtiket</ReturnType>
 <Implementation><![CDATA[
-	Set DueOutFormatter = ##class(APPS.Halux.PPS.impl.BatchDueOutFormatter).%New()
 	Set TussenEtiket = ##class(BL.Etiket.LadeKlantEtiket).%New("")
 	Set TussenEtiket.Info1 = ToeleveringID
-	Set BatchService = ##class(APPS.Halux.common.impl.BatchService).%New()
 	
+	Set ToeleveringService = ##class(DOM.AKP.impl.ToeleveringService).%New()	
+	#dim ProductIterator As TECH.Iterator = ToeleveringService.GeefProductIterator(ToeleveringID)
+
+	Set BatchService = ##class(APPS.Halux.common.impl.BatchService).%New()	
 	#dim Batch As APPS.Halux.common.Batch = BatchService.GeefBijhorendeBatchViaID(ToeleveringID)
+	
+	Set DueOutFormatter = ##class(APPS.Halux.PPS.impl.BatchDueOutFormatter).%New()
 	Set TussenEtiket.Info3 = "Batch:"_Batch.GeefID()_", "_DueOutFormatter.GeefGeformatteerdeDueOut(Batch)
 	
+	
+	#dim KennisAnkerRepository As DOM.common.Kennis.KennisAnkerRepository = ##class(DOM.common.Kennis.KennisAnkerRepository).%New()
+	#dim KennisAnkerIterator As TECH.Iterator
+	Set KennisAnkerIterator = KennisAnkerRepository.GeefKennisAnkers(ToeleveringService.GeefKlant(ToeleveringID).GeefID(), ProductIterator)
+	
+	
 	Quit TussenEtiket
 ]]></Implementation>
 </Method>
Index: vhTest/Fake/DOM/AKP/Toelevering.cls.xml
===================================================================
diff -u
--- vhTest/Fake/DOM/AKP/Toelevering.cls.xml	(revision 0)
+++ vhTest/Fake/DOM/AKP/Toelevering.cls.xml	(revision 33372)
@@ -0,0 +1,54 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.DOM.AKP.Toelevering">
+<Super>TECH.RegisteredObject,DOM.AKP.Toelevering</Super>
+
+<Property name="LeverancierNr">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ToeleveringID">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Lijnen">
+<Type>vhTest.Fake.DOM.AKP.ProductToeleveringLijn</Type>
+<Collection>list</Collection>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>ToeleveringID:%String,LeverancierID:%String</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..LeverancierNr = LeverancierID
+	Set ..ToeleveringID = ToeleveringID
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="MaakNieuweProductLijn">
+<FormalSpec>ProductID:%String</FormalSpec>
+<ReturnType>DOM.AKP.ProductToeleveringLijn</ReturnType>
+<Implementation><![CDATA[
+	set ToeleveringLijn = ##class(vhTest.Fake.DOM.AKP.ProductToeleveringLijn).%New()
+	Do ToeleveringLijn.ZetProductID(ProductID)
+	do ..Lijnen.Insert(ToeleveringLijn)
+	Quit ToeleveringLijn
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductLijnIterator">
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.ListIterator).%New(..Lijnen)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/AKP/ProductToeleveringLijn.cls.xml
===================================================================
diff -u -r29059 -r33372
--- DOM/AKP/ProductToeleveringLijn.cls.xml	(.../ProductToeleveringLijn.cls.xml)	(revision 29059)
+++ DOM/AKP/ProductToeleveringLijn.cls.xml	(.../ProductToeleveringLijn.cls.xml)	(revision 33372)
@@ -2,8 +2,6 @@
 <Export generator="Cache" version="24">
 <Class name="DOM.AKP.ProductToeleveringLijn">
 <Abstract>1</Abstract>
-<ClassType/>
-<ProcedureBlock>1</ProcedureBlock>
 <Super>DOM.AKP.ToeleveringLijn,TECH.Interface</Super>
 
 <Method name="GeefProductID">
@@ -12,6 +10,11 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="ZetProductID">
+<Abstract>1</Abstract>
+<FormalSpec>ProductID:%String</FormalSpec>
+</Method>
+
 <Method name="GeefAantal">
 <Abstract>1</Abstract>
 <ReturnType>%Integer</ReturnType>
Index: DOM/AKP/ToeleveringService.cls.xml
===================================================================
diff -u -r33209 -r33372
--- DOM/AKP/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 33209)
+++ DOM/AKP/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 33372)
@@ -16,6 +16,12 @@
 <FormalSpec>ToeleveringID:%String</FormalSpec>
 <ReturnType>DOM.VKP.VanHoeckeKlant</ReturnType>
 </Method>
+
+<Method name="GeefProductIDIterator">
+<Abstract>1</Abstract>
+<FormalSpec>ToeleveringID:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+</Method>
 </Class>
 
 
Index: DOM/AKP/impl/ToeleveringService.cls.xml
===================================================================
diff -u -r33209 -r33372
--- DOM/AKP/impl/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 33209)
+++ DOM/AKP/impl/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 33372)
@@ -57,6 +57,15 @@
 	Quit ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(KlantID)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefProductIDIterator">
+<FormalSpec>ToeleveringID:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	#dim Toelevering As DOM.AKP.Toelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering(ToeleveringID)
+	Quit ##class(TECH.DynamicIterator).%New(Toelevering.GeefProductLijnIterator(),"Item.GeefProductID()")
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Mock/DOM/AKP/ProductToeleveringLijn.cls.xml
===================================================================
diff -u -r29059 -r33372
--- vhTest/Mock/DOM/AKP/ProductToeleveringLijn.cls.xml	(.../ProductToeleveringLijn.cls.xml)	(revision 29059)
+++ vhTest/Mock/DOM/AKP/ProductToeleveringLijn.cls.xml	(.../ProductToeleveringLijn.cls.xml)	(revision 33372)
@@ -43,6 +43,12 @@
 <Implementation><![CDATA[	do ..VerwerkMethodCall("ZetMunt",Munt)
 ]]></Implementation>
 </Method>
+
+<Method name="ZetProductID">
+<FormalSpec>ProductID:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("ZetProductID",ProductID)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Mock/DOM/AKP/ToeleveringService.cls.xml
===================================================================
diff -u -r33209 -r33372
--- vhTest/Mock/DOM/AKP/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 33209)
+++ vhTest/Mock/DOM/AKP/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 33372)
@@ -15,6 +15,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefProductIDIterator">
+<FormalSpec>ToeleveringID:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefProductIDIterator",ToeleveringID)
+]]></Implementation>
+</Method>
+
 <Method name="GeefProductTypes">
 <FormalSpec>ToeleveringID:%String</FormalSpec>
 <ReturnType>%ListOfDataTypes</ReturnType>
Index: vhUnitTest/DOM/AKP/impl/ToeleveringService/GeefProductIterator/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/AKP/impl/ToeleveringService/GeefProductIterator/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/AKP/impl/ToeleveringService/GeefProductIterator/Test.cls.xml	(revision 33372)
@@ -0,0 +1,26 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.AKP.impl.ToeleveringService.GeefProductIterator.Test">
+<Super>vhUnitTest.TestCase,DOM.AKP.impl.ToeleveringService</Super>
+
+<Method name="Test: Iterator heeft 1 productlijn">
+<Implementation><![CDATA[
+	#dim ToeleveringId = 222222
+	set ToeleveringStub = ##class(vhTest.Fake.DOM.AKP.Toelevering).%New(ToeleveringId, 1234)
+	#dim ToeleveringLijn As DOM.AKP.ProductToeleveringLijn = ToeleveringStub.MaakNieuweProductLijn(1000)
+	#dim ToeleveringAPI As vhTest.Mock.DOM.AKP.ToeleveringAPI = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).MockInstance()
+	do ToeleveringAPI.IndienMethodCall("GeefToelevering",ToeleveringId).DanReturn(ToeleveringStub)
+	
+	#dim ToeleveringService As DOM.AKP.impl.ToeleveringService = ##class(DOM.AKP.impl.ToeleveringService).%New()	
+	#dim ProductIDIterator As TECH.Iterator = ToeleveringService.GeefProductIDIterator(ToeleveringId)
+	
+	if $$$AssertTrue(ProductIDIterator.HasNext()) {
+		do $$$AssertEquals(ProductIDIterator.Next(),1000)
+	}
+	do $$$AssertFalse(ProductIDIterator.HasNext())
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Fake/DOM/AKP/ProductToeleveringLijn.cls.xml
===================================================================
diff -u
--- vhTest/Fake/DOM/AKP/ProductToeleveringLijn.cls.xml	(revision 0)
+++ vhTest/Fake/DOM/AKP/ProductToeleveringLijn.cls.xml	(revision 33372)
@@ -0,0 +1,25 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.DOM.AKP.ProductToeleveringLijn">
+<Super>TECH.RegisteredObject,DOM.AKP.ProductToeleveringLijn</Super>
+
+<Property name="ProductID">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="ZetProductID">
+<FormalSpec>ProductID:%String</FormalSpec>
+<Implementation><![CDATA[	Set ..ProductID = ProductID
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductID">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..ProductID
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>