Index: vhUnitTest/APPS/EC/impl/KlantDataReferentieBepaler/GeefKlantDataReferentie/Test.cls.xml
===================================================================
diff -u -r45862 -r52558
--- vhUnitTest/APPS/EC/impl/KlantDataReferentieBepaler/GeefKlantDataReferentie/Test.cls.xml	(.../Test.cls.xml)	(revision 45862)
+++ vhUnitTest/APPS/EC/impl/KlantDataReferentieBepaler/GeefKlantDataReferentie/Test.cls.xml	(.../Test.cls.xml)	(revision 52558)
@@ -52,22 +52,24 @@
 <Implementation><![CDATA[
 	#dim Personality As DOM.common.Personality = ##class(DOM.DomeinContext).Instance().GeefCommonAPI().GeefPersonality(..#PersonalityID)
 	
-	Set DataServiceStub = ##class(vhTest.Mock.APPS.EC.DataService).%New()
+	#dim DataServiceStub As vhTest.Mock.APPS.EC.DataService = ##class(vhTest.Mock.APPS.EC.DataService).%New()
 	Do DataServiceStub.IndienMethodCall("GeefKlantData", Personality.GeefID(), $$$DummyString).DanReturn(..DummyKlant)
 	Do DataServiceStub.IndienMethodCall("GeefGebruikerData", Personality.GeefID(), $$$DummyString).DanReturn(..DummyGebruiker)
 	
+	#dim AdminTekstUtils As  APPS.common.impl.AdminTekstUtils = ##class(APPS.common.impl.AdminTekstUtils).%New()
 	#dim CommonAPI As vhTest.Mock.APPS.common.CommonAPI = ##class(vhTest.Mock.APPS.common.CommonAPI).MockInstance()
-	Set DummyAdminTekstUtils = ##class(APPS.common.impl.AdminTekstUtils).%New()
-	Do CommonAPI.IndienMethodCall("GeefAdminTekstUtils").DanReturn(DummyAdminTekstUtils)
+	Do CommonAPI.IndienMethodCall("GeefAdminTekstUtils").DanReturn(AdminTekstUtils)
 	
-	Set OfferteStub = ##class(vhTest.Mock.APPS.VKP.Offerte).%New()
+	#dim OfferteStub As vhTest.Mock.APPS.VKP.Offerte = ##class(vhTest.Mock.APPS.VKP.Offerte).%New()
 	Do OfferteStub.IndienMethodCall("GeefKlantID").DanReturn($$$DummyString)
 	Do OfferteStub.IndienMethodCall("GeefAangemaaktDoor").DanReturn(..GebruikerID)
 	Do OfferteStub.IndienMethodCall("GeefPersonality").DanReturn(Personality)
 	Do OfferteStub.IndienMethodCall("GeefLeverAdres").DanReturn(..GeenAdres())
+	Do OfferteStub.IndienMethodCall("IsVhisie4").DanReturn($$$False)
 	
-	Set KlantDataReferentieBepaler = ##class(APPS.EC.impl.KlantDataReferentieBepaler).%New(,DataServiceStub)
-	quit KlantDataReferentieBepaler.GeefKlantDataReferentie(OfferteStub)
+	#dim KlantDataReferentieBepaler As APPS.EC.impl.KlantDataReferentieBepaler = ##class(APPS.EC.impl.KlantDataReferentieBepaler).%New(,DataServiceStub)
+	
+	Quit KlantDataReferentieBepaler.GeefKlantDataReferentie(OfferteStub)
 ]]></Implementation>
 </Method>