Index: WS/Vhisie4/Winkelkar/BereidVoorBestellingResponse.cls.xml =================================================================== diff -u -r39991 -r41324 --- WS/Vhisie4/Winkelkar/BereidVoorBestellingResponse.cls.xml (.../BereidVoorBestellingResponse.cls.xml) (revision 39991) +++ WS/Vhisie4/Winkelkar/BereidVoorBestellingResponse.cls.xml (.../BereidVoorBestellingResponse.cls.xml) (revision 41324) @@ -21,6 +21,10 @@ %Boolean + + +WS.Vhisie4.Winkelkar.dto.VerzendingMogelijkheden + Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling.cls.xml =================================================================== diff -u -r40577 -r41324 --- WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling.cls.xml (.../BereidVoorBestelling.cls.xml) (revision 40577) +++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling.cls.xml (.../BereidVoorBestelling.cls.xml) (revision 41324) @@ -13,15 +13,33 @@ 1 + +APPS.EC.impl.ConfiguratorService.CheckoutTypeBepaler +1 + + + +WS.EC.Unishop.InternationaleZending.Service +1 + + + +DOM.PARTIJ.LegacyPartijAPI +1 + + -VerkoopService:APPS.EC.Verkoop.impl.Externe.VerkoopService,WinkelkarRepository:WSimpl.Vhisie4.Winkelkar.WinkelkarRepository +VerkoopService:APPS.EC.Verkoop.impl.Externe.VerkoopService,WinkelkarRepository:WSimpl.Vhisie4.Winkelkar.WinkelkarRepository,CheckoutTypeBepaler:APPS.EC.impl.ConfiguratorService.CheckoutTypeBepaler,InternationaleZendingService:WS.EC.Unishop.InternationaleZending.Service,LegacyPartijAPI:DOM.PARTIJ.LegacyPartijAPI 1 1 %Status 1 @@ -36,9 +54,19 @@ Do ..VerkoopService.ZetOfferteHoofding(OfferteID, ..MaakHoofding(BereidVoorBestellingRequest)) Set Response = ##class(WS.Vhisie4.Winkelkar.BereidVoorBestellingResponse).%New() - Set Response.MogelijkeLeverdatums = ..VerkoopService.GeefMogelijkeLeverdatums(OfferteID) - Set Response.IsAsapMogelijk = ..VerkoopService.GeefIsAsapMogelijk(OfferteID) + #dim KlantPartijID As %String = ..GeefKlantPartijID(BereidVoorBestellingRequest.Header.KlantId) + If ..CheckoutTypeBepaler.Bepaal(BereidVoorBestellingRequest.Header.PersonalityId, KlantPartijID) = ##class(APPS.EC.Unishop.enu.CheckoutType).Standaard() + { + Set Response.MogelijkeLeverdatums = ..VerkoopService.GeefMogelijkeLeverdatums(OfferteID) + Set Response.IsAsapMogelijk = ..VerkoopService.GeefIsAsapMogelijk(OfferteID) + } else { + #dim WebshopSessie As WSimpl.Unishop.dto.Sessie = ##class(WSimpl.Unishop.dto.Sessie).%New(BereidVoorBestellingRequest.Header.PersonalityId,KlantPartijID) + #dim MogelijkeZendingen As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden + Set MogelijkeZendingen = ..InternationaleZendingService.GeefMogelijkeZendingen(OfferteID, BereidVoorBestellingRequest.Header.Taal, WebshopSessie) + Set Response.VerzendingMogelijkheden = ..ConverteerMogelijkeZendingen(MogelijkeZendingen) + } + Quit Response ]]> @@ -74,6 +102,24 @@ Quit Hoofding ]]> + + +KlantID:%String +1 +DOM.VKP.VanHoeckeKlantID + + + + +MogelijkeZendingen:WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden +1 +WS.Vhisie4.Winkelkar.dto.VerzendingMogelijkheden + +