Index: DOM/PM/impl/DataM/DataMClassificatie.cls.xml
===================================================================
diff -u -r946 -r994
--- DOM/PM/impl/DataM/DataMClassificatie.cls.xml	(.../DataMClassificatie.cls.xml)	(revision 946)
+++ DOM/PM/impl/DataM/DataMClassificatie.cls.xml	(.../DataMClassificatie.cls.xml)	(revision 994)
@@ -1,17 +1,13 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-15 08:35:54">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-06 14:30:14">
 <Class name="DOM.PM.impl.DataM.DataMClassificatie">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>DOM.PM.Classificatie,%RegisteredObject</Super>
-<TimeChanged>62157,49285.036165</TimeChanged>
+<TimeChanged>62187,52219.708105</TimeChanged>
 <TimeCreated>62165,31033.384972</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
-<Property name="Key">
-<Type>%String</Type>
-</Property>
-
-<Property name="KKey">
+<Property name="ClassificatieID">
 <Type>%Integer</Type>
 </Property>
 
@@ -21,17 +17,22 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>Key:%String,KKey:%Integer</FormalSpec>
+<FormalSpec>ClassificatieID:%Integer</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set ..Key = Key
-	Set ..KKey = KKey
+	Set ..ClassificatieID = ClassificatieID
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
+<Method name="GeefID">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit ..ClassificatieID
+]]></Implementation>
+</Method>
+
 <Method name="GeefNiveau">
 <ReturnType>DOM.PM.enu.PMClassificatieNiveau</ReturnType>
 <Implementation><![CDATA[	Quit $P(..Data,"\",1)
@@ -48,12 +49,13 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
+	Set Key="K"
 	If (i%Data = "") {
-		Set i%Data = ^KLAS(..Key,..KKey)
+		Set i%Data = ^KLAS(Key,..ClassificatieID)
 	}
 	Quit i%Data
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="2696865566"/>
+<Checksum value="3859360814"/>
 </Export>