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>
Index: DOM/CRM/impl/DataM/DataMKlantTemplate.cls.xml
===================================================================
diff -u
--- DOM/CRM/impl/DataM/DataMKlantTemplate.cls.xml	(revision 0)
+++ DOM/CRM/impl/DataM/DataMKlantTemplate.cls.xml	(revision 1098)
@@ -0,0 +1,67 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.CRM.impl.DataM.DataMKlantTemplate">
+<Description>
+JBL + 2011-05-04</Description>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="GeefTemplate">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>KlantTemplate:DOM.CRM.enu.TypeTemplateKlant</FormalSpec>
+<ReturnType>%ArrayOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	Set GlobalData = ##class(%ArrayOfDataTypes).%New()
+	
+	/// Consument medewerker
+	If (KlantTemplate = ##class(DOM.CRM.enu.TypeTemplateKlant).Medewerker()){
+		Do GlobalData.SetAt("\\\\\\\\N\1\EUR\0\\\1\G\2\\\40\\\\\\\\62168,40232\SYS\0",0)	
+		Do GlobalData.SetAt("\@\\\\\\\\\Consument\\\\\\\\M\\\\\\\1\\\\",1)
+		Do GlobalData.SetAt("\0\G\G\\\\0\\\\\\\\AFH\\\\\\\\G\G\\\\\",2)
+		Do GlobalData.SetAt("1\\00\\\\\\\3\H\\\\Geimporteerd vanuit ProTime\\\\\\\\\\\\\\\",3)
+		Do GlobalData.SetAt("\\\\\\\\\\\\\\\\\\\\\\\\\\\\\",4)
+		Do GlobalData.SetAt("\\\\\\\\\\\\\\\\\\\\\\\\\\\\\",5)
+		Do GlobalData.SetAt("\\\\\\\\\\\\\\\\\\\\\\\\\\\\\",6)
+		Do GlobalData.SetAt("\\\\\\\\\\\\\\\\\\\\\\\\\\\\\",7)
+		Do GlobalData.SetAt("\N\\\\\\\N\\\\\\\\\\\\\\\\\\\\\",8)
+	} 
+	/// Consument Keller
+	ElseIf(KlantTemplate = ##class(DOM.CRM.enu.TypeTemplateKlant).Consument()) {
+		Do GlobalData.SetAt("\\\\\\\\N\1\EUR\0\\\1\G\0\\\40\\\\\\\\62167,55612\SYS\0",0)	
+		Do GlobalData.SetAt("\@\\\\\\\\\Consument\\\\\\\2\M\\\\\\\1\\\\",1)
+		Do GlobalData.SetAt("\0\C\C\\\\M\\\\\\\\DI1\\\\\\\\C\C\\\\\",2)
+		Do GlobalData.SetAt("\1\00\\\\\\\\AR/BP D\\\\Bestelling via Keller ORGALUX webshop\\\\\\\\\\\\\\\",3)
+		Do GlobalData.SetAt("\\\\\\\\\\\\\\\\\\\\\\\\\\\\\",4)
+		Do GlobalData.SetAt("\\\\\\\\\\\\\\\\\\\\\\\\\\\\\",5)
+		Do GlobalData.SetAt("\\\\\\\\\\\\\\\\\\\\\\\\\\\\\",6)
+		Do GlobalData.SetAt("\\\\\\\\\\\\\\\\\\\\\\\\\\\\\",7)
+		Do GlobalData.SetAt("\N\\\\\\\N\\\\\\\\\\\\\\\\\\\\\",8)
+	}
+	
+	Quit GlobalData
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^DOM.CRM.imp5C5.DataMKlantTe6FDD</DataLocation>
+<DefaultData>DataMKlantTemplateDefaultData</DefaultData>
+<IdLocation>^DOM.CRM.imp5C5.DataMKlantTe6FDD</IdLocation>
+<IndexLocation>^DOM.CRM.imp5C5.DataMKlantTe6FDI</IndexLocation>
+<StreamLocation>^DOM.CRM.imp5C5.DataMKlantTe6FDS</StreamLocation>
+<Data name="DataMKlantTemplateDefaultData">
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>Naam</Value>
+</Value>
+</Data>
+<Data name="GlobalData">
+<Attribute>GlobalData</Attribute>
+<Structure>subnode</Structure>
+<Subscript>"GlobalData"</Subscript>
+</Data>
+</Storage>
+</Class>
+</Export>