Index: vhUnitTest/WSimpl/AX/CalculatedProduct/BouwstenenConverter/Test.cls.xml
===================================================================
diff -u -r44071 -r44077
--- vhUnitTest/WSimpl/AX/CalculatedProduct/BouwstenenConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 44071)
+++ vhUnitTest/WSimpl/AX/CalculatedProduct/BouwstenenConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 44077)
@@ -135,12 +135,14 @@
 	
 	Do $$$AssertEquals(BomLines.Count(), VerwachtAantalBomLines)
 	
-	Do ##class(Tools.Wlip).%New(42).ListOfObjectsToXML(BomLines)
-	
 	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(3).BOMLine, 3)
 	
+	Do $$$AssertEquals(BomLines.GetAt(1).ParentBOMLine, "")
+	Do $$$AssertEquals(BomLines.GetAt(2).ParentBOMLine, 1)
+	Do $$$AssertEquals(BomLines.GetAt(3).ParentBOMLine, "")
+	
 	Do ProductApiMock.Verifieer()
 ]]></Implementation>
 </Method>
Index: WSimpl/AX/CalculatedProduct/BouwstenenConverter.cls.xml
===================================================================
diff -u -r44071 -r44077
--- WSimpl/AX/CalculatedProduct/BouwstenenConverter.cls.xml	(.../BouwstenenConverter.cls.xml)	(revision 44071)
+++ WSimpl/AX/CalculatedProduct/BouwstenenConverter.cls.xml	(.../BouwstenenConverter.cls.xml)	(revision 44077)
@@ -48,22 +48,22 @@
 	While (HalffabricaatBouwstenenIterator.HasNext()) {
 		#dim HalffabricaatBouwsteen As DOM.PM.Bouwstenen.BouwsteenHalfFabr = HalffabricaatBouwstenenIterator.Next()
 		
-		Do BomLines.Insert(..GeefBomLine(HalffabricaatBouwsteen, Teller))
+		Do BomLines.Insert(..GeefBomLine(HalffabricaatBouwsteen, ParentBomLine, Teller))
 		
 		Set Teller = Teller + 1
 	}
 	
 	While (KindBouwstenenIterator.HasNext()) {
 		#dim KindBouwsteen As DOM.PM.Bouwstenen.BouwsteenKind = KindBouwstenenIterator.Next()
-		#dim KindBouwsteenBomLine As AXif.Dynamics.CalculatedProductOut.MessageParts.AxdEntityBOMLine = ..GeefBomLine(KindBouwsteen, Teller)
+		#dim KindBouwsteenBomLine As AXif.Dynamics.CalculatedProductOut.MessageParts.AxdEntityBOMLine = ..GeefBomLine(KindBouwsteen, ParentBomLine, Teller)
 		
 		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, "", Teller)
+			#dim KindBouwsteenProductBomLines As %ListOfDataTypes = ..GeefBomLines(KindBouwsteenProduct, KindBouwsteenBomLine.BOMLine, Teller)
 		
 			Do ##class(TECH.ListUtils).AppendList(BomLines, KindBouwsteenProductBomLines)
 			
@@ -76,13 +76,14 @@
 </Method>
 
 <Method name="GeefBomLine">
-<FormalSpec>Bouwsteen:DOM.PM.Bouwstenen.Bouwsteen,VolgNummer:%Integer</FormalSpec>
+<FormalSpec>Bouwsteen:DOM.PM.Bouwstenen.Bouwsteen,ParentBomLine:%Decimal="",VolgNummer:%Integer</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
 	
 	Quit BomLine
 ]]></Implementation>