Index: BL/Flow/Proxy/impl/LeverbonHoofdingBepaler.cls.xml
===================================================================
diff -u -r73276 -r75106
--- BL/Flow/Proxy/impl/LeverbonHoofdingBepaler.cls.xml	(.../LeverbonHoofdingBepaler.cls.xml)	(revision 73276)
+++ BL/Flow/Proxy/impl/LeverbonHoofdingBepaler.cls.xml	(.../LeverbonHoofdingBepaler.cls.xml)	(revision 75106)
@@ -102,6 +102,8 @@
 		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. "))
@@ -229,6 +231,14 @@
 ]]></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[
@@ -257,7 +267,7 @@
 
 	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(##class(DOM.VKP.enu.Klant).CampeTonny())
 	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)
@@ -313,10 +323,6 @@
 <FormalSpec>YachtSupplierPersonality:DOM.common.YachtSupplierPersonality</FormalSpec>
 </Method>
 
-<Method name="VerwerkOPODuitsland">
-<FormalSpec>OPODePersonality:DOM.common.OPODePersonality</FormalSpec>
-</Method>
-
 <Method name="VerwerkDupont">
 <FormalSpec>DupontPersonality:DOM.common.DupontPersonality</FormalSpec>
 <Implementation><![CDATA[
@@ -329,7 +335,7 @@
 	
 	#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)
@@ -361,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)
@@ -392,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)
@@ -423,7 +429,7 @@
 	
 	#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)
@@ -451,7 +457,7 @@
 	
 	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(HaefeleITPersonality.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)
@@ -485,7 +491,7 @@
 	
 	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(HaefeleATPersonality.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)
@@ -513,7 +519,7 @@
 	
 	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(HaefeleFRPersonality.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)
@@ -541,7 +547,7 @@
 	
 	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(HaefeleDKPersonality.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)
@@ -569,7 +575,7 @@
 	
 	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(HaefeleCHPersonality.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)
@@ -597,7 +603,7 @@
 	
 	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(HaefeleSEPersonality.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)
@@ -625,7 +631,7 @@
 	
 	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(HaefeleFIPersonality.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)
@@ -653,7 +659,7 @@
 	
 	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(HaefeleNOPersonality.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)
@@ -686,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)
@@ -717,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)
@@ -748,7 +754,7 @@
 
 	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(##class(DOM.VKP.enu.Klant).OPO())
 	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)
@@ -765,6 +771,35 @@
 ]]></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>
@@ -781,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)
@@ -819,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)
@@ -858,7 +893,7 @@
 	}
 	
 	If Klant.HeeftEigenLogo() {
-	    Set URL = "\\fop\Resources\Media\KlantLogos\"
+	    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),,)
@@ -873,6 +908,39 @@
 ]]></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>
@@ -916,6 +984,18 @@
 <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>