Index: vhUnitTest/AXimpl/Admin/DOM/PM/BouwsteenConverter/Test.cls.xml
===================================================================
diff -u -r45158 -r56788
--- 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 56788)
@@ -19,7 +19,7 @@
 <Method name="Test: BouwsteenConverter converteert Bouwstenen">
 <Implementation><![CDATA[
 	#dim RandomId As %Integer = $$$DummyInteger
-	#dim ProductBouwsteenDummy As DOM.PM.Bouwstenen.Bouwsteen = ..GeefDummyProductBouwsteenDummy()
+	#dim ProductBouwsteenDummy As DOM.PM.Bouwstenen.Bouwsteen = ..GeefProductBouwsteenDummy()
 	#dim Bouwsteen As AXimpl.Admin.DOM.PM.Bouwsteen = ..BouwsteenConverter.Convert(ProductBouwsteenDummy, RandomId)
 	
 	Do $$$AssertEquals(Bouwsteen.IdentNummer, ProductBouwsteenDummy.KindProduct.IdentNummer)
@@ -33,14 +33,118 @@
 <Method name="Test: ParentProductId wordt ingevuld">
 <Implementation><![CDATA[
 	#dim RandomParentId As %String = $$$DummyString
-	#dim ProductBouwsteenDummy As DOM.PM.Bouwstenen.Bouwsteen = ..GeefDummyProductBouwsteenDummy()	
+	#dim ProductBouwsteenDummy As DOM.PM.Bouwstenen.Bouwsteen = ..GeefProductBouwsteenDummy()	
 	#dim Bouwsteen As AXimpl.Admin.DOM.PM.Bouwsteen = ..BouwsteenConverter.Convert(ProductBouwsteenDummy, "", RandomParentId)
 	
 	Do $$$AssertEquals(Bouwsteen.ParentId, RandomParentId)
 ]]></Implementation>
 </Method>
 
-<Method name="GeefDummyProductBouwsteenDummy">
+<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="Test: Aantal wordt overgenomen van Bouwstenen indien niet-bewerkte halffabricaten">
+<Implementation><![CDATA[
+	#dim RandomAantal As %Integer = 5
+	
+	#dim ProductBouwsteenDummy As DOM.PM.Bouwstenen.Bouwsteen = ..GeefProductBouwsteenDummy()
+	Set ProductBouwsteenDummy.Aantal = RandomAantal
+
+	Do $$$AssertEquals(..BouwsteenConverter.Convert(ProductBouwsteenDummy, "").Aantal, RandomAantal)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Aantal wordt berekend indien bewerkte halffabricaten">
+<Implementation><![CDATA[
+	#dim RandomWerkvloerGrootteNetto As %Integer = 2820
+	#dim RandomDimensieNetto As %Integer = 829
+	#dim AantalVanBouwsteen As %Integer = 2
+	
+	#dim BewerkteProductBouwsteen As DOM.PM.Bouwstenen.BouwsteenHalfFabr1Dim = ##class(DOM.PM.Bouwstenen.BouwsteenHalfFabr1Dim).%New()
+	Set BewerkteProductBouwsteen.DimensieNetto = RandomDimensieNetto
+	Set BewerkteProductBouwsteen.Aantal = AantalVanBouwsteen
+	
+	#dim ProductStub As vhTest.Mock.DOM.PM.Product = ##class(vhTest.Mock.DOM.PM.Product).%New()
+	Do ProductStub.IndienMethodCall("GeefWerkvloerGrootteNetto").DanReturn(RandomWerkvloerGrootteNetto)
+	
+	#dim ProductApiStub As vhTest.Mock.DOM.PM.ProductAPI = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
+	Do ProductApiStub.IndienMethodCall("GeefProduct", "").DanReturn(ProductStub)
+	
+	#dim BouwsteenConverter As AXimpl.Admin.DOM.PM.BouwsteenConverter = ##class(AXimpl.Admin.DOM.PM.BouwsteenConverter).%New(ProductApiStub)	
+	#dim VerwachtAantal As %Decimal = (RandomDimensieNetto / RandomWerkvloerGrootteNetto * AantalVanBouwsteen)
+	
+	Do $$$AssertEquals(BouwsteenConverter.Convert(BewerkteProductBouwsteen, "").Aantal, VerwachtAantal)
+]]></Implementation>
+</Method>
+
+<Method name="Test: UitvalPercentage wordt berekend indien bewerkte halffabricaten">
+<Implementation><![CDATA[
+	#dim RandomWerkvloerGrootteNetto As %Integer = 2820
+	#dim RandomDimensieMetUitval As %Integer = 1015
+	#dim RandomDimensieNetto As %Integer = 829
+	#dim AantalVanBouwsteen As %Integer = 2
+	
+	#dim BewerkteProductBouwsteen As DOM.PM.Bouwstenen.BouwsteenHalfFabr1Dim = ##class(DOM.PM.Bouwstenen.BouwsteenHalfFabr1Dim).%New()
+	Set BewerkteProductBouwsteen.DimensieMetUitval = RandomDimensieMetUitval
+	Set BewerkteProductBouwsteen.DimensieNetto = RandomDimensieNetto
+	Set BewerkteProductBouwsteen.Aantal = AantalVanBouwsteen
+	
+	#dim ProductStub As vhTest.Mock.DOM.PM.Product = ##class(vhTest.Mock.DOM.PM.Product).%New()
+	Do ProductStub.IndienMethodCall("GeefWerkvloerGrootteNetto").DanReturn(RandomWerkvloerGrootteNetto)
+	
+	#dim ProductApiStub As vhTest.Mock.DOM.PM.ProductAPI = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
+	Do ProductApiStub.IndienMethodCall("GeefProduct", "").DanReturn(ProductStub)
+	
+	#dim BouwsteenConverter As AXimpl.Admin.DOM.PM.BouwsteenConverter = ##class(AXimpl.Admin.DOM.PM.BouwsteenConverter).%New(ProductApiStub)	
+	#dim VerwachtPercentage As %Decimal = (((RandomDimensieMetUitval - RandomDimensieNetto) / RandomDimensieNetto) * 100)
+	
+	Do $$$AssertEquals(BouwsteenConverter.Convert(BewerkteProductBouwsteen, "").UitvalPercentage, VerwachtPercentage)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als DimensieNetto leeg of 0 is =&gt; UitvalPercentage is per default 0">
+<Implementation><![CDATA[
+	#dim RandomWerkvloerGrootteNetto As %Integer = 2820
+	#dim RandomDimensieMetUitval As %Integer = 1015
+	#dim DimensieNetto As %Integer = 0
+	#dim AantalVanBouwsteen As %Integer = 2
+	
+	#dim BewerkteProductBouwsteen As DOM.PM.Bouwstenen.BouwsteenHalfFabr1Dim = ##class(DOM.PM.Bouwstenen.BouwsteenHalfFabr1Dim).%New()
+	Set BewerkteProductBouwsteen.DimensieMetUitval = RandomDimensieMetUitval
+	Set BewerkteProductBouwsteen.DimensieNetto = DimensieNetto
+	Set BewerkteProductBouwsteen.Aantal = AantalVanBouwsteen
+	
+	#dim ProductStub As vhTest.Mock.DOM.PM.Product = ##class(vhTest.Mock.DOM.PM.Product).%New()
+	Do ProductStub.IndienMethodCall("GeefWerkvloerGrootteNetto").DanReturn(RandomWerkvloerGrootteNetto)
+	
+	#dim ProductApiStub As vhTest.Mock.DOM.PM.ProductAPI = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
+	Do ProductApiStub.IndienMethodCall("GeefProduct", "").DanReturn(ProductStub)
+	
+	#dim BouwsteenConverter As AXimpl.Admin.DOM.PM.BouwsteenConverter = ##class(AXimpl.Admin.DOM.PM.BouwsteenConverter).%New(ProductApiStub)	
+	#dim VerwachtPercentage As %Decimal = 0
+	
+	Do $$$AssertEquals(BouwsteenConverter.Convert(BewerkteProductBouwsteen, "").UitvalPercentage, VerwachtPercentage)
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductBouwsteenDummy">
 <Private>1</Private>
 <ReturnType>DOM.PM.Bouwstenen.Bouwsteen</ReturnType>
 <Implementation><![CDATA[