Index: DOM/PM/impl/DataM/DataMProductClassificatie.cls.xml
===================================================================
diff -u -r937 -r994
--- DOM/PM/impl/DataM/DataMProductClassificatie.cls.xml	(.../DataMProductClassificatie.cls.xml)	(revision 937)
+++ DOM/PM/impl/DataM/DataMProductClassificatie.cls.xml	(.../DataMProductClassificatie.cls.xml)	(revision 994)
@@ -1,21 +1,27 @@
 <?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 11:41:05">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-06 14:35:54">
 <Class name="DOM.PM.impl.DataM.DataMProductClassificatie">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>DOM.PM.ProductClassificatie,%RegisteredObject</Super>
-<TimeChanged>62164,42065.033852</TimeChanged>
+<TimeChanged>62187,52559.929191</TimeChanged>
 <TimeCreated>62159,61823.272971</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="ProductNummer">
 <Type>%Integer</Type>
+<Private>1</Private>
 </Property>
 
 <Property name="Data">
 <Type>%String</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="Classificatie">
+<Type>DOM.PM.Classificatie</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>ProductNummer:%Integer</FormalSpec>
 <Private>1</Private>
@@ -27,6 +33,17 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefClassificatie">
+<ReturnType>DOM.PM.Classificatie</ReturnType>
+<Implementation><![CDATA[
+	If ('$IsObject(..Classificatie))
+	{
+		Set ..Classificatie = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefClassificatie($P(..Data,"\",4))
+	}
+	Quit ..Classificatie
+]]></Implementation>
+</Method>
+
 <Method name="GeefHoofdGroep">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit $P(..Data,"\",1)
@@ -50,11 +67,17 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	If (i%Data = "") {
-		Set i%Data = ^KPR(..ProductNummer,"I1")
+		Set Inode=$O(^KPR(..ProductNummer,"I"))   ; Geeft normaal gezien "I1" terug
+		If Inode="" {
+			Set i%Data=""
+		}
+		Else {
+			Set i%Data = ^KPR(..ProductNummer,Inode)
+		}
 	}
 	Quit i%Data
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="1764311388"/>
+<Checksum value="922441536"/>
 </Export>