Index: APPS/MAG/LabelPrintService.cls.xml
===================================================================
diff -u -r34592 -r67428
--- APPS/MAG/LabelPrintService.cls.xml	(.../LabelPrintService.cls.xml)	(revision 34592)
+++ APPS/MAG/LabelPrintService.cls.xml	(.../LabelPrintService.cls.xml)	(revision 67428)
@@ -49,6 +49,29 @@
 ]]></Implementation>
 </Method>
 
+<Method name="PrintEen1BarcodeEtiket">
+<FormalSpec>Tekst:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##class(Tools.Wlip).%New(207).String("koekoe " _ Tekst)
+	#dim Etiketten As %ListOfObjects = ..GeefEen1BarcodeEtiket(Tekst)
+	Do ..LabelPrinter.PrintEtiketten(Etiketten)
+]]></Implementation>
+</Method>
+
+<Method name="GeefEen1BarcodeEtiket">
+<FormalSpec>Tekst:%String</FormalSpec>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	Set Etiketten = ##class(%ListOfObjects).%New()
+	Set Etiket = ##class(BL.Etiket.EenBarcodeEtiket).%New()
+	Set Etiket.Tekst = Tekst	
+
+	Set Etiket.Device = ##class(BL.Sys.LabelPrinter).DefaultDevice("1BARCODEETIKET")	
+	Do Etiketten.Insert(Etiket)
+	Quit Etiketten
+]]></Implementation>
+</Method>
+
 <Method name="GeefPalletEtikettenZonderProductInfo">
 <FormalSpec>Aantal:%Integer,Richting:APPS.MAG.LabelPrint.enu.Richting,Device:%String</FormalSpec>
 <Private>1</Private>