Index: DOM/CRM/impl/DataM/DataMKlant.cls.xml
===================================================================
diff -u -r948 -r950
--- DOM/CRM/impl/DataM/DataMKlant.cls.xml	(.../DataMKlant.cls.xml)	(revision 948)
+++ DOM/CRM/impl/DataM/DataMKlant.cls.xml	(.../DataMKlant.cls.xml)	(revision 950)
@@ -1,17 +1,32 @@
 <?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 10:21:45">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-24 10:43:00">
 <Class name="DOM.CRM.impl.DataM.DataMKlant">
 <IncludeCode>TECH.Error</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>DOM.CRM.impl.DataM.DataMKlantBase</Super>
-<TimeChanged>62173,37391.024101</TimeChanged>
+<TimeChanged>62174,38666.977193</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Parameter name="AlgemeneGegevensNode">
 <Type>%Integer</Type>
 <Default>0</Default>
 </Parameter>
 
+<Parameter name="BetalingsGegevens1Node">
+<Type>%Integer</Type>
+<Default>1</Default>
+</Parameter>
+
+<Parameter name="BetalingsGegevens2Node">
+<Type>%Integer</Type>
+<Default>2</Default>
+</Parameter>
+
+<Parameter name="Opmerkigen2Node">
+<Type>%Integer</Type>
+<Default>4</Default>
+</Parameter>
+
 <Property name="Persisted">
 <Type>%Boolean</Type>
 <InitialExpression>"0"</InitialExpression>
@@ -28,6 +43,16 @@
 <Private>1</Private>
 </Property>
 
+<Property name="BetalingsGegevens1Dirty">
+<Type>%Boolean</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="BetalingsGegevens1Cached">
+<Type>%Boolean</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="BetalingsGegevens2Dirty">
 <Type>%Boolean</Type>
 <Private>1</Private>
@@ -55,6 +80,7 @@
 	Do ##super(KlantNummer)
 	Set ..Persisted = 0
 	Set ..AlgemeneGegevensDirty = 1
+	Set ..BetalingsGegevens1Dirty = 1
 	Set ..BetalingsGegevens2Dirty = 1
 	Set ..Opmerkingen2Dirty = 1
 	Quit $$$OK
@@ -69,6 +95,7 @@
 	{
 		Set ..Persisted = 1
 		Set ..AlgemeneGegevensDirty = 0
+		Set ..BetalingsGegevens1Dirty = 0
 		Set ..BetalingsGegevens2Dirty = 0		
 		Set ..Opmerkingen2Dirty = 0
 	}Else{
@@ -81,46 +108,144 @@
 <Method name="Save">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	If (..KlantNummer = "") $$$ThrowError($$$errGeneralError,"Er is geen KlantNummer ingevuld, kan object niet saven.")	
-	If (..AlgemeneGegevensDirty) {
-		/// Gegevens terug ophalen uit global
-		Set OudeAlgemeneGegevens = ^DKL("K","KL.A",..KlantNummer,0)
+	If (..KlantNummer = "") 
+	{
+		$$$ThrowError($$$errGeneralError,"Er is geen KlantNummer ingevuld, kan object niet saven.")	
+	}
+	
+	
+	If (..AlgemeneGegevensDirty || ..BetalingsGegevens2Dirty || ..Opmerkingen2Dirty)
+	{
+		Set OudeKlantIndex = $PIECE(^DKL("K","KL.A",..KlantNummer,0),"\",31)
 		
-		/// Nieuwe gegevens in de global wegschrijven
-		Set ^DKL("K","KL.A",..KlantNummer,..#AlgemeneGegevensNode) = ..AlgemeneGegevens		
+		/// Bijhouden wie laatst gegevens gewijzigd heeft en op welk tijdstip dit gebeurde
+		Do ..ZetInitialenLaatsteWijziging($Get(QU,"SYS"))
+		Do ..ZetTijdstipLaatsteWijziging($h)
 		
-		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))
+		If (..AlgemeneGegevensDirty) {
+			/// Gegevens terug ophalen uit global
+			Set OudeAlgemeneGegevens = ^DKL("K","KL.A",..KlantNummer,0)
+			Set OverTeSlagenPieces = ##class(%ListOfDataTypes).%New()
+			Do OverTeSlagenPieces.Insert(28) /// Tijdstip laatste wijziging overslaan bij controle
+			Do OverTeSlagenPieces.Insert(29) /// Initalen gebruik van laatste wijziging overslaan bij controle
+			
+			Do ..LogWijzigingen(..KlantNummer, ..#AlgemeneGegevensNode, OudeAlgemeneGegevens, ..AlgemeneGegevens,OverTeSlagenPieces)
+			
+			/// Indexen updaten indien nodig
+			Set IndexUpdated = 0
+			If ( (..GeefNaam() '= $Piece(OudeAlgemeneGegevens,"\",2)) || 
+				(..GeefAdres().GeefStraat() '= $Piece(OudeAlgemeneGegevens,"\",5)) || 
+				(..GeefAdres().GeefPostcode() '= $Piece(OudeAlgemeneGegevens,"\",6)) || 
+				(..GeefAdres().GeefGemeente() '= $Piece(OudeAlgemeneGegevens,"\",7)) || 
+				(..GeefTelefoon1() '= $Piece(OudeAlgemeneGegevens,"\",13)) || 
+				(..GeefBTWNr() '= $Piece(OudeAlgemeneGegevens,"\",16)))
+			{
+				Do ..VerwijderIndexen()
+				Do ..BouwIndexenOp()
+				Set IndexUpdated = 1
 			}
+			
+			/// Nieuwe gegevens in de global wegschrijven
+			Set ^DKL("K","KL.A",..KlantNummer,..#AlgemeneGegevensNode) = ..AlgemeneGegevens		
+			Set ^KKL(..GeefKlantIndex(),..#AlgemeneGegevensNode) = ..AlgemeneGegevens		
+			
+			/// In KKL moet alles verplaatst worden
+			Do ..IndexGewijzigd(IndexUpdated, OudeKlantIndex)
+			
+			/// De vhisie-accounts verwijderen voor deze klant. 
+			If (..ActiefChanged){
+				Set ..ActiefChanged = 0
+				/// Als klant verwijderd wordt of buiten gebruikt gezet wordt dan pas verwijderen
+				If (..GeefActiefStatus() = ##class(DOM.CRM.enu.ActiefStatus).BuitenGebruik() ||	
+					..GeefActiefStatus() = ##class(DOM.CRM.enu.ActiefStatus).Verwijderd())
+				{
+					/// vhisie accounts verwijderen
+					Do V6^KCOAK(..GeefKlantIndex())
+				}
+			}
 		}
-		
-		/// De vhisie-accounts verwijderen voor deze klant. 
-		If (..ActiefChanged){
-			Set ..ActiefChanged = 0
-			/// vhisie accounts verwijderen
-			//Do V6^KCOAK(..GeefKlantIndex())
+		If (..BetalingsGegevens1Dirty){			
+			Set OudeBetalingsGegevens = ^DKL("K","KL.A",..KlantNummer,..#BetalingsGegevens1Node)
+			Do ..LogWijzigingen(..KlantNummer, ..#BetalingsGegevens1Node, OudeBetalingsGegevens, ..BetalingsGegevens1)
+			
+			/// Indexen updaten indien nodig
+			Set IndexUpdated = 0
+			If (..GeefTKFax() '= $Piece(OudeBetalingsGegevens,"\",26))
+			{
+				Do ..VerwijderIndexen()
+				Do ..BouwIndexenOp()
+				Set IndexUpdated = 1
+			}	
+			
+			Set ^DKL("K","KL.A",..KlantNummer,..#BetalingsGegevens1Node) = ..BetalingsGegevens1
+			Set ^KKL(..GeefKlantIndex(),..#BetalingsGegevens1Node) = ..BetalingsGegevens1
+			
+			/// In KKL moet alles verplaatst worden
+			Do ..IndexGewijzigd(IndexUpdated, OudeKlantIndex)
+				
 		}
+		If (..BetalingsGegevens2Dirty){			
+			Set OudeBetalingsGegevens = ^DKL("K","KL.A",..KlantNummer,..#BetalingsGegevens2Node)
+			Do ..LogWijzigingen(..KlantNummer, ..#BetalingsGegevens2Node, OudeBetalingsGegevens, ..BetalingsGegevens2)
+			
+			Set ^DKL("K","KL.A",..KlantNummer,..#BetalingsGegevens2Node) = ..BetalingsGegevens2	
+			Set ^KKL(..GeefKlantIndex(),..#BetalingsGegevens2Node) = ..BetalingsGegevens2			
+		}
+		If (..Opmerkingen2Dirty){
+			Set OudeOpmerkigen2 = ^DKL("K","KL.A",..KlantNummer,..#Opmerkigen2Node)
+			Do ..LogWijzigingen(..KlantNummer, ..#Opmerkigen2Node, OudeOpmerkigen2, ..Opmerkingen2)
+			
+			Set ^DKL("K","KL.A",..KlantNummer,..#Opmerkigen2Node) = ..Opmerkingen2
+			Set ^KKL(..GeefKlantIndex(),..#Opmerkigen2Node) = ..Opmerkingen2	
+		}
 	}
-	If (..BetalingsGegevens2Dirty){
-		Set ^DKL("K","KL.A",..KlantNummer,2) = ..BetalingsGegevens2		
-	}
-	If (..Opmerkingen2Dirty){
-		Set ^DKL("K","KL.A",..KlantNummer,4) = ..Opmerkingen2
-	}
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
+<Method name="IndexGewijzigd">
+<Description>
+Als de index gewijzigd is nadien nog actief uitvoeren.
+Hier specifiek in KKL de nodes overkopiëren.</Description>
+<FormalSpec>IndexUpdated:%Boolean,OudeKlantIndex:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set KlantIndex = ..GeefKlantIndex()
+	Set KlantNummer = ..GeefNummer()
+	Merge ^KKL(KlantIndex) = ^KKL(OudeKlantIndex) //^DKL("K","KL.A",KlantNummer) 
+	Kill ^KKL(OudeKlantIndex)
+]]></Implementation>
+</Method>
+
+<Method name="LogWijzigingen">
+<Description>
+Telkens er een wijziging gebeurd, wordt hier voor één node iedere piece vergeleken tussen nieuwe en oude waarden.
+Indien er een waarde is veranderd, wordt dit gelogd.</Description>
+<FormalSpec>KlantNummer:%Integer,Node:%Integer,OudeGegevens:%String,NieuweGegevens:%String,OverTeSlagenPieces:%ListOfDataTypes=""</FormalSpec>
+<Implementation><![CDATA[
+	For Piece=1:1:$Length(OudeGegevens,"\")
+	{
+		If (($Piece(OudeGegevens,"\",Piece) '= $Piece(NieuweGegevens,"\",Piece)) && ((OverTeSlagenPieces = "") ||(OverTeSlagenPieces.Find(Piece) = ""))){
+			Set PieceB = $$LeftPad^vhLib(Piece,2)
+			Do DLOGMOD^LOG("KL",KlantNummer,(Node+1)_PieceB,$Piece(OudeGegevens,"\",Piece),$Piece(NieuweGegevens,"\",Piece))
+		}
+	}
+]]></Implementation>
+</Method>
+
 <Method name="AlgemeneGegevensGewijzigd">
 <Implementation><![CDATA[
 	Set ..AlgemeneGegevensDirty = 1
 	Set ..AlgemeneGegevensCached = 1
 ]]></Implementation>
 </Method>
 
+<Method name="BetalingsGegevens1Gewijzigd">
+<Implementation><![CDATA[
+	Set ..BetalingsGegevens1Dirty = 1
+	Set ..BetalingsGegevens1Cached = 1
+]]></Implementation>
+</Method>
+
 <Method name="BetalingsGegevens2Gewijzigd">
 <Implementation><![CDATA[
 	Set ..BetalingsGegevens2Dirty = 1
@@ -147,14 +272,14 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Data1Get">
+<Method name="BetalingsGegevens1Get">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	If (i%Data1 = "") {
-		Set i%Data1 = ^DKL("K","KL.A",..KlantNummer,1)
+	If (..Persisted && ('..BetalingsGegevens1Cached)){
+		Set i%BetalingsGegevens1 = ^DKL("K","KL.A",..KlantNummer,1)
 	}
-	Quit i%Data1
+	Quit i%BetalingsGegevens1
 ]]></Implementation>
 </Method>
 
@@ -202,5 +327,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="3803795389"/>
+<Checksum value="3255120328"/>
 </Export>