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>