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>