Index: AXimpl/Admin/TRANSPORT/Levbon/Processor.cls.xml
===================================================================
diff -u -r54969 -r55346
--- AXimpl/Admin/TRANSPORT/Levbon/Processor.cls.xml	(.../Processor.cls.xml)	(revision 54969)
+++ AXimpl/Admin/TRANSPORT/Levbon/Processor.cls.xml	(.../Processor.cls.xml)	(revision 55346)
@@ -30,165 +30,210 @@
 </UDLText>
 
 <Method name="%OnNew">
+<FormalSpec>AllVlag=0</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..BeginDatum=$H-90
-	Set ..ProcessDate=+$H
-	k ^AXimpl.Admin.TRDBB.BonLeveringD
-	Set ..Translator=##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New()
-	Quit $$$OK
+    Set ..BeginDatum=$H-30
+    
+    If AllVlag
+    {
+        k ^AXimpl.Admin.TRDBB.BonLeveringD
+        Set ..BeginDatum=$H-90
+    }
+    Set ..ProcessDate=+$H
+    Set ..Translator=##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New()
+    Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="Process">
-<Implementation><![CDATA[	Do ..ProcessLevBon()
+<Implementation><![CDATA[    Do ..ProcessLevBon()
 ]]></Implementation>
 </Method>
 
 <Method name="ProcessLevBon">
 <Implementation><![CDATA[
-	Set KLNr=$O(^KUL(0))
-	While KLNr
-	{
-		If KLNr'=$$$KlantHalux
-		{
-			Set Node=$O(^KUL(KLNr,0))
-			While Node'=""
-			{
-				Set BONNr=$O(^KUL(KLNr,Node,0))
-				While BONNr
-				{
-					Do ..AddLevBon(KLNr,Node,BONNr)
-					Set BONNr=$O(^KUL(KLNr,Node,BONNr))
-				}
-				Set Node=$O(^KUL(KLNr,Node))
-			}
-		}
-		Set KLNr=$O(^KUL(KLNr))
-	}
+    Set KLNr=$O(^KUL(0))
+    While KLNr
+    {
+        If KLNr'=$$$KlantHalux
+        {
+            Set Node=$O(^KUL(KLNr,0))
+            While Node'=""
+            {
+                Set BONNr=$O(^KUL(KLNr,Node,0))
+                While BONNr
+                {
+                    Do ..AddLevBon(KLNr,Node,BONNr)
+                    Set BONNr=$O(^KUL(KLNr,Node,BONNr))
+                }
+                Set Node=$O(^KUL(KLNr,Node))
+            }
+        }
+        Set KLNr=$O(^KUL(KLNr))
+    }
 ]]></Implementation>
 </Method>
 
 <Method name="AddLevBon">
-<FormalSpec>KLNr,Node,BONNr</FormalSpec>
+<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.OntvangstDatum'<..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 ..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))
+        }
+    }
 ]]></Implementation>
 </Method>
 
 <Method name="SaveMetOrder">
-<FormalSpec>LijnRec</FormalSpec>
+<FormalSpec>LijnRec:%String</FormalSpec>
 <Implementation><![CDATA[
-	If $P(LijnRec,"\",17)?1"KF5".E
-	{ 
-		Set OrderID=$P(LijnRec,"\",29)
-		If $L(OrderID)
-		{
-			Set BonLevering=..BonLevering.%ConstructClone()
-			Set BonLevering.OrderID=OrderID
-			Do BonLevering.Save()
-		}
-	}
+    If $P(LijnRec,"\",17)?1"KF5".E
+    { 
+        Set OrderID=$P(LijnRec,"\",29)
+        If $L(OrderID)
+        {
+            #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()
+        }
+    }
 ]]></Implementation>
 </Method>
 
-<Method name="VoegtoeBonVerzendDatum">
+<Method name="VoegtoeBonVerzendwijzeEnDatum">
 <Implementation><![CDATA[
-	Set blVerzendWijze=##class(APPS.VKP.VerzendWijze).%New(..BonLevering.KlantNr,..BonLevering.Verzendwijze)
-	Set blLevTermijn=##class(APPS.VKP.LeveringsTermijn).%New(,blVerzendWijze)
-	Set ..BonLevering.VerzendDatum=blLevTermijn.GetLaatstePicking(..BonLevering.OntvangstDatum)
+    Set blVerzendWijze=##class(APPS.VKP.VerzendWijze).%New(..BonLevering.KlantNr,..BonLevering.Verzendwijze)
+    Set blLevTermijn=##class(APPS.VKP.LeveringsTermijn).%New(,blVerzendWijze)
+    Set ..BonLevering.VerzendDatum=blLevTermijn.GetLaatstePicking(..BonLevering.VerwachteOntvangstDatum)
 ]]></Implementation>
 </Method>
 
+<Method name="VoegtoePickTijdstip">
+<FormalSpec>CONSNr:%String</FormalSpec>
+<Implementation><![CDATA[
+    #define TimeStamp(%dat) $S( %dat?5N1","1.6N : $zdt(%dat,3) , 1 : "")
+    Set CONSRec=$G(^ORDW("D",CONSNr))
+    Set ..BonLevering.PickingDueOutTijdstip=$$$TimeStamp($P(CONSRec,"\",3))
+    Set ..BonLevering.PickingKlaarTijdstip=$$$TimeStamp($P(CONSRec,"\",19))
+    Set ..BonLevering.PickingGekendTijdstip=$$$TimeStamp($P(CONSRec,"\",18))
+    Set ..BonLevering.PickingActivatieTijdstip=$$$TimeStamp($P(CONSRec,"\",22))
+]]></Implementation>
+</Method>
+
 <Method name="GeefBonLevering">
-<FormalSpec>KLNr,Node,BONNr</FormalSpec>
+<FormalSpec>KLNr:%String,Node:%String,BONNr:%String</FormalSpec>
 <Implementation><![CDATA[
-	Set Rec=^KUL(KLNr,Node,BONNr,1)
-	Set TransportLink=$P(Rec,"\",8)
-	Set TRANSNr=$P(TransportLink,";")
-	Set GroepBONNr=$P(TransportLink,";",2)
-	Set ..BonLevering.LeveringBonNr=BONNr
-	Set ..BonLevering.KlantNr=KLNr
-	Set ..BonLevering.AXCustomerID=..Translator.GeefCustomerIDForAX(KLNr)
-	Do ..VertaalVerzendwijzeVanBon($P(Rec,"\",7))
-	Set ..BonLevering.OntvangstDatum=$$INTDATE^vhLib.DataTypes($P(Rec,"\",2))
-	Do ..VoegtoeBonVerzendDatum()
-	
-	If TRANSNr,GroepBONNr
-	{
-		Set AdresRec=^TRANSP("D",TRANSNr,"D",GroepBONNr)
-		Set TransRec=^TRANSP("D",TRANSNr)
-		Set VerzendDatum=$P(TransRec,"\",11)
-		Set:VerzendDatum="" VerzendDatum=$P(TransRec,"\",8)
-		Set:VerzendDatum="" VerzendDatum=$P(TransRec,"\",12)
-		If VerzendDatum'=""
-		{
-			Set ..BonLevering.VerzendDatum=+VerzendDatum
-			Do ..GeefVerzendwijzeVanTransport(TRANSNr)
-			Set ..BonLevering.TransportID=TRANSNr
-			Set ..BonLevering.GroeperingID=GroepBONNr
-		}
-	}
+    Set Rec=^KUL(KLNr,Node,BONNr,1)
+    Set AdresRec=^KUL(KLNr,Node,BONNr,3)
+    Set TransportLink=$P(Rec,"\",8)
+    Set TRANSNr=$P(TransportLink,";")
+    Set GroepBONNr=$P(TransportLink,";",2)
+    Set ..BonLevering.LeveringBonNr=BONNr
+    Set ..BonLevering.KlantNr=KLNr
+    Set ..BonLevering.AXCustomerID=..Translator.GeefCustomerIDForAX(KLNr)
+    Set ..BonLevering.Naam=$P(AdresRec,"\",2)
+    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)
+    Do ..VertaalVerzendwijzeVanBon($P(Rec,"\",7))
+    Set ..BonLevering.VerwachteOntvangstDatum=$$INTDATE^vhLib.DataTypes($P(Rec,"\",2))
+    Do ..VoegtoeBonVerzendwijzeEnDatum()
+    Do ..VoegtoePickTijdstip(BONNr)
+    
+    If TRANSNr,GroepBONNr
+    {
+        Set GroepRec=^TRANSP("D",TRANSNr,"D",GroepBONNr)
+        Set TransRec=^TRANSP("D",TRANSNr)
+        Set VerzendDatum=$P(TransRec,"\",11)
+        Set:VerzendDatum="" VerzendDatum=$P(TransRec,"\",8)
+        Set:VerzendDatum="" VerzendDatum=$P(TransRec,"\",12)
+        If VerzendDatum'=""
+        {
+            Set ..BonLevering.VerzendDatum=+VerzendDatum
+            Do ..GeefVerzendwijzeVanTransport(TRANSNr)
+            Set ..BonLevering.TransportID=TRANSNr
+            Set ..BonLevering.GroeperingID=GroepBONNr
+            
+            ; Adresgegevens
+            If $D(^TRANSP("D",TRANSNr,"D",GroepBONNr,"A"))
+            {
+                Set AdresRec=$G(^TRANSP("D",TRANSNr,"D",GroepBONNr,"A"))
+                Set ..BonLevering.Naam=$P(AdresRec,"\",2)
+                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)
+            }
+            
+            ; 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")),"\")
+        }
+    }
 ]]></Implementation>
 </Method>
 
 <Method name="VertaalVerzendwijzeVanBon">
-<FormalSpec>VerzendwijzeBon</FormalSpec>
+<FormalSpec>VerzendwijzeBon:%String</FormalSpec>
 <Implementation><![CDATA[
-	Set Verzendwijze=$P($P($P(VerzendwijzeBon,"#"),";"),":")
-	Set:$E(Verzendwijze,$L(Verzendwijze))=" " $E(Verzendwijze,$L(Verzendwijze))=""
-	Set ..BonLevering.Verzendwijze=Verzendwijze
-	Do ..VertaalVerzendwijzeNaarTransporteur()
+    Set Verzendwijze=$P($P($P(VerzendwijzeBon,"#"),";"),":")
+    Set:$E(Verzendwijze,$L(Verzendwijze))=" " $E(Verzendwijze,$L(Verzendwijze))=""
+    Set ..BonLevering.Verzendwijze=Verzendwijze
+    Do ..VertaalVerzendwijzeNaarTransporteur()
 ]]></Implementation>
 </Method>
 
 <Method name="GeefVerzendwijzeVanTransport">
-<FormalSpec>TRANSNr</FormalSpec>
+<FormalSpec>TRANSNr:%String</FormalSpec>
 <Implementation><![CDATA[
-	Set TransRec=^TRANSP("D",TRANSNr)
-	Set LEVNr=$P(TransRec,"\",1)
-	Quit:'$D(^TRANSP("T",LEVNr))
-	Set ..BonLevering.TransporteurID=$P(^TRANSP("T",LEVNr),"\")
-	Do ..VertaalTransporteurNaarVerzendwijze()
+    Set TransRec=^TRANSP("D",TRANSNr)
+    Set LEVNr=$P(TransRec,"\",1)
+    Set ..BonLevering.TransporteurID=..Translator.GeefCustomerIDForAX(LEVNr) ; zelfde vertaling voor leverancier als klant (0 er voor plaatsen)
+    Quit:'$D(^TRANSP("T",LEVNr))
+    Set ..BonLevering.TransporteurCode=$P(^TRANSP("T",LEVNr),"\")
+    Do ..VertaalTransporteurNaarVerzendwijze()
 ]]></Implementation>
 </Method>
 
 <Method name="VertaalVerzendwijzeNaarTransporteur">
 <Implementation><![CDATA[
-	If ..BonLevering.Verzendwijze?1"OD".E Set ..BonLevering.TransporteurID="OD"
-	If ..BonLevering.Verzendwijze?1"R"2N.E Set ..BonLevering.TransporteurID="VTW"
-	If ..BonLevering.Verzendwijze?1"AF".E Set ..BonLevering.TransporteurID="AFH"
-	;
-	If ..BonLevering.Verzendwijze?1"DD1".E Set ..BonLevering.Verzendwijze="DI1"
-	If ..BonLevering.Verzendwijze?1"SRV".E Set ..BonLevering.Verzendwijze="VTW"
+    If ..BonLevering.Verzendwijze?1"OD".E Set ..BonLevering.TransporteurCode="OD"
+    If ..BonLevering.Verzendwijze?1"R"2N.E Set ..BonLevering.TransporteurCode="VTW"
+    If ..BonLevering.Verzendwijze?1"AF".E Set ..BonLevering.TransporteurCode="AFH"
+    ;
+    If ..BonLevering.Verzendwijze?1"DD1".E Set ..BonLevering.Verzendwijze="DI1"
+    If ..BonLevering.Verzendwijze?1"SRV".E Set ..BonLevering.Verzendwijze="VTW"
 ]]></Implementation>
 </Method>
 
 <Method name="VertaalTransporteurNaarVerzendwijze">
 <Implementation><![CDATA[
-	If ..BonLevering.TransporteurID?1"GLS"1.E Set ..BonLevering.Verzendwijze="DI1" 
-	Else  If ..BonLevering.TransporteurID?1"TTC"1.E Set ..BonLevering.Verzendwijze="DI2"
-	Else  If ..BonLevering.TransporteurID?1"JETC"1.E Set ..BonLevering.Verzendwijze="SNT"
-	Else  If ..BonLevering.TransporteurID?1"JETL"1.E Set ..BonLevering.Verzendwijze="SNT"
-	Else  If ..BonLevering.TransporteurID?1"TMJ"1.E Set ..BonLevering.Verzendwijze="SNT"
-	Else  If ..BonLevering.TransporteurID?1"TNT"1.E Set ..BonLevering.Verzendwijze="DI"
-	Else  If ..BonLevering.TransporteurID?1"DHL"1.E Set ..BonLevering.Verzendwijze="DI"
-	Else  If ..BonLevering.TransporteurID?1"FEDEX"1.E Set ..BonLevering.Verzendwijze="DI"
-	Else  Set ..BonLevering.Verzendwijze="EXP"
+    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"
 ]]></Implementation>
 </Method>
 </Class>