Index: AXimpl/Admin/TRANSPORT/Levbon/Processor.cls.xml
===================================================================
diff -u -r62525 -r63276
--- AXimpl/Admin/TRANSPORT/Levbon/Processor.cls.xml	(.../Processor.cls.xml)	(revision 62525)
+++ AXimpl/Admin/TRANSPORT/Levbon/Processor.cls.xml	(.../Processor.cls.xml)	(revision 63276)
@@ -132,6 +132,10 @@
 		    	Set Verschillen=..ObjectDiff.GetDifferences(BonLevering,BestaandeBonLevering)
 		    	If Verschillen.Count()
 		    	{
+			    	
+			    	;Do DumpObject^%apiOBJ(BestaandeBonLevering)
+			    	;Do DumpObject^%apiOBJ(BonLevering)
+			    	;Do DumpObject^%apiOBJ(Verschillen)
 			    	If (Verschillen.Count()>1) || (Verschillen.GetAt(1)'["CreatieDatum")
 			    	{
 	           			Do ##class(AXimpl.Admin.TRANSPORT.Levbon.BonLevering).%DeleteId(BonLevering.AXOrderID_"||"_BonLevering.LeveringBonNr)
@@ -225,10 +229,48 @@
             Set ..BonLevering.AantalLanggoed=$P($G(^TRANSP("D",TRANSNr,"D",GroepBONNr,"Q","L")),"\")
         }
         Do ..VulAanTrackAndTrace()
+        Do ..VulAanBarcodeID()
     }
 ]]></Implementation>
 </Method>
 
+<UDLText name="T">
+<Content><![CDATA[
+// d ##class(AXimpl.Admin.TRANSPORT.Levbon.Processor).%New().VulAanBarcodeID()
+
+]]></Content>
+</UDLText>
+
+<Method name="VulAanBarcodeID">
+<Implementation><![CDATA[
+	#dim DistributeurData As DOM.TRANSP.data.DistributeurData
+	#dim Referenties as %String
+	#dim lbDistributeurIDs as %List
+
+	;Set ..BonLevering=##class(AXimpl.Admin.TRANSPORT.Levbon.BonLevering).%New()
+	;Set ..BonLevering.TransportID=27336
+	;Set ..BonLevering.GroeperingID=38686445
+	
+	Set Referenties=""
+	If ..BonLevering.TransportID && ..BonLevering.GroeperingID
+	{
+		Set lbDistributeurIDs =$G(^TRANSP("D",..BonLevering.TransportID,"D",..BonLevering.GroeperingID,"DistributeurDataIDs"))
+		For i=1:1:$LL(lbDistributeurIDs) {
+			If $LG(lbDistributeurIDs,i)
+			{
+				Set DistributeurData = ##class(DOM.TRANSP.data.DistributeurData).OpenId($LG(lbDistributeurIDs,i))
+				If $isObject(DistributeurData) && (DistributeurData.%ClassName(1)["Transsmart")
+				{
+					Set Referenties=Referenties_";"_DistributeurData.UnitID
+					Set ..BonLevering.BarcodeAanmaakTijdstip=DistributeurData.TijdstipLaatsteWijziging
+				}
+			}
+		}
+	}
+	Set ..BonLevering.BarcodeReferenties=$E(Referenties,2,500)
+]]></Implementation>
+</Method>
+
 <Method name="LandCode3">
 <FormalSpec>LandID:%String</FormalSpec>
 <Implementation><![CDATA[
@@ -238,8 +280,10 @@
 </Method>
 
 <Method name="VulAanTrackAndTrace">
+<Description>
+w ##class(APPS.OV.impl.TrackAndTraceService).%New().GeefPrivateTrackAndTraceURL(399379)</Description>
 <Implementation><![CDATA[
-	If (..BonLevering.Verzendwijze?1(1"DI1",1"DD1",1"GL4")) ;bon nummers worden herbruikt
+	If (..BonLevering.Verzendwijze?1(1"DI".1E,1"DD1",1"GL4")) ;bon nummers worden herbruikt
 	{
 		try{
 			Set ..BonLevering.TrackAndTracePrivaatURL = ..TrackAndTraceService.GeefPrivateTrackAndTraceURL(..BonLevering.LeveringBonNr)
@@ -295,7 +339,8 @@
     If ..BonLevering.TransporteurCode?1"JETL".E Set ..BonLevering.Verzendwijze="SNT" Quit
     If ..BonLevering.TransporteurCode?1"TMJ".E Set ..BonLevering.Verzendwijze="SNT" Quit 
     If ..BonLevering.TransporteurCode?1"TNT".E Set ..BonLevering.Verzendwijze="DI" Quit
-    If ..BonLevering.TransporteurCode?1"DHL".E Set ..BonLevering.Verzendwijze="DI" Quit
+    If ..BonLevering.TransporteurCode?1"DHL".E Set ..BonLevering.Verzendwijze="DI1" Quit
+    If ..BonLevering.TransporteurCode?1"VRD".E Set ..BonLevering.Verzendwijze="DI1" Quit
     If ..BonLevering.TransporteurCode?1"FEDEX".E Set ..BonLevering.Verzendwijze="DI" Quit
     ; Else
     Set ..BonLevering.Verzendwijze="EXP"