Index: vhTest/Fake/DOM/PM/impl/ProductTypeAPIimpl.cls.xml
===================================================================
diff -u -r68723 -r68767
--- vhTest/Fake/DOM/PM/impl/ProductTypeAPIimpl.cls.xml	(.../ProductTypeAPIimpl.cls.xml)	(revision 68723)
+++ vhTest/Fake/DOM/PM/impl/ProductTypeAPIimpl.cls.xml	(.../ProductTypeAPIimpl.cls.xml)	(revision 68767)
@@ -21,13 +21,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="IsRevegoProduct">
-<FormalSpec>ProductID:%String</FormalSpec>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit ""
-]]></Implementation>
-</Method>
-
 <Method name="GeefKaderdeurProduct">
 <FormalSpec>ProductID:%String</FormalSpec>
 <ReturnType>DOM.PM.KADProduct.KADKaderdeur</ReturnType>
@@ -77,6 +70,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefRevegoProduct">
+<FormalSpec>ProductID:%String</FormalSpec>
+<ReturnType>DOM.PM.RVGProduct.RVGMeubel</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
 <Method name="GeefSpaceTowerProductNrLijstVoorLade">
 <FormalSpec>ProductID:%String</FormalSpec>
 <ReturnType>%ListOfDataTypes</ReturnType>
@@ -217,6 +217,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsRevegoProduct">
+<FormalSpec>ProductID:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
 <Method name="IsServoDriveFlex">
 <FormalSpec>ProductID:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
Index: DOM/PM/RVGProduct/impl/RVGMeubel.cls.xml
===================================================================
diff -u
--- DOM/PM/RVGProduct/impl/RVGMeubel.cls.xml	(revision 0)
+++ DOM/PM/RVGProduct/impl/RVGMeubel.cls.xml	(revision 68767)
@@ -0,0 +1,42 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.RVGProduct.impl.RVGMeubel">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.PM.RVGProduct.RVGMeubel,DOM.PM.impl.MaatwerkProductImpl</Super>
+<Inheritance>right</Inheritance>
+
+<Property name="IngegevenKenmerken">
+<Type>DOM.PM.Maatwerk.Calc.Common.impl.RVGKenmerken</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="Open">
+<FormalSpec>ProductNummer:%Integer</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	#dim Status As %Status = ##super(ProductNummer)
+	If ($IsObject(..GeefProductSpecificatie())){
+		Set ..IngegevenKenmerken = ..GeefProductSpecificatie().GeefIngegevenKenmerken()
+	}
+	Quit Status
+]]></Implementation>
+</Method>
+
+<Method name="GeefFamilie">
+<ReturnType>DOM.PM.enu.Familie</ReturnType>
+<Implementation><![CDATA[	Quit ..GeefProductSpecificatie().GeefFamilie()
+]]></Implementation>
+</Method>
+
+<Method name="GeefVariant">
+<ReturnType>DOM.PM.enu.Variant</ReturnType>
+<Implementation><![CDATA[	Quit ..GeefProductSpecificatie().GeefVariant()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/DOM/PM/impl/ProductTypeAPIimpl.cls.xml
===================================================================
diff -u -r68723 -r68767
--- vhTest/Mock/DOM/PM/impl/ProductTypeAPIimpl.cls.xml	(.../ProductTypeAPIimpl.cls.xml)	(revision 68723)
+++ vhTest/Mock/DOM/PM/impl/ProductTypeAPIimpl.cls.xml	(.../ProductTypeAPIimpl.cls.xml)	(revision 68767)
@@ -78,6 +78,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefRevegoProduct">
+<FormalSpec>ProductID:%String</FormalSpec>
+<ReturnType>DOM.PM.RVGProduct.RVGMeubel</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefRevegoProduct",ProductID)
+]]></Implementation>
+</Method>
+
 <Method name="GeefSpaceTowerProductNrLijstVoorLade">
 <FormalSpec>ProductID:%String</FormalSpec>
 <ReturnType>%ListOfDataTypes</ReturnType>
Index: DOM/PM/impl/ProductTypeAPIimpl.cls.xml
===================================================================
diff -u -r68722 -r68767
--- DOM/PM/impl/ProductTypeAPIimpl.cls.xml	(.../ProductTypeAPIimpl.cls.xml)	(revision 68722)
+++ DOM/PM/impl/ProductTypeAPIimpl.cls.xml	(.../ProductTypeAPIimpl.cls.xml)	(revision 68767)
@@ -356,6 +356,15 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefRevegoProduct">
+<FormalSpec>ProductID:%String</FormalSpec>
+<ReturnType>DOM.PM.RVGProduct.RVGMeubel</ReturnType>
+<Implementation><![CDATA[
+	If ('..IsRevegoProduct(ProductID)) Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Product "_ProductID_" is geen Revego product"))
+	Quit ##class(DOM.PM.RVGProduct.impl.RVGMeubel).OpenId(ProductID)
+]]></Implementation>
+</Method>
+
 <Method name="IsAntislipmatProduct">
 <FormalSpec>ProductID:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
@@ -551,6 +560,7 @@
 	ElseIf ..IsTandemboxProduct(ProductID) { Set ProductType = ##class(DOM.PM.enu.ProductTypePrefix).Tandembox()}
 	ElseIf ..IsTAORboxProduct(ProductID) { Set ProductType = ##class(DOM.PM.enu.ProductTypePrefix).TAORbox()}
 	ElseIf ..IsMerivoboxProduct(ProductID) { Set ProductType = ##class(DOM.PM.enu.ProductTypePrefix).Merivobox()}
+	ElseIf ..IsRevegoProduct(ProductID) { Set ProductType = ##class(DOM.PM.enu.ProductTypePrefix).Revego()}
 	
 	Else { Set ProductType = ##class(DOM.PM.enu.ProductTypePrefix).Onbepaald()}
 	Quit ProductType
Index: DOM/PM/RVGProduct/RVGMeubel.cls.xml
===================================================================
diff -u
--- DOM/PM/RVGProduct/RVGMeubel.cls.xml	(revision 0)
+++ DOM/PM/RVGProduct/RVGMeubel.cls.xml	(revision 68767)
@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.RVGProduct.RVGMeubel">
+<Abstract>1</Abstract>
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.PM.MaatwerkProduct</Super>
+
+<Method name="GeefFamilie">
+<Abstract>1</Abstract>
+<ReturnType>DOM.PM.enu.Familie</ReturnType>
+</Method>
+
+<Method name="GeefVariant">
+<Abstract>1</Abstract>
+<ReturnType>DOM.PM.enu.Variant</ReturnType>
+</Method>
+</Class>
+
+
+</Export>