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>
Index: BL/Etiket/EenBarcodeEtiket.cls.xml
===================================================================
diff -u
--- BL/Etiket/EenBarcodeEtiket.cls.xml	(revision 0)
+++ BL/Etiket/EenBarcodeEtiket.cls.xml	(revision 67428)
@@ -0,0 +1,40 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="BL.Etiket.EenBarcodeEtiket">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>BL.Sys.pxLabel</Super>
+
+<Parameter name="Layout">
+<Default>1BARCODE5x10</Default>
+</Parameter>
+
+<Property name="Tekst">
+<Type>%String</Type>
+<Parameter name="TRUNCATE" value="1"/>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>initvalue:%CacheString</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Layout = ..#Layout
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="WriteRow">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Write ..VervangNietPrintbareKaraktersDoorSpatie(..Tekst),$$$TAB
+	
+	Write $$$CRLF
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>