Index: DOM/PM/impl/DataM/DataMHoofdgroepClassificatie.cls.xml
===================================================================
diff -u -r1075 -r1723
--- DOM/PM/impl/DataM/DataMHoofdgroepClassificatie.cls.xml	(.../DataMHoofdgroepClassificatie.cls.xml)	(revision 1075)
+++ DOM/PM/impl/DataM/DataMHoofdgroepClassificatie.cls.xml	(.../DataMHoofdgroepClassificatie.cls.xml)	(revision 1723)
@@ -2,7 +2,7 @@
 <Export generator="Cache" version="9">
 <Class name="DOM.PM.impl.DataM.DataMHoofdgroepClassificatie">
 <ProcedureBlock>1</ProcedureBlock>
-<Super>DOM.PM.Classificatie,%RegisteredObject</Super>
+<Super>DOM.PM.impl.DataM.DataMClassificatie,DOM.PM.HoofdgroepClassificatie</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="SortSleutel">
@@ -15,13 +15,14 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>SortSleutel:%String</FormalSpec>
+<FormalSpec>ClassificatieID:%Integer</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set ..SortSleutel = SortSleutel
-	Quit $$$OK
+	Set Status = ##super(ClassificatieID)
+	Set ..SortSleutel = $E(100+$P(..DataKlas,"\",2),2,3)_$P(..DataKlas,"\",5)_" "
+	Quit Status
 ]]></Implementation>
 </Method>
 
@@ -43,12 +44,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefClassificatieKey">
-<ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[	Quit $P(..Data,"\",6)
-]]></Implementation>
-</Method>
-
 <Method name="GeefCode">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit $P(..Data,"\",7)
@@ -63,7 +58,7 @@
 	Set SortSleutel = $ZSTRIP(..SortSleutel,"*W")
 	While (Key [ SortSleutel)
 	{		
-		Set Groep = ##class(DOM.PM.impl.DataM.DataMGroepClassificatie).%New(Key)
+		Set Groep = ##class(DOM.PM.impl.DataM.DataMGroepClassificatie).%New($Piece(^KPGR1(Key),"\",6))
 		Do ClassificatieLijst.Insert(Groep)
 		Set Key = $Order(^KPGR1(Key))	
 	}