Index: vhUnitTest/WSimpl/AX/CalculatedProduct/BouwsteenConverter/Test.cls.xml
===================================================================
diff -u -r43373 -r43629
--- vhUnitTest/WSimpl/AX/CalculatedProduct/BouwsteenConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 43373)
+++ vhUnitTest/WSimpl/AX/CalculatedProduct/BouwsteenConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 43629)
@@ -3,48 +3,86 @@
 <Class name="vhUnitTest.WSimpl.AX.CalculatedProduct.BouwsteenConverter.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test: BouwsteenConverter vult ItemId van de BomLine in met het ProductNummer van het Halffabricaat">
+<Property name="RandomProductNummer">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="RandomFirma">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="RandomAantal">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="HalffabricaatBouwsteenDummy">
+<Type>DOM.PM.Bouwstenen.BouwsteenHalfFabr</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="InterneFirmaBepalerStub">
+<Type>vhTest.Mock.WSimpl.AX.CalculatedProduct.InterneFirmaBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
 <Implementation><![CDATA[
-	#dim RandomProductNummer As %Integer = "RandomProductNummer"
-	#dim HalffabricaatBouwsteenDummy As DOM.PM.Bouwstenen.BouwsteenHalfFabr = ..MaakHalffabricaatBouwsteenDummy(RandomProductNummer)
+	Do ##super()
 	
-	#dim InterneFirmaBepalerStub As vhTest.Mock.WSimpl.AX.CalculatedProduct.InterneFirmaBepaler = ##class(vhTest.Mock.WSimpl.AX.CalculatedProduct.InterneFirmaBepaler).%New()
-	Do InterneFirmaBepalerStub.IndienMethodCall("Bepaal", RandomProductNummer).DanReturn("RandomFirma")
+	Set ..RandomProductNummer = "RandomProductNummer"
+	Set ..RandomFirma = "RandomFirma"
+	Set ..RandomAantal = 5
+	Set ..HalffabricaatBouwsteenDummy = ..MaakHalffabricaatBouwsteenDummy()
+	Set ..InterneFirmaBepalerStub = ##class(vhTest.Mock.WSimpl.AX.CalculatedProduct.InterneFirmaBepaler).%New()
 	
-	#dim Converter As WSimpl.AX.CalculatedProduct.BouwsteenConverter = ##class(WSimpl.AX.CalculatedProduct.BouwsteenConverter).%New(InterneFirmaBepalerStub)
-	#dim BomLine As AXif.Dynamics.CalculatedProductOut.MessageParts.AxdEntityBOMLine = Converter.Convert(HalffabricaatBouwsteenDummy)
+	Do ..InterneFirmaBepalerStub.IndienMethodCall("Bepaal", ..RandomProductNummer).DanReturn(..RandomFirma)
+]]></Implementation>
+</Method>
+
+<Method name="Test: BouwsteenConverter vult ItemId van de BomLine in met het ProductNummer van het Halffabricaat">
+<Implementation><![CDATA[
+	#dim Converter As WSimpl.AX.CalculatedProduct.BouwsteenConverter = ##class(WSimpl.AX.CalculatedProduct.BouwsteenConverter).%New(..InterneFirmaBepalerStub)
+	#dim BomLine As AXif.Dynamics.CalculatedProductOut.MessageParts.AxdEntityBOMLine = Converter.Convert(..HalffabricaatBouwsteenDummy)
 	
-	Do $$$AssertEquals(BomLine.ItemId, RandomProductNummer)
+	Do $$$AssertEquals(BomLine.ItemId, ..RandomProductNummer)
 ]]></Implementation>
 </Method>
 
 <Method name="Test: BouwsteenConverter vult SourcingDataAreaId van de BomLine in met een interne firma">
 <Implementation><![CDATA[
-	#dim RandomProductNummer As %Integer = "RandomProductNummer"
-	#dim RandomFirma As %String = "RandomFirma"
-	#dim HalffabricaatBouwsteenDummy As DOM.PM.Bouwstenen.BouwsteenHalfFabr = ..MaakHalffabricaatBouwsteenDummy(RandomProductNummer)
-	
 	#dim InterneFirmaBepalerMock As vhTest.Mock.WSimpl.AX.CalculatedProduct.InterneFirmaBepaler = ##class(vhTest.Mock.WSimpl.AX.CalculatedProduct.InterneFirmaBepaler).%New()
-	Do InterneFirmaBepalerMock.VerwachtMethodCall("Bepaal", RandomProductNummer).DanReturn(RandomFirma)
+	Do InterneFirmaBepalerMock.VerwachtMethodCall("Bepaal", ..RandomProductNummer).DanReturn(..RandomFirma)
 	
 	#dim Converter As WSimpl.AX.CalculatedProduct.BouwsteenConverter = ##class(WSimpl.AX.CalculatedProduct.BouwsteenConverter).%New(InterneFirmaBepalerMock)
-	#dim BomLine As AXif.Dynamics.CalculatedProductOut.MessageParts.AxdEntityBOMLine = Converter.Convert(HalffabricaatBouwsteenDummy)
+	#dim BomLine As AXif.Dynamics.CalculatedProductOut.MessageParts.AxdEntityBOMLine = Converter.Convert(..HalffabricaatBouwsteenDummy)
 	
-	Do $$$AssertEquals(BomLine.SourcingDataAreaId, RandomFirma)
+	Do $$$AssertEquals(BomLine.SourcingDataAreaId, ..RandomFirma)
 	
 	Do InterneFirmaBepalerMock.Verifieer()
 ]]></Implementation>
 </Method>
 
+<Method name="Test: BouwsteenConverter vult BOMQty van de BomLine in met het aantal van het Halffabricaat">
+<Implementation><![CDATA[
+	#dim Converter As WSimpl.AX.CalculatedProduct.BouwsteenConverter = ##class(WSimpl.AX.CalculatedProduct.BouwsteenConverter).%New(..InterneFirmaBepalerStub)
+	#dim BomLine As AXif.Dynamics.CalculatedProductOut.MessageParts.AxdEntityBOMLine = Converter.Convert(..HalffabricaatBouwsteenDummy)
+	
+	Do $$$AssertEquals(BomLine.BOMQty, ..RandomAantal)
+]]></Implementation>
+</Method>
+
 <Method name="MaakHalffabricaatBouwsteenDummy">
-<FormalSpec>ProductNummer:%Integer</FormalSpec>
 <Private>1</Private>
 <ReturnType>DOM.PM.Bouwstenen.BouwsteenHalfFabr</ReturnType>
 <Implementation><![CDATA[
  	#dim HalffabricaatBouwsteenDummy As DOM.PM.Bouwstenen.BouwsteenHalfFabr = ##class(DOM.PM.Bouwstenen.BouwsteenHalfFabr).%New()
  	
  	Set HalffabricaatBouwsteenDummy.KindProduct = ##class(Prod.Product).%New()
- 	Set HalffabricaatBouwsteenDummy.KindProduct.ProductNr = ProductNummer
+ 	Set HalffabricaatBouwsteenDummy.KindProduct.ProductNr = ..RandomProductNummer
+ 	Set HalffabricaatBouwsteenDummy.Aantal = ..RandomAantal
  	
  	Quit HalffabricaatBouwsteenDummy
 ]]></Implementation>
Index: WSimpl/AX/CalculatedProduct/BouwsteenConverter.cls.xml
===================================================================
diff -u -r43373 -r43629
--- WSimpl/AX/CalculatedProduct/BouwsteenConverter.cls.xml	(.../BouwsteenConverter.cls.xml)	(revision 43373)
+++ WSimpl/AX/CalculatedProduct/BouwsteenConverter.cls.xml	(.../BouwsteenConverter.cls.xml)	(revision 43629)
@@ -29,6 +29,7 @@
 	
 	Set BomLine.ItemId = HalffabricaatBouwsteen.KindProduct.ProductNr
 	Set BomLine.SourcingDataAreaId = ..InterneFirmaBepaler.Bepaal(HalffabricaatBouwsteen.KindProduct.ProductNr)
+	Set BomLine.BOMQty = HalffabricaatBouwsteen.Aantal
 	
 	Quit BomLine
 ]]></Implementation>