Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/Test.cls.xml
===================================================================
diff -u -r38937 -r39013
--- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/Test.cls.xml	(.../Test.cls.xml)	(revision 38937)
+++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/Test.cls.xml	(.../Test.cls.xml)	(revision 39013)
@@ -5,20 +5,18 @@
 
 <Method name="Test: BereidVoorBestelling zet offerte hoofding met de juiste waarden">
 <Implementation><![CDATA[
-	#dim OfferteDummy As vhTest.Fake.APPS.VKP.Offerte = ##class(vhTest.Fake.APPS.VKP.Offerte).%New()
+	#dim WinkelkarRepositoryStub As vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarRepository = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarRepository).%New()
+	Do WinkelkarRepositoryStub.IndienMethodCall("BestaatViaExterneId", "WinkelkarId").DanReturn($$$True)
+	Do WinkelkarRepositoryStub.IndienMethodCall("GeefOfferteIDViaExterneId", "WinkelkarId").DanReturn("DummyID")
 	
-	#dim OfferteRepositoryStub As vhTest.Mock.APPS.VKP.Offerte.OfferteRepository = ##class(vhTest.Mock.APPS.VKP.Offerte.OfferteRepository).%New()
-	Do OfferteRepositoryStub.IndienMethodCall("BestaatViaExterneId", "WinkelkarId").DanReturn($$$True)
-	Do OfferteRepositoryStub.IndienMethodCall("GeefViaExterneId", "WinkelkarId").DanReturn(OfferteDummy)
-	
 	#dim VerkoopServiceMock As vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
 	Do VerkoopServiceMock.IndienMethodCall("GeefMogelijkeLeverdatums",$$$ElkeWaarde).DanReturn(##class(%ListOfDataTypes).%New())
 	
 	set HoofdingMatcher = ##class(Tools.Mock.ArgumentMatchers.DataTransferObjectMatcher).%New(..GeefHoofding())
 	
 	Do VerkoopServiceMock.VerwachtMethodCall("ZetOfferteHoofding","DummyID", HoofdingMatcher).DanDoeNiks()
 
-	#dim BereidVoorBestelling As WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling).%New(VerkoopServiceMock, OfferteRepositoryStub)
+	#dim BereidVoorBestelling As WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling).%New(VerkoopServiceMock, WinkelkarRepositoryStub)
 	
 	#dim BereidVoorBestellingRequest As WS.Vhisie4.Winkelkar.BereidVoorBestellingRequest = ..GeefBereidVoorBestellingRequest()
 	Set BereidVoorBestellingRequest.LeverAdres.Aanspreking = "Dhr"
@@ -38,17 +36,15 @@
 
 <Method name="Test: BereidVoorBestelling geeft opgehaalde leverdatums in het resultaat">
 <Implementation><![CDATA[
-	#dim OfferteDummy As vhTest.Fake.APPS.VKP.Offerte = ##class(vhTest.Fake.APPS.VKP.Offerte).%New()
+	#dim WinkelkarRepositoryStub As vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarRepository = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarRepository).%New()
+	Do WinkelkarRepositoryStub.IndienMethodCall("BestaatViaExterneId", "WinkelkarId").DanReturn($$$True)
+	Do WinkelkarRepositoryStub.IndienMethodCall("GeefOfferteIDViaExterneId", "WinkelkarId").DanReturn("DummyID")
 	
-	#dim OfferteRepositoryStub As vhTest.Mock.APPS.VKP.Offerte.OfferteRepository = ##class(vhTest.Mock.APPS.VKP.Offerte.OfferteRepository).%New()
-	Do OfferteRepositoryStub.IndienMethodCall("BestaatViaExterneId", "WinkelkarId").DanReturn($$$True)
-	Do OfferteRepositoryStub.IndienMethodCall("GeefViaExterneId", "WinkelkarId").DanReturn(OfferteDummy)
-	
 	#dim VerkoopServiceStub As vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
 	Do VerkoopServiceStub.IndienMethodCall("GeefMogelijkeLeverdatums","DummyID").DanReturn(..GeefMogelijkeLeverdatums())
 	Do VerkoopServiceStub.IndienMethodCall("ZetOfferteHoofding",$$$ElkeWaarde, $$$ElkeWaarde).DanDoeNiks()
 
-	#dim BereidVoorBestelling As WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling).%New(VerkoopServiceStub, OfferteRepositoryStub)
+	#dim BereidVoorBestelling As WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling).%New(VerkoopServiceStub, WinkelkarRepositoryStub)
 	
 	#dim Resultaat As WS.Vhisie4.Winkelkar.BereidVoorBestellingResponse
 	Set Resultaat = BereidVoorBestelling.BereidVoorBestelling(..GeefBereidVoorBestellingRequest())
@@ -61,17 +57,15 @@
 
 <Method name="Test: BereidVoorBestelling haalt leverdatums op met de juiste parameters">
 <Implementation><![CDATA[
-	#dim OfferteDummy As vhTest.Fake.APPS.VKP.Offerte = ##class(vhTest.Fake.APPS.VKP.Offerte).%New()
+	#dim WinkelkarRepositoryStub As vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarRepository = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarRepository).%New()
+	Do WinkelkarRepositoryStub.IndienMethodCall("BestaatViaExterneId", "WinkelkarId").DanReturn($$$True)
+	Do WinkelkarRepositoryStub.IndienMethodCall("GeefOfferteIDViaExterneId", "WinkelkarId").DanReturn("DummyID")
 	
-	#dim OfferteRepositoryStub As vhTest.Mock.APPS.VKP.Offerte.OfferteRepository = ##class(vhTest.Mock.APPS.VKP.Offerte.OfferteRepository).%New()
-	Do OfferteRepositoryStub.IndienMethodCall("BestaatViaExterneId", "WinkelkarId").DanReturn($$$True)
-	Do OfferteRepositoryStub.IndienMethodCall("GeefViaExterneId", "WinkelkarId").DanReturn(OfferteDummy)
-	
 	#dim VerkoopServiceMock As vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
 	Do VerkoopServiceMock.IndienMethodCall("ZetOfferteHoofding",$$$ElkeWaarde, $$$ElkeWaarde).DanDoeNiks()
 	Do VerkoopServiceMock.VerwachtMethodCall("GeefMogelijkeLeverdatums","DummyID").DanReturn(##class(%ListOfDataTypes).%New())
 
-	#dim BereidVoorBestelling As WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling).%New(VerkoopServiceMock, OfferteRepositoryStub)
+	#dim BereidVoorBestelling As WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling).%New(VerkoopServiceMock, WinkelkarRepositoryStub)
 	
 	Do BereidVoorBestelling.BereidVoorBestelling(..GeefBereidVoorBestellingRequest())
 
@@ -81,33 +75,30 @@
 
 <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 WinkelkarRepositoryMock As vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarRepository = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarRepository).%New()
+	Do WinkelkarRepositoryMock.VerwachtMethodCall("BestaatViaExterneId", "WinkelkarId").DanReturn($$$True)
+	Do WinkelkarRepositoryMock.VerwachtMethodCall("GeefOfferteIDViaExterneId", "WinkelkarId").DanReturn("DummyID")
 	
-	#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 VerkoopServiceStub As vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
 	Do VerkoopServiceStub.IndienMethodCall("ZetOfferteHoofding",$$$ElkeWaarde, $$$ElkeWaarde).DanDoeNiks()
 	Do VerkoopServiceStub.IndienMethodCall("GeefMogelijkeLeverdatums","DummyID").DanReturn(##class(%ListOfDataTypes).%New())
 
-	#dim BereidVoorBestelling As WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling).%New(VerkoopServiceStub, OfferteRepositoryMock)
+	#dim BereidVoorBestelling As WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling).%New(VerkoopServiceStub, WinkelkarRepositoryMock)
 	
 	Do BereidVoorBestelling.BereidVoorBestelling(..GeefBereidVoorBestellingRequest())
 
-	Do OfferteRepositoryMock.Verifieer()
+	Do WinkelkarRepositoryMock.Verifieer()
 ]]></Implementation>
 </Method>
 
 <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()
 	
-	#dim OfferteRepositoryMock As vhTest.Mock.APPS.VKP.Offerte.OfferteRepository = ##class(vhTest.Mock.APPS.VKP.Offerte.OfferteRepository).%New()
-	Do OfferteRepositoryMock.VerwachtMethodCall("BestaatViaExterneId", "WinkelkarId").DanReturn($$$False)
+	#dim WinkelkarRepositoryStub As vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarRepository = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarRepository).%New()
+	Do WinkelkarRepositoryStub.IndienMethodCall("BestaatViaExterneId", "WinkelkarId").DanReturn($$$False)
 	
-	#dim BereidVoorBestelling As WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling).%New(, OfferteRepositoryMock)
+	#dim BereidVoorBestelling As WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling).%New(, WinkelkarRepositoryStub)
 
 	#dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("ExterneId WinkelkarId bestaat niet.")
 	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException", Substrings))
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling.cls.xml
===================================================================
diff -u -r38871 -r39013
--- WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling.cls.xml	(.../BereidVoorBestelling.cls.xml)	(revision 38871)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling.cls.xml	(.../BereidVoorBestelling.cls.xml)	(revision 39013)
@@ -8,20 +8,20 @@
 <Private>1</Private>
 </Property>
 
-<Property name="OfferteRepository">
-<Type>APPS.VKP.Offerte.OfferteRepository</Type>
+<Property name="WinkelkarRepository">
+<Type>WSimpl.Vhisie4.Winkelkar.WinkelkarRepository</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>VerkoopService:APPS.EC.Verkoop.impl.Externe.VerkoopService,OfferteRepository:APPS.VKP.Offerte.OfferteRepository</FormalSpec>
+<FormalSpec>VerkoopService:APPS.EC.Verkoop.impl.Externe.VerkoopService,WinkelkarRepository:WSimpl.Vhisie4.Winkelkar.WinkelkarRepository</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 ..OfferteRepository = $$$Inject(OfferteRepository,##class(APPS.VKP.Offerte.impl.OfferteRepository).%New())
+	Set ..WinkelkarRepository = $$$Inject(WinkelkarRepository,##class(WSimpl.Vhisie4.Winkelkar.WinkelkarRepository).%New())
 
 	Quit $$$OK
 ]]></Implementation>
@@ -33,7 +33,7 @@
 <Implementation><![CDATA[
 	Do ..ControleerExterneId(BereidVoorBestellingRequest.Header.WinkelkarId)
 
-	#dim OfferteID As %String = ..OfferteRepository.GeefViaExterneId(BereidVoorBestellingRequest.Header.WinkelkarId).GeefID()
+	#dim OfferteID As %String = ..WinkelkarRepository.GeefOfferteIDViaExterneId(BereidVoorBestellingRequest.Header.WinkelkarId)
 
 	Set Resultaat = ##class(WS.Vhisie4.Winkelkar.BereidVoorBestellingResponse).%New()
 	
@@ -49,7 +49,7 @@
 <FormalSpec>ExterneId:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	If '..OfferteRepository.BestaatViaExterneId(ExterneId) {
+	If '..WinkelkarRepository.BestaatViaExterneId(ExterneId) {
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("ExterneId "_ExterneId _" bestaat niet."))			
 	}
 ]]></Implementation>