Index: BL/Flow/Levering/Label.cls.xml
===================================================================
diff -u -r71669 -r72585
--- BL/Flow/Levering/Label.cls.xml	(.../Label.cls.xml)	(revision 71669)
+++ BL/Flow/Levering/Label.cls.xml	(.../Label.cls.xml)	(revision 72585)
@@ -129,11 +129,8 @@
 ]]></Implementation>
 </Method>
 
-<Method name="PrintLabelKlantAdres">
-<Description>
-Afdruk van een label voor een klantpallet</Description>
-<FormalSpec>Printer:%String="0",Aantal:%Numeric=1,MagazijnID:%String="",UserIdPicker:%String="",LPNMOP:%String=""</FormalSpec>
-<ReturnType>%Status</ReturnType>
+<Method name="HaalopLabelKlantAdresData">
+<FormalSpec>Printer:%String="0",Aantal:%Numeric=1,MagazijnID:%String="",UserIdPicker:%String="",LPNMOP:%String="",ReturnDtoOnly:%Boolean=$$$False</FormalSpec>
 <Implementation><![CDATA[
     If ..BONNr="" Quit $$$ERROR($$$GeneralError,"BONNr is leeg")
     If Printer="" Quit $$$ERROR($$$GeneralError,"Printer is niet ingevuld")
@@ -219,7 +216,6 @@
     
    	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)
-	
 	Try {
 		Set ..pxLabelKlant.VerzendwijzeExtraInfo = ..ExtraInfoVoorSubmagazijnBepaler.GeefExtraInfoVoorBon(..BONNr)
 	} Catch {
@@ -230,14 +226,22 @@
 		
 		Set ..pxLabelKlant.VerzendwijzeExtraInfo = ""
 	}
+]]></Implementation>
+</Method>
+
+<Method name="PrintLabelKlantAdres">
+<FormalSpec>Printer:%String="0",Aantal:%Numeric=1,MagazijnID:%String="",UserIdPicker:%String="",LPNMOP:%String=""</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ..HaalopLabelKlantAdresData(Printer,Aantal,MagazijnID,MagazijnID,UserIdPicker,LPNMOP)
 	
     Set blPrint = ##class(APPS.ApplicatieContext).Instance().GeefPrintAPI().GeefLabelPrinter("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))
 
     Do blPrint.AddLabel(..pxLabelKlant)
     Do ..Logger.Debug("PrintLabelKlantAdres",
-    	"Klantnaam='" _ ..pxLabelKlant.KlantNaam _ "' KLNr='" _ KLNr _" gekozen logo:'" _ ..pxLabelKlant.Logo)
+    	"Klantnaam='" _ ..pxLabelKlant.KlantNaam _" gekozen logo:'" _ ..pxLabelKlant.Logo)
     Set stPrint = blPrint.PrintLabels()
     If $$$ISERR(stPrint) Do  Quit stPrint
     . Do ..Logger.ErrorMail("PrintLabelKlantAdres - PrintLabels",$$ParseStatus^vhLib(stPrint))
@@ -246,6 +250,22 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefKlantLabelBartenderData">
+<FormalSpec>Printer:%String="0",Aantal:%Numeric=1,MagazijnID:%String="",UserIdPicker:%String="",LPNMOP:%String=""</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Do ..HaalopLabelKlantAdresData(Printer,Aantal,MagazijnID,MagazijnID,UserIdPicker,LPNMOP)
+    Set blPrint = ##class(APPS.ApplicatieContext).Instance().GeefPrintAPI().GeefLabelPrinter("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))
+	
+    Do blPrint.AddLabel(..pxLabelKlant)
+    
+    Do ..Logger.Debug("PrintLabelKlantAdres","Klantnaam='" _ ..pxLabelKlant.KlantNaam _" gekozen logo:'" _ ..pxLabelKlant.Logo)
+    Quit blPrint.GeefLabelData()
+]]></Implementation>
+</Method>
+
 <Method name="PrintProductLabel">
 <Description>
 Afdruk van een productlabel</Description>