Index: vhUnitTest/DOM/VKP/impl/DataM/DataMBon/NaleveringDataAanvuller/Test.cls.xml
===================================================================
diff -u -r64170 -r64347
--- vhUnitTest/DOM/VKP/impl/DataM/DataMBon/NaleveringDataAanvuller/Test.cls.xml	(.../Test.cls.xml)	(revision 64170)
+++ vhUnitTest/DOM/VKP/impl/DataM/DataMBon/NaleveringDataAanvuller/Test.cls.xml	(.../Test.cls.xml)	(revision 64347)
@@ -80,13 +80,18 @@
 	#dim AantalOpenstaandeOrders As %Integer = 1
 	#dim AantalProductOrderLijnenPerOrder As %Integer = 1
 	#dim LeverbonStub As DOM.VKP.Bon = ..GeefLeverbon(AantalOpenstaandeOrders, AantalProductOrderLijnenPerOrder)
+	#dim VerwachteNaleveringTekst As %String
 	
 	Set NaleveringDataAanvuller = ##class(DOM.VKP.impl.DataM.DataMBon.NaleveringDataAanvuller).%New(..OrderApi, ..ProductApi)
 	Do NaleveringDataAanvuller.VulNaleveringDataAanIndienNodig(LeverbonStub, ..OpmerkingenLijst, ..Taal)
 	
+	Set VerwachteNaleveringTekst =  "KorttekstProduct1" 
+						_ $$$CRLF _ "12 op 13/07/2023 (Order: OrderId1)" 
+						_ $$$CRLF
+	
 	Do $$$AssertEquals(..OpmerkingenLijst.Count(), 2)
 	Do $$$AssertEquals(..OpmerkingenLijst.GetAt(1), "Naleveringen (richtdata): ")
-	Do $$$AssertEquals(..OpmerkingenLijst.GetAt(2), "KorttekstProduct1" _ $$$CRLF _ "12 op 13/07/2023 (Order: OrderId1)" _ $$$CRLF)
+	Do $$$AssertEquals(..OpmerkingenLijst.GetAt(2), VerwachteNaleveringTekst)
 ]]></Implementation>
 </Method>
 
@@ -109,15 +114,22 @@
 	#dim AantalOpenstaandeOrders As %Integer = 1
 	#dim AantalProductOrderLijnenPerOrder As %Integer = 3
 	#dim LeverbonStub As DOM.VKP.Bon = ..GeefLeverbon(AantalOpenstaandeOrders, AantalProductOrderLijnenPerOrder)
+	#dim VerwachteNaleveringTekst As %String
 	
 	Set NaleveringDataAanvuller = ##class(DOM.VKP.impl.DataM.DataMBon.NaleveringDataAanvuller).%New(..OrderApi, ..ProductApi)
 	Do NaleveringDataAanvuller.VulNaleveringDataAanIndienNodig(LeverbonStub, ..OpmerkingenLijst, ..Taal)
 	
-	Do $$$AssertEquals(..OpmerkingenLijst.Count(), 4)
+	Set VerwachteNaleveringTekst =  "KorttekstProduct1" 
+						_ $$$CRLF _ "12 op 13/07/2023 (Order: OrderId1)" 
+						_ $$$CRLF _ "KorttekstProduct2" 
+						_ $$$CRLF _ "13 op 14/07/2023 (Order: OrderId1)" 
+						_ $$$CRLF _ "KorttekstProduct3" 
+						_ $$$CRLF _ "14 op 15/07/2023 (Order: OrderId1)" 
+						_ $$$CRLF
+	
+	Do $$$AssertEquals(..OpmerkingenLijst.Count(), 2)
 	Do $$$AssertEquals(..OpmerkingenLijst.GetAt(1), "Naleveringen (richtdata): ")
-	Do $$$AssertEquals(..OpmerkingenLijst.GetAt(2), "KorttekstProduct1" _ $$$CRLF _ "12 op 13/07/2023 (Order: OrderId1)" _ $$$CRLF)
-	Do $$$AssertEquals(..OpmerkingenLijst.GetAt(3), "KorttekstProduct2" _ $$$CRLF _ "13 op 14/07/2023 (Order: OrderId1)" _ $$$CRLF)
-	Do $$$AssertEquals(..OpmerkingenLijst.GetAt(4), "KorttekstProduct3" _ $$$CRLF _ "14 op 15/07/2023 (Order: OrderId1)" _ $$$CRLF)
+	Do $$$AssertEquals(..OpmerkingenLijst.GetAt(2), VerwachteNaleveringTekst)
 ]]></Implementation>
 </Method>
 
@@ -126,13 +138,18 @@
 	#dim AantalOpenstaandeOrders As %Integer = 3
 	#dim AantalProductOrderLijnenPerOrder As %Integer = 1
 	#dim LeverbonStub As DOM.VKP.Bon = ..GeefLeverbon(AantalOpenstaandeOrders, AantalProductOrderLijnenPerOrder)
+	#dim VerwachteNaleveringTekst As %String
 	
 	Set NaleveringDataAanvuller = ##class(DOM.VKP.impl.DataM.DataMBon.NaleveringDataAanvuller).%New(..OrderApi, ..ProductApi)
 	Do NaleveringDataAanvuller.VulNaleveringDataAanIndienNodig(LeverbonStub, ..OpmerkingenLijst, ..Taal)
 	
+	Set VerwachteNaleveringTekst =  "KorttekstProduct1" 
+						_ $$$CRLF _ "12 op 13/07/2023 (Order: OrderId1), 22 op 23/07/2023 (Order: OrderId11), 32 op 02/08/2023 (Order: OrderId21)" 
+						_ $$$CRLF
+	
 	Do $$$AssertEquals(..OpmerkingenLijst.Count(), 2)
 	Do $$$AssertEquals(..OpmerkingenLijst.GetAt(1), "Naleveringen (richtdata): ")
-	Do $$$AssertEquals(..OpmerkingenLijst.GetAt(2), "KorttekstProduct1" _ $$$CRLF _ "12 op 13/07/2023 (Order: OrderId1), 22 op 23/07/2023 (Order: OrderId11), 32 op 02/08/2023 (Order: OrderId21)" _ $$$CRLF)
+	Do $$$AssertEquals(..OpmerkingenLijst.GetAt(2), VerwachteNaleveringTekst)
 ]]></Implementation>
 </Method>
 
@@ -141,14 +158,20 @@
 	#dim AantalOpenstaandeOrders As %Integer = 3
 	#dim AantalProductOrderLijnenPerOrder As %Integer = 2
 	#dim LeverbonStub As DOM.VKP.Bon = ..GeefLeverbon(AantalOpenstaandeOrders, AantalProductOrderLijnenPerOrder)
+	#dim VerwachteNaleveringTekst As %String
 	
 	Set NaleveringDataAanvuller = ##class(DOM.VKP.impl.DataM.DataMBon.NaleveringDataAanvuller).%New(..OrderApi, ..ProductApi)
 	Do NaleveringDataAanvuller.VulNaleveringDataAanIndienNodig(LeverbonStub, ..OpmerkingenLijst, ..Taal)
 	
-	Do $$$AssertEquals(..OpmerkingenLijst.Count(), 3)
+	Set VerwachteNaleveringTekst =  "KorttekstProduct1" 
+						_ $$$CRLF _ "12 op 13/07/2023 (Order: OrderId1), 22 op 23/07/2023 (Order: OrderId11), 32 op 02/08/2023 (Order: OrderId21)" 
+						_ $$$CRLF _ "KorttekstProduct2" 
+						_ $$$CRLF _ "13 op 14/07/2023 (Order: OrderId1), 23 op 24/07/2023 (Order: OrderId11), 33 op 03/08/2023 (Order: OrderId21)" 
+						_ $$$CRLF
+	
+	Do $$$AssertEquals(..OpmerkingenLijst.Count(), 2)
 	Do $$$AssertEquals(..OpmerkingenLijst.GetAt(1), "Naleveringen (richtdata): ")
-	Do $$$AssertEquals(..OpmerkingenLijst.GetAt(2), "KorttekstProduct1" _ $$$CRLF _ "12 op 13/07/2023 (Order: OrderId1), 22 op 23/07/2023 (Order: OrderId11), 32 op 02/08/2023 (Order: OrderId21)" _ $$$CRLF)
-	Do $$$AssertEquals(..OpmerkingenLijst.GetAt(3), "KorttekstProduct2" _ $$$CRLF _ "13 op 14/07/2023 (Order: OrderId1), 23 op 24/07/2023 (Order: OrderId11), 33 op 03/08/2023 (Order: OrderId21)" _ $$$CRLF)
+	Do $$$AssertEquals(..OpmerkingenLijst.GetAt(2), VerwachteNaleveringTekst)
 ]]></Implementation>
 </Method>
 
@@ -158,18 +181,28 @@
 	#dim AantalProductOrderLijnenPerOrder As %Integer = 2
 	#dim HeeftVerschillendeProductenPerOrderlijn As %Boolean = $$$True
 	#dim LeverbonStub As DOM.VKP.Bon = ..GeefLeverbon(AantalOpenstaandeOrders, AantalProductOrderLijnenPerOrder, HeeftVerschillendeProductenPerOrderlijn)
+	#dim VerwachteNaleveringTekst As %String
 	
 	Set NaleveringDataAanvuller = ##class(DOM.VKP.impl.DataM.DataMBon.NaleveringDataAanvuller).%New(..OrderApi, ..ProductApi)
 	Do NaleveringDataAanvuller.VulNaleveringDataAanIndienNodig(LeverbonStub, ..OpmerkingenLijst, ..Taal)
 	
-	Do $$$AssertEquals(..OpmerkingenLijst.Count(), 7)
+	Set VerwachteNaleveringTekst =  "KorttekstProduct12" 
+						_ $$$CRLF _ "123 op 03/08/2023 (Order: OrderId11)" 
+						_ $$$CRLF _ "KorttekstProduct13" 
+						_ $$$CRLF _ "124 op 04/08/2023 (Order: OrderId11)" 
+						_ $$$CRLF _ "KorttekstProduct2" 
+						_ $$$CRLF _ "13 op 14/07/2023 (Order: OrderId1)" 
+						_ $$$CRLF _ "KorttekstProduct22" 
+						_ $$$CRLF _ "143 op 23/08/2023 (Order: OrderId21)" 
+						_ $$$CRLF _ "KorttekstProduct23" 
+						_ $$$CRLF _ "144 op 24/08/2023 (Order: OrderId21)" 
+						_ $$$CRLF _ "KorttekstProduct3" 
+						_ $$$CRLF _ "14 op 15/07/2023 (Order: OrderId1)" 
+						_ $$$CRLF
+	
+	Do $$$AssertEquals(..OpmerkingenLijst.Count(), 2)
 	Do $$$AssertEquals(..OpmerkingenLijst.GetAt(1), "Naleveringen (richtdata): ")
-	Do $$$AssertEquals(..OpmerkingenLijst.GetAt(2), "KorttekstProduct12" _ $$$CRLF _ "123 op 03/08/2023 (Order: OrderId11)" _ $$$CRLF)
-	Do $$$AssertEquals(..OpmerkingenLijst.GetAt(3), "KorttekstProduct13" _ $$$CRLF _ "124 op 04/08/2023 (Order: OrderId11)" _ $$$CRLF)
-	Do $$$AssertEquals(..OpmerkingenLijst.GetAt(4), "KorttekstProduct2" _ $$$CRLF _ "13 op 14/07/2023 (Order: OrderId1)" _ $$$CRLF)
-	Do $$$AssertEquals(..OpmerkingenLijst.GetAt(5), "KorttekstProduct22" _ $$$CRLF _ "143 op 23/08/2023 (Order: OrderId21)" _ $$$CRLF)
-	Do $$$AssertEquals(..OpmerkingenLijst.GetAt(6), "KorttekstProduct23" _ $$$CRLF _ "144 op 24/08/2023 (Order: OrderId21)" _ $$$CRLF)
-	Do $$$AssertEquals(..OpmerkingenLijst.GetAt(7), "KorttekstProduct3" _ $$$CRLF _ "14 op 15/07/2023 (Order: OrderId1)" _ $$$CRLF)
+	Do $$$AssertEquals(..OpmerkingenLijst.GetAt(2), VerwachteNaleveringTekst)
 ]]></Implementation>
 </Method>
 
Index: DOM/VKP/impl/DataM/DataMBon/NaleveringDataAanvuller.cls.xml
===================================================================
diff -u -r64170 -r64347
--- DOM/VKP/impl/DataM/DataMBon/NaleveringDataAanvuller.cls.xml	(.../NaleveringDataAanvuller.cls.xml)	(revision 64170)
+++ DOM/VKP/impl/DataM/DataMBon/NaleveringDataAanvuller.cls.xml	(.../NaleveringDataAanvuller.cls.xml)	(revision 64347)
@@ -121,12 +121,14 @@
 	#dim ArrayKeyListIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(ArrayKeyList)
 	#dim NaLeveringDataIterator As TECH.Iterator
 	#dim MagHoofdingLijnGezetWorden As %Boolean = $$$True
+	#dim MagTekstToegevoegdWorden As %Boolean = $$$False
 	#dim MagTekstLijnToegevoegdWorden As %Boolean = $$$False
 	#dim CurrentKorttekstKey As %String
 	#dim CurrentNaleveringData As %String
 	#dim CurrentNaleveringAantal As %String
 	#dim CurrentNaleveringDatum As %String
 	#dim CurrentNaleveringOrderId As %Integer
+	#dim NaleveringTekst As %String = ""
 	#dim NaleveringTekstLijn As %String
 	
 	While ArrayKeyListIterator.HasNext() {
@@ -143,6 +145,7 @@
 			If MagHoofdingLijnGezetWorden {
 				Do ..VoegToeNaleverDataHoofdingTekstlijn(OpmerkingenLijst, Vertaler)
 				Set MagHoofdingLijnGezetWorden = $$$False
+				Set MagTekstToegevoegdWorden = $$$True
 			}
 			
 			Set NaleveringTekstLijn = NaleveringTekstLijn _ CurrentNaleveringAantal _ " " _ Vertaler.GeefVertaling("op") _ " " _ CurrentNaleveringDatum _ " (" _ Vertaler.GeefVertaling("Order") _ ": " _ CurrentNaleveringOrderId _ "), "
@@ -151,10 +154,14 @@
 		
 		If MagTekstLijnToegevoegdWorden {
 			Set NaleveringTekstLijn = ##class(TECH.StringUtils).RightTrimMultiple(NaleveringTekstLijn, ",", " ") _ $$$CRLF
-			Do ..VoegToeTekstLijn(NaleveringTekstLijn, OpmerkingenLijst)
+			Set NaleveringTekst = NaleveringTekst _ NaleveringTekstLijn
 			Set MagTekstLijnToegevoegdWorden = $$$False
 		}
 	}
+	
+	If MagTekstToegevoegdWorden {
+		Do ..VoegToeTekst(NaleveringTekst, OpmerkingenLijst)
+	}
 ]]></Implementation>
 </Method>
 
@@ -181,14 +188,14 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim HoofdingLijn As %String = Vertaler.GeefVertaling("Naleveringen") _ " (" _ Vertaler.GeefVertaling("richtdata") _ "): "
-	Do ..VoegToeTekstLijn(HoofdingLijn, OpmerkingenLijst)
+	Do OpmerkingenLijst.Insert(HoofdingLijn)
 ]]></Implementation>
 </Method>
 
-<Method name="VoegToeTekstLijn">
-<FormalSpec>TekstLijn:%String,OpmerkingenLijst:%ListOfDataTypes</FormalSpec>
+<Method name="VoegToeTekst">
+<FormalSpec>NaleveringTekst:%String,OpmerkingenLijst:%ListOfDataTypes</FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[	Do OpmerkingenLijst.Insert(TekstLijn)
+<Implementation><![CDATA[	Do OpmerkingenLijst.Insert(NaleveringTekst)
 ]]></Implementation>
 </Method>
 </Class>