Index: WSimpl/AX/CalculatedProduct/BouwsteenConverter.cls.xml
===================================================================
diff -u -r44839 -r45156
--- WSimpl/AX/CalculatedProduct/BouwsteenConverter.cls.xml	(.../BouwsteenConverter.cls.xml)	(revision 44839)
+++ WSimpl/AX/CalculatedProduct/BouwsteenConverter.cls.xml	(.../BouwsteenConverter.cls.xml)	(revision 45156)
@@ -4,14 +4,18 @@
 <Super>TECH.Mockable</Super>
 
 <Method name="Convert">
-<FormalSpec>HalffabricaatBouwsteen:DOM.PM.Bouwstenen.BouwsteenHalfFabr</FormalSpec>
+<FormalSpec>Bouwsteen:AXimpl.Admin.DOM.PM.Bouwsteen,ConfigVariantId:%String</FormalSpec>
 <ReturnType>AXif.Dynamics.CalculatedProductOut.MessageParts.AxdEntityBOMLine</ReturnType>
 <Implementation><![CDATA[
 	#dim BomLine As AXif.Dynamics.CalculatedProductOut.MessageParts.AxdEntityBOMLine = ##class(AXif.Dynamics.CalculatedProductOut.MessageParts.AxdEntityBOMLine).%New()
 	
-	Set BomLine.ItemId = HalffabricaatBouwsteen.KindProduct.IdentNummer
-	Set BomLine.BOMQty = HalffabricaatBouwsteen.Aantal
+	Set BomLine.BOMLine = Bouwsteen.Id
+	Set BomLine.BOMQty = Bouwsteen.Aantal
 	Set BomLine.BOMQtySerie = 1
+	Set BomLine.ConfigVariantId = ConfigVariantId
+	Set BomLine.ItemId = Bouwsteen.IdentNummer
+	Set BomLine.ParentBOMLine = Bouwsteen.ParentId
+	
 	Set BomLine.class = "entity"
 	
 	Quit BomLine
Index: vhTest/Mock/WSimpl/AX/CalculatedProduct/BouwsteenConverter.cls.xml
===================================================================
diff -u -r43361 -r45156
--- vhTest/Mock/WSimpl/AX/CalculatedProduct/BouwsteenConverter.cls.xml	(.../BouwsteenConverter.cls.xml)	(revision 43361)
+++ vhTest/Mock/WSimpl/AX/CalculatedProduct/BouwsteenConverter.cls.xml	(.../BouwsteenConverter.cls.xml)	(revision 45156)
@@ -9,9 +9,9 @@
 <Inheritance>right</Inheritance>
 
 <Method name="Convert">
-<FormalSpec>HalffabricaatBouwsteen:DOM.PM.Bouwstenen.BouwsteenHalfFabr</FormalSpec>
+<FormalSpec>Bouwsteen:AXimpl.Admin.DOM.PM.Bouwsteen,ConfigVariantId:%String</FormalSpec>
 <ReturnType>AXif.Dynamics.CalculatedProductOut.MessageParts.AxdEntityBOMLine</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("Convert",HalffabricaatBouwsteen)
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("Convert",Bouwsteen,ConfigVariantId)
 ]]></Implementation>
 </Method>
 </Class>
Index: AXimpl/Admin/DOM/PM/Bouwsteen.cls.xml
===================================================================
diff -u -r45102 -r45156
--- AXimpl/Admin/DOM/PM/Bouwsteen.cls.xml	(.../Bouwsteen.cls.xml)	(revision 45102)
+++ AXimpl/Admin/DOM/PM/Bouwsteen.cls.xml	(.../Bouwsteen.cls.xml)	(revision 45156)
@@ -3,6 +3,10 @@
 <Class name="AXimpl.Admin.DOM.PM.Bouwsteen">
 <Super>TECH.RegisteredObject</Super>
 
+<Property name="Id">
+<Type>%Integer</Type>
+</Property>
+
 <Property name="Aantal">
 <Type>%Integer</Type>
 </Property>
@@ -11,11 +15,11 @@
 <Type>%String</Type>
 </Property>
 
-<Property name="ProductId">
-<Type>%String</Type>
+<Property name="ParentId">
+<Type>%Integer</Type>
 </Property>
 
-<Property name="ParentProductId">
+<Property name="ProductId">
 <Type>%String</Type>
 </Property>
 </Class>
Index: vhTest/Fake/AXimpl/Admin/DOM/PM/BouwsteenConverter.cls.xml
===================================================================
diff -u -r45102 -r45156
--- vhTest/Fake/AXimpl/Admin/DOM/PM/BouwsteenConverter.cls.xml	(.../BouwsteenConverter.cls.xml)	(revision 45102)
+++ vhTest/Fake/AXimpl/Admin/DOM/PM/BouwsteenConverter.cls.xml	(.../BouwsteenConverter.cls.xml)	(revision 45156)
@@ -8,7 +8,7 @@
 <Super>AXimpl.Admin.DOM.PM.BouwsteenConverter</Super>
 
 <Method name="Convert">
-<FormalSpec>ProductBouwsteen:DOM.PM.Bouwstenen.Bouwsteen,ParentProductId:%String=""</FormalSpec>
+<FormalSpec>ProductBouwsteen:DOM.PM.Bouwstenen.Bouwsteen,Id:%Integer,ParentId:%Integer=""</FormalSpec>
 <ReturnType>AXimpl.Admin.DOM.PM.Bouwsteen</ReturnType>
 <Implementation><![CDATA[	Quit ""
 ]]></Implementation>
Index: AXimpl/Admin/DOM/PM/BouwsteenConverter.cls.xml
===================================================================
diff -u -r45102 -r45156
--- AXimpl/Admin/DOM/PM/BouwsteenConverter.cls.xml	(.../BouwsteenConverter.cls.xml)	(revision 45102)
+++ AXimpl/Admin/DOM/PM/BouwsteenConverter.cls.xml	(.../BouwsteenConverter.cls.xml)	(revision 45156)
@@ -4,15 +4,16 @@
 <Super>TECH.Mockable</Super>
 
 <Method name="Convert">
-<FormalSpec>ProductBouwsteen:DOM.PM.Bouwstenen.Bouwsteen,ParentProductId:%String=""</FormalSpec>
+<FormalSpec>ProductBouwsteen:DOM.PM.Bouwstenen.Bouwsteen,Id:%Integer,ParentId:%Integer=""</FormalSpec>
 <ReturnType>AXimpl.Admin.DOM.PM.Bouwsteen</ReturnType>
 <Implementation><![CDATA[
 	#dim Bouwsteen As AXimpl.Admin.DOM.PM.Bouwsteen = ##class(AXimpl.Admin.DOM.PM.Bouwsteen).%New()
 	
+	Set Bouwsteen.Id = Id
 	Set Bouwsteen.IdentNummer = ProductBouwsteen.KindProduct.IdentNummer
 	Set Bouwsteen.ProductId = ProductBouwsteen.KindProduct.ProductNr
 	Set Bouwsteen.Aantal = ProductBouwsteen.Aantal
-	Set Bouwsteen.ParentProductId = ParentProductId
+	Set Bouwsteen.ParentId = ParentId
 	
 	Quit Bouwsteen
 ]]></Implementation>
Index: WSimpl/AX/CalculatedProduct/BouwstenenConverter.cls.xml
===================================================================
diff -u -r45040 -r45156
--- WSimpl/AX/CalculatedProduct/BouwstenenConverter.cls.xml	(.../BouwstenenConverter.cls.xml)	(revision 45040)
+++ WSimpl/AX/CalculatedProduct/BouwstenenConverter.cls.xml	(.../BouwstenenConverter.cls.xml)	(revision 45156)
@@ -8,87 +8,44 @@
 <Private>1</Private>
 </Property>
 
-<Property name="ProductApi">
-<Type>DOM.PM.ProductAPI</Type>
+<Property name="BouwsteenIterator">
+<Type>AXimpl.Admin.DOM.PM.BouwsteenIterator</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>BouwsteenConverter:WSimpl.AX.CalculatedProduct.BouwsteenConverter="",ProductApi:DOM.PM.ProductAPI=""</FormalSpec>
+<FormalSpec>BouwsteenIterator:AXimpl.Admin.DOM.PM.BouwsteenIterator="",BouwsteenConverter:WSimpl.AX.CalculatedProduct.BouwsteenConverter=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
+	Set ..BouwsteenIterator = BouwsteenIterator
 	Set ..BouwsteenConverter = $$$Inject(BouwsteenConverter, ##class(WSimpl.AX.CalculatedProduct.BouwsteenConverter).%New())
-	Set ..ProductApi = $$$Inject(ProductApi, ##class(DOM.DomeinContext).Instance().GeefProductAPI())
 	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="Convert">
 <FormalSpec>Product:DOM.PM.Product,ConfigVariantId:%String</FormalSpec>
-<ReturnType>%ListOfObjects</ReturnType>
-<ReturnTypeParams>ELEMENTTYPE="AXif.Dynamics.CalculatedProductOut.MessageParts.AxdEntityBOMLine"</ReturnTypeParams>
-<Implementation><![CDATA[	Quit ..GeefBomLines(Product, ConfigVariantId)
-]]></Implementation>
-</Method>
-
-<Method name="GeefBomLines">
-<FormalSpec>Product:DOM.PM.Product,ConfigVariantId:%String,ParentBomLine:%Decimal="",Teller:%Integer=1</FormalSpec>
-<Private>1</Private>
 <ReturnType>%ListOfDataTypes</ReturnType>
 <ReturnTypeParams>ELEMENTTYPE="AXif.Dynamics.CalculatedProductOut.MessageParts.AxdEntityBOMLine"</ReturnTypeParams>
 <Implementation><![CDATA[
-	#dim BomLines As %ListOfObjects = ##class(%ListOfObjects).%New()
-	#dim HalffabricaatBouwstenenIterator As TECH.ListIterator = Product.GeefHFBouwstenenIterator()
-	#dim KindBouwstenenIterator As TECH.ListIterator = Product.GeefKindBouwstenenIterator()
+	Set ..BouwsteenIterator = $$$LazyLoad(..BouwsteenIterator, ##class(AXimpl.Admin.DOM.PM.BouwsteenIterator).%New(Product))
 	
-	While (HalffabricaatBouwstenenIterator.HasNext()) {
-		#dim HalffabricaatBouwsteen As DOM.PM.Bouwstenen.BouwsteenHalfFabr = HalffabricaatBouwstenenIterator.Next()
-		
-		Do BomLines.Insert(..GeefBomLine(HalffabricaatBouwsteen, ParentBomLine, Teller, ConfigVariantId))
-		
-		Set Teller = Teller + 1
-	}
+	#dim BomLines As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
 	
-	While (KindBouwstenenIterator.HasNext()) {
-		#dim KindBouwsteen As DOM.PM.Bouwstenen.BouwsteenKind = KindBouwstenenIterator.Next()
-		#dim KindBouwsteenBomLine As AXif.Dynamics.CalculatedProductOut.MessageParts.AxdEntityBOMLine = ..GeefBomLine(KindBouwsteen, ParentBomLine, Teller, ConfigVariantId)
+	While (..BouwsteenIterator.HasNext()) {
+		#dim Bouwsteen As AXimpl.Admin.DOM.PM.Bouwsteen = ..BouwsteenIterator.Next()
+		#dim BomLine As AXif.Dynamics.CalculatedProductOut.MessageParts.AxdEntityBOMLine = ..BouwsteenConverter.Convert(Bouwsteen, ConfigVariantId)
 		
-		Do BomLines.Insert(KindBouwsteenBomLine)
-		
-		Set Teller = Teller + 1
-		
-		If (..ProductApi.BestaatProduct(KindBouwsteen.KindProduct.ProductNr)) {
-			#dim KindBouwsteenProduct As DOM.PM.Product = ..ProductApi.GeefProduct(KindBouwsteen.KindProduct.ProductNr)
-			#dim KindBouwsteenProductBomLines As %ListOfDataTypes = ..GeefBomLines(KindBouwsteenProduct, ConfigVariantId, KindBouwsteenBomLine.BOMLine, Teller)
-		
-			Do ##class(TECH.ListUtils).AppendList(BomLines, KindBouwsteenProductBomLines)
-			
-			Set Teller = Teller + KindBouwsteenProductBomLines.Count()
-		}
+		Do BomLines.Insert(BomLine)
 	}
 	
 	Quit BomLines
 ]]></Implementation>
 </Method>
-
-<Method name="GeefBomLine">
-<FormalSpec>Bouwsteen:DOM.PM.Bouwstenen.Bouwsteen,ParentBomLine:%Decimal="",VolgNummer:%Integer,ConfigVariantId:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>AXif.Dynamics.CalculatedProductOut.MessageParts.AxdEntityBOMLine</ReturnType>
-<Implementation><![CDATA[
-	#dim BomLine As AXif.Dynamics.CalculatedProductOut.MessageParts.AxdEntityBOMLine = ..BouwsteenConverter.Convert(Bouwsteen)
-	
-	Set BomLine.BOMLine = VolgNummer
-	Set BomLine.ParentBOMLine = ParentBomLine
-	Set BomLine.ConfigVariantId = ConfigVariantId
-	
-	Quit BomLine
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: vhTest/Fake/WSimpl/AX/CalculatedProduct/BouwsteenConverter.cls.xml
===================================================================
diff -u -r43361 -r45156
--- vhTest/Fake/WSimpl/AX/CalculatedProduct/BouwsteenConverter.cls.xml	(.../BouwsteenConverter.cls.xml)	(revision 43361)
+++ vhTest/Fake/WSimpl/AX/CalculatedProduct/BouwsteenConverter.cls.xml	(.../BouwsteenConverter.cls.xml)	(revision 45156)
@@ -8,7 +8,7 @@
 <Super>WSimpl.AX.CalculatedProduct.BouwsteenConverter</Super>
 
 <Method name="Convert">
-<FormalSpec>HalffabricaatBouwsteen:DOM.PM.Bouwstenen.BouwsteenHalfFabr</FormalSpec>
+<FormalSpec>Bouwsteen:AXimpl.Admin.DOM.PM.Bouwsteen</FormalSpec>
 <ReturnType>AXif.Dynamics.CalculatedProductOut.MessageParts.AxdEntityBOMLine</ReturnType>
 <Implementation><![CDATA[	Quit ""
 ]]></Implementation>
Index: AXimpl/Admin/DOM/PM/BouwsteenIterator.cls.xml
===================================================================
diff -u -r45102 -r45156
--- AXimpl/Admin/DOM/PM/BouwsteenIterator.cls.xml	(.../BouwsteenIterator.cls.xml)	(revision 45102)
+++ AXimpl/Admin/DOM/PM/BouwsteenIterator.cls.xml	(.../BouwsteenIterator.cls.xml)	(revision 45156)
@@ -58,30 +58,40 @@
 </Method>
 
 <Method name="GeefBouwstenen">
-<FormalSpec>Product:DOM.PM.Product,ParentProductId:%String=""</FormalSpec>
+<FormalSpec>Product:DOM.PM.Product,Id:%Integer=1,ParentId:%Integer=""</FormalSpec>
 <Private>1</Private>
 <ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[
 	#dim Bouwstenen As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
 	#dim HalffabricaatBouwstenenIterator As TECH.ListIterator = Product.GeefHFBouwstenenIterator()
 	#dim KindBouwstenenIterator As TECH.ListIterator = Product.GeefKindBouwstenenIterator()
+	#dim Bouwsteen As AXimpl.Admin.DOM.PM.Bouwsteen = ""
 	
 	While (HalffabricaatBouwstenenIterator.HasNext()) {
 		#dim HalffabricaatBouwsteen As DOM.PM.Bouwstenen.BouwsteenHalfFabr = HalffabricaatBouwstenenIterator.Next()
 		
-		Do Bouwstenen.Insert(..BouwsteenConverter.Convert(HalffabricaatBouwsteen, ParentProductId))
+		Set Bouwsteen = ..BouwsteenConverter.Convert(HalffabricaatBouwsteen, Id, ParentId)
+		
+		Do Bouwstenen.Insert(Bouwsteen)
+		
+		Set Id = Id + 1
 	}
 	
 	While (KindBouwstenenIterator.HasNext()) {
 		#dim KindBouwsteen As DOM.PM.Bouwstenen.BouwsteenKind = KindBouwstenenIterator.Next()
-		#dim Bouwsteen As AXimpl.Admin.DOM.PM.Bouwsteen = ..BouwsteenConverter.Convert(KindBouwsteen, ParentProductId)
 		
+		Set Bouwsteen = ..BouwsteenConverter.Convert(KindBouwsteen, Id, ParentId)
+		
 		Do Bouwstenen.Insert(Bouwsteen)
 		
+		Set Id = Id + 1
+		
 		#dim KindProduct As DOM.PM.Product = ..ProductApi.GeefProduct(Bouwsteen.ProductId)
-		#dim KindBouwstenen AS %ListOfDataTypes = ..GeefBouwstenen(KindProduct, Bouwsteen.ProductId)
+		#dim KindBouwstenen AS %ListOfDataTypes = ..GeefBouwstenen(KindProduct, Id, Bouwsteen.Id)
 		
 		Do ##class(TECH.ListUtils).AppendList(Bouwstenen, KindBouwstenen)
+		
+		Set Id = Id + KindBouwstenen.Count()
 	}
 	
 	Quit Bouwstenen
Index: vhUnitTest/WSimpl/AX/CalculatedProduct/BouwstenenConverter/Test.cls.xml
===================================================================
diff -u -r45040 -r45156
--- vhUnitTest/WSimpl/AX/CalculatedProduct/BouwstenenConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 45040)
+++ vhUnitTest/WSimpl/AX/CalculatedProduct/BouwstenenConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 45156)
@@ -18,76 +18,37 @@
 <Private>1</Private>
 </Property>
 
-<Method name="OnBeforeOneTest">
-<FormalSpec>aTestName:%String</FormalSpec>
+<Method name="Test: BomLines krijgen een volgnummer">
 <Implementation><![CDATA[
-	Do ##super(aTestName)
-	
-	Set ..HalffabricaatBouwstenen = ##class(%ListOfObjects).%New()
-	
-	Do ..HalffabricaatBouwstenen.Insert(##class(DOM.PM.Bouwstenen.BouwsteenHalfFabr).%New())
-	Do ..HalffabricaatBouwstenen.Insert(##class(DOM.PM.Bouwstenen.BouwsteenHalfFabr).%New())
-	Do ..HalffabricaatBouwstenen.Insert(##class(DOM.PM.Bouwstenen.BouwsteenHalfFabr).%New())
-	
-	Set ..KindBouwstenen = ##class(%ListOfObjects).%New()
-	
-	Do ..KindBouwstenen.Insert(##class(DOM.PM.Bouwstenen.BouwsteenKind).%New())
-	Do ..KindBouwstenen.Insert(##class(DOM.PM.Bouwstenen.BouwsteenKind).%New())
-	Do ..KindBouwstenen.Insert(##class(DOM.PM.Bouwstenen.BouwsteenKind).%New())
-
-	Set ..ProductStub = ##class(vhTest.Mock.DOM.PM.Product).%New()
-	
-	Do ..ProductStub.IndienMethodCall("GeefHFBouwstenenIterator").DanReturn(##class(TECH.ListIterator).%New(..HalffabricaatBouwstenen))
-	Do ..ProductStub.IndienMethodCall("GeefKindBouwstenenIterator").DanReturn(##class(TECH.ListIterator).%New(..KindBouwstenen))
-]]></Implementation>
-</Method>
-
-<Method name="Test: BouwsteenConverter wordt voor elke Halffabricaat- en KindBouwsteen opgeroepen">
-<Implementation><![CDATA[
 	#dim RandomConfigVariantId As %String = "RandomConfigVariantId"
-	#dim BouwsteenConverterMock As vhTest.Mock.WSimpl.AX.CalculatedProduct.BouwsteenConverter = ##class(vhTest.Mock.WSimpl.AX.CalculatedProduct.BouwsteenConverter).%New()
 	
-	Do BouwsteenConverterMock.VerwachtMethodCall("Convert", ..HalffabricaatBouwstenen.GetAt(1)).DanReturn(##class(AXif.Dynamics.CalculatedProductOut.MessageParts.AxdEntityBOMLine).%New())
-	Do BouwsteenConverterMock.VerwachtMethodCall("Convert", ..HalffabricaatBouwstenen.GetAt(2)).DanReturn(##class(AXif.Dynamics.CalculatedProductOut.MessageParts.AxdEntityBOMLine).%New())
-	Do BouwsteenConverterMock.VerwachtMethodCall("Convert", ..HalffabricaatBouwstenen.GetAt(3)).DanReturn(##class(AXif.Dynamics.CalculatedProductOut.MessageParts.AxdEntityBOMLine).%New())
+	#dim HalffabricaatBouwstenen As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	Do HalffabricaatBouwstenen.Insert(##class(DOM.PM.Bouwstenen.BouwsteenHalfFabr).%New())
+	Do HalffabricaatBouwstenen.Insert(##class(DOM.PM.Bouwstenen.BouwsteenHalfFabr).%New())
+	Do HalffabricaatBouwstenen.Insert(##class(DOM.PM.Bouwstenen.BouwsteenHalfFabr).%New())
 	
-	Do BouwsteenConverterMock.VerwachtMethodCall("Convert", ..KindBouwstenen.GetAt(1)).DanReturn(##class(AXif.Dynamics.CalculatedProductOut.MessageParts.AxdEntityBOMLine).%New())
-	Do BouwsteenConverterMock.VerwachtMethodCall("Convert", ..KindBouwstenen.GetAt(2)).DanReturn(##class(AXif.Dynamics.CalculatedProductOut.MessageParts.AxdEntityBOMLine).%New())
-	Do BouwsteenConverterMock.VerwachtMethodCall("Convert", ..KindBouwstenen.GetAt(3)).DanReturn(##class(AXif.Dynamics.CalculatedProductOut.MessageParts.AxdEntityBOMLine).%New())
+	#dim KindBouwstenen As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	Do KindBouwstenen.Insert(##class(DOM.PM.Bouwstenen.BouwsteenKind).%New())
+	Do KindBouwstenen.Insert(##class(DOM.PM.Bouwstenen.BouwsteenKind).%New())
+	Do KindBouwstenen.Insert(##class(DOM.PM.Bouwstenen.BouwsteenKind).%New())
 	
-	#dim ProductApiStub As vhTest.Mock.DOM.PM.ProductAPI = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
-	Do ProductApiStub.IndienMethodCall("BestaatProduct", $$$ElkeWaarde).DanReturn($$$False)
+	#dim ProductStub As vhTest.Mock.DOM.PM.Product = ##class(vhTest.Mock.DOM.PM.Product).%New()
+	Do ProductStub.IndienMethodCall("GeefHFBouwstenenIterator").DanReturn(##class(TECH.ListIterator).%New(HalffabricaatBouwstenen))
+	Do ProductStub.IndienMethodCall("GeefKindBouwstenenIterator").DanReturn(##class(TECH.ListIterator).%New(KindBouwstenen))
 	
-	#dim BouwstenenConverter As WSimpl.AX.CalculatedProduct.BouwstenenConverter = ##class(WSimpl.AX.CalculatedProduct.BouwstenenConverter).%New(BouwsteenConverterMock, ProductApiStub)
-	#dim BomLines As %ListOfObjects = BouwstenenConverter.Convert(..ProductStub, RandomConfigVariantId)
-	#dim VerwachtAantalBomLines As %Integer = ..HalffabricaatBouwstenen.Count() + ..KindBouwstenen.Count()
+	#dim KindProductStub As vhTest.Mock.DOM.PM.Product = ##class(vhTest.Mock.DOM.PM.Product).%New()
+	Do KindProductStub.IndienMethodCall("GeefHFBouwstenenIterator").DanReturn(..EmptyIterator())
+	Do KindProductStub.IndienMethodCall("GeefKindBouwstenenIterator").DanReturn(..EmptyIterator())
 	
-	Do $$$AssertEquals(BomLines.Count(), VerwachtAantalBomLines)
-	Do $$$AssertTrue(BomLines.GetAt(1).%IsA("AXif.Dynamics.CalculatedProductOut.MessageParts.AxdEntityBOMLine"))
-	
-	Do BouwsteenConverterMock.Verifieer()
-]]></Implementation>
-</Method>
-
-<Method name="Test: BouwsteenConverter geeft elke BomLine een volgnummer">
-<Implementation><![CDATA[
-	#dim RandomConfigVariantId As %String = "RandomConfigVariantId"
-	#dim BouwsteenConverterStub As vhTest.Mock.WSimpl.AX.CalculatedProduct.BouwsteenConverter = ##class(vhTest.Mock.WSimpl.AX.CalculatedProduct.BouwsteenConverter).%New()
-	
-	Do BouwsteenConverterStub.IndienMethodCall("Convert", ..HalffabricaatBouwstenen.GetAt(1)).DanReturn(##class(AXif.Dynamics.CalculatedProductOut.MessageParts.AxdEntityBOMLine).%New())
-	Do BouwsteenConverterStub.IndienMethodCall("Convert", ..HalffabricaatBouwstenen.GetAt(2)).DanReturn(##class(AXif.Dynamics.CalculatedProductOut.MessageParts.AxdEntityBOMLine).%New())
-	Do BouwsteenConverterStub.IndienMethodCall("Convert", ..HalffabricaatBouwstenen.GetAt(3)).DanReturn(##class(AXif.Dynamics.CalculatedProductOut.MessageParts.AxdEntityBOMLine).%New())
-	
-	Do BouwsteenConverterStub.IndienMethodCall("Convert", ..KindBouwstenen.GetAt(1)).DanReturn(##class(AXif.Dynamics.CalculatedProductOut.MessageParts.AxdEntityBOMLine).%New())
-	Do BouwsteenConverterStub.IndienMethodCall("Convert", ..KindBouwstenen.GetAt(2)).DanReturn(##class(AXif.Dynamics.CalculatedProductOut.MessageParts.AxdEntityBOMLine).%New())
-	Do BouwsteenConverterStub.IndienMethodCall("Convert", ..KindBouwstenen.GetAt(3)).DanReturn(##class(AXif.Dynamics.CalculatedProductOut.MessageParts.AxdEntityBOMLine).%New())
-	
 	#dim ProductApiStub As vhTest.Mock.DOM.PM.ProductAPI = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
-	Do ProductApiStub.IndienMethodCall("BestaatProduct", $$$ElkeWaarde).DanReturn($$$False)
+	Do ProductApiStub.IndienMethodCall("GeefProduct", $$$ElkeWaarde).DanReturn(KindProductStub)
 	
-	#dim BouwstenenConverter As WSimpl.AX.CalculatedProduct.BouwstenenConverter = ##class(WSimpl.AX.CalculatedProduct.BouwstenenConverter).%New(BouwsteenConverterStub, ProductApiStub)
-	#dim BomLines As %ListOfObjects = BouwstenenConverter.Convert(..ProductStub, RandomConfigVariantId)
+	#dim BouwsteenConverter As WSimpl.AX.CalculatedProduct.BouwsteenConverter = ##class(WSimpl.AX.CalculatedProduct.BouwsteenConverter).%New()
+	#dim BouwsteenIterator As AXimpl.Admin.DOM.PM.BouwsteenIterator = ##class(AXimpl.Admin.DOM.PM.BouwsteenIterator).%New(ProductStub, "", ProductApiStub)
+	#dim BouwstenenConverter As WSimpl.AX.CalculatedProduct.BouwstenenConverter = ##class(WSimpl.AX.CalculatedProduct.BouwstenenConverter).%New(BouwsteenIterator, BouwsteenConverter)
 	
+	#dim BomLines As %ListOfDataTypes = BouwstenenConverter.Convert(ProductStub, RandomConfigVariantId)
+	
 	Do $$$AssertEquals(BomLines.GetAt(1).BOMLine, 1)
 	Do $$$AssertEquals(BomLines.GetAt(2).BOMLine, 2)
 	Do $$$AssertEquals(BomLines.GetAt(3).BOMLine, 3)
@@ -96,78 +57,6 @@
 	Do $$$AssertEquals(BomLines.GetAt(6).BOMLine, 6)
 ]]></Implementation>
 </Method>
-
-<Method name="Test: BouwsteenConverter maakt BomLine voor elk KindProduct met Halffabricaat- en KindBouwstenen">
-<Implementation><![CDATA[
-	#dim RandomConfigVariantId As %String = "RandomConfigVariantId"
-	
-	#dim KindBouwsteenProductId1 As %String = "KindBouwsteenProductId1"
-	#dim KindBouwsteenProductId2 As %String = "KindBouwsteenProductId2"
-	
-	#dim KindBouwstenen As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
-	Do KindBouwstenen.Insert(..GeefKindBouwsteen(KindBouwsteenProductId1))
-	Do KindBouwstenen.Insert(..GeefKindBouwsteen(KindBouwsteenProductId2))
-		
-	#dim KindProductKindBouwsteenProductId As %String = "KindProductKindBouwsteenProductId"
-	
-	#dim KindProductKindBouwstenen As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
-	Do KindProductKindBouwstenen.Insert(..GeefKindBouwsteen(KindProductKindBouwsteenProductId))
-	
-	#dim BouwsteenConverterStub As vhTest.Mock.WSimpl.AX.CalculatedProduct.BouwsteenConverter = ##class(vhTest.Mock.WSimpl.AX.CalculatedProduct.BouwsteenConverter).%New()
-	Do BouwsteenConverterStub.IndienMethodCall("Convert", KindBouwstenen.GetAt(1)).DanReturn(##class(AXif.Dynamics.CalculatedProductOut.MessageParts.AxdEntityBOMLine).%New())
-	Do BouwsteenConverterStub.IndienMethodCall("Convert", KindBouwstenen.GetAt(2)).DanReturn(##class(AXif.Dynamics.CalculatedProductOut.MessageParts.AxdEntityBOMLine).%New())
-	Do BouwsteenConverterStub.IndienMethodCall("Convert", KindProductKindBouwstenen.GetAt(1)).DanReturn(##class(AXif.Dynamics.CalculatedProductOut.MessageParts.AxdEntityBOMLine).%New())
-	
-	#dim ProductStub As vhTest.Mock.DOM.PM.Product = ##class(vhTest.Mock.DOM.PM.Product).%New()
-	Do ProductStub.IndienMethodCall("GeefHFBouwstenenIterator").DanReturn(##class(TECH.ListIterator).%New(##class(%ListOfDataTypes).%New()))
-	Do ProductStub.IndienMethodCall("GeefKindBouwstenenIterator").DanReturn(##class(TECH.ListIterator).%New(KindBouwstenen))
-
-	#dim KindProductStub As vhTest.Mock.DOM.PM.Product = ##class(vhTest.Mock.DOM.PM.Product).%New()
-	Do KindProductStub.IndienMethodCall("GeefHFBouwstenenIterator").DanReturn(##class(TECH.ListIterator).%New(##class(%ListOfDataTypes).%New()))
-	Do KindProductStub.IndienMethodCall("GeefKindBouwstenenIterator").DanReturn(##class(TECH.ListIterator).%New(KindProductKindBouwstenen))
-	
-	#dim ProductApiMock As vhTest.Mock.DOM.PM.ProductAPI = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
-	Do ProductApiMock.VerwachtMethodCall("BestaatProduct", KindBouwsteenProductId1).DanReturn($$$True).ExactAantalKeer(1)
-	Do ProductApiMock.VerwachtMethodCall("GeefProduct", KindBouwsteenProductId1).DanReturn(KindProductStub).ExactAantalKeer(1)
-	Do ProductApiMock.VerwachtMethodCall("BestaatProduct", KindProductKindBouwsteenProductId).DanReturn($$$False).ExactAantalKeer(1)
-	Do ProductApiMock.VerwachtMethodCall("BestaatProduct", KindBouwsteenProductId2).DanReturn($$$False).ExactAantalKeer(1)
-	
-	#dim BouwstenenConverter As WSimpl.AX.CalculatedProduct.BouwstenenConverter = ##class(WSimpl.AX.CalculatedProduct.BouwstenenConverter).%New(BouwsteenConverterStub, ProductApiMock)
-	#dim BomLines As %ListOfObjects = BouwstenenConverter.Convert(ProductStub, RandomConfigVariantId)
-	
-	#dim VerwachtAantalBomLines As %Integer = KindBouwstenen.Count() + KindProductKindBouwstenen.Count()
-	
-	Do $$$AssertEquals(BomLines.Count(), VerwachtAantalBomLines)
-	
-	Do $$$AssertEquals(BomLines.GetAt(1).BOMLine, 1)
-	Do $$$AssertEquals(BomLines.GetAt(2).BOMLine, 2)
-	Do $$$AssertEquals(BomLines.GetAt(3).BOMLine, 3)
-	
-	Do $$$AssertEquals(BomLines.GetAt(1).ParentBOMLine, "")
-	Do $$$AssertEquals(BomLines.GetAt(2).ParentBOMLine, 1)
-	Do $$$AssertEquals(BomLines.GetAt(3).ParentBOMLine, "")
-	
-	Do $$$AssertEquals(BomLines.GetAt(1).ConfigVariantId, RandomConfigVariantId)
-	Do $$$AssertEquals(BomLines.GetAt(2).ConfigVariantId, RandomConfigVariantId)
-	Do $$$AssertEquals(BomLines.GetAt(3).ConfigVariantId, RandomConfigVariantId)
-	
-	Do ProductApiMock.Verifieer()
-]]></Implementation>
-</Method>
-
-<Method name="GeefKindBouwsteen">
-<FormalSpec>ProductId:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>DOM.PM.Bouwstenen.BouwsteenKind</ReturnType>
-<Implementation><![CDATA[
-	#dim KindBouwsteen As DOM.PM.Bouwstenen.BouwsteenKind = ##class(DOM.PM.Bouwstenen.BouwsteenKind).%New()
-	
-	Set KindBouwsteen.KindProduct = ##class(Prod.Product).%New()
-	Set KindBouwsteen.KindProduct.ProductNr = ProductId
-	
-	Quit KindBouwsteen
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: vhUnitTest/AXimpl/Admin/DOM/PM/BouwsteenIterator/Test.cls.xml
===================================================================
diff -u -r45102 -r45156
--- vhUnitTest/AXimpl/Admin/DOM/PM/BouwsteenIterator/Test.cls.xml	(.../Test.cls.xml)	(revision 45102)
+++ vhUnitTest/AXimpl/Admin/DOM/PM/BouwsteenIterator/Test.cls.xml	(.../Test.cls.xml)	(revision 45156)
@@ -40,12 +40,12 @@
 	Do KindProductStub.IndienMethodCall("GeefKindBouwstenenIterator").DanReturn(..EmptyIterator())
 	
 	#dim BouwsteenConverterMock As vhTest.Mock.AXimpl.Admin.DOM.PM.BouwsteenConverter = ##class(vhTest.Mock.AXimpl.Admin.DOM.PM.BouwsteenConverter).%New()
-	Do BouwsteenConverterMock.VerwachtMethodCall("Convert", HalffabricaatBouwstenen.GetAt(1), "").DanReturn(..GeefBouwsteenDummy())
-	Do BouwsteenConverterMock.VerwachtMethodCall("Convert", HalffabricaatBouwstenen.GetAt(2), "").DanReturn(..GeefBouwsteenDummy())
-	Do BouwsteenConverterMock.VerwachtMethodCall("Convert", HalffabricaatBouwstenen.GetAt(3), "").DanReturn(..GeefBouwsteenDummy())
-	Do BouwsteenConverterMock.VerwachtMethodCall("Convert", KindBouwstenen.GetAt(1), "").DanReturn(..GeefBouwsteenDummy(RandomProductId1))
-	Do BouwsteenConverterMock.VerwachtMethodCall("Convert", KindBouwstenen.GetAt(2), "").DanReturn(..GeefBouwsteenDummy(RandomProductId2))
-	Do BouwsteenConverterMock.VerwachtMethodCall("Convert", KindBouwstenen.GetAt(3), "").DanReturn(..GeefBouwsteenDummy(RandomProductId3))
+	Do BouwsteenConverterMock.VerwachtMethodCall("Convert", HalffabricaatBouwstenen.GetAt(1), 1, "").DanReturn(..GeefBouwsteenDummy())
+	Do BouwsteenConverterMock.VerwachtMethodCall("Convert", HalffabricaatBouwstenen.GetAt(2), 2, "").DanReturn(..GeefBouwsteenDummy())
+	Do BouwsteenConverterMock.VerwachtMethodCall("Convert", HalffabricaatBouwstenen.GetAt(3), 3, "").DanReturn(..GeefBouwsteenDummy())
+	Do BouwsteenConverterMock.VerwachtMethodCall("Convert", KindBouwstenen.GetAt(1), 4, "").DanReturn(..GeefBouwsteenDummy("", RandomProductId1))
+	Do BouwsteenConverterMock.VerwachtMethodCall("Convert", KindBouwstenen.GetAt(2), 5, "").DanReturn(..GeefBouwsteenDummy("", RandomProductId2))
+	Do BouwsteenConverterMock.VerwachtMethodCall("Convert", KindBouwstenen.GetAt(3), 6, "").DanReturn(..GeefBouwsteenDummy("", RandomProductId3))
 	
 	#dim ProductApiStub As vhTest.Mock.DOM.PM.ProductAPI = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
 	Do ProductApiStub.IndienMethodCall("GeefProduct", RandomProductId1).DanReturn(KindProductStub)
@@ -60,7 +60,8 @@
 
 <Method name="Test: BouwsteenConverter maakt Bouwsteen voor elk KindProduct met Halffabricaat- en KindBouwstenen">
 <Implementation><![CDATA[
-	#dim RandomParentProductId As %String = "RandomParentProductId"
+	#dim RandomBouwsteenId As %String = "RandomBouwsteenId"
+	#dim RandomProductId As %String = "RandomParentProductId"
 	
 	#dim KindBouwstenen As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
 	Do KindBouwstenen.Insert(##class(DOM.PM.Bouwstenen.BouwsteenKind).%New())
@@ -79,13 +80,13 @@
 	Do KindProductStub.IndienMethodCall("GeefKindBouwstenenIterator").DanReturn(..EmptyIterator())
 	
 	#dim BouwsteenConverterMock As vhTest.Mock.AXimpl.Admin.DOM.PM.BouwsteenConverter = ##class(vhTest.Mock.AXimpl.Admin.DOM.PM.BouwsteenConverter).%New()
-	Do BouwsteenConverterMock.VerwachtMethodCall("Convert", KindBouwstenen.GetAt(1), "").DanReturn(..GeefBouwsteenDummy(RandomParentProductId))
-	Do BouwsteenConverterMock.VerwachtMethodCall("Convert", KindHalffabricaatBouwstenen.GetAt(1), RandomParentProductId).DanReturn(..GeefBouwsteenDummy())
-	Do BouwsteenConverterMock.VerwachtMethodCall("Convert", KindHalffabricaatBouwstenen.GetAt(2), RandomParentProductId).DanReturn(..GeefBouwsteenDummy())
-	Do BouwsteenConverterMock.VerwachtMethodCall("Convert", KindHalffabricaatBouwstenen.GetAt(3), RandomParentProductId).DanReturn(..GeefBouwsteenDummy())
+	Do BouwsteenConverterMock.VerwachtMethodCall("Convert", KindBouwstenen.GetAt(1), 1, "").DanReturn(..GeefBouwsteenDummy(RandomBouwsteenId, RandomProductId))
+	Do BouwsteenConverterMock.VerwachtMethodCall("Convert", KindHalffabricaatBouwstenen.GetAt(1), 2, RandomBouwsteenId).DanReturn(..GeefBouwsteenDummy())
+	Do BouwsteenConverterMock.VerwachtMethodCall("Convert", KindHalffabricaatBouwstenen.GetAt(2), 3, RandomBouwsteenId).DanReturn(..GeefBouwsteenDummy())
+	Do BouwsteenConverterMock.VerwachtMethodCall("Convert", KindHalffabricaatBouwstenen.GetAt(3), 4, RandomBouwsteenId).DanReturn(..GeefBouwsteenDummy())
 	
 	#dim ProductApiStub As vhTest.Mock.DOM.PM.ProductAPI = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
-	Do ProductApiStub.IndienMethodCall("GeefProduct", RandomParentProductId).DanReturn(KindProductStub)
+	Do ProductApiStub.IndienMethodCall("GeefProduct", RandomProductId).DanReturn(KindProductStub)
 	
 	#dim BouwsteenIterator As AXimpl.Admin.DOM.PM.BouwsteenIterator = ##class(AXimpl.Admin.DOM.PM.BouwsteenIterator).%New(ProductStub, BouwsteenConverterMock, ProductApiStub)
 	
@@ -105,9 +106,9 @@
 	Do ProductStub.IndienMethodCall("GeefKindBouwstenenIterator").DanReturn(..EmptyIterator())
 	
 	#dim BouwsteenConverterMock As vhTest.Mock.AXimpl.Admin.DOM.PM.BouwsteenConverter = ##class(vhTest.Mock.AXimpl.Admin.DOM.PM.BouwsteenConverter).%New()
-	Do BouwsteenConverterMock.VerwachtMethodCall("Convert", HalffabricaatBouwstenen.GetAt(1), "").DanReturn(..GeefBouwsteenDummy()).ExactAantalKeer(2)
-	Do BouwsteenConverterMock.VerwachtMethodCall("Convert", HalffabricaatBouwstenen.GetAt(2), "").DanReturn(..GeefBouwsteenDummy()).ExactAantalKeer(2)
-	Do BouwsteenConverterMock.VerwachtMethodCall("Convert", HalffabricaatBouwstenen.GetAt(3), "").DanReturn(..GeefBouwsteenDummy()).ExactAantalKeer(2)
+	Do BouwsteenConverterMock.VerwachtMethodCall("Convert", HalffabricaatBouwstenen.GetAt(1), 1, "").DanReturn(..GeefBouwsteenDummy()).ExactAantalKeer(2)
+	Do BouwsteenConverterMock.VerwachtMethodCall("Convert", HalffabricaatBouwstenen.GetAt(2), 2, "").DanReturn(..GeefBouwsteenDummy()).ExactAantalKeer(2)
+	Do BouwsteenConverterMock.VerwachtMethodCall("Convert", HalffabricaatBouwstenen.GetAt(3), 3, "").DanReturn(..GeefBouwsteenDummy()).ExactAantalKeer(2)
 	
 	#dim BouwsteenIterator As AXimpl.Admin.DOM.PM.BouwsteenIterator = ##class(AXimpl.Admin.DOM.PM.BouwsteenIterator).%New(ProductStub, BouwsteenConverterMock)
 	Do BouwsteenIterator.Reset()
@@ -117,12 +118,13 @@
 </Method>
 
 <Method name="GeefBouwsteenDummy">
-<FormalSpec>ProductId:%String=""</FormalSpec>
+<FormalSpec>Id:%String="",ProductId:%String=""</FormalSpec>
 <Private>1</Private>
 <ReturnType>AXimpl.Admin.DOM.PM.Bouwsteen</ReturnType>
 <Implementation><![CDATA[
 	#dim BouwsteenDummy As AXimpl.Admin.DOM.PM.Bouwsteen = ##class(AXimpl.Admin.DOM.PM.Bouwsteen).%New()
 	
+	Set BouwsteenDummy.Id = Id
 	Set BouwsteenDummy.ProductId = ProductId
 	
 	Quit BouwsteenDummy
Index: vhTest/Mock/AXimpl/Admin/DOM/PM/BouwsteenConverter.cls.xml
===================================================================
diff -u -r45102 -r45156
--- vhTest/Mock/AXimpl/Admin/DOM/PM/BouwsteenConverter.cls.xml	(.../BouwsteenConverter.cls.xml)	(revision 45102)
+++ vhTest/Mock/AXimpl/Admin/DOM/PM/BouwsteenConverter.cls.xml	(.../BouwsteenConverter.cls.xml)	(revision 45156)
@@ -9,9 +9,9 @@
 <Inheritance>right</Inheritance>
 
 <Method name="Convert">
-<FormalSpec>ProductBouwsteen:DOM.PM.Bouwstenen.Bouwsteen,ParentProductId:%String=""</FormalSpec>
+<FormalSpec>ProductBouwsteen:DOM.PM.Bouwstenen.Bouwsteen,Id:%Integer,ParentId:%Integer=""</FormalSpec>
 <ReturnType>AXimpl.Admin.DOM.PM.Bouwsteen</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("Convert",ProductBouwsteen,ParentProductId)
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("Convert",ProductBouwsteen,Id,ParentId)
 ]]></Implementation>
 </Method>
 </Class>
Index: vhTest/Mock/WSimpl/AX/CalculatedProduct/BouwstenenConverter.cls.xml
===================================================================
diff -u -r45040 -r45156
--- vhTest/Mock/WSimpl/AX/CalculatedProduct/BouwstenenConverter.cls.xml	(.../BouwstenenConverter.cls.xml)	(revision 45040)
+++ vhTest/Mock/WSimpl/AX/CalculatedProduct/BouwstenenConverter.cls.xml	(.../BouwstenenConverter.cls.xml)	(revision 45156)
@@ -10,7 +10,7 @@
 
 <Method name="Convert">
 <FormalSpec>Product:DOM.PM.Product,ConfigVariantId:%String</FormalSpec>
-<ReturnType>%ListOfObjects</ReturnType>
+<ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("Convert",Product,ConfigVariantId)
 ]]></Implementation>
 </Method>
Index: vhTest/Fake/WSimpl/AX/CalculatedProduct/BouwstenenConverter.cls.xml
===================================================================
diff -u -r44037 -r45156
--- vhTest/Fake/WSimpl/AX/CalculatedProduct/BouwstenenConverter.cls.xml	(.../BouwstenenConverter.cls.xml)	(revision 44037)
+++ vhTest/Fake/WSimpl/AX/CalculatedProduct/BouwstenenConverter.cls.xml	(.../BouwstenenConverter.cls.xml)	(revision 45156)
@@ -8,8 +8,8 @@
 <Super>WSimpl.AX.CalculatedProduct.BouwstenenConverter</Super>
 
 <Method name="Convert">
-<FormalSpec>Product:DOM.PM.Product</FormalSpec>
-<ReturnType>%ListOfObjects</ReturnType>
+<FormalSpec>Product:DOM.PM.Product,ConfigVariantId:%String</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[	Quit ""
 ]]></Implementation>
 </Method>
Index: vhUnitTest/WSimpl/AX/CalculatedProduct/BouwsteenConverter/Test.cls.xml
===================================================================
diff -u -r44839 -r45156
--- vhUnitTest/WSimpl/AX/CalculatedProduct/BouwsteenConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 44839)
+++ vhUnitTest/WSimpl/AX/CalculatedProduct/BouwsteenConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 45156)
@@ -3,101 +3,80 @@
 <Class name="vhUnitTest.WSimpl.AX.CalculatedProduct.BouwsteenConverter.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Property name="RandomIdentNummer">
-<Type>%Integer</Type>
+<Property name="Converter">
+<Type>WSimpl.AX.CalculatedProduct.BouwsteenConverter</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="RandomAantal">
-<Type>%Integer</Type>
+<Property name="BouwsteenDummy">
+<Type>AXimpl.Admin.DOM.PM.Bouwsteen</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="HalffabricaatBouwsteenDummy">
-<Type>DOM.PM.Bouwstenen.BouwsteenHalfFabr</Type>
+<Property name="RandomConfigVariantId">
+<Type>%String</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="OnBeforeAllTests">
 <Implementation><![CDATA[
 	Do ##super()
 	
-	Set ..RandomIdentNummer = "RandomIdentNummer"
-	Set ..RandomAantal = 5
-	Set ..HalffabricaatBouwsteenDummy = ..MaakHalffabricaatBouwsteenDummy()
+	Set ..RandomConfigVariantId = "RandomConfigVariantId"
+	Set ..BouwsteenDummy = ..GeefBouwsteenDummy()
+	Set ..Converter = ##class(WSimpl.AX.CalculatedProduct.BouwsteenConverter).%New()
 ]]></Implementation>
 </Method>
 
-<Method name="Test: BouwsteenConverter vult ItemId van de BomLine in met het ProductNummer van het Halffabricaat">
+<Method name="Test: BouwsteenConverter vult velden in">
 <Implementation><![CDATA[
-	#dim Converter As WSimpl.AX.CalculatedProduct.BouwsteenConverter = ##class(WSimpl.AX.CalculatedProduct.BouwsteenConverter).%New()
-	#dim BomLine As AXif.Dynamics.CalculatedProductOut.MessageParts.AxdEntityBOMLine = Converter.Convert(..HalffabricaatBouwsteenDummy)
+	#dim BomLine As AXif.Dynamics.CalculatedProductOut.MessageParts.AxdEntityBOMLine = ..Converter.Convert(..BouwsteenDummy, ..RandomConfigVariantId)
 	
-	Do $$$AssertEquals(BomLine.ItemId, ..RandomIdentNummer)
-]]></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()
-	#dim BomLine As AXif.Dynamics.CalculatedProductOut.MessageParts.AxdEntityBOMLine = Converter.Convert(..HalffabricaatBouwsteenDummy)
-	
-	Do $$$AssertEquals(BomLine.BOMQty, ..RandomAantal)
-]]></Implementation>
-</Method>
-
-<Method name="Test: BouwsteenConverter vult BOMQtySerie van de BomLine in met 1">
-<Implementation><![CDATA[
-	#dim Converter As WSimpl.AX.CalculatedProduct.BouwsteenConverter = ##class(WSimpl.AX.CalculatedProduct.BouwsteenConverter).%New()
-	#dim BomLine As AXif.Dynamics.CalculatedProductOut.MessageParts.AxdEntityBOMLine = Converter.Convert(..HalffabricaatBouwsteenDummy)
-	
+	Do $$$AssertEquals(BomLine.BOMLine, ..BouwsteenDummy.Id)
+	Do $$$AssertEquals(BomLine.BOMQty, ..BouwsteenDummy.Aantal)
 	Do $$$AssertEquals(BomLine.BOMQtySerie, 1)
+	Do $$$AssertEquals(BomLine.ConfigVariantId, ..RandomConfigVariantId)
+	Do $$$AssertEquals(BomLine.ItemId, ..BouwsteenDummy.IdentNummer)
+	Do $$$AssertEquals(BomLine.ParentBOMLine, ..BouwsteenDummy.ParentId)
+	Do $$$AssertEquals(BomLine.class, "entity")
 ]]></Implementation>
 </Method>
 
 <Method name="Test: BouwsteenConverter laat velden leeg">
 <Implementation><![CDATA[
-	#dim Converter As WSimpl.AX.CalculatedProduct.BouwsteenConverter = ##class(WSimpl.AX.CalculatedProduct.BouwsteenConverter).%New()
-	#dim BomLine As AXif.Dynamics.CalculatedProductOut.MessageParts.AxdEntityBOMLine = Converter.Convert(..HalffabricaatBouwsteenDummy)
+	#dim BomLine As AXif.Dynamics.CalculatedProductOut.MessageParts.AxdEntityBOMLine = ..Converter.Convert(..BouwsteenDummy, ..RandomConfigVariantId)
 	
 	Do $$$AssertEquals(BomLine.BOMDataAreaId, "")
 	Do $$$AssertEquals(BomLine.ConfigId, "")
-	Do $$$AssertEquals(BomLine.ConfigVariantId, "")
-	Do $$$AssertEquals(BomLine.InventSizeId, "")
 	Do $$$AssertEquals(BomLine.InventColorId, "")
+	Do $$$AssertEquals(BomLine.InventSizeId, "")
 	Do $$$AssertEquals(BomLine.InventStyleId, "")
 	Do $$$AssertEquals(BomLine.RoundUp, "")
 	Do $$$AssertEquals(BomLine.RoundUpQty, "")
-	Do $$$AssertEquals(BomLine.SourcingDataAreaId, "")
-	Do $$$AssertEquals(BomLine.SourcingRouteId, "")
 	Do $$$AssertEquals(BomLine.ScrapConst, "")
 	Do $$$AssertEquals(BomLine.ScrapVar, "")
+	Do $$$AssertEquals(BomLine.SourcingDataAreaId, "")
+	Do $$$AssertEquals(BomLine.SourcingRouteId, "")
 	Do $$$AssertEquals(BomLine.UnitID, "")
+	Do $$$AssertEquals(BomLine.action, "")
 ]]></Implementation>
 </Method>
 
-<Method name="Test: BouwsteenConverter vult class in voor elke BomLine">
+<Method name="GeefBouwsteenDummy">
+<Private>1</Private>
+<ReturnType>AXimpl.Admin.DOM.PM.Bouwsteen</ReturnType>
 <Implementation><![CDATA[
-	#dim Converter As WSimpl.AX.CalculatedProduct.BouwsteenConverter = ##class(WSimpl.AX.CalculatedProduct.BouwsteenConverter).%New()
-	#dim BomLine As AXif.Dynamics.CalculatedProductOut.MessageParts.AxdEntityBOMLine = Converter.Convert(..HalffabricaatBouwsteenDummy)
+	#dim BouwsteenDummy As AXimpl.Admin.DOM.PM.Bouwsteen = ##class(AXimpl.Admin.DOM.PM.Bouwsteen).%New()
 	
-	Do $$$AssertEquals(BomLine.class, "entity")
+	Set BouwsteenDummy.Id = $$$DummyInteger
+	Set BouwsteenDummy.ParentId = $$$DummyInteger
+	Set BouwsteenDummy.IdentNummer = $$$DummyString
+	Set BouwsteenDummy.ProductId = $$$DummyString
+	Set BouwsteenDummy.Aantal = $$$DummyInteger
+	
+	Quit BouwsteenDummy
 ]]></Implementation>
 </Method>
-
-<Method name="MaakHalffabricaatBouwsteenDummy">
-<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.IdentNummer = ..RandomIdentNummer
- 	Set HalffabricaatBouwsteenDummy.Aantal = ..RandomAantal
- 	
- 	Quit HalffabricaatBouwsteenDummy
-]]></Implementation>
-</Method>
 </Class>