Index: AXimpl/Admin/DOM/PM/BouwsteenIterator.cls.xml
===================================================================
diff -u -r47151 -r47983
--- AXimpl/Admin/DOM/PM/BouwsteenIterator.cls.xml	(.../BouwsteenIterator.cls.xml)	(revision 47151)
+++ AXimpl/Admin/DOM/PM/BouwsteenIterator.cls.xml	(.../BouwsteenIterator.cls.xml)	(revision 47983)
@@ -90,12 +90,13 @@
 		#dim KindBouwsteen As DOM.PM.Bouwstenen.BouwsteenKind = KindBouwstenenIterator.Next()
 		
 		Set Bouwsteen = ..BouwsteenConverter.Convert(KindBouwsteen, Id, ParentId)
-		
-		Do Bouwstenen.Insert(Bouwsteen)
-		
 		Set Id = Id + 1
 		
 		#dim KindProduct As DOM.PM.Product = ..ProductApi.GeefProduct(Bouwsteen.ProductId)
+
+		Set Bouwsteen.HeeftKindBouwstenen = ..HeeftBouwstenen(KindProduct)
+		Do Bouwstenen.Insert(Bouwsteen)
+
 		#dim KindBouwstenen AS %ListOfDataTypes = ..GeefBouwstenen(KindProduct, Id, Bouwsteen.Id)
 		
 		Do ##class(TECH.ListUtils).AppendList(Bouwstenen, KindBouwstenen)
@@ -106,6 +107,14 @@
 	Quit Bouwstenen
 ]]></Implementation>
 </Method>
+
+<Method name="HeeftBouwstenen">
+<FormalSpec>Product:DOM.PM.Product</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (Product.GeefHFBouwstenenIterator().HasNext() || Product.GeefKindBouwstenenIterator().HasNext())
+]]></Implementation>
+</Method>
 </Class>