Index: BL/Flow/Levering/Label.cls.xml
===================================================================
diff -u -r56737 -r56743
--- BL/Flow/Levering/Label.cls.xml	(.../Label.cls.xml)	(revision 56737)
+++ BL/Flow/Levering/Label.cls.xml	(.../Label.cls.xml)	(revision 56743)
@@ -163,9 +163,9 @@
 		Set ..pxLabelKlant.Logo=..pxLabelKlant.GetClientLogo(KLNr)
     }ElseIf(KLNr = KlantOptimaPack.GeefNummer()){
 	    Set ..pxLabelKlant.Logo = ""
-    } ElseIf (KlantID = ##class(DOM.VKP.enu.Klant).HaefeleNederland()) || (KlantID = ##class(DOM.VKP.enu.Klant).HaefeleBelgie()) {
+    } ElseIf ((KLNr = $$$KlantHaefeleB) || (KLNr = $$$KlantHaefeleNL)) {
 	    Set ..pxLabelKlant.Logo="logo\"_^IPCom("CS","LOGO"_KLNr,0)
-    } ElseIf (KlantID = ##class(DOM.VKP.enu.Klant).DuPont()) {
+    } ElseIf (KLNr = $$$KlantDupont) {
 	    Set ..pxLabelKlant.Logo="logo\"_^IPCom("CS","LOGO"_KLNr,0)
     } ElseIf (KLNr = $$$KlantHein) && $Data(^IPCom("CS","LOGO"_KLNr,0)) {
 	    Set ..pxLabelKlant.Logo="logo\"_^IPCom("CS","LOGO"_KLNr,0)
Index: BL/Derde/KlantSpecifiek.inc.rou
===================================================================
diff -u -r760 -r56743
--- BL/Derde/KlantSpecifiek.inc.rou	(.../KlantSpecifiek.inc.rou)	(revision 760)
+++ BL/Derde/KlantSpecifiek.inc.rou	(.../KlantSpecifiek.inc.rou)	(revision 56743)
@@ -16,6 +16,7 @@
 #define KlantSchachermayerAU 13823
 #define KlantSFS 12486
 #define KlantTotaalInterieurNL 9989
+#define KlantDupont 1736
  
  
  ; Intern