Index: BL/Flow/Proxy/impl/LeverbonHoofdingBepaler.cls.xml
===================================================================
diff -u -r64772 -r65150
--- BL/Flow/Proxy/impl/LeverbonHoofdingBepaler.cls.xml	(.../LeverbonHoofdingBepaler.cls.xml)	(revision 64772)
+++ BL/Flow/Proxy/impl/LeverbonHoofdingBepaler.cls.xml	(.../LeverbonHoofdingBepaler.cls.xml)	(revision 65150)
@@ -482,6 +482,34 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkHaefeleCH">
+<FormalSpec>HaefeleCHPersonality:DOM.common.HaefeleCHPersonality</FormalSpec>
+<Implementation><![CDATA[
+	Set ..HeaderType = ##class(BL.FOP.Proxy.enu.HoofdingType).HaefeleCH()
+	
+	Set ..LeverbonHoofding.ColLeftWidth = "40mm"
+    Set ..LeverbonHoofding.ColRightWidth = "73mm"
+    
+	#dim URL As %String = ""
+	
+	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(HaefeleCHPersonality.GeefKlantID())
+	If Klant.HeeftEigenLogo(){
+    	Set URL = "\\fop\Resources\Media\KlantLogos\"
+		#dim Bestand As %String = Klant.GeefLogo()
+		#dim Extensie As %String = ##class(TECH.StringUtils).GetLastPart(Bestand,".")
+    	Set URL = ##class(TECH.Files).AppendFile(URL,Bestand)
+    	Set ..LeverbonHoofding.LOGO = ##class(BL.FOP.Basis.pxAttribType).Create(URL,##class(TECH.StringUtils).ToUpper(Extensie),,)
+	}	    
+    Set ..LeverbonHoofding.NAAM = "Häfele Chweiz AG"
+    Set ..LeverbonHoofding.STRAATNRBUS = "Dammstrasse 29"
+    Set ..LeverbonHoofding.WOONPLAATS = "Kreuzlingen"
+    Set ..LeverbonHoofding.POSTCODE = "8280"
+	Set ..LeverbonHoofding.TELEFOON = "+41 (0)71/6868200"
+	Set ..LeverbonHoofding.EMAIL = "Info@haefele.ch"
+	Set ..LeverbonHoofding.T1 = "UID: CHE-107.089.958"
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkHaefeleSE">
 <FormalSpec>HaefeleSEPersonality:DOM.common.HaefeleSEPersonality</FormalSpec>
 <Implementation><![CDATA[