Index: vhUnitTest/DOM/VKP/impl/DataM/DataMBon/NaleveringDataAanvuller/Test.cls.xml
===================================================================
diff -u -r64152 -r64156
--- vhUnitTest/DOM/VKP/impl/DataM/DataMBon/NaleveringDataAanvuller/Test.cls.xml	(.../Test.cls.xml)	(revision 64152)
+++ vhUnitTest/DOM/VKP/impl/DataM/DataMBon/NaleveringDataAanvuller/Test.cls.xml	(.../Test.cls.xml)	(revision 64156)
@@ -3,11 +3,16 @@
 <Class name="vhUnitTest.DOM.VKP.impl.DataM.DataMBon.NaleveringDataAanvuller.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Parameter name="OrderId1">
-<Type>%Integer</Type>
-<Default>123456</Default>
-</Parameter>
+<Property name="OrderApi">
+<Type>DOM.VKP.OrderAPI</Type>
+<Private>1</Private>
+</Property>
 
+<Property name="ProductApi">
+<Type>DOM.PM.ProductAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="pxLevOrd">
 <Type>BL.Flow.Proxy.pxLevOrd</Type>
 <Private>1</Private>
@@ -23,49 +28,120 @@
 <Implementation><![CDATA[
 	Do ##super(aTestName)
 	
+	Set ..OrderApi = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
+	Set ..ProductApi = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
 	Set ..pxLevOrd = ##class(BL.Flow.Proxy.pxLevOrd).%New()
 	Set ..Taal = ##class(DOM.enu.Taal).Nederlands()
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Er staan geen orders open op de leverbon">
 <Implementation><![CDATA[
-	#dim EmptyOrderIterator As TECH.Iterator = ..EmptyIterator()
+	#dim AantalOpenstaandeOrders As %Integer = 0
+	#dim LeverbonStub As DOM.VKP.Bon = ..GeefLeverbon(AantalOpenstaandeOrders)
 	
-	#dim LeverbonStub As DOM.VKP.Bon = ##class(vhTest.Mock.DOM.VKP.Bon).%New()
-	Do LeverbonStub.IndienMethodCall("GeefOrderIterator").DanReturn(EmptyOrderIterator)
-	
-	Set NaleveringDataAanvuller = ##class(DOM.VKP.impl.DataM.DataMBon.NaleveringDataAanvuller).%New()
+	Set NaleveringDataAanvuller = ##class(DOM.VKP.impl.DataM.DataMBon.NaleveringDataAanvuller).%New(..OrderApi, ..ProductApi)
 	Do NaleveringDataAanvuller.VulNaleveringDataAanIndienNodig(LeverbonStub, ..pxLevOrd, ..Taal)
 	
 	Do $$$AssertEquals(..pxLevOrd.LIJNEN.Count(), 0)
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Er staat een order open op de leverbon maar daar staan geen productorderlijnen meer op">
+<Method name="Test: Er staat 1 order open op de leverbon maar daar staan geen productorderlijnen meer op">
 <Implementation><![CDATA[
-	#dim EmptyProductOrderLijnIterator As TECH.Iterator = ..EmptyIterator()
+	#dim AantalOpenstaandeOrders As %Integer = 1
+	#dim AantalProductOrderLijnenPerOrder As %Integer = 0
+	#dim LeverbonStub As DOM.VKP.Bon = ..GeefLeverbon(AantalOpenstaandeOrders, AantalProductOrderLijnenPerOrder)
 	
-	#dim OrderStub As DOM.VKP.Order = ##class(vhTest.Mock.DOM.VKP.Order).%New()
-	Do OrderStub.IndienMethodCall("GeefProductOrderLijnIterator").DanReturn(EmptyProductOrderLijnIterator)
+	Set NaleveringDataAanvuller = ##class(DOM.VKP.impl.DataM.DataMBon.NaleveringDataAanvuller).%New(..OrderApi, ..ProductApi)
+	Do NaleveringDataAanvuller.VulNaleveringDataAanIndienNodig(LeverbonStub, ..pxLevOrd, ..Taal)
 	
-	#dim OrderApiStub As DOM.VKP.OrderAPI = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
-	Do OrderApiStub.IndienMethodCall("BestaatOrder", ..#OrderId1).DanReturn($$$True)
-	Do OrderApiStub.IndienMethodCall("GeefOrder", ..#OrderId1).DanReturn(OrderStub)
+	Do $$$AssertEquals(..pxLevOrd.LIJNEN.Count(), 0)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Er staat 1 order open op de leverbon met 2 productorderlijnen erop">
+<Implementation><![CDATA[
+	#dim AantalOpenstaandeOrders As %Integer = 1
+	#dim AantalProductOrderLijnenPerOrder As %Integer = 2
+	#dim LeverbonStub As DOM.VKP.Bon = ..GeefLeverbon(AantalOpenstaandeOrders, AantalProductOrderLijnenPerOrder)
 	
+	Set NaleveringDataAanvuller = ##class(DOM.VKP.impl.DataM.DataMBon.NaleveringDataAanvuller).%New(..OrderApi, ..ProductApi)
+	Do NaleveringDataAanvuller.VulNaleveringDataAanIndienNodig(LeverbonStub, ..pxLevOrd, ..Taal)
+	
+	Do $$$AssertEquals(..pxLevOrd.LIJNEN.Count(), 3)
+	Do $$$AssertEquals(..pxLevOrd.LIJNEN.GetAt(1).TEKST.Tekst, "Naleveringen: ")
+	Do $$$AssertEquals(..pxLevOrd.LIJNEN.GetAt(2).TEKST.Tekst, "KorttekstProductId1: 11 op 08/04/2021 (OrderId1), <BR/>")
+	Do $$$AssertEquals(..pxLevOrd.LIJNEN.GetAt(3).TEKST.Tekst, "KorttekstProductId2: 12 op 09/04/2021 (OrderId1), <BR/>")
+]]></Implementation>
+</Method>
+
+<Method name="GeefLeverbon">
+<FormalSpec>AantalOpenstaandeOrders:%Integer=0,AantalProductOrderLijnenPerOrder:%Integer=0</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.VKP.Bon</ReturnType>
+<Implementation><![CDATA[
 	Set OrderIdLijst = ##class(%ListOfDataTypes).%New()
-	Do OrderIdLijst.Insert(..#OrderId1)
 	#dim OrderIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(OrderIdLijst)
-	
 	#dim LeverbonStub As DOM.VKP.Bon = ##class(vhTest.Mock.DOM.VKP.Bon).%New()
+	#dim OrderApiStub As DOM.VKP.OrderAPI = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
+	#dim OrderStub As DOM.VKP.Order
+	#dim OrderId As %Integer
+	
+	For OrderId=1:1:AantalOpenstaandeOrders {
+		#dim ProductOrderLijnIterator As TECH.Iterator = ..GeefProductOrderLijnIterator(AantalProductOrderLijnenPerOrder)
+		
+		Set OrderStub = ##class(vhTest.Mock.DOM.VKP.Order).%New()
+		Do OrderStub.IndienMethodCall("GeefProductOrderLijnIterator").DanReturn(ProductOrderLijnIterator)
+		
+		Do OrderApiStub.IndienMethodCall("BestaatOrder", "OrderId"_OrderId).DanReturn($$$True)
+		Do OrderApiStub.IndienMethodCall("GeefOrder", "OrderId"_OrderId).DanReturn(OrderStub)
+		
+		Do OrderIdLijst.Insert("OrderId"_OrderId)
+		Set OrderIterator = ##class(TECH.ListIterator).%New(OrderIdLijst)
+	}
+	
 	Do LeverbonStub.IndienMethodCall("GeefOrderIterator").DanReturn(OrderIterator)
 	
-	Set NaleveringDataAanvuller = ##class(DOM.VKP.impl.DataM.DataMBon.NaleveringDataAanvuller).%New(OrderApiStub)
-	Do NaleveringDataAanvuller.VulNaleveringDataAanIndienNodig(LeverbonStub, ..pxLevOrd, ..Taal)
+	Set ..OrderApi = OrderApiStub
 	
-	Do $$$AssertEquals(..pxLevOrd.LIJNEN.Count(), 0)
+	Quit LeverbonStub
 ]]></Implementation>
 </Method>
+
+<Method name="GeefProductOrderLijnIterator">
+<FormalSpec>AantalProductOrderLijnen:%Integer=0</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	Set ProductOrderLijnLijst = ##class(%ListOfDataTypes).%New()
+	#dim ProductApiStub As DOM.PM.ProductAPI = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
+	#dim Product As DOM.PM.Product
+	#dim ProductId As DOM.common.ProductID
+	#dim ProductOrderLijnStub As DOM.VKP.Orderlijn
+	#dim ProductOrderLijnNr As %Integer
+	
+	For ProductOrderLijnNr=1:1:AantalProductOrderLijnen {
+		Set ProductId = "ProductId"_ProductOrderLijnNr
+		Set Product = ##class(vhTest.Mock.DOM.PM.Product).%New()
+		Do Product.IndienMethodCall("GeefKorttekst").DanReturn("Korttekst"_ProductId)
+		
+		Set ProductOrderLijnStub = ##class(vhTest.Mock.DOM.VKP.ProductOrderlijn).%New()
+		Do ProductOrderLijnStub.IndienMethodCall("GeefProductID").DanReturn(ProductId)
+		Do ProductOrderLijnStub.IndienMethodCall("GeefAantal").DanReturn(1_ProductOrderLijnNr)
+		Do ProductOrderLijnStub.IndienMethodCall("GeefLeverdag").DanReturn($Horolog + ProductOrderLijnNr)
+		
+		Do ProductApiStub.IndienMethodCall("BestaatProduct", ProductId).DanReturn($$$True)
+		Do ProductApiStub.IndienMethodCall("GeefProduct", ProductId).DanReturn(Product)
+		
+		Do ProductOrderLijnLijst.Insert(ProductOrderLijnStub)
+	}
+	
+	Set ..ProductApi = ProductApiStub
+	
+	Quit ##class(TECH.ListIterator).%New(ProductOrderLijnLijst)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: DOM/VKP/impl/DataM/DataMBon/NaleveringDataAanvuller.cls.xml
===================================================================
diff -u -r64151 -r64156
--- DOM/VKP/impl/DataM/DataMBon/NaleveringDataAanvuller.cls.xml	(.../NaleveringDataAanvuller.cls.xml)	(revision 64151)
+++ DOM/VKP/impl/DataM/DataMBon/NaleveringDataAanvuller.cls.xml	(.../NaleveringDataAanvuller.cls.xml)	(revision 64156)
@@ -122,7 +122,7 @@
 	
 	While ArrayKeyListIterator.HasNext() {
 		Set CurrentKorttekstKey = ArrayKeyListIterator.Next()
-		Set NaleveringTekstLijn = CurrentKorttekstKey _ " : "
+		Set NaleveringTekstLijn = CurrentKorttekstKey _ ": "
 		
 		Set NaLeveringDataIterator = ##class(TECH.ListIterator).%New(..NaleveringDataArray.GetAt(CurrentKorttekstKey))
 		While NaLeveringDataIterator.HasNext() {