Index: DOM/PM/impl/ProductAPI.cls.xml
===================================================================
diff -u -r68048 -r74920
--- DOM/PM/impl/ProductAPI.cls.xml	(.../ProductAPI.cls.xml)	(revision 68048)
+++ DOM/PM/impl/ProductAPI.cls.xml	(.../ProductAPI.cls.xml)	(revision 74920)
@@ -52,6 +52,10 @@
 		{
 			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
@@ -252,7 +256,7 @@
 </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
@@ -269,25 +273,37 @@
 	}
 	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)
+		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).MVX())
 	{
-		Set ProductCreator = ##class(DOM.PM.impl.DataM.DataMMVXLadeCreator).%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)
+		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)