Index: APPS/TRANSP/Transsmart/impl/RequestDataBouwer.cls.xml =================================================================== diff -u -r66985 -r67757 --- APPS/TRANSP/Transsmart/impl/RequestDataBouwer.cls.xml (.../RequestDataBouwer.cls.xml) (revision 66985) +++ APPS/TRANSP/Transsmart/impl/RequestDataBouwer.cls.xml (.../RequestDataBouwer.cls.xml) (revision 67757) @@ -193,7 +193,7 @@ ##class(TECH.DateTime).BerekenWerkdag(Datum,1) ) { Set Datum = ##class(TECH.DateTime).BerekenWerkdag(Datum,1) @@ -206,7 +206,13 @@ Set Datum = +(..DateTimeAPI.CurrentHorolog()) } } - + + If (Rit.GeefTransporteur() = Transporteur.Dachser) { ; als de afleverdatum groter is dan binnen 2 werkdagen, zet dan de pickupdatum op binnen 2 werkdagen + If (LeveringInfo.AfleverDatum > ##class(TECH.DateTime).BerekenWerkdag(Datum, 2) ) { + Set Datum = ##class(TECH.DateTime).BerekenWerkdag(Datum, 2) + } + } + Quit ##class(TECH.Format.impl.FormatAPI).%New().FormatHorolog(Datum,"JJJJ-MM-DD") ]]> @@ -358,6 +364,9 @@ if (GeleverdAanKlantID = Klant.HaefeleBelgie) && (..ProjectSettingsAPI.IsActiefHaefeleBENaarEindklant()) { Set CostCenter = ##class(AXimpl.AdminToAxUtils).ConvertCustomerID(GeleverdAanKlantID) } + if (GeleverdAanKlantID = Klant.OPO) { + Set CostCenter = ##class(AXimpl.AdminToAxUtils).ConvertCustomerID(GeleverdAanKlantID) + } if (GeleverdAanKlantID = Klant.VanRaemdonck) && (..ProjectSettingsAPI.IsActiefVanRaemdonckNaarEindklant()) { Set CostCenter = ##class(AXimpl.AdminToAxUtils).ConvertCustomerID(GeleverdAanKlantID) } Index: vhUnitTest/APPS/TRANSP/Transsmart/impl/RequestDataBouwer/Test.cls.xml =================================================================== diff -u -r66780 -r67757 --- vhUnitTest/APPS/TRANSP/Transsmart/impl/RequestDataBouwer/Test.cls.xml (.../Test.cls.xml) (revision 66780) +++ vhUnitTest/APPS/TRANSP/Transsmart/impl/RequestDataBouwer/Test.cls.xml (.../Test.cls.xml) (revision 67757) @@ -47,6 +47,31 @@ ]]> + + + +