Index: DOM/VKP/impl/DataM/DataMBon/NaleveringDataAanvuller.cls.xml
===================================================================
diff -u -r64137 -r64138
--- DOM/VKP/impl/DataM/DataMBon/NaleveringDataAanvuller.cls.xml	(.../NaleveringDataAanvuller.cls.xml)	(revision 64137)
+++ DOM/VKP/impl/DataM/DataMBon/NaleveringDataAanvuller.cls.xml	(.../NaleveringDataAanvuller.cls.xml)	(revision 64138)
@@ -41,19 +41,9 @@
 <Method name="VulNaleveringDataAanIndienNodig">
 <FormalSpec>Bon:DOM.VKP.Bon,pxLevOrd:BL.Flow.Proxy.pxLevOrd</FormalSpec>
 <Implementation><![CDATA[
-	#dim NaleveringTekstLijn As %String = ""
-	
 	Do ..VulNaleveringDataArrayMetRelevanteOrderLijnenData(Bon)
 	
 	Do ..VulPxLevOrdAanMetNaleveringDataTekstLijnen(pxLevOrd)
-		
-	/*
-	Set NaleveringDto = NaleveringDataBepaler.GeefNaleveringDto(Bon OrderId) 
-	For each (item in NaleveringDto) {
-		Set NalevTekstlijn = ..MaakTekstLijnVanNaleveringItem(NalevItem)
-		Do Lijnen.Insert(NalevTekstLijn)
-	}
-	*/
 ]]></Implementation>
 </Method>
 
@@ -116,6 +106,44 @@
 <Method name="VulPxLevOrdAanMetNaleveringDataTekstLijnen">
 <FormalSpec>pxLevOrd:BL.Flow.Proxy.pxLevOrd</FormalSpec>
 <Private>1</Private>
+<Implementation><![CDATA[
+	#dim ArrayKeyList As %ListOfDataTypes = ##class(TECH.ArrayUtils).ArrayKeysToList(..NaleveringDataArray)
+	#dim ArrayKeyListIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(ArrayKeyList)
+	#dim NaLeveringDataIterator As TECH.Iterator
+	#dim MagHoofdingLijnGezetWorden As %Boolean = $$$True
+	#dim MagTekstLijnToegevoegdWorden As %Boolean = $$$False
+	#dim CurrentKorttekstKey As %String
+	#dim CurrentNaleveringData As %String
+	#dim CurrentNaleveringAantal As %String
+	#dim CurrentNaleveringDatum As %String
+	#dim NaleveringTekstLijn As %String
+	
+	While ArrayKeyListIterator.HasNext() {
+		Set CurrentKorttekstKey = ArrayKeyListIterator.Next()
+		Set NaleveringTekstLijn = CurrentKorttekstKey _ " : "
+		
+		Set NaLeveringDataIterator = ##class(TECH.ListIterator).%New(..NaleveringDataArray.GetAt(CurrentKorttekstKey))
+		While NaLeveringDataIterator.HasNext() {
+			Set CurrentNaleveringData = NaLeveringDataIterator.Next()
+			Set CurrentNaleveringAantal = $Piece(CurrentNaleveringData,"||",1)
+			Set CurrentNaleveringDatum = $Piece(CurrentNaleveringData,"||",2)
+			
+			If MagHoofdingLijnGezetWorden {
+				Do ..VoegToeNaleverDataHoofdingTekstlijn(pxLevOrd)
+				Set MagHoofdingLijnGezetWorden = $$$False
+			}
+			
+			Set NaleveringTekstLijn = NaleveringTekstLijn _ CurrentNaleveringAantal _ " per " _ CurrentNaleveringDatum _ ", "
+			Set MagTekstLijnToegevoegdWorden = $$$True
+		}
+		
+		If MagTekstLijnToegevoegdWorden {
+			Do ##class(TECH.StringUtils).RightTrimMultiple(NaleveringTekstLijn, " ", ",")
+			Do ..VoegToeTekstLijn(NaleveringTekstLijn, pxLevOrd)
+			Set MagTekstLijnToegevoegdWorden = $$$False
+		}
+	}
+]]></Implementation>
 </Method>
 
 <Method name="GeefProductOrderLijnenIterator">
@@ -135,12 +163,22 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VoegToeNaleverDataHoofdingTekstlijn">
+<FormalSpec>pxLevOrd:BL.Flow.Proxy.pxLevOrd</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim HoofdingLijn As %String = "Naleveringen: " _ $$$CRLF
+	#dim LijnObj As BL.Flow.Proxy.pxProductLijn = ##class(BL.Flow.Proxy.pxTekstLijn).BuildSeparator(HoofdingLijn)
+	Do pxLevOrd.AppendLijn(LijnObj)
+]]></Implementation>
+</Method>
+
 <Method name="VoegToeTekstLijn">
-<FormalSpec>TekstLijn:%String,pxOrd:BL.Flow.Proxy.pxLevOrd</FormalSpec>
+<FormalSpec>TekstLijn:%String,pxLevOrd:BL.Flow.Proxy.pxLevOrd</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim LijnObj As BL.Flow.Proxy.pxProductLijn = ##class(BL.Flow.Proxy.pxTekstLijn).BuildFromString(TekstLijn)
-	Do pxOrd.AppendLijn(LijnObj)
+	Do pxLevOrd.AppendLijn(LijnObj)
 ]]></Implementation>
 </Method>
 </Class>