Index: APPS/TRANSP/Transsmart/impl/RequestDataBouwer.cls.xml
===================================================================
diff -u -r70950 -r71039
--- APPS/TRANSP/Transsmart/impl/RequestDataBouwer.cls.xml (.../RequestDataBouwer.cls.xml) (revision 70950)
+++ APPS/TRANSP/Transsmart/impl/RequestDataBouwer.cls.xml (.../RequestDataBouwer.cls.xml) (revision 71039)
@@ -229,6 +229,12 @@
If (LeveringInfo.GeleverdAanKlantNummer = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(Klant.HaefeleZwitserland) ) {
Set Incoterms = "083"
}
+ }
+ If (Rit.GeefTransporteur() = Transporteur.Schenker) {
+ If (LeveringInfo.GeleverdAanKlantNummer = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(Klant.BlumPolen) ) {
+ Set Incoterms = "083"
+ }
+
}
Set:(Rit.GeefTransporteur() = Transporteur.DHL) Incoterms="CPT"
@@ -262,6 +268,9 @@
If ((Rit.GeefTransporteur() = Transporteur.Dachser) && (GeleverdAanKlantNummer = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(Klant.OPO))) { ; Zet de pickup datum op vandaag plus 2 werkdagen
Set Datum = ##class(TECH.DateTime).BerekenWerkdag(Datum, 2)
}
+ If ((Rit.GeefTransporteur() = Transporteur.Schenker) && (GeleverdAanKlantNummer = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(Klant.BlumPolen))) { ; Zet de pickup datum op vandaag plus 2 werkdagen
+ Set Datum = ##class(TECH.DateTime).BerekenWerkdag(Datum, 2)
+ }
Quit ##class(TECH.Format.impl.FormatAPI).%New().FormatHorolog(Datum,"JJJJ-MM-DD")
]]>
@@ -366,7 +375,7 @@
%String
@@ -509,6 +519,7 @@
Set:(Rit.GeefTransporteur() = Transporteur.HamannHDE) ServiceLevelTime = "NOSTACK"
Set:(Rit.GeefTransporteur() = Transporteur.Dachser) ServiceLevelTime = "TARGOFLEX"
Set:(Rit.GeefTransporteur() = Transporteur.Weiss) ServiceLevelTime ="STANDARD"
+ Set:(Rit.GeefTransporteur() = Transporteur.Schenker) ServiceLevelTime ="TODOSCHENKER"
Quit ServiceLevelTime
]]>