Index: BL/PPS/TBX/sub/pxLabelV1.cls.xml
===================================================================
diff -u -r2899 -r3660
--- BL/PPS/TBX/sub/pxLabelV1.cls.xml	(.../pxLabelV1.cls.xml)	(revision 2899)
+++ BL/PPS/TBX/sub/pxLabelV1.cls.xml	(.../pxLabelV1.cls.xml)	(revision 3660)
@@ -143,6 +143,10 @@
 <Type>%String</Type>
 </Property>
 
+<Property name="ExtraLabelInfo">
+<Type>%String</Type>
+</Property>
+
 <Method name="WriteRow">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
@@ -151,6 +155,7 @@
 	Write *9
 	Write:(..TiponCount > 0) ..TiponCount
 	Write *9,..Line
+	Write *9,..ExtraLabelInfo
 	Write $C(13,10)
 	Quit $$$OK
 ]]></Implementation>
Index: APPS/Halux/PPS/TBXZaag/impl/EtiketHelper.cls.xml
===================================================================
diff -u -r2823 -r3660
--- APPS/Halux/PPS/TBXZaag/impl/EtiketHelper.cls.xml	(.../EtiketHelper.cls.xml)	(revision 2823)
+++ APPS/Halux/PPS/TBXZaag/impl/EtiketHelper.cls.xml	(.../EtiketHelper.cls.xml)	(revision 3660)
@@ -40,6 +40,7 @@
 	Do blPrint.Init(ZaagOpdracht.Batch.%Id(), "", LabelPrinter)
 	Do blPrint.ZetLabelLayout(..GeefLabelLayoutProductie(Device))
 	Do blPrint.ZetHogePrioriteit()
+	Do blPrint.ZetExtraLabelInfo("Z:"_ZaagOpdracht.%Id()_" P:"_ZaagOpdracht.Product.%Id())
 	Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
 	Set Product=ProductAPI.GeefProduct(ZaagOpdracht.Product.%Id())
 	Set SequenceNr=ZaagOpdracht.Queue.Sequence
Index: BL/PPS/TBX/DocsV1.cls.xml
===================================================================
diff -u -r3264 -r3660
--- BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 3264)
+++ BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 3660)
@@ -59,6 +59,10 @@
 <Type>%Boolean</Type>
 </Property>
 
+<Property name="ExtraLabelInfo">
+<Type>%String</Type>
+</Property>
+
 <Property name="Line">
 <Type>%String</Type>
 </Property>
@@ -114,6 +118,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetExtraLabelInfo">
+<FormalSpec>Info</FormalSpec>
+<Implementation><![CDATA[	Set ..ExtraLabelInfo=Info
+]]></Implementation>
+</Method>
+
 <Method name="ZetLabelLayout">
 <FormalSpec>LabelLayout</FormalSpec>
 <Implementation><![CDATA[	Set ..LabelLayout=LabelLayout
@@ -705,6 +715,7 @@
 	Set pxLabel.Picture=##class(BL.Prod.ImageLink).%New().GetProductImageURL(PRNr, "LABEL")
 	Set pxLabel.Device=..LabelDevice
 	Set pxLabel.Layout=..LabelLayout
+	Set pxLabel.ExtraLabelInfo=..ExtraLabelInfo ; debug informatie, zoals ZaagID, PRNr, 
 	
 	Quit pxLabel
 ]]></Implementation>