Index: DOM/PM/enu/ProductTypePrefix/Verwerker.cls.xml
===================================================================
diff -u -r56452 -r63212
--- DOM/PM/enu/ProductTypePrefix/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 56452)
+++ DOM/PM/enu/ProductTypePrefix/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 63212)
@@ -20,6 +20,8 @@
 		Do ..VerwerkLegrabox()
 	} ElseIf ProductTypePrefix = "M" {
 		Do ..VerwerkMat()
+	} ElseIf ProductTypePrefix = "A" {
+		Do ..VerwerkMerivobox()
 	} ElseIf ProductTypePrefix = "O" {
 		Do ..VerwerkOnbepaald()
 	} ElseIf ProductTypePrefix = "S" {
@@ -59,6 +61,12 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="VerwerkMerivobox">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
 <Method name="VerwerkOnbepaald">
 <Abstract>1</Abstract>
 <Private>1</Private>
Index: DOM/PM/enu/ProductTypePrefix/AutoComplete.cls.xml
===================================================================
diff -u -r56452 -r63212
--- DOM/PM/enu/ProductTypePrefix/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 56452)
+++ DOM/PM/enu/ProductTypePrefix/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 63212)
@@ -37,6 +37,13 @@
 <ReadOnly>1</ReadOnly>
 </Property>
 
+<Property name="Merivobox">
+<Type>%String</Type>
+<InitialExpression>"A"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
 <Property name="Onbepaald">
 <Type>%String</Type>
 <InitialExpression>"O"</InitialExpression>
Index: DOM/PM/enu/ProductTypePrefix.cls.xml
===================================================================
diff -u -r56452 -r63212
--- DOM/PM/enu/ProductTypePrefix.cls.xml	(.../ProductTypePrefix.cls.xml)	(revision 56452)
+++ DOM/PM/enu/ProductTypePrefix.cls.xml	(.../ProductTypePrefix.cls.xml)	(revision 63212)
@@ -4,11 +4,11 @@
 <Super>TECH.Enumeration</Super>
 
 <Parameter name="VALUELIST">
-<Default>,L,T,H,K,S,G,M,Onbepaald</Default>
+<Default>,L,T,H,K,S,G,M,Onbepaald,A</Default>
 </Parameter>
 
 <Parameter name="DISPLAYLIST">
-<Default>,Legrabox,Tandembox,TAORbox,Kaderdeur,SpaceTower,Glas,Mat,Onbepaald</Default>
+<Default>,Legrabox,Tandembox,TAORbox,Kaderdeur,SpaceTower,Glas,Mat,Onbepaald,Merivobox</Default>
 </Parameter>
 
 <UDLText name="T">
@@ -86,6 +86,13 @@
 <Implementation><![CDATA[	 Quit "O"
 ]]></Implementation>
 </Method>
+
+<Method name="Merivobox">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.enu.ProductTypePrefix</ReturnType>
+<Implementation><![CDATA[	Quit "A"
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: DOM/PM/impl/ProductTypeAPIimpl.cls.xml
===================================================================
diff -u -r62708 -r63212
--- DOM/PM/impl/ProductTypeAPIimpl.cls.xml	(.../ProductTypeAPIimpl.cls.xml)	(revision 62708)
+++ DOM/PM/impl/ProductTypeAPIimpl.cls.xml	(.../ProductTypeAPIimpl.cls.xml)	(revision 63212)
@@ -517,6 +517,7 @@
 	ElseIf ..IsLegraboxProduct(ProductID) { Set ProductType = ##class(DOM.PM.enu.ProductTypePrefix).Legrabox()}
 	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()}
 	
 	Else { Set ProductType = ##class(DOM.PM.enu.ProductTypePrefix).Onbepaald()}
 	Quit ProductType