Index: DOM/CRM/impl/DataM/DataMKlant.cls.xml
===================================================================
diff -u -r950 -r966
--- DOM/CRM/impl/DataM/DataMKlant.cls.xml	(.../DataMKlant.cls.xml)	(revision 950)
+++ DOM/CRM/impl/DataM/DataMKlant.cls.xml	(.../DataMKlant.cls.xml)	(revision 966)
@@ -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 10:43:00">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-24 17:19:51">
 <Class name="DOM.CRM.impl.DataM.DataMKlant">
 <IncludeCode>TECH.Error</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>DOM.CRM.impl.DataM.DataMKlantBase</Super>
-<TimeChanged>62174,38666.977193</TimeChanged>
+<TimeChanged>62174,62477.197921</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Parameter name="AlgemeneGegevensNode">
@@ -22,7 +22,7 @@
 <Default>2</Default>
 </Parameter>
 
-<Parameter name="Opmerkigen2Node">
+<Parameter name="Opmerkingen2Node">
 <Type>%Integer</Type>
 <Default>4</Default>
 </Parameter>
@@ -147,10 +147,10 @@
 			
 			/// Nieuwe gegevens in de global wegschrijven
 			Set ^DKL("K","KL.A",..KlantNummer,..#AlgemeneGegevensNode) = ..AlgemeneGegevens		
-			Set ^KKL(..GeefKlantIndex(),..#AlgemeneGegevensNode) = ..AlgemeneGegevens		
+			Set ^KKL(..GeefKlantIndexKKL(),..#AlgemeneGegevensNode) = ..AlgemeneGegevens		
 			
 			/// In KKL moet alles verplaatst worden
-			Do ..IndexGewijzigd(IndexUpdated, OudeKlantIndex)
+			//Do ..IndexGewijzigd(IndexUpdated, OudeKlantIndex)
 			
 			/// De vhisie-accounts verwijderen voor deze klant. 
 			If (..ActiefChanged){
@@ -160,25 +160,22 @@
 					..GeefActiefStatus() = ##class(DOM.CRM.enu.ActiefStatus).Verwijderd())
 				{
 					/// vhisie accounts verwijderen
-					Do V6^KCOAK(..GeefKlantIndex())
+					Do V6^KCOAK(..GeefKlantIndexKKL())
 				}
 			}
 		}
 		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
+			Set ^KKL(..GeefKlantIndexKKL(),..#BetalingsGegevens1Node) = ..BetalingsGegevens1
 			
 			/// In KKL moet alles verplaatst worden
 			Do ..IndexGewijzigd(IndexUpdated, OudeKlantIndex)
@@ -189,14 +186,14 @@
 			Do ..LogWijzigingen(..KlantNummer, ..#BetalingsGegevens2Node, OudeBetalingsGegevens, ..BetalingsGegevens2)
 			
 			Set ^DKL("K","KL.A",..KlantNummer,..#BetalingsGegevens2Node) = ..BetalingsGegevens2	
-			Set ^KKL(..GeefKlantIndex(),..#BetalingsGegevens2Node) = ..BetalingsGegevens2			
+			Set ^KKL(..GeefKlantIndexKKL(),..#BetalingsGegevens2Node) = ..BetalingsGegevens2			
 		}
 		If (..Opmerkingen2Dirty){
-			Set OudeOpmerkigen2 = ^DKL("K","KL.A",..KlantNummer,..#Opmerkigen2Node)
-			Do ..LogWijzigingen(..KlantNummer, ..#Opmerkigen2Node, OudeOpmerkigen2, ..Opmerkingen2)
+			Set OudeOpmerkigen2 = ^DKL("K","KL.A",..KlantNummer,..#Opmerkingen2Node)
+			Do ..LogWijzigingen(..KlantNummer, ..#Opmerkingen2Node, OudeOpmerkigen2, ..Opmerkingen2)
 			
-			Set ^DKL("K","KL.A",..KlantNummer,..#Opmerkigen2Node) = ..Opmerkingen2
-			Set ^KKL(..GeefKlantIndex(),..#Opmerkigen2Node) = ..Opmerkingen2	
+			Set ^DKL("K","KL.A",..KlantNummer,..#Opmerkingen2Node) = ..Opmerkingen2
+			Set ^KKL(..GeefKlantIndexKKL(),..#Opmerkingen2Node) = ..Opmerkingen2	
 		}
 	}
 	Quit $$$OK
@@ -209,7 +206,7 @@
 Hier specifiek in KKL de nodes overkopiëren.</Description>
 <FormalSpec>IndexUpdated:%Boolean,OudeKlantIndex:%String</FormalSpec>
 <Implementation><![CDATA[
-	Set KlantIndex = ..GeefKlantIndex()
+	Set KlantIndex = ..GeefKlantIndexKKL()
 	Set KlantNummer = ..GeefNummer()
 	Merge ^KKL(KlantIndex) = ^KKL(OudeKlantIndex) //^DKL("K","KL.A",KlantNummer) 
 	Kill ^KKL(OudeKlantIndex)
@@ -223,10 +220,11 @@
 <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))
+	{  If (($Piece(OudeGegevens,"\",Piece) '= $Piece(NieuweGegevens,"\",Piece)) && ((OverTeSlagenPieces = "") ||(OverTeSlagenPieces.Find(Piece) = ""))){	
+			Set NodePiece = (Node+1)_$$LeftPad^vhLib(Piece,2)
+			Set OudGegeven = $Piece(OudeGegevens,"\",Piece)
+			Set NieuwGegeven = $Piece(NieuweGegevens,"\",Piece)
+			Do DLOGMOD^LOG("KL",KlantNummer,NodePiece,OudGegeven,NieuwGegeven)
 		}
 	}
 ]]></Implementation>
@@ -260,12 +258,33 @@
 ]]></Implementation>
 </Method>
 
+<UDLText name="T">
+<Content><![CDATA[
+// [ JCL ] => vraag voor FRANK of PIETER 
+
+]]></Content>
+</UDLText>
+
+<UDLText name="T">
+<Content><![CDATA[
+// properties best definiëren als calculated methods
+
+]]></Content>
+</UDLText>
+
+<UDLText name="T">
+<Content><![CDATA[
+// raar dat definitie en implementatie van private properties in verschillende klassen zit..
+
+]]></Content>
+</UDLText>
+
 <Method name="AlgemeneGegevensGet">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	If (..Persisted && ('..AlgemeneGegevensCached)){
-		Set i%AlgemeneGegevens = $Get(^DKL("K","KL.A",..KlantNummer,0))
+		Set i%AlgemeneGegevens = ^DKL("K","KL.A",..KlantNummer,0)
 		Set AlgemeneGegevensCached = 1
 	}
 	Quit i%AlgemeneGegevens
@@ -278,6 +297,7 @@
 <Implementation><![CDATA[
 	If (..Persisted && ('..BetalingsGegevens1Cached)){
 		Set i%BetalingsGegevens1 = ^DKL("K","KL.A",..KlantNummer,1)
+		Set BetalingsGegevens1Cached = 1
 	}
 	Quit i%BetalingsGegevens1
 ]]></Implementation>
@@ -289,6 +309,7 @@
 <Implementation><![CDATA[
 	If (..Persisted && ('..BetalingsGegevens2Cached)){
 		Set i%BetalingsGegevens2 = ^DKL("K","KL.A",..KlantNummer,2)
+		Set BetalingsGegevens2Cached = 1
 	}
 	Quit i%BetalingsGegevens2
 ]]></Implementation>
@@ -311,6 +332,7 @@
 <Implementation><![CDATA[
 	If (i%Opmerkingen1 = "") {
 		Set i%Opmerkingen1 = ^DKL("K","KL.A",..KlantNummer,4)
+		Set Opmerkingen1Cached = 1
 	}
 	Quit i%Opmerkingen1
 ]]></Implementation>
@@ -322,10 +344,11 @@
 <Implementation><![CDATA[
 	If (..Persisted && ('..Opmerkingen2Cached)){
 		Set i%Opmerkingen2 = ^DKL("K","KL.A",..KlantNummer,5)
+		Set Opmerkingen2Cached = 1
 	}
 	Quit i%Opmerkingen2
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="3255120328"/>
+<Checksum value="425056625"/>
 </Export>