Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/VerzendingService.cls.xml
===================================================================
diff -u
--- WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/VerzendingService.cls.xml	(revision 0)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/VerzendingService.cls.xml	(revision 44280)
@@ -0,0 +1,74 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling.VerzendingService">
+<Super>TECH.Mockable</Super>
+
+<Parameter name="HoofdLeverAdresId">
+<Type>%String</Type>
+<Default>H</Default>
+</Parameter>
+
+<Property name="WinkelkarRepository">
+<Type>WSimpl.Vhisie4.Winkelkar.WinkelkarRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="MogelijkeLeverdatumsBepaler">
+<Type>APPS.common.VKP.MogelijkeLeverdatumsBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="WinkelkarService">
+<Type>APPS.EC.Winkelkar.WinkelkarService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="KlantAdresRepository">
+<Type>DOM.VKP.Klant.impl.KlantAdresRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>WinkelkarRepository:WSimpl.Vhisie4.Winkelkar.WinkelkarRepository,MogelijkeLeverdatumsBepaler:APPS.common.VKP.MogelijkeLeverdatumsBepaler,WinkelkarService:APPS.EC.Winkelkar.WinkelkarService,KlantAdresRepository:DOM.VKP.Klant.impl.KlantAdresRepository</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..WinkelkarRepository = $$$Inject(WinkelkarRepository, ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarRepository).%New())
+	Set ..MogelijkeLeverdatumsBepaler = $$$Inject(MogelijkeLeverdatumsBepaler, ##class(APPS.common.VKP.MogelijkeLeverdatumsBepaler).%New())
+
+	Set ..WinkelkarService = $$$Inject(WinkelkarService, ##class(APPS.EC.Winkelkar.impl.WinkelkarService).%New())
+	Set ..KlantAdresRepository = $$$Inject(KlantAdresRepository, ##class(DOM.VKP.Klant.impl.KlantAdresRepository).%New())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefMogelijkeLeverDatums">
+<FormalSpec>BereidVoorBestellingRequest:WS.Vhisie4.Winkelkar.BereidVoorBestellingRequest,KlantPartijID:%String</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<ReturnTypeParams>ELEMENTTYPE="%Date"</ReturnTypeParams>
+<Implementation><![CDATA[
+	#dim WinkelkarId As %String = ..WinkelkarRepository.GeefWinkelkarIDViaID(BereidVoorBestellingRequest.Winkelkar.Id)
+	#dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = ..WinkelkarService.OpenWinkelkar(WinkelkarId)
+
+	Quit:..IsHoofdLeverAdres(BereidVoorBestellingRequest.LeverAdres) ..MogelijkeLeverdatumsBepaler.GeefMogelijkeLeverdatums(Winkelkar)
+
+	#dim LeverAdres As DOM.VKP.LeverAdres = ""
+	Set LeverAdres = ..KlantAdresRepository.GeefLeverAdres(KlantPartijID, BereidVoorBestellingRequest.LeverAdres.Id)
+	Quit ..MogelijkeLeverdatumsBepaler.GeefMogelijkeLeverdatumsVoorLeverAdres(Winkelkar, LeverAdres)
+]]></Implementation>
+</Method>
+
+<Method name="IsHoofdLeverAdres">
+<FormalSpec>LeverAdres:WS.Vhisie4.Winkelkar.dto.LeverAdres</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (..#HoofdLeverAdresId = LeverAdres.Id)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>