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 +