Index: DOM/PM/impl/ProductAPI.cls.xml
===================================================================
diff -u -r67320 -r68048
--- DOM/PM/impl/ProductAPI.cls.xml	(.../ProductAPI.cls.xml)	(revision 67320)
+++ DOM/PM/impl/ProductAPI.cls.xml	(.../ProductAPI.cls.xml)	(revision 68048)
@@ -48,6 +48,10 @@
 		{
 			Set Product = ProductTypeAPI.GeefMerivoboxProduct(ProductID)
 		}
+		ElseIf (ProductTypeAPI.IsInkortingProduct(ProductID))
+		{
+			Set Product = ProductTypeAPI.GeefInkortingProduct(ProductID)
+		}
 		ElseIf (ProductTypeAPI.IsOrgaluxProduct(ProductID))
 		{
 			If (ProductTypeAPI.IsDwarslatOpMaat(ProductID)) // orgalux dwarslat op maat classificatie
@@ -256,6 +260,13 @@
 	{
 		Set ProductID = ##class(DOM.PM.Product.impl.TAORMaatwerkProductCreator).%New().Creeer(ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem, ProductData)
 	}
+	ElseIf (ProductSpecificatie.GeefFamilie() = ##class(DOM.PM.enu.Familie).BewerktHalffabrikaat()) && (ProductSpecificatie.GeefVariant() = ##class(DOM.PM.enu.Variant).Inkorting())
+	{
+		Set ProductCreator = ##class(DOM.PM.impl.DataM.DataMINKCreator).%New(ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem, ProductData)
+		Set ProductID = ProductCreator.GeefPRNr()
+		Set BouwsteenCreator = ##class(DOM.PM.impl.DataM.DataMBouwsteenCreator).%New()
+		Do BouwsteenCreator.Init(ProductID, ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem)
+	}
 	ElseIf (ProductSpecificatie.GeefFamilie() = ##class(DOM.PM.enu.Familie).Lade()) && (ProductSpecificatie.GeefVariant() = ##class(DOM.PM.enu.LadeVariant).LBXPure())
 	{
 		Set ProductCreator = ##class(DOM.PM.impl.DataM.DataMLBXLadeCreator).%New(ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem, ProductData)