Index: AXimpl/Admin/DOM/PM/BouwsteenConverter.cls.xml
===================================================================
diff -u -r47058 -r47151
--- AXimpl/Admin/DOM/PM/BouwsteenConverter.cls.xml	(.../BouwsteenConverter.cls.xml)	(revision 47058)
+++ AXimpl/Admin/DOM/PM/BouwsteenConverter.cls.xml	(.../BouwsteenConverter.cls.xml)	(revision 47151)
@@ -3,6 +3,24 @@
 <Class name="AXimpl.Admin.DOM.PM.BouwsteenConverter">
 <Super>TECH.Mockable</Super>
 
+<Property name="ProductApi">
+<Type>DOM.PM.ProductAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>ProductApi:DOM.PM.ProductAPI=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..ProductApi = $$$Inject(ProductApi, ##class(DOM.PM.impl.ProductAPI).%New())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="Convert">
 <FormalSpec>ProductBouwsteen:DOM.PM.Bouwstenen.Bouwsteen,Id:%Integer,ParentId:%Integer=""</FormalSpec>
 <ReturnType>AXimpl.Admin.DOM.PM.Bouwsteen</ReturnType>
@@ -12,7 +30,7 @@
 	Set Bouwsteen.Id = Id
 	Set Bouwsteen.IdentNummer = ProductBouwsteen.KindProduct.IdentNummer
 	Set Bouwsteen.ProductId = ProductBouwsteen.KindProduct.ProductNr
-	Set Bouwsteen.Aantal = ProductBouwsteen.Aantal
+	Set Bouwsteen.Aantal = ..GeefAantal(ProductBouwsteen)
 	Set Bouwsteen.ParentId = ParentId
 	Set Bouwsteen.IsMeeTeRekenenVoorVoorraad = ..IsMeeTeRekenenVoorVoorraad(ProductBouwsteen)
 	
@@ -34,6 +52,24 @@
 	Quit IsMeeTeRekenenVoorVoorraad
 ]]></Implementation>
 </Method>
+
+<Method name="GeefAantal">
+<FormalSpec>ProductBouwsteen:DOM.PM.Bouwstenen.Bouwsteen</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Decimal</ReturnType>
+<Implementation><![CDATA[
+	#dim Aantal As %Decimal = ProductBouwsteen.Aantal
+	
+	If (ProductBouwsteen.%Extends("DOM.PM.Bouwstenen.BouwsteenHalfFabr1Dim")) {
+		#dim BouwsteenHalfFabr1Dim As DOM.PM.Bouwstenen.BouwsteenHalfFabr1Dim = ProductBouwsteen
+		#dim HalffabricaatProduct As DOM.PM.Product = ..ProductApi.GeefProduct(BouwsteenHalfFabr1Dim.KindProduct.ProductNr)
+
+		Set Aantal = BouwsteenHalfFabr1Dim.DimensieMetUitval / HalffabricaatProduct.GeefWerkvloerGrootteNetto()
+	}
+	
+	Quit Aantal
+]]></Implementation>
+</Method>
 </Class>