Index: DOM/PM/impl/DataM/DataMProduct.cls.xml
===================================================================
diff -u -r55411 -r57107
--- DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 55411)
+++ DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 57107)
@@ -1156,7 +1156,7 @@
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
 	New B
-	Set B(1) = ^KPR(ProductNummer,$Order(^KPR(ProductNummer,"J")))
+	Set B(1) = ^KPR(ProductNummer,$Order(^KPR(ProductNummer,"J"))) // Is nodig voor achterliggende old school code
 	Do DLOGMOD^LOG("PR",ProductNummer,BIndex,OudGegeven,NieuwGegeven,,)
 ]]></Implementation>
 </Method>
Index: vhTest/Mock/DOM/PM/impl/DataM/DataMProduct.cls.xml
===================================================================
diff -u -r51475 -r57107
--- vhTest/Mock/DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 51475)
+++ vhTest/Mock/DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 57107)
@@ -8,6 +8,13 @@
 <Super>DOM.PM.impl.DataM.DataMProduct,Tools.Mock.MockClassBase</Super>
 <Inheritance>right</Inheritance>
 
+<Method name="%OnNew">
+<FormalSpec>ProductNummer:%Integer=""</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="GeefAantalInGrootVerpakking">
 <ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefAantalInGrootVerpakking")