Index: vhUnitTest/AXimpl/Admin/DOM/PM/BouwsteenConverter/Test.cls.xml
===================================================================
diff -u -r47058 -r47151
--- vhUnitTest/AXimpl/Admin/DOM/PM/BouwsteenConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 47058)
+++ vhUnitTest/AXimpl/Admin/DOM/PM/BouwsteenConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 47151)
@@ -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,7 +33,7 @@
 <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)
@@ -60,7 +60,40 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefDummyProductBouwsteenDummy">
+<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 = 100
+	#dim RandomDimensieMetUitval As %Integer = 40
+	
+	#dim BewerkteProductBouwsteen As DOM.PM.Bouwstenen.BouwsteenHalfFabr1Dim = ##class(DOM.PM.Bouwstenen.BouwsteenHalfFabr1Dim).%New()
+	Set BewerkteProductBouwsteen.DimensieMetUitval = RandomDimensieMetUitval
+	
+	#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)
+	
+	Set ..BouwsteenConverter = ##class(AXimpl.Admin.DOM.PM.BouwsteenConverter).%New(ProductApiStub)
+	
+	#dim VerwachtAantal As %Decimal = RandomDimensieMetUitval / RandomWerkvloerGrootteNetto
+	
+	Do $$$AssertEquals(..BouwsteenConverter.Convert(BewerkteProductBouwsteen, "").Aantal, VerwachtAantal)
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductBouwsteenDummy">
 <Private>1</Private>
 <ReturnType>DOM.PM.Bouwstenen.Bouwsteen</ReturnType>
 <Implementation><![CDATA[