Index: WS/EC/Unishop/InternationaleZending/DummyService.cls.xml =================================================================== diff -u -r33974 -r33987 --- WS/EC/Unishop/InternationaleZending/DummyService.cls.xml (.../DummyService.cls.xml) (revision 33974) +++ WS/EC/Unishop/InternationaleZending/DummyService.cls.xml (.../DummyService.cls.xml) (revision 33987) @@ -69,6 +69,10 @@ } elseif (OptieKeuze > 1) { Do ..OngeldigeOptieKeuze() } + #dim Offerte As APPS.VKP.Offerte = ..OfferteService.GeefOfferte(OfferteId) + Do Offerte.ZetLeverDatum(##class(TECH.DateTime).DatumBereken(..GeefHuidigeDatum(),14, ##class(TECH.enu.DatePart).Dag())) + #dim OfferteBewaarder As APPS.VKP.OfferteBewaarder = ..OfferteService.GeefOfferteBewaarder() + Do OfferteBewaarder.Bewaar(Offerte) ]]> Index: vhUnitTest/WS/EC/Unishop/InternationaleZending/Service/Test.cls.xml =================================================================== diff -u -r33903 -r33987 --- vhUnitTest/WS/EC/Unishop/InternationaleZending/Service/Test.cls.xml (.../Test.cls.xml) (revision 33903) +++ vhUnitTest/WS/EC/Unishop/InternationaleZending/Service/Test.cls.xml (.../Test.cls.xml) (revision 33987) @@ -58,6 +58,7 @@ #dim VerkoopOfferteDummy As vhTest.Mock.APPS.VKP.Offerte = ##class(vhTest.Mock.APPS.VKP.Offerte).%New() Do VerkoopOfferteDummy.VerwachtMethodCall("ZetVerzendingMogelijkheid",$$$ElkeWaarde).DanDoeNiks() + Do VerkoopOfferteDummy.IndienMethodCall("ZetLeverDatum",$$$ElkeWaarde).DanDoeNiks() Do VerkoopOfferteDummy.VerwachtMethodCall("ZetCarbonNeutral",$$$ElkeWaarde).DanDoeNiks() #dim OfferteBewaarderDummy As vhTest.Mock.APPS.VKP.OfferteBewaarder = ##class(vhTest.Mock.APPS.VKP.OfferteBewaarder).%New() @@ -114,6 +115,7 @@ #dim VerkoopOfferteDummy As vhTest.Mock.APPS.VKP.Offerte = ##class(vhTest.Mock.APPS.VKP.Offerte).%New() Do VerkoopOfferteDummy.IndienMethodCall("ZetVerzendingMogelijkheid",$$$ElkeWaarde).DanDoeNiks() + Do VerkoopOfferteDummy.IndienMethodCall("ZetLeverDatum",$$$ElkeWaarde).DanDoeNiks() Do VerkoopOfferteDummy.IndienMethodCall("ZetCarbonNeutral",$$$ElkeWaarde).DanDoeNiks() #dim OfferteBewaarderDummy As vhTest.Mock.APPS.VKP.OfferteBewaarder = ##class(vhTest.Mock.APPS.VKP.OfferteBewaarder).%New() Index: WS/EC/Unishop/InternationaleZending/Service.cls.xml =================================================================== diff -u -r33903 -r33987 --- WS/EC/Unishop/InternationaleZending/Service.cls.xml (.../Service.cls.xml) (revision 33903) +++ WS/EC/Unishop/InternationaleZending/Service.cls.xml (.../Service.cls.xml) (revision 33987) @@ -79,6 +79,7 @@ #dim VerzendingMogelijkheid As WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid = ..VerzendingMogelijkheidRepository.GeefViaID(VerzendingMogelijkheidID) Do Offerte.ZetVerzendingMogelijkheid(VerzendingMogelijkheid) Do Offerte.ZetCarbonNeutral(..OptieKeuzeConverteer(OptieKeuze)) + Do Offerte.ZetLeverDatum(VerzendingMogelijkheid.Verzending.LeverDatum) #dim OfferteBewaarder As APPS.VKP.OfferteBewaarder = ..OfferteService.GeefOfferteBewaarder() Do OfferteBewaarder.Bewaar(Offerte) Do ..VerzendingMogelijkheidRepository.VerwijderViaOfferteID(OfferteID)