Index: vhUnitTest/APPS/PM/TestProductService.cls.xml
===================================================================
diff -u -r2158 -r2767
--- vhUnitTest/APPS/PM/TestProductService.cls.xml	(.../TestProductService.cls.xml)	(revision 2158)
+++ vhUnitTest/APPS/PM/TestProductService.cls.xml	(.../TestProductService.cls.xml)	(revision 2767)
@@ -150,14 +150,33 @@
 	Set Classificaties = ##class(%ListOfDataTypes).%New()
 	Do Classificaties.Insert(892)
 	Do Classificaties.Insert(23)
+	
+	Set Aantal = 0
+	Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
+	Set ProductIt = ProductAPI.GeefProductIterator()
+	While ProductIt.HasNext() {
+		Set Product = ProductIt.Next()
+		Set SubClassificatie = Product.GeefClassificatie()
+		If ((SubClassificatie.GeefID() = 23) || (SubClassificatie.GeefID() = 892)){
+			Set Aantal = Aantal + 1
+		}
+		Set GroepClassificatie = SubClassificatie.GeefGroepClassificatie()
+		If ((GroepClassificatie.GeefID() = 23) || (GroepClassificatie.GeefID() = 892)){
+			Set Aantal = Aantal + 1	
+		}
+		Set HoofdgroepClassificatie = GroepClassificatie.GeefHoofdgroepClassificatie()
+		If ((HoofdgroepClassificatie.GeefID() = 23) || (HoofdgroepClassificatie.GeefID() = 892)){
+			Set Aantal = Aantal + 1	
+		}
+	}
 
 	Set Criteria=##class(APPS.PM.dto.ZoekCriteria).%New()
 	Set Criteria.SoortProductID=##class(APPS.PM.enu.SoortProductID).ProductBoom()
 	
 	Set Criteria.Classificaties =  Classificaties
 	Set ProductService =  ##class(APPS.PM.ProductService).%New()
 	Set ProductenLijst = ProductService.ZoekProducten(Criteria).HerkendeProducten
-	Do $$$AssertEquals(ProductenLijst.Count(),14,"Aantal gevonden producten met Classificatie "_Classificaties.GetAt(1)_" en "_Classificaties.GetAt(2)_" is correct.")
+	Do $$$AssertEquals(ProductenLijst.Count(),Aantal,"Aantal gevonden producten met Classificatie "_Classificaties.GetAt(1)_" en "_Classificaties.GetAt(2)_" is correct.")
 	
 	
 	Set Classificaties = ##class(%ListOfDataTypes).%New()