Index: APPS/PM/impl/ConvertAPPStoDOMenu.cls.xml
===================================================================
diff -u -r1073 -r2148
--- APPS/PM/impl/ConvertAPPStoDOMenu.cls.xml	(.../ConvertAPPStoDOMenu.cls.xml)	(revision 1073)
+++ APPS/PM/impl/ConvertAPPStoDOMenu.cls.xml	(.../ConvertAPPStoDOMenu.cls.xml)	(revision 2148)
@@ -3,6 +3,7 @@
 <Class name="APPS.PM.impl.ConvertAPPStoDOMenu">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="ConvertStockType">
 <ClassMethod>1</ClassMethod>
@@ -22,7 +23,6 @@
 		}
 		
 		Quit ConvertedStockType
-
 ]]></Implementation>
 </Method>
 
@@ -57,7 +57,6 @@
 			Set ConvertedSoort = ##class(DOM.PM.enu.SoortProductID).ProductBoom()
 		}
 		Quit ConvertedSoort
-
 ]]></Implementation>
 </Method>
 
@@ -78,7 +77,25 @@
 			Set ConvertedType = ##class(DOM.PM.enu.CommercieelActiefType).BeperktActief()
 		}
 		Quit ConvertedType
+]]></Implementation>
+</Method>
 
+<Method name="ConvertDataType">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>DataType:APPS.PM.enu.DataType,AantalDecimalen:%Integer=0</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set Type = ""	
+	If (DataType = ##class(APPS.PM.enu.DataType).Tekst()) {
+		Set Type = ##class(DOM.PM.enu.MetaDefinitieFormat).Tekst()
+	}ElseIf (DataType = ##class(APPS.PM.enu.DataType).Getal() && (AantalDecimalen = 0)){
+		Set Type = ##class(DOM.PM.enu.MetaDefinitieFormat).Integer()
+	}ElseIf (DataType = ##class(APPS.PM.enu.DataType).Getal() && (AantalDecimalen > 0)){
+		Set Type = ##class(DOM.PM.enu.MetaDefinitieFormat).Float()
+	}ElseIf (DataType = ##class(APPS.PM.enu.DataType).Boolean()){
+		Set Type = ##class(DOM.PM.enu.MetaDefinitieFormat).Boolean()
+	}	
+	Quit Type
 ]]></Implementation>
 </Method>
 </Class>