Index: DOM/PM/impl/DataM/DataMGroepClassificatie.cls.xml
===================================================================
diff -u -r937 -r939
--- DOM/PM/impl/DataM/DataMGroepClassificatie.cls.xml	(.../DataMGroepClassificatie.cls.xml)	(revision 937)
+++ DOM/PM/impl/DataM/DataMGroepClassificatie.cls.xml	(.../DataMGroepClassificatie.cls.xml)	(revision 939)
@@ -1,10 +1,9 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel) 5.0.21 (Build 6408U)" ts="2011-03-14 13:15:44">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-10 11:06:03">
 <Class name="DOM.PM.impl.DataM.DataMGroepClassificatie">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>DOM.PM.Classificatie,%RegisteredObject</Super>
-<TimeChanged>62164,47744.586448</TimeChanged>
-<TimeCreated>62159,61822.043699</TimeCreated>
+<TimeChanged>62160,40037.654054</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="SortSleutel">
@@ -66,13 +65,12 @@
 <ReturnType>TECH.Iterator</ReturnType>
 <Implementation><![CDATA[
 	Set ClassificatieLijst = ##class(%ListOfObjects).%New()
-	Set Key = $Order(^KPSG1(""))
-	While (Key '= "")
+	Set Key = $Order(^KPSG1(..SortSleutel))
+	Set SortSleutel = $ZSTRIP(..SortSleutel,"*W")
+	While (Key [ SortSleutel)
 	{
 		Set Subgroep = ##class(DOM.PM.impl.DataM.DataMSubgroepClassificatie).%New(Key)
-		If ($E(Key,1,$L(..SortSleutel)-1)_" " = ..SortSleutel){
-			Do ClassificatieLijst.Insert(Subgroep)
-		}
+		Do ClassificatieLijst.Insert(Subgroep)
 		Set Key = $Order(^KPSG1(Key))	
 	}	
 	Quit ##class(TECH.ListIterator).%New(ClassificatieLijst)
@@ -90,5 +88,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="2151051098"/>
+<Checksum value="3573231377"/>
 </Export>
Index: DOM/PM/impl/DataM/DataMHoofdgroepClassificatie.cls.xml
===================================================================
diff -u -r937 -r939
--- DOM/PM/impl/DataM/DataMHoofdgroepClassificatie.cls.xml	(.../DataMHoofdgroepClassificatie.cls.xml)	(revision 937)
+++ DOM/PM/impl/DataM/DataMHoofdgroepClassificatie.cls.xml	(.../DataMHoofdgroepClassificatie.cls.xml)	(revision 939)
@@ -1,10 +1,9 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel) 5.0.21 (Build 6408U)" ts="2011-03-14 13:15:39">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-10 11:06:17">
 <Class name="DOM.PM.impl.DataM.DataMHoofdgroepClassificatie">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>DOM.PM.Classificatie,%RegisteredObject</Super>
-<TimeChanged>62164,47740.009038</TimeChanged>
-<TimeCreated>62159,61822.287586</TimeCreated>
+<TimeChanged>62160,40051.971501</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="SortSleutel">
@@ -61,13 +60,12 @@
 <ReturnType>TECH.Iterator</ReturnType>
 <Implementation><![CDATA[
 	Set ClassificatieLijst = ##class(%ListOfObjects).%New()
-	Set Key = $Order(^KPGR1(""))
-	While (Key '= "")
-	{
+	Set Key = $Order(^KPGR1(..SortSleutel))
+	Set SortSleutel = $ZSTRIP(..SortSleutel,"*W")
+	While (Key [ SortSleutel)
+	{		
 		Set Groep = ##class(DOM.PM.impl.DataM.DataMGroepClassificatie).%New(Key)
-		If ($E(Key,1,$L(..SortSleutel)-1)_" " = ..SortSleutel){
-			Do ClassificatieLijst.Insert(Groep)
-		}
+		Do ClassificatieLijst.Insert(Groep)
 		Set Key = $Order(^KPGR1(Key))	
 	}	
 	Quit ##class(TECH.ListIterator).%New(ClassificatieLijst)
@@ -85,5 +83,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="757653658"/>
+<Checksum value="1319552536"/>
 </Export>
Index: DOM/PM/impl/ProductImpl.cls.xml
===================================================================
diff -u -r937 -r939
--- DOM/PM/impl/ProductImpl.cls.xml	(.../ProductImpl.cls.xml)	(revision 937)
+++ DOM/PM/impl/ProductImpl.cls.xml	(.../ProductImpl.cls.xml)	(revision 939)
@@ -1,9 +1,9 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel) 5.0.21 (Build 6408U)" ts="2011-03-14 12:12:34">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-14 14:45:16">
 <Class name="DOM.PM.impl.ProductImpl">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject,DOM.PM.Product</Super>
-<TimeChanged>62164,43954.695222</TimeChanged>
+<TimeChanged>62164,53194.873443</TimeChanged>
 <TimeCreated>62129,41516.717135</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
@@ -84,11 +84,17 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsStockOverKinderen">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..Product.IsStockOverKinderen()
+]]></Implementation>
+</Method>
+
 <Method name="GeefMultipleGroepen">
 <ReturnType>TECH.Iterator</ReturnType>
 <Implementation><![CDATA[	Quit ..Product.GeefMultipleGroepen()
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="3589293068"/>
+<Checksum value="2387999160"/>
 </Export>
Index: DOM/PM/impl/DataM/DataMProduct.cls.xml
===================================================================
diff -u -r937 -r939
--- DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 937)
+++ DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 939)
@@ -1,10 +1,10 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel) 5.0.21 (Build 6408U)" ts="2011-03-14 12:31:37">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-14 14:48:51">
 <Class name="DOM.PM.impl.DataM.DataMProduct">
 <IncludeCode>BL.Kenm.Common</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62164,45096.985816</TimeChanged>
+<TimeChanged>62164,53409.503372</TimeChanged>
 <TimeCreated>62159,61822.534455</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
@@ -185,6 +185,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsStockOverKinderen">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit $data(^PRBS("BS",..ProductNummer))>0
+]]></Implementation>
+</Method>
+
 <Method name="GeefMultipleGroepen">
 <ReturnType>TECH.Iterator</ReturnType>
 <Implementation><![CDATA[
@@ -204,5 +210,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="463500986"/>
+<Checksum value="2979579850"/>
 </Export>