Index: BL/Flow/Proxy/pxLevering.cls.xml
===================================================================
diff -u -r64166 -r64167
--- BL/Flow/Proxy/pxLevering.cls.xml	(.../pxLevering.cls.xml)	(revision 64166)
+++ BL/Flow/Proxy/pxLevering.cls.xml	(.../pxLevering.cls.xml)	(revision 64167)
@@ -400,12 +400,12 @@
 	..  Set LijnObj=""
 	. ; Next LijnNr
 	
+	Do ..VoegToeNaleveringsdataIndienNodig(Bon, Taal)
+	
 	Do flbLevBonEnd   ; (KLNr,BONNr,Taal,Rec,Rec3)
 	
-	Do ..VoegToeNaleveringsdataIndienNodig(Bon, pxOrd, Taal)
-	
 	Do flbPPODFields()
-
+	
 	; GEEN remboursbon als :
 	;  - er geen remboursbedrag is
 	;  - de verzendingswijze="DI1"
@@ -884,14 +884,14 @@
 </Method>
 
 <Method name="VoegToeNaleveringsdataIndienNodig">
-<FormalSpec>Bon:DOM.VKP.Bon,pxOrd:BL.Flow.Proxy.pxLevOrd,Taal:DOM.enu.Taal</FormalSpec>
+<FormalSpec>Bon:DOM.VKP.Bon,Taal:DOM.enu.Taal</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim ConfigManager As TECH.Config.ConfigMgr = ##class(TECH.Config.ConfigMgr).Instance()
 	#dim Sleutel As %String = "LeverbonNaleveringsdataToevoegen"
 	
 	If (ConfigManager.BestaatSleutel(Sleutel) && ConfigManager.GeefBoolean(Sleutel)) {
-		Do ..NaleveringDataAanvuller.VulNaleveringDataAanIndienNodig(Bon, pxOrd, Taal)
+		Do ..NaleveringDataAanvuller.VulNaleveringDataAanIndienNodig(Bon, ..Opmerkingen, Taal)
 	}
 ]]></Implementation>
 </Method>
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>
Index: vhUnitTest/DOM/VKP/impl/DataM/DataMBon/NaleveringDataAanvuller/Test.cls.xml
===================================================================
diff -u -r64162 -r64167
--- vhUnitTest/DOM/VKP/impl/DataM/DataMBon/NaleveringDataAanvuller/Test.cls.xml	(.../Test.cls.xml)	(revision 64162)
+++ vhUnitTest/DOM/VKP/impl/DataM/DataMBon/NaleveringDataAanvuller/Test.cls.xml	(.../Test.cls.xml)	(revision 64167)
@@ -18,8 +18,8 @@
 <Private>1</Private>
 </Property>
 
-<Property name="pxLevOrd">
-<Type>BL.Flow.Proxy.pxLevOrd</Type>
+<Property name="OpmerkingenLijst">
+<Type>%ListOfDataTypes</Type>
 <Private>1</Private>
 </Property>
 
@@ -35,7 +35,7 @@
 	
 	Set ..OrderApi = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
 	Set ..ProductApi = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
-	Set ..pxLevOrd = ##class(BL.Flow.Proxy.pxLevOrd).%New()
+	Set ..OpmerkingenLijst = ##class(%ListOfDataTypes).%New()
 	Set ..Taal = ##class(DOM.enu.Taal).Nederlands()
 ]]></Implementation>
 </Method>
@@ -46,9 +46,9 @@
 	#dim LeverbonStub As DOM.VKP.Bon = ..GeefLeverbon(AantalOpenstaandeOrders)
 	
 	Set NaleveringDataAanvuller = ##class(DOM.VKP.impl.DataM.DataMBon.NaleveringDataAanvuller).%New(..OrderApi, ..ProductApi)
-	Do NaleveringDataAanvuller.VulNaleveringDataAanIndienNodig(LeverbonStub, ..pxLevOrd, ..Taal)
+	Do NaleveringDataAanvuller.VulNaleveringDataAanIndienNodig(LeverbonStub, ..OpmerkingenLijst, ..Taal)
 	
-	Do $$$AssertEquals(..pxLevOrd.LIJNEN.Count(), 0)
+	Do $$$AssertEquals(..OpmerkingenLijst.Count(), 0)
 ]]></Implementation>
 </Method>
 
@@ -59,9 +59,9 @@
 	#dim LeverbonStub As DOM.VKP.Bon = ..GeefLeverbon(AantalOpenstaandeOrders, AantalProductOrderLijnenPerOrder)
 	
 	Set NaleveringDataAanvuller = ##class(DOM.VKP.impl.DataM.DataMBon.NaleveringDataAanvuller).%New(..OrderApi, ..ProductApi)
-	Do NaleveringDataAanvuller.VulNaleveringDataAanIndienNodig(LeverbonStub, ..pxLevOrd, ..Taal)
+	Do NaleveringDataAanvuller.VulNaleveringDataAanIndienNodig(LeverbonStub, ..OpmerkingenLijst, ..Taal)
 	
-	Do $$$AssertEquals(..pxLevOrd.LIJNEN.Count(), 0)
+	Do $$$AssertEquals(..OpmerkingenLijst.Count(), 0)
 ]]></Implementation>
 </Method>
 
@@ -72,11 +72,11 @@
 	#dim LeverbonStub As DOM.VKP.Bon = ..GeefLeverbon(AantalOpenstaandeOrders, AantalProductOrderLijnenPerOrder)
 	
 	Set NaleveringDataAanvuller = ##class(DOM.VKP.impl.DataM.DataMBon.NaleveringDataAanvuller).%New(..OrderApi, ..ProductApi)
-	Do NaleveringDataAanvuller.VulNaleveringDataAanIndienNodig(LeverbonStub, ..pxLevOrd, ..Taal)
+	Do NaleveringDataAanvuller.VulNaleveringDataAanIndienNodig(LeverbonStub, ..OpmerkingenLijst, ..Taal)
 	
-	Do $$$AssertEquals(..pxLevOrd.LIJNEN.Count(), 2)
-	Do $$$AssertEquals(..pxLevOrd.LIJNEN.GetAt(1).TEKST.Tekst, "Naleveringen (richtdata): ")
-	Do $$$AssertEquals(..pxLevOrd.LIJNEN.GetAt(2).TEKST.Tekst, "KorttekstProduct1: 12 op 13/07/2023 (OrderId1)<BR/>")
+	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)
 ]]></Implementation>
 </Method>
 
@@ -87,13 +87,13 @@
 	#dim LeverbonStub As DOM.VKP.Bon = ..GeefLeverbon(AantalOpenstaandeOrders, AantalProductOrderLijnenPerOrder)
 	
 	Set NaleveringDataAanvuller = ##class(DOM.VKP.impl.DataM.DataMBon.NaleveringDataAanvuller).%New(..OrderApi, ..ProductApi)
-	Do NaleveringDataAanvuller.VulNaleveringDataAanIndienNodig(LeverbonStub, ..pxLevOrd, ..Taal)
+	Do NaleveringDataAanvuller.VulNaleveringDataAanIndienNodig(LeverbonStub, ..OpmerkingenLijst, ..Taal)
 	
-	Do $$$AssertEquals(..pxLevOrd.LIJNEN.Count(), 4)
-	Do $$$AssertEquals(..pxLevOrd.LIJNEN.GetAt(1).TEKST.Tekst, "Naleveringen (richtdata): ")
-	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/>")
-	Do $$$AssertEquals(..pxLevOrd.LIJNEN.GetAt(4).TEKST.Tekst, "KorttekstProduct3: 14 op 15/07/2023 (OrderId1)<BR/>")
+	Do $$$AssertEquals(..OpmerkingenLijst.Count(), 4)
+	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)
 ]]></Implementation>
 </Method>
 
@@ -104,11 +104,11 @@
 	#dim LeverbonStub As DOM.VKP.Bon = ..GeefLeverbon(AantalOpenstaandeOrders, AantalProductOrderLijnenPerOrder)
 	
 	Set NaleveringDataAanvuller = ##class(DOM.VKP.impl.DataM.DataMBon.NaleveringDataAanvuller).%New(..OrderApi, ..ProductApi)
-	Do NaleveringDataAanvuller.VulNaleveringDataAanIndienNodig(LeverbonStub, ..pxLevOrd, ..Taal)
+	Do NaleveringDataAanvuller.VulNaleveringDataAanIndienNodig(LeverbonStub, ..OpmerkingenLijst, ..Taal)
 	
-	Do $$$AssertEquals(..pxLevOrd.LIJNEN.Count(), 2)
-	Do $$$AssertEquals(..pxLevOrd.LIJNEN.GetAt(1).TEKST.Tekst, "Naleveringen (richtdata): ")
-	Do $$$AssertEquals(..pxLevOrd.LIJNEN.GetAt(2).TEKST.Tekst, "KorttekstProduct1: 12 op 13/07/2023 (OrderId1), 22 op 23/07/2023 (OrderId11), 32 op 02/08/2023 (OrderId21)<BR/>")
+	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)
 ]]></Implementation>
 </Method>
 
@@ -119,12 +119,12 @@
 	#dim LeverbonStub As DOM.VKP.Bon = ..GeefLeverbon(AantalOpenstaandeOrders, AantalProductOrderLijnenPerOrder)
 	
 	Set NaleveringDataAanvuller = ##class(DOM.VKP.impl.DataM.DataMBon.NaleveringDataAanvuller).%New(..OrderApi, ..ProductApi)
-	Do NaleveringDataAanvuller.VulNaleveringDataAanIndienNodig(LeverbonStub, ..pxLevOrd, ..Taal)
+	Do NaleveringDataAanvuller.VulNaleveringDataAanIndienNodig(LeverbonStub, ..OpmerkingenLijst, ..Taal)
 	
-	Do $$$AssertEquals(..pxLevOrd.LIJNEN.Count(), 3)
-	Do $$$AssertEquals(..pxLevOrd.LIJNEN.GetAt(1).TEKST.Tekst, "Naleveringen (richtdata): ")
-	Do $$$AssertEquals(..pxLevOrd.LIJNEN.GetAt(2).TEKST.Tekst, "KorttekstProduct1: 12 op 13/07/2023 (OrderId1), 22 op 23/07/2023 (OrderId11), 32 op 02/08/2023 (OrderId21)<BR/>")
-	Do $$$AssertEquals(..pxLevOrd.LIJNEN.GetAt(3).TEKST.Tekst, "KorttekstProduct2: 13 op 14/07/2023 (OrderId1), 23 op 24/07/2023 (OrderId11), 33 op 03/08/2023 (OrderId21)<BR/>")
+	Do $$$AssertEquals(..OpmerkingenLijst.Count(), 3)
+	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)
 ]]></Implementation>
 </Method>
 
@@ -136,16 +136,16 @@
 	#dim LeverbonStub As DOM.VKP.Bon = ..GeefLeverbon(AantalOpenstaandeOrders, AantalProductOrderLijnenPerOrder, HeeftVerschillendeProductenPerOrderlijn)
 	
 	Set NaleveringDataAanvuller = ##class(DOM.VKP.impl.DataM.DataMBon.NaleveringDataAanvuller).%New(..OrderApi, ..ProductApi)
-	Do NaleveringDataAanvuller.VulNaleveringDataAanIndienNodig(LeverbonStub, ..pxLevOrd, ..Taal)
+	Do NaleveringDataAanvuller.VulNaleveringDataAanIndienNodig(LeverbonStub, ..OpmerkingenLijst, ..Taal)
 	
-	Do $$$AssertEquals(..pxLevOrd.LIJNEN.Count(), 7)
-	Do $$$AssertEquals(..pxLevOrd.LIJNEN.GetAt(1).TEKST.Tekst, "Naleveringen (richtdata): ")
-	Do $$$AssertEquals(..pxLevOrd.LIJNEN.GetAt(2).TEKST.Tekst, "KorttekstProduct12: 123 op 03/08/2023 (OrderId11)<BR/>")
-	Do $$$AssertEquals(..pxLevOrd.LIJNEN.GetAt(3).TEKST.Tekst, "KorttekstProduct13: 124 op 04/08/2023 (OrderId11)<BR/>")
-	Do $$$AssertEquals(..pxLevOrd.LIJNEN.GetAt(4).TEKST.Tekst, "KorttekstProduct2: 13 op 14/07/2023 (OrderId1)<BR/>")
-	Do $$$AssertEquals(..pxLevOrd.LIJNEN.GetAt(5).TEKST.Tekst, "KorttekstProduct22: 143 op 23/08/2023 (OrderId21)<BR/>")
-	Do $$$AssertEquals(..pxLevOrd.LIJNEN.GetAt(6).TEKST.Tekst, "KorttekstProduct23: 144 op 24/08/2023 (OrderId21)<BR/>")
-	Do $$$AssertEquals(..pxLevOrd.LIJNEN.GetAt(7).TEKST.Tekst, "KorttekstProduct3: 14 op 15/07/2023 (OrderId1)<BR/>")
+	Do $$$AssertEquals(..OpmerkingenLijst.Count(), 7)
+	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)
 ]]></Implementation>
 </Method>