Index: AXimpl/Admin/TRANSPORT/Levbon/Processor.cls.xml
===================================================================
diff -u -r58210 -r62525
--- AXimpl/Admin/TRANSPORT/Levbon/Processor.cls.xml	(.../Processor.cls.xml)	(revision 58210)
+++ AXimpl/Admin/TRANSPORT/Levbon/Processor.cls.xml	(.../Processor.cls.xml)	(revision 62525)
@@ -18,10 +18,22 @@
 <Type>AXimpl.Admin.TRANSPORT.Levbon.BonLevering</Type>
 </Property>
 
+<Property name="AXOrdersFetched">
+<Type>%List</Type>
+</Property>
+
 <Property name="Translator">
 <Type>AX.Uitgaand.EC.DataAX.impl.Translator</Type>
 </Property>
 
+<Property name="TrackAndTraceService">
+<Type>APPS.OV.impl.TrackAndTraceService</Type>
+</Property>
+
+<Property name="ObjectDiff">
+<Type>TECH.ObjectUtils.impl.Differenciator</Type>
+</Property>
+
 <UDLText name="T">
 <Content><![CDATA[
 // d ##class(AXimpl.Admin.TRANSPORT.Levbon.Processor).%New().Process()
@@ -36,15 +48,18 @@
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-    Set ..BeginDatum=$H-30
+    Set ..BeginDatum=$H-10
     
     If AllVlag
     {
-        k ^AXimpl.Admin.TRDBB.BonLeveringD
+        //k ^AXimpl.Admin.TRDBB.BonLeveringD
         Set ..BeginDatum=$H-90
     }
     Set ..ProcessDate=+$H
     Set ..Translator=##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New()
+    Set ..TrackAndTraceService = ##class(APPS.OV.impl.TrackAndTraceService).%New()
+    Set ..ObjectDiff=##class(TECH.ObjectUtils.impl.Differenciator).%New()
+
     Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -81,17 +96,19 @@
 <Method name="AddLevBon">
 <FormalSpec>KLNr:%String,Node:%String,BONNr:%String</FormalSpec>
 <Implementation><![CDATA[
-    Set ..BonLevering=##class(AXimpl.Admin.TRANSPORT.Levbon.BonLevering).%New()
-    Do ..GeefBonLevering(KLNr, Node, BONNr)
-    ;w !,KLNr," ",BONNr," ",..BonLevering.VerzendDatum
-    If ..BonLevering.VerwachteOntvangstDatum'<..BeginDatum
-    {
-        Set LijnNr=$O(^KUL(KLNr,Node,BONNr,99))
-        While LijnNr
-        {
-            Do ..SaveMetOrder(^KUL(KLNr,Node,BONNr,LijnNr))
-            Set LijnNr=$O(^KUL(KLNr,Node,BONNr,LijnNr))
-        }
+	Set Rec=^KUL(KLNr,Node,BONNr,1)
+	If $$INTDATE^vhLib.DataTypes($P(Rec,"\",2))'<..BeginDatum
+	{
+		Set ..BonLevering=##class(AXimpl.Admin.TRANSPORT.Levbon.BonLevering).%New()
+		Do ..GeefBonLevering(KLNr, Node, BONNr)
+		;w !,KLNr," ",BONNr," ",..BonLevering.VerzendDatum
+		Set ..AXOrdersFetched=""
+		Set LijnNr=$O(^KUL(KLNr,Node,BONNr,99))
+		While LijnNr
+		{
+		    Do ..SaveMetOrder(^KUL(KLNr,Node,BONNr,LijnNr))
+		    Set LijnNr=$O(^KUL(KLNr,Node,BONNr,LijnNr))
+		}
     }
 ]]></Implementation>
 </Method>
@@ -101,13 +118,33 @@
 <Implementation><![CDATA[
     If $P(LijnRec,"\",17)?1"KF5".E
     { 
-        Set OrderID=$P(LijnRec,"\",29)
-        If $L(OrderID)
+        Set AXOrderID=$P(LijnRec,"\",29)
+        If $L(AXOrderID)&&('$LF(..AXOrdersFetched,AXOrderID))
         {
             #dim BonLevering as AXimpl.Admin.TRANSPORT.Levbon.BonLevering=..BonLevering.%ConstructClone()
-            Set BonLevering.AXOrderID=OrderID
-            Do ##class(AXimpl.Admin.TRANSPORT.Levbon.BonLevering).%DeleteId(BonLevering.AXOrderID_"||"_BonLevering.LeveringBonNr)
-            Do BonLevering.Save()
+            Set BonLevering.AXOrderID=AXOrderID
+            Set BonLevering.CreatieDatum=+$H
+            Set IsChanged=0
+            Set BestaandeBonLevering=##class(AXimpl.Admin.TRANSPORT.Levbon.BonLevering).%OpenId(BonLevering.AXOrderID_"||"_BonLevering.LeveringBonNr)
+		    If $isobject(BestaandeBonLevering)
+		    { 
+		    	#Dim Verschillen as %ListOfDataTypes
+		    	Set Verschillen=..ObjectDiff.GetDifferences(BonLevering,BestaandeBonLevering)
+		    	If Verschillen.Count()
+		    	{
+			    	If (Verschillen.Count()>1) || (Verschillen.GetAt(1)'["CreatieDatum")
+			    	{
+	           			Do ##class(AXimpl.Admin.TRANSPORT.Levbon.BonLevering).%DeleteId(BonLevering.AXOrderID_"||"_BonLevering.LeveringBonNr)
+			    		Set IsChanged=1
+			    	}
+		    	}
+		    }
+		    else
+		    {
+			    Set IsChanged=1
+			}
+            Do:IsChanged BonLevering.Save()
+            Set ..AXOrdersFetched=..AXOrdersFetched_$LB(AXOrderID)
         }
     }
 ]]></Implementation>
@@ -148,7 +185,7 @@
     Set ..BonLevering.StraatEnNr=$P(AdresRec,"\",5)
     Set ..BonLevering.Postkode=$P(AdresRec,"\",6)
     Set ..BonLevering.Gemeente=$P(AdresRec,"\",7)
-    Set ..BonLevering.Landkode3=$$LAND^vhRtn1($P(AdresRec,"\",8),1,1)
+    Set ..BonLevering.Landkode3=..LandCode3($P(AdresRec,"\",8)) ;$$LAND^vhRtn1($P(AdresRec,"\",8),1,1)
     Do ..VertaalVerzendwijzeVanBon($P(Rec,"\",7))
     Set ..BonLevering.VerwachteOntvangstDatum=$$INTDATE^vhLib.DataTypes($P(Rec,"\",2))
     Do ..VoegtoeBonVerzendwijzeEnDatum()
@@ -164,6 +201,7 @@
         If VerzendDatum'=""
         {
             Set ..BonLevering.VerzendDatum=+VerzendDatum
+            Set ..BonLevering.VerzendTijdstip=$P($$$Timestamp(VerzendDatum),".",1) ; milliseconden eraf halen
             Do ..GeefVerzendwijzeVanTransport(TRANSNr)
             Set ..BonLevering.TransportID=TRANSNr
             Set ..BonLevering.GroeperingID=GroepBONNr
@@ -176,20 +214,44 @@
                 Set ..BonLevering.StraatEnNr=$P(AdresRec,"\",5)
                 Set ..BonLevering.Postkode=$P(AdresRec,"\",6)
                 Set ..BonLevering.Gemeente=$P(AdresRec,"\",7)
-                Set ..BonLevering.Landkode3=$$LAND^vhRtn1($P(AdresRec,"\",8),1,1)
+                Set ..BonLevering.Landkode3=..LandCode3($P(AdresRec,"\",8))
             }
             
             ; Colliegegevens
             Set ..BonLevering.AantalCollie=$P($G(^TRANSP("D",TRANSNr,"D",GroepBONNr,"Q","C")),"\")
             Set ..BonLevering.AantalEuroPallet=$P($G(^TRANSP("D",TRANSNr,"D",GroepBONNr,"Q","E")),"\")
             Set ..BonLevering.AantalHalvePallet=$P($G(^TRANSP("D",TRANSNr,"D",GroepBONNr,"Q","P")),"\")
             Set ..BonLevering.AantalBigPallet=$P($G(^TRANSP("D",TRANSNr,"D",GroepBONNr,"Q","B")),"\")
-            Set ..BonLevering.AantalLanggoed=$P($G(^TRANSP("D",TRANSNr,"D",GroepBONNr,"Q","C")),"\")
+            Set ..BonLevering.AantalLanggoed=$P($G(^TRANSP("D",TRANSNr,"D",GroepBONNr,"Q","L")),"\")
         }
+        Do ..VulAanTrackAndTrace()
     }
 ]]></Implementation>
 </Method>
 
+<Method name="LandCode3">
+<FormalSpec>LandID:%String</FormalSpec>
+<Implementation><![CDATA[
+	Quit:LandID'?1.N ""
+	Quit $P($G(^ISO(0,"ISO.LAND",LandID,0)),"\",35)
+]]></Implementation>
+</Method>
+
+<Method name="VulAanTrackAndTrace">
+<Implementation><![CDATA[
+	If (..BonLevering.Verzendwijze?1(1"DI1",1"DD1",1"GL4")) ;bon nummers worden herbruikt
+	{
+		try{
+			Set ..BonLevering.TrackAndTracePrivaatURL = ..TrackAndTraceService.GeefPrivateTrackAndTraceURL(..BonLevering.LeveringBonNr)
+		 	Set ..BonLevering.TrackAndTracePubliekeURL = ..TrackAndTraceService.GeefPubliekeTrackAndTraceURL(..BonLevering.LeveringBonNr)
+		}Catch E{	
+		 	Do ##class(TECH.ExceptionHandler).Catch()	
+		 	/// geen TrackAndTrace URL beschikbaar
+		}
+	}
+]]></Implementation>
+</Method>
+
 <Method name="VertaalVerzendwijzeVanBon">
 <FormalSpec>VerzendwijzeBon:%String</FormalSpec>
 <Implementation><![CDATA[
@@ -227,15 +289,16 @@
 
 <Method name="VertaalTransporteurNaarVerzendwijze">
 <Implementation><![CDATA[
-    If ..BonLevering.TransporteurCode?1"GLS"1.E Set ..BonLevering.Verzendwijze="DI1" 
-    Else  If ..BonLevering.TransporteurCode?1"TTC"1.E Set ..BonLevering.Verzendwijze="DI2"
-    Else  If ..BonLevering.TransporteurCode?1"JETC"1.E Set ..BonLevering.Verzendwijze="SNT"
-    Else  If ..BonLevering.TransporteurCode?1"JETL"1.E Set ..BonLevering.Verzendwijze="SNT"
-    Else  If ..BonLevering.TransporteurCode?1"TMJ"1.E Set ..BonLevering.Verzendwijze="SNT"
-    Else  If ..BonLevering.TransporteurCode?1"TNT"1.E Set ..BonLevering.Verzendwijze="DI"
-    Else  If ..BonLevering.TransporteurCode?1"DHL"1.E Set ..BonLevering.Verzendwijze="DI"
-    Else  If ..BonLevering.TransporteurCode?1"FEDEX"1.E Set ..BonLevering.Verzendwijze="DI"
-    Else  Set ..BonLevering.Verzendwijze="EXP"
+    If ..BonLevering.TransporteurCode?1"GLS".E Set ..BonLevering.Verzendwijze="DI1"  Quit
+    If ..BonLevering.TransporteurCode?1"TTC".E Set ..BonLevering.Verzendwijze="DI2" Quit
+    If ..BonLevering.TransporteurCode?1"JETC".E Set ..BonLevering.Verzendwijze="SNT" Quit
+    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"FEDEX".E Set ..BonLevering.Verzendwijze="DI" Quit
+    ; Else
+    Set ..BonLevering.Verzendwijze="EXP"
 ]]></Implementation>
 </Method>
 </Class>