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 ]]>