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))	
 	}	
Index: DOM/PM/HoofdgroepClassificatie.cls.xml
===================================================================
diff -u
--- DOM/PM/HoofdgroepClassificatie.cls.xml	(revision 0)
+++ DOM/PM/HoofdgroepClassificatie.cls.xml	(revision 1723)
@@ -0,0 +1,14 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.PM.HoofdgroepClassificatie">
+<Abstract>1</Abstract>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.PM.Classificatie</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="GeefGroepClassificaties">
+<Abstract>1</Abstract>
+<ReturnType>TECH.Iterator</ReturnType>
+</Method>
+</Class>
+</Export>
Index: CSC TAOO.prj.xml
===================================================================
diff -u -r1719 -r1723
--- CSC TAOO.prj.xml	(.../CSC TAOO.prj.xml)	(revision 1719)
+++ CSC TAOO.prj.xml	(.../CSC TAOO.prj.xml)	(revision 1723)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
-<Project name="CSC TAOO" LastModified="2011-08-01 10:57:06">
+<Project name="CSC TAOO" LastModified="2011-08-01 11:49:06">
   <Items>
     <ProjectItem name="DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie" type="CLS"/>
     <ProjectItem name="DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken" type="CLS"/>
@@ -188,14 +188,14 @@
     <ProjectItem name="DOM.PM.Maatwerk.Calc.Kost.impl.TBX.V1VerpakkingEvaluator" type="CLS"/>
     <ProjectItem name="DOM.PM.enu.TAOOBodemBewerkbaar" type="CLS"/>
     <ProjectItem name="DOM.PM.enu.TAOODraagkracht" type="CLS"/>
+    <ProjectItem name="DOM.PM.enu.TAOOFrontBewerkbaar" type="CLS"/>
     <ProjectItem name="DOM.PM.enu.TAOOLadeDiepte" type="CLS"/>
     <ProjectItem name="DOM.PM.enu.TAOOLadeHoogte" type="CLS"/>
     <ProjectItem name="DOM.PM.enu.TAOOLadeKleur" type="CLS"/>
+    <ProjectItem name="DOM.PM.enu.TAOORugBewerkbaar" type="CLS"/>
     <ProjectItem name="DOM.PM.impl.DataM.DataMTAOOLadeCreator" type="CLS"/>
     <ProjectItem name="vhDeploy.CSC.Deploy20110801x1055" type="CLS"/>
-    <ProjectItem name="vhDeploy.Deploy20110620x1536" type="CLS"/>
     <ProjectItem name="vhDeploy.Deploy20110621x0804" type="CLS"/>
-    <ProjectItem name="vhDeploy.Deploy20110622x1605" type="CLS"/>
     <ProjectItem name="vhDeploy.Deploy20110623x1342" type="CLS"/>
     <ProjectItem name="vhDeploy.Deploy20110624x0834" type="CLS"/>
     <ProjectItem name="vhDeploy.Deploy20110624x1155" type="CLS"/>
Index: DOM/PM/Classificatie.cls.xml
===================================================================
diff -u -r1075 -r1723
--- DOM/PM/Classificatie.cls.xml	(.../Classificatie.cls.xml)	(revision 1075)
+++ DOM/PM/Classificatie.cls.xml	(.../Classificatie.cls.xml)	(revision 1723)
@@ -1,8 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
 <Class name="DOM.PM.Classificatie">
-<Description>
-^KLAS</Description>
 <Abstract>1</Abstract>
 <ProcedureBlock>1</ProcedureBlock>
 <ClassDefinitionError>0</ClassDefinitionError>
@@ -15,15 +13,31 @@
 <Method name="GeefNiveau">
 <Abstract>1</Abstract>
 <ReturnType>DOM.PM.enu.PMClassificatieNiveau</ReturnType>
-<Implementation><![CDATA[	
-]]></Implementation>
 </Method>
 
 <Method name="GeefECType">
 <Abstract>1</Abstract>
 <ReturnType>DOM.PM.enu.PMECType</ReturnType>
-<Implementation><![CDATA[	
-]]></Implementation>
 </Method>
+
+<Method name="GeefNederlands">
+<Abstract>1</Abstract>
+<ReturnType>%String</ReturnType>
+</Method>
+
+<Method name="GeefFrans">
+<Abstract>1</Abstract>
+<ReturnType>%String</ReturnType>
+</Method>
+
+<Method name="GeefDuits">
+<Abstract>1</Abstract>
+<ReturnType>%String</ReturnType>
+</Method>
+
+<Method name="GeefCode">
+<Abstract>1</Abstract>
+<ReturnType>%String</ReturnType>
+</Method>
 </Class>
 </Export>
Index: vhUnitTest/DOM/PM/Classificaties/TestClassificaties.cls.xml
===================================================================
diff -u -r1074 -r1723
--- vhUnitTest/DOM/PM/Classificaties/TestClassificaties.cls.xml	(.../TestClassificaties.cls.xml)	(revision 1074)
+++ vhUnitTest/DOM/PM/Classificaties/TestClassificaties.cls.xml	(.../TestClassificaties.cls.xml)	(revision 1723)
@@ -1,6 +1,8 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
 <Class name="vhUnitTest.DOM.PM.Classificaties.TestClassificaties">
+<Description>
+do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","DOM.PM.Classificaties.TestClassificaties")</Description>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.TestCase</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
@@ -82,7 +84,7 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 		Do $$$AssertTrue(Classificatie.GeefCode() '= "","Er is een code aanwezig van deze classificatie.")	
-		Do $$$AssertTrue(Classificatie.GeefClassificatieKey() '= "","Er is een ClassificatieKey aanwezig van deze classificatie.")	
+		Do $$$AssertTrue(Classificatie.GeefID() '= "","Er is een ClassificatieKey aanwezig van deze classificatie.")	
 		Do $$$AssertTrue(Classificatie.GeefNederlands() '= "","Er is een nederlandstalige omschrijving aanwezig van deze classificatie.")	
 		Do $$$AssertTrue(Classificatie.GeefFrans() '= "","Er is een franstalige omschrijving aanwezig van deze classificatie.")
 ]]></Implementation>
Index: DOM/PM/impl/DataM/DataMClassificatie.cls.xml
===================================================================
diff -u -r1075 -r1723
--- DOM/PM/impl/DataM/DataMClassificatie.cls.xml	(.../DataMClassificatie.cls.xml)	(revision 1075)
+++ DOM/PM/impl/DataM/DataMClassificatie.cls.xml	(.../DataMClassificatie.cls.xml)	(revision 1723)
@@ -9,7 +9,7 @@
 <Type>%Integer</Type>
 </Property>
 
-<Property name="Data">
+<Property name="DataKlas">
 <Type>%String</Type>
 <Private>1</Private>
 </Property>
@@ -33,25 +33,25 @@
 
 <Method name="GeefNiveau">
 <ReturnType>DOM.PM.enu.PMClassificatieNiveau</ReturnType>
-<Implementation><![CDATA[	Quit $P(..Data,"\",1)
+<Implementation><![CDATA[	Quit $P(..DataKlas,"\",1)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefECType">
 <ReturnType>DOM.PM.enu.PMECType</ReturnType>
-<Implementation><![CDATA[	Quit $P(..Data,"\",12)
+<Implementation><![CDATA[	Quit $P(..DataKlas,"\",12)
 ]]></Implementation>
 </Method>
 
-<Method name="DataGet">
+<Method name="DataKlasGet">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	Set Key="K"
-	If (i%Data = "") {
-		Set i%Data = ^KLAS(Key,..ClassificatieID)
+	If (i%DataKlas = "") {
+		Set i%DataKlas = ^KLAS(Key,..ClassificatieID)
 	}
-	Quit i%Data
+	Quit i%DataKlas
 ]]></Implementation>
 </Method>
 </Class>
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)
Index: DOM/PM/impl/DataM/DataMProductAPI.cls.xml
===================================================================
diff -u -r1543 -r1723
--- DOM/PM/impl/DataM/DataMProductAPI.cls.xml	(.../DataMProductAPI.cls.xml)	(revision 1543)
+++ DOM/PM/impl/DataM/DataMProductAPI.cls.xml	(.../DataMProductAPI.cls.xml)	(revision 1723)
@@ -96,7 +96,22 @@
 <Method name="GeefClassificatie">
 <FormalSpec>ClassificatieID:%Integer</FormalSpec>
 <ReturnType>DOM.PM.Classificatie</ReturnType>
-<Implementation><![CDATA[	Quit ##class(DOM.PM.impl.DataM.DataMClassificatie).%New(ClassificatieID)
+<Implementation><![CDATA[
+	Set Classificatie = ""
+	Set Niveau = $Piece(^KLAS("K",ClassificatieID),"\")
+	If (Niveau = ##class(DOM.PM.enu.PMClassificatieNiveau).Hoofdgroep())
+	{
+		Set Classificatie = ##class(DOM.PM.impl.DataM.DataMHoofdgroepClassificatie).%New(ClassificatieID)
+	}
+	ElseIf (Niveau = ##class(DOM.PM.enu.PMClassificatieNiveau).Groep())
+	{
+		Set Classificatie = ##class(DOM.PM.impl.DataM.DataMGroepClassificatie).%New(ClassificatieID)
+	}
+	ElseIf (Niveau = ##class(DOM.PM.enu.PMClassificatieNiveau).Subgroep())
+	{
+		Set Classificatie = ##class(DOM.PM.impl.DataM.DataMSubgroepClassificatie).%New(ClassificatieID)
+	}
+	Quit Classificatie
 ]]></Implementation>
 </Method>
 
@@ -107,7 +122,7 @@
 	Set Key = $Order(^KPHG1(""))
 	While (Key '= "")
 	{
-		Do ClassificatieLijst.Insert(##class(DOM.PM.impl.DataM.DataMHoofdgroepClassificatie).%New(Key))
+		Do ClassificatieLijst.Insert(..GeefClassificatie($Piece(^KPHG1(Key),"\",6)))
 		Set Key = $Order(^KPHG1(Key))	
 	}	
 	Quit ##class(TECH.ListIterator).%New(ClassificatieLijst)
Index: DOM/PM/impl/DataM/DataMHoofdgroepClassificatie.cls.xml
===================================================================
diff -u -r1075 -r1723
--- DOM/PM/impl/DataM/DataMHoofdgroepClassificatie.cls.xml	(.../DataMHoofdgroepClassificatie.cls.xml)	(revision 1075)
+++ DOM/PM/impl/DataM/DataMHoofdgroepClassificatie.cls.xml	(.../DataMHoofdgroepClassificatie.cls.xml)	(revision 1723)
@@ -2,7 +2,7 @@
 <Export generator="Cache" version="9">
 <Class name="DOM.PM.impl.DataM.DataMHoofdgroepClassificatie">
 <ProcedureBlock>1</ProcedureBlock>
-<Super>DOM.PM.Classificatie,%RegisteredObject</Super>
+<Super>DOM.PM.impl.DataM.DataMClassificatie,DOM.PM.HoofdgroepClassificatie</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="SortSleutel">
@@ -15,13 +15,14 @@
 </Property>
 
 <Method name="%OnNew">
-<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)_" "
+	Quit Status
 ]]></Implementation>
 </Method>
 
@@ -43,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)
@@ -63,7 +58,7 @@
 	Set SortSleutel = $ZSTRIP(..SortSleutel,"*W")
 	While (Key [ SortSleutel)
 	{		
-		Set Groep = ##class(DOM.PM.impl.DataM.DataMGroepClassificatie).%New(Key)
+		Set Groep = ##class(DOM.PM.impl.DataM.DataMGroepClassificatie).%New($Piece(^KPGR1(Key),"\",6))
 		Do ClassificatieLijst.Insert(Groep)
 		Set Key = $Order(^KPGR1(Key))	
 	}	
Index: APPS/PM/ProductService.cls.xml
===================================================================
diff -u -r1681 -r1723
--- APPS/PM/ProductService.cls.xml	(.../ProductService.cls.xml)	(revision 1681)
+++ APPS/PM/ProductService.cls.xml	(.../ProductService.cls.xml)	(revision 1723)
@@ -178,9 +178,7 @@
 	{
 		
 		Set HoofdgroepClassificatie = HoofdgroepClassificatieIt.Next()		
-		Set Classificatie = ProductAPI.GeefClassificatie(HoofdgroepClassificatie.GeefClassificatieKey())	
-		
-		If (Classificatie.GeefECType() '= ##class(DOM.PM.enu.PMECType).NietTonen())
+		If (HoofdgroepClassificatie.GeefECType() '= ##class(DOM.PM.enu.PMECType).NietTonen())
 		{
 			Set DTOHoofdgroepClassificatie  = ..MaakDTOClassificatie(HoofdgroepClassificatie)
 			Do DTOClassificatieRoot.SubClassificaties.Insert(DTOHoofdgroepClassificatie)
@@ -190,9 +188,7 @@
 			While(GroepClassificatieIt.HasNext())
 			{
 				Set GroepClassificatie = GroepClassificatieIt.Next()
-				Set Classificatie = ProductAPI.GeefClassificatie(GroepClassificatie.GeefClassificatieKey())
-				
-				If (Classificatie.GeefECType() '= ##class(DOM.PM.enu.PMECType).NietTonen())
+				If (GroepClassificatie.GeefECType() '= ##class(DOM.PM.enu.PMECType).NietTonen())
 				{
 					Set DTOGroepClassificatie  = ..MaakDTOClassificatie(GroepClassificatie)
 					Do DTOHoofdgroepClassificatie.SubClassificaties.Insert(DTOGroepClassificatie)
@@ -202,9 +198,7 @@
 					While(SubgroepClassificatieIt.HasNext())
 					{
 						Set SubgroepClassificatie = SubgroepClassificatieIt.Next()
-						Set Classificatie = ProductAPI.GeefClassificatie(SubgroepClassificatie.GeefClassificatieKey())
-						
-						If (Classificatie.GeefECType() '= ##class(DOM.PM.enu.PMECType).NietTonen())
+						If (SubgroepClassificatie.GeefECType() '= ##class(DOM.PM.enu.PMECType).NietTonen())
 						{
 							Set DTOSubgroepClassificatie  = ..MaakDTOClassificatie(SubgroepClassificatie)
 							Do DTOGroepClassificatie.SubClassificaties.Insert(DTOSubgroepClassificatie)
@@ -439,14 +433,14 @@
 </Method>
 
 <Method name="MaakDTOClassificatie">
-<FormalSpec>ClassificatieObject:DOM.PM.GroepClassificatie</FormalSpec>
+<FormalSpec>ClassificatieObject:DOM.PM.Classificatie</FormalSpec>
 <Private>1</Private>
 <ReturnType>APPS.PM.dto.Classificatie</ReturnType>
 <Implementation><![CDATA[
 	Set Classificatie = ##class(APPS.PM.dto.Classificatie).%New()
 	Set Classificatie.Code = ClassificatieObject.GeefCode()
 	Set Classificatie.Omschrijving = ClassificatieObject.GeefNederlands()
-	Set Classificatie.ClassificatieKey = ClassificatieObject.GeefClassificatieKey()
+	Set Classificatie.ClassificatieKey = ClassificatieObject.GeefID()
 	Quit Classificatie
 ]]></Implementation>
 </Method>
Index: DOM/PM/GroepClassificatie.cls.xml
===================================================================
diff -u -r1075 -r1723
--- DOM/PM/GroepClassificatie.cls.xml	(.../GroepClassificatie.cls.xml)	(revision 1075)
+++ DOM/PM/GroepClassificatie.cls.xml	(.../GroepClassificatie.cls.xml)	(revision 1723)
@@ -1,35 +1,14 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
 <Class name="DOM.PM.GroepClassificatie">
-<Description>
-^KPHG1, ^KPSG1, ^KPGR1</Description>
 <Abstract>1</Abstract>
 <ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.PM.Classificatie</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
-<Method name="GeefNederlands">
+<Method name="GeefSubgroepClassificaties">
 <Abstract>1</Abstract>
-<ReturnType>%String</ReturnType>
+<ReturnType>TECH.Iterator</ReturnType>
 </Method>
-
-<Method name="GeefFrans">
-<Abstract>1</Abstract>
-<ReturnType>%String</ReturnType>
-</Method>
-
-<Method name="GeefDuits">
-<Abstract>1</Abstract>
-<ReturnType>%String</ReturnType>
-</Method>
-
-<Method name="GeefClassificatieKey">
-<Abstract>1</Abstract>
-<ReturnType>%Integer</ReturnType>
-</Method>
-
-<Method name="GeefCode">
-<Abstract>1</Abstract>
-<ReturnType>%String</ReturnType>
-</Method>
 </Class>
 </Export>