Index: DOM/PM/impl/DataM/DataMSubgroepClassificatie.cls.xml
===================================================================
diff -u -r1723 -r1724
--- DOM/PM/impl/DataM/DataMSubgroepClassificatie.cls.xml	(.../DataMSubgroepClassificatie.cls.xml)	(revision 1723)
+++ DOM/PM/impl/DataM/DataMSubgroepClassificatie.cls.xml	(.../DataMSubgroepClassificatie.cls.xml)	(revision 1724)
@@ -2,13 +2,29 @@
 <Export generator="Cache" version="9">
 <Class name="DOM.PM.impl.DataM.DataMSubgroepClassificatie">
 <ProcedureBlock>1</ProcedureBlock>
-<Super>DOM.PM.impl.DataM.DataMClassificatie,DOM.PM.Classificatie</Super>
+<Super>DOM.PM.impl.DataM.DataMClassificatie,DOM.PM.SubgroepClassificatie</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="SortSleutel">
 <Type>%String</Type>
+<Private>1</Private>
 </Property>
 
+<Property name="SortSleutelIndex1">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="SortSleutelIndex2">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="SortSleutelIndex3">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="Data">
 <Type>%String</Type>
 <Private>1</Private>
@@ -21,7 +37,13 @@
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	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)_" "
+	If ($$$ISOK(Status))
+	{
+		Set ..SortSleutelIndex1 = $E(100+$P(..DataKlas,"\",2),2,3)_$P(..DataKlas,"\",5)_" "
+		Set ..SortSleutelIndex2 = $E(100+$P(..DataKlas,"\",2),2,3)_$P(..DataKlas,"\",5)_$E(100+$P(..DataKlas,"\",3),2,3)_$P(..DataKlas,"\",6)_" "
+		Set ..SortSleutelIndex3 = $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)_" "
+		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>
@@ -50,6 +72,22 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefProductIterator">
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
+	Set Lijst = ##class(%ListOfObjects).%New()
+	Set Korttekst = $Order(^KPH(..SortSleutelIndex1,..SortSleutelIndex2,..SortSleutelIndex3,"  ",""))
+	While (Korttekst '= "")
+	{
+		Set PRNr = ^KPH(..SortSleutelIndex1,..SortSleutelIndex2,..SortSleutelIndex3,"  ",Korttekst)
+		Do Lijst.Insert(ProductAPI.GeefProduct(PRNr))
+		Set Korttekst = $Order(^KPH(..SortSleutelIndex1,..SortSleutelIndex2,..SortSleutelIndex3,"  ",Korttekst))
+	}
+	Quit ##class(TECH.ListIterator).%New(Lijst)
+]]></Implementation>
+</Method>
+
 <Method name="DataGet">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>