Index: DOM/CRM/impl/DataM/DataMKlantBase.cls.xml
===================================================================
diff -u -r994 -r1075
--- DOM/CRM/impl/DataM/DataMKlantBase.cls.xml	(.../DataMKlantBase.cls.xml)	(revision 994)
+++ DOM/CRM/impl/DataM/DataMKlantBase.cls.xml	(.../DataMKlantBase.cls.xml)	(revision 1075)
@@ -1,12 +1,11 @@
 <?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-04-05 11:33:52">
+<Export generator="Cache" version="9">
 <Class name="DOM.CRM.impl.DataM.DataMKlantBase">
 <Description>
-JBL + 2011-03-21</Description>
+JBL + 2011-03-21 </Description>
 <IncludeCode>vhLib.Macro</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>DOM.CRM.Klant,%RegisteredObject</Super>
-<TimeChanged>62186,41638.189179</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="KlantNummer">
@@ -258,9 +257,7 @@
 <Method name="GeefIndexSleutel">
 <FormalSpec>Sleutel:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	Set Sleutel = $$UPTRIMAN^vhRtn1(Sleutel)_" "_..KlantNummer	
-	Quit Sleutel
+<Implementation><![CDATA[	Quit $$COMPRES^KLANT(Sleutel,..KlantNummer)
 ]]></Implementation>
 </Method>
 
@@ -399,5 +396,4 @@
 <Abstract>1</Abstract>
 </Method>
 </Class>
-<Checksum value="1579155778"/>
 </Export>