Index: DOM/PM/impl/DataM/DataMProduct.cls.xml
===================================================================
diff -u -r1012 -r1047
--- DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 1012)
+++ DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 1047)
@@ -1,10 +1,10 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-12 13:38:10">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-20 11:59:11">
 <Class name="DOM.PM.impl.DataM.DataMProduct">
 <IncludeCode>BL.Kenm.Common</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62193,49101.267172</TimeChanged>
+<TimeChanged>62201,43168.196587</TimeChanged>
 <TimeCreated>62159,61822.534455</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
@@ -23,6 +23,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Data15">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="DataJ">
 <Type>%String</Type>
 <Private>1</Private>
@@ -88,6 +93,17 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Data15Get">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	If (i%Data15 = "") {
+		Set i%Data15 = $Get(^KPR(..ProductNummer,15))
+	}
+	Quit i%Data15
+]]></Implementation>
+</Method>
+
 <Method name="DataJGet">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
@@ -218,7 +234,7 @@
 <Method name="GeefBerekeningsSpecificatie">
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie</ReturnType>
 <Implementation><![CDATA[
-	Set ID = $Piece(^KPR(..ProductNummer,15),"\",14)
+	Set ID = $Piece(..Data15,"\",14)
 	Set BerekeningsSpecificatie = ""
 	If (ID '= "")
 	{
@@ -239,7 +255,7 @@
 <Method name="GeefProductSpecificatie">
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie</ReturnType>
 <Implementation><![CDATA[
-	Set ID = $Piece(^KPR(..ProductNummer,15),"\",13)
+	Set ID = $Piece(..Data15,"\",13)
 	Set ProductSpecificatie = ""
 	If (ID '= "")
 	{
@@ -334,5 +350,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="1135376779"/>
+<Checksum value="4272982082"/>
 </Export>