Index: DOM/PM/impl/DataM/DataMGroepClassificatie.cls.xml
===================================================================
diff -u -r1075 -r1723
--- DOM/PM/impl/DataM/DataMGroepClassificatie.cls.xml	(.../DataMGroepClassificatie.cls.xml)	(revision 1075)
+++ DOM/PM/impl/DataM/DataMGroepClassificatie.cls.xml	(.../DataMGroepClassificatie.cls.xml)	(revision 1723)
@@ -2,7 +2,7 @@
 <Export generator="Cache" version="9">
 <Class name="DOM.PM.impl.DataM.DataMGroepClassificatie">
 <ProcedureBlock>1</ProcedureBlock>
-<Super>DOM.PM.Classificatie,%RegisteredObject</Super>
+<Super>DOM.PM.impl.DataM.DataMClassificatie,DOM.PM.GroepClassificatie</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="SortSleutel">
@@ -15,18 +15,14 @@
 </Property>
 
 <Method name="%OnNew">
-<Description>
-SortSleutel : Formaat (Char 9)
-Waarde : NNHHMMGGG+blanko
-Waar NN is de sortering Hoofdgroep en HH is de Hoofdgroepcode
-Waar MM is de sortering Groep en GGG is de Groepcode</Description>
-<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)_$E(100+$P(..DataKlas,"\",3),2,3)_$P(..DataKlas,"\",6)_" "
+	Quit Status
 ]]></Implementation>
 </Method>
 
@@ -48,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)
@@ -68,7 +58,7 @@
 	Set SortSleutel = $ZSTRIP(..SortSleutel,"*W")
 	While (Key [ SortSleutel)
 	{
-		Set Subgroep = ##class(DOM.PM.impl.DataM.DataMSubgroepClassificatie).%New(Key)
+		Set Subgroep = ##class(DOM.PM.impl.DataM.DataMSubgroepClassificatie).%New($Piece(^KPSG1(Key),"\",6))
 		Do ClassificatieLijst.Insert(Subgroep)
 		Set Key = $Order(^KPSG1(Key))	
 	}