Index: vhTest/Mock/CHUI/Prod/ProductLabel.cls.xml
===================================================================
diff -u
--- vhTest/Mock/CHUI/Prod/ProductLabel.cls.xml	(revision 0)
+++ vhTest/Mock/CHUI/Prod/ProductLabel.cls.xml	(revision 62320)
@@ -0,0 +1,96 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.CHUI.Prod.ProductLabel">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>CHUI.Prod.ProductLabel,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="%OnNew">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="AskDevice">
+<Implementation><![CDATA[	do ..VerwerkMethodCall("AskDevice")
+]]></Implementation>
+</Method>
+
+<Method name="AskLabel">
+<FormalSpec>EditScherm:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("AskLabel",EditScherm)
+]]></Implementation>
+</Method>
+
+<Method name="AskLayout">
+<Implementation><![CDATA[	do ..VerwerkMethodCall("AskLayout")
+]]></Implementation>
+</Method>
+
+<Method name="DefaultBlum">
+<Implementation><![CDATA[	do ..VerwerkMethodCall("DefaultBlum")
+]]></Implementation>
+</Method>
+
+<Method name="DefaultHaluxMag">
+<Implementation><![CDATA[	do ..VerwerkMethodCall("DefaultHaluxMag")
+]]></Implementation>
+</Method>
+
+<Method name="DefaultRecuPack">
+<Implementation><![CDATA[	do ..VerwerkMethodCall("DefaultRecuPack")
+]]></Implementation>
+</Method>
+
+<Method name="DefaultVH">
+<FormalSpec>pxLabel:APPS.common.Print.AbstractLabel</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("DefaultVH",pxLabel)
+]]></Implementation>
+</Method>
+
+<Method name="GeefKleur">
+<FormalSpec>KleurCode:TECH.String,Taal:DOM.enu.Taal</FormalSpec>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefKleur",KleurCode,Taal)
+]]></Implementation>
+</Method>
+
+<Method name="HistpakPalletInfo">
+<FormalSpec>Lijn:%Integer</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("HistpakPalletInfo",Lijn)
+]]></Implementation>
+</Method>
+
+<Method name="Init">
+<FormalSpec>oProd:Prod.Product,DefaultPrinter:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("Init",oProd,DefaultPrinter)
+]]></Implementation>
+</Method>
+
+<Method name="IsRecuPack">
+<Implementation><![CDATA[	do ..VerwerkMethodCall("IsRecuPack")
+]]></Implementation>
+</Method>
+
+<Method name="One">
+<Implementation><![CDATA[	do ..VerwerkMethodCall("One")
+]]></Implementation>
+</Method>
+
+<Method name="Print">
+<Implementation><![CDATA[	do ..VerwerkMethodCall("Print")
+]]></Implementation>
+</Method>
+
+<Method name="PrintMaatwerkMetDnaCodes">
+<FormalSpec>DnaCodeObject:DOM.Halux.AAP.DnaCode</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("PrintMaatwerkMetDnaCodes",DnaCodeObject)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
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
Index: vhTest/Fake/CHUI/Prod/ProductLabel.cls.xml
===================================================================
diff -u
--- vhTest/Fake/CHUI/Prod/ProductLabel.cls.xml	(revision 0)
+++ vhTest/Fake/CHUI/Prod/ProductLabel.cls.xml	(revision 62320)
@@ -0,0 +1,89 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.CHUI.Prod.ProductLabel">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>CHUI.Prod.ProductLabel</Super>
+
+<Method name="AskDevice">
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="AskLabel">
+<FormalSpec>EditScherm:%String</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="AskLayout">
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="DefaultBlum">
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="DefaultHaluxMag">
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="DefaultRecuPack">
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="DefaultVH">
+<FormalSpec>pxLabel:APPS.common.Print.AbstractLabel</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="GeefKleur">
+<FormalSpec>KleurCode:TECH.String,Taal:DOM.enu.Taal</FormalSpec>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="HistpakPalletInfo">
+<FormalSpec>Lijn:%Integer</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="Init">
+<FormalSpec>oProd:Prod.Product,DefaultPrinter:%String</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="IsRecuPack">
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="One">
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="Print">
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="PrintMaatwerkMetDnaCodes">
+<FormalSpec>DnaCodeObject:DOM.Halux.AAP.DnaCode</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>