Index: BL/Flow/Levering/LabelLogoBepaler.cls.xml
===================================================================
diff -u -r63406 -r74485
--- BL/Flow/Levering/LabelLogoBepaler.cls.xml	(.../LabelLogoBepaler.cls.xml)	(revision 63406)
+++ BL/Flow/Levering/LabelLogoBepaler.cls.xml	(.../LabelLogoBepaler.cls.xml)	(revision 74485)
@@ -3,24 +3,77 @@
 <Class name="BL.Flow.Levering.LabelLogoBepaler">
 <Super>TECH.RegisteredObject</Super>
 
+<Property name="Logo">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="GeefLogo">
-<FormalSpec>KlantNummer:%Integer</FormalSpec>
+<FormalSpec>OorsprongKetting:%String,KlantNummer:%Integer</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim Logo As %String = $G(^IPCom("CS","LOGO4682",0))
-	If ..WilLogoOpAlleEtiketten(KlantNummer){
-		Set Logo = $G(^IPCom("CS","LOGO"_KlantNummer,0))
+	Set ..Logo = $G(^IPCom("CS","LOGO4682",0))
+	
+	If (OorsprongKetting = "") {
+		Do ..ZetLogoMetReferentie(KlantNummer)
+	} Else {
+		#dim OorsprongKettingLijst As %List = ..GeefOorsprongKettingLijst(OorsprongKetting)
+		If ($ListLength(OorsprongKettingLijst) < 3) {
+			Do ..ZetLogoMetReferentie(KlantNummer)
+		} Else {
+			#dim TweedePersonality As %String = $Piece($List(OorsprongKettingLijst, 2),",", 1)
+			
+			If ..IsEenBlumPersonality(TweedePersonality) {
+				#dim DistributeurId = $Piece($List(OorsprongKettingLijst, 1),",", 1)
+				#dim LogoRef As %String = ..GeefLogoReferentieInfix(TweedePersonality) _ DistributeurId
+				Do ..ZetLogoMetReferentie(LogoRef)
+			} Else {
+				Do ..ZetLogoMetReferentie(KlantNummer)
+			}
+		}
 	}
-	Quit "Logo\"_Logo
+	
+	Quit "Logo\" _ ..Logo
 ]]></Implementation>
 </Method>
 
-<Method name="WilLogoOpAlleEtiketten">
-<FormalSpec>KlantNummer:%Integer</FormalSpec>
+<Method name="ZetLogoMetReferentie">
+<FormalSpec>LogoReferentie:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit $Get(^IPCom("CS","LOGO"_KlantNummer,0,"LogoOpAlleBeslagEtiketten")) = 1
+<Implementation><![CDATA[
+	If ($Get(^IPCom("CS","LOGO" _ LogoReferentie,0,"LogoOpAlleBeslagEtiketten")) = 1) {
+		Set ..Logo = $G(^IPCom("CS","LOGO" _ LogoReferentie,0))
+	}
 ]]></Implementation>
 </Method>
+
+<Method name="GeefOorsprongKettingLijst">
+<FormalSpec>OorsprongKettingString:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%List</ReturnType>
+<Implementation><![CDATA[
+	Set OorsprongKettingString = $Replace(OorsprongKettingString,"((","")
+	Set OorsprongKettingString = $Replace(OorsprongKettingString,"))","")
+			
+	Quit ##class(TECH.ListUtils).PiecesToListbuild(OorsprongKettingString, "), (")
+]]></Implementation>
+</Method>
+
+<Method name="IsEenBlumPersonality">
+<FormalSpec>PersonalityId:%String</FormalSpec>
+<Implementation><![CDATA[
+	Quit ((PersonalityId = ##class(DOM.common.enu.Personality).BlumPL())
+	   || (PersonalityId = ##class(DOM.common.enu.Personality).BlumCZ()))
+]]></Implementation>
+</Method>
+
+<Method name="GeefLogoReferentieInfix">
+<FormalSpec>PersonalityId:%String</FormalSpec>
+<Implementation><![CDATA[
+	Quit:(PersonalityId = ##class(DOM.common.enu.Personality).BlumPL()) "_BPL_"
+	Quit:(PersonalityId = ##class(DOM.common.enu.Personality).BlumCZ()) "_BCZ_"
+]]></Implementation>
+</Method>
 </Class>