Index: BL/PPS/TBX/DocsV1.cls.xml
===================================================================
diff -u -r2589 -r2805
--- BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 2589)
+++ BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 2805)
@@ -55,6 +55,10 @@
 <Type>APPS.Halux.common.Batch</Type>
 </Property>
 
+<Property name="HogePrioriteit">
+<Type>%Boolean</Type>
+</Property>
+
 <Property name="Line">
 <Type>%String</Type>
 </Property>
@@ -87,6 +91,7 @@
 <FormalSpec>BatchID,ProdGrp,LabelDevice,FOPDevice</FormalSpec>
 <Implementation><![CDATA[
 	Set ..LabelDevice=$G(LabelDevice,..#LabelPrinter)
+	Set ..HogePrioriteit=##class(APPS.Halux.PPS.TBXZaag.impl.EtiketHelper).IsHogePrioriteit(..LabelDevice)
 	Set ..LabelLayout=..#LabelTemplate
 	Set ..LabelKlantDevice=$G(LabelDevice,..#LabelKlantPrinter)
 	Set ..LabelKlantLayout=..#LabelKlantTemplate5x10
@@ -533,7 +538,7 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	Set blLabelPrinter=##class(BL.Sys.LabelPrinter).%New()
-
+	Do:..HogePrioriteit bLabelPrinter.ZetHogePrioriteit()
 	Set rs=##class(%ResultSet).%New("BL.PPS.TBX.Sequencer:GetSequence")
 	Set sc=rs.Execute(..BatchID)
 	Set Count=0