Index: vhUnitTest/APPS/PM/TestKenmerkenServiceGeef.cls.xml
===================================================================
diff -u -r33032 -r33043
--- vhUnitTest/APPS/PM/TestKenmerkenServiceGeef.cls.xml	(.../TestKenmerkenServiceGeef.cls.xml)	(revision 33032)
+++ vhUnitTest/APPS/PM/TestKenmerkenServiceGeef.cls.xml	(.../TestKenmerkenServiceGeef.cls.xml)	(revision 33043)
@@ -5,33 +5,33 @@
 Do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.PM.TestKenmerkenServiceGeef")</Description>
 <ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>vhUnitTest.APPS.PM.TestKenmerkenService</Super>
+<Super>vhUnitTest.TestCase</Super>
 
-<Parameter name="Type">
-<Type>%String</Type>
-<Default>I</Default>
-</Parameter>
+<Property name="objTestData">
+<Type>vhUnitTest.DOM.PM.TestData</Type>
+<Private>1</Private>
+</Property>
 
-<Method name="OnBeforeOneTest">
-<FormalSpec>aTestName:%String</FormalSpec>
+<Method name="%OnNew">
+<FormalSpec>AManager:Tools.Test.Manager</FormalSpec>
+<ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Do ##super(aTestName)
-	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("APPS.PM.Kenmerk.MogelijkeWaarden.InclusiefReedsIngevulde",0,..#Applicatie)
-	do ..objTestData.CreeerTestData(1000,1099)
+	set ..objTestData = ##class(vhUnitTest.DOM.PM.TestData).%New()
+	Quit ##super(AManager)
 ]]></Implementation>
 </Method>
 
-<Method name="OnAfterAllTests">
+<Method name="OnBeforeAllTests">
 <Implementation><![CDATA[
 	Do ##super()
-	do ..objTestData.VerwijderTestData(1000,1099)
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("APPS.PM.Kenmerk.MogelijkeWaarden.InclusiefReedsIngevulde",0,..#Applicatie)
 ]]></Implementation>
 </Method>
 
 <Method name="TestGeefAutosVoorMaster">
 <Implementation><![CDATA[
-	Do ..OnAfterAllTests()
-	Do ..OnBeforeAllTests()
+	Do ..MaakTestProducten(1018,1021)
+
 	#dim KenmerkGroep As %String = "OL"
 	Set KenmerkenService = ##class(APPS.PM.Kenmerk.impl.KenmerkenService).%New()
 	
@@ -44,24 +44,26 @@
 	#dim AutoVariantenVoorMasters As APPS.PM.dto.Kenm.AutoVariantenVanMasters= KenmerkenService.GeefAutoVariantenVanMasters(KenmerkenSetIDs,KenmerkGroep)
 	
 	Do $$$AssertTrue($IsObject(AutoVariantenVoorMasters),"Het resultaat werd teruggegeven")
-	Do $$$AssertEquals(AutoVariantenVoorMasters.Count(),1,"Er zit 1 item in")
-	
-	#dim AutoVariantenVoorMaster As APPS.PM.dto.Kenm.AutoVariantenVanMaster = AutoVariantenVoorMasters.GetAt(1)
-	
-	Do $$$AssertEquals(AutoVariantenVoorMaster.MasterKenmerkenSetID.ProductID,1018,"De PRNr is ingevuld")
-	Do $$$AssertEquals(AutoVariantenVoorMaster.MasterKenmerkenSetID.UnID,1018,"De UnID is ingevuld")
-	Do $$$AssertEquals(AutoVariantenVoorMaster.AutoVarianten.Count(),3,"Er zijn 3 auto's gevonden") 
-	
-	Do $$$AssertEquals(AutoVariantenVoorMaster.AutoVarianten.GetAt(1).ID,1019,"De eerste auto")
-	Do $$$AssertEquals(AutoVariantenVoorMaster.AutoVarianten.GetAt(2).ID,1020,"De tweede auto")
-	Do $$$AssertEquals(AutoVariantenVoorMaster.AutoVarianten.GetAt(3).ID,1021,"De derde auto")
+	If $$$AssertEquals(AutoVariantenVoorMasters.Count(),1,"Er zit 1 item in") {
+		
+		#dim AutoVariantenVoorMaster As APPS.PM.dto.Kenm.AutoVariantenVanMaster = AutoVariantenVoorMasters.GetAt(1)
+		
+		Do $$$AssertEquals(AutoVariantenVoorMaster.MasterKenmerkenSetID.ProductID,1018,"De PRNr is ingevuld")
+		Do $$$AssertEquals(AutoVariantenVoorMaster.MasterKenmerkenSetID.UnID,1018,"De UnID is ingevuld")
+		Do $$$AssertEquals(AutoVariantenVoorMaster.AutoVarianten.Count(),3,"Er zijn 3 auto's gevonden") 
+		
+		Do $$$AssertEquals(AutoVariantenVoorMaster.AutoVarianten.GetAt(1).ID,1019,"De eerste auto")
+		Do $$$AssertEquals(AutoVariantenVoorMaster.AutoVarianten.GetAt(2).ID,1020,"De tweede auto")
+		Do $$$AssertEquals(AutoVariantenVoorMaster.AutoVarianten.GetAt(3).ID,1021,"De derde auto")
+	}
+	Do ..VerwijderTestProducten(1018,1021)
 ]]></Implementation>
 </Method>
 
 <Method name="TestGeefFoutieveAutosVoorMaster">
 <Implementation><![CDATA[
-	Do ..OnAfterAllTests()
-	Do ..OnBeforeAllTests()
+	Do ..MaakTestProducten(1018)
+
 	#dim KenmerkGroep As %String= "OEI"
 	Set KenmerkenService = ##class(APPS.PM.Kenmerk.impl.KenmerkenService).%New()
 	Set MasterUnIDs = ##class(%ListOfDataTypes).%New()
@@ -74,11 +76,15 @@
 	
 	#dim Exception As TECH.IException = ##class(TECH.ExceptionHandler).Catch()
 	Do $$$AssertEquals(Exception.GeefOmschrijving(),"Deze kenmerkgroep 'OEI' bevat geen masters of auto's.","Foutieve kenmerkgroep voor auto's is gedetecteerd.")
+	
+	Do ..VerwijderTestProducten(1018)
 ]]></Implementation>
 </Method>
 
 <Method name="TestGeefProdKenmPRNrsKenmGroep">
 <Implementation><![CDATA[
+	Do ..MaakTestProducten(1001,1005)
+
 	Set KenmerkenService = ##class(APPS.PM.Kenmerk.impl.KenmerkenService).%New()
 	
 	Set PRNrs = ##class(%ListOfDataTypes).%New()
@@ -90,24 +96,25 @@
 	
 	#dim ProductenKenmerken As APPS.PM.dto.Kenm.ProductenKenmerken = KenmerkenService.GeefProductKenmerken(PRNrs, KenmerkGroepen)
 	
-	do $$$AssertEquals(ProductenKenmerken.Kenmerken.Count(),PRNrs.Count(),"Aantal gevonden productkenmerken is het gelijk aan het aantal gevraagde producten.")
-	
-	do $$$AssertEquals(ProductenKenmerken.Kenmerken.GetAt(1).KenmerkenGroepen.GetAt(1).Sets.GetAt(1).Kenmerken.Count(),7,"Juiste aantal gedefineerde kenmerken.")
-	
-	do $$$AssertEquals(ProductenKenmerken.Kenmerken.GetAt(1).PRNr,PRNrs.GetAt(1),"PRNr komt overeen.")
-	
-	do $$$AssertEquals(ProductenKenmerken.Kenmerken.GetAt(2).KenmerkenGroepen.GetAt(1).Sets.GetAt(1).Kenmerken.Count(),15,"Juiste aantal gedefineerde kenmerken.")
-	
-	do $$$AssertEquals(ProductenKenmerken.Kenmerken.GetAt(2).KenmerkenGroepen.GetAt(1).Sets.GetAt(1).Kenmerken.GetAt(1).Naam,"Diepte","Kenmerknaam is correct ingevuld.")
+	If $$$AssertEquals(ProductenKenmerken.Kenmerken.Count(),PRNrs.Count(),"Aantal gevonden productkenmerken is het gelijk aan het aantal gevraagde producten.") {
+		do $$$AssertEquals(ProductenKenmerken.Kenmerken.GetAt(1).KenmerkenGroepen.GetAt(1).Sets.GetAt(1).Kenmerken.Count(),7,"Juiste aantal gedefineerde kenmerken.")
+		
+		do $$$AssertEquals(ProductenKenmerken.Kenmerken.GetAt(1).PRNr,PRNrs.GetAt(1),"PRNr komt overeen.")
+		
+		do $$$AssertEquals(ProductenKenmerken.Kenmerken.GetAt(2).KenmerkenGroepen.GetAt(1).Sets.GetAt(1).Kenmerken.Count(),15,"Juiste aantal gedefineerde kenmerken.")
+		
+		do $$$AssertEquals(ProductenKenmerken.Kenmerken.GetAt(2).KenmerkenGroepen.GetAt(1).Sets.GetAt(1).Kenmerken.GetAt(1).Naam,"Diepte","Kenmerknaam is correct ingevuld.")
+	}
+
+	Do ..VerwijderTestProducten(1001,1005)
 ]]></Implementation>
 </Method>
 
-<Method name="TestGeefProdKenmViaPRNrs">
+<Method name="TestGeefProdKenmViaPRNrs1003">
 <Description>
 Product met multipleNr's testen</Description>
 <Implementation><![CDATA[
-	Do ..OnAfterAllTests()
-	Do ..OnBeforeAllTests()
+	Do ..MaakTestProducten(1003)
 	
 	Set KenmerkenService = ##class(APPS.PM.Kenmerk.impl.KenmerkenService).%New()
 	
@@ -116,42 +123,58 @@
 	
 	#dim ProductenKenmerken As APPS.PM.dto.Kenm.ProductenKenmerken = KenmerkenService.GeefProductKenmerken(PRNrs)
 	
-	do $$$AssertEquals(ProductenKenmerken.Kenmerken.Count(),1,"Aantal gevonden productkenmerken met uniek PRNr is het gelijk aan het aantal gevraagde producten.")
+	If $$$AssertEquals(ProductenKenmerken.Kenmerken.Count(),1,"Aantal gevonden productkenmerken met uniek PRNr 1003 is het gelijk aan het aantal gevraagde producten.") {
+		do $$$AssertEquals(ProductenKenmerken.Kenmerken.GetAt(1).KenmerkenGroepen.GetAt(1).Sets.Count(),2,"Er zijn twee kenmerkensets gevonden voor het product.")
+		
+		do $$$AssertEquals(ProductenKenmerken.Kenmerken.GetAt(1).KenmerkenGroepen.GetAt(1).Sets.GetAt(1).Kenmerken.Count(),19,"Juiste aantal gedefineerde kenmerken voor ProductKenmerken1.")
+		
+		do $$$AssertEquals(ProductenKenmerken.Kenmerken.GetAt(1).PRNr,PRNrs.GetAt(1),"PRNr komt overeen.")
+		
+		do $$$AssertEquals(ProductenKenmerken.Kenmerken.GetAt(1).KenmerkenGroepen.GetAt(1).Sets.GetAt(1).UnID,"1003.1","UnID 1003.1 is in orde.")
+		
+		do $$$AssertEquals(ProductenKenmerken.Kenmerken.GetAt(1).KenmerkenGroepen.GetAt(1).Sets.GetAt(2).UnID,"1003.2","UnID 1003.2 is in orde.")
+		
+		do $$$AssertEquals(ProductenKenmerken.Kenmerken.GetAt(1).KenmerkenGroepen.GetAt(1).Sets.GetAt(2).Kenmerken.Count(),19,"Juiste aantal gedefineerde kenmerken ProductKenmerken2.")
+		
+		do $$$AssertEquals(ProductenKenmerken.Kenmerken.GetAt(1).KenmerkenGroepen.GetAt(1).Sets.GetAt(2).Kenmerken.GetAt(1).Naam,"BOWeten","Kenmerknaam is correct ingevuld.")
+		
+		do $$$AssertEquals(ProductenKenmerken.Kenmerken.GetAt(1).KenmerkenGroepen.GetAt(1).Sets.GetAt(1).GeneratieType,##class(APPS.PM.enu.GeneratieType).Single(),"Generatietype single")
+		
+		do $$$AssertEquals(ProductenKenmerken.Kenmerken.GetAt(1).KenmerkenGroepen.GetAt(1).Sets.GetAt(1).GeneratieTypeInstanceVersion,0,"Single instance version")
+	}
 	
-	do $$$AssertEquals(ProductenKenmerken.Kenmerken.GetAt(1).KenmerkenGroepen.GetAt(1).Sets.Count(),2,"Er zijn twee kenmerkensets gevonden voor het product.")
+	Do ..VerwijderTestProducten(1003)
+]]></Implementation>
+</Method>
+
+<Method name="TestGeefProdKenmViaPRNrs1018Master">
+<Description>
+Product met multipleNr's testen</Description>
+<Implementation><![CDATA[
+	Do ..MaakTestProducten(1018)
 	
-	do $$$AssertEquals(ProductenKenmerken.Kenmerken.GetAt(1).KenmerkenGroepen.GetAt(1).Sets.GetAt(1).Kenmerken.Count(),19,"Juiste aantal gedefineerde kenmerken voor ProductKenmerken1.")
+	Set KenmerkenService = ##class(APPS.PM.Kenmerk.impl.KenmerkenService).%New()
 	
-	do $$$AssertEquals(ProductenKenmerken.Kenmerken.GetAt(1).PRNr,PRNrs.GetAt(1),"PRNr komt overeen.")
-	
-	do $$$AssertEquals(ProductenKenmerken.Kenmerken.GetAt(1).KenmerkenGroepen.GetAt(1).Sets.GetAt(1).UnID,"1003.1","UnID 1003.1 is in orde.")
-	
-	do $$$AssertEquals(ProductenKenmerken.Kenmerken.GetAt(1).KenmerkenGroepen.GetAt(1).Sets.GetAt(2).UnID,"1003.2","UnID 1003.2 is in orde.")
-	
-	do $$$AssertEquals(ProductenKenmerken.Kenmerken.GetAt(1).KenmerkenGroepen.GetAt(1).Sets.GetAt(2).Kenmerken.Count(),19,"Juiste aantal gedefineerde kenmerken ProductKenmerken2.")
-	
-	do $$$AssertEquals(ProductenKenmerken.Kenmerken.GetAt(1).KenmerkenGroepen.GetAt(1).Sets.GetAt(2).Kenmerken.GetAt(1).Naam,"BOWeten","Kenmerknaam is correct ingevuld.")
-	
-	do $$$AssertEquals(ProductenKenmerken.Kenmerken.GetAt(1).KenmerkenGroepen.GetAt(1).Sets.GetAt(1).GeneratieType,##class(APPS.PM.enu.GeneratieType).Single(),"Generatietype single")
-	
-	do $$$AssertEquals(ProductenKenmerken.Kenmerken.GetAt(1).KenmerkenGroepen.GetAt(1).Sets.GetAt(1).GeneratieTypeInstanceVersion,0,"Single instance version")
-	
 	Set PRNrs = ##class(%ListOfDataTypes).%New()
 	Do PRNrs.Insert(1018)
-	Set ProductenKenmerken = KenmerkenService.GeefProductKenmerken(PRNrs)
 	
-	do $$$AssertEquals(ProductenKenmerken.Kenmerken.GetAt(1).KenmerkenGroepen.GetAt(1).Sets.GetAt(1).GeneratieType,##class(APPS.PM.enu.GeneratieType).Master(),"Generatietype master")
+	#dim ProductenKenmerken As APPS.PM.dto.Kenm.ProductenKenmerken = KenmerkenService.GeefProductKenmerken(PRNrs)
 	
-	do $$$AssertEquals(ProductenKenmerken.Kenmerken.GetAt(1).KenmerkenGroepen.GetAt(1).Sets.GetAt(1).GeneratieTypeInstanceVersion,0,"Master instance version")
+	If $$$AssertEquals(ProductenKenmerken.Kenmerken.Count(),1,"Aantal gevonden productkenmerken met uniek PRNr 1018 is het gelijk aan het aantal gevraagde producten.") {
+		do $$$AssertEquals(ProductenKenmerken.Kenmerken.GetAt(1).KenmerkenGroepen.GetAt(1).Sets.GetAt(1).GeneratieType,##class(APPS.PM.enu.GeneratieType).Master(),"Generatietype master")
+		
+		do $$$AssertEquals(ProductenKenmerken.Kenmerken.GetAt(1).KenmerkenGroepen.GetAt(1).Sets.GetAt(1).GeneratieTypeInstanceVersion,0,"Master instance version")
+	}
+	
+	Do ..VerwijderTestProducten(1018)
 ]]></Implementation>
 </Method>
 
 <Method name="TestGeefProdKenmMeedereGroepen">
 <Description>
 Product met kenmerken in meerdere groepen testen.</Description>
 <Implementation><![CDATA[
-	Do ..OnAfterAllTests()
-	Do ..OnBeforeAllTests()
+	Do ..MaakTestProducten(1024)
 	
 	Set KenmerkenService = ##class(APPS.PM.Kenmerk.impl.KenmerkenService).%New()
 	
@@ -160,23 +183,25 @@
 	
 	#dim ProductenKenmerken As APPS.PM.dto.Kenm.ProductenKenmerken = KenmerkenService.GeefProductKenmerken(PRNrs)
 	
-	do $$$AssertEquals(ProductenKenmerken.Kenmerken.Count(),1,"Aantal gevonden productkenmerken met uniek PRNr is het gelijk aan het aantal gevraagde producten.")
-	
-	do $$$AssertEquals(ProductenKenmerken.Kenmerken.GetAt(1).PRNr,PRNrs.GetAt(1),"PRNr komt overeen.")
-	
-	do $$$AssertEquals(ProductenKenmerken.Kenmerken.GetAt(1).KenmerkenGroepen.Count(), 2, "Er zijn twee KenmerkGroepen gevonden.")
-	
-	do $$$AssertEquals(ProductenKenmerken.Kenmerken.GetAt(1).KenmerkenGroepen.GetAt(1).Sets.Count(),1,"Er is één kenmerkenset gevonden voor het product.")
-	
-	do $$$AssertEquals(ProductenKenmerken.Kenmerken.GetAt(1).KenmerkenGroepen.GetAt(1).Sets.GetAt(1).Kenmerken.Count(),2,"Juiste aantal gedefineerde kenmerken voor ProductKenmerken1.")
+	If $$$AssertEquals(ProductenKenmerken.Kenmerken.Count(),1,"Aantal gevonden productkenmerken met uniek PRNr is het gelijk aan het aantal gevraagde producten.") {
+		do $$$AssertEquals(ProductenKenmerken.Kenmerken.GetAt(1).PRNr,PRNrs.GetAt(1),"PRNr komt overeen.")
 		
-	do $$$AssertEquals(ProductenKenmerken.Kenmerken.GetAt(1).KenmerkenGroepen.GetAt(1).Sets.GetAt(1).UnID,"1024","UnID 1024 is in orde.")
-	
-	do $$$AssertEquals(ProductenKenmerken.Kenmerken.GetAt(1).KenmerkenGroepen.GetAt(2).Sets.GetAt(1).Kenmerken.Count(),16,"Juiste aantal gedefineerde kenmerken voor ProductKenmerken2.")
+		do $$$AssertEquals(ProductenKenmerken.Kenmerken.GetAt(1).KenmerkenGroepen.Count(), 2, "Er zijn twee KenmerkGroepen gevonden.")
 		
-	do $$$AssertEquals(ProductenKenmerken.Kenmerken.GetAt(1).KenmerkenGroepen.GetAt(2).Sets.GetAt(1).UnID,"1024","UnID 1024 is in orde.")
+		do $$$AssertEquals(ProductenKenmerken.Kenmerken.GetAt(1).KenmerkenGroepen.GetAt(1).Sets.Count(),1,"Er is één kenmerkenset gevonden voor het product.")
+		
+		do $$$AssertEquals(ProductenKenmerken.Kenmerken.GetAt(1).KenmerkenGroepen.GetAt(1).Sets.GetAt(1).Kenmerken.Count(),2,"Juiste aantal gedefineerde kenmerken voor ProductKenmerken1.")
+			
+		do $$$AssertEquals(ProductenKenmerken.Kenmerken.GetAt(1).KenmerkenGroepen.GetAt(1).Sets.GetAt(1).UnID,"1024","UnID 1024 is in orde.")
+		
+		do $$$AssertEquals(ProductenKenmerken.Kenmerken.GetAt(1).KenmerkenGroepen.GetAt(2).Sets.GetAt(1).Kenmerken.Count(),16,"Juiste aantal gedefineerde kenmerken voor ProductKenmerken2.")
+			
+		do $$$AssertEquals(ProductenKenmerken.Kenmerken.GetAt(1).KenmerkenGroepen.GetAt(2).Sets.GetAt(1).UnID,"1024","UnID 1024 is in orde.")
+		
+		do $$$AssertEquals(ProductenKenmerken.Kenmerken.GetAt(1).KenmerkenGroepen.GetAt(2).Sets.GetAt(1).Kenmerken.GetAt(1).Naam,"BOWeten","Kenmerknaam is correct ingevuld.")
+	}
 	
-	do $$$AssertEquals(ProductenKenmerken.Kenmerken.GetAt(1).KenmerkenGroepen.GetAt(2).Sets.GetAt(1).Kenmerken.GetAt(1).Naam,"BOWeten","Kenmerknaam is correct ingevuld.")
+	Do ..VerwijderTestProducten(1024)
 ]]></Implementation>
 </Method>
 
@@ -237,6 +262,20 @@
 	Quit NieuwKenmerk
 ]]></Implementation>
 </Method>
+
+<Method name="MaakTestProducten">
+<FormalSpec>PRNrStart:%Integer,PRNrStop:%Integer=PRNrStart</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Do ..objTestData.CreeerTestData(PRNrStart,PRNrStop)
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderTestProducten">
+<FormalSpec>PRNrStart:%Integer,PRNrStop:%Integer=PRNrStart</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Do ..objTestData.VerwijderTestData(PRNrStart,PRNrStop)
+]]></Implementation>
+</Method>
 </Class>