Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/StartVerpakkingBerekening.cls.xml
===================================================================
diff -u -r41300 -r41301
--- WSimpl/Vhisie4/Winkelkar/WinkelkarService/StartVerpakkingBerekening.cls.xml	(.../StartVerpakkingBerekening.cls.xml)	(revision 41300)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/StartVerpakkingBerekening.cls.xml	(.../StartVerpakkingBerekening.cls.xml)	(revision 41301)
@@ -3,11 +3,65 @@
 <Class name="WSimpl.Vhisie4.Winkelkar.WinkelkarService.StartVerpakkingBerekening">
 <Super>TECH.RegisteredObject</Super>
 
+<Property name="WinkelkarRepository">
+<Type>WSimpl.Vhisie4.Winkelkar.WinkelkarRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="CheckoutTypeBepaler">
+<Type>APPS.EC.impl.ConfiguratorService.CheckoutTypeBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="InternationaleZendingService">
+<Type>WS.EC.Unishop.InternationaleZending.Service</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LegacyPartijAPI">
+<Type>DOM.PARTIJ.LegacyPartijAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>WinkelkarRepository:WSimpl.Vhisie4.Winkelkar.WinkelkarRepository,CheckoutTypeBepaler:APPS.EC.impl.ConfiguratorService.CheckoutTypeBepaler,InternationaleZendingService:WS.EC.Unishop.InternationaleZending.Service,LegacyPartijAPI:DOM.PARTIJ.LegacyPartijAPI</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 ..CheckoutTypeBepaler = $$$Inject(CheckoutTypeBepaler, ##class(APPS.EC.impl.ConfiguratorService.CheckoutTypeBepaler).%New())
+	Set ..InternationaleZendingService = $$$Inject(InternationaleZendingService, ##class(WS.EC.Unishop.InternationaleZending.Service).%New())
+	Set ..LegacyPartijAPI = $$$Inject(LegacyPartijAPI,##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI())
+
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="StartVerpakkingBerekening">
 <FormalSpec>StartVerpakkingBerekeningRequest:WS.Vhisie4.Winkelkar.StartVerpakkingBerekeningRequest</FormalSpec>
-<Implementation><![CDATA[	Quit
+<Implementation><![CDATA[
+	#dim KlantPartijID As %String = ..GeefKlantPartijID(StartVerpakkingBerekeningRequest.Header.KlantId)
+	If ..CheckoutTypeBepaler.Bepaal(StartVerpakkingBerekeningRequest.Header.PersonalityId, KlantPartijID) = ##class(APPS.EC.Unishop.enu.CheckoutType).MetTransportKeuze() 
+	{
+		#dim OfferteID As %String = ..WinkelkarRepository.GeefOfferteIDViaID(StartVerpakkingBerekeningRequest.Winkelkar.Id)
+		Do ..InternationaleZendingService.BerekenPalletGegevens(OfferteID)
+	}
+
+	Quit
 ]]></Implementation>
 </Method>
+
+<Method name="GeefKlantPartijID">
+<FormalSpec>KlantID:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.VKP.VanHoeckeKlantID</ReturnType>
+<Implementation><![CDATA[
+	Quit:..LegacyPartijAPI.IsKlantPartijID(KlantID) KlantID	
+	Quit ..LegacyPartijAPI.GeefKlantPartijID(KlantID)
+]]></Implementation>
+</Method>
 </Class>