Index: CHUI/Prod/ProductLabel.cls.xml
===================================================================
diff -u -r62206 -r62320
--- CHUI/Prod/ProductLabel.cls.xml	(.../ProductLabel.cls.xml)	(revision 62206)
+++ CHUI/Prod/ProductLabel.cls.xml	(.../ProductLabel.cls.xml)	(revision 62320)
@@ -5,7 +5,7 @@
 d ##class(CHUI.Derde.Fax.InkomendeFaxen).RaadpleegLijst()</Description>
 <ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>TECH.RegisteredObject</Super>
+<Super>TECH.RegisteredObject,TECH.Mockable</Super>
 
 <Property name="KorttekstParser">
 <Type>DOM.PM.KorttekstParser</Type>
@@ -100,11 +100,18 @@
 ]]></Implementation>
 </Method>
 
+<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
@@ -248,7 +255,7 @@
 <Method name="AskLabel">
 <Description>
 editscherm waarmee de parameters van pxLabel kunnen gewijzigd worden</Description>
-<FormalSpec>EditScherm</FormalSpec>
+<FormalSpec>EditScherm:%String</FormalSpec>
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
 	Set:..pxLabel="" ..pxLabel=##class(CHUI.Prod.sub.pxProductLabel).%New()
@@ -398,7 +405,7 @@
 <Method name="HistpakPalletInfo">
 <Description>
 Blum recupak retour uit ^HISTPAK("P")</Description>
-<FormalSpec>Lijn</FormalSpec>
+<FormalSpec>Lijn:%Integer</FormalSpec>
 <Implementation><![CDATA[
 	Set lbHistpak=^HISTPAK("P",..Product.%Id())
 	If Lijn=1 Set HistpakPalletInfo=$LI(lbHistpak,2) Set:$LI(lbHistpak,3) HistpakPalletInfo=$LI(lbHistpak,3)_" x "_HistpakPalletInfo