Index: vhUnitTest/DOM/VKP/impl/DataM/DataMBon/NaleveringDataAanvuller/Test.cls.xml
===================================================================
diff -u -r64157 -r64158
--- vhUnitTest/DOM/VKP/impl/DataM/DataMBon/NaleveringDataAanvuller/Test.cls.xml	(.../Test.cls.xml)	(revision 64157)
+++ vhUnitTest/DOM/VKP/impl/DataM/DataMBon/NaleveringDataAanvuller/Test.cls.xml	(.../Test.cls.xml)	(revision 64158)
@@ -3,6 +3,11 @@
 <Class name="vhUnitTest.DOM.VKP.impl.DataM.DataMBon.NaleveringDataAanvuller.Test">
 <Super>vhUnitTest.TestCase</Super>
 
+<Parameter name="BasisLeverdag">
+<Type>%Sate</Type>
+<Default>66666</Default>
+</Parameter>
+
 <Property name="OrderApi">
 <Type>DOM.VKP.OrderAPI</Type>
 <Private>1</Private>
@@ -71,8 +76,8 @@
 	
 	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/>")
+	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/>")
 ]]></Implementation>
 </Method>
 
@@ -87,8 +92,8 @@
 	
 	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), 11 op 08/04/2021 (OrderId2)<BR/>")
-	Do $$$AssertEquals(..pxLevOrd.LIJNEN.GetAt(3).TEKST.Tekst, "KorttekstProductId2: 12 op 09/04/2021 (OrderId1), 12 op 09/04/2021 (OrderId2)<BR/>")
+	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/>")
 ]]></Implementation>
 </Method>
 
@@ -105,7 +110,7 @@
 	#dim OrderId As %Integer
 	
 	For OrderId=1:1:AantalOpenstaandeOrders {
-		#dim ProductOrderLijnIterator As TECH.Iterator = ..GeefProductOrderLijnIterator(AantalProductOrderLijnenPerOrder)
+		#dim ProductOrderLijnIterator As TECH.Iterator = ..GeefProductOrderLijnIterator(AantalProductOrderLijnenPerOrder, OrderId)
 		
 		Set OrderStub = ##class(vhTest.Mock.DOM.VKP.Order).%New()
 		Do OrderStub.IndienMethodCall("GeefProductOrderLijnIterator").DanReturn(ProductOrderLijnIterator)
@@ -126,7 +131,7 @@
 </Method>
 
 <Method name="GeefProductOrderLijnIterator">
-<FormalSpec>AantalProductOrderLijnen:%Integer=0</FormalSpec>
+<FormalSpec>AantalProductOrderLijnen:%Integer=0,OrderId:%Integer=1</FormalSpec>
 <Private>1</Private>
 <ReturnType>TECH.Iterator</ReturnType>
 <Implementation><![CDATA[
@@ -138,14 +143,14 @@
 	#dim ProductOrderLijnNr As %Integer
 	
 	For ProductOrderLijnNr=1:1:AantalProductOrderLijnen {
-		Set ProductId = "ProductId"_ProductOrderLijnNr
+		Set ProductId = ProductOrderLijnNr
 		Set Product = ##class(vhTest.Mock.DOM.PM.Product).%New()
-		Do Product.IndienMethodCall("GeefKorttekst").DanReturn("Korttekst"_ProductId)
+		Do Product.IndienMethodCall("GeefKorttekst").DanReturn("KorttekstProduct"_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 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)