Index: BL/Flow/Levering/Label.cls.xml
===================================================================
diff -u -r71371 -r71664
--- BL/Flow/Levering/Label.cls.xml	(.../Label.cls.xml)	(revision 71371)
+++ BL/Flow/Levering/Label.cls.xml	(.../Label.cls.xml)	(revision 71664)
@@ -50,6 +50,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="OrderApi">
+<Type>DOM.VKP.OrderAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>initvalue:%CacheString,LabelLogoBepaler:BL.Flow.Levering.LabelLogoBepaler</FormalSpec>
 <Private>1</Private>
@@ -59,6 +64,7 @@
 	Set ..LabelLogoBepaler = $$$Inject(LabelLogoBepaler, ##class(BL.Flow.Levering.LabelLogoBepaler).%New())
 	Set ..ExtraInfoVoorSubmagazijnBepaler = ##class(BL.Flow.Levering.ExtraInfoVoorSubmagazijnBepaler).%New()
 	Set ..Logger = ##class(vhLib.Logger).%New("LeveringLabels")
+	set ..OrderApi = ##class(DOM.DomeinContext).Instance().GeefOrderAPI()
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -184,9 +190,16 @@
 	#dim KlantOptimaPack As DOM.VKP.VanHoeckeKlant = VerkoopAPI.GeefKlant(##class(DOM.VKP.enu.Klant).OptimaPack())
     
     If KLNr="" Quit $$$ERROR($$$GeneralError,"Verkeerd bonnummer "_..BONNr_": geen data in de global.")
+    
+    Try {
+	    #dim OorsprongKetting As %String = ..GeefOorsprongKetting()
+    } Catch {
+	    Set OorsprongKetting = ""
+    }
+    
     Set ..pxLabelKlant=##class(BL.Flow.Levering.sub.pxKlantPallet).Create()
     If $L($TR($P(xAdres,"\",1,10),"\",""))<5 Set xAdres=^KKL(^KK1(KLNr),0)
-    Set ..pxLabelKlant.Logo = ..LabelLogoBepaler.GeefLogo(KLNr)    
+    Set ..pxLabelKlant.Logo = ..LabelLogoBepaler.GeefLogo(OorsprongKetting, KLNr)    
 	Set ..pxLabelKlant.KlantNaam=KlantNaam
 	Set ..pxLabelKlant.KlantnaamBIG=KlantNaam
     Set ..pxLabelKlant.Toenaam=$Piece(xAdres,"\",3)
@@ -262,13 +275,18 @@
 	Set ..pxLabelProduct.Product=$S(Taal="N":"Product",Taal="F":"Produit",Taal="D":"Product",1:"Product")
 	#dim KlantID As DOM.VKP.VanHoeckeKlantID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(KLNr)
 	#dim StandaardLogo As %String = "logo\Logo VHZwart.svg"
+	Try {
+	    #dim OorsprongKetting As %String = ..GeefOorsprongKetting()
+    } Catch {
+	    Set OorsprongKetting = ""
+    }
 	If (KlantID = ##class(DOM.VKP.enu.Klant).HaefeleBelgie()) && $$$Not(##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI().IsActiefHaefeleBENaarEindklant()) {
 		Set ..pxLabelProduct.Logo = StandaardLogo
 	} ElseIf(KlantID = ##class(DOM.VKP.enu.Klant).HaefeleDuitsland()) {
 		Set ..pxLabelProduct.Logo = StandaardLogo
 	}
 	Else {
-		Set ..pxLabelProduct.Logo = ..LabelLogoBepaler.GeefLogo(KLNr)
+		Set ..pxLabelProduct.Logo = ..LabelLogoBepaler.GeefLogo(OorsprongKetting, KLNr)
 	}
 	Set ..pxLabelProduct.Korttekst=$Piece(xPR0,"\")
 	Set ..pxLabelProduct.AantalTitel=$S(Taal="N":"Aantal",Taal="F":"Quantité",Taal="D":"Menge",1:"Quantity")
@@ -407,6 +425,23 @@
 	Quit $$OMSCHR^PRKLEUR(PRNr,Taal)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefOorsprongKetting">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim OorsprongKetting As %String
+	#dim Bon As DOM.VKP.Bon = ..OrderApi.GeefBon(..BONNr)
+	#dim OrderIterator As TECH.Iterator = Bon.GeefOrderIterator()
+	
+	If (OrderIterator.HasNext()) {
+		#dim Order As DOM.VKP.Order = OrderIterator.Next()
+		Set OorsprongKetting = Order.GeefOorsprongKetting()
+	}
+	
+	Quit OorsprongKetting
+]]></Implementation>
+</Method>
 </Class>