Index: BL/Flow/Proxy/impl/LeverbonHoofdingBepaler.cls.xml
===================================================================
diff -u -r71088 -r71670
--- BL/Flow/Proxy/impl/LeverbonHoofdingBepaler.cls.xml	(.../LeverbonHoofdingBepaler.cls.xml)	(revision 71088)
+++ BL/Flow/Proxy/impl/LeverbonHoofdingBepaler.cls.xml	(.../LeverbonHoofdingBepaler.cls.xml)	(revision 71670)
@@ -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>
@@ -836,11 +842,17 @@
 	
 	#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 = "\\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)
+		#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),,)
 	}