Index: vhUnitTest/APPS/algemeen/entiteitcomponent/TestEntiteitComponentDataService.cls.xml
===================================================================
diff -u -r29059 -r33028
--- vhUnitTest/APPS/algemeen/entiteitcomponent/TestEntiteitComponentDataService.cls.xml	(.../TestEntiteitComponentDataService.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/algemeen/entiteitcomponent/TestEntiteitComponentDataService.cls.xml	(.../TestEntiteitComponentDataService.cls.xml)	(revision 33028)
@@ -12,16 +12,13 @@
 <Private>1</Private>
 </Property>
 
-<Parameter name="Type">
-<Type>%String</Type>
-<Default>I</Default>
-</Parameter>
-
 <Method name="OnBeforeAllTests">
+<Description>
+Parameter Type As %String = "I";</Description>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
  	set ..objTestData = ##class(vhUnitTest.DOM.PM.TestData).%New()	
-	do ..objTestData.CreeerTestData()
+	do ..objTestData.CreeerTestData(1000,1030)
 	
 	Set ^KOD(6279,"F",118153,0)=103
 	Set ^KOD(6279,"F",118153,1)="\02.02.11\45263 cuisine cote basque\\\6279\DI2;1`DI2;2`DI2;3`DI2;4`DI2;5\1087#1096#62124,64781\\ygransart@lmc.tm.fr\\\\1\\\\EUR\\\00\2\\1087#62124,64781#118153\\\\\\\\\\\\\\\\\\\\\62124,64781"
@@ -60,7 +57,7 @@
 	Kill ^KTO1(296195)
 	Kill ^KTO(6332,296195)
 	
-	do ..objTestData.VerwijderTestData()
+	do ..objTestData.VerwijderTestData(1000,1030)
  	Quit $$$OK
 ]]></Implementation>
 </Method>