Index: DOM/VKP/impl/DataM/DataMBon/NaleveringDataAanvuller.cls.xml
===================================================================
diff -u -r64160 -r64167
--- DOM/VKP/impl/DataM/DataMBon/NaleveringDataAanvuller.cls.xml	(.../NaleveringDataAanvuller.cls.xml)	(revision 64160)
+++ DOM/VKP/impl/DataM/DataMBon/NaleveringDataAanvuller.cls.xml	(.../NaleveringDataAanvuller.cls.xml)	(revision 64167)
@@ -39,11 +39,11 @@
 </Method>
 
 <Method name="VulNaleveringDataAanIndienNodig">
-<FormalSpec>Bon:DOM.VKP.Bon,pxLevOrd:BL.Flow.Proxy.pxLevOrd,Taal:DOM.enu.Taal</FormalSpec>
+<FormalSpec>Bon:DOM.VKP.Bon,OpmerkingenLijst:%ListOfDataTypes,Taal:DOM.enu.Taal</FormalSpec>
 <Implementation><![CDATA[
 	Do ..VulNaleveringDataArrayMetRelevanteOrderLijnenData(Bon)
 	
-	Do ..VulPxLevOrdAanMetNaleveringDataTekstLijnen(pxLevOrd, Taal)
+	Do ..VulPxLevOrdAanMetNaleveringDataTekstLijnen(OpmerkingenLijst, Taal)
 ]]></Implementation>
 </Method>
 
@@ -66,6 +66,8 @@
 	While OrderIteratorOpBon.HasNext() {
 		Set OrderId = OrderIteratorOpBon.Next()
 		
+		// CHECK TOEVOEGEN OP KLANT
+		
 		Set ProductOrderLijnenIterator = ..GeefProductOrderLijnenIterator(OrderId)
 		While ProductOrderLijnenIterator.HasNext() {
 			Set ProductOrderLijn = ProductOrderLijnenIterator.Next()
@@ -104,10 +106,10 @@
 </Method>
 
 <Method name="VulPxLevOrdAanMetNaleveringDataTekstLijnen">
-<FormalSpec>pxLevOrd:BL.Flow.Proxy.pxLevOrd,Taal:DOM.enu.Taal</FormalSpec>
+<FormalSpec>OpmerkingenLijst:%ListOfDataTypes,Taal:DOM.enu.Taal</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim Vertaler As DOM.common.Transl.Vertaler = ..VertaalApi.GeefVertaler(Taal, ##class(DOM.common.Transl.enu.VertaalGroep).Algemeen())
+	#dim Vertaler As DOM.common.Transl.Vertaler = ..VertaalApi.GeefStandaardVertaler(Taal)
 	#dim ArrayKeyList As %ListOfDataTypes = ##class(TECH.ArrayUtils).ArrayKeysToList(..NaleveringDataArray)
 	#dim ArrayKeyListIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(ArrayKeyList)
 	#dim NaLeveringDataIterator As TECH.Iterator
@@ -122,7 +124,7 @@
 	
 	While ArrayKeyListIterator.HasNext() {
 		Set CurrentKorttekstKey = ArrayKeyListIterator.Next()
-		Set NaleveringTekstLijn = CurrentKorttekstKey _ ": "
+		Set NaleveringTekstLijn = CurrentKorttekstKey _ $$$CRLF
 		
 		Set NaLeveringDataIterator = ##class(TECH.ListIterator).%New(..NaleveringDataArray.GetAt(CurrentKorttekstKey))
 		While NaLeveringDataIterator.HasNext() {
@@ -132,17 +134,17 @@
 			Set CurrentNaleveringOrderId = $Piece(CurrentNaleveringData,"||",3)
 			
 			If MagHoofdingLijnGezetWorden {
-				Do ..VoegToeNaleverDataHoofdingTekstlijn(pxLevOrd, Vertaler)
+				Do ..VoegToeNaleverDataHoofdingTekstlijn(OpmerkingenLijst, Vertaler)
 				Set MagHoofdingLijnGezetWorden = $$$False
 			}
 			
-			Set NaleveringTekstLijn = NaleveringTekstLijn _ CurrentNaleveringAantal _ " " _ Vertaler.GeefVertaling("op") _ " " _ CurrentNaleveringDatum _ " (" _ CurrentNaleveringOrderId _ "), "
+			Set NaleveringTekstLijn = NaleveringTekstLijn _ CurrentNaleveringAantal _ " " _ Vertaler.GeefVertaling("op") _ " " _ CurrentNaleveringDatum _ " (" _ Vertaler.GeefVertaling("Order") _ ": " _ CurrentNaleveringOrderId _ "), "
 			Set MagTekstLijnToegevoegdWorden = $$$True
 		}
 		
 		If MagTekstLijnToegevoegdWorden {
-			Set NaleveringTekstLijn = ##class(TECH.StringUtils).RightTrimMultiple(NaleveringTekstLijn, ",", " ")
-			Do ..VoegToeTekstLijn(NaleveringTekstLijn, pxLevOrd)
+			Set NaleveringTekstLijn = ##class(TECH.StringUtils).RightTrimMultiple(NaleveringTekstLijn, ",", " ") _ $$$CRLF
+			Do ..VoegToeTekstLijn(NaleveringTekstLijn, OpmerkingenLijst)
 			Set MagTekstLijnToegevoegdWorden = $$$False
 		}
 	}
@@ -167,21 +169,18 @@
 </Method>
 
 <Method name="VoegToeNaleverDataHoofdingTekstlijn">
-<FormalSpec>pxLevOrd:BL.Flow.Proxy.pxLevOrd,Vertaler:DOM.common.Transl.Vertaler</FormalSpec>
+<FormalSpec>OpmerkingenLijst:%ListOfDataTypes,Vertaler:DOM.common.Transl.Vertaler</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim HoofdingLijn As %String = Vertaler.GeefVertaling("Naleveringen") _ " (" _ Vertaler.GeefVertaling("richtdata") _ "): "
-	#dim LijnObj As BL.Flow.Proxy.pxProductLijn = ##class(BL.Flow.Proxy.pxTekstLijn).BuildSeparator(HoofdingLijn)
-	Do pxLevOrd.AppendLijn(LijnObj)
+	Do ..VoegToeTekstLijn(HoofdingLijn, OpmerkingenLijst)
 ]]></Implementation>
 </Method>
 
 <Method name="VoegToeTekstLijn">
-<FormalSpec>TekstLijn:%String,pxLevOrd:BL.Flow.Proxy.pxLevOrd</FormalSpec>
+<FormalSpec>TekstLijn:%String,OpmerkingenLijst:%ListOfDataTypes</FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[
-	#dim LijnObj As BL.Flow.Proxy.pxProductLijn = ##class(BL.Flow.Proxy.pxTekstLijn).BuildFromString(TekstLijn)
-	Do pxLevOrd.AppendLijn(LijnObj)
+<Implementation><![CDATA[	Do OpmerkingenLijst.Insert(TekstLijn)
 ]]></Implementation>
 </Method>
 </Class>