Index: BL/Flow/Proxy/impl/LeverbonHoofdingBepaler.cls.xml
===================================================================
diff -u -r63389 -r75106
--- BL/Flow/Proxy/impl/LeverbonHoofdingBepaler.cls.xml	(.../LeverbonHoofdingBepaler.cls.xml)	(revision 63389)
+++ BL/Flow/Proxy/impl/LeverbonHoofdingBepaler.cls.xml	(.../LeverbonHoofdingBepaler.cls.xml)	(revision 75106)
@@ -18,14 +18,20 @@
 <Private>1</Private>
 </Property>
 
+<Property name="OorsprongKetting">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>KlantInstellingenService:APPS.common.KlantInstellingenService</FormalSpec>
+<FormalSpec>KlantInstellingenService:APPS.common.KlantInstellingenService,OorsprongKetting:%String=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..KlantInstellingenService = $$$Inject(KlantInstellingenService, ##class(APPS.common.impl.KlantInstellingenService).%New())
+	Set ..OorsprongKetting = OorsprongKetting
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -70,7 +76,36 @@
 <Implementation><![CDATA[
 	If ..IsSFS(KLNr) {
 		Do ..VerwerkSFS(##class(DOM.common.enu.Personality).SFS()) // De LeverbonHoofding mag voor SFS als klant dezelfde zijn als i.g.v. multipersonality.
-	} Else {
+	} ElseIf ..IsDupont(KLNr) {
+		Do ..VerwerkDupont(##class(DOM.common.enu.Personality).Dupont()) // De LeverbonHoofding mag voor Dupont als klant dezelfde zijn als i.g.v. multipersonality.
+	} ElseIf ..IsHaefeleIT(KLNr) {
+		Do ..VerwerkHaefeleIT(##class(DOM.common.HaefeleITPersonality).Instance()) // De LeverbonHoofding mag voor klant dezelfde zijn als i.g.v. multipersonality.
+	} ElseIf ..IsHaefeleBE(KLNr) {
+		Do ..VerwerkHaefeleBE(##class(DOM.common.HaefeleBEPersonality).Instance()) // De LeverbonHoofding mag voor klant dezelfde zijn als i.g.v. multipersonality.
+	} ElseIf ..IsHaefeleFR(KLNr) {
+		Do ..VerwerkHaefeleFR(##class(DOM.common.HaefeleFRPersonality).Instance()) // De LeverbonHoofding mag voor klant dezelfde zijn als i.g.v. multipersonality.
+	} ElseIf ..IsHaefeleDK(KLNr) {
+		Do ..VerwerkHaefeleDK(##class(DOM.common.HaefeleDKPersonality).Instance()) // De LeverbonHoofding mag voor klant dezelfde zijn als i.g.v. multipersonality.
+	} ElseIf ..IsHaefeleNL(KLNr) {
+		Do ..VerwerkHaefeleNL(##class(DOM.common.HaefeleNLPersonality).Instance()) // De LeverbonHoofding mag voor klant dezelfde zijn als i.g.v. multipersonality.
+	} ElseIf ..IsHaefeleDE(KLNr) {
+		Do ..VerwerkHaefeleDE(##class(DOM.common.HaefeleDEPersonality).Instance()) // De LeverbonHoofding mag voor klant dezelfde zijn als i.g.v. multipersonality.
+	} ElseIf ..IsHaefeleAT(KLNr) {
+		Do ..VerwerkHaefeleAT(##class(DOM.common.HaefeleATPersonality).Instance()) // De LeverbonHoofding mag voor klant dezelfde zijn als i.g.v. multipersonality.
+	} ElseIf ..IsHaefeleCH(KLNr) {
+		Do ..VerwerkHaefeleCH(##class(DOM.common.HaefeleCHPersonality).Instance()) // De LeverbonHoofding mag voor klant dezelfde zijn als i.g.v. multipersonality.
+	} ElseIf ..IsHaefeleSE(KLNr) {
+		Do ..VerwerkHaefeleSE(##class(DOM.common.HaefeleCHPersonality).Instance()) // De LeverbonHoofding mag voor klant dezelfde zijn als i.g.v. multipersonality.
+	} ElseIf ..IsHaefeleFI(KLNr) {
+		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.
+	} ElseIf ..IsBlumPolen(KLNr) {
+		Do ..VerwerkBlumPL(##class(DOM.common.BlumPLPersonality).Instance()) // De LeverbonHoofding mag voor klant dezelfde zijn als i.g.v. multipersonality.
+	} ElseIf ..IsBlumTsjechie(KLNr) {
+		Do ..VerwerkBlumCZ(##class(DOM.common.BlumCZPersonality).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>
@@ -92,6 +127,118 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsDupont">
+<FormalSpec>KLNr:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (KLNr = 1736)
+]]></Implementation>
+</Method>
+
+<Method name="IsHaefeleIT">
+<FormalSpec>KLNr:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (KLNr = 35412)
+]]></Implementation>
+</Method>
+
+<Method name="IsHaefeleFR">
+<FormalSpec>KLNr:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (KLNr = 35698)
+]]></Implementation>
+</Method>
+
+<Method name="IsHaefeleDK">
+<FormalSpec>KLNr:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (KLNr = 35697)
+]]></Implementation>
+</Method>
+
+<Method name="IsHaefeleBE">
+<FormalSpec>KLNr:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (KLNr = 4875)
+]]></Implementation>
+</Method>
+
+<Method name="IsHaefeleNL">
+<FormalSpec>KLNr:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (KLNr = 2671)
+]]></Implementation>
+</Method>
+
+<Method name="IsHaefeleDE">
+<FormalSpec>KLNr:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (KLNr = 32672)
+]]></Implementation>
+</Method>
+
+<Method name="IsHaefeleAT">
+<FormalSpec>KLNr:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (KLNr = 35415)
+]]></Implementation>
+</Method>
+
+<Method name="IsHaefeleCH">
+<FormalSpec>KLNr:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (KLNr = 35864)
+]]></Implementation>
+</Method>
+
+<Method name="IsHaefeleSE">
+<FormalSpec>KLNr:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (KLNr = 36412)
+]]></Implementation>
+</Method>
+
+<Method name="IsHaefeleFI">
+<FormalSpec>KLNr:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (KLNr = 36413)
+]]></Implementation>
+</Method>
+
+<Method name="IsHaefeleNO">
+<FormalSpec>KLNr:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (KLNr = 36605)
+]]></Implementation>
+</Method>
+
+<Method name="IsBlumPolen">
+<FormalSpec>KLNr:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (KLNr = 37598)
+]]></Implementation>
+</Method>
+
+<Method name="IsBlumTsjechie">
+<FormalSpec>KLNr:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (KLNr = 39580)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkVanHoecke">
 <FormalSpec>VanHoeckePersonality:DOM.common.VanHoeckePersonality</FormalSpec>
 <Implementation><![CDATA[
@@ -111,6 +258,33 @@
 
 <Method name="VerwerkCampeTonny">
 <FormalSpec>CampeTonnyPersonality:DOM.common.CampeTonnyPersonality</FormalSpec>
+<Implementation><![CDATA[
+	Set ..HeaderType = ##class(BL.FOP.Proxy.enu.HoofdingType).CampeTonny()
+	Set ..LeverbonHoofding.ColLeftWidth = "40mm"
+	Set ..LeverbonHoofding.ColRightWidth = "73mm"
+	
+	#dim URL As %String = ""
+
+	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(##class(DOM.VKP.enu.Klant).CampeTonny())
+	If Klant.HeeftEigenLogo(){
+		Set URL = "\\Notes01\FOP\DocFamily7\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 = 			"Tonny Campe NV"
+	Set ..LeverbonHoofding.STRAATNRBUS = 	"Vaart Rechteroever 260, Industriezone 8 (Bachte)"    
+	Set ..LeverbonHoofding.WOONPLAATS = 	"Deinze"
+	Set ..LeverbonHoofding.POSTCODE = 		"BE 9800"
+	Set ..LeverbonHoofding.TELEFOON = 		"Tel: +32(0)9 386 59 91"
+	Set ..LeverbonHoofding.FAX = 			"Fax: +32(0)9 386 39 19"
+	Set ..LeverbonHoofding.EMAIL = 			"info@campe-metaalwaren.be"
+	Set ..LeverbonHoofding.T1 = 			"BTW-nr.: BE 0456.262.363"
+	Set ..LeverbonHoofding.T2 = 			"RPR Gent"
+	Set ..LeverbonHoofding.T3 = 			"ING: IBAN BE23 3900 4596 2291"
+	Set ..LeverbonHoofding.T4 = 			"     BIC BBRUBEBB"
+]]></Implementation>
 </Method>
 
 <Method name="VerwerkRini">
@@ -137,6 +311,14 @@
 <FormalSpec>FurnifitPersonality:DOM.common.FurnifitPersonality</FormalSpec>
 </Method>
 
+<Method name="VerwerkMartens">
+<FormalSpec>MartensPersonality:DOM.common.MartensPersonality</FormalSpec>
+</Method>
+
+<Method name="VerwerkMeurer">
+<FormalSpec>MeurerPersonality:DOM.common.MeurerPersonality</FormalSpec>
+</Method>
+
 <Method name="VerwerkYachtSupplier">
 <FormalSpec>YachtSupplierPersonality:DOM.common.YachtSupplierPersonality</FormalSpec>
 </Method>
@@ -151,18 +333,18 @@
     
 	#dim URL As %String = ""
 	
-	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(DupontPersonality.GeefKlantID())
+	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(##class(DOM.VKP.enu.Klant).DuPont())
 	If Klant.HeeftEigenLogo(){
-    	Set URL = "\\fop\Resources\Media\KlantLogos\Logo\"
+    	Set URL = "\\Notes01\FOP\DocFamily7\Resources\Media\KlantLogos\Logo\"
 		#dim Bestand As %String = "Logo Du Pont 1736 levbon.jpg"
 		#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 = "DU PONT BVBA"
-    Set ..LeverbonHoofding.STRAATNRBUS = "Kleinheide 24G"    
-    Set ..LeverbonHoofding.WOONPLAATS = "Pulderbos"
-    Set ..LeverbonHoofding.POSTCODE = "BE 2242"
+    Set ..LeverbonHoofding.STRAATNRBUS = "Bouwelven 16"    
+    Set ..LeverbonHoofding.WOONPLAATS = "Grobbendonk"
+    Set ..LeverbonHoofding.POSTCODE = "BE 2280"
 	Set ..LeverbonHoofding.TELEFOON = "Tel.: +32 3 464 00 91"	
 	Set ..LeverbonHoofding.FAX = "Fax.: +32 3 464 00 92"	
 	Set ..LeverbonHoofding.EMAIL = "info@du-pont.be"
@@ -185,7 +367,7 @@
 	
 	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(HaefeleBEPersonality.GeefKlantID())
 	If Klant.HeeftEigenLogo(){
-    	Set URL = "\\fop\Resources\Media\KlantLogos\"
+    	Set URL = "\\Notes01\FOP\DocFamily7\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)
@@ -216,7 +398,7 @@
 	
 	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(HaefeleNLPersonality.GeefKlantID())
 	If Klant.HeeftEigenLogo(){
-    	Set URL = "\\fop\Resources\Media\KlantLogos\"
+    	Set URL = "\\Notes01\FOP\DocFamily7\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)
@@ -247,13 +429,13 @@
 	
 	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(HaefeleDEPersonality.GeefKlantID())
 	If Klant.HeeftEigenLogo(){
-    	Set URL = "\\fop\Resources\Media\KlantLogos\"
+    	Set URL = "\\Notes01\FOP\DocFamily7\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 GmbH & Co KG"
+    Set ..LeverbonHoofding.NAAM = "Häfele SE & Co KG"
     Set ..LeverbonHoofding.STRAATNRBUS = "Adolf-Häfele-Str. 1"    
     Set ..LeverbonHoofding.WOONPLAATS = "Nagold"
     Set ..LeverbonHoofding.POSTCODE = "72202"
@@ -263,6 +445,236 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkHaefeleIT">
+<FormalSpec>HaefeleITPersonality:DOM.common.HaefeleITPersonality</FormalSpec>
+<Implementation><![CDATA[
+	Set ..HeaderType = ##class(BL.FOP.Proxy.enu.HoofdingType).HaefeleIT()
+	
+	Set ..LeverbonHoofding.ColLeftWidth = "40mm"
+    Set ..LeverbonHoofding.ColRightWidth = "73mm"
+    
+	#dim URL As %String = ""
+	
+	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(HaefeleITPersonality.GeefKlantID())
+	If Klant.HeeftEigenLogo(){
+    	Set URL = "\\Notes01\FOP\DocFamily7\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 = "VAN HOECKE NV"
+    Set ..LeverbonHoofding.STRAATNRBUS = "EUROPARK-NOORD 9"    
+    Set ..LeverbonHoofding.WOONPLAATS = "SINT-NIKLAAS"
+    Set ..LeverbonHoofding.POSTCODE = "B-9100"
+    Set ..LeverbonHoofding.EMAIL = "VAT BE 0440.085.040"
+
+    Set ..LeverbonHoofding.EMAIL = ..LeverbonHoofding.EMAIL _ $$$CRLF _ $$$CRLF _ "On behalf of:"
+    Set ..LeverbonHoofding.EMAIL = ..LeverbonHoofding.EMAIL _ $$$CRLF _ "Häfele Italia S.R.L."
+    Set ..LeverbonHoofding.EMAIL = ..LeverbonHoofding.EMAIL _ $$$CRLF _ "Via Della Valle 67 bis"    
+    Set ..LeverbonHoofding.EMAIL = ..LeverbonHoofding.EMAIL _ $$$CRLF _ "Carate Brianza (MB)"
+    Set ..LeverbonHoofding.EMAIL = ..LeverbonHoofding.EMAIL _ $$$CRLF _ "IT-20841"
+	Set ..LeverbonHoofding.EMAIL = ..LeverbonHoofding.EMAIL _ $$$CRLF _ "+39 0362/577 41"	
+	Set ..LeverbonHoofding.EMAIL = ..LeverbonHoofding.EMAIL _ $$$CRLF _ "Info@hafele.it"
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkHaefeleAT">
+<FormalSpec>HaefeleATPersonality:DOM.common.HaefeleATPersonality</FormalSpec>
+<Implementation><![CDATA[
+	Set ..HeaderType = ##class(BL.FOP.Proxy.enu.HoofdingType).HaefeleAT()
+	
+	Set ..LeverbonHoofding.ColLeftWidth = "40mm"
+    Set ..LeverbonHoofding.ColRightWidth = "73mm"
+    
+	#dim URL As %String = ""
+	
+	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(HaefeleATPersonality.GeefKlantID())
+	If Klant.HeeftEigenLogo(){
+    	Set URL = "\\Notes01\FOP\DocFamily7\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 Austria GmbH"
+    Set ..LeverbonHoofding.STRAATNRBUS = "Römerstraße 4"    
+    Set ..LeverbonHoofding.WOONPLAATS = "Hof bei Salzburg"
+    Set ..LeverbonHoofding.POSTCODE = "AT-5322"
+	Set ..LeverbonHoofding.TELEFOON = "+43 6229 390 39-0"	
+	Set ..LeverbonHoofding.EMAIL = "Info@haefele.at"
+	Set ..LeverbonHoofding.T1 = "UID-Nr.: ATU 50113201"
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkHaefeleFR">
+<FormalSpec>HaefeleFRPersonality:DOM.common.HaefeleFRPersonality</FormalSpec>
+<Implementation><![CDATA[
+	Set ..HeaderType = ##class(BL.FOP.Proxy.enu.HoofdingType).HaefeleFR()
+	
+	Set ..LeverbonHoofding.ColLeftWidth = "40mm"
+    Set ..LeverbonHoofding.ColRightWidth = "73mm"
+    
+	#dim URL As %String = ""
+	
+	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(HaefeleFRPersonality.GeefKlantID())
+	If Klant.HeeftEigenLogo(){
+    	Set URL = "\\Notes01\FOP\DocFamily7\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 France SARL"
+    Set ..LeverbonHoofding.STRAATNRBUS = "10 allée Benoist Dubost"
+    Set ..LeverbonHoofding.WOONPLAATS = "TAVERNY"
+    Set ..LeverbonHoofding.POSTCODE = "95157"
+	Set ..LeverbonHoofding.TELEFOON = "01 30 40 54 50"
+	Set ..LeverbonHoofding.EMAIL = "Info@haefele.fr"
+	Set ..LeverbonHoofding.T1 = "N° TVA : FR 45 331 692 772"
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkHaefeleDK">
+<FormalSpec>HaefeleDKPersonality:DOM.common.HaefeleDKPersonality</FormalSpec>
+<Implementation><![CDATA[
+	Set ..HeaderType = ##class(BL.FOP.Proxy.enu.HoofdingType).HaefeleDK()
+	
+	Set ..LeverbonHoofding.ColLeftWidth = "40mm"
+    Set ..LeverbonHoofding.ColRightWidth = "73mm"
+    
+	#dim URL As %String = ""
+	
+	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(HaefeleDKPersonality.GeefKlantID())
+	If Klant.HeeftEigenLogo(){
+    	Set URL = "\\Notes01\FOP\DocFamily7\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 Danmark A/S"
+    Set ..LeverbonHoofding.STRAATNRBUS = "Elskjærbakken 3"
+    Set ..LeverbonHoofding.WOONPLAATS = "Skive"
+    Set ..LeverbonHoofding.POSTCODE = "7800"
+	Set ..LeverbonHoofding.TELEFOON = "+45 97 51 15 22"	
+	Set ..LeverbonHoofding.EMAIL = "Info@haefele.dk"
+	Set ..LeverbonHoofding.T1 = "CVR-nr.: 21 28 79 03"
+]]></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 = "\\Notes01\FOP\DocFamily7\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 Schweiz 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[
+	Set ..HeaderType = ##class(BL.FOP.Proxy.enu.HoofdingType).HaefeleSE()
+	
+	Set ..LeverbonHoofding.ColLeftWidth = "40mm"
+    Set ..LeverbonHoofding.ColRightWidth = "73mm"
+    
+	#dim URL As %String = ""
+	
+	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(HaefeleSEPersonality.GeefKlantID())
+	If Klant.HeeftEigenLogo(){
+    	Set URL = "\\Notes01\FOP\DocFamily7\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 SE & Co KG"
+    Set ..LeverbonHoofding.STRAATNRBUS = "Adolf-Häfele-Str. 1"    
+    Set ..LeverbonHoofding.WOONPLAATS = "Nagold"
+    Set ..LeverbonHoofding.POSTCODE = "72202"
+	Set ..LeverbonHoofding.TELEFOON = "+49 745 29 50"	
+	Set ..LeverbonHoofding.EMAIL = "Info@hafele.de"
+	Set ..LeverbonHoofding.T1 = "USt-ID: DE144425382"
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkHaefeleFI">
+<FormalSpec>HaefeleFIPersonality:DOM.common.HaefeleFIPersonality</FormalSpec>
+<Implementation><![CDATA[
+	Set ..HeaderType = ##class(BL.FOP.Proxy.enu.HoofdingType).HaefeleFI()
+	
+	Set ..LeverbonHoofding.ColLeftWidth = "40mm"
+    Set ..LeverbonHoofding.ColRightWidth = "73mm"
+    
+	#dim URL As %String = ""
+	
+	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(HaefeleFIPersonality.GeefKlantID())
+	If Klant.HeeftEigenLogo(){
+    	Set URL = "\\Notes01\FOP\DocFamily7\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 SE & Co KG"
+    Set ..LeverbonHoofding.STRAATNRBUS = "Adolf-Häfele-Str. 1"    
+    Set ..LeverbonHoofding.WOONPLAATS = "Nagold"
+    Set ..LeverbonHoofding.POSTCODE = "72202"
+	Set ..LeverbonHoofding.TELEFOON = "+49 745 29 50"	
+	Set ..LeverbonHoofding.EMAIL = "Info@hafele.de"
+	Set ..LeverbonHoofding.T1 = "USt-ID: DE144425382"
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkHaefeleNO">
+<FormalSpec>HaefeleNOPersonality:DOM.common.HaefeleNOPersonality</FormalSpec>
+<Implementation><![CDATA[
+	Set ..HeaderType = ##class(BL.FOP.Proxy.enu.HoofdingType).HaefeleNO()
+	
+	Set ..LeverbonHoofding.ColLeftWidth = "40mm"
+    Set ..LeverbonHoofding.ColRightWidth = "73mm"
+    
+	#dim URL As %String = ""
+	
+	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(HaefeleNOPersonality.GeefKlantID())
+	If Klant.HeeftEigenLogo(){
+    	Set URL = "\\Notes01\FOP\DocFamily7\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 SE & Co KG"
+    Set ..LeverbonHoofding.STRAATNRBUS = "Adolf-Häfele-Str. 1"    
+    Set ..LeverbonHoofding.WOONPLAATS = "Nagold"
+    Set ..LeverbonHoofding.POSTCODE = "72202"
+	Set ..LeverbonHoofding.TELEFOON = "+49 745 29 50"	
+	Set ..LeverbonHoofding.EMAIL = "Info@hafele.de"
+	Set ..LeverbonHoofding.T1 = "USt-ID: DE144425382"
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkKisch">
 <FormalSpec>KischPersonality:DOM.common.KischPersonality</FormalSpec>
 <Implementation><![CDATA[]]></Implementation>
@@ -280,7 +692,7 @@
 	
 	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(NotebornPersonality.GeefKlantID())
 	If Klant.HeeftEigenLogo(){
-    	Set URL = "\\fop\Resources\Media\KlantLogos\"
+    	Set URL = "\\Notes01\FOP\DocFamily7\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)
@@ -311,7 +723,7 @@
 
 	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(##class(DOM.VKP.enu.Klant).SFS())
 	If Klant.HeeftEigenLogo(){
-		Set URL = "\\fop\Resources\Media\KlantLogos\"
+		Set URL = "\\Notes01\FOP\DocFamily7\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)
@@ -330,6 +742,64 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkOPO">
+<FormalSpec>OPOPersonality:DOM.common.OPOPersonality</FormalSpec>
+<Implementation><![CDATA[
+	Set ..HeaderType = ##class(BL.FOP.Proxy.enu.HoofdingType).OPO()
+
+	Set ..LeverbonHoofding.ColLeftWidth = "40mm"
+	Set ..LeverbonHoofding.ColRightWidth = "73mm"
+
+	#dim URL As %String = ""
+
+	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(##class(DOM.VKP.enu.Klant).OPO())
+	If Klant.HeeftEigenLogo(){
+		Set URL = "\\Notes01\FOP\DocFamily7\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 = "OPO Oeschger AG"
+	Set ..LeverbonHoofding.STRAATNRBUS = "Steinackerstrasse 68"
+	Set ..LeverbonHoofding.WOONPLAATS = "Kloten"
+	Set ..LeverbonHoofding.POSTCODE = "8302"
+	;Set ..LeverbonHoofding.T1 = "VAT: CHE 105956389"
+	Set ..LeverbonHoofding.T3 = "" ;"Deutsche Bank: "
+	Set ..LeverbonHoofding.T4 = "" ;"IBAN DE08690700320041581000 "
+	Set ..LeverbonHoofding.T5 = "" ;"BIC: DEUTDE6F690"
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkOPODuitsland">
+<FormalSpec>OPODePersonality:DOM.common.OPODePersonality</FormalSpec>
+<Implementation><![CDATA[
+	Set ..HeaderType = ##class(BL.FOP.Proxy.enu.HoofdingType).OPO()
+
+	Set ..LeverbonHoofding.ColLeftWidth = "40mm"
+	Set ..LeverbonHoofding.ColRightWidth = "73mm"
+
+	#dim URL As %String = ""
+
+	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(##class(DOM.VKP.enu.Klant).OPODuitsland())
+	If Klant.HeeftEigenLogo(){
+		Set URL = "\\Notes01\FOP\DocFamily7\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 = "OPO Oeschger GmbH"
+	Set ..LeverbonHoofding.STRAATNRBUS = "Albertistrasse 16"
+	Set ..LeverbonHoofding.WOONPLAATS = "Villingen-Schwenningen"
+	Set ..LeverbonHoofding.POSTCODE = "78056"
+	;Set ..LeverbonHoofding.T1 = "VAT: CHE 105956389"
+	Set ..LeverbonHoofding.T3 = "" ;"Deutsche Bank: "
+	Set ..LeverbonHoofding.T4 = "" ;"IBAN DE08690700320041581000 "
+	Set ..LeverbonHoofding.T5 = "" ;"BIC: DEUTDE6F690"
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkVanHoeckeVoorHalux">
 <FormalSpec>VanHoeckVoorHaluxPersonality:DOM.common.VanHoeckeVoorHaluxPersonality</FormalSpec>
 <Implementation><![CDATA[]]></Implementation>
@@ -346,7 +816,7 @@
 
 	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(##class(DOM.VKP.enu.Klant).VanRaemdonck())
 	If Klant.HeeftEigenLogo(){
-		Set URL = "\\fop\Resources\Media\KlantLogos\"
+		Set URL = "\\Notes01\FOP\DocFamily7\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)
@@ -384,7 +854,7 @@
 		
 		#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(HeinPersonality.GeefKlantID())
 		If Klant.HeeftEigenLogo(){
-	    	Set URL = "\\fop\Resources\Media\KlantLogos\"
+	    	Set URL = "\\Notes01\FOP\DocFamily7\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)
@@ -405,6 +875,72 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkBlumPL">
+<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())
+	#dim LogoBepaler = ##class(BL.Flow.Levering.LabelLogoBepaler).%New()
+	#dim Logo As %String = LogoBepaler.GeefLogo(..OorsprongKetting, Klant.GeefCode()) // Logo voor distributeur van Blum Polen (indien relevant)
+	
+	If ##class(TECH.StringUtils).Equals(Logo, "", "LOGO4682") {
+		Set Logo = Klant.GeefLogo() // Indien distributeur geen eigen logo heeft: logo van Blum Polen zelf gebruiken
+	}
+	
+	If Klant.HeeftEigenLogo() {
+	    Set URL = "\\Notes01\FOP\DocFamily7\Resources\Media\KlantLogos\"
+		#dim Extensie As %String = ##class(TECH.StringUtils).GetLastPart(Logo,".")
+	    Set URL = ##class(TECH.Files).AppendFile(URL,Logo)
+	    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="VerwerkBlumCZ">
+<FormalSpec>BlumCZPersonality:DOM.common.BlumCZPersonality</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(BlumCZPersonality.GeefKlantID())
+	#dim LogoBepaler = ##class(BL.Flow.Levering.LabelLogoBepaler).%New()
+	#dim Logo As %String = LogoBepaler.GeefLogo(..OorsprongKetting, Klant.GeefCode()) // Logo voor distributeur van Blum Tsjechie (indien relevant)
+	
+	If ##class(TECH.StringUtils).Equals(Logo, "", "LOGO4682") {
+		Set Logo = Klant.GeefLogo() // Indien distributeur geen eigen logo heeft: logo van Blum Polen zelf gebruiken
+	}
+	
+	If Klant.HeeftEigenLogo() {
+	    Set URL = "\\Notes01\FOP\DocFamily7\Resources\Media\KlantLogos\"
+		#dim Extensie As %String = ##class(TECH.StringUtils).GetLastPart(Logo,".")
+	    Set URL = ##class(TECH.Files).AppendFile(URL,Logo)
+	    Set ..LeverbonHoofding.LOGO = ##class(BL.FOP.Basis.pxAttribType).Create(URL,##class(TECH.StringUtils).ToUpper(Extensie),,)
+	}
+	
+	Set ..LeverbonHoofding.NAAM = "Blum, s.r.o."
+	Set ..LeverbonHoofding.STRAATNRBUS = "Kolbenova 1041/19"
+	Set ..LeverbonHoofding.WOONPLAATS = "PRAHA 9"
+	Set ..LeverbonHoofding.POSTCODE = "190 00"
+	Set ..LeverbonHoofding.TELEFOON = "+420 281 090 161"
+	Set ..LeverbonHoofding.EMAIL = "posta.cz@blum.com"
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkBeslagDesign">
 <FormalSpec>BeslagDesignPersonality:DOM.common.BeslagDesignPersonality</FormalSpec>
 </Method>
@@ -444,6 +980,22 @@
 <Method name="VerwerkHahleOy">
 <FormalSpec>HahleOyPersonality:DOM.common.HahleOyPersonality</FormalSpec>
 </Method>
+
+<Method name="VerwerkDozon">
+<FormalSpec>DozonPersonality:DOM.common.DozonPersonality</FormalSpec>
+</Method>
+
+<Method name="VerwerkOstermannBE">
+<FormalSpec>OstermannBEPersonality:DOM.common.OstermannBEPersonality</FormalSpec>
+</Method>
+
+<Method name="VerwerkOstermannNL">
+<FormalSpec>OstermannNLPersonality:DOM.common.OstermannNLPersonality</FormalSpec>
+</Method>
+
+<Method name="VerwerkOstermannDE">
+<FormalSpec>OstermannDEPersonality:DOM.common.OstermannDEPersonality</FormalSpec>
+</Method>
 </Class>