Index: vhUnitTest/APPS/PM/TestKenmerkenService/VerwijderKenmerkenSets/TestVerwijderEenVanDrie.cls.xml
===================================================================
diff -u -r29059 -r33030
--- vhUnitTest/APPS/PM/TestKenmerkenService/VerwijderKenmerkenSets/TestVerwijderEenVanDrie.cls.xml	(.../TestVerwijderEenVanDrie.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/PM/TestKenmerkenService/VerwijderKenmerkenSets/TestVerwijderEenVanDrie.cls.xml	(.../TestVerwijderEenVanDrie.cls.xml)	(revision 33030)
@@ -5,6 +5,20 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.APPS.PM.TestKenmerkenService</Super>
 
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+	do ..objTestData.CreeerTestData(1098,1098)
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+	do ..objTestData.VerwijderTestData(1098,1098)
+]]></Implementation>
+</Method>
+
 <Method name="TestVerwijderKenmerkenSets2">
 <Description>
 Test het verwijderen van een kenmerkenset, waardoor er nog twee multiple kenmerkensets overschieten.
Index: vhUnitTest/APPS/PM/TestProductService.cls.xml
===================================================================
diff -u -r31295 -r33030
--- vhUnitTest/APPS/PM/TestProductService.cls.xml	(.../TestProductService.cls.xml)	(revision 31295)
+++ vhUnitTest/APPS/PM/TestProductService.cls.xml	(.../TestProductService.cls.xml)	(revision 33030)
@@ -13,17 +13,12 @@
 <Private>1</Private>
 </Property>
 
-<Parameter name="Type">
-<Type>%String</Type>
-<Default>I</Default>
-</Parameter>
-
 <Method name="OnBeforeAllTests">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
  	set ..objTestData = ##class(vhUnitTest.DOM.PM.TestData).%New()
 	
-	do ..objTestData.CreeerTestData()
+	do ..objTestData.CreeerTestData(1000,1005)
 	do $$$AssertEquals($data(^KPR(1001,0)),1,"Producten aangemaakt")
 	
 	quit $$$OK
@@ -33,7 +28,7 @@
 <Method name="OnAfterAllTests">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	do ..objTestData.VerwijderTestData()
+	do ..objTestData.VerwijderTestData(1000,1005)
 	do $$$AssertEquals($data(^KPR(1001,0)),0,"Producten verwijderd")
 	
 	set blnMetaDefOpgekuisd = ..objTestData.IsMetaDefMooiOpgekuisd()
Index: vhUnitTest/APPS/PM/TestKenmerkenService.cls.xml
===================================================================
diff -u -r29059 -r33030
--- vhUnitTest/APPS/PM/TestKenmerkenService.cls.xml	(.../TestKenmerkenService.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/PM/TestKenmerkenService.cls.xml	(.../TestKenmerkenService.cls.xml)	(revision 33030)
@@ -7,12 +7,9 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.TestCase</Super>
 
-<Parameter name="Type">
-<Type>%String</Type>
-<Default>I</Default>
-</Parameter>
-
 <Property name="ErrorMsg">
+<Description>
+Parameter Type As %String = "I";</Description>
 <Type>%String</Type>
 <Parameter name="TRUNCATE" value="1"/>
 </Property>
@@ -34,14 +31,14 @@
 <Method name="OnBeforeAllTests">
 <Implementation><![CDATA[
 	Do ##super()
-	do ..objTestData.CreeerTestData()
+	do ..objTestData.CreeerTestData(1001,1001)
 ]]></Implementation>
 </Method>
 
 <Method name="OnAfterAllTests">
 <Implementation><![CDATA[
 	Do ##super()
-	do ..objTestData.VerwijderTestData()
+	do ..objTestData.VerwijderTestData(1001,1001)
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/APPS/PM/TestKenmerkenService/VerwijderKenmerkenSets/TestVewijderMetFoutieveKenmerkgroep.cls.xml
===================================================================
diff -u -r29059 -r33030
--- vhUnitTest/APPS/PM/TestKenmerkenService/VerwijderKenmerkenSets/TestVewijderMetFoutieveKenmerkgroep.cls.xml	(.../TestVewijderMetFoutieveKenmerkgroep.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/PM/TestKenmerkenService/VerwijderKenmerkenSets/TestVewijderMetFoutieveKenmerkgroep.cls.xml	(.../TestVewijderMetFoutieveKenmerkgroep.cls.xml)	(revision 33030)
@@ -5,6 +5,20 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.APPS.PM.TestKenmerkenService</Super>
 
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+	do ..objTestData.CreeerTestData(1003,1003)
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+	do ..objTestData.VerwijderTestData(1003,1003)
+]]></Implementation>
+</Method>
+
 <Method name="TestFoutieveVerwijderKenmSets">
 <Description>
 Test met foutieve kenmerkgroep</Description>
Index: vhUnitTest/APPS/PM/TestKenmerkenService/VerwijderKenmerkenSets/TestVerwijderEenVanTwee.cls.xml
===================================================================
diff -u -r29059 -r33030
--- vhUnitTest/APPS/PM/TestKenmerkenService/VerwijderKenmerkenSets/TestVerwijderEenVanTwee.cls.xml	(.../TestVerwijderEenVanTwee.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/PM/TestKenmerkenService/VerwijderKenmerkenSets/TestVerwijderEenVanTwee.cls.xml	(.../TestVerwijderEenVanTwee.cls.xml)	(revision 33030)
@@ -5,6 +5,20 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.APPS.PM.TestKenmerkenService</Super>
 
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+	do ..objTestData.CreeerTestData(1003,1003)
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+	do ..objTestData.VerwijderTestData(1003,1003)
+]]></Implementation>
+</Method>
+
 <Method name="TestVerwijderKenmerkenSets">
 <Description>
 Test het verwijderen van een kenmerkenset, waardoor er nog één multiple kenmerken set overschiet.
Index: vhUnitTest/APPS/PM/TestKenmerkenService/VerwijderKenmerkenSets/TestVerwijderTweeVanVijf.cls.xml
===================================================================
diff -u -r29059 -r33030
--- vhUnitTest/APPS/PM/TestKenmerkenService/VerwijderKenmerkenSets/TestVerwijderTweeVanVijf.cls.xml	(.../TestVerwijderTweeVanVijf.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/PM/TestKenmerkenService/VerwijderKenmerkenSets/TestVerwijderTweeVanVijf.cls.xml	(.../TestVerwijderTweeVanVijf.cls.xml)	(revision 33030)
@@ -5,6 +5,20 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.APPS.PM.TestKenmerkenService</Super>
 
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+	do ..objTestData.CreeerTestData(1098,1098)
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+	do ..objTestData.VerwijderTestData(1098,1098)
+]]></Implementation>
+</Method>
+
 <Method name="TestVerwijderKenmerkenSetsHaalErVanTussen">
 <Description><![CDATA[
 Test het verwijderen van een kenmerkenset, waardoor er nog twee multiple kenmerkensets overschieten.