Index: DOM/CRM/impl/DataM/DataMKlantAPI.cls.xml
===================================================================
diff -u -r1098 -r1099
--- DOM/CRM/impl/DataM/DataMKlantAPI.cls.xml	(.../DataMKlantAPI.cls.xml)	(revision 1098)
+++ DOM/CRM/impl/DataM/DataMKlantAPI.cls.xml	(.../DataMKlantAPI.cls.xml)	(revision 1099)
@@ -47,17 +47,6 @@
 		$$$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)
@@ -162,29 +151,6 @@
 ]]></Implementation>
 </Method>
 
-<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))
-	While ((Key '= "") && (KBAIdTemplate = ""))
-	{
-		If (^KBA("%A",1,"KL",Key) = TypeTemplateKlant)
-		{
-			Set KBAIdTemplate = Key	
-		}
-		Set Key = $Order(^KBA("%A",1,"KL",Key))
-	}	
-	Quit KBAIdTemplate
-}
-*/
-]]></Content>
-</UDLText>
-
 <Method name="%OnNew">
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>