Index: BL/FOP/Proxy/enu/HoofdingType/Verwerker.cls.xml
===================================================================
diff -u -r67229 -r71063
--- BL/FOP/Proxy/enu/HoofdingType/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 67229)
+++ BL/FOP/Proxy/enu/HoofdingType/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 71063)
@@ -12,7 +12,9 @@
 <Final>1</Final>
 <FormalSpec>HoofdingType:BL.FOP.Proxy.enu.HoofdingType</FormalSpec>
 <Implementation><![CDATA[
-	If HoofdingType = "Campe Tonny" {
+	If HoofdingType = "Blum Polen" {
+		Do ..VerwerkBlumPolen()
+	} ElseIf HoofdingType = "Campe Tonny" {
 		Do ..VerwerkCampeTonny()
 	} ElseIf HoofdingType = "EXTERN" {
 		Do ..VerwerkCustom()
@@ -61,6 +63,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkBlumPolen">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
 <Method name="VerwerkCampeTonny">
 <Abstract>1</Abstract>
 <Private>1</Private>
Index: BL/FOP/Proxy/enu/HoofdingType.cls.xml
===================================================================
diff -u -r67229 -r71063
--- BL/FOP/Proxy/enu/HoofdingType.cls.xml	(.../HoofdingType.cls.xml)	(revision 67229)
+++ BL/FOP/Proxy/enu/HoofdingType.cls.xml	(.../HoofdingType.cls.xml)	(revision 71063)
@@ -162,6 +162,13 @@
 <Implementation><![CDATA[	Quit "Campe Tonny"
 ]]></Implementation>
 </Method>
+
+<Method name="BlumPolen">
+<ClassMethod>1</ClassMethod>
+<ReturnType>BL.FOP.Proxy.enu.HoofdingType</ReturnType>
+<Implementation><![CDATA[	Quit "Blum Polen"
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: BL/Legacy/DCPRINT2.cls.xml
===================================================================
diff -u -r67229 -r71063
--- BL/Legacy/DCPRINT2.cls.xml	(.../DCPRINT2.cls.xml)	(revision 67229)
+++ BL/Legacy/DCPRINT2.cls.xml	(.../DCPRINT2.cls.xml)	(revision 71063)
@@ -173,6 +173,8 @@
 		Set IsAfdrukOpBlancoPapier = $$$True
 	}ElseIf ((PersonalityId = Personality.CampeTonny)) {
 		Set IsAfdrukOpBlancoPapier = $$$True
+	}ElseIf ((PersonalityId = Personality.BlumPL)) {
+		Set IsAfdrukOpBlancoPapier = $$$True
 	}
 	
 	Quit IsAfdrukOpBlancoPapier
Index: BL/Flow/Proxy/pxLevering.cls.xml
===================================================================
diff -u -r71017 -r71063
--- BL/Flow/Proxy/pxLevering.cls.xml	(.../pxLevering.cls.xml)	(revision 71017)
+++ BL/Flow/Proxy/pxLevering.cls.xml	(.../pxLevering.cls.xml)	(revision 71063)
@@ -342,7 +342,7 @@
 	
 	#dim HeeftEigenHoofding As %Boolean = $$$False
 
-	Set HeeftEigenHoofding = ##class(TECH.StringUtils).Equals(AfzenderHoofdingDto.HeaderType, HoofdingType.HaefeleCH, HoofdingType.HaefeleSE,HoofdingType.HaefeleFI, HoofdingType.HaefeleNO,HoofdingType.HaefeleNL,HoofdingType.HaefeleDE,HoofdingType.HaefeleAT,HoofdingType.HaefeleIT,HoofdingType.HaefeleCH ,HoofdingType.Noteborn,HoofdingType.SFS,HoofdingType.VanRaemdonck, HoofdingType.CampeTonny,HoofdingType.OPO)
+	Set HeeftEigenHoofding = ##class(TECH.StringUtils).Equals(AfzenderHoofdingDto.HeaderType, HoofdingType.HaefeleCH, HoofdingType.HaefeleSE,HoofdingType.HaefeleFI, HoofdingType.HaefeleNO,HoofdingType.HaefeleNL,HoofdingType.HaefeleDE,HoofdingType.HaefeleAT,HoofdingType.HaefeleIT,HoofdingType.HaefeleCH ,HoofdingType.Noteborn,HoofdingType.SFS,HoofdingType.VanRaemdonck, HoofdingType.CampeTonny,HoofdingType.OPO,HoofdingType.BlumPolen)
 	
 	If (##class(DOM.common.impl.ProjectSettingsAPI).%New().IsActiefHeinNaarEindklant()) {
 		Set HeeftEigenHoofding =  HeeftEigenHoofding || (AfzenderHoofdingDto.HeaderType = HoofdingType.Hein)
@@ -539,6 +539,11 @@
 		Set ..KlantTelefoon = ""
 		Set ..BTWNR = ""
 		Set ..HeaderType = HoofdingType.Custom
+	} ElseIf ..HeaderType = HoofdingType.BlumPolen {
+		Set ..KlantTelefoon = ""
+		Set ..BTWNR = ""
+		Set ..HeaderType = HoofdingType.Custom
+	
 	} Else {
 		Set ..KlantTelefoon=$P($$$KLRec(0),"\",13)
 		Set ..CheckSumBon= "" ;CheckSumBon
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>
Index: BL/FOP/Proxy/enu/HoofdingType/AutoComplete.cls.xml
===================================================================
diff -u -r67229 -r71063
--- BL/FOP/Proxy/enu/HoofdingType/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 67229)
+++ BL/FOP/Proxy/enu/HoofdingType/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 71063)
@@ -9,6 +9,13 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%SerialObject</Super>
 
+<Property name="BlumPolen">
+<Type>%String</Type>
+<InitialExpression>"Blum Polen"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
 <Property name="CampeTonny">
 <Type>%String</Type>
 <InitialExpression>"Campe Tonny"</InitialExpression>
Index: APPS/common/impl/KlantInstellingenService.cls.xml
===================================================================
diff -u -r69501 -r71063
--- APPS/common/impl/KlantInstellingenService.cls.xml	(.../KlantInstellingenService.cls.xml)	(revision 69501)
+++ APPS/common/impl/KlantInstellingenService.cls.xml	(.../KlantInstellingenService.cls.xml)	(revision 71063)
@@ -193,7 +193,7 @@
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	#dim PartijID As DOM.common.PartijID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(KLNr)
-	Quit ((PartijID = ##class(DOM.VKP.enu.Klant).SFS()) || (PartijID = ##class(DOM.VKP.enu.Klant).DuPont()) || ..IsEenVanDeHaefeleKlanten(PartijID) )
+	Quit ((PartijID = ##class(DOM.VKP.enu.Klant).SFS()) || (PartijID = ##class(DOM.VKP.enu.Klant).DuPont()) || ..IsEenVanDeHaefeleKlanten(PartijID)  || (PartijID = ##class(DOM.VKP.enu.Klant).BlumPolen()) )
 ]]></Implementation>
 </Method>