Index: DOM/CRM/impl/DataM/DataMKlantAPI.cls.xml
===================================================================
diff -u -r946 -r950
--- DOM/CRM/impl/DataM/DataMKlantAPI.cls.xml	(.../DataMKlantAPI.cls.xml)	(revision 946)
+++ DOM/CRM/impl/DataM/DataMKlantAPI.cls.xml	(.../DataMKlantAPI.cls.xml)	(revision 950)
@@ -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-23 09:47:54">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-24 10:53:42">
 <Class name="DOM.CRM.impl.DataM.DataMKlantAPI">
 <IncludeCode>TECH.Error,BL.Derde.KlantSpecifiek</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>DOM.CRM.KlantAPI,%RegisteredObject</Super>
-<TimeChanged>62173,35359.94277</TimeChanged>
+<TimeChanged>62174,39308.180731</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Parameter name="Delimiter">
@@ -42,12 +42,8 @@
 <FormalSpec>Klant:DOM.CRM.dto.Klant,TypeTemplateKlant:DOM.CRM.enu.TypeTemplateKlant</FormalSpec>
 <ReturnType>DOM.CRM.Klant</ReturnType>
 <Implementation><![CDATA[
-	
-	Set KlantNummer = Klant.KlantNummer
-	If (KlantNummer = "")
-	{
-		Set KlantNummer = ..GeefNieuwKlantNummer()
-	}
+
+	Set KlantNummer = ..GeefNieuwKlantNummer()
 	If (TypeTemplateKlant = ""){
 		$$$ThrowError($$$errGeneralError,"Er is geen klant template meegegeven.")	
 	}
@@ -112,20 +108,27 @@
 	Set ^DKL("K","KL.A",KlantNummer,6) = Data6
 	Set ^DKL("K","KL.A",KlantNummer,7) = Data7
 	Set ^DKL("K","KL.A",KlantNummer,8) = Data8
+
+	/// NIET GEBRUIKEN, nieuwe code schrijven om indexen op te bouwen !
+	/// Om DoP^cAN220 te doen werken is het nodig om onderstaande regel uit te voeren
+	//Set Q="K" Do ^cA604
+	//Do P^cAN220("KL","","","Kl","") 
 	
-	
-	
 	/// Data overkopieren naar global KKL
-	Set KlantIndex = ..GeefKlant(KlantNummer).GeefKlantIndex()
+	Set Klant = ..GeefKlant(KlantNummer)
+	Set KlantIndex = Klant.GeefKlantIndex()
 	Merge ^KKL(KlantIndex) = ^DKL("K","KL.A",KlantNummer) 
 	Set ^KK1(KlantNummer) = KlantIndex
 	
+	/// Indexen opbouwen
+	Do Klant.BouwIndexenOp()
+	
 	/// Logging toevoegen dat klant geopend is
 	Do DLOGNEW^LOG("KL",KlantNummer)
 	
-	//Do WL^vhDBG(127,"Klant aangemaakt met nummer : "_KlantNummer)
+	Do WLIP^vhDBG(127,"Klant aangemaakt met nummer : "_KlantNummer)
 	/// Geef gecreerde klant terug
-	Quit ..GeefKlant(KlantNummer)
+	Quit Klant
 ]]></Implementation>
 </Method>
 
@@ -151,6 +154,16 @@
 	Quit Klant
 ]]></Implementation>
 </Method>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ##class(vhLib.OldSchool).InitVars()
+	Quit $$$OK
+]]></Implementation>
+</Method>
 </Class>
-<Checksum value="193846921"/>
+<Checksum value="225861606"/>
 </Export>