Index: WSimpl/AX/CalculatedProduct/BouwstenenConverter.cls.xml
===================================================================
diff -u -r44044 -r44049
--- WSimpl/AX/CalculatedProduct/BouwstenenConverter.cls.xml	(.../BouwstenenConverter.cls.xml)	(revision 44044)
+++ WSimpl/AX/CalculatedProduct/BouwstenenConverter.cls.xml	(.../BouwstenenConverter.cls.xml)	(revision 44049)
@@ -8,14 +8,20 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ProductApi">
+<Type>DOM.PM.ProductAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>BouwsteenConverter:WSimpl.AX.CalculatedProduct.BouwsteenConverter=""</FormalSpec>
+<FormalSpec>BouwsteenConverter:WSimpl.AX.CalculatedProduct.BouwsteenConverter="",ProductApi:DOM.PM.ProductAPI=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..BouwsteenConverter = $$$Inject(BouwsteenConverter, ##class(WSimpl.AX.CalculatedProduct.BouwsteenConverter).%New())
+	Set ..ProductApi = $$$Inject(ProductApi, ##class(DOM.DomeinContext).Instance().GeefProductAPI())
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -50,10 +56,18 @@
 	
 	While (KindBouwstenenIterator.HasNext()) {
 		#dim KindBouwsteen As DOM.PM.Bouwstenen.BouwsteenKind = KindBouwstenenIterator.Next()
+		#dim KindBouwsteenBomLine As AXif.Dynamics.CalculatedProductOut.MessageParts.AxdEntityBOMLine = ..GeefBomLine(KindBouwsteen, Teller)
 		
-		Do BomLines.Insert(..GeefBomLine(KindBouwsteen, 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, "")
+		
+			Do ##class(TECH.ListUtils).AppendList(BomLines, KindBouwsteenProductBomLines)
+		}
 	}
 	
 	Quit BomLines
Index: vhUnitTest/WSimpl/AX/CalculatedProduct/BouwstenenConverter/Test.cls.xml
===================================================================
diff -u -r44044 -r44049
--- vhUnitTest/WSimpl/AX/CalculatedProduct/BouwstenenConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 44044)
+++ vhUnitTest/WSimpl/AX/CalculatedProduct/BouwstenenConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 44049)
@@ -54,7 +54,10 @@
 	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 BouwstenenConverter As WSimpl.AX.CalculatedProduct.BouwstenenConverter = ##class(WSimpl.AX.CalculatedProduct.BouwstenenConverter).%New(BouwsteenConverterMock)
+	#dim ProductApiStub As vhTest.Mock.DOM.PM.ProductAPI = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
+	Do ProductApiStub.IndienMethodCall("BestaatProduct", $$$ElkeWaarde).DanReturn($$$False)
+	
+	#dim BouwstenenConverter As WSimpl.AX.CalculatedProduct.BouwstenenConverter = ##class(WSimpl.AX.CalculatedProduct.BouwstenenConverter).%New(BouwsteenConverterMock, ProductApiStub)
 	#dim BomLines As %ListOfObjects = BouwstenenConverter.Convert(..ProductStub)
 	#dim VerwachtAantalBomLines As %Integer = ..HalffabricaatBouwstenen.Count() + ..KindBouwstenen.Count()
 	
@@ -77,7 +80,10 @@
 	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 BouwstenenConverter As WSimpl.AX.CalculatedProduct.BouwstenenConverter = ##class(WSimpl.AX.CalculatedProduct.BouwstenenConverter).%New(BouwsteenConverterStub)
+	#dim ProductApiStub As vhTest.Mock.DOM.PM.ProductAPI = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
+	Do ProductApiStub.IndienMethodCall("BestaatProduct", $$$ElkeWaarde).DanReturn($$$False)
+	
+	#dim BouwstenenConverter As WSimpl.AX.CalculatedProduct.BouwstenenConverter = ##class(WSimpl.AX.CalculatedProduct.BouwstenenConverter).%New(BouwsteenConverterStub, ProductApiStub)
 	#dim BomLines As %ListOfObjects = BouwstenenConverter.Convert(..ProductStub)
 	
 	Do $$$AssertEquals(BomLines.GetAt(1).BOMLine, 1)
@@ -88,6 +94,53 @@
 	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 KindBouwsteenProductId As %String = "KindBouwsteenProductId"
+	
+	#dim KindBouwsteen As DOM.PM.Bouwstenen.BouwsteenKind = ##class(DOM.PM.Bouwstenen.BouwsteenKind).%New()
+	Set KindBouwsteen.KindProduct = ##class(Prod.Product).%New()
+	Set KindBouwsteen.KindProduct.ProductNr = KindBouwsteenProductId
+	
+	#dim KindBouwstenen As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	Do KindBouwstenen.Insert(KindBouwsteen)
+	
+	#dim KindProductKindBouwsteenProductId As %String = "KindProductKindBouwsteenProductId"
+	
+	#dim KindProductKindBouwsteen As DOM.PM.Bouwstenen.BouwsteenKind = ##class(DOM.PM.Bouwstenen.BouwsteenKind).%New()
+	Set KindProductKindBouwsteen.KindProduct = ##class(Prod.Product).%New()
+	Set KindProductKindBouwsteen.KindProduct.ProductNr = KindProductKindBouwsteenProductId
+	
+	#dim KindProductKindBouwstenen As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	Do KindProductKindBouwstenen.Insert(KindProductKindBouwsteen)
+	
+	#dim BouwsteenConverterStub As vhTest.Mock.WSimpl.AX.CalculatedProduct.BouwsteenConverter = ##class(vhTest.Mock.WSimpl.AX.CalculatedProduct.BouwsteenConverter).%New()
+	Do BouwsteenConverterStub.IndienMethodCall("Convert", $$$ElkeWaarde).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", KindBouwsteenProductId).DanReturn($$$True).ExactAantalKeer(1)
+	Do ProductApiMock.VerwachtMethodCall("GeefProduct", KindBouwsteenProductId).DanReturn(KindProductStub).ExactAantalKeer(1)
+	Do ProductApiMock.VerwachtMethodCall("BestaatProduct", KindProductKindBouwsteenProductId).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)
+	
+	#dim VerwachtAantalBomLines As %Integer = KindBouwstenen.Count() + KindProductKindBouwstenen.Count()
+	
+	Do $$$AssertEquals(BomLines.Count(), VerwachtAantalBomLines)
+	
+	Do ProductApiMock.Verifieer()
+]]></Implementation>
+</Method>
 </Class>