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