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