Index: DOM/CRM/impl/DataM/DataMKlantBase.cls.xml
===================================================================
diff -u -r950 -r966
--- DOM/CRM/impl/DataM/DataMKlantBase.cls.xml	(.../DataMKlantBase.cls.xml)	(revision 950)
+++ DOM/CRM/impl/DataM/DataMKlantBase.cls.xml	(.../DataMKlantBase.cls.xml)	(revision 966)
@@ -1,12 +1,12 @@
 <?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 09:56:00">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-24 17:04:13">
 <Class name="DOM.CRM.impl.DataM.DataMKlantBase">
 <Description>
 JBL + 2011-03-21</Description>
 <IncludeCode>vhLib.Macro</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>DOM.CRM.Klant,%RegisteredObject</Super>
-<TimeChanged>62174,35846.445466</TimeChanged>
+<TimeChanged>62174,61538.786485</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="KlantNummer">
@@ -60,17 +60,19 @@
 </Method>
 
 <Method name="BouwIndexenOp">
+<Description>
+Bouwt de indexen op van een bestaand object</Description>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set KlantIndex =  ..GeefKlantIndex()
-	Set ^INDEX("K","KL",101,..GeefGoedeIndexSleutel(..KlantNummer)) = KlantIndex
-	Set ^INDEX("K","KL",102,..GeefKlantIndex()) = KlantIndex
-	Set ^INDEX("K","KL",105,..GeefGoedeIndexSleutel(..GeefAdres().GeefStraat())) = KlantIndex
-	Set ^INDEX("K","KL",106,..GeefGoedeIndexSleutel(..GeefAdres().GeefPostcode())) = KlantIndex
-	Set ^INDEX("K","KL",107,..GeefGoedeIndexSleutel(..GeefAdres().GeefGemeente())) = KlantIndex
-	Set ^INDEX("K","KL",113,..GeefGoedeIndexSleutel(..GeefTelefoon1())) = KlantIndex
-	Set ^INDEX("K","KL",116,..GeefGoedeIndexSleutel(..GeefBTWNr())) = KlantIndex
-	Set ^INDEX("K","KL",226,..GeefGoedeIndexSleutel(..GeefTKFax())) = KlantIndex	
+	Set KlantIndex =  ..GeefKlantIndexKKL()
+	Set ^INDEX("K","KL",101,..GeefIndexSleutel(..KlantNummer)) = KlantIndex
+	Set ^INDEX("K","KL",102,..GeefKlantIndexKKL()) = KlantIndex
+	Set ^INDEX("K","KL",105,..GeefIndexSleutel(..GeefAdres().GeefStraat())) = KlantIndex
+	Set ^INDEX("K","KL",106,..GeefIndexSleutel(..GeefAdres().GeefPostcode())) = KlantIndex
+	Set ^INDEX("K","KL",107,..GeefIndexSleutel(..GeefAdres().GeefGemeente())) = KlantIndex
+	Set ^INDEX("K","KL",113,..GeefIndexSleutel(..GeefTelefoon1())) = KlantIndex
+	Set ^INDEX("K","KL",116,..GeefIndexSleutel(..GeefBTWNr())) = KlantIndex
+	Set ^INDEX("K","KL",226,..GeefIndexSleutel(..GeefTKFax())) = KlantIndex	
 	Set ^KK1(..KlantNummer) = KlantIndex
 	
 	Do ..ZetAlgemeneGegevens(31,KlantIndex)
@@ -82,33 +84,25 @@
 
 <Method name="VerwijderIndexen">
 <Description>
+Verwijdert indexen van een bestaand object
 Gevaarlijk om uit te voeren, weet wat je hierbij doet !</Description>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set KlantAPI = ##class(DOM.DomeinContext).Instance().GeefKlantAPI()
 	Set OudeKlantGegevens = KlantAPI.GeefKlant(..GeefNummer())
 	
-	Kill ^INDEX("K","KL",101,..GeefGoedeIndexSleutel(OudeKlantGegevens.GeefNummer()))
-	Kill ^INDEX("K","KL",102,OudeKlantGegevens.GeefKlantIndex())
-	Kill ^INDEX("K","KL",105,..GeefGoedeIndexSleutel(OudeKlantGegevens.GeefAdres().GeefStraat()))
-	Kill ^INDEX("K","KL",106,..GeefGoedeIndexSleutel(OudeKlantGegevens.GeefAdres().GeefPostcode()))
-	Kill ^INDEX("K","KL",107,..GeefGoedeIndexSleutel(OudeKlantGegevens.GeefAdres().GeefGemeente()))
-	Kill ^INDEX("K","KL",113,..GeefGoedeIndexSleutel(OudeKlantGegevens.GeefTelefoon1()))
-	Kill ^INDEX("K","KL",116,..GeefGoedeIndexSleutel(OudeKlantGegevens.GeefBTWNr()))
-	Kill ^INDEX("K","KL",226,..GeefGoedeIndexSleutel(OudeKlantGegevens.GeefTKFax()))	
+	Kill ^INDEX("K","KL",101,..GeefIndexSleutel(OudeKlantGegevens.GeefNummer()))
+	Kill ^INDEX("K","KL",102,OudeKlantGegevens.GeefKlantIndexKKL())
+	Kill ^INDEX("K","KL",105,..GeefIndexSleutel(OudeKlantGegevens.GeefAdres().GeefStraat()))
+	Kill ^INDEX("K","KL",106,..GeefIndexSleutel(OudeKlantGegevens.GeefAdres().GeefPostcode()))
+	Kill ^INDEX("K","KL",107,..GeefIndexSleutel(OudeKlantGegevens.GeefAdres().GeefGemeente()))
+	Kill ^INDEX("K","KL",113,..GeefIndexSleutel(OudeKlantGegevens.GeefTelefoon1()))
+	Kill ^INDEX("K","KL",116,..GeefIndexSleutel(OudeKlantGegevens.GeefBTWNr()))
+	Kill ^INDEX("K","KL",226,..GeefIndexSleutel(OudeKlantGegevens.GeefTKFax()))	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
-<Method name="GeefGoedeIndexSleutel">
-<FormalSpec>Sleutel:%String</FormalSpec>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	Set Sleutel = $$UPTRIMAN^vhRtn1(Sleutel)_" "_..KlantNummer	
-	Quit Sleutel
-]]></Implementation>
-</Method>
-
 <UDLText name="T">
 <Content><![CDATA[
 /************
@@ -235,14 +229,23 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefKlantIndex">
+<Method name="GeefKlantIndexKKL">
 <Description>
-Index voor KKL via KK1 ophalen.</Description>
+Index voor KKL via KK1 ophalen.  </Description>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit $$COMPRES^KLANT(..GeefNaam(),..GeefNummer())
 ]]></Implementation>
 </Method>
 
+<Method name="GeefIndexSleutel">
+<FormalSpec>Sleutel:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set Sleutel = $$UPTRIMAN^vhRtn1(Sleutel)_" "_..KlantNummer	
+	Quit Sleutel
+]]></Implementation>
+</Method>
+
 <UDLText name="T">
 <Content><![CDATA[
 /************
@@ -351,5 +354,5 @@
 <Abstract>1</Abstract>
 </Method>
 </Class>
-<Checksum value="3007311584"/>
+<Checksum value="107198337"/>
 </Export>