Index: vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/WS.Vhisie4.Winkelkar.WinkelkarService.txt
===================================================================
diff -u -r41453 -r41492
--- vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/WS.Vhisie4.Winkelkar.WinkelkarService.txt (.../WS.Vhisie4.Winkelkar.WinkelkarService.txt) (revision 41453)
+++ vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/WS.Vhisie4.Winkelkar.WinkelkarService.txt (.../WS.Vhisie4.Winkelkar.WinkelkarService.txt) (revision 41492)
@@ -239,6 +239,8 @@
+
+
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar.cls.xml
===================================================================
diff -u -r41453 -r41492
--- WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar.cls.xml (.../BestelWinkelkar.cls.xml) (revision 41453)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar.cls.xml (.../BestelWinkelkar.cls.xml) (revision 41492)
@@ -23,8 +23,18 @@
1
+
+APPS.EC.Transport.Service
+1
+
+
+
+APPS.EC.impl.ConfiguratorService.CheckoutTypeBepaler
+1
+
+
-VerkoopService:APPS.EC.Verkoop.impl.Externe.VerkoopService,WinkelkarRepository:WSimpl.Vhisie4.Winkelkar.WinkelkarRepository,LegacyPartijAPI:DOM.PARTIJ.LegacyPartijAPI,ExportStatusRepository:WSdata.Vhisie4.Winkelkar.WinkelkarExport.ExportStatusRepository
+VerkoopService:APPS.EC.Verkoop.impl.Externe.VerkoopService,WinkelkarRepository:WSimpl.Vhisie4.Winkelkar.WinkelkarRepository,LegacyPartijAPI:DOM.PARTIJ.LegacyPartijAPI,ExportStatusRepository:WSdata.Vhisie4.Winkelkar.WinkelkarExport.ExportStatusRepository,TransportService:APPS.EC.Transport.Service,CheckoutTypeBepaler:APPS.EC.impl.ConfiguratorService.CheckoutTypeBepaler
1
1
%Status
@@ -34,7 +44,9 @@
Set ..WinkelkarRepository = $$$Inject(WinkelkarRepository,##class(WSimpl.Vhisie4.Winkelkar.WinkelkarRepository).%New())
Set ..LegacyPartijAPI = $$$Inject(LegacyPartijAPI,##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI())
Set ..ExportStatusRepository = $$$Inject(ExportStatusRepository, ##class(WSdata.Vhisie4.Winkelkar.WinkelkarExport.ExportStatusRepository).%New())
-
+ Set ..TransportService = $$$Inject(TransportService, ##class(APPS.EC.Transport.Service).%New())
+ Set ..CheckoutTypeBepaler = $$$Inject(CheckoutTypeBepaler, ##class(APPS.EC.impl.ConfiguratorService.CheckoutTypeBepaler).%New())
+
Quit $$$OK
]]>
@@ -51,9 +63,13 @@
Do ..VerkoopService.ZetOfferteHoofding(OfferteID, ..MaakHoofding(BestelWinkelkarRequest))
Do ..VerkoopService.BestelOfferte(OfferteID, KlantPartijID, ##class(DOM.common.enu.Personality).VanHoecke())
+
+ If ..CheckoutTypeBepaler.Bepaal(BestelWinkelkarRequest.Header.PersonalityId, KlantPartijID) = ##class(APPS.EC.Unishop.enu.CheckoutType).MetTransportKeuze()
+ {
+ Do ..TransportService.ZetGekozenVerzendingMogelijkheid(OfferteID, BestelWinkelkarRequest.VerzendingMogelijkheidID, BestelWinkelkarRequest.OptieKeuze)
+ }
Set Response = ##class(WS.Vhisie4.Winkelkar.BestelWinkelkarResponse).%New()
-
Quit Response
]]>
Index: WS/Vhisie4/Winkelkar/BestelWinkelkarRequest.cls.xml
===================================================================
diff -u -r41453 -r41492
--- WS/Vhisie4/Winkelkar/BestelWinkelkarRequest.cls.xml (.../BestelWinkelkarRequest.cls.xml) (revision 41453)
+++ WS/Vhisie4/Winkelkar/BestelWinkelkarRequest.cls.xml (.../BestelWinkelkarRequest.cls.xml) (revision 41492)
@@ -44,6 +44,14 @@
%String
+
+%Integer
+
+
+
+%Integer
+
+
%Library.CacheSerialState
BestelWinkelkarRequestState
@@ -73,6 +81,12 @@
WensLeverDatum
+
+VerzendingMogelijkheidID
+
+
+OptieKeuze
+