Index: BL/Flow/Levering/Label.cls.xml
===================================================================
diff -u -r31576 -r31743
--- BL/Flow/Levering/Label.cls.xml	(.../Label.cls.xml)	(revision 31576)
+++ BL/Flow/Levering/Label.cls.xml	(.../Label.cls.xml)	(revision 31743)
@@ -225,9 +225,14 @@
     If Taal="" Set Taal="N"
 	Set xPR0=^KPR(..PRNr,0),xPR1=^KPR(..PRNr,1),xPR2=^KPR(..PRNr,2),xPR3=^KPR(..PRNr,3)
 	Set ..pxLabelProduct.Product=$S(Taal="N":"Product",Taal="F":"Produit",Taal="D":"Product",1:"Product")
-	If ((KLNr=$$$KlantSchachermayerAU)||(KLNr=$$$KlantSchachermayerNL)) Do
-	. Set ..pxLabelProduct.Logo=..pxLabelProduct.GetClientLogo(KLNr)
-	Else  Set ..pxLabelProduct.Logo="logo\Logo VHZwart.svg"
+	#dim KlantID As DOM.VKP.VanHoeckeKlantID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(KLNr)
+	If ((KLNr=$$$KlantSchachermayerAU)||(KLNr=$$$KlantSchachermayerNL)) {
+		Set ..pxLabelProduct.Logo=..pxLabelProduct.GetClientLogo(KLNr)
+	} ElseIf KlantID = ##class(DOM.VKP.enu.Klant).HaefeleNederland() {
+	    Set ..pxLabelProduct.Logo="logo\"_^IPCom("CS","LOGO"_KLNr,0)
+    } Else{
+		Set ..pxLabelProduct.Logo="logo\Logo VHZwart.svg"
+    }
 	Set ..pxLabelProduct.Korttekst=$Piece(xPR0,"\")
 	Set ..pxLabelProduct.AantalTitel=$S(Taal="N":"Aantal",Taal="F":"Quantité",Taal="D":"Menge",1:"Quantity")
 	Set ..pxLabelProduct.AantalStuks=AantalStuks