Index: CHUI/Prod/ProductLabel.cls.xml
===================================================================
diff -u -r62320 -r74862
--- CHUI/Prod/ProductLabel.cls.xml	(.../ProductLabel.cls.xml)	(revision 62320)
+++ CHUI/Prod/ProductLabel.cls.xml	(.../ProductLabel.cls.xml)	(revision 74862)
@@ -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>
@@ -50,6 +50,13 @@
 <Default>Magazijn Halux 6x10</Default>
 </Parameter>
 
+<Method name="GeefImageDir">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.Config.ConfigMgr).Instance().GeefString("ImagesDirectory","\\Notes01\Images")
+]]></Implementation>
+</Method>
+
 <Method name="DoOne">
 <Description>
 d ##class(CHUI.Prod.ProductLabel).DoOne(450661)
@@ -102,25 +109,23 @@
 
 <Method name="PrintMaatwerkMetDnaCodes">
 <FormalSpec>DnaCodeObject:DOM.Halux.AAP.DnaCode</FormalSpec>
-<Implementation><![CDATA[	Do ..PrintVHMaatwerkMetDnaCodes(DnaCodeObject)
-]]></Implementation>
-</Method>
-
-<Method name="PrintVHMaatwerkMetDnaCodes">
-<Description>
-d ##class(CHUI.Prod.ProductLabel).PrintVHMaatwerk(483079,"XSDS",1)</Description>
-<ClassMethod>1</ClassMethod>
-<FormalSpec>DnaCodeObject:DOM.Halux.AAP.DnaCode</FormalSpec>
-<Private>1</Private>
 <Implementation><![CDATA[
-	#dim KlantNaam As %String = ##class(DOM.DomeinContext).Instance().GeefPartijAPI().GeefPartij(DnaCodeObject.KlantNummer).GeefNaam()
 	#dim PRNr As %String = DnaCodeObject.ProductNummer
+	#dim KlantNaam As %String = ##class(DOM.DomeinContext).Instance().GeefPartijAPI().GeefPartij(DnaCodeObject.KlantNummer).GeefNaam()
 	#dim TOENr As %String = DnaCodeObject.Toelevering
 	#dim ORDNr As %String = DnaCodeObject.OrderId
 	#dim Aantal As TECH.Integer = 1
-	#dim DnaCode As %String = DnaCodeObject.DnaCode
 	#dim Device As %String = ""
+	#dim DnaCode As %String = DnaCodeObject.DnaCode
 	
+	Do ..PrintVHMaatwerkMetDnaCodes(PRNr, KlantNaam, TOENr, ORDNr, Aantal, Device, DnaCode)
+]]></Implementation>
+</Method>
+
+<Method name="PrintVHMaatwerkMetDnaCodes">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>PRNr:%String,KlantNaam:%String,TOENr:%String,ORDNr:%String,Aantal:TECH.Integer,Device:%String,DnaCode:%String</FormalSpec>
+<Implementation><![CDATA[
 	#dim bl As CHUI.Prod.ProductLabel =..Instantiate()
 	Do bl.Init(PRNr)
 	Set bl.DefaultLayout="Product verpak maatwerk VH 5x10"
@@ -140,6 +145,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())) {
@@ -369,7 +377,7 @@
 	Set ..pxLabel.Omschrijving1=..HistpakPalletInfo(1)
 	Set ..pxLabel.ProductNaam2=..HistpakPalletInfo(2)
 	Set ..pxLabel.Omschrijving2=..HistpakPalletInfo(3)
-	Set ..pxLabel.ImgURL="c:\bartender\images\logo\Logo VHZwart.svg"
+	Set ..pxLabel.ImgURL=..GeefImageDir()_"\logo\Logo VHZwart.svg"
 	Set ..pxLabel.VerpakAantal="Retour ecopacks to Blum"
 	Set ..pxLabel.StockCode="VAN HOECKE NV"
 	Set ..pxLabel.FabrWeek="Sint-Niklaas - België"