Index: DOM/CRM/impl/DataM/DataMKlant.cls.xml
===================================================================
diff -u -r1125 -r1328
--- DOM/CRM/impl/DataM/DataMKlant.cls.xml	(.../DataMKlant.cls.xml)	(revision 1125)
+++ DOM/CRM/impl/DataM/DataMKlant.cls.xml	(.../DataMKlant.cls.xml)	(revision 1328)
@@ -36,6 +36,11 @@
 <Default>5</Default>
 </Parameter>
 
+<Parameter name="Node7">
+<Type>%Integer</Type>
+<Default>7</Default>
+</Parameter>
+
 <Property name="Persisted">
 <Type>%Boolean</Type>
 <InitialExpression>"0"</InitialExpression>
@@ -102,6 +107,16 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Node7Dirty">
+<Type>%Boolean</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Node7Cached">
+<Type>%Boolean</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>KlantNummer:%Integer</FormalSpec>
 <ReturnType>%Status</ReturnType>
@@ -114,6 +129,7 @@
 	Set ..BetalingsGegevens3Dirty = 1
 	Set ..Opmerkingen1Dirty = 1
 	Set ..Opmerkingen2Dirty = 1
+	Set ..Node7Dirty = 1
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -131,6 +147,7 @@
 		Set ..BetalingsGegevens3Dirty = 0		
 		Set ..Opmerkingen1Dirty = 0
 		Set ..Opmerkingen2Dirty = 0
+		Set ..Node7Dirty = 0
 	}Else{
 		Set Status = '($$$OK)
 	}
@@ -146,7 +163,7 @@
 		$$$ThrowError($$$errGeneralError,"Er is geen KlantNummer ingevuld, kan object niet saven.")	
 	}
 	
-	If (..AlgemeneGegevensDirty || ..BetalingsGegevens2Dirty || ..BetalingsGegevens3Dirty || ..Opmerkingen1Dirty || ..Opmerkingen2Dirty)
+	If (..AlgemeneGegevensDirty || ..BetalingsGegevens2Dirty || ..BetalingsGegevens3Dirty || ..Opmerkingen1Dirty || ..Opmerkingen2Dirty || ..Node7Dirty)
 	{
 		Set OudeKlantIndex = $PIECE(^DKL("K","KL.A",..KlantNummer,0),"\",31)
 		
@@ -243,6 +260,13 @@
 			Set ^DKL("K","KL.A",..KlantNummer,..#Opmerkingen2Node) = ..Opmerkingen2
 			Set ^KKL(..GeefKlantIndexKKL(),..#Opmerkingen2Node) = ..Opmerkingen2	
 		}
+		If (..Node7Dirty){
+			Set OudeNode7 = ^DKL("K","KL.A",..KlantNummer,..#Node7)
+			Do ..LogWijzigingen(..KlantNummer, ..#Node7, OudeNode7, ..Node7Data)
+			
+			Set ^DKL("K","KL.A",..KlantNummer,..#Node7) = ..Node7Data
+			Set ^KKL(..GeefKlantIndexKKL(),..#Node7) = ..Node7Data
+		}
 		
 		/// Event raisen dat klant gewijzigd is.
 		Do ##class(APPS.CRM.KlantService).RaiseWijzigEvent(..KlantNummer)
@@ -316,6 +340,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Node7Gewijzigd">
+<Implementation><![CDATA[
+	Set ..Node7Dirty = 1
+	Set ..Node7Cached = 1
+]]></Implementation>
+</Method>
+
 <UDLText name="T">
 <Content><![CDATA[
 // [ JCL ] => vraag voor FRANK of PIETER 
@@ -408,5 +439,17 @@
 	Quit i%Opmerkingen2
 ]]></Implementation>
 </Method>
+
+<Method name="Node7DataGet">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	If (..Persisted && ('..Node7Cached)){
+		Set i%Node7Data = ^DKL("K","KL.A",..KlantNummer,..#Node7)
+		Set Node7Cached = 1
+	}
+	Quit i%Node7Data
+]]></Implementation>
+</Method>
 </Class>
 </Export>