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>