Index: DOM/PM/impl/DataM/DataMHoofdgroepClassificatie.cls.xml
===================================================================
diff -u -r1724 -r2084
--- DOM/PM/impl/DataM/DataMHoofdgroepClassificatie.cls.xml	(.../DataMHoofdgroepClassificatie.cls.xml)	(revision 1724)
+++ DOM/PM/impl/DataM/DataMHoofdgroepClassificatie.cls.xml	(.../DataMHoofdgroepClassificatie.cls.xml)	(revision 2084)
@@ -47,9 +47,15 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefUniekeCode">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $P(..DataKlas,"\",5)
+]]></Implementation>
+</Method>
+
 <Method name="GeefCode">
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit $P(..Data,"\",7)
+<Implementation><![CDATA[	Quit $P(..DataKlas,"\",5)
 ]]></Implementation>
 </Method>