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