Index: DOM/CRM/impl/DataM/DataMKlant.cls.xml
===================================================================
diff -u -r966 -r994
--- DOM/CRM/impl/DataM/DataMKlant.cls.xml	(.../DataMKlant.cls.xml)	(revision 966)
+++ DOM/CRM/impl/DataM/DataMKlant.cls.xml	(.../DataMKlant.cls.xml)	(revision 994)
@@ -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-03-24 17:19:51">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-05 11:47:26">
 <Class name="DOM.CRM.impl.DataM.DataMKlant">
 <IncludeCode>TECH.Error</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>DOM.CRM.impl.DataM.DataMKlantBase</Super>
-<TimeChanged>62174,62477.197921</TimeChanged>
+<TimeChanged>62186,42451.296869</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Parameter name="AlgemeneGegevensNode">
@@ -22,11 +22,21 @@
 <Default>2</Default>
 </Parameter>
 
-<Parameter name="Opmerkingen2Node">
+<Parameter name="BetalingsGegevens3Node">
 <Type>%Integer</Type>
+<Default>3</Default>
+</Parameter>
+
+<Parameter name="Opmerkingen1Node">
+<Type>%Integer</Type>
 <Default>4</Default>
 </Parameter>
 
+<Parameter name="Opmerkingen2Node">
+<Type>%Integer</Type>
+<Default>5</Default>
+</Parameter>
+
 <Property name="Persisted">
 <Type>%Boolean</Type>
 <InitialExpression>"0"</InitialExpression>
@@ -63,6 +73,26 @@
 <Private>1</Private>
 </Property>
 
+<Property name="BetalingsGegevens3Dirty">
+<Type>%Boolean</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="BetalingsGegevens3Cached">
+<Type>%Boolean</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Opmerkingen1Dirty">
+<Type>%Boolean</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Opmerkingen1Cached">
+<Type>%Boolean</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="Opmerkingen2Dirty">
 <Type>%Boolean</Type>
 <Private>1</Private>
@@ -82,6 +112,8 @@
 	Set ..AlgemeneGegevensDirty = 1
 	Set ..BetalingsGegevens1Dirty = 1
 	Set ..BetalingsGegevens2Dirty = 1
+	Set ..BetalingsGegevens3Dirty = 1
+	Set ..Opmerkingen1Dirty = 1
 	Set ..Opmerkingen2Dirty = 1
 	Quit $$$OK
 ]]></Implementation>
@@ -97,6 +129,8 @@
 		Set ..AlgemeneGegevensDirty = 0
 		Set ..BetalingsGegevens1Dirty = 0
 		Set ..BetalingsGegevens2Dirty = 0		
+		Set ..BetalingsGegevens3Dirty = 0		
+		Set ..Opmerkingen1Dirty = 0
 		Set ..Opmerkingen2Dirty = 0
 	}Else{
 		Set Status = '($$$OK)
@@ -113,8 +147,7 @@
 		$$$ThrowError($$$errGeneralError,"Er is geen KlantNummer ingevuld, kan object niet saven.")	
 	}
 	
-	
-	If (..AlgemeneGegevensDirty || ..BetalingsGegevens2Dirty || ..Opmerkingen2Dirty)
+	If (..AlgemeneGegevensDirty || ..BetalingsGegevens2Dirty || ..BetalingsGegevens3Dirty || ..Opmerkingen1Dirty || ..Opmerkingen2Dirty)
 	{
 		Set OudeKlantIndex = $PIECE(^DKL("K","KL.A",..KlantNummer,0),"\",31)
 		
@@ -188,6 +221,20 @@
 			Set ^DKL("K","KL.A",..KlantNummer,..#BetalingsGegevens2Node) = ..BetalingsGegevens2	
 			Set ^KKL(..GeefKlantIndexKKL(),..#BetalingsGegevens2Node) = ..BetalingsGegevens2			
 		}
+		If (..BetalingsGegevens3Dirty){			
+			Set OudeBetalingsGegevens = ^DKL("K","KL.A",..KlantNummer,..#BetalingsGegevens3Node)
+			Do ..LogWijzigingen(..KlantNummer, ..#BetalingsGegevens3Node, OudeBetalingsGegevens, ..BetalingsGegevens3)
+			
+			Set ^DKL("K","KL.A",..KlantNummer,..#BetalingsGegevens3Node) = ..BetalingsGegevens3	
+			Set ^KKL(..GeefKlantIndexKKL(),..#BetalingsGegevens3Node) = ..BetalingsGegevens3		
+		}
+		If (..Opmerkingen1Dirty){
+			Set OudeOpmerkigen1 = ^DKL("K","KL.A",..KlantNummer,..#Opmerkingen1Node)
+			Do ..LogWijzigingen(..KlantNummer, ..#Opmerkingen1Node, OudeOpmerkigen1, ..Opmerkingen1)
+			
+			Set ^DKL("K","KL.A",..KlantNummer,..#Opmerkingen1Node) = ..Opmerkingen1
+			Set ^KKL(..GeefKlantIndexKKL(),..#Opmerkingen1Node) = ..Opmerkingen1
+		}
 		If (..Opmerkingen2Dirty){
 			Set OudeOpmerkigen2 = ^DKL("K","KL.A",..KlantNummer,..#Opmerkingen2Node)
 			Do ..LogWijzigingen(..KlantNummer, ..#Opmerkingen2Node, OudeOpmerkigen2, ..Opmerkingen2)
@@ -251,6 +298,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BetalingsGegevens3Gewijzigd">
+<Implementation><![CDATA[
+	Set ..BetalingsGegevens3Dirty = 1
+	Set ..BetalingsGegevens3Cached = 1
+]]></Implementation>
+</Method>
+
 <Method name="Opmerkingen2Gewijzigd">
 <Implementation><![CDATA[
 	Set ..Opmerkingen2Dirty = 1
@@ -315,22 +369,23 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Data3Get">
+<Method name="BetalingsGegevens3Get">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	If (i%Data3 = "") {
-		Set i%Data3 = ^DKL("K","KL.A",..KlantNummer,3)
+	If (..Persisted && ('..BetalingsGegevens3Cached)){
+		Set i%BetalingsGegevens3 = ^DKL("K","KL.A",..KlantNummer,..#BetalingsGegevens3Node)
+		Set BetalingsGegevens3Cached = 1
 	}
-	Quit i%Data3
+	Quit i%BetalingsGegevens3
 ]]></Implementation>
 </Method>
 
 <Method name="Opmerkingen1Get">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	If (i%Opmerkingen1 = "") {
+	If (..Persisted && ('..Opmerkingen1Cached)){
 		Set i%Opmerkingen1 = ^DKL("K","KL.A",..KlantNummer,4)
 		Set Opmerkingen1Cached = 1
 	}
@@ -350,5 +405,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="425056625"/>
+<Checksum value="2682519853"/>
 </Export>