Index: DOM/CRM/impl/DataM/DataMKlantAPI.cls.xml
===================================================================
diff -u -r1133 -r1334
--- DOM/CRM/impl/DataM/DataMKlantAPI.cls.xml	(.../DataMKlantAPI.cls.xml)	(revision 1133)
+++ DOM/CRM/impl/DataM/DataMKlantAPI.cls.xml	(.../DataMKlantAPI.cls.xml)	(revision 1334)
@@ -53,9 +53,17 @@
 		$$$ThrowError($$$errGeneralError,"Er is geen klant template meegegeven.")	
 	}
 	
-	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 Data(0)=""
+	/// Template komt uit global ^KBA("%A",1,"KL",
+	If ($Length(TypeTemplateKlant)=1){
+		for i = 0 : 1 : 8 Set Data(i) = $Translate(^KBA("%A",1,"KL",TypeTemplateKlant,i),"?")
+	}
+	/// Template is enkel via code bereikbaar via enumeration
+	Else{		
+		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)
 	
@@ -68,6 +76,7 @@
 	Set $Piece(Data(0),..#Delimiter,6) = dtoKlant.Adres.GeefPostcode()
 	Set $Piece(Data(0),..#Delimiter,7) = dtoKlant.Adres.GeefGemeente()
 	Set $Piece(Data(0),..#Delimiter,8) = dtoKlant.Adres.GeefLandNr()
+	Set $Piece(Data(0),..#Delimiter,9) = dtoKlant.Taal
 	Set $Piece(Data(0),..#Delimiter,13) = dtoKlant.Telefoon1
 	If (dtoKlant.BTWNummer '= ""){
 		Set $Piece(Data(0),..#Delimiter,16) = dtoKlant.BTWNummer
@@ -114,6 +123,79 @@
 ]]></Implementation>
 </Method>
 
+<Method name="MaakPersoon">
+<Description>
+Maak een persoon voor de opgegeven klantnummer.</Description>
+<FormalSpec>KlantNummer:%Integer,dtoPersoon:DOM.common.dto.Persoon</FormalSpec>
+<ReturnType>DOM.common.Persoon</ReturnType>
+<Implementation><![CDATA[
+	/// Geef volgende subindex voor Persoon van deze Klant
+	Set PersNr = 0
+	Set Key = 0
+	Set Key = $Order(^PERS("K",KlantNummer,Key))
+	While (Key '= ""){
+		Set PersNr = Key
+		Set Key = $Order(^PERS("K",KlantNummer,Key))
+	}	
+	Set PersNr = PersNr + 1
+	
+	Set Data = ""
+	
+	/// Uniek nummer ophalen
+	Set $Piece(Data,..#Delimiter,1) = $$NEXTID^PERS
+	
+	/// Data invullen in template
+	Set $Piece(Data,..#Delimiter,2) = dtoPersoon.Naam
+	Set $Piece(Data,..#Delimiter,3) = dtoPersoon.Voornaam
+	Set $Piece(Data,..#Delimiter,4) = dtoPersoon.Aanspreking
+	Set $Piece(Data,..#Delimiter,5) = "EI"
+	Set $Piece(Data,..#Delimiter,14) = $h
+	
+	Set ConnectTeller = 0
+	If (dtoPersoon.Telefoon '= ""){
+		Set $Piece(Data,..#Delimiter,(15 + ConnectTeller)) = "T;"_dtoPersoon.Telefoon
+		Set ConnectTeller = ConnectTeller + 1
+	}
+	If (dtoPersoon.PriveTelefoon '= ""){
+		Set $Piece(Data,..#Delimiter,(15 + ConnectTeller)) = "P;"_dtoPersoon.PriveTelefoon
+		Set ConnectTeller = ConnectTeller + 1
+	}
+	If (dtoPersoon.Fax '= ""){
+		Set $Piece(Data,..#Delimiter,(15 + ConnectTeller)) = "F;"_dtoPersoon.Fax
+		Set ConnectTeller = ConnectTeller + 1
+	}
+	If (dtoPersoon.GSM '= ""){
+		Set $Piece(Data,..#Delimiter,(15 + ConnectTeller)) = "G;"_dtoPersoon.GSM
+		Set ConnectTeller = ConnectTeller + 1
+	}
+	If (dtoPersoon.Email '= ""){
+		Set $Piece(Data,..#Delimiter,(15 + ConnectTeller)) = "E;"_dtoPersoon.Email
+		Set ConnectTeller = ConnectTeller + 1
+	}
+	
+	/// Data wegschrijven in global PERS
+	Set ^PERS("K",KlantNummer,PersNr)=Data
+	
+	/// Index opbouwen ^PERS("IN",	
+	Do BLDINDEX^PERS("K",KlantNummer)
+	
+	Set Persoon = ##class(DOM.CRM.impl.DataM.DataMPersoon).%New(KlantNummer,PersNr)
+	Do Persoon.Open()
+	
+	Quit Persoon
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderPersoon">
+<Description>
+Maak een persoon voor de opgegeven klantnummer.</Description>
+<FormalSpec>KlantNummer:%Integer,Persoon:DOM.common.Persoon</FormalSpec>
+<Implementation><![CDATA[
+	Kill ^PERS("K",KlantNummer,Persoon.GeefVolgNummer())
+	Do BLDINDEX^PERS("K",KlantNummer)
+]]></Implementation>
+</Method>
+
 <Method name="GeefKlantViaProtimeNr">
 <Description>
 Zoekt tussen de klanten de medewerkers van VanHoecke en Halux