Index: DOM/PM/impl/DataM/DataMSubgroepClassificatie.cls.xml
===================================================================
diff -u -r1075 -r1723
--- DOM/PM/impl/DataM/DataMSubgroepClassificatie.cls.xml	(.../DataMSubgroepClassificatie.cls.xml)	(revision 1075)
+++ DOM/PM/impl/DataM/DataMSubgroepClassificatie.cls.xml	(.../DataMSubgroepClassificatie.cls.xml)	(revision 1723)
@@ -2,7 +2,7 @@
 <Export generator="Cache" version="9">
 <Class name="DOM.PM.impl.DataM.DataMSubgroepClassificatie">
 <ProcedureBlock>1</ProcedureBlock>
-<Super>DOM.PM.Classificatie,%RegisteredObject</Super>
+<Super>DOM.PM.impl.DataM.DataMClassificatie,DOM.PM.Classificatie</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="SortSleutel">
@@ -15,19 +15,14 @@
 </Property>
 
 <Method name="%OnNew">
-<Description>
-SortSleutel
-Waarde : NNHHMMGGGPPSSSSSS+blanko
-Waar NN is de sortering Hoofdgroep en HH is de Hoofdgroepcode
-Waar MM is de sortering Groep en GGG is de Groepcode
-Waar PP is de sortering Subgroep en SSSSSS is de Subgroepcode</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)_$E(100+$P(..DataKlas,"\",4),2,3)_$P(..DataKlas,"\",7)_" "
+	Quit Status
 ]]></Implementation>
 </Method>
 
@@ -49,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)