Index: AXimpl/Admin/TRANSPORT/Levbon/BonLevering.cls.xml
===================================================================
diff -u
--- AXimpl/Admin/TRANSPORT/Levbon/BonLevering.cls.xml	(revision 0)
+++ AXimpl/Admin/TRANSPORT/Levbon/BonLevering.cls.xml	(revision 54969)
@@ -0,0 +1,98 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AXimpl.Admin.TRANSPORT.Levbon.BonLevering">
+<ClassType>persistent</ClassType>
+<Super>TECH.Persistent</Super>
+
+<Property name="LeveringBonNr">
+<Type>%String</Type>
+</Property>
+
+<Property name="AXCustomerID">
+<Type>%String</Type>
+</Property>
+
+<Property name="KlantNr">
+<Type>%String</Type>
+<Transient>1</Transient>
+</Property>
+
+<Property name="Verzendwijze">
+<Type>%String</Type>
+</Property>
+
+<Property name="VerzendDatum">
+<Type>%Date</Type>
+</Property>
+
+<Property name="OntvangstDatum">
+<Type>%Date</Type>
+</Property>
+
+<Property name="TransportID">
+<Type>%String</Type>
+</Property>
+
+<Property name="GroeperingID">
+<Type>%String</Type>
+</Property>
+
+<Property name="TransporteurID">
+<Type>%String</Type>
+</Property>
+
+<Property name="OrderID">
+<Type>%String</Type>
+</Property>
+
+<Index name="PrimaryKey">
+<IdKey>1</IdKey>
+<PrimaryKey>1</PrimaryKey>
+<Properties>OrderID,LeveringBonNr</Properties>
+<Unique>1</Unique>
+</Index>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^AXimpl.Admin.TRDBB.BonLeveringD</DataLocation>
+<DefaultData>BonLeveringDefaultData</DefaultData>
+<IdLocation>^AXimpl.Admin.TRDBB.BonLeveringD</IdLocation>
+<IndexLocation>^AXimpl.Admin.TRDBB.BonLeveringI</IndexLocation>
+<StreamLocation>^AXimpl.Admin.TRDBB.BonLeveringS</StreamLocation>
+<Data name="BonLeveringDefaultData">
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>LeveringBonNr</Value>
+</Value>
+<Value name="3">
+<Value>AXCustomerID</Value>
+</Value>
+<Value name="4">
+<Value>Verzendwijze</Value>
+</Value>
+<Value name="5">
+<Value>VerzendDatum</Value>
+</Value>
+<Value name="6">
+<Value>TransportID</Value>
+</Value>
+<Value name="7">
+<Value>GroeperingID</Value>
+</Value>
+<Value name="8">
+<Value>TransporteurID</Value>
+</Value>
+<Value name="9">
+<Value>OrderID</Value>
+</Value>
+<Value name="10">
+<Value>OntvangstDatum</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: AXimpl/Admin/TRANSPORT/Levbon/Processor.cls.xml
===================================================================
diff -u
--- AXimpl/Admin/TRANSPORT/Levbon/Processor.cls.xml	(revision 0)
+++ AXimpl/Admin/TRANSPORT/Levbon/Processor.cls.xml	(revision 54969)
@@ -0,0 +1,197 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AXimpl.Admin.TRANSPORT.Levbon.Processor">
+<IncludeCode>Prod.Product,BL.Derde.KlantSpecifiek</IncludeCode>
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="BeginDatum">
+<Type>%Date</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProcessDate">
+<Type>%Date</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="BonLevering">
+<Type>AXimpl.Admin.TRANSPORT.Levbon.BonLevering</Type>
+</Property>
+
+<Property name="Translator">
+<Type>AX.Uitgaand.EC.DataAX.impl.Translator</Type>
+</Property>
+
+<UDLText name="T">
+<Content><![CDATA[
+// d ##class(AXimpl.Admin.TRANSPORT.Levbon.Processor).%New().Process()
+
+]]></Content>
+</UDLText>
+
+<Method name="%OnNew">
+<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
+]]></Implementation>
+</Method>
+
+<Method name="Process">
+<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))
+	}
+]]></Implementation>
+</Method>
+
+<Method name="AddLevBon">
+<FormalSpec>KLNr,Node,BONNr</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))
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="SaveMetOrder">
+<FormalSpec>LijnRec</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()
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VoegtoeBonVerzendDatum">
+<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)
+]]></Implementation>
+</Method>
+
+<Method name="GeefBonLevering">
+<FormalSpec>KLNr,Node,BONNr</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
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VertaalVerzendwijzeVanBon">
+<FormalSpec>VerzendwijzeBon</FormalSpec>
+<Implementation><![CDATA[
+	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>
+<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()
+]]></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"
+]]></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"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>