Index: BL/Flow/Proxy/impl/LeverbonHoofdingBepaler.cls.xml
===================================================================
diff -u -r70806 -r71063
--- BL/Flow/Proxy/impl/LeverbonHoofdingBepaler.cls.xml	(.../LeverbonHoofdingBepaler.cls.xml)	(revision 70806)
+++ BL/Flow/Proxy/impl/LeverbonHoofdingBepaler.cls.xml	(.../LeverbonHoofdingBepaler.cls.xml)	(revision 71063)
@@ -94,7 +94,10 @@
 		Do ..VerwerkHaefeleFI(##class(DOM.common.HaefeleCHPersonality).Instance()) // De LeverbonHoofding mag voor klant dezelfde zijn als i.g.v. multipersonality.
 	} ElseIf ..IsHaefeleNO(KLNr) {
 		Do ..VerwerkHaefeleNO(##class(DOM.common.HaefeleNOPersonality).Instance()) // De LeverbonHoofding mag voor klant dezelfde zijn als i.g.v. multipersonality.
-	} Else {
+	} ElseIf ..IsBlumPolen(KLNr) {
+		Do ..VerwerkBlumPolen(##class(DOM.common.BlumPLPersonality).Instance()) // De LeverbonHoofding mag voor klant dezelfde zijn als i.g.v. multipersonality.
+	}
+	Else {
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.UnimplementedException).%New("Voor KLNr '"_KLNr_"' is er nog geen eigen LeverbonHoofding voorzien i.g.v. niet-multipersonality. "))
 	}
 ]]></Implementation>
@@ -212,6 +215,14 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsBlumPolen">
+<FormalSpec>KLNr:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (KLNr = 37598)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkVanHoecke">
 <FormalSpec>VanHoeckePersonality:DOM.common.VanHoeckePersonality</FormalSpec>
 <Implementation><![CDATA[
@@ -815,6 +826,33 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkBlumPolen">
+<FormalSpec>BlumPLPersonality:DOM.common.BlumPLPersonality</FormalSpec>
+<Implementation><![CDATA[
+	Set ..HeaderType = ##class(BL.FOP.Proxy.enu.HoofdingType).BlumPolen()
+	
+	Set ..LeverbonHoofding.ColLeftWidth = "40mm"
+	Set ..LeverbonHoofding.ColRightWidth = "73mm"
+	
+	#dim URL As %String = ""
+	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(BlumPLPersonality.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 = "Blum Polska SP. Z O.O"
+	Set ..LeverbonHoofding.STRAATNRBUS = "ul. Poznanska 16"
+	Set ..LeverbonHoofding.WOONPLAATS = "Swarzedza"
+	Set ..LeverbonHoofding.POSTCODE = "62-020"
+	Set ..LeverbonHoofding.TELEFOON = "+61 895 19 00"
+	Set ..LeverbonHoofding.EMAIL = "info.pl@blum.com"
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkBeslagDesign">
 <FormalSpec>BeslagDesignPersonality:DOM.common.BeslagDesignPersonality</FormalSpec>
 </Method>