Index: DOM/PM/impl/DataM/DataMProduct.cls.xml
===================================================================
diff -u -r48031 -r48324
--- DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 48031)
+++ DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 48324)
@@ -31,6 +31,16 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Data4">
+<Type>TECH.Persistentie.GlobalNode</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Data5">
+<Type>TECH.Persistentie.GlobalNode</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="Data15">
 <Type>TECH.Persistentie.GlobalNode</Type>
 <Private>1</Private>
@@ -118,13 +128,13 @@
 	#dim IsGewijzigdProduct As %Boolean = 0
 	
 	#dim NodeIndex As %String
-	For NodeIndex = 0,1,2,3,15,"I1","J","G" {
+	For NodeIndex = 0,1,2,3,4,5,15,"I1","J","G" {
 		Set:IsGewijzigdProduct=0 IsGewijzigdProduct = $method($property($this,"Data"_NodeIndex),"IsGewijzigd")
 	}
 	/* check voor gewijzigde leverancier ? -> subscript van de j-node wijzigt dan. */
 	
 	If IsGewijzigdProduct {
-		For NodeIndex = 0,1,2,3,15,"I1","J","G" {
+		For NodeIndex = 0,1,2,3,4,5,15,"I1","J","G" {
 			Do $method($property($this,"Data"_NodeIndex),"Save")
 		}	
 		Do BLDIND^PRODUKT2(..ProductNummer)
@@ -890,6 +900,28 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Data4Get">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	If (r%Data4 = "") {
+		Set r%Data4 = ..PersistentMgr.GeefNode("^KPR",..ProductNummer,4)
+	}
+	Quit r%Data4
+]]></Implementation>
+</Method>
+
+<Method name="Data5Get">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	If (r%Data5 = "") {
+		Set r%Data5 = ..PersistentMgr.GeefNode("^KPR",..ProductNummer,5)
+	}
+	Quit r%Data5
+]]></Implementation>
+</Method>
+
 <Method name="Data15Get">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>