Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling.cls.xml
===================================================================
diff -u -r38858 -r38859
--- WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling.cls.xml	(.../BereidVoorBestelling.cls.xml)	(revision 38858)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling.cls.xml	(.../BereidVoorBestelling.cls.xml)	(revision 38859)
@@ -3,8 +3,8 @@
 <Class name="WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling">
 <Super>TECH.RegisteredObject</Super>
 
-<Property name="VerkoopService">
-<Type>APPS.EC.Verkoop.impl.Externe.VerkoopService</Type>
+<Property name="WinkelkarService">
+<Type>APPS.EC.Winkelkar.impl.WinkelkarService</Type>
 <Private>1</Private>
 </Property>
 
@@ -14,13 +14,13 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>VerkoopService:APPS.EC.Verkoop.impl.Externe.VerkoopService,OfferteRepository:APPS.VKP.Offerte.OfferteRepository</FormalSpec>
+<FormalSpec>WinkelkarService:APPS.EC.Winkelkar.impl.WinkelkarService,OfferteRepository:APPS.VKP.Offerte.OfferteRepository</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..VerkoopService = $$$Inject(VerkoopService, ##class(APPS.EC.Verkoop.impl.Externe.VerkoopService).%New())
+	Set ..WinkelkarService = $$$Inject(WinkelkarService, ##class(APPS.EC.Winkelkar.impl.WinkelkarService).%New())
 	Set ..OfferteRepository = $$$Inject(OfferteRepository,##class(APPS.VKP.Offerte.impl.OfferteRepository).%New())
 
 	Quit $$$OK
@@ -33,10 +33,11 @@
 <Implementation><![CDATA[
 	Do ..ControleerExterneId(BereidVoorBestellingRequest.Header.WinkelkarId)
 
-	#dim OfferteID As %String = ..OfferteRepository.GeefViaExterneId(BereidVoorBestellingRequest.Header.WinkelkarId).GeefID()
+	#dim WinkelkarID As %String = ..OfferteRepository.GeefViaExterneId(BereidVoorBestellingRequest.Header.WinkelkarId).WinkelkarID
 
-	;Do ..VerkoopService.GeefMogelijkeLeverdatums(OfferteID)
+	Do ..WinkelkarService.GeefMogelijkeLeverdatums(WinkelkarID)
 
+
 	#dim Resultaat As WS.Vhisie4.Winkelkar.BereidVoorBestellingResponse
 	Set Resultaat = ##class(WS.Vhisie4.Winkelkar.BereidVoorBestellingResponse).%New()
 	;Do Resultaat.MogelijkeLeverdatums.Insert( ##class(TECH.DateTime.impl.DateTimeAPI).%New().CurrentDate() + 1 )
Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/Test.cls.xml
===================================================================
diff -u -r38858 -r38859
--- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/Test.cls.xml	(.../Test.cls.xml)	(revision 38858)
+++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/Test.cls.xml	(.../Test.cls.xml)	(revision 38859)
@@ -3,23 +3,27 @@
 <Class name="vhUnitTest.WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test: BewaarProductLijn haalt de interne id op adhv ExterneId">
+<Method name="Test: BereidVoorBestelling haalt de interne id op adhv ExterneId">
 <Implementation><![CDATA[
 	#dim OfferteDummy As vhTest.Fake.APPS.VKP.Offerte = ##class(vhTest.Fake.APPS.VKP.Offerte).%New()
+	Set OfferteDummy.WinkelkarID = "WinkelkarID"
 	
 	#dim OfferteRepositoryMock As vhTest.Mock.APPS.VKP.Offerte.OfferteRepository = ##class(vhTest.Mock.APPS.VKP.Offerte.OfferteRepository).%New()
 	Do OfferteRepositoryMock.VerwachtMethodCall("BestaatViaExterneId", "WinkelkarId").DanReturn($$$True)
 	Do OfferteRepositoryMock.VerwachtMethodCall("GeefViaExterneId", "WinkelkarId").DanReturn(OfferteDummy)
 	
-	#dim BereidVoorBestelling As WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling).%New(, OfferteRepositoryMock)
+	#dim WinkelkarServiceStub As vhTest.Mock.APPS.EC.Winkelkar.impl.WinkelkarService = ##class(vhTest.Mock.APPS.EC.Winkelkar.impl.WinkelkarService).%New()
+	Do WinkelkarServiceStub.IndienMethodCall("GeefMogelijkeLeverdatums","WinkelkarID").DanDoeNiks()
+
+	#dim BereidVoorBestelling As WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling).%New(WinkelkarServiceStub, OfferteRepositoryMock)
 	
 	Do BereidVoorBestelling.BereidVoorBestelling(..GeefBereidVoorBestellingRequest())
 
 	Do OfferteRepositoryMock.Verifieer()
 ]]></Implementation>
 </Method>
 
-<Method name="Test: BewaarProductLijn geeft foutmelding indien ExterneId niet bestaat">
+<Method name="Test: BereidVoorBestelling geeft foutmelding indien ExterneId niet bestaat">
 <Implementation><![CDATA[
 	#dim OfferteDummy As vhTest.Fake.APPS.VKP.Offerte = ##class(vhTest.Fake.APPS.VKP.Offerte).%New()