Index: vhUnitTest/WS/EC/Unishop/InternationaleZending/Service/Test.cls.xml =================================================================== diff -u -r34921 -r34965 --- vhUnitTest/WS/EC/Unishop/InternationaleZending/Service/Test.cls.xml (.../Test.cls.xml) (revision 34921) +++ vhUnitTest/WS/EC/Unishop/InternationaleZending/Service/Test.cls.xml (.../Test.cls.xml) (revision 34965) @@ -76,7 +76,7 @@ #dim VerzendingMogelijkheidRepositoryMock As vhTest.Mock.WSimpl.EC.ExterneVerkoop.VerzendingMogelijkheidRepository = ##class(vhTest.Mock.WSimpl.EC.ExterneVerkoop.VerzendingMogelijkheidRepository).%New() Do VerzendingMogelijkheidRepositoryMock.VerwachtMethodCall("GeefViaOfferteIDEnVerzendingMogelijkheidID", OfferteID, VerzendingMogelijkheidID).DanReturn(VerzendingMogelijkheidDummy) - #dim OptieKeuze As WS.EC.ExterneVerkoop.dto.Selectie = ##class(WS.EC.ExterneVerkoop.dto.Selectie).%New() + #dim OptieKeuze As %Integer = 0 #dim Service As WS.EC.Unishop.InternationaleZending.Service = ##class(WS.EC.Unishop.InternationaleZending.Service).%New(VerkoopOfferteServiceMock,"","",VerzendingMogelijkheidRepositoryMock) Do Service.ZetGekozenVerzendingMogelijkheid(OfferteID,VerzendingMogelijkheidID,OptieKeuze) @@ -134,7 +134,7 @@ #dim VerzendingMogelijkheidRepositoryMock As vhTest.Mock.WSimpl.EC.ExterneVerkoop.VerzendingMogelijkheidRepository = ##class(vhTest.Mock.WSimpl.EC.ExterneVerkoop.VerzendingMogelijkheidRepository).%New() Do VerzendingMogelijkheidRepositoryMock.VerwachtMethodCall("GeefViaOfferteIDEnVerzendingMogelijkheidID", OfferteID, VerzendingMogelijkheidID).DanReturn(VerzendingMogelijkheidDummy) - #dim OptieKeuze As WS.EC.ExterneVerkoop.dto.Selectie = ##class(WS.EC.ExterneVerkoop.dto.Selectie).%New() + #dim OptieKeuze As %Integer = 0 #dim Service As WS.EC.Unishop.InternationaleZending.Service = ##class(WS.EC.Unishop.InternationaleZending.Service).%New(VerkoopOfferteServiceMock,"","",VerzendingMogelijkheidRepositoryMock) Do Service.ZetGekozenVerzendingMogelijkheid(OfferteID,VerzendingMogelijkheidID,OptieKeuze) ]]> Index: WS/EC/ExterneVerkoopService.cls.xml =================================================================== diff -u -r34921 -r34965 --- WS/EC/ExterneVerkoopService.cls.xml (.../ExterneVerkoopService.cls.xml) (revision 34921) +++ WS/EC/ExterneVerkoopService.cls.xml (.../ExterneVerkoopService.cls.xml) (revision 34965) @@ -131,28 +131,24 @@ WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden 1 OfferteID:%String,VerzendingMogelijkheidID:%Integer,OptieKeuze:%Integer 1 WS.EC.ExterneVerkoop.dto.Landen 1 - Index: WS/EC/Unishop/InternationaleZending/Service.cls.xml =================================================================== diff -u -r34921 -r34965 --- WS/EC/Unishop/InternationaleZending/Service.cls.xml (.../Service.cls.xml) (revision 34921) +++ WS/EC/Unishop/InternationaleZending/Service.cls.xml (.../Service.cls.xml) (revision 34965) @@ -74,6 +74,12 @@ OfferteID:%String,VerzendingMogelijkheidID:%Integer,OptieKeuze:%Integer 4) { + Do ..OngeldigeVerzendKeuze() + } elseif (OptieKeuze > 1) { + Do ..OngeldigeOptieKeuze() + } + #dim Offerte As APPS.VKP.Offerte = ..OfferteService.GeefOfferte(OfferteID) #dim VerzendingMogelijkheid As WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid = ..VerzendingMogelijkheidRepository.GeefViaOfferteIDEnVerzendingMogelijkheidID(OfferteID,VerzendingMogelijkheidID) Do Offerte.ZetVerzendingItem($$ConstructClone^vhLib.Class(VerzendingMogelijkheid.Verzending,##class(APPS.VKP.impl.Offerte.VerzendingItem).%ClassName(1))) @@ -201,6 +207,22 @@ Quit Selecties ]]> + + +1 + + + + +1 + + Index: APPS/TRANSP/Offerte/impl/UPS/BerekenInputValidator.cls.xml =================================================================== diff -u -r34830 -r34965 --- APPS/TRANSP/Offerte/impl/UPS/BerekenInputValidator.cls.xml (.../BerekenInputValidator.cls.xml) (revision 34830) +++ APPS/TRANSP/Offerte/impl/UPS/BerekenInputValidator.cls.xml (.../BerekenInputValidator.cls.xml) (revision 34965) @@ -29,9 +29,6 @@ - -GewensteLeverDatum:%Date,VroegsteLeverDatum:%Date -1 - ..GeefUitersteDatum()) - { - Do ..RegistreerFoutmelding("De gewenste leverdatum kan niet zo ver in de toekomst plaatsvinden.","GewensteLeverDatum",GewensteLeverDatumTekst) - } -]]> - - LeverAdres:APPS.TRANSP.dto.InternationaalAdres 1