Index: DOM/CRM/impl/DataM/DataMKlant.cls.xml
===================================================================
diff -u -r1334 -r1850
--- DOM/CRM/impl/DataM/DataMKlant.cls.xml	(.../DataMKlant.cls.xml)	(revision 1334)
+++ DOM/CRM/impl/DataM/DataMKlant.cls.xml	(.../DataMKlant.cls.xml)	(revision 1850)
@@ -165,7 +165,7 @@
 	
 	If (..AlgemeneGegevensDirty || ..BetalingsGegevens1Dirty || ..BetalingsGegevens2Dirty || ..BetalingsGegevens3Dirty || ..Opmerkingen1Dirty || ..Opmerkingen2Dirty || ..Node7Dirty)
 	{
-		Set OudeKlantIndex = $PIECE(^DKL("K","KL.A",..KlantNummer,0),"\",31)
+		Set OudeKlantIndex = $PIECE(^DKL("K","KL.A",..KlantNummer,0),"\",50) // dit was piece 31, maar niet overal ingevuld.
 		
 		/// Bijhouden wie laatst gegevens gewijzigd heeft en op welk tijdstip dit gebeurde
 		Do ..ZetInitialenLaatsteWijziging($Get(QU,"SYS"))
@@ -194,15 +194,15 @@
 				Set IndexUpdated = 1
 			}
 			
-			/// Nieuwe gegevens in de global wegschrijven
-			Set ^DKL("K","KL.A",..KlantNummer,..#AlgemeneGegevensNode) = ..AlgemeneGegevens		
-			Set ^KKL(..GeefKlantIndexKKL(),..#AlgemeneGegevensNode) = ..AlgemeneGegevens		
-			
 			/// In KKL moet alles verplaatst worden als naam is gewijzigd
 			If ((..GeefNaam() '= $Piece(OudeAlgemeneGegevens,"\",2))) {
 				Do ..IndexGewijzigd(IndexUpdated, OudeKlantIndex)
 			}
 			
+			/// Nieuwe gegevens in de global wegschrijven
+			Set ^DKL("K","KL.A",..KlantNummer,..#AlgemeneGegevensNode) = ..AlgemeneGegevens		
+			Set ^KKL(..GeefKlantIndexKKL(),..#AlgemeneGegevensNode) = ..AlgemeneGegevens			
+			
 			/// De vhisie-accounts verwijderen voor deze klant. 
 			If (..ActiefChanged){
 				Set ..ActiefChanged = 0