Index: vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/TestHandel.cls.xml
===================================================================
diff -u -r39573 -r45867
--- vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/TestHandel.cls.xml	(.../TestHandel.cls.xml)	(revision 39573)
+++ vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/TestHandel.cls.xml	(.../TestHandel.cls.xml)	(revision 45867)
@@ -10,11 +10,6 @@
 <Default>3</Default>
 </Parameter>
 
-<Parameter name="Type">
-<Type>%String</Type>
-<Default>IntegratieTest</Default>
-</Parameter>
-
 <Property name="WinkelkarService">
 <Type>APPS.EC.Winkelkar.impl.WinkelkarService</Type>
 </Property>
@@ -57,8 +52,6 @@
 	
 	Do WebshopSessionServiceStub.IndienMethodCall("GeefSessie", ##class(TECH.Context.RuntimeContext).Instance().GeefSessieID()).DanReturn(##class(APPS.EC.impl.VanHoeckeWebshopSessie).%New($$$DummyString))
 	Do ECommerceAPIStub.IndienMethodCall("GeefWebshopSessionService").DanReturn(WebshopSessionServiceStub)
-
-	set ..WinkelkarService = ##class(APPS.EC.Winkelkar.impl.WinkelkarService).%New(..MagMaatwerklijnGewijzigdWordenBepaler, ..MaatwerklijnInputValidatorMock)
 ]]></Implementation>
 </Method>
 
@@ -113,11 +106,14 @@
 <Method name="TestGeefLijn">
 <Implementation><![CDATA[
 	// Setup
-	Do ..UitmockenKlantDataBepaler()	
+	#dim DataServiceStub As vhTest.Mock.APPS.EC.DataService = ..GeefDataServiceStub()
+	Set ..WinkelkarService = ##class(APPS.EC.Winkelkar.impl.WinkelkarService).%New(..MagMaatwerklijnGewijzigdWordenBepaler, ..MaatwerklijnInputValidatorMock,,,,,,,,,,,DataServiceStub)
+	
 	#dim WinkelkarID As %String = ..MaakWinkelkarEnGeefID()
 	#dim MaatwerkLijnID As %String = ..VoegToeMaatwerkLijnEnGeefID(WinkelkarID)
 		
 	// Actie
+	
 	#dim Lijn As APPS.EC.Winkelkar.dto.MaatwerkLijn = ..WinkelkarService.GeefLijn(WinkelkarID, MaatwerkLijnID)
 	
 	// Controle
@@ -147,8 +143,9 @@
 	#define OudAantal 2
 	#define NieuwAantal 3
 	
-	// Setup
-	Do ..UitmockenKlantDataBepaler()
+	#dim DataServiceStub As vhTest.Mock.APPS.EC.DataService = ..GeefDataServiceStub()
+	set ..WinkelkarService = ##class(APPS.EC.Winkelkar.impl.WinkelkarService).%New(..MagMaatwerklijnGewijzigdWordenBepaler, ..MaatwerklijnInputValidatorMock,,,,,,,,,,,DataServiceStub)
+	
 	#dim WinkelkarID As %String = ..MaakWinkelkarEnGeefID()
 	#dim MaatwerkLijnID As %String = ..VoegToeMaatwerkLijnEnGeefID(WinkelkarID)
 	#dim LijnDtoInitieel As APPS.EC.Winkelkar.dto.Lijn = ..WinkelkarService.GeefLijn(WinkelkarID, MaatwerkLijnID)
@@ -169,8 +166,9 @@
 <Implementation><![CDATA[
 	#define NieuwAantal 0
 	
-	// Setup
-	Do ..UitmockenKlantDataBepaler()
+	#dim DataServiceStub As vhTest.Mock.APPS.EC.DataService = ..GeefDataServiceStub()
+	set ..WinkelkarService = ##class(APPS.EC.Winkelkar.impl.WinkelkarService).%New(..MagMaatwerklijnGewijzigdWordenBepaler, ..MaatwerklijnInputValidatorMock,,,,,,,,,,,DataServiceStub)
+	
 	#dim WinkelkarID As %String = ..MaakWinkelkarEnGeefID()
 	#dim MaatwerkLijnID As %String = ..VoegToeMaatwerkLijnEnGeefID(WinkelkarID)
 	#dim LijnDtoInitieel As APPS.EC.Winkelkar.dto.Lijn = ..WinkelkarService.GeefLijn(WinkelkarID, MaatwerkLijnID)
@@ -185,11 +183,12 @@
 
 <Method name="TestGeefWinkelkarInclBewerkteIngave">
 <Implementation><![CDATA[
-	Do ..UitmockenKlantDataBepaler()
 	Set GroepNaamBepalerStub = ##class(vhTest.Mock.APPS.EC.Winkelkar.impl.GroepNaamVoorIngegevenKenmerkenBepaler).%New()
 	Do GroepNaamBepalerStub.IndienMethodCall("GeefGroepNaam",$$$ElkeWaarde,$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("Een GroepNaam")
-	Set ..WinkelkarService = ##class(APPS.EC.Winkelkar.impl.WinkelkarService).%New(..MagMaatwerklijnGewijzigdWordenBepaler, ..MaatwerklijnInputValidatorMock,,,,,,,,,,GroepNaamBepalerStub)
 
+	#dim DataServiceStub As vhTest.Mock.APPS.EC.DataService = ..GeefDataServiceStub()
+	Set ..WinkelkarService = ##class(APPS.EC.Winkelkar.impl.WinkelkarService).%New(..MagMaatwerklijnGewijzigdWordenBepaler, ..MaatwerklijnInputValidatorMock,,,,,,,,,,GroepNaamBepalerStub,DataServiceStub)
+
 	#dim WinkelkarID As %String = ..MaakWinkelkarEnGeefID()
 	#dim MaatwerkLijnID1 As %String = ..VoegToeMaatwerkLijnEnGeefID(WinkelkarID,"Een GroepNaam")
 	#dim MaatwerkLijnID2 As %String = ..VoegToeMaatwerkLijnEnGeefID(WinkelkarID,"Een GroepNaam")
@@ -247,19 +246,14 @@
 ]]></Implementation>
 </Method>
 
-<Method name="UitmockenKlantDataBepaler">
+<Method name="GeefDataServiceStub">
 <Private>1</Private>
+<ReturnType>vhTest.Mock.APPS.EC.DataService</ReturnType>
 <Implementation><![CDATA[
-	#dim SFSKlant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(##class(DOM.VKP.enu.Klant).SFS())
-	;Set DummyKlant = ##class(vhTest.Utils.FakeKlant).%New("UT_SFS_Klantnummer")
-	Set DummyKlant = ##class(vhTest.Utils.DOM.common.dto.KlantData.SFS).%New("UT_SFS_Klantnummer")
-	
-	Set KlantDataBepalerStub = ##class(vhTest.Mock.DOM.VKP.KlantDataBepaler).%New()
-	Do KlantDataBepalerStub.IndienMethodCall("GeefKlantData", ##class(DOM.common.SFSPersonality).Instance(), "UT_SFS_Klantnummer").DanReturn(DummyKlant)
-	#dim VerkoopAPIStub As vhTest.Mock.DOM.VKP.VerkoopAPI = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).MockInstance()
-	Do VerkoopAPIStub.IndienMethodCall("GeefKlantDataBepaler").DanReturn(KlantDataBepalerStub)
-	Do VerkoopAPIStub.IndienMethodCall("GeefKlant", "K||12486").DanReturn(SFSKlant)
-	Do VerkoopAPIStub.IndienMethodCall("GeefNativeKlant", "K||12486").DanReturn(SFSKlant)
+	Set DataServiceStub = ##class(vhTest.Mock.APPS.EC.DataService).%New()
+	do DataServiceStub.IndienMethodCall("GeefPersonalityData",3).DanReturn(##class(vhTest.Utils.DOM.common.dto.PersonalityData).SFS())
+	do DataServiceStub.IndienMethodCall("GeefKlantData",3,"UT_SFS_Klantnummer").DanReturn(##class(vhTest.Utils.DOM.common.dto.KlantData).SFS())
+	Quit DataServiceStub
 ]]></Implementation>
 </Method>
 </Class>