Index: DOM/PM/impl/ProductAPI.cls.xml
===================================================================
diff -u -r58910 -r74920
--- DOM/PM/impl/ProductAPI.cls.xml	(.../ProductAPI.cls.xml)	(revision 58910)
+++ DOM/PM/impl/ProductAPI.cls.xml	(.../ProductAPI.cls.xml)	(revision 74920)
@@ -44,6 +44,18 @@
 		{
 			Set Product = ProductTypeAPI.GeefLegraboxProduct(ProductID)
 		}
+		ElseIf (ProductTypeAPI.IsMerivoboxProduct(ProductID))
+		{
+			Set Product = ProductTypeAPI.GeefMerivoboxProduct(ProductID)
+		}
+		ElseIf (ProductTypeAPI.IsInkortingProduct(ProductID))
+		{
+			Set Product = ProductTypeAPI.GeefInkortingProduct(ProductID)
+		}
+		ElseIf (ProductTypeAPI.IsRevegoProduct(ProductID))
+		{
+			Set Product = ProductTypeAPI.GeefRevegoProduct(ProductID)
+		}
 		ElseIf (ProductTypeAPI.IsOrgaluxProduct(ProductID))
 		{
 			If (ProductTypeAPI.IsDwarslatOpMaat(ProductID)) // orgalux dwarslat op maat classificatie
@@ -244,29 +256,54 @@
 </Method>
 
 <Method name="MaakMaatwerkProduct">
-<FormalSpec>ProductSpecificatie:DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie,BerekeningsSpecificatie:DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,KostItem:DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem,ProductData:DOM.PM.dto.ProductData=""</FormalSpec>
+<FormalSpec>ProductSpecificatie:DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie,BerekeningsSpecificatie:DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,KostItem:DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem,ProductData:DOM.PM.dto.ProductData="",VhConfig:APPS.PM.Maatwerk.dto.VhConfig=""</FormalSpec>
 <ReturnType>DOM.PM.MaatwerkProduct</ReturnType>
 <Implementation><![CDATA[
 	#dim ProductID As %String
-	If (ProductSpecificatie.GeefFamilie() = ##class(DOM.PM.enu.Familie).Lade()) && (ProductSpecificatie.GeefVariant() =  ##class(DOM.PM.enu.LadeVariant).TBXPlus())
+	If (ProductSpecificatie.GeefFamilie() = ##class(DOM.PM.enu.Familie).Lade()) && (ProductSpecificatie.GeefVariant() = ##class(DOM.PM.enu.LadeVariant).TAOR())
 	{
-		Set ProductCreator = ##class(DOM.PM.impl.DataM.DataMTBXLadeCreator).%New(ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem)
+		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 KenmerkenCreator = ##class(DOM.PM.impl.DataM.DataMLadeKenmerkenCreator).%New(ProductID,ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom)
 		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).TAOR())
+	ElseIf (ProductSpecificatie.GeefFamilie() = ##class(DOM.PM.enu.Familie).Lade()) && (ProductSpecificatie.GeefVariant() = ##class(DOM.PM.enu.LadeVariant).LBXPure())
 	{
-		Set ProductID = ##class(DOM.PM.Product.impl.TAORMaatwerkProductCreator).%New().Creeer(ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem, ProductData)
+		Set ProductCreator = ##class(DOM.PM.impl.DataM.DataMLBXLadeCreator).%New(ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem, ProductData, VhConfig)
+		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())
+	ElseIf (ProductSpecificatie.GeefFamilie() = ##class(DOM.PM.enu.Familie).Lade()) && (ProductSpecificatie.GeefVariant() = ##class(DOM.PM.enu.LadeVariant).MVX())
 	{
-		Set ProductCreator = ##class(DOM.PM.impl.DataM.DataMLBXLadeCreator).%New(ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem, ProductData)
+		Set ProductCreator = ##class(DOM.PM.impl.DataM.DataMMVXLadeCreator).%New(ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem, ProductData, VhConfig)
 		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).TBXAntaro())
+	{
+		Set ProductCreator = ##class(DOM.PM.impl.DataM.DataMTBXLadeCreator).%New(ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem, ProductData, VhConfig)
+		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).Meubel()) && (ProductSpecificatie.GeefVariant() = ##class(DOM.PM.enu.LadeVariant).Revego())
+	{
+		#dim RVGIK As DOM.PM.Maatwerk.Calc.Common.impl.RVGKenmerken = ProductSpecificatie.GeefIngegevenKenmerken()
+		Set ProductCreator = ##class(DOM.PM.impl.DataM.DataMRVGLadeCreator).%New(ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem, ProductData)
+		Set ProductID = ProductCreator.GeefPRNr()
+		If (RVGIK.ProductieWijze = ##class(DOM.PM.enu.RVGProductieWijze).LosseComponenten()) {
+			Set BouwsteenCreator = ##class(DOM.PM.Maatwerk.RVG.impl.BouwsteenCreatorLosseComponenten).%New()
+		} Else {
+			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).AluKader())
 	{
 		Set ProductCreator = ##class(DOM.PM.impl.DataM.DataMAluKaderCreator).%New(ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem)