Index: DOM/PM/impl/DataM/DataMSubgroepClassificatie.cls.xml =================================================================== diff -u -r1724 -r1725 --- DOM/PM/impl/DataM/DataMSubgroepClassificatie.cls.xml (.../DataMSubgroepClassificatie.cls.xml) (revision 1724) +++ DOM/PM/impl/DataM/DataMSubgroepClassificatie.cls.xml (.../DataMSubgroepClassificatie.cls.xml) (revision 1725) @@ -39,10 +39,13 @@ Set Status = ##super(ClassificatieID) 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)_" " + Set HoofdgroepSortSleutel = $E(100+$P(..DataKlas,"\",2),2,3)_$P(..DataKlas,"\",5) + Set GroepSortSleutel = $E(100+$P(..DataKlas,"\",3),2,3)_$P(..DataKlas,"\",6) + Set SubgroepSortSleutel = $E(100+$P(..DataKlas,"\",4),2,3)_$P(..DataKlas,"\",7) + Set ..SortSleutelIndex1 = HoofdgroepSortSleutel_" " + Set ..SortSleutelIndex2 = HoofdgroepSortSleutel_GroepSortSleutel_" " + Set ..SortSleutelIndex3 = HoofdgroepSortSleutel_GroepSortSleutel_SubgroepSortSleutel_" " + Set ..SortSleutel = HoofdgroepSortSleutel_GroepSortSleutel_SubgroepSortSleutel_" " } Quit Status ]]>