Index: vhUnitTest/APPS/algemeen/VhintraShell/TestEntiteitGebruikService.cls.xml
===================================================================
diff -u -r29059 -r30560
--- vhUnitTest/APPS/algemeen/VhintraShell/TestEntiteitGebruikService.cls.xml	(.../TestEntiteitGebruikService.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/algemeen/VhintraShell/TestEntiteitGebruikService.cls.xml	(.../TestEntiteitGebruikService.cls.xml)	(revision 30560)
@@ -24,21 +24,20 @@
 </Property>
 
 <Method name="OnBeforeAllTests">
-<ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-		Set ..Data = ##class(vhUnitTest.APPS.algemeen.VhintraShell.Data).%New()
-		Do ..Data.Remove()
-		Do ..Data.Initialize()
+	do ##super()
+	do ##class(vhUnitTest.DOM.PM.TestData).%New().CreeerTestData(1000,1000)
+	
+	Set ..Data = ##class(vhUnitTest.APPS.algemeen.VhintraShell.Data).%New()
+	Do ..Data.Remove()
+	Do ..Data.Initialize()
 		
-		Set ..Entiteit = ##class(DOM.common.dto.ProductData).%New()
-		Set ..Entiteit.ID = "64879"
-		
-		Quit $$$OK
+	Set ..Entiteit = ##class(DOM.common.dto.ProductData).%New()
+	Set ..Entiteit.ID = "1000"
 ]]></Implementation>
 </Method>
 
 <Method name="OnAfterAllTests">
-<ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Do ..Data.Remove()
 
@@ -47,7 +46,9 @@
 	Do ..VerwijderRecenteEntiteiten()
 	Do ..VerwijderFavorieteEntiteiten()
 	
-	Quit $$$OK
+	do ##class(vhUnitTest.DOM.PM.TestData).%New().VerwijderTestData(1000,1000)
+	
+	do ##super()
 ]]></Implementation>
 </Method>