Index: vhTestFiles/UnitTests/APPS.TRANSP.Transsmart.impl.RequestDataBouwer/Test/TestdoBookingERBMagazijnwerktopvoorhandgeeninvloedoppickupdatum/doBookingRequestERBLeveringVolgendeWerkdag.xml
===================================================================
diff -u
--- vhTestFiles/UnitTests/APPS.TRANSP.Transsmart.impl.RequestDataBouwer/Test/TestdoBookingERBMagazijnwerktopvoorhandgeeninvloedoppickupdatum/doBookingRequestERBLeveringVolgendeWerkdag.xml (revision 0)
+++ vhTestFiles/UnitTests/APPS.TRANSP.Transsmart.impl.RequestDataBouwer/Test/TestdoBookingERBMagazijnwerktopvoorhandgeeninvloedoppickupdatum/doBookingRequestERBLeveringVolgendeWerkdag.xml (revision 62836)
@@ -0,0 +1,67 @@
+
+
+
+ ERB
+ WEB
+ 0
+ NL
+ doBooking
+ 2.0
+
+
+ referentie
+
+
+ DELIVERYID
+ 12345
+
+
+ CUSTOMER
+ 1000
+
+
+ OTHER
+ referentie
+
+
+ 2011-06-30
+ NOSTACK
+ 0
+ 0
+ 1
+
+
+ 1
+ Wwpallet
+ 1
+
+ 0
+ 0
+ 0
+ .5
+ CM
+ KG
+
+
+
+
+
+ SEND
+ Van Hoecke
+ Europark Noord
+ Sint Niklaas
+ 9
+ 9100
+ BE
+
+
+ RECV
+ Een Belg
+ Ankerstraat 91
+ Sint-Niklaas
+ 9100
+ BE
+
+
+
+
\ No newline at end of file
Index: APPS/TRANSP/Transsmart/impl/RequestDataBouwer.cls.xml
===================================================================
diff -u -r62169 -r62836
--- APPS/TRANSP/Transsmart/impl/RequestDataBouwer.cls.xml (.../RequestDataBouwer.cls.xml) (revision 62169)
+++ APPS/TRANSP/Transsmart/impl/RequestDataBouwer.cls.xml (.../RequestDataBouwer.cls.xml) (revision 62836)
@@ -138,7 +138,7 @@
Set ShipmentInfo.serviceLevelTime = ..BepaalShipmentInfoServiceLevelTime(Rit)
Set ShipmentInfo.inbound = 0
Set ShipmentInfo.loadmeter = 0
- Set ShipmentInfo.pickupDate = ..BepaalPickupDate(LeveringInfo)
+ Set ShipmentInfo.pickupDate = ..BepaalPickupDate(LeveringInfo,Rit)
Set ShipmentInfo.noOfPackages = LeveringInfo.AantalVerpakkingEenhedenTotaal
Set ShipmentInfo.instruction = ..GeefInstruction(LeveringInfo)
@@ -170,16 +170,17 @@
-LeveringInfo:APPS.TRANSP.dto.LeveringInfo
+LeveringInfo:APPS.TRANSP.dto.LeveringInfo,Rit:DOM.TRANSP.Rit
1
%String
##class(TECH.DateTime).BerekenWerkdag(Datum,1) ) {
-
- Set Datum = ##class(TECH.DateTime).BerekenWerkdag(Datum,1)
+ If (Rit.GeefTransporteur() = Transporteur.VRD) || (Rit.GeefTransporteur() = Transporteur.DHL) {
+ If (LeveringInfo.AfleverDatum > ##class(TECH.DateTime).BerekenWerkdag(Datum,1) ) {
+ Set Datum = ##class(TECH.DateTime).BerekenWerkdag(Datum,1)
+ }
}
Quit ##class(TECH.Format.impl.FormatAPI).%New().FormatHorolog(Datum,"JJJJ-MM-DD")
]]>
Index: vhUnitTest/APPS/TRANSP/Transsmart/impl/RequestDataBouwer/Test.cls.xml
===================================================================
diff -u -r62172 -r62836
--- vhUnitTest/APPS/TRANSP/Transsmart/impl/RequestDataBouwer/Test.cls.xml (.../Test.cls.xml) (revision 62172)
+++ vhUnitTest/APPS/TRANSP/Transsmart/impl/RequestDataBouwer/Test.cls.xml (.../Test.cls.xml) (revision 62836)
@@ -123,6 +123,21 @@
]]>
+
+
+
+