Index: DOM/CRM/impl/DataM/DataMKlantAPI.cls.xml
===================================================================
diff -u -r1075 -r1098
--- DOM/CRM/impl/DataM/DataMKlantAPI.cls.xml	(.../DataMKlantAPI.cls.xml)	(revision 1075)
+++ DOM/CRM/impl/DataM/DataMKlantAPI.cls.xml	(.../DataMKlantAPI.cls.xml)	(revision 1098)
@@ -47,15 +47,21 @@
 		$$$ThrowError($$$errGeneralError,"Er is geen klant template meegegeven.")	
 	}
 	
+	/*
 	Set KBAIdTemplate = ..GeefTemplateId(TypeTemplateKlant)
 	
 	If (KBAIdTemplate = ""){
 		$$$ThrowError($$$errGeneralError,"Er is geen klant template gevonden van '"_TypeTemplateKlant_"'")	
 	}
-	
 	/// Data inladen vanuit de template
 	for i = 0 : 1 : 8 Set Data(i) = ^KBA("%A",1,"KL",KBAIdTemplate,i)
 	
+	*/
+	
+	Set GlobalData = ##class(DOM.CRM.impl.DataM.DataMKlantTemplate).GeefTemplate(TypeTemplateKlant)
+	/// Data inladen vanuit de template
+	for i = 0 : 1 : 8 Set Data(i) = GlobalData.GetAt(i)
+	
 	Set KlantIndex = $$COMPRES^KLANT(dtoKlant.KlantNaam,KlantNummer)
 	
 	/// Data invullen in template
@@ -156,12 +162,12 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefTemplateId">
-<Description>
-Ophalen van template uit ^KBA("%A",1,"KL")</Description>
-<FormalSpec>TypeTemplateKlant:DOM.CRM.enu.TypeTemplateKlant</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
+<UDLText name="T">
+<Content><![CDATA[
+/*
+/// Ophalen van template uit ^KBA("%A",1,"KL")
+Method GeefTemplateId(TypeTemplateKlant As DOM.CRM.enu.TypeTemplateKlant) [ Private ]
+{
 	Set KBAIdTemplate = ""
 	Set Key = ""
 	Set Key = $Order(^KBA("%A",1,"KL",Key))
@@ -174,8 +180,10 @@
 		Set Key = $Order(^KBA("%A",1,"KL",Key))
 	}	
 	Quit KBAIdTemplate
-]]></Implementation>
-</Method>
+}
+*/
+]]></Content>
+</UDLText>
 
 <Method name="%OnNew">
 <Private>1</Private>