Index: DOM/CRM/impl/DataM/DataMKlant.cls.xml
===================================================================
diff -u -r946 -r948
--- DOM/CRM/impl/DataM/DataMKlant.cls.xml	(.../DataMKlant.cls.xml)	(revision 946)
+++ DOM/CRM/impl/DataM/DataMKlant.cls.xml	(.../DataMKlant.cls.xml)	(revision 948)
@@ -1,12 +1,17 @@
 <?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-23 09:58:32">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-23 10:21:45">
 <Class name="DOM.CRM.impl.DataM.DataMKlant">
 <IncludeCode>TECH.Error</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>DOM.CRM.impl.DataM.DataMKlantBase</Super>
-<TimeChanged>62173,35998.059502</TimeChanged>
+<TimeChanged>62173,37391.024101</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
+<Parameter name="AlgemeneGegevensNode">
+<Type>%Integer</Type>
+<Default>0</Default>
+</Parameter>
+
 <Property name="Persisted">
 <Type>%Boolean</Type>
 <InitialExpression>"0"</InitialExpression>
@@ -78,16 +83,26 @@
 <Implementation><![CDATA[
 	If (..KlantNummer = "") $$$ThrowError($$$errGeneralError,"Er is geen KlantNummer ingevuld, kan object niet saven.")	
 	If (..AlgemeneGegevensDirty) {
-		Set ^DKL("K","KL.A",..KlantNummer,0) = ..AlgemeneGegevens		
-		/// Status van actief/buitengebruik/verwijderd wijzigen
-		/// Hierbij worden achterliggend ook de vhisie-accounts verwijderd van deze klant. 
+		/// Gegevens terug ophalen uit global
+		Set OudeAlgemeneGegevens = ^DKL("K","KL.A",..KlantNummer,0)
+		
+		/// Nieuwe gegevens in de global wegschrijven
+		Set ^DKL("K","KL.A",..KlantNummer,..#AlgemeneGegevensNode) = ..AlgemeneGegevens		
+		
+		For Piece=1:1:$Length(OudeAlgemeneGegevens,"\")
+		{
+			If ($Piece(OudeAlgemeneGegevens,Piece) '= $Piece(..AlgemeneGegevens,Piece)){
+				w "DLOGMOD^LOG('KL',",..KlantNummer,",",(..#AlgemeneGegevensNode+1)_Piece,",",$Piece(OudeAlgemeneGegevens,Piece),",",$Piece(..AlgemeneGegevens,Piece),")",!
+				Do DLOGMOD^LOG("KL",..KlantNummer,(..#AlgemeneGegevensNode+1)_Piece,$Piece(OudeAlgemeneGegevens,Piece),$Piece(..AlgemeneGegevens,Piece))
+			}
+		}
+		
+		/// De vhisie-accounts verwijderen voor deze klant. 
 		If (..ActiefChanged){
 			Set ..ActiefChanged = 0
 			/// vhisie accounts verwijderen
-			Do V6^KCOAK(..GeefKlantIndex())
+			//Do V6^KCOAK(..GeefKlantIndex())
 		}
-		
-		///Do DLOGMOD^LOG("KL",1000,310,"0","1")
 	}
 	If (..BetalingsGegevens2Dirty){
 		Set ^DKL("K","KL.A",..KlantNummer,2) = ..BetalingsGegevens2		
@@ -187,5 +202,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="3343300892"/>
+<Checksum value="3803795389"/>
 </Export>