Index: AXimpl/Admin/DOM/PM/Bouwsteen.cls.xml
===================================================================
diff -u -r45156 -r47058
--- AXimpl/Admin/DOM/PM/Bouwsteen.cls.xml	(.../Bouwsteen.cls.xml)	(revision 45156)
+++ AXimpl/Admin/DOM/PM/Bouwsteen.cls.xml	(.../Bouwsteen.cls.xml)	(revision 47058)
@@ -22,6 +22,10 @@
 <Property name="ProductId">
 <Type>%String</Type>
 </Property>
+
+<Property name="IsMeeTeRekenenVoorVoorraad">
+<Type>%Boolean</Type>
+</Property>
 </Class>
 
 
Index: AXimpl/Admin/DOM/PM/BouwsteenIterator/Filter/MeeTeRekenenVoorVoorraadFilter.cls.xml
===================================================================
diff -u
--- AXimpl/Admin/DOM/PM/BouwsteenIterator/Filter/MeeTeRekenenVoorVoorraadFilter.cls.xml	(revision 0)
+++ AXimpl/Admin/DOM/PM/BouwsteenIterator/Filter/MeeTeRekenenVoorVoorraadFilter.cls.xml	(revision 47058)
@@ -0,0 +1,23 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AXimpl.Admin.DOM.PM.BouwsteenIterator.Filter.MeeTeRekenenVoorVoorraadFilter">
+<Super>TECH.RegisteredObject,TECH.Filter</Super>
+
+<Method name="IsValid">
+<FormalSpec>Value:%CacheString</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..IsMeeTeRekenenVoorVoorraad(Value)
+]]></Implementation>
+</Method>
+
+<Method name="IsMeeTeRekenenVoorVoorraad">
+<FormalSpec>Bouwsteen:AXimpl.Admin.DOM.PM.Bouwsteen</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit Bouwsteen.IsMeeTeRekenenVoorVoorraad
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/AXimpl/Admin/DOM/PM/BouwsteenIteratorFilter/Test.cls.xml
===================================================================
diff -u -r46390 -r47058
--- vhUnitTest/AXimpl/Admin/DOM/PM/BouwsteenIteratorFilter/Test.cls.xml	(.../Test.cls.xml)	(revision 46390)
+++ vhUnitTest/AXimpl/Admin/DOM/PM/BouwsteenIteratorFilter/Test.cls.xml	(.../Test.cls.xml)	(revision 47058)
@@ -3,16 +3,30 @@
 <Class name="vhUnitTest.AXimpl.Admin.DOM.PM.BouwsteenIteratorFilter.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test">
+<Method name="Test: BouwsteenIteratorFilter combineert resultaat van TopLevelFilter en MeeTeRekenenVoorVoorraadFilter">
 <Implementation><![CDATA[
-	#dim Filter As AXimpl.Admin.DOM.PM.BouwsteenIteratorFilter = ##class(AXimpl.Admin.DOM.PM.BouwsteenIteratorFilter).%New()
+	Do ..AssertIsValid($$$True, $$$True, $$$True)
+	Do ..AssertIsValid($$$False, $$$True, $$$False)
+	Do ..AssertIsValid($$$True, $$$False, $$$False)
+	Do ..AssertIsValid($$$False, $$$False, $$$False)
+]]></Implementation>
+</Method>
+
+<Method name="AssertIsValid">
+<FormalSpec>IsTopLevelValid:%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()
 	
-	Do $$$AssertTrue(Filter.IsValid(Bouwsteen))
+	#dim TopLevelFilterStub As vhTest.Mock.TECH.Filter = ##class(vhTest.Mock.TECH.Filter).%New()
+	Do TopLevelFilterStub.IndienMethodCall("IsValid", Bouwsteen).DanReturn(IsTopLevelValid)
 	
-	Set Bouwsteen.ParentId = "RandomParentId"
+	#dim MeeTeRekenenVoorVoorraadFilterStub As vhTest.Mock.TECH.Filter = ##class(vhTest.Mock.TECH.Filter).%New()
+	Do MeeTeRekenenVoorVoorraadFilterStub.IndienMethodCall("IsValid", Bouwsteen).DanReturn(IsMeeTeRekenenVoorVoorraadValid)
 	
-	Do $$$AssertFalse(Filter.IsValid(Bouwsteen))
+	#dim BouwsteenIteratorFilter As AXimpl.Admin.DOM.PM.BouwsteenIteratorFilter = ##class(AXimpl.Admin.DOM.PM.BouwsteenIteratorFilter).%New(TopLevelFilterStub, MeeTeRekenenVoorVoorraadFilterStub)	
+	
+	Do $$$AssertEquals(BouwsteenIteratorFilter.IsValid(Bouwsteen), VerwachtResultaat)
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/AXimpl/Admin/DOM/PM/BouwsteenConverter/Test.cls.xml
===================================================================
diff -u -r45158 -r47058
--- vhUnitTest/AXimpl/Admin/DOM/PM/BouwsteenConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 45158)
+++ vhUnitTest/AXimpl/Admin/DOM/PM/BouwsteenConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 47058)
@@ -40,6 +40,26 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Bouwstenen worden altijd meegerekend voor voorraad indien geen BouwsteenHalfFabr">
+<Implementation><![CDATA[
+	#dim BouwsteenKind As DOM.PM.Bouwstenen.Bouwsteen = ##class(DOM.PM.Bouwstenen.BouwsteenKind).%New()
+
+	Do $$$AssertTrue(..BouwsteenConverter.Convert(BouwsteenKind, "").IsMeeTeRekenenVoorVoorraad)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Bouwstenen worden meegerekend voor voorraad indien BouwsteenHalfFabr dit aangeeft">
+<Implementation><![CDATA[
+	#dim BouwsteenHalfFabr As DOM.PM.Bouwstenen.BouwsteenHalfFabr = ##class(DOM.PM.Bouwstenen.BouwsteenHalfFabr).%New()
+
+	Do $$$AssertTrue(..BouwsteenConverter.Convert(BouwsteenHalfFabr, "").IsMeeTeRekenenVoorVoorraad)
+	
+	Set BouwsteenHalfFabr.IsNietMeeTeRekenenVoorVoorraad = $$$True
+	
+	Do $$$AssertFalse(..BouwsteenConverter.Convert(BouwsteenHalfFabr, "").IsMeeTeRekenenVoorVoorraad)
+]]></Implementation>
+</Method>
+
 <Method name="GeefDummyProductBouwsteenDummy">
 <Private>1</Private>
 <ReturnType>DOM.PM.Bouwstenen.Bouwsteen</ReturnType>
Index: AXimpl/Admin/DOM/PM/BouwsteenConverter.cls.xml
===================================================================
diff -u -r45156 -r47058
--- AXimpl/Admin/DOM/PM/BouwsteenConverter.cls.xml	(.../BouwsteenConverter.cls.xml)	(revision 45156)
+++ AXimpl/Admin/DOM/PM/BouwsteenConverter.cls.xml	(.../BouwsteenConverter.cls.xml)	(revision 47058)
@@ -14,10 +14,26 @@
 	Set Bouwsteen.ProductId = ProductBouwsteen.KindProduct.ProductNr
 	Set Bouwsteen.Aantal = ProductBouwsteen.Aantal
 	Set Bouwsteen.ParentId = ParentId
+	Set Bouwsteen.IsMeeTeRekenenVoorVoorraad = ..IsMeeTeRekenenVoorVoorraad(ProductBouwsteen)
 	
 	Quit Bouwsteen
 ]]></Implementation>
 </Method>
+
+<Method name="IsMeeTeRekenenVoorVoorraad">
+<FormalSpec>ProductBouwsteen:DOM.PM.Bouwstenen.Bouwsteen</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim IsMeeTeRekenenVoorVoorraad As %Boolean = $$$True
+	
+	If (ProductBouwsteen.%Extends("DOM.PM.Bouwstenen.BouwsteenHalfFabr")) {
+		Set IsMeeTeRekenenVoorVoorraad = $$$Not(ProductBouwsteen.IsNietMeeTeRekenenVoorVoorraad)
+	}
+	
+	Quit IsMeeTeRekenenVoorVoorraad
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/AXimpl/Admin/DOM/PM/BouwsteenIterator/Filter/TopLevelFilter/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/AXimpl/Admin/DOM/PM/BouwsteenIterator/Filter/TopLevelFilter/Test.cls.xml	(revision 0)
+++ vhUnitTest/AXimpl/Admin/DOM/PM/BouwsteenIterator/Filter/TopLevelFilter/Test.cls.xml	(revision 47058)
@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.AXimpl.Admin.DOM.PM.BouwsteenIterator.Filter.TopLevelFilter.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test">
+<Implementation><![CDATA[
+	#dim TopLevelFilter As AXimpl.Admin.DOM.PM.BouwsteenIterator.Filter.TopLevelFilter = ##class(AXimpl.Admin.DOM.PM.BouwsteenIterator.Filter.TopLevelFilter).%New()
+	#dim Bouwsteen As AXimpl.Admin.DOM.PM.Bouwsteen = ##class(AXimpl.Admin.DOM.PM.Bouwsteen).%New()
+	
+	Do $$$AssertTrue(TopLevelFilter.IsValid(Bouwsteen))
+	
+	Set Bouwsteen.ParentId = "RandomParentId"
+	
+	Do $$$AssertFalse(TopLevelFilter.IsValid(Bouwsteen))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AXimpl/Admin/DOM/PM/BouwsteenIteratorFilter.cls.xml
===================================================================
diff -u -r46390 -r47058
--- AXimpl/Admin/DOM/PM/BouwsteenIteratorFilter.cls.xml	(.../BouwsteenIteratorFilter.cls.xml)	(revision 46390)
+++ AXimpl/Admin/DOM/PM/BouwsteenIteratorFilter.cls.xml	(.../BouwsteenIteratorFilter.cls.xml)	(revision 47058)
@@ -3,12 +3,34 @@
 <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>
+<Private>1</Private>
+</Property>
+
+<Property name="MeeTeRekenenVoorVoorraadFilter">
+<Type>AXimpl.Admin.DOM.PM.BouwsteenIterator.Filter.MeeTeRekenenVoorVoorraadFilter</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>TopLevelFilter:AXimpl.Admin.DOM.PM.BouwsteenIterator.Filter.TopLevelFilter="",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 ..MeeTeRekenenVoorVoorraadFilter = $$$Inject(MeeTeRekenenVoorVoorraadFilter, ##class(AXimpl.Admin.DOM.PM.BouwsteenIterator.Filter.MeeTeRekenenVoorVoorraadFilter).%New())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="IsValid">
 <FormalSpec>Value:%CacheString</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
-	#dim Bouwsteen As AXimpl.Admin.DOM.PM.Bouwsteen = Value
-	Quit (Bouwsteen.ParentId = "")
+<Implementation><![CDATA[	Quit ..TopLevelFilter.IsValid(Value) && ..MeeTeRekenenVoorVoorraadFilter.IsValid(Value)
 ]]></Implementation>
 </Method>
 </Class>
Index: AXimpl/Admin/DOM/PM/BouwsteenIterator.cls.xml
===================================================================
diff -u -r46922 -r47058
--- AXimpl/Admin/DOM/PM/BouwsteenIterator.cls.xml	(.../BouwsteenIterator.cls.xml)	(revision 46922)
+++ AXimpl/Admin/DOM/PM/BouwsteenIterator.cls.xml	(.../BouwsteenIterator.cls.xml)	(revision 47058)
@@ -79,13 +79,13 @@
 	While (HalffabricaatBouwstenenIterator.HasNext()) {
 		#dim HalffabricaatBouwsteen As DOM.PM.Bouwstenen.BouwsteenHalfFabr = HalffabricaatBouwstenenIterator.Next()
 		
-		If $$$Not(HalffabricaatBouwsteen.IsNietMeeTeRekenenVoorVoorraad) {
+		//If $$$Not(HalffabricaatBouwsteen.IsNietMeeTeRekenenVoorVoorraad) {
 			Set Bouwsteen = ..BouwsteenConverter.Convert(HalffabricaatBouwsteen, Id, ParentId)
 			
 			Do Bouwstenen.Insert(Bouwsteen)
 			
 			Set Id = Id + 1
-		}	
+		//}	
 	}
 	
 	While (KindBouwstenenIterator.HasNext()) {
Index: AXimpl/Admin/DOM/PM/BouwsteenIterator/Filter/TopLevelFilter.cls.xml
===================================================================
diff -u
--- AXimpl/Admin/DOM/PM/BouwsteenIterator/Filter/TopLevelFilter.cls.xml	(revision 0)
+++ AXimpl/Admin/DOM/PM/BouwsteenIterator/Filter/TopLevelFilter.cls.xml	(revision 47058)
@@ -0,0 +1,33 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AXimpl.Admin.DOM.PM.BouwsteenIterator.Filter.TopLevelFilter">
+<Super>TECH.RegisteredObject,TECH.Filter</Super>
+
+<Method name="IsValid">
+<FormalSpec>Value:%CacheString</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..IsTopLevel(Value)
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+/*
+Method IsMeegerekendInVoorraad(Bouwsteen As AXimpl.Admin.DOM.PM.Bouwsteen) As %Boolean [ Private ]
+{
+	Quit Bouwsteen
+}*/
+]]></Content>
+</UDLText>
+
+<Method name="IsTopLevel">
+<FormalSpec>Bouwsteen:AXimpl.Admin.DOM.PM.Bouwsteen</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (Bouwsteen.ParentId = "")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/AXimpl/Admin/DOM/PM/BouwsteenIterator/Test.cls.xml
===================================================================
diff -u -r46922 -r47058
--- vhUnitTest/AXimpl/Admin/DOM/PM/BouwsteenIterator/Test.cls.xml	(.../Test.cls.xml)	(revision 46922)
+++ vhUnitTest/AXimpl/Admin/DOM/PM/BouwsteenIterator/Test.cls.xml	(.../Test.cls.xml)	(revision 47058)
@@ -28,7 +28,6 @@
 	Do HalffabricaatBouwstenen.Insert(##class(DOM.PM.Bouwstenen.BouwsteenHalfFabr).%New())
 	Do HalffabricaatBouwstenen.Insert(##class(DOM.PM.Bouwstenen.BouwsteenHalfFabr).%New())
 	Do HalffabricaatBouwstenen.Insert(##class(DOM.PM.Bouwstenen.BouwsteenHalfFabr).%New())
-	Do HalffabricaatBouwstenen.Insert(BouwsteenNietVoorraad)
 	
 	#dim KindBouwstenen As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
 	Do KindBouwstenen.Insert(##class(DOM.PM.Bouwstenen.BouwsteenKind).%New())
@@ -50,7 +49,6 @@
 	Do BouwsteenConverterMock.VerwachtMethodCall("Convert", KindBouwstenen.GetAt(1), 4, "").DanReturn(..GeefBouwsteenDummy("", RandomProductId1))
 	Do BouwsteenConverterMock.VerwachtMethodCall("Convert", KindBouwstenen.GetAt(2), 5, "").DanReturn(..GeefBouwsteenDummy("", RandomProductId2))
 	Do BouwsteenConverterMock.VerwachtMethodCall("Convert", KindBouwstenen.GetAt(3), 6, "").DanReturn(..GeefBouwsteenDummy("", RandomProductId3))
-	Do BouwsteenConverterMock.VerwachtMethodCall("Convert", BouwsteenNietVoorraad).Nooit()
 	
 	#dim ProductApiStub As vhTest.Mock.DOM.PM.ProductAPI = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
 	Do ProductApiStub.IndienMethodCall("GeefProduct", RandomProductId1).DanReturn(KindProductStub)
@@ -122,32 +120,32 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Beperking op top level BOM-lijnen via filter">
+<Method name="Test: Beperking op BOM-lijnen via filter">
 <Implementation><![CDATA[
-	#dim Filter As AXimpl.Admin.DOM.PM.BouwsteenIteratorFilter = ##class(AXimpl.Admin.DOM.PM.BouwsteenIteratorFilter).%New()
-	#dim BouwsteenZonderParentId As AXimpl.Admin.DOM.PM.Bouwsteen = ##class(AXimpl.Admin.DOM.PM.Bouwsteen).%New()
-	#dim BouwsteenMetParentId As AXimpl.Admin.DOM.PM.Bouwsteen = ##class(AXimpl.Admin.DOM.PM.Bouwsteen).%New()
-	Set BouwsteenMetParentId.ParentId = "RandomParentId"
+	#dim BouwsteenDummy As AXimpl.Admin.DOM.PM.Bouwsteen = ..GeefBouwsteenDummy()
 	
-	Do ..AssertHasNext(Filter, BouwsteenZonderParentId, $$$True)
-	Do ..AssertHasNext(Filter, BouwsteenMetParentId, $$$False)
+	Do ..AssertHasNext($$$True, BouwsteenDummy, $$$True)
+	Do ..AssertHasNext($$$False, BouwsteenDummy, $$$False)
 ]]></Implementation>
 </Method>
 
 <Method name="AssertHasNext">
-<FormalSpec>Filter:TECH.Filter,Bouwsteen:AXimpl.Admin.DOM.PM.Bouwsteen,VerwachtResultaat:%Boolean</FormalSpec>
+<FormalSpec>IsValid:%Boolean,Bouwsteen:AXimpl.Admin.DOM.PM.Bouwsteen,VerwachtResultaat:%Boolean</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim Bouwstenen As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes(##class(DOM.PM.Bouwstenen.BouwsteenHalfFabr).%New())
 	
+	#dim FilterStub As vhTest.Mock.TECH.Filter = ##class(vhTest.Mock.TECH.Filter).%New()
+	Do FilterStub.IndienMethodCall("IsValid", Bouwsteen).DanReturn(IsValid)
+	
 	#dim ProductStub As vhTest.Mock.DOM.PM.Product = ##class(vhTest.Mock.DOM.PM.Product).%New()
 	Do ProductStub.IndienMethodCall("GeefHFBouwstenenIterator").DanReturn(##class(TECH.ListIterator).%New(Bouwstenen))
 	Do ProductStub.IndienMethodCall("GeefKindBouwstenenIterator").DanReturn(..EmptyIterator())
 	
 	#dim BouwsteenConverterStub As vhTest.Mock.AXimpl.Admin.DOM.PM.BouwsteenConverter = ##class(vhTest.Mock.AXimpl.Admin.DOM.PM.BouwsteenConverter).%New()
 	Do BouwsteenConverterStub.IndienMethodCall("Convert", Bouwstenen.GetAt(1), $$$ElkeWaarde).DanReturn(Bouwsteen)
 	
-	#dim BouwsteenIterator As AXimpl.Admin.DOM.PM.BouwsteenIterator = ##class(AXimpl.Admin.DOM.PM.BouwsteenIterator).%New(ProductStub, Filter, BouwsteenConverterStub)
+	#dim BouwsteenIterator As AXimpl.Admin.DOM.PM.BouwsteenIterator = ##class(AXimpl.Admin.DOM.PM.BouwsteenIterator).%New(ProductStub, FilterStub, BouwsteenConverterStub)
 	
 	Do $$$AssertEquals(BouwsteenIterator.HasNext(), VerwachtResultaat)
 ]]></Implementation>