Index: BL/Flow/Levering/Label.cls.xml
===================================================================
diff -u -r2523 -r6543
--- BL/Flow/Levering/Label.cls.xml	(.../Label.cls.xml)	(revision 2523)
+++ BL/Flow/Levering/Label.cls.xml	(.../Label.cls.xml)	(revision 6543)
@@ -152,13 +152,20 @@
     	set Verzw=$P($P($P(xHeader,"\",7),"#")," ")
     }
     Set KLNr=..GetAfzender(..BONNr)
+    Set KlantAPI = ##class(DOM.DomeinContext).Instance().GeefKlantAPI()
+    Set KlantOptimaPack = KlantAPI.GeefKlantOptimaPack()
+    
     If KLNr="" Quit $$$ERROR($$$GeneralError,"Verkeerd bonnummer "_..BONNr_": geen data in de global.")
     Set ..pxLabelKlant=##class(BL.Flow.Levering.sub.pxKlantPallet).Create()
     If $L($TR(xAdres,"\",""))<5 Set xAdres=^KKL(^KK1(KLNr),0)
-    If ((KLNr=$$$KlantSchachermayerAU)||(KLNr=$$$KlantSchachermayerNL)) Do
-	. Set ..pxLabelKlant.Logo=..pxLabelKlant.GetClientLogo(KLNr)
-	Else  Set ..pxLabelKlant.Logo="logo\Logo VHZwart.svg"
-    ;Set ..pxLabelKlant.Logo="logo\Logo VHZwart.svg"
+    
+    If ((KLNr=$$$KlantSchachermayerAU)||(KLNr=$$$KlantSchachermayerNL)){
+		Set ..pxLabelKlant.Logo=..pxLabelKlant.GetClientLogo(KLNr)
+    }ElseIf(KLNr = KlantOptimaPack.GeefNummer()){
+	    Set ..pxLabelKlant.Logo = ""
+    }Else{
+		Set ..pxLabelKlant.Logo="logo\Logo VHZwart.svg"
+    }
     Set ..pxLabelKlant.KlantNaam=$Piece(xAdres,"\",2)
     Set ..pxLabelKlant.Toenaam=$Piece(xAdres,"\",3)
     Set ..pxLabelKlant.StraatNaamNr=$Piece(xAdres,"\",5)
@@ -178,9 +185,7 @@
     //Set ..pxLabelKlant.Device=Printer
    	If Printer["\\" Set ..pxLabelKlant.Device=Printer  ;als het UNC-pad van de printer wordt doorgegeven vul je het rechstreeks in
    	Else  Set ..pxLabelKlant.Device=##class(BL.Sys.LabelPrinter).FullDevicePad(Printer)
-	
-	//If ..pxLabelKlant.Device="" Quit $$$ERROR($$$GeneralError,"Afdruk mislukt: printer bestaat niet")
-	
+		
     Set blPrint = ##class(TECH.Print.API).GetPrinter("EWMSKlant",Printer)
     If $$$ISERR(blPrint)||('$IsObject(blPrint)) Do  Quit $$$ERROR($$$GeneralError,"Afdruk mislukt: Toepassing niet geregistreerd")
     . Do ..Logger.ErrorMail("PrintLabelKlantAdres - GetPrinter","Failed : "_$$ParseStatus^vhLib(blPrint))