Index: vhUnitTest/APPS/EC/impl/KlantDataReferentieBepaler/GeefKlantDataReferentie/Test.cls.xml
===================================================================
diff -u -r52558 -r52814
--- vhUnitTest/APPS/EC/impl/KlantDataReferentieBepaler/GeefKlantDataReferentie/Test.cls.xml	(.../Test.cls.xml)	(revision 52558)
+++ vhUnitTest/APPS/EC/impl/KlantDataReferentieBepaler/GeefKlantDataReferentie/Test.cls.xml	(.../Test.cls.xml)	(revision 52814)
@@ -23,6 +23,50 @@
 <Type>%String</Type>
 </Parameter>
 
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	
+	Set ..GebruikerID = ""
+]]></Implementation>
+</Method>
+
+<Method name="Test: Ingeval Vhisie4 wordt de personality van de offerte gebruikt om de KlantData op te halen">
+<Implementation><![CDATA[
+	Do ..InitKlant()
+	Do ..InitGebruiker()
+	
+	#dim Personality As DOM.common.Personality = ##class(DOM.DomeinContext).Instance().GeefCommonAPI().GeefPersonality(..#PersonalityID)
+	#dim DummyGebruikerId As %String = "DummyGebruikerId"
+	#dim DummyKlantId As %String = "DummyKlantId"
+	
+	#dim OfferteMock As vhTest.Mock.APPS.VKP.Offerte = ##class(vhTest.Mock.APPS.VKP.Offerte).%New()
+	Do OfferteMock.VerwachtMethodCall("GeefPersonality").DanReturn(Personality)
+	Do OfferteMock.VerwachtMethodCall("IsVhisie4").DanReturn($$$True)
+	Do OfferteMock.VerwachtMethodCall("GeefAangemaaktDoor").DanReturn(DummyGebruikerId)
+	Do OfferteMock.VerwachtMethodCall("GeefKlantID").DanReturn(DummyKlantId)
+	
+	#dim OfferteServiceMock As vhTest.Mock.APPS.VKP.OfferteService = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
+	Do OfferteServiceMock.VerwachtMethodCall("HeeftOfferteVanHandel", OfferteMock).Nooit()
+		
+	#dim DataServiceMock As vhTest.Mock.APPS.EC.DataService = ##class(vhTest.Mock.APPS.EC.DataService).%New()
+	Do DataServiceMock.VerwachtMethodCall("GeefGebruikerData", ..#PersonalityID, DummyGebruikerId).DanReturn(..DummyGebruiker)
+	Do DataServiceMock.VerwachtMethodCall("GeefKlantData", ..#PersonalityID, DummyKlantId).DanReturn(..DummyKlant)
+	
+	#dim LeverAdresBepalerMock As vhTest.Mock.APPS.EC.impl.KlantDataReferentieBepaler.LeverAdresBepaler = ##class(vhTest.Mock.APPS.EC.impl.KlantDataReferentieBepaler.LeverAdresBepaler).%New()
+	Do LeverAdresBepalerMock.VerwachtMethodCall("GeefLeverAdres", OfferteMock).DanReturn("DummyLeverAdres")
+	
+	#dim KlantDataReferentieBepaler As APPS.EC.impl.KlantDataReferentieBepaler = ##class(APPS.EC.impl.KlantDataReferentieBepaler).%New(OfferteServiceMock, DataServiceMock, LeverAdresBepalerMock)
+	Do KlantDataReferentieBepaler.GeefKlantDataReferentie(OfferteMock)
+	
+	Do DataServiceMock.Verifieer()
+	Do OfferteServiceMock.Verifieer()
+	Do LeverAdresBepalerMock.Verifieer()
+	Do OfferteMock.Verifieer()
+]]></Implementation>
+</Method>
+
 <Method name="InitKlant">
 <Private>1</Private>
 <Implementation><![CDATA[
@@ -80,17 +124,9 @@
 
 <Method name="GeenAdres">
 <Private>1</Private>
-<Implementation><![CDATA[	quit ##class(DOM.VKP.impl.LeverAdres).%New()
+<Implementation><![CDATA[	Quit ##class(DOM.VKP.impl.LeverAdres).%New()
 ]]></Implementation>
 </Method>
-
-<Method name="OnBeforeOneTest">
-<FormalSpec>aTestName:%String</FormalSpec>
-<Implementation><![CDATA[
-	do ##super(aTestName)
-	set ..GebruikerID = ""
-]]></Implementation>
-</Method>
 </Class>