Index: DOM/CRM/impl/DataM/DataMKlantBase.cls.xml
===================================================================
diff -u -r946 -r950
--- DOM/CRM/impl/DataM/DataMKlantBase.cls.xml	(.../DataMKlantBase.cls.xml)	(revision 946)
+++ DOM/CRM/impl/DataM/DataMKlantBase.cls.xml	(.../DataMKlantBase.cls.xml)	(revision 950)
@@ -1,11 +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-23 09:57:41">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-24 09:56:00">
 <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>62173,35946.25207</TimeChanged>
+<TimeChanged>62174,35846.445466</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="KlantNummer">
@@ -18,7 +19,7 @@
 <Private>1</Private>
 </Property>
 
-<Property name="Data1">
+<Property name="BetalingsGegevens1">
 <Type>%String</Type>
 <Private>1</Private>
 </Property>
@@ -58,6 +59,56 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BouwIndexenOp">
+<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 ^KK1(..KlantNummer) = KlantIndex
+	
+	Do ..ZetAlgemeneGegevens(31,KlantIndex)
+	Do ..ZetAlgemeneGegevens(50,KlantIndex)
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderIndexen">
+<Description>
+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()))	
+	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[
 /************
@@ -118,6 +169,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefInitialenLaatsteWijziging">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $Piece(..AlgemeneGegevens,"\",29)
+]]></Implementation>
+</Method>
+
 <Method name="GeefKlantNr">
 <ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[	Quit ..KlantNummer
@@ -160,6 +217,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefTijdstipLaatsteWijziging">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $Piece(..AlgemeneGegevens,"\",28)
+]]></Implementation>
+</Method>
+
+<Method name="GeefTKFax">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $Piece(..BetalingsGegevens1,"\",26)
+]]></Implementation>
+</Method>
+
 <Method name="GeefToenaam">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit $Piece(..AlgemeneGegevens,"\",3)
@@ -170,7 +239,7 @@
 <Description>
 Index voor KKL via KK1 ophalen.</Description>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit $Piece(..AlgemeneGegevens,"\",50)
+<Implementation><![CDATA[	Quit $$COMPRES^KLANT(..GeefNaam(),..GeefNummer())
 ]]></Implementation>
 </Method>
 
@@ -215,7 +284,6 @@
 <Method name="ZetAdres">
 <FormalSpec>Adres:DOM.common.Adres</FormalSpec>
 <Implementation><![CDATA[
-	
 	Do ..ZetAlgemeneGegevens(5,Adres.GeefStraat())
 	Do ..ZetAlgemeneGegevens(6,Adres.GeefPostcode())
 	Do ..ZetAlgemeneGegevens(7,Adres.GeefGemeente())
@@ -230,9 +298,16 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetInitialenLaatsteWijziging">
+<FormalSpec>InitialenNaam:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Do ..ZetAlgemeneGegevens(29,InitialenNaam)
+]]></Implementation>
+</Method>
+
 <Method name="ZetNaam">
 <FormalSpec>Naam:%String</FormalSpec>
-<Implementation><![CDATA[	Do ..ZetAlgemeneGegevens(2,Naam)
+<Implementation><![CDATA[	Do ..ZetAlgemeneGegevens(2,$$$UCase(Naam))
 ]]></Implementation>
 </Method>
 
@@ -249,6 +324,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetTijdstipLaatsteWijziging">
+<FormalSpec>Tijdstip:%Date</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Do ..ZetAlgemeneGegevens(28,Tijdstip)
+]]></Implementation>
+</Method>
+
 <UDLText name="T">
 <Content><![CDATA[
 /************
@@ -264,6 +346,10 @@
 <Method name="BetalingsGegevens2Gewijzigd">
 <Abstract>1</Abstract>
 </Method>
+
+<Method name="BetalingsGegevens1Gewijzigd">
+<Abstract>1</Abstract>
+</Method>
 </Class>
-<Checksum value="1157576550"/>
+<Checksum value="3007311584"/>
 </Export>