Index: APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml
===================================================================
diff -u -r34473 -r34519
--- APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 34473)
+++ APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 34519)
@@ -255,8 +255,8 @@
 <FormalSpec>WinkelKarID:%String</FormalSpec>
 <ReturnType>%Date</ReturnType>
 <Implementation><![CDATA[
-	#dim VerzendWijze As DOM.VKP.VerzendWijze = ##class(DOM.VKP.VerzendWijze).%OpenId("AFH") 
-	Quit ..VroegsteLeverdatumBepaler.GeefVroegsteLeverdatum(..GeefWinkelkar(WinkelKarID), VerzendWijze)
+	Set VerzendWijze = ##class(APPS.VKP.VerzendWijze).%New(##class(DOM.VKP.enu.Klant).VanHoecke(), "AFH","B","9100")
+	Quit ..VroegsteLeverdatumBepaler.GeefVroegsteLeverdatum(..OpenWinkelkar(WinkelKarID), VerzendWijze)
 ]]></Implementation>
 </Method>