Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar.cls.xml =================================================================== diff -u -r42006 -r42346 --- WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar.cls.xml (.../BestelWinkelkar.cls.xml) (revision 42006) +++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar.cls.xml (.../BestelWinkelkar.cls.xml) (revision 42346) @@ -54,8 +54,8 @@ #dim OfferteID As %String = ..WinkelkarRepository.GeefOfferteIDViaID(BestelWinkelkarRequest.Winkelkar.Id) Do ..VerkoopService.ZetOfferteHoofding(OfferteID, ..MaakHoofding(BestelWinkelkarRequest)) - Do ..VerkoopService.BestelOfferte(OfferteID, KlantPartijID, ##class(DOM.common.enu.Personality).VanHoecke()) - + Do ..VerkoopService.BestelOfferte(OfferteID, KlantPartijID, BestelWinkelkarRequest.Header.PersonalityId) + If ..CheckoutTypeBepaler.Bepaal(BestelWinkelkarRequest.Header.PersonalityId, KlantPartijID) = ##class(APPS.EC.Unishop.enu.CheckoutType).MetTransportKeuze() { Do ..TransportService.ZetGekozenVerzendingMogelijkheid(OfferteID, BestelWinkelkarRequest.VerzendingMogelijkheidID, BestelWinkelkarRequest.OptieKeuze) Index: APPS/EC/Verkoop/impl/Externe/VerkoopService.cls.xml =================================================================== diff -u -r42068 -r42346 --- APPS/EC/Verkoop/impl/Externe/VerkoopService.cls.xml (.../VerkoopService.cls.xml) (revision 42068) +++ APPS/EC/Verkoop/impl/Externe/VerkoopService.cls.xml (.../VerkoopService.cls.xml) (revision 42346) @@ -183,7 +183,7 @@ #Dim KlantInstellingenService As APPS.common.KlantInstellingenService = ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefKlantInstellingenService(Personality) #Dim OfferteBesteller As APPS.EC.impl.ExterneVerkoopService.OfferteBesteller = ##class(APPS.EC.impl.ExterneVerkoopService.OfferteBesteller).%New(..OfferteService, KlantInstellingenService) - Do ##class(vhLib.Logger).%New().Info("BestelOfferte","Bestel Offerte '"_OfferteID_"' voor klant '"_KlantID_"' (van "_Personality.GeefNaam()_" ("_PersonalityID_").") + Do ##class(vhLib.Logger).%New().Info("BestelOfferte","Bestel Offerte '"_OfferteID_"' voor klant '"_KlantID_"' (van "_Personality.GeefNaam()_" ("_PersonalityID_")).") Do OfferteBesteller.BestelOfferte(OfferteID, KlantID, PersonalityID) ]]> Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/Test.cls.xml =================================================================== diff -u -r42006 -r42346 --- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/Test.cls.xml (.../Test.cls.xml) (revision 42006) +++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/Test.cls.xml (.../Test.cls.xml) (revision 42346) @@ -47,7 +47,7 @@ Do ..LegacyPartijAPIMock.VerwachtMethodCall("IsKlantPartijID","KlantId").DanReturn($$$True) Do ..WinkelkarRepositoryMock.VerwachtMethodCall("GeefOfferteIDViaID", "WinkelkarId").DanReturn("DummyID") Do ..VerkoopServiceMock.VerwachtMethodCall("ZetOfferteHoofding", "DummyID", ..Matches.DataTransferObject(VerwachteHoofding)).DanDoeNiks() - Do ..VerkoopServiceMock.VerwachtMethodCall("BestelOfferte", "DummyID", "KlantId",##class(DOM.common.enu.Personality).VanHoecke()).DanDoeNiks() + Do ..VerkoopServiceMock.VerwachtMethodCall("BestelOfferte", "DummyID", "KlantId", "PersonalityId").DanDoeNiks() Do ..CheckoutTypeBepalerMock.VerwachtMethodCall("Bepaal", "PersonalityId","KlantId").DanReturn(##class(APPS.EC.Unishop.enu.CheckoutType).MetTransportKeuze()) Do ..TransportServiceMock.VerwachtMethodCall("ZetGekozenVerzendingMogelijkheid","DummyID","VerzendingMogelijkheidID","OptieKeuze").ExactAantalKeer(1).DanDoeNiks()