Index: WSimpl/AX/CalculatedProduct/BouwstenenConverter.cls.xml
===================================================================
diff -u -r44037 -r44039
--- WSimpl/AX/CalculatedProduct/BouwstenenConverter.cls.xml	(.../BouwstenenConverter.cls.xml)	(revision 44037)
+++ WSimpl/AX/CalculatedProduct/BouwstenenConverter.cls.xml	(.../BouwstenenConverter.cls.xml)	(revision 44039)
@@ -25,6 +25,15 @@
 <FormalSpec>Product:DOM.PM.Product</FormalSpec>
 <ReturnType>%ListOfObjects</ReturnType>
 <ReturnTypeParams>ELEMENTTYPE="AXif.Dynamics.CalculatedProductOut.MessageParts.AxdEntityBOMLine"</ReturnTypeParams>
+<Implementation><![CDATA[	Quit ..GeefBomLines(Product)
+]]></Implementation>
+</Method>
+
+<Method name="GeefBomLines">
+<FormalSpec>Product:DOM.PM.Product,ParentBomLine:%Decimal=""</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 BouwstenenIterator As TECH.ListIterator = Product.GeefHFBouwstenenIterator()