Index: vhUnitTest/DOM/VKP/impl/DataM/DataMBon/NaleveringDataAanvuller/Test.cls.xml
===================================================================
diff -u -r64161 -r64162
--- vhUnitTest/DOM/VKP/impl/DataM/DataMBon/NaleveringDataAanvuller/Test.cls.xml	(.../Test.cls.xml)	(revision 64161)
+++ vhUnitTest/DOM/VKP/impl/DataM/DataMBon/NaleveringDataAanvuller/Test.cls.xml	(.../Test.cls.xml)	(revision 64162)
@@ -80,7 +80,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Er staat 1 order open op de leverbon met 3 productorderlijnen erop">
+<Method name="Test: Er staat 1 order open op de leverbon met 3 productorderlijnen erop met verschillende producten">
 <Implementation><![CDATA[
 	#dim AantalOpenstaandeOrders As %Integer = 1
 	#dim AantalProductOrderLijnenPerOrder As %Integer = 3
@@ -97,7 +97,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Er staan 3 orders open op de leverbon met elk 1 productorderlijn erop met zelfde producten">
+<Method name="Test: Er staan 3 orders open op de leverbon met elk 1 productorderlijn erop met zelfde product">
 <Implementation><![CDATA[
 	#dim AantalOpenstaandeOrders As %Integer = 3
 	#dim AantalProductOrderLijnenPerOrder As %Integer = 1
@@ -108,7 +108,7 @@
 	
 	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/>")
+	Do $$$AssertEquals(..pxLevOrd.LIJNEN.GetAt(2).TEKST.Tekst, "KorttekstProduct1: 12 op 13/07/2023 (OrderId1), 22 op 23/07/2023 (OrderId11), 32 op 02/08/2023 (OrderId21)<BR/>")
 ]]></Implementation>
 </Method>
 
@@ -123,25 +123,47 @@
 	
 	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), 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/>")
+	Do $$$AssertEquals(..pxLevOrd.LIJNEN.GetAt(2).TEKST.Tekst, "KorttekstProduct1: 12 op 13/07/2023 (OrderId1), 22 op 23/07/2023 (OrderId11), 32 op 02/08/2023 (OrderId21)<BR/>")
+	Do $$$AssertEquals(..pxLevOrd.LIJNEN.GetAt(3).TEKST.Tekst, "KorttekstProduct2: 13 op 14/07/2023 (OrderId1), 23 op 24/07/2023 (OrderId11), 33 op 03/08/2023 (OrderId21)<BR/>")
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Er staan 3 orders open op de leverbon met elk 2 productorderlijnen erop met verschillende producten, alfabetisch gerangschikt">
+<Implementation><![CDATA[
+	#dim AantalOpenstaandeOrders As %Integer = 3
+	#dim AantalProductOrderLijnenPerOrder As %Integer = 2
+	#dim HeeftVerschillendeProductenPerOrderlijn As %Boolean = $$$True
+	#dim LeverbonStub As DOM.VKP.Bon = ..GeefLeverbon(AantalOpenstaandeOrders, AantalProductOrderLijnenPerOrder, HeeftVerschillendeProductenPerOrderlijn)
+	
+	Set NaleveringDataAanvuller = ##class(DOM.VKP.impl.DataM.DataMBon.NaleveringDataAanvuller).%New(..OrderApi, ..ProductApi)
+	Do NaleveringDataAanvuller.VulNaleveringDataAanIndienNodig(LeverbonStub, ..pxLevOrd, ..Taal)
+	
+	Do $$$AssertEquals(..pxLevOrd.LIJNEN.Count(), 7)
+	Do $$$AssertEquals(..pxLevOrd.LIJNEN.GetAt(1).TEKST.Tekst, "Naleveringen (richtdata): ")
+	Do $$$AssertEquals(..pxLevOrd.LIJNEN.GetAt(2).TEKST.Tekst, "KorttekstProduct12: 123 op 03/08/2023 (OrderId11)<BR/>")
+	Do $$$AssertEquals(..pxLevOrd.LIJNEN.GetAt(3).TEKST.Tekst, "KorttekstProduct13: 124 op 04/08/2023 (OrderId11)<BR/>")
+	Do $$$AssertEquals(..pxLevOrd.LIJNEN.GetAt(4).TEKST.Tekst, "KorttekstProduct2: 13 op 14/07/2023 (OrderId1)<BR/>")
+	Do $$$AssertEquals(..pxLevOrd.LIJNEN.GetAt(5).TEKST.Tekst, "KorttekstProduct22: 143 op 23/08/2023 (OrderId21)<BR/>")
+	Do $$$AssertEquals(..pxLevOrd.LIJNEN.GetAt(6).TEKST.Tekst, "KorttekstProduct23: 144 op 24/08/2023 (OrderId21)<BR/>")
+	Do $$$AssertEquals(..pxLevOrd.LIJNEN.GetAt(7).TEKST.Tekst, "KorttekstProduct3: 14 op 15/07/2023 (OrderId1)<BR/>")
+]]></Implementation>
+</Method>
+
 <Method name="GeefLeverbon">
-<FormalSpec>AantalOpenstaandeOrders:%Integer=0,AantalProductOrderLijnenPerOrder:%Integer=0</FormalSpec>
+<FormalSpec>AantalOpenstaandeOrders:%Integer=0,AantalProductOrderLijnenPerOrder:%Integer=0,HeeftVerschillendeProductenPerOrderlijn:%Boolean=0</FormalSpec>
 <Private>1</Private>
 <ReturnType>DOM.VKP.Bon</ReturnType>
 <Implementation><![CDATA[
 	Set OrderIdLijst = ##class(%ListOfDataTypes).%New()
 	#dim OrderIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(OrderIdLijst)
+	#dim ProductApiStub As DOM.PM.ProductAPI = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
 	#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, OrderId)
+	For OrderId=1:10:(AantalOpenstaandeOrders*10) {
+		#dim ProductOrderLijnIterator As TECH.Iterator = ..GeefProductOrderLijnIterator(ProductApiStub, AantalProductOrderLijnenPerOrder, OrderId, HeeftVerschillendeProductenPerOrderlijn)
 		
 		Set OrderStub = ##class(vhTest.Mock.DOM.VKP.Order).%New()
 		Do OrderStub.IndienMethodCall("GeefProductOrderLijnIterator").DanReturn(ProductOrderLijnIterator)
@@ -162,30 +184,30 @@
 </Method>
 
 <Method name="GeefProductOrderLijnIterator">
-<FormalSpec>AantalProductOrderLijnen:%Integer=0,OrderId:%Integer=1</FormalSpec>
+<FormalSpec>ProductApiStub:DOM.PM.ProductAPI,AantalProductOrderLijnen:%Integer=0,OrderId:%Integer=1,HeeftVerschillendeProductenPerOrderlijn:%Boolean=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 = ProductOrderLijnNr
+		Set ProductId = $$$If(HeeftVerschillendeProductenPerOrderlijn, ProductOrderLijnNr + OrderId, ProductOrderLijnNr)
+		
 		Set Product = ##class(vhTest.Mock.DOM.PM.Product).%New()
 		Do Product.IndienMethodCall("GeefKorttekst").DanReturn("KorttekstProduct"_ProductId)
 		
+		Do ProductApiStub.IndienMethodCall("BestaatProduct", ProductId).DanReturn($$$True)
+		Do ProductApiStub.IndienMethodCall("GeefProduct", ProductId).DanReturn(Product)
+		
 		Set ProductOrderLijnStub = ##class(vhTest.Mock.DOM.VKP.ProductOrderlijn).%New()
 		Do ProductOrderLijnStub.IndienMethodCall("GeefProductID").DanReturn(ProductId)
 		Do ProductOrderLijnStub.IndienMethodCall("GeefAantal").DanReturn(1_ProductId + OrderId)
 		Do ProductOrderLijnStub.IndienMethodCall("GeefLeverdag").DanReturn(..#BasisLeverdag + ProductId + OrderId)
 		
-		Do ProductApiStub.IndienMethodCall("BestaatProduct", ProductId).DanReturn($$$True)
-		Do ProductApiStub.IndienMethodCall("GeefProduct", ProductId).DanReturn(Product)
-		
 		Do ProductOrderLijnLijst.Insert(ProductOrderLijnStub)
 	}