Index: BL/Sys/LabelPrinter.cls.xml
===================================================================
diff -u -r63610 -r72585
--- BL/Sys/LabelPrinter.cls.xml	(.../LabelPrinter.cls.xml)	(revision 63610)
+++ BL/Sys/LabelPrinter.cls.xml	(.../LabelPrinter.cls.xml)	(revision 72585)
@@ -349,6 +349,45 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefBartenderLabelData">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim DataToQuit as %String = ""
+  	#dim BartDevice As %String = $O(..Data(""))
+	While BartDevice '= "" 
+	{
+		#dim BartLayout As %String = $O(..Data(BartDevice,""))
+		While BartLayout '= "" 
+		{
+			Set DataToQuit = ..GeefBartenderLabelDataWithLayout(BartDevice,BartLayout)
+			Set BartLayout = $O(..Data(BartDevice,BartLayout))
+		}
+		Set BartDevice = $O(..Data(BartDevice))
+	}
+	Quit DataToQuit
+]]></Implementation>
+</Method>
+
+<Method name="GeefBartenderLabelDataWithLayout">
+<FormalSpec>BartDevice:%String,BartLayout:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Io as TECH.IO = ##class(TECH.IO).%New()
+	Do Io.Redirect()
+	#dim File As %String = Io.GeefLocatie()
+	; Set File = ..CreateFile(BartDevice,BartLayout)
+	Write "%BTW% /AF="""_BartLayout_".btw"" /PRN="""_BartDevice_""""_" /R=3 /P  /D=<Trigger File Name> /CLOSE",$C(13,10)
+	Write "%END%",$C(13,10)	
+
+	Do ..WriteFile(File,BartDevice,BartLayout)
+	Do Io.Reset()
+	#dim Result as %String = Io.GeefStream().Read()
+	Do Io.KuisOp()
+	Quit Result
+]]></Implementation>
+</Method>
+
 <Method name="WriteFile">
 <FormalSpec>FileName:%String,BartDevice:%String,BartLayout:%String</FormalSpec>
 <Private>1</Private>