Index: APPS/Halux/PPS/TBXZaag/impl/EtiketHelper.cls.xml
===================================================================
diff -u -r2466 -r2575
--- APPS/Halux/PPS/TBXZaag/impl/EtiketHelper.cls.xml	(.../EtiketHelper.cls.xml)	(revision 2466)
+++ APPS/Halux/PPS/TBXZaag/impl/EtiketHelper.cls.xml	(.../EtiketHelper.cls.xml)	(revision 2575)
@@ -5,12 +5,26 @@
 <Super>%RegisteredObject</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
-<Method name="AfdrukkenEtiket">
+<Parameter name="DeviceLabelApplicator">
+<Default>Halux_Zaag_Appl</Default>
+</Parameter>
+
+<Parameter name="DeviceLabelBackup">
+<Default>Halux_Zaag_Appl</Default>
+</Parameter>
+
+<Parameter name="ManueelTemplate">
+<Default>HALUX PPS TBXZaag Manueel 5x10</Default>
+</Parameter>
+
+<Method name="AfdrukkenOpdracht">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>ZaagOpdracht:APPS.Halux.PPS.TBXZaag.Opdrachten,Device:%String</FormalSpec>
+<FormalSpec>ZaagOpdracht:APPS.Halux.PPS.TBXZaag.Opdrachten,Output2Lijn:APPS.Halux.PPS.TBXZaag.enu.Output2Lijn,Device:APPS.Halux.PPS.TBXZaag.enu.PrintDevice</FormalSpec>
 <Implementation><![CDATA[
+	Set LabelPrinter=..GeefLabelPrinter(Device)
+
 	Set blPrint=##class(BL.PPS.TBX.DocsV1).%New()
-	Do blPrint.Init(ZaagOpdracht.Batch.%Id(), "", Device)
+	Do blPrint.Init(ZaagOpdracht.Batch.%Id(), "", LabelPrinter)
 	Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
 	Set Product=ProductAPI.GeefProduct(ZaagOpdracht.Product.%Id())
 	Set SequenceNr=ZaagOpdracht.Queue.Sequence
@@ -32,5 +46,51 @@
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="AfdrukkenManueel">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Subtitel:%String,BodemKleur:%String,BodemHoogte:%Integer,BodemLengte:%Float,BodemBewerking:DOM.PM.enu.TBXBodemBewerking,RugKleur:%String,RugHoogte:%Integer,RugLengte:%Float,Output2Lijn:APPS.Halux.PPS.TBXZaag.enu.Output2Lijn,Device:APPS.Halux.PPS.TBXZaag.enu.PrintDevice</FormalSpec>
+<Implementation><![CDATA[
+	Set LabelPrinter=..GeefLabelPrinter(Device)
+	Set blLabelPrinter=##class(BL.Sys.LabelPrinter).%New()
+	Do blLabelPrinter.ZetHogePrioriteit()
+	
+	Set dtoLabel=##class(APPS.Halux.PPS.TBXZaag.dto.EtiketManueel).%New()
+	Set dtoLabel.Titel="TBX Zaag - manueel"
+	Set dtoLabel.Subtitel=Subtitel
+	Set dtoLabel.BodemKleur=BodemKleur
+	Set dtoLabel.BodemHoogte=BodemHoogte
+	Set dtoLabel.BodemLengte=BodemLengte
+	Set dtoLabel.BodemBewerking=BodemBewerking
+	Set dtoLabel.RugKleur=RugKleur
+	Set dtoLabel.RugHoogte=RugHoogte
+	Set dtoLabel.RugLengte=RugLengte
+	Set dtoLabel.Output2Lijn=Output2Lijn
+	
+	Set dtoLabel.Layout=..#ManueelTemplate
+	Set dtoLabel.Device=LabelPrinter
+
+	Do blLabelPrinter.PrintDirect2Bartender(dtoLabel)
+]]></Implementation>
+</Method>
+
+<Method name="GeefLabelPrinter">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Device:APPS.Halux.PPS.TBXZaag.enu.PrintDevice</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	If Device = ##class(APPS.Halux.PPS.TBXZaag.enu.PrintDevice).LabelApplicator() 
+	{
+		Set Printer = ..#DeviceLabelApplicator
+	}
+	ElseIf Device = ##class(APPS.Halux.PPS.TBXZaag.enu.PrintDevice).LabelBackup() 
+	{
+		Set Printer = ..#DeviceLabelBackup
+	}
+	
+	Quit $G(Printer)
+]]></Implementation>
+</Method>
 </Class>
 </Export>