Index: vhUnitTest/AXimpl/Admin/DOM/PM/BouwsteenIterator/Filter/GeenKindBouwstenenFilter/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/AXimpl/Admin/DOM/PM/BouwsteenIterator/Filter/GeenKindBouwstenenFilter/Test.cls.xml	(revision 0)
+++ vhUnitTest/AXimpl/Admin/DOM/PM/BouwsteenIterator/Filter/GeenKindBouwstenenFilter/Test.cls.xml	(revision 47983)
@@ -0,0 +1,22 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.AXimpl.Admin.DOM.PM.BouwsteenIterator.Filter.GeenKindBouwstenenFilter.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test">
+<Implementation><![CDATA[
+	#dim GeenKindBouwstenenFilter As AXimpl.Admin.DOM.PM.BouwsteenIterator.Filter.GeenKindBouwstenenFilter = ##class(AXimpl.Admin.DOM.PM.BouwsteenIterator.Filter.GeenKindBouwstenenFilter).%New()
+	#dim Bouwsteen As AXimpl.Admin.DOM.PM.Bouwsteen = ##class(AXimpl.Admin.DOM.PM.Bouwsteen).%New()
+	Set Bouwsteen.HeeftKindBouwstenen = $$$True
+	
+	Do $$$AssertFalse(GeenKindBouwstenenFilter.IsValid(Bouwsteen))
+	
+	Set Bouwsteen.HeeftKindBouwstenen = $$$False
+	
+	Do $$$AssertTrue(GeenKindBouwstenenFilter.IsValid(Bouwsteen))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/AXimpl/Admin/DOM/PM/BouwsteenIteratorFilter/Test.cls.xml
===================================================================
diff -u -r47058 -r47983
--- vhUnitTest/AXimpl/Admin/DOM/PM/BouwsteenIteratorFilter/Test.cls.xml	(.../Test.cls.xml)	(revision 47058)
+++ vhUnitTest/AXimpl/Admin/DOM/PM/BouwsteenIteratorFilter/Test.cls.xml	(.../Test.cls.xml)	(revision 47983)
@@ -3,7 +3,7 @@
 <Class name="vhUnitTest.AXimpl.Admin.DOM.PM.BouwsteenIteratorFilter.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test: BouwsteenIteratorFilter combineert resultaat van TopLevelFilter en MeeTeRekenenVoorVoorraadFilter">
+<Method name="Test: BouwsteenIteratorFilter combineert resultaat van GeenKindFilter en MeeTeRekenenVoorVoorraadFilter">
 <Implementation><![CDATA[
 	Do ..AssertIsValid($$$True, $$$True, $$$True)
 	Do ..AssertIsValid($$$False, $$$True, $$$False)
@@ -13,18 +13,18 @@
 </Method>
 
 <Method name="AssertIsValid">
-<FormalSpec>IsTopLevelValid:%Boolean,IsMeeTeRekenenVoorVoorraadValid:%Boolean,VerwachtResultaat:%Boolean</FormalSpec>
+<FormalSpec>IsGeenKindBouwstenenValid:%Boolean,IsMeeTeRekenenVoorVoorraadValid:%Boolean,VerwachtResultaat:%Boolean</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim Bouwsteen As AXimpl.Admin.DOM.PM.Bouwsteen = ##class(AXimpl.Admin.DOM.PM.Bouwsteen).%New()
 	
-	#dim TopLevelFilterStub As vhTest.Mock.TECH.Filter = ##class(vhTest.Mock.TECH.Filter).%New()
-	Do TopLevelFilterStub.IndienMethodCall("IsValid", Bouwsteen).DanReturn(IsTopLevelValid)
+	#dim GeenKindBouwstenenFilterStub As vhTest.Mock.TECH.Filter = ##class(vhTest.Mock.TECH.Filter).%New()
+	Do GeenKindBouwstenenFilterStub.IndienMethodCall("IsValid", Bouwsteen).DanReturn(IsGeenKindBouwstenenValid)
 	
 	#dim MeeTeRekenenVoorVoorraadFilterStub As vhTest.Mock.TECH.Filter = ##class(vhTest.Mock.TECH.Filter).%New()
 	Do MeeTeRekenenVoorVoorraadFilterStub.IndienMethodCall("IsValid", Bouwsteen).DanReturn(IsMeeTeRekenenVoorVoorraadValid)
 	
-	#dim BouwsteenIteratorFilter As AXimpl.Admin.DOM.PM.BouwsteenIteratorFilter = ##class(AXimpl.Admin.DOM.PM.BouwsteenIteratorFilter).%New(TopLevelFilterStub, MeeTeRekenenVoorVoorraadFilterStub)	
+	#dim BouwsteenIteratorFilter As AXimpl.Admin.DOM.PM.BouwsteenIteratorFilter = ##class(AXimpl.Admin.DOM.PM.BouwsteenIteratorFilter).%New(GeenKindBouwstenenFilterStub, MeeTeRekenenVoorVoorraadFilterStub)	
 	
 	Do $$$AssertEquals(BouwsteenIteratorFilter.IsValid(Bouwsteen), VerwachtResultaat)
 ]]></Implementation>
Index: vhUnitTest/AXimpl/Admin/DOM/PM/BouwsteenIterator/Test.cls.xml
===================================================================
diff -u -r47139 -r47983
--- vhUnitTest/AXimpl/Admin/DOM/PM/BouwsteenIterator/Test.cls.xml	(.../Test.cls.xml)	(revision 47139)
+++ vhUnitTest/AXimpl/Admin/DOM/PM/BouwsteenIterator/Test.cls.xml	(.../Test.cls.xml)	(revision 47983)
@@ -154,6 +154,16 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Bouwsteen houdt bij of er KindBouwstenen zijn">
+<Implementation><![CDATA[
+	#dim KindProductKindBouwstenen As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes(##class(DOM.PM.Bouwstenen.BouwsteenKind).%New())
+	#dim KindProductKindBouwstenenIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(KindProductKindBouwstenen)
+  	
+  	Do ..AssertHeeftKindBouwstenen(..EmptyIterator(), $$$False)
+  	Do ..AssertHeeftKindBouwstenen(KindProductKindBouwstenenIterator, $$$True)
+]]></Implementation>
+</Method>
+
 <Method name="Test: Beperking op BOM-lijnen via filter">
 <Implementation><![CDATA[
 	#dim BouwsteenDummy As AXimpl.Admin.DOM.PM.Bouwsteen = ..GeefBouwsteenDummy()
@@ -163,6 +173,40 @@
 ]]></Implementation>
 </Method>
 
+<Method name="AssertHeeftKindBouwstenen">
+<FormalSpec>KindProductKindBouwstenenIterator:TECH.Iterator,VerwachteWaarde:%Boolean</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim RandomProductNummer As %String = "RandomProductNummer"
+	
+	#dim KindBouwsteen As DOM.PM.Bouwstenen.BouwsteenKind = ##class(DOM.PM.Bouwstenen.BouwsteenKind).%New()
+	Set KindBouwsteen.KindProduct = ##class(Prod.Product).%New()
+	Set KindBouwsteen.KindProduct.ProductNr = RandomProductNummer
+	
+	#dim KindBouwstenen As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes(KindBouwsteen)	
+	
+	#dim ProductStub As vhTest.Mock.DOM.PM.Product = ##class(vhTest.Mock.DOM.PM.Product).%New()
+	Do ProductStub.IndienMethodCall("GeefHFBouwstenenIterator").DanReturn(..EmptyIterator())
+	Do ProductStub.IndienMethodCall("GeefKindBouwstenenIterator").DanReturn(##class(TECH.ListIterator).%New(KindBouwstenen))
+	
+	#dim KindProductStub As vhTest.Mock.DOM.PM.Product = ##class(vhTest.Mock.DOM.PM.Product).%New()
+	Do KindProductStub.IndienMethodCall("GeefHFBouwstenenIterator").DanReturn(..EmptyIterator())
+	Do KindProductStub.IndienMethodCall("GeefKindBouwstenenIterator").DanReturn(KindProductKindBouwstenenIterator)
+	
+	#dim KindVanKindProductStub As vhTest.Mock.DOM.PM.Product = ##class(vhTest.Mock.DOM.PM.Product).%New()
+	Do KindVanKindProductStub.IndienMethodCall("GeefHFBouwstenenIterator").DanReturn(..EmptyIterator())
+	Do KindVanKindProductStub.IndienMethodCall("GeefKindBouwstenenIterator").DanReturn(..EmptyIterator())
+
+	#dim ProductApiStub As vhTest.Mock.DOM.PM.ProductAPI = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
+	Do ProductApiStub.IndienMethodCall("GeefProduct", RandomProductNummer).DanReturn(KindProductStub)
+	Do ProductApiStub.IndienMethodCall("GeefProduct", $$$ElkeWaarde).DanReturn(KindVanKindProductStub)
+	
+	#dim BouwsteenIterator As AXimpl.Admin.DOM.PM.BouwsteenIterator = ##class(AXimpl.Admin.DOM.PM.BouwsteenIterator).%New(ProductStub, "", "", ProductApiStub)
+	
+	Do $$$AssertEquals(BouwsteenIterator.Next().HeeftKindBouwstenen, VerwachteWaarde)
+]]></Implementation>
+</Method>
+
 <Method name="AssertHasNext">
 <FormalSpec>IsValid:%Boolean,Bouwsteen:AXimpl.Admin.DOM.PM.Bouwsteen,VerwachtResultaat:%Boolean</FormalSpec>
 <Private>1</Private>
Index: AXimpl/Admin/DOM/PM/Bouwsteen.cls.xml
===================================================================
diff -u -r47151 -r47983
--- AXimpl/Admin/DOM/PM/Bouwsteen.cls.xml	(.../Bouwsteen.cls.xml)	(revision 47151)
+++ AXimpl/Admin/DOM/PM/Bouwsteen.cls.xml	(.../Bouwsteen.cls.xml)	(revision 47983)
@@ -26,6 +26,10 @@
 <Property name="IsMeeTeRekenenVoorVoorraad">
 <Type>%Boolean</Type>
 </Property>
+
+<Property name="HeeftKindBouwstenen">
+<Type>%Boolean</Type>
+</Property>
 </Class>
 
 
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>
 
 
Index: AXimpl/Admin/DOM/PM/BouwsteenIteratorFilter.cls.xml
===================================================================
diff -u -r47058 -r47983
--- AXimpl/Admin/DOM/PM/BouwsteenIteratorFilter.cls.xml	(.../BouwsteenIteratorFilter.cls.xml)	(revision 47058)
+++ AXimpl/Admin/DOM/PM/BouwsteenIteratorFilter.cls.xml	(.../BouwsteenIteratorFilter.cls.xml)	(revision 47983)
@@ -3,8 +3,8 @@
 <Class name="AXimpl.Admin.DOM.PM.BouwsteenIteratorFilter">
 <Super>TECH.RegisteredObject,TECH.Filter</Super>
 
-<Property name="TopLevelFilter">
-<Type>AXimpl.Admin.DOM.PM.BouwsteenIterator.Filter.TopLevelFilter</Type>
+<Property name="GeenKindBouwstenenFilter">
+<Type>AXimpl.Admin.DOM.PM.BouwsteenIterator.Filter.GeenKindBouwstenenFilter</Type>
 <Private>1</Private>
 </Property>
 
@@ -14,13 +14,13 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>TopLevelFilter:AXimpl.Admin.DOM.PM.BouwsteenIterator.Filter.TopLevelFilter="",MeeTeRekenenVoorVoorraadFilter:AXimpl.Admin.DOM.PM.BouwsteenIterator.Filter.MeeTeRekenenVoorVoorraadFilter=""</FormalSpec>
+<FormalSpec>GeenKindBouwstenenFilter:AXimpl.Admin.DOM.PM.BouwsteenIterator.Filter.GeenKindBouwstenenFilter="",MeeTeRekenenVoorVoorraadFilter:AXimpl.Admin.DOM.PM.BouwsteenIterator.Filter.MeeTeRekenenVoorVoorraadFilter=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..TopLevelFilter = $$$Inject(TopLevelFilter, ##class(AXimpl.Admin.DOM.PM.BouwsteenIterator.Filter.TopLevelFilter).%New())
+	Set ..GeenKindBouwstenenFilter = $$$Inject(GeenKindBouwstenenFilter, ##class(AXimpl.Admin.DOM.PM.BouwsteenIterator.Filter.GeenKindBouwstenenFilter).%New())
 	Set ..MeeTeRekenenVoorVoorraadFilter = $$$Inject(MeeTeRekenenVoorVoorraadFilter, ##class(AXimpl.Admin.DOM.PM.BouwsteenIterator.Filter.MeeTeRekenenVoorVoorraadFilter).%New())
 	
 	Quit $$$OK
@@ -30,7 +30,7 @@
 <Method name="IsValid">
 <FormalSpec>Value:%CacheString</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit ..TopLevelFilter.IsValid(Value) && ..MeeTeRekenenVoorVoorraadFilter.IsValid(Value)
+<Implementation><![CDATA[	Quit ..GeenKindBouwstenenFilter.IsValid(Value) && ..MeeTeRekenenVoorVoorraadFilter.IsValid(Value)
 ]]></Implementation>
 </Method>
 </Class>
Index: vhTestFiles/IntegratieTests/WSimpl.AX.CalculatedProduct/TestOl/64938.xml
===================================================================
diff -u -r47976 -r47983
--- vhTestFiles/IntegratieTests/WSimpl.AX.CalculatedProduct/TestOl/64938.xml	(.../64938.xml)	(revision 47976)
+++ vhTestFiles/IntegratieTests/WSimpl.AX.CalculatedProduct/TestOl/64938.xml	(.../64938.xml)	(revision 47983)
@@ -27,11 +27,12 @@
       <ItemId>0.405.044.0</ItemId>
     </BOMLine>
     <BOMLine class="entity">
-      <BOMLine>3</BOMLine>
-      <BOMQty>4.00</BOMQty>
+      <BOMLine>4</BOMLine>
+      <BOMQty>0.20</BOMQty>
       <BOMQtySerie>1</BOMQtySerie>
       <ConfigVariantId>DummyRequestMessageId</ConfigVariantId>
-      <ItemId>9.638.498.4</ItemId>
+      <ItemId>0.840.535.0</ItemId>
+      <ParentBOMLine>3</ParentBOMLine>
     </BOMLine>
     <BOMLine class="entity">
       <BOMLine>5</BOMLine>
Index: AXimpl/Admin/DOM/PM/BouwsteenIterator/Filter/GeenKindBouwstenenFilter.cls.xml
===================================================================
diff -u
--- AXimpl/Admin/DOM/PM/BouwsteenIterator/Filter/GeenKindBouwstenenFilter.cls.xml	(revision 0)
+++ AXimpl/Admin/DOM/PM/BouwsteenIterator/Filter/GeenKindBouwstenenFilter.cls.xml	(revision 47983)
@@ -0,0 +1,23 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AXimpl.Admin.DOM.PM.BouwsteenIterator.Filter.GeenKindBouwstenenFilter">
+<Super>TECH.RegisteredObject,TECH.Filter</Super>
+
+<Method name="IsValid">
+<FormalSpec>Value:%CacheString</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..HeeftKindBouwstenen(Value)
+]]></Implementation>
+</Method>
+
+<Method name="HeeftKindBouwstenen">
+<FormalSpec>Bouwsteen:AXimpl.Admin.DOM.PM.Bouwsteen</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit $$$Not(Bouwsteen.HeeftKindBouwstenen)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>