Index: vhUnitTest/DOM/VKP/impl/DataM/DataMBon/NaleveringDataAanvuller/Test.cls.xml
===================================================================
diff -u -r64160 -r64161
--- vhUnitTest/DOM/VKP/impl/DataM/DataMBon/NaleveringDataAanvuller/Test.cls.xml	(.../Test.cls.xml)	(revision 64160)
+++ vhUnitTest/DOM/VKP/impl/DataM/DataMBon/NaleveringDataAanvuller/Test.cls.xml	(.../Test.cls.xml)	(revision 64161)
@@ -65,25 +65,56 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Er staat 1 order open op de leverbon met 2 productorderlijnen erop">
+<Method name="Test: Er staat 1 order open op de leverbon met 1 productorderlijn erop">
 <Implementation><![CDATA[
 	#dim AantalOpenstaandeOrders As %Integer = 1
-	#dim AantalProductOrderLijnenPerOrder As %Integer = 2
+	#dim AantalProductOrderLijnenPerOrder As %Integer = 1
 	#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.Count(), 2)
 	Do $$$AssertEquals(..pxLevOrd.LIJNEN.GetAt(1).TEKST.Tekst, "Naleveringen (richtdata): ")
 	Do $$$AssertEquals(..pxLevOrd.LIJNEN.GetAt(2).TEKST.Tekst, "KorttekstProduct1: 12 op 13/07/2023 (OrderId1)<BR/>")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Er staat 1 order open op de leverbon met 3 productorderlijnen erop">
+<Implementation><![CDATA[
+	#dim AantalOpenstaandeOrders As %Integer = 1
+	#dim AantalProductOrderLijnenPerOrder As %Integer = 3
+	#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(), 4)
+	Do $$$AssertEquals(..pxLevOrd.LIJNEN.GetAt(1).TEKST.Tekst, "Naleveringen (richtdata): ")
+	Do $$$AssertEquals(..pxLevOrd.LIJNEN.GetAt(2).TEKST.Tekst, "KorttekstProduct1: 12 op 13/07/2023 (OrderId1)<BR/>")
 	Do $$$AssertEquals(..pxLevOrd.LIJNEN.GetAt(3).TEKST.Tekst, "KorttekstProduct2: 13 op 14/07/2023 (OrderId1)<BR/>")
+	Do $$$AssertEquals(..pxLevOrd.LIJNEN.GetAt(4).TEKST.Tekst, "KorttekstProduct3: 14 op 15/07/2023 (OrderId1)<BR/>")
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Er staan 2 orders open op de leverbon met elk 2 productorderlijnen erop met zelfde producten">
+<Method name="Test: Er staan 3 orders open op de leverbon met elk 1 productorderlijn erop met zelfde producten">
 <Implementation><![CDATA[
-	#dim AantalOpenstaandeOrders As %Integer = 2
+	#dim AantalOpenstaandeOrders As %Integer = 3
+	#dim AantalProductOrderLijnenPerOrder As %Integer = 1
+	#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(), 2)
+	Do $$$AssertEquals(..pxLevOrd.LIJNEN.GetAt(1).TEKST.Tekst, "Naleveringen (richtdata): ")
+	Do $$$AssertEquals(..pxLevOrd.LIJNEN.GetAt(2).TEKST.Tekst, "KorttekstProduct1: 12 op 13/07/2023 (OrderId1), 13 op 14/07/2023 (OrderId2), 14 op 15/07/2023 (OrderId3)<BR/>")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Er staan 3 orders open op de leverbon met elk 2 productorderlijnen erop met zelfde producten">
+<Implementation><![CDATA[
+	#dim AantalOpenstaandeOrders As %Integer = 3
 	#dim AantalProductOrderLijnenPerOrder As %Integer = 2
 	#dim LeverbonStub As DOM.VKP.Bon = ..GeefLeverbon(AantalOpenstaandeOrders, AantalProductOrderLijnenPerOrder)
 	
@@ -92,8 +123,8 @@
 	
 	Do $$$AssertEquals(..pxLevOrd.LIJNEN.Count(), 3)
 	Do $$$AssertEquals(..pxLevOrd.LIJNEN.GetAt(1).TEKST.Tekst, "Naleveringen (richtdata): ")
-	Do $$$AssertEquals(..pxLevOrd.LIJNEN.GetAt(2).TEKST.Tekst, "KorttekstProduct1: 12 op 13/07/2023 (OrderId1), 13 op 14/07/2023 (OrderId2)<BR/>")
-	Do $$$AssertEquals(..pxLevOrd.LIJNEN.GetAt(3).TEKST.Tekst, "KorttekstProduct2: 13 op 14/07/2023 (OrderId1), 14 op 15/07/2023 (OrderId2)<BR/>")
+	Do $$$AssertEquals(..pxLevOrd.LIJNEN.GetAt(2).TEKST.Tekst, "KorttekstProduct1: 12 op 13/07/2023 (OrderId1), 13 op 14/07/2023 (OrderId2), 14 op 15/07/2023 (OrderId3)<BR/>")
+	Do $$$AssertEquals(..pxLevOrd.LIJNEN.GetAt(3).TEKST.Tekst, "KorttekstProduct2: 13 op 14/07/2023 (OrderId1), 14 op 15/07/2023 (OrderId2), 15 op 16/07/2023 (OrderId3)<BR/>")
 ]]></Implementation>
 </Method>