Index: CHUI/Prod/ProductLabel.cls.xml
===================================================================
diff -u -r62320 -r62455
--- CHUI/Prod/ProductLabel.cls.xml	(.../ProductLabel.cls.xml)	(revision 62320)
+++ CHUI/Prod/ProductLabel.cls.xml	(.../ProductLabel.cls.xml)	(revision 62455)
@@ -5,7 +5,7 @@
 d ##class(CHUI.Derde.Fax.InkomendeFaxen).RaadpleegLijst()</Description>
 <ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>TECH.RegisteredObject,TECH.Mockable</Super>
+<Super>TECH.Mockable</Super>
 
 <Property name="KorttekstParser">
 <Type>DOM.PM.KorttekstParser</Type>
@@ -140,6 +140,9 @@
 		Set bl.pxLabel.StockCode=$G(TOENr)
 		Set bl.pxLabel.OrderNr=$G(ORDNr)
 		Set bl.pxLabel.KlantNaam=$G(KlantNaam)
+		Set LocId="X"_$TR($J(..GetUniqueLocID(),5)," ","0")
+		Set bl.pxLabel.Barcode=LocId
+		Set bl.pxLabel.BarcodeTekst="Loc: "_LocId
 		Set bl.pxLabel.Device=$G(Device)
 		Set:bl.pxLabel.Device="" bl.pxLabel.Device="Halux_Productie_Keller"
 		If $$$Not(KlantInstellingenService.MagLogoOpEtiket(Order.GeefKlantID())) {