Index: vhUnitTest/APPS/EC/impl/KlantDataReferentieBepaler/LeverAdresBepaler/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EC/impl/KlantDataReferentieBepaler/LeverAdresBepaler/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EC/impl/KlantDataReferentieBepaler/LeverAdresBepaler/Test.cls.xml	(revision 52814)
@@ -0,0 +1,70 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EC.impl.KlantDataReferentieBepaler.LeverAdresBepaler.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: LeverAdres van offerte wordt teruggegeven als string indien de opgegeven offerte geen handelofferte van handel heeft">
+<Implementation><![CDATA[
+	#dim LandMock As vhTest.Mock.DOM.common.Land = ##class(vhTest.Mock.DOM.common.Land).%New()
+	Do LandMock.VerwachtMethodCall("GeefCode").DanReturn("DummyCode")
+	
+	#dim LeverAdresMock As vhTest.Mock.DOM.VKP.LeverAdres = ##class(vhTest.Mock.DOM.VKP.LeverAdres).%New()
+	Do LeverAdresMock.VerwachtMethodCall("GeefNaam").DanReturn("DummyNaam")
+	Do LeverAdresMock.VerwachtMethodCall("GeefStraat").DanReturn("DummyStraat")
+	Do LeverAdresMock.VerwachtMethodCall("GeefPostcode").DanReturn("DummyPostcode")
+	Do LeverAdresMock.VerwachtMethodCall("GeefGemeente").DanReturn("DummyGemeente")
+	Do LeverAdresMock.VerwachtMethodCall("GeefLand").DanReturn(LandMock)
+	
+	#dim OfferteMock As vhTest.Mock.APPS.VKP.Offerte = ##class(vhTest.Mock.APPS.VKP.Offerte).%New()
+	Do OfferteMock.VerwachtMethodCall("GeefLeverAdres").DanReturn(LeverAdresMock)
+	
+	#dim OfferteServiceMock As vhTest.Mock.APPS.VKP.OfferteService = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
+	Do OfferteServiceMock.VerwachtMethodCall("HeeftOfferteVanHandel", OfferteMock).DanReturn($$$False)
+	
+	#dim LeverAdresBepaler As APPS.EC.impl.KlantDataReferentieBepaler.LeverAdresBepaler = ##class(APPS.EC.impl.KlantDataReferentieBepaler.LeverAdresBepaler).%New(OfferteServiceMock)
+	#dim LeverAdres As %String = LeverAdresBepaler.GeefLeverAdres(OfferteMock)
+	
+	Do $$$AssertEquals(LeverAdres, "DummyNaam, DummyStraat, DummyPostcode DummyGemeente, DummyCode")
+	
+	Do OfferteMock.Verifieer()
+	Do LeverAdresMock.Verifieer()
+	Do LandMock.Verifieer()
+	Do OfferteServiceMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: LeverAdres van handelofferte wordt teruggegeven als string indien de opgegeven offerte een handelofferte heeft">
+<Implementation><![CDATA[
+	#dim LandMock As vhTest.Mock.DOM.common.Land = ##class(vhTest.Mock.DOM.common.Land).%New()
+	Do LandMock.VerwachtMethodCall("GeefCode").DanReturn("DummyCode")
+	
+	#dim LeverAdresMock As vhTest.Mock.DOM.VKP.LeverAdres = ##class(vhTest.Mock.DOM.VKP.LeverAdres).%New()
+	Do LeverAdresMock.VerwachtMethodCall("GeefNaam").DanReturn("DummyNaam")
+	Do LeverAdresMock.VerwachtMethodCall("GeefStraat").DanReturn("DummyStraat")
+	Do LeverAdresMock.VerwachtMethodCall("GeefPostcode").DanReturn("DummyPostcode")
+	Do LeverAdresMock.VerwachtMethodCall("GeefGemeente").DanReturn("DummyGemeente")
+	Do LeverAdresMock.VerwachtMethodCall("GeefLand").DanReturn(LandMock)
+	
+	#dim DummyOfferte As APPS.VKP.impl.Offerte = ##class(APPS.VKP.impl.Offerte).%New()	
+	#dim OfferteVanHandelMock As vhTest.Mock.APPS.VKP.Offerte = ##class(vhTest.Mock.APPS.VKP.Offerte).%New()
+	Do OfferteVanHandelMock.VerwachtMethodCall("GeefLeverAdres").DanReturn(LeverAdresMock)
+	
+	#dim OfferteServiceMock As vhTest.Mock.APPS.VKP.OfferteService = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
+	Do OfferteServiceMock.VerwachtMethodCall("HeeftOfferteVanHandel", DummyOfferte).DanReturn($$$True)
+	Do OfferteServiceMock.VerwachtMethodCall("GeefOfferteVanHandel", DummyOfferte).DanReturn(OfferteVanHandelMock)
+	
+	#dim LeverAdresBepaler As APPS.EC.impl.KlantDataReferentieBepaler.LeverAdresBepaler = ##class(APPS.EC.impl.KlantDataReferentieBepaler.LeverAdresBepaler).%New(OfferteServiceMock)
+	#dim LeverAdres As %String = LeverAdresBepaler.GeefLeverAdres(DummyOfferte)
+	
+	Do $$$AssertEquals(LeverAdres, "DummyNaam, DummyStraat, DummyPostcode DummyGemeente, DummyCode")
+	
+	Do OfferteVanHandelMock.Verifieer()
+	Do LeverAdresMock.Verifieer()
+	Do LandMock.Verifieer()
+	Do OfferteServiceMock.Verifieer()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
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>
 
 
Index: vhTest/Fake/APPS/EC/impl/KlantDataReferentieBepaler/LeverAdresBepaler.cls.xml
===================================================================
diff -u
--- vhTest/Fake/APPS/EC/impl/KlantDataReferentieBepaler/LeverAdresBepaler.cls.xml	(revision 0)
+++ vhTest/Fake/APPS/EC/impl/KlantDataReferentieBepaler/LeverAdresBepaler.cls.xml	(revision 52814)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.APPS.EC.impl.KlantDataReferentieBepaler.LeverAdresBepaler">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.EC.impl.KlantDataReferentieBepaler.LeverAdresBepaler</Super>
+
+<Method name="GeefLeverAdres">
+<FormalSpec>Offerte:APPS.VKP.Offerte</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/APPS/EC/impl/KlantDataReferentieBepaler/LeverAdresBepaler.cls.xml
===================================================================
diff -u
--- vhTest/Mock/APPS/EC/impl/KlantDataReferentieBepaler/LeverAdresBepaler.cls.xml	(revision 0)
+++ vhTest/Mock/APPS/EC/impl/KlantDataReferentieBepaler/LeverAdresBepaler.cls.xml	(revision 52814)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.APPS.EC.impl.KlantDataReferentieBepaler.LeverAdresBepaler">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.EC.impl.KlantDataReferentieBepaler.LeverAdresBepaler,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="GeefLeverAdres">
+<FormalSpec>Offerte:APPS.VKP.Offerte</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefLeverAdres",Offerte)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/EC/impl/KlantDataReferentieBepaler.cls.xml
===================================================================
diff -u -r52553 -r52814
--- APPS/EC/impl/KlantDataReferentieBepaler.cls.xml	(.../KlantDataReferentieBepaler.cls.xml)	(revision 52553)
+++ APPS/EC/impl/KlantDataReferentieBepaler.cls.xml	(.../KlantDataReferentieBepaler.cls.xml)	(revision 52814)
@@ -33,17 +33,24 @@
 <Private>1</Private>
 </Property>
 
+<Property name="LeverAdresBepaler">
+<Type>APPS.EC.impl.KlantDataReferentieBepaler.LeverAdresBepaler</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>OfferteService:APPS.VKP.OfferteService,DataService:APPS.EC.DataService</FormalSpec>
+<FormalSpec>OfferteService:APPS.VKP.OfferteService="",DataService:APPS.EC.DataService="",LeverAdresBepaler:APPS.EC.impl.KlantDataReferentieBepaler.LeverAdresBepaler=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	set ..OfferteService = $$$Inject(OfferteService,##class(APPS.ApplicatieContext).Instance().GeefVerkoopAPI().GeefOfferteService())
-	set ..DataService = $$$Inject(DataService,##class(APPS.EC.Rapporteur.impl.IoCContainer).Instance().Resolve("DataService"))
-	set ..PersonalityService = ##class(DOM.common.impl.PersonalityService).%New()
-	quit $$$OK
+	Set ..OfferteService = $$$Inject(OfferteService, ##class(APPS.ApplicatieContext).Instance().GeefVerkoopAPI().GeefOfferteService())
+	Set ..DataService = $$$Inject(DataService, ##class(APPS.EC.Rapporteur.impl.IoCContainer).Instance().Resolve("DataService"))
+	Set ..LeverAdresBepaler = $$$Inject(LeverAdresBepaler, ##class(APPS.EC.impl.KlantDataReferentieBepaler.LeverAdresBepaler).%New())
+	Set ..PersonalityService = ##class(DOM.common.impl.PersonalityService).%New()
+	
+	Quit $$$OK
 ]]></Implementation>
 </Method>
 
@@ -127,7 +134,7 @@
 <FormalSpec>HaefeleBEPersonality:DOM.common.HaefeleBEPersonality</FormalSpec>
 <Implementation><![CDATA[
 	#dim KlantID As DOM.VKP.VanHoeckeKlantID = ..GeefKlantIDVoorInfoVanOfferte(..Offerte)			
-	#dim KlantData As DOM.VKP.impl.KlantData = ..DataService.GeefKlantData(HaefeleBEPersonality.GeefID(),KlantID)
+	#dim KlantData As DOM.VKP.impl.KlantData = ..DataService.GeefKlantData(HaefeleBEPersonality.GeefID(), KlantID)
 	
 	#dim Naam As %String = KlantData.Naam
 	Do ..VoegToeIndienNodig(Naam)
@@ -138,7 +145,7 @@
 <FormalSpec>HaefeleNLPersonality:DOM.common.HaefeleNLPersonality</FormalSpec>
 <Implementation><![CDATA[
 	#dim KlantID As DOM.VKP.VanHoeckeKlantID = ..GeefKlantIDVoorInfoVanOfferte(..Offerte)			
-	#dim KlantData As DOM.VKP.impl.KlantData = ..DataService.GeefKlantData(HaefeleNLPersonality.GeefID(),KlantID)
+	#dim KlantData As DOM.VKP.impl.KlantData = ..DataService.GeefKlantData(HaefeleNLPersonality.GeefID(), KlantID)
 	
 	#dim Naam As %String = KlantData.Naam
 	Do ..VoegToeIndienNodig(Naam)
@@ -164,19 +171,19 @@
 <FormalSpec>Personality:DOM.common.Personality</FormalSpec>
 <Implementation><![CDATA[
 	#dim KlantID As DOM.VKP.VanHoeckeKlantID = ..GeefKlantIDVoorInfoVanOfferte(..Offerte)			
-	#dim KlantData As DOM.VKP.impl.KlantData = ..DataService.GeefKlantData(Personality.GeefID(),KlantID)
+	#dim KlantData As DOM.VKP.impl.KlantData = ..DataService.GeefKlantData(Personality.GeefID(), KlantID)
 	
 	#dim Naam As %String = KlantData.Naam
 	Do ..VoegToeIndienNodig(Naam)
 	
-	#dim Nummer As %String = ..PersonalityService.GeefKlantCodeViaKlantId(Personality,KlantData.ID)
+	#dim Nummer As %String = ..PersonalityService.GeefKlantCodeViaKlantId(Personality, KlantData.ID)
 	Do ..VoegToeIndienNodig(Nummer)
 	
 	#dim Email As %String = KlantData.EmailAdres
 	Do ..VoegToeIndienNodig(Email)
 	
-	#dim LeverAdresInStringFormaat As %String = ..GeefLeverAdresInStringFormaat(..Offerte)
-	Do ..VoegToeIndienNodig(LeverAdresInStringFormaat)
+	#dim LeverAdres As %String = ..LeverAdresBepaler.GeefLeverAdres(..Offerte)
+	Do ..VoegToeIndienNodig(LeverAdres)
 ]]></Implementation>
 </Method>
 
@@ -185,15 +192,15 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim GebruikerID As %String = ..Offerte.GeefAangemaaktDoor()
-	If $Length(GebruikerID)>0 {
-		#dim Gebruiker As %String = ..DataService.GeefGebruikerData(Personality.GeefID(),GebruikerID).Naam
+	
+	If ($Length(GebruikerID) > 0) {
+		#dim Gebruiker As %String = ..DataService.GeefGebruikerData(Personality.GeefID(), GebruikerID).Naam
 		Do ..VoegToeIndienNodig(Gebruiker)
 	}
 	
 	#dim KlantID As DOM.VKP.KlantID = ..GeefKlantIDVoorInfoVanOfferte(..Offerte)
+	#dim KlantData As DOM.VKP.impl.KlantData = ..DataService.GeefKlantData(Personality.GeefID(), KlantID)
 	
-	#dim KlantData As DOM.VKP.impl.KlantData = ..DataService.GeefKlantData(Personality.GeefID(),KlantID)
-	
 	#dim Naam As %String = KlantData.Naam
 	Do ..VoegToeIndienNodig(Naam)
 	
@@ -207,13 +214,13 @@
 	Do ..VoegToeIndienNodig(Email)
 	
 	#dim TEL As %String = KlantData.TelefoonNummer
-	Do ..VoegToeIndienNodig(TEL,"Tel: ")
+	Do ..VoegToeIndienNodig(TEL, "Tel: ")
 	
 	#dim FAX As %String = KlantData.FaxNummer
-	Do ..VoegToeIndienNodig(FAX,"Fax: ")
+	Do ..VoegToeIndienNodig(FAX, "Fax: ")
 	
-	#dim LeverAdresInStringFormaat As %String = ..GeefLeverAdresInStringFormaat(..Offerte)
-	Do ..VoegToeIndienNodig(LeverAdresInStringFormaat,"Adres: ")
+	#dim LeverAdres As %String = ..LeverAdresBepaler.GeefLeverAdres(..Offerte)
+	Do ..VoegToeIndienNodig(LeverAdres, "Adres: ")
 ]]></Implementation>
 </Method>
 
@@ -232,22 +239,6 @@
 	Quit KlantID
 ]]></Implementation>
 </Method>
-
-<Method name="GeefLeverAdresInStringFormaat">
-<FormalSpec>Offerte:APPS.VKP.Offerte</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	If ..OfferteService.HeeftOfferteVanHandel(Offerte) {
-		set Offerte = ..OfferteService.GeefOfferteVanHandel(Offerte)
-	}
-
-	#dim LeverAdres As DOM.VKP.LeverAdres = Offerte.GeefLeverAdres()
-	if $$$HasLength(LeverAdres.GeefNaam()) && $$$HasLength(LeverAdres.GeefStraat()) {
-		quit LeverAdres.GeefNaam()_ ", " _ LeverAdres.GeefStraat() _ ", " _ LeverAdres.GeefPostcode()_ " " _ LeverAdres.GeefGemeente() _ ", " _ LeverAdres.GeefLand().GeefCode()
-	}
-	quit ""
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: APPS/EC/impl/KlantDataReferentieBepaler/LeverAdresBepaler.cls.xml
===================================================================
diff -u
--- APPS/EC/impl/KlantDataReferentieBepaler/LeverAdresBepaler.cls.xml	(revision 0)
+++ APPS/EC/impl/KlantDataReferentieBepaler/LeverAdresBepaler.cls.xml	(revision 52814)
@@ -0,0 +1,45 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EC.impl.KlantDataReferentieBepaler.LeverAdresBepaler">
+<Super>TECH.Mockable</Super>
+
+<Property name="OfferteService">
+<Type>APPS.VKP.OfferteService</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>OfferteService:APPS.VKP.OfferteService</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..OfferteService = $$$Inject(OfferteService, ##class(APPS.VKP.impl.OfferteService).%New())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefLeverAdres">
+<FormalSpec>Offerte:APPS.VKP.Offerte</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	If (..OfferteService.HeeftOfferteVanHandel(Offerte)) {
+		Set Offerte = ..OfferteService.GeefOfferteVanHandel(Offerte)
+	}
+
+	#dim LeverAdres As DOM.VKP.LeverAdres = Offerte.GeefLeverAdres()
+	#dim Resultaat As %String = ""
+	
+	If $$$HasLength(LeverAdres.GeefNaam()) && $$$HasLength(LeverAdres.GeefStraat()) {
+		Set Resultaat = LeverAdres.GeefNaam() _ ", " _ LeverAdres.GeefStraat() _ ", " _ LeverAdres.GeefPostcode() _ " " _ LeverAdres.GeefGemeente() _ ", " _ LeverAdres.GeefLand().GeefCode()
+	}
+	
+	Quit Resultaat
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/EC/impl/KlantDataReferentieBepaler/GeefKlantDataReferentie/TestVanHoeckeMetGekoppeldeOfferte.cls.xml
===================================================================
diff -u -r52589 -r52814
--- vhUnitTest/APPS/EC/impl/KlantDataReferentieBepaler/GeefKlantDataReferentie/TestVanHoeckeMetGekoppeldeOfferte.cls.xml	(.../TestVanHoeckeMetGekoppeldeOfferte.cls.xml)	(revision 52589)
+++ vhUnitTest/APPS/EC/impl/KlantDataReferentieBepaler/GeefKlantDataReferentie/TestVanHoeckeMetGekoppeldeOfferte.cls.xml	(.../TestVanHoeckeMetGekoppeldeOfferte.cls.xml)	(revision 52814)
@@ -12,42 +12,45 @@
 	Do LeverancierOfferteStub.IndienMethodCall("GeefKlantID").DanReturn($$$DummyString)
 	Do LeverancierOfferteStub.IndienMethodCall("GeefAangemaaktDoor").DanReturn($$$DummyString)
 	Do LeverancierOfferteStub.IndienMethodCall("GeefPersonality").DanReturn(LeverancierPersonality)
-	Do LeverancierOfferteStub.IndienMethodCall("GeefLeverAdres").DanReturn(##class(vhTest.Utils.DOM.VKP.LeverAdres).Geen())
 	Do LeverancierOfferteStub.IndienMethodCall("IsVhisie4").DanReturn($$$False)
 	
 	#dim BestellingBijKlantStub As vhTest.Mock.APPS.VKP.Offerte= ##class(vhTest.Mock.APPS.VKP.Offerte).%New()
 	Do BestellingBijKlantStub.IndienMethodCall("GeefKlantID").DanReturn($$$DummyString)
 	Do BestellingBijKlantStub.IndienMethodCall("GeefAangemaaktDoor").DanReturn("")
 	Do BestellingBijKlantStub.IndienMethodCall("GeefPersonality").DanReturn(KlantPersonality)
-	Do BestellingBijKlantStub.IndienMethodCall("GeefLeverAdres").DanReturn(##class(vhTest.Utils.DOM.VKP.LeverAdres).Belgisch())
 	
 	#dim OfferteServiceStub As vhTest.Mock.APPS.VKP.OfferteService = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
-	Do OfferteServiceStub.IndienMethodCall("HeeftOfferteVanHandel",LeverancierOfferteStub).DanReturn($$$true)
-	Do OfferteServiceStub.IndienMethodCall("GeefOfferteVanHandel",LeverancierOfferteStub).DanReturn(BestellingBijKlantStub)
+	Do OfferteServiceStub.IndienMethodCall("HeeftOfferteVanHandel", LeverancierOfferteStub).DanReturn($$$true)
+	Do OfferteServiceStub.IndienMethodCall("GeefOfferteVanHandel", LeverancierOfferteStub).DanReturn(BestellingBijKlantStub)
 
 	#dim DataServiceStub As vhTest.Mock.APPS.EC.DataService = ##class(vhTest.Mock.APPS.EC.DataService).%New()
 	Do DataServiceStub.IndienMethodCall("GeefKlantData", KlantPersonality.GeefID(), $$$DummyString).DanReturn(..GeefKlantData())
 	Do DataServiceStub.IndienMethodCall("GeefGebruikerData", KlantPersonality.GeefID(), $$$DummyString).DanReturn(##class(DOM.common.dto.GebruikerData).%New())
+
+	#dim LeverAdresBepalerStub As vhTest.Mock.APPS.EC.impl.KlantDataReferentieBepaler.LeverAdresBepaler = ##class(vhTest.Mock.APPS.EC.impl.KlantDataReferentieBepaler.LeverAdresBepaler).%New()
+	Do LeverAdresBepalerStub.IndienMethodCall("GeefLeverAdres", LeverancierOfferteStub).DanReturn("DummyLeverAdres")
+
+	#dim KlantDataReferentieBepaler As APPS.EC.impl.KlantDataReferentieBepaler = ##class(APPS.EC.impl.KlantDataReferentieBepaler).%New(OfferteServiceStub, DataServiceStub, LeverAdresBepalerStub)
 	
-	#dim KlantDataReferentieBepaler As APPS.EC.impl.KlantDataReferentieBepaler = ##class(APPS.EC.impl.KlantDataReferentieBepaler).%New(OfferteServiceStub,DataServiceStub)
-	
-	#dim VerwachteKlantDataReferentie As %String = "Dummy Naam - DummyGemeente - DummyStraat - DummyEmailAdres - Tel: DummyTelefoonNummer - Fax: DummyFaxNummer - Adres: Een Belg, Ankerstraat 91, 9100 Sint-Niklaas, BE"
-	Do $$$AssertEquals(KlantDataReferentieBepaler.GeefKlantDataReferentie(LeverancierOfferteStub),VerwachteKlantDataReferentie)
+	#dim VerwachteKlantDataReferentie As %String = "Dummy Naam - DummyGemeente - DummyStraat - DummyEmailAdres - Tel: DummyTelefoonNummer - Fax: DummyFaxNummer - Adres: DummyLeverAdres"
+	Do $$$AssertEquals(KlantDataReferentieBepaler.GeefKlantDataReferentie(LeverancierOfferteStub), VerwachteKlantDataReferentie)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefKlantData">
 <Private>1</Private>
 <ReturnType>DOM.common.dto.HandelKlantData</ReturnType>
 <Implementation><![CDATA[
-	Set HandelKlantData = ##class(DOM.common.dto.HandelKlantData).%New()
+	#dim HandelKlantData As DOM.common.dto.HandelKlantData = ##class(DOM.common.dto.HandelKlantData).%New()
+	
 	Set HandelKlantData.Naam = "Dummy Naam"
 	Set HandelKlantData.ID = "DummyKlantID"
 	Set HandelKlantData.Gemeente = "DummyGemeente"
 	Set HandelKlantData.StraatEnNr = "DummyStraat"
 	Set HandelKlantData.EmailAdres = "DummyEmailAdres"
 	Set HandelKlantData.TelefoonNummer = "DummyTelefoonNummer"
 	Set HandelKlantData.FaxNummer = "DummyFaxNummer"
+	
 	Quit HandelKlantData
 ]]></Implementation>
 </Method>