Index: vhUnitTest/APPS/PM/TestKenmerkenService.cls.xml
===================================================================
diff -u -r1619 -r1681
--- vhUnitTest/APPS/PM/TestKenmerkenService.cls.xml	(.../TestKenmerkenService.cls.xml)	(revision 1619)
+++ vhUnitTest/APPS/PM/TestKenmerkenService.cls.xml	(.../TestKenmerkenService.cls.xml)	(revision 1681)
@@ -57,11 +57,11 @@
 	
 	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(),8,"Juiste aantal gedefineerde kenmerken.")
+	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.Count(),14,"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.")
 ]]></Implementation>
@@ -82,15 +82,15 @@
 	
 	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).KenmerkenGroepen.GetAt(1).Sets.GetAt(1).Kenmerken.Count(),18,"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.Count(),18,"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.")
 ]]></Implementation>
@@ -119,7 +119,7 @@
 		
 	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).Kenmerken.Count(),15,"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.")
 	
@@ -137,7 +137,8 @@
 	Set KenmerkGroepMetadata = KenmerkenService.GeefMetadata(KenmerkGroepen).KenmerkGroepen
 	
 	Do $$$AssertEquals(KenmerkGroepMetadata.Count(),1,"Correct aantal kenmerkengroepen (#1)")
-	Do $$$AssertEquals(KenmerkGroepMetadata.GetAt(1).Naam,"OL","Correcte naam kenmerkengroep (OL)")
+	Do $$$AssertEquals(KenmerkGroepMetadata.GetAt(1).Code,"OL","Correcte code kenmerkengroep (OL)")
+	Do $$$AssertEquals(KenmerkGroepMetadata.GetAt(1).Naam,"ORGALUX","Correcte naam kenmerkengroep (ORGALUX)")
 	
 	Set KenmerkMetadata = KenmerkGroepMetadata.GetAt(1).Kenmerken
 	
@@ -185,9 +186,7 @@
 	
 	Set Kenmerken = ProductenKenmerken.Kenmerken.GetAt(1).KenmerkenGroepen.GetAt(1).Sets.GetAt(1).Kenmerken
 	
-	Do $$$AssertEquals(Kenmerken.GetAt(4).Waarden.GetAt(1),"Keuken","Er is een ingevulde eigenschap "_Kenmerken.GetAt(4).Naam_" : "_Kenmerken.GetAt(4).Waarden.GetAt(1)_"")
-	; [Review WV  JBL Kenm]   wat een geflipte expression  :-P
-	;                         bestaat er geen method Product.GeefKenmerkViaNaam("MeubelToepassing")  i.p.v. GetAt(4)  ? 
+	Do $$$AssertEquals(Kenmerken.GetAt(4).Waarden.GetAt(1),"Set","Er is een ingevulde eigenschap "_Kenmerken.GetAt(4).Naam_" : "_Kenmerken.GetAt(4).Waarden.GetAt(1)_"")
 
 	///Kenmerk wijzigen en wegschrijven
 	Set Waarden = ##class(%ListOfDataTypes).%New()
@@ -351,7 +350,7 @@
 	Set PRNr = GewijzigdePRNrs.GetAt(1)
 	Set ProductenKenmerken = KenmerkenService.GeefProductenKenmerkenOne(PRNr,KenmerkGroep)
 	Set Kenmerken = ProductenKenmerken.Kenmerken.GetAt(1).KenmerkenGroepen.GetAt(1).Sets.GetAt(1).Kenmerken
-	Do $$$AssertEquals(Kenmerken.Count(),18,"Er zijn 18 kenmerken gevonden.")
+	Do $$$AssertEquals(Kenmerken.Count(),17,"Er zijn 17 kenmerken gevonden.")
 ]]></Implementation>
 </Method>
 
@@ -388,8 +387,8 @@
 	Set Kenmerken = Sets.GetAt(1).Kenmerken
 	
 	Do $$$AssertEquals(Sets.Count(),2,"Er zijn 2 productkenmerken sets gevonden voor dit product.")
-	Do $$$AssertEquals(Kenmerken.Count(),17,"Er zijn 17 kenmerken gevonden voor het eerste product.")
-	Do $$$AssertEquals(Kenmerken.Count(),17,"Er zijn 17 kenmerken gevonden voor het tweede product.")
+	Do $$$AssertEquals(Kenmerken.Count(),16,"Er zijn 16 kenmerken gevonden voor het eerste product.")
+	Do $$$AssertEquals(Kenmerken.Count(),16,"Er zijn 16 kenmerken gevonden voor het tweede product.")
 ]]></Implementation>
 </Method>