Index: vhTest/Mock/Prod/ProductRepository.cls.xml
===================================================================
diff -u -r47372 -r72682
--- vhTest/Mock/Prod/ProductRepository.cls.xml	(.../ProductRepository.cls.xml)	(revision 47372)
+++ vhTest/Mock/Prod/ProductRepository.cls.xml	(.../ProductRepository.cls.xml)	(revision 72682)
@@ -8,6 +8,13 @@
 <Super>Prod.ProductRepository,Tools.Mock.MockClassBase</Super>
 <Inheritance>right</Inheritance>
 
+<Method name="%OnNew">
+<FormalSpec>Gateway:TECH.Persistent.Gateway="",QueryAPI:TECH.Query.QueryAPI=""</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="BestaatViaID">
 <FormalSpec>ID:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
@@ -47,6 +54,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwijderViaObject">
+<FormalSpec>Data:TECH.Persistent</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwijderViaObject",Data)
+]]></Implementation>
+</Method>
+
 <Method name="ZoekAlle">
 <ReturnType>TECH.Iterator</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("ZoekAlle")
@@ -59,6 +72,13 @@
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("ZoekViaBarcode",Barcode)
 ]]></Implementation>
 </Method>
+
+<Method name="ZoekViaDossierCode">
+<FormalSpec>DossierCode:TECH.String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("ZoekViaDossierCode",DossierCode)
+]]></Implementation>
+</Method>
 </Class>