Index: APPS/TRANSP/Transsmart/impl/RequestDataBouwer.cls.xml =================================================================== diff -u -r74245 -r74329 --- APPS/TRANSP/Transsmart/impl/RequestDataBouwer.cls.xml (.../RequestDataBouwer.cls.xml) (revision 74245) +++ APPS/TRANSP/Transsmart/impl/RequestDataBouwer.cls.xml (.../RequestDataBouwer.cls.xml) (revision 74329) @@ -251,8 +251,9 @@ } } If (Rit.GeefTransporteur() = Transporteur.Schenker) { - - If (LeveringInfo.GeleverdAanKlantNummer = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(Klant.BlumPolen) ) { + #dim GeleverdAanKlantID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(LeveringInfo.GeleverdAanKlantNummer) + Set Klant = ##class(DOM.VKP.enu.Klant.AutoComplete).%New() + if ##class(TECH.StringUtils).Equals(GeleverdAanKlantID,Klant.BlumPolen,Klant.BlumTsjechie){ Set Incoterms = "EXW" } @@ -294,7 +295,10 @@ } } - If ((Rit.GeefTransporteur() = Transporteur.Schenker) && (GeleverdAanKlantNummer = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(Klant.BlumPolen))) { ; Zet de pickup datum op vandaag plus 2 werkdagen + If ((Rit.GeefTransporteur() = Transporteur.Schenker) && + ((GeleverdAanKlantNummer = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(Klant.BlumPolen)) || + (GeleverdAanKlantNummer = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(Klant.BlumTsjechie))) ) + { ; Zet de pickup datum op vandaag plus 2 werkdagen Set Datum = ##class(TECH.DateTime).BerekenWerkdag(Datum, 1) } @@ -504,7 +508,7 @@ #dim GeleverdAanKlantID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(LeveringInfo.GeleverdAanKlantNummer) #dim CostCenter as %String = "" Set Klant = ##class(DOM.VKP.enu.Klant.AutoComplete).%New() - if ##class(TECH.StringUtils).Equals(GeleverdAanKlantID,Klant.HaefeleNederland,Klant.DuPont,Klant.OPO,Klant.OPODuitsland,Klant.BlumPolen){ + if ##class(TECH.StringUtils).Equals(GeleverdAanKlantID,Klant.HaefeleNederland,Klant.DuPont,Klant.OPO,Klant.OPODuitsland,Klant.BlumPolen,Klant.BlumTsjechie){ Set CostCenter = ##class(AXimpl.AdminToAxUtils).ConvertCustomerID(GeleverdAanKlantID) } if (GeleverdAanKlantID = Klant.HaefeleBelgie) && (..ProjectSettingsAPI.IsActiefHaefeleBENaarEindklant()) {