Index: APPS/EC/impl/KlantDataReferentieBepaler.cls.xml
===================================================================
diff -u -r36503 -r39917
--- APPS/EC/impl/KlantDataReferentieBepaler.cls.xml	(.../KlantDataReferentieBepaler.cls.xml)	(revision 36503)
+++ APPS/EC/impl/KlantDataReferentieBepaler.cls.xml	(.../KlantDataReferentieBepaler.cls.xml)	(revision 39917)
@@ -120,6 +120,9 @@
 	
 	#dim Email As %String = KlantData.EmailAdres
 	Do ..VoegToeIndienNodig(Email)
+	
+	#dim LeverAdresInStringFormaat As %String = ..GeefLeverAdresInStringFormaat(..Offerte)
+	Do ..VoegToeIndienNodig(LeverAdresInStringFormaat)
 ]]></Implementation>
 </Method>
 
@@ -153,6 +156,9 @@
 	
 	#dim FAX As %String = KlantData.FaxNummer
 	Do ..VoegToeIndienNodig(FAX,"Fax: ")
+	
+		#dim LeverAdresInStringFormaat As %String = ..GeefLeverAdresInStringFormaat(..Offerte)
+	Do ..VoegToeIndienNodig(LeverAdresInStringFormaat,"Adres: ")
 ]]></Implementation>
 </Method>
 
@@ -170,6 +176,18 @@
 	Quit KlantID
 ]]></Implementation>
 </Method>
+
+<Method name="GeefLeverAdresInStringFormaat">
+<FormalSpec>Offerte:APPS.VKP.Offerte</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#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>