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