Index: DOM/VKP/impl/DataM/DataMBon/NaleveringDataAanvuller.cls.xml
===================================================================
diff -u -r64138 -r64141
--- DOM/VKP/impl/DataM/DataMBon/NaleveringDataAanvuller.cls.xml	(.../NaleveringDataAanvuller.cls.xml)	(revision 64138)
+++ DOM/VKP/impl/DataM/DataMBon/NaleveringDataAanvuller.cls.xml	(.../NaleveringDataAanvuller.cls.xml)	(revision 64141)
@@ -3,11 +3,6 @@
 <Class name="DOM.VKP.impl.DataM.DataMBon.NaleveringDataAanvuller">
 <Super>TECH.RegisteredObject</Super>
 
-<Property name="DateTimeApi">
-<Type>TECH.DateTime.DateTimeAPI</Type>
-<Private>1</Private>
-</Property>
-
 <Property name="OrderApi">
 <Type>DOM.VKP.OrderAPI</Type>
 <Private>1</Private>
@@ -24,13 +19,12 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>DateTimeApi:TECH.DateTime.DateTimeAPI="",OrderApi:DOM.VKP.OrderAPI="",ProductApi:DOM.PM.ProductAPI=""</FormalSpec>
+<FormalSpec>OrderApi:DOM.VKP.OrderAPI="",ProductApi:DOM.PM.ProductAPI=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..DateTimeApi = $$$Inject(DateTimeApi, ##class(TECH.DateTime.impl.DateTimeAPI).%New())
 	Set ..OrderApi = $$$Inject(OrderApi, ##class(DOM.VKP.impl.DataM.DataMOrderAPI).%New())
 	Set ..ProductApi = $$$Inject(ProductApi, ##class(DOM.PM.impl.ProductAPI).%New())
 	
@@ -79,15 +73,15 @@
 				Set AantalOpOrderLijn = ProductOrderLijn.GeefAantal()
 				Set LeverdatumOpOrderLijn = ProductOrderLijn.GeefLeverdag()
 				
-				Do ..ZetLeveringDataOpNaleveringDataArray(Korttekst, AantalOpOrderLijn, LeverdatumOpOrderLijn)
+				Do ..ZetLeveringDataOpNaleveringDataArray(OrderId, Korttekst, AantalOpOrderLijn, LeverdatumOpOrderLijn)
 			}
 		}
 	}
 ]]></Implementation>
 </Method>
 
 <Method name="ZetLeveringDataOpNaleveringDataArray">
-<FormalSpec>Korttekst:%String,AantalOpOrderLijn:%Decimal,LeverdatumOpOrderLijn:%Date</FormalSpec>
+<FormalSpec>OrderId:%Integer,Korttekst:%String,AantalOpOrderLijn:%Decimal,LeverdatumOpOrderLijn:%Date</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim DisplayLeverdatum As %String = $Replace($$EXTDATE^vhLib.DataTypes(LeverdatumOpOrderLijn,"DK4"),"-","/")
@@ -98,7 +92,7 @@
 	}
 	
 	If (AantalOpOrderLijn > 0) {
-		Do ..NaleveringDataArray.GetAt(Korttekst).Insert(AantalOpOrderLijn _ "||" _ DisplayLeverdatum)
+		Do ..NaleveringDataArray.GetAt(Korttekst).Insert(AantalOpOrderLijn _ "||" _ DisplayLeverdatum _ "||" _ OrderId)
 	}
 ]]></Implementation>
 </Method>
@@ -116,6 +110,7 @@
 	#dim CurrentNaleveringData As %String
 	#dim CurrentNaleveringAantal As %String
 	#dim CurrentNaleveringDatum As %String
+	#dim CurrentNaleveringOrderId As %Integer
 	#dim NaleveringTekstLijn As %String
 	
 	While ArrayKeyListIterator.HasNext() {
@@ -127,13 +122,14 @@
 			Set CurrentNaleveringData = NaLeveringDataIterator.Next()
 			Set CurrentNaleveringAantal = $Piece(CurrentNaleveringData,"||",1)
 			Set CurrentNaleveringDatum = $Piece(CurrentNaleveringData,"||",2)
+			Set CurrentNaleveringOrderId = $Piece(CurrentNaleveringData,"||",3)
 			
 			If MagHoofdingLijnGezetWorden {
 				Do ..VoegToeNaleverDataHoofdingTekstlijn(pxLevOrd)
 				Set MagHoofdingLijnGezetWorden = $$$False
 			}
 			
-			Set NaleveringTekstLijn = NaleveringTekstLijn _ CurrentNaleveringAantal _ " per " _ CurrentNaleveringDatum _ ", "
+			Set NaleveringTekstLijn = NaleveringTekstLijn _ CurrentNaleveringAantal _ " per " _ CurrentNaleveringDatum _ " (" _ CurrentNaleveringOrderId _ "), "
 			Set MagTekstLijnToegevoegdWorden = $$$True
 		}