Index: DOM/common/dto/Persoon.cls.xml
===================================================================
diff -u
--- DOM/common/dto/Persoon.cls.xml	(revision 0)
+++ DOM/common/dto/Persoon.cls.xml	(revision 1334)
@@ -0,0 +1,40 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.common.dto.Persoon">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Aanspreking">
+<Type>%String</Type>
+</Property>
+
+<Property name="Naam">
+<Type>%String</Type>
+</Property>
+
+<Property name="Voornaam">
+<Type>%String</Type>
+</Property>
+
+<Property name="Telefoon">
+<Type>%String</Type>
+</Property>
+
+<Property name="PriveTelefoon">
+<Type>%String</Type>
+</Property>
+
+<Property name="Fax">
+<Type>%String</Type>
+</Property>
+
+<Property name="GSM">
+<Type>%String</Type>
+</Property>
+
+<Property name="Email">
+<Type>%String</Type>
+</Property>
+</Class>
+</Export>
Index: JBL InlezenKlantGegevens.prj.xml
===================================================================
diff -u
--- JBL InlezenKlantGegevens.prj.xml	(revision 0)
+++ JBL InlezenKlantGegevens.prj.xml	(revision 1334)
@@ -0,0 +1,14 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Project name="JBL InlezenKlantGegevens" LastModified="2011-05-30 10:50:49">
+  <Items>
+    <ProjectItem name="APPS.CRM.impl.InlezenKlantGegevens" type="CLS"/>
+    <ProjectItem name="DOM.CRM.Klant" type="CLS"/>
+    <ProjectItem name="DOM.CRM.KlantAPI" type="CLS"/>
+    <ProjectItem name="DOM.CRM.dto.Klant" type="CLS"/>
+    <ProjectItem name="DOM.CRM.impl.DataM.DataMKlantAPI" type="CLS"/>
+    <ProjectItem name="DOM.CRM.impl.DataM.DataMKlantBase" type="CLS"/>
+    <ProjectItem name="DOM.common.dto.Persoon" type="CLS"/>
+  </Items>
+</Project>
+</Export>
Index: DOM/common/Persoon.cls.xml
===================================================================
diff -u -r1264 -r1334
--- DOM/common/Persoon.cls.xml	(.../Persoon.cls.xml)	(revision 1264)
+++ DOM/common/Persoon.cls.xml	(.../Persoon.cls.xml)	(revision 1334)
@@ -3,6 +3,7 @@
 <Class name="DOM.common.Persoon">
 <Abstract>1</Abstract>
 <ProcedureBlock>1</ProcedureBlock>
+<ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="Open">
 <Abstract>1</Abstract>
@@ -21,7 +22,6 @@
 /**********
 / Getters
 /*********/
-
 ]]></Content>
 </UDLText>
 
@@ -115,12 +115,16 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="GeefVolgNummer">
+<Abstract>1</Abstract>
+<ReturnType>%Integer</ReturnType>
+</Method>
+
 <UDLText name="T">
 <Content><![CDATA[
 /**********
 / Setters
 /*********/
-
 ]]></Content>
 </UDLText>
 
Index: vhUnitTest/DOM/CRM/TestPersoon.cls.xml
===================================================================
diff -u -r1074 -r1334
--- vhUnitTest/DOM/CRM/TestPersoon.cls.xml	(.../TestPersoon.cls.xml)	(revision 1074)
+++ vhUnitTest/DOM/CRM/TestPersoon.cls.xml	(.../TestPersoon.cls.xml)	(revision 1334)
@@ -112,6 +112,35 @@
 ]]></Implementation>
 </Method>
 
+<Method name="TestMaakEnVerwijderPersoonAPI">
+<Implementation><![CDATA[
+	Set KlantAPI = ##class(DOM.DomeinContext).Instance().GeefKlantAPI()
+	Set Klant = KlantAPI.GeefKlant(1000)
+	
+	Set dtoPersoon = ##class(DOM.common.dto.Persoon).%New()
+	Set dtoPersoon.Naam = "Test"
+	Set dtoPersoon.Voornaam = "Persoon"
+	Set dtoPersoon.Fax = "091112222"	
+	Set dtoPersoon.Email = "info@vanhoecke.be"
+	Set dtoPersoon.Telefoon = "091113333"
+	
+	Set Persoon = Klant.MaakPersoon(dtoPersoon)
+	
+	Do $$$AssertTrue($Data(^PERS("K",Klant.GeefNummer(),Persoon.GeefVolgNummer())),"De persoon is aangemaakt in ^PERS.")
+	Do $$$AssertEquals($Piece(^PERS("K",Klant.GeefNummer(),Persoon.GeefVolgNummer()),"\",2),"Test","Naam is gelijk.")
+	Do $$$AssertEquals($Piece(^PERS("K",Klant.GeefNummer(),Persoon.GeefVolgNummer()),"\",3),"Persoon","Voornaam is gelijk.")
+	Do $$$AssertEquals($Piece(^PERS("K",Klant.GeefNummer(),Persoon.GeefVolgNummer()),"\",15),"T;091113333","Telefoon is gelijk.")
+	Do $$$AssertEquals($Piece(^PERS("K",Klant.GeefNummer(),Persoon.GeefVolgNummer()),"\",16),"F;091112222","Fax is gelijk.")
+	Do $$$AssertEquals($Piece(^PERS("K",Klant.GeefNummer(),Persoon.GeefVolgNummer()),"\",17),"E;info@vanhoecke.be","Email is gelijk.")
+	
+	Set PersNr = Persoon.GeefVolgNummer()
+	
+	Do KlantAPI.VerwijderPersoon(Klant.GeefNummer(),Persoon)
+	
+	Do $$$AssertTrue('$Data(^PERS("K",Klant.GeefNummer(),PersNr)),"De persoon is verwijderd in ^PERS.")
+]]></Implementation>
+</Method>
+
 <Method name="TestWijzigPersoon">
 <Implementation><![CDATA[
 	Set Persoon = ##class(DOM.CRM.impl.DataM.DataMPersoon).%New(..KlantNummer, ..VolgNummer)
Index: APPS/CRM/impl/InlezenKlantGegevens.cls.xml
===================================================================
diff -u
--- APPS/CRM/impl/InlezenKlantGegevens.cls.xml	(revision 0)
+++ APPS/CRM/impl/InlezenKlantGegevens.cls.xml	(revision 1334)
@@ -0,0 +1,216 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.CRM.impl.InlezenKlantGegevens">
+<Description>
+JBL + 2011-05-24
+Gegevens vanuit een email die via een contactformulier binnenkomen
+parsen naar gegevens en properties die bruikbaar zijn bij het openen van een klant.
+https://www.pivotaltracker.com/story/show/9543011
+
+set Inhoud = "programmaoverzicht"_$C(9)_": "_$C(9)_"checked"_$C(13,10)_"stuur-mij-de-orgalux-brochure"_$C(9)_": "_$C(9)_"checked"_$C(13,10)_"aankoopprijzen-orgalux"_$C(9)_": "_$C(9)_"checked"_$C(13,10)_"stuur-mij-dynalog-full-versie"_$C(9)_": "_$C(9)_"checked"_$C(13,10)_"vermeld-mijn-website"_$C(9)_": "_$C(9)_"checked"_$C(13,10)_"neem-contact-met-mij-op-voor-een-afspraak"_$C(9)_": "_$C(9)_"checked"_$C(13,10)_"naam"_$C(9)_": "_$C(9)_"Joren Blancquaert"_$C(13,10)_"functie"_$C(9)_": "_$C(9)_"IT"_$C(13,10)_"bedrijf"_$C(9)_": "_$C(9)_"Van Hoecke"_$C(13,10)_"btw-nr"_$C(9)_": "_$C(9)_"123-456-789"_$C(13,10)_"straat-nr"_$C(9)_": "_$C(9)_"Centrumlaan 1"_$C(13,10)_"gemeente"_$C(9)_": "_$C(9)_"9000 Sint-Niklaas"_$C(13,10)_"telefoon"_$C(9)_": "_$C(9)_"093867459"_$C(13,10)_"fax"_$C(9)_": "_$C(9)_"093867458"_$C(13,10)_"emailfrom"_$C(9)_": "_$C(9)_"jbl@vanhoecke.be"_$C(13,10)_"website"_$C(9)_": "_$C(9)_"www.vanhoecke.be"_$C(13,10)_"opmerkingen"_$C(9)_": "_$C(9)_"Dit is een testmail voor het verwerken van binnenkomende contactformulieren. Kan deze mail worden doorgestuurd naar jbl@vanhoecke.be ? Dank Groeten, Joren "_$C(13,10)_"attachement"_$C(9)_": "_$C(9)_" "_$C(13,10)_"stuur-produkt-info-via-email"_$C(9)_": "_$C(9)_"checked"_$C(13,10)
+do ##class(APPS.CRM.impl.InlezenKlantGegevens).%New().ParseMail(Inhoud)
+Do ##class(APPS.CRM.impl.InlezenKlantGegevens).VraagInhoud()
+</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="MappingNaarProperty">
+<Type>%String</Type>
+<Collection>array</Collection>
+</Property>
+
+<Method name="Init">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ..MappingNaarProperty.SetAt("Email","emailfrom")
+	Do ..MappingNaarProperty.SetAt("PersoonNaam","nom")
+	Do ..MappingNaarProperty.SetAt("PersoonNaam","naam")
+	Do ..MappingNaarProperty.SetAt("KlantNaam","societe")
+	Do ..MappingNaarProperty.SetAt("KlantNaam","bedrijf")
+	Do ..MappingNaarProperty.SetAt("BTWNummer","tva")
+	Do ..MappingNaarProperty.SetAt("BTWNummer","nr-tva")
+	Do ..MappingNaarProperty.SetAt("BTWNummer","btw-nr")
+	Do ..MappingNaarProperty.SetAt("KVKNummer","kvk-nr-nl")
+	Do ..MappingNaarProperty.SetAt("Adres.Straat","rue-numero")
+	Do ..MappingNaarProperty.SetAt("Adres.Straat","rue-nr")
+	Do ..MappingNaarProperty.SetAt("Adres.Straat","straat-nr")
+	Do ..MappingNaarProperty.SetAt("Adres.Straat","straat--nr")
+	Do ..MappingNaarProperty.SetAt("Adres.Woonplaats","commune")
+	Do ..MappingNaarProperty.SetAt("Adres.Woonplaats","code-postal-ville")
+	Do ..MappingNaarProperty.SetAt("Adres.Woonplaats","gemeente")
+	Do ..MappingNaarProperty.SetAt("Adres.Woonplaats","postcode--plaats")
+	Do ..MappingNaarProperty.SetAt("Telefoon1","tel")
+	Do ..MappingNaarProperty.SetAt("Telefoon1","telefoon")
+	Do ..MappingNaarProperty.SetAt("Fax","fax")
+	Do ..MappingNaarProperty.SetAt("URL","website")
+	Do ..MappingNaarProperty.SetAt("Opmerking1","remarques")
+	Do ..MappingNaarProperty.SetAt("Opmerking1","opmerkingen")
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VraagInhoud">
+<ClassMethod>1</ClassMethod>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+	Write @F11,@F1,@FMTI,"Openen Klant via contactformulier - ",QN,@FMTi
+	Set FP=0303 Write @F,"Kopieer de inhoud van de mail in onderstaand tekstvak."
+	
+	/// Inhoud van de email opvragen
+	Set Inhoud = ##class(CHUI.ToolKit).InputFromTextArea("Inhoud")
+	
+	/// Gegevens parsen 
+	Set InlezenKlantGegevens = ..%New()
+	Set KlantGegevens = InlezenKlantGegevens.ParseMail(Inhoud)
+	
+	Write @F11,@F1,@FMTI,"Openen Klant via contactformulier - ",QN,@FMTi
+	
+	If (KlantGegevens.KlantNaam = ""){
+		Set FP=0303 Write @F,@F1,"Kon de klant niet openen :",!
+		Write $C(9),"De klantnaam kon niet goed worden ingelezen.",!,!
+		Write $C(9),"OK = [] "
+		Read Enter
+	}Else{
+		Set FP=0303 Write @F,@F1,"Samenvatting ingelezen gegevens :",!
+		Write $C(9),"Bedrijf :",$C(9),KlantGegevens.KlantNaam,!
+		Write $C(9),"Adres :",$C(9),$C(9),KlantGegevens.Adres.GeefStraat(),", ",KlantGegevens.Adres.GeefPostcode(),KlantGegevens.Adres.GeefGemeente(),!
+		Write $C(9),"Telefoon :",$C(9),KlantGegevens.Telefoon1,!
+		Write $C(9),"Email :",$C(9),$C(9),KlantGegevens.Email,!
+		Write $C(9),"Taal :",$C(9),$C(9),KlantGegevens.Taal,!
+		 
+		Write !,$C(9),"Bevestig => [] = OK :"
+		Read Bevestig
+		
+		If (Bevestig = ""){	
+			Write @F11,@F1,@FMTI,"Openen Klant via contactformulier - ",QN,@FMTi
+			Set FP=0303 Write @F,@F1,"Kies een openingspatroon."
+			
+			/// Openingspatroon kiezen
+			Set TemplateID = ..KiesOpeningspatroon()
+			
+			If (TemplateID '= ""){
+				/// Nieuwe klant aanmaken met geparste gegevens
+				Set KlantAPI = ##class(DOM.DomeinContext).Instance().GeefKlantAPI()
+				Set Klant = KlantAPI.MaakKlant(KlantGegevens,TemplateID)
+				
+				Set KlantIsDirty = 0
+				If (KlantGegevens.URL '= ""){
+					Do Klant.ZetURL(KlantGegevens.URL)	
+					Set KlantIsDirty = 1
+				}				
+				If (KlantGegevens.KVKNummer '= ""){
+					Do Klant.ZetHandelsregisterNr(KlantGegevens.KVKNummer)	
+					Set KlantIsDirty = 1
+				}
+				
+				If (KlantIsDirty){
+					Do Klant.Save()
+				}
+				
+				/// PERSOON
+				/// Indien de naam van persoon gekend, is deze persoon aanmaken.
+				If (KlantGegevens.PersoonNaam '= ""){
+					Set dtoPersoon = ##class(DOM.common.dto.Persoon).%New()
+					Set dtoPersoon.Naam = KlantGegevens.PersoonNaam
+					Set dtoPersoon.Fax = KlantGegevens.Fax	
+					Set dtoPersoon.Email = KlantGegevens.Email
+					Set dtoPersoon.Telefoon = KlantGegevens.Telefoon1			
+					Do Klant.MaakPersoon(dtoPersoon)
+				}				
+				
+				/// Wijzig scherm openen van de nieuwe klant.
+				Do WIJZIG^KLANT(Klant.GeefNummer(),1)
+			}
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ParseMail">
+<Description>
+Parsen van de input van de email met klantgegevens</Description>
+<FormalSpec><![CDATA[&Inhoud:%String]]></FormalSpec>
+<ReturnType>APPS.CRM.dto.KlantGegevens</ReturnType>
+<Implementation><![CDATA[
+	Do ..Init()
+	Set LineFeed = $C(13,10)
+	
+	Set Klant = ##class(APPS.CRM.dto.KlantGegevens).%New()
+	Set Adres = ##class(DOM.common.impl.Adres).%New()
+	Set Klant.Adres = Adres	
+		
+	Set TaalNL = 0
+	Set TaalFR = 0
+	
+	For i=1 : 1 : $Length(Inhoud,LineFeed)
+	{		
+		Set Lijn = $Piece(Inhoud,LineFeed,i)
+		If Lijn[":" {
+			Set Property = $ZSTRIP($Piece(Lijn,":"),"<>W")				
+			Set Waarde = $ZSTRIP($Piece(Lijn,":",2),"<>W")
+			
+			/// Taal controleren
+			If ((Property = "nom") || (Property = "fonction")) Set TaalFR = TaalFR + 1
+			If ((Property = "naam") || (Property = "functie")) Set TaalNL = TaalNL + 1
+			
+			If (..MappingNaarProperty.IsDefined(Property)){	
+			    Set Property = ..MappingNaarProperty.GetAt(Property)
+			    
+			    Set Object = Klant
+			    If (Property["Adres."){
+				    Set Object = Klant.Adres
+				    Set Property = $Piece(Property,".",2)
+			    }
+			    /// Postcode en woonplaats opsplitsen
+			    If (Property = "Woonplaats"){
+				    /// Belgische postcodes :
+				    Set Deel1 = $Piece(Waarde," ")
+				    Set Deel2 = $Piece(Waarde," ",2,99)				    
+					Set Deel3 = $Piece(Deel2," ")
+				    If ((Deel1?4.N) && '(Deel3?2.A)){
+						 set $zobjProperty(Object,"Postcode")=Deel1
+						 set $zobjProperty(Object,Property)=Deel2
+					}
+					/// Nederlandse postcodes :
+					ElseIf ((($Length(Deel1)=6) && (Deel1?4.N2.A)) || (($Length(Deel1)=4) && ($Length(Deel3)=2) && (Deel1?4.N) && (Deel3?2.A))){
+						set $zobjProperty(Object,"Postcode")=Deel1_Deel3
+						set $zobjProperty(Object,Property)=Deel2
+					}Else{
+						set $zobjProperty(Object,Property)=Waarde
+					}
+				
+				}Else{		
+					set $zobjProperty(Object,Property)=Waarde
+				}
+			}			
+		}
+	}	
+	
+	If (TaalNL = 2){ Set Klant.Taal = "N" }
+	Elseif (TaalFR = 2) { Set Klant.Taal = "F" }
+
+	Quit Klant
+]]></Implementation>
+</Method>
+
+<Method name="KiesOpeningspatroon">
+<ClassMethod>1</ClassMethod>
+<Private>1</Private>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	 Set OpeningsPatroon="",Count=0
+	 For {
+		 Set OpeningsPatroon=$O(^KBA("%A",1,"KL",OpeningsPatroon))
+		 Quit:OpeningsPatroon=""
+		 Set Count=Count+1
+		 Set OpeningsPatroon(Count)=OpeningsPatroon_"`"_^KBA("%A",1,"KL",OpeningsPatroon)
+	 }
+	 Set OpeningsPatroon=$$WILD^vhPOPUP("C;C","O1-","Openingspatroon",.OpeningsPatroon)
+	 Quit OpeningsPatroon
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: DOM/CRM/KlantAPI.cls.xml
===================================================================
diff -u -r1133 -r1334
--- DOM/CRM/KlantAPI.cls.xml	(.../KlantAPI.cls.xml)	(revision 1133)
+++ DOM/CRM/KlantAPI.cls.xml	(.../KlantAPI.cls.xml)	(revision 1334)
@@ -7,12 +7,18 @@
 
 <Method name="MaakKlant">
 <Abstract>1</Abstract>
-<FormalSpec>KlantObject:DOM.CRM.dto.Klant</FormalSpec>
+<FormalSpec>KlantObject:DOM.CRM.dto.Klant,TypeTemplateKlant:DOM.CRM.enu.TypeTemplateKlant</FormalSpec>
 <ReturnType>DOM.CRM.Klant</ReturnType>
 <Implementation><![CDATA[	
 ]]></Implementation>
 </Method>
 
+<Method name="MaakPersoon">
+<Abstract>1</Abstract>
+<FormalSpec>KlantNummer:%Integer,dtoPersoon:DOM.common.dto.Persoon</FormalSpec>
+<ReturnType>DOM.common.Persoon</ReturnType>
+</Method>
+
 <Method name="GeefKlant">
 <Abstract>1</Abstract>
 <FormalSpec>Nr:%Integer</FormalSpec>
@@ -40,5 +46,10 @@
 <Abstract>1</Abstract>
 <ReturnType>DOM.CRM.Klant</ReturnType>
 </Method>
+
+<Method name="VerwijderPersoon">
+<Abstract>1</Abstract>
+<FormalSpec>KlantNummer:%Integer,Persoon:DOM.common.Persoon</FormalSpec>
+</Method>
 </Class>
 </Export>
Index: DOM/CRM/impl/KlantImpl.cls.xml
===================================================================
diff -u -r1328 -r1334
--- DOM/CRM/impl/KlantImpl.cls.xml	(.../KlantImpl.cls.xml)	(revision 1328)
+++ DOM/CRM/impl/KlantImpl.cls.xml	(.../KlantImpl.cls.xml)	(revision 1334)
@@ -102,6 +102,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefHandelsregisterNr">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..Klant.GeefHandelsregisterNr()
+]]></Implementation>
+</Method>
+
 <Method name="GeefIndexSleutel">
 <FormalSpec>Sleutel:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
@@ -251,6 +257,25 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetEmail">
+<FormalSpec>Email:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set ValidMail = ##class(TECH.Mail).Check(Email,1)
+	If ('ValidMail){
+		Set Feedback = $P($$ParseStatus^vhLib(ValidMail),":",2)
+		Set Exception = ##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).ParameterInvalid(),"Het email adres "_Email_" is niet geldig. "_Feedback)
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)
+	}
+	Do ..Klant.ZetEmail(Email)
+]]></Implementation>
+</Method>
+
+<Method name="ZetHandelsregisterNr">
+<FormalSpec>HandelsregisterNr:%String</FormalSpec>
+<Implementation><![CDATA[	Do ..Klant.ZetHandelsregisterNr(HandelsregisterNr)
+]]></Implementation>
+</Method>
+
 <Method name="ZetInitialenLaatsteWijziging">
 <FormalSpec>InitialenNaam:%String</FormalSpec>
 <Private>1</Private>
@@ -270,19 +295,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="ZetEmail">
-<FormalSpec>Email:%String</FormalSpec>
-<Implementation><![CDATA[
-	Set ValidMail = ##class(TECH.Mail).Check(Email,1)
-	If ('ValidMail){
-		Set Feedback = $P($$ParseStatus^vhLib(ValidMail),":",2)
-		Set Exception = ##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).ParameterInvalid(),"Het email adres "_Email_" is niet geldig. "_Feedback)
-		Do ##class(TECH.ExceptionHandler).Throw(Exception)
-	}
-	Do ..Klant.ZetEmail(Email)
-]]></Implementation>
-</Method>
-
 <Method name="ZetTijdstipLaatsteWijziging">
 <FormalSpec>Tijdstip:%Date</FormalSpec>
 <Private>1</Private>
@@ -301,5 +313,14 @@
 <Implementation><![CDATA[	Do ..Klant.ZetURL(URL)
 ]]></Implementation>
 </Method>
+
+<Method name="MaakPersoon">
+<FormalSpec>dtoPersoon:DOM.common.dto.Persoon</FormalSpec>
+<ReturnType>DOM.common.Persoon</ReturnType>
+<Implementation><![CDATA[
+	Set KlantAPI = ##class(DOM.DomeinContext).Instance().GeefKlantAPI()
+	Quit KlantAPI.MaakPersoon(..Klant.GeefNummer(),dtoPersoon)
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: DOM/CRM/dto/Klant.cls.xml
===================================================================
diff -u -r1075 -r1334
--- DOM/CRM/dto/Klant.cls.xml	(.../Klant.cls.xml)	(revision 1075)
+++ DOM/CRM/dto/Klant.cls.xml	(.../Klant.cls.xml)	(revision 1334)
@@ -33,6 +33,10 @@
 <Type>%String</Type>
 </Property>
 
+<Property name="Fax">
+<Type>%String</Type>
+</Property>
+
 <Property name="BTWNummer">
 <Type>%Integer</Type>
 </Property>
Index: DOM/CRM/Klant.cls.xml
===================================================================
diff -u -r1328 -r1334
--- DOM/CRM/Klant.cls.xml	(.../Klant.cls.xml)	(revision 1328)
+++ DOM/CRM/Klant.cls.xml	(.../Klant.cls.xml)	(revision 1334)
@@ -72,6 +72,11 @@
 <ReturnType>%String</ReturnType>
 </Method>
 
+<Method name="GeefHandelsregisterNr">
+<Abstract>1</Abstract>
+<ReturnType>%String</ReturnType>
+</Method>
+
 <Method name="GeefInitialenLaatsteWijziging">
 <Abstract>1</Abstract>
 <ReturnType>%String</ReturnType>
@@ -196,6 +201,11 @@
 <FormalSpec>Email:%String</FormalSpec>
 </Method>
 
+<Method name="ZetHandelsregisterNr">
+<Abstract>1</Abstract>
+<FormalSpec>HandelsregisterNr:%String</FormalSpec>
+</Method>
+
 <Method name="ZetLeveringVoorwaarde">
 <Abstract>1</Abstract>
 <FormalSpec>LeveringVoorwaarde:DOM.CRM.enu.LeveringVoorwaarde</FormalSpec>
@@ -221,5 +231,11 @@
 <Abstract>1</Abstract>
 <ReturnType>%Boolean</ReturnType>
 </Method>
+
+<Method name="MaakPersoon">
+<Abstract>1</Abstract>
+<FormalSpec>dtoPersoon:DOM.common.dto.Persoon</FormalSpec>
+<ReturnType>DOM.common.Persoon</ReturnType>
+</Method>
 </Class>
 </Export>
Index: DOM/CRM/impl/DataM/DataMKlantBase.cls.xml
===================================================================
diff -u -r1328 -r1334
--- DOM/CRM/impl/DataM/DataMKlantBase.cls.xml	(.../DataMKlantBase.cls.xml)	(revision 1328)
+++ DOM/CRM/impl/DataM/DataMKlantBase.cls.xml	(.../DataMKlantBase.cls.xml)	(revision 1334)
@@ -179,6 +179,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefHandelsregisterNr">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $Piece(..BetalingsGegevens1,"\",21)
+]]></Implementation>
+</Method>
+
 <Method name="GeefInitialenLaatsteWijziging">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit $Piece(..AlgemeneGegevens,"\",29)
@@ -303,6 +309,17 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetBetalingsGegevens1">
+<FormalSpec>Piece:%Integer,Waarde:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set Temp = ..BetalingsGegevens1
+	Set $Piece(Temp,"\",Piece) = Waarde
+	Set ..BetalingsGegevens1 = Temp
+	Do ..BetalingsGegevens1Gewijzigd()
+]]></Implementation>
+</Method>
+
 <Method name="ZetBetalingsGegevens2">
 <FormalSpec>Piece:%Integer,Waarde:%String</FormalSpec>
 <Private>1</Private>
@@ -361,6 +378,19 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetEmail">
+<FormalSpec>Email:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Do ..ZetBetalingsGegevens2(19,Email)
+]]></Implementation>
+</Method>
+
+<Method name="ZetHandelsregisterNr">
+<FormalSpec>HandelsregisterNr:%String</FormalSpec>
+<Implementation><![CDATA[	Do ..ZetBetalingsGegevens1(21,HandelsregisterNr)
+]]></Implementation>
+</Method>
+
 <Method name="ZetInitialenLaatsteWijziging">
 <FormalSpec>InitialenNaam:%String</FormalSpec>
 <Private>1</Private>
@@ -380,13 +410,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="ZetEmail">
-<FormalSpec>Email:%String</FormalSpec>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Do ..ZetBetalingsGegevens2(19,Email)
-]]></Implementation>
-</Method>
-
 <Method name="ZetTelefoon1">
 <FormalSpec>Telefoon1:%String</FormalSpec>
 <Implementation><![CDATA[	Do ..ZetAlgemeneGegevens(13,Telefoon1)
@@ -418,15 +441,15 @@
 <Abstract>1</Abstract>
 </Method>
 
-<Method name="BetalingsGegevens2Gewijzigd">
+<Method name="BetalingsGegevens1Gewijzigd">
 <Abstract>1</Abstract>
 </Method>
 
-<Method name="BetalingsGegevens3Gewijzigd">
+<Method name="BetalingsGegevens2Gewijzigd">
 <Abstract>1</Abstract>
 </Method>
 
-<Method name="BetalingsGegevens1Gewijzigd">
+<Method name="BetalingsGegevens3Gewijzigd">
 <Abstract>1</Abstract>
 </Method>
 
Index: DOM/CRM/impl/DataM/DataMKlant.cls.xml
===================================================================
diff -u -r1328 -r1334
--- DOM/CRM/impl/DataM/DataMKlant.cls.xml	(.../DataMKlant.cls.xml)	(revision 1328)
+++ DOM/CRM/impl/DataM/DataMKlant.cls.xml	(.../DataMKlant.cls.xml)	(revision 1334)
@@ -163,7 +163,7 @@
 		$$$ThrowError($$$errGeneralError,"Er is geen KlantNummer ingevuld, kan object niet saven.")	
 	}
 	
-	If (..AlgemeneGegevensDirty || ..BetalingsGegevens2Dirty || ..BetalingsGegevens3Dirty || ..Opmerkingen1Dirty || ..Opmerkingen2Dirty || ..Node7Dirty)
+	If (..AlgemeneGegevensDirty || ..BetalingsGegevens1Dirty || ..BetalingsGegevens2Dirty || ..BetalingsGegevens3Dirty || ..Opmerkingen1Dirty || ..Opmerkingen2Dirty || ..Node7Dirty)
 	{
 		Set OudeKlantIndex = $PIECE(^DKL("K","KL.A",..KlantNummer,0),"\",31)
 		
@@ -283,8 +283,10 @@
 <Implementation><![CDATA[
 	Set KlantIndex = ..GeefKlantIndexKKL()
 	Set KlantNummer = ..GeefNummer()
-	Merge ^KKL(KlantIndex) = ^KKL(OudeKlantIndex) //^DKL("K","KL.A",KlantNummer) 
-	Kill ^KKL(OudeKlantIndex)
+	If (KlantIndex '= OudeKlantIndex){
+		Merge ^KKL(KlantIndex) = ^KKL(OudeKlantIndex) 
+		Kill ^KKL(OudeKlantIndex)
+	}
 ]]></Implementation>
 </Method>
 
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
Index: vhUnitTest/APPS/CRM/TestInlezenKlantGegevens.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/CRM/TestInlezenKlantGegevens.cls.xml	(revision 0)
+++ vhUnitTest/APPS/CRM/TestInlezenKlantGegevens.cls.xml	(revision 1334)
@@ -0,0 +1,94 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.APPS.CRM.TestInlezenKlantGegevens">
+<Description>
+Do ##class(vhUnitTest.Manager).RunTest("/display=all","APPS.CRM.TestInlezenKlantGegevens")</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="TestParseMailContactFormulier">
+<Description>
+Test formulier dat binnenkomt op contactformulier@vanhoecke.be (Nederlandstalig)</Description>
+<Implementation><![CDATA[
+		Set Inhoud = "programmaoverzicht"_$C(9)_": "_$C(9)_"checked"_$C(13,10)_"stuur-mij-de-orgalux-brochure"_$C(9)_": "_$C(9)_"checked"_$C(13,10)_"aankoopprijzen-orgalux"_$C(9)_": "_$C(9)_"checked"_$C(13,10)_"stuur-mij-dynalog-full-versie"_$C(9)_": "_$C(9)_"checked"_$C(13,10)_"vermeld-mijn-website"_$C(9)_": "_$C(9)_"checked"_$C(13,10)_"neem-contact-met-mij-op-voor-een-afspraak"_$C(9)_": "_$C(9)_"checked"_$C(13,10)_"naam"_$C(9)_": "_$C(9)_"Joren Blancquaert"_$C(13,10)_"functie"_$C(9)_": "_$C(9)_"IT"_$C(13,10)_"bedrijf"_$C(9)_": "_$C(9)_"Van Hoecke"_$C(13,10)_"btw-nr"_$C(9)_": "_$C(9)_"123-456-789"_$C(13,10)_"straat-nr"_$C(9)_": "_$C(9)_"Centrumlaan 1"_$C(13,10)_"gemeente"_$C(9)_": "_$C(9)_"9000 Sint-Niklaas"_$C(13,10)_"telefoon"_$C(9)_": "_$C(9)_"093867459"_$C(13,10)_"fax"_$C(9)_": "_$C(9)_"093867458"_$C(13,10)_"emailfrom"_$C(9)_": "_$C(9)_"jbl@vanhoecke.be"_$C(13,10)_"website"_$C(9)_": "_$C(9)_"www.vanhoecke.be"_$C(13,10)_"opmerkingen"_$C(9)_": "_$C(9)_"Dit is een testmail voor het verwerken van binnenkomende contactformulieren. Kan deze mail worden doorgestuurd naar jbl@vanhoecke.be ? Dank Groeten, Joren "_$C(13,10)_"attachement"_$C(9)_": "_$C(9)_" "_$C(13,10)_"stuur-produkt-info-via-email"_$C(9)_": "_$C(9)_"checked"_$C(13,10)
+		Set KLG = ##class(APPS.CRM.impl.InlezenKlantGegevens).%New()
+		Set dtoKlant = KLG.ParseMail(Inhoud)
+		
+		Do $$$AssertEquals(dtoKlant.KlantNaam,"Van Hoecke","Klantnaam "_dtoKlant.KlantNaam_" is correct geparsed")
+		Do $$$AssertEquals(dtoKlant.PersoonNaam,"Joren Blancquaert","PersoonNaam "_dtoKlant.PersoonNaam_" is correct geparsed")
+		Do $$$AssertEquals(dtoKlant.BTWNummer,"123-456-789","BTWNummer "_dtoKlant.BTWNummer_" is correct geparsed")
+		Do $$$AssertEquals(dtoKlant.Adres.GeefStraat(),"Centrumlaan 1","Straat "_dtoKlant.Adres.GeefStraat()_" is correct geparsed")
+		Do $$$AssertEquals(dtoKlant.Adres.GeefPostcode(),"9000","Postcode "_dtoKlant.Adres.GeefPostcode()_" is correct geparsed")
+		Do $$$AssertEquals(dtoKlant.Adres.GeefGemeente(),"Sint-Niklaas","Woonplaats "_dtoKlant.Adres.GeefGemeente()_" is correct geparsed")
+		Do $$$AssertEquals(dtoKlant.Telefoon1,"093867459","Telefoon "_dtoKlant.Telefoon1_" is correct geparsed")
+		Do $$$AssertEquals(dtoKlant.Fax,"093867458","Fax "_dtoKlant.Fax_" is correct geparsed")
+		Do $$$AssertEquals(dtoKlant.Email,"jbl@vanhoecke.be","Email "_dtoKlant.Email_" is correct geparsed")
+		Do $$$AssertEquals(dtoKlant.URL,"www.vanhoecke.be","URL "_dtoKlant.URL_" is correct geparsed")
+		Do $$$AssertEquals(dtoKlant.Opmerking1,"Dit is een testmail voor het verwerken van binnenkomende contactformulieren. Kan deze mail worden doorgestuurd naar jbl@vanhoecke.be ? Dank Groeten, Joren","Opmerking "_dtoKlant.Opmerking1_" is correct geparsed")
+]]></Implementation>
+</Method>
+
+<Method name="TestParseMailContactB2B">
+<Description>
+Test formulier dat binnenkomt op contactb2b@vanhoecke.be (Nederlandstalig)</Description>
+<Implementation><![CDATA[
+		Set Inhoud = "emailfrom"_$C(9)_": "_$C(9)_"jbl@vanhoecke.be"_$C(13,10)_"bedrijf"_$C(9)_": "_$C(9)_"ABC "_$C(13,10)_"naam"_$C(9)_": "_$C(9)_"Joren Blancquaert"_$C(13,10)_"functie"_$C(9)_": "_$C(9)_"IT"_$C(13,10)_"hoofdactiviteit"_$C(9)_": "_$C(9)_" "_$C(13,10)_"btw-nr"_$C(9)_": "_$C(9)_"123-456-789"_$C(13,10)_"kvk-nr-nl"_$C(9)_": "_$C(9)_"NL9877654"_$C(13,10)_"straat--nr"_$C(9)_": "_$C(9)_"Centrumlaan 1"_$C(13,10)_"postcode--plaats"_$C(9)_": "_$C(9)_"9000 Sint-Niklaas"_$C(13,10)_"tel"_$C(9)_": "_$C(9)_"09/3867459"_$C(13,10)_"opmerkingen"_$C(9)_": "_$C(9)_"Dit is een testmail voor het verwerken van binnenkomende contactformulieren. Test : U bent nog geen klant (www.vanhoecke.be) Kan deze mail worden doorgestuurd naar jbl@vanhoecke.be ? Dank Groeten, Joren "_$C(13,10)_"ja-wil-nieuwsbrief-ontvangen"_$C(9)_": "_$C(9)_"checked"
+		Set KLG = ##class(APPS.CRM.impl.InlezenKlantGegevens).%New()
+		Set dtoKlant = KLG.ParseMail(Inhoud)
+		
+		Do $$$AssertEquals(dtoKlant.KlantNaam,"ABC","Klantnaam "_dtoKlant.KlantNaam_" is correct geparsed")
+		Do $$$AssertEquals(dtoKlant.PersoonNaam,"Joren Blancquaert","PersoonNaam "_dtoKlant.PersoonNaam_" is correct geparsed")
+		Do $$$AssertEquals(dtoKlant.BTWNummer,"123-456-789","BTWNummer "_dtoKlant.BTWNummer_" is correct geparsed")
+		Do $$$AssertEquals(dtoKlant.KVKNummer,"NL9877654","KVKNummer "_dtoKlant.KVKNummer_" is correct geparsed")
+		Do $$$AssertEquals(dtoKlant.Adres.GeefStraat(),"Centrumlaan 1","Straat "_dtoKlant.Adres.GeefStraat()_" is correct geparsed")
+		Do $$$AssertEquals(dtoKlant.Adres.GeefPostcode(),"9000","Postcode "_dtoKlant.Adres.GeefPostcode()_" is correct geparsed")
+		Do $$$AssertEquals(dtoKlant.Adres.GeefGemeente(),"Sint-Niklaas","Woonplaats "_dtoKlant.Adres.GeefGemeente()_" is correct geparsed")
+		Do $$$AssertEquals(dtoKlant.Telefoon1,"09/3867459","Telefoon "_dtoKlant.Telefoon1_" is correct geparsed")
+		Do $$$AssertEquals(dtoKlant.Email,"jbl@vanhoecke.be","Email "_dtoKlant.Email_" is correct geparsed")
+		Do $$$AssertEquals(dtoKlant.Opmerking1,"Dit is een testmail voor het verwerken van binnenkomende contactformulieren. Test","Opmerking "_dtoKlant.Opmerking1_" is correct geparsed")
+]]></Implementation>
+</Method>
+
+<Method name="TestParseMailInfoAanvraag">
+<Description>
+Test formulier dat binnenkomt op info-aanvraag@vanhoecke.be (Franstalig)</Description>
+<Implementation><![CDATA[
+		Set Inhoud = "le-guide-de-notre-pragramme"_$C(9)_": "_$C(9)_"checked"_$C(13,10)_"envoyez-moi-le-catalogue-blum"_$C(9)_": "_$C(9)_"checked"_$C(13,10)_"envoyez-moi-le-catalogue-van-hoecke"_$C(9)_": "_$C(9)_"checked"_$C(13,10)_"envoyez-moi-votre-documentation-orgalux"_$C(9)_": "_$C(9)_"checked"_$C(13,10)_"envoyez-moi-le-dynalog-complet"_$C(9)_": "_$C(9)_"checked"_$C(13,10)_"nom"_$C(9)_": "_$C(9)_"Frans Blancquaert"_$C(13,10)_"fonction"_$C(9)_": "_$C(9)_"IT"_$C(13,10)_"societe"_$C(9)_": "_$C(9)_"VanHoeckeFR"_$C(13,10)_"tva"_$C(9)_": "_$C(9)_"123-456-789"_$C(13,10)_"rue-numero"_$C(9)_": "_$C(9)_"Rue du cente 1"_$C(13,10)_"commune"_$C(9)_": "_$C(9)_"9800 Sint-Nicolas"_$C(13,10)_"tel"_$C(9)_": "_$C(9)_"09/3867459"_$C(13,10)_"fax"_$C(9)_": "_$C(9)_"09/3867458"_$C(13,10)_"emailfrom"_$C(9)_": "_$C(9)_"jbl@vanhoecke.be"_$C(13,10)_"remarques"_$C(9)_": "_$C(9)_"Test via frans contact formulier via www.vanhoecke.be Contactez-Nous Gelieve deze mail door te sturen naar jbl@vanhoecke.be "_$C(13,10)_"envoyez-moi-des-info-produits-par-email"_$C(9)_": "_$C(9)_"checked"
+		Set KLG = ##class(APPS.CRM.impl.InlezenKlantGegevens).%New()
+		Set dtoKlant = KLG.ParseMail(Inhoud)
+		
+		Do $$$AssertEquals(dtoKlant.KlantNaam,"VanHoeckeFR","Klantnaam "_dtoKlant.KlantNaam_" is correct geparsed")
+		Do $$$AssertEquals(dtoKlant.PersoonNaam,"Frans Blancquaert","PersoonNaam "_dtoKlant.PersoonNaam_" is correct geparsed")
+		Do $$$AssertEquals(dtoKlant.BTWNummer,"123-456-789","BTWNummer "_dtoKlant.BTWNummer_" is correct geparsed")
+		Do $$$AssertEquals(dtoKlant.Adres.GeefStraat(),"Rue du cente 1","Straat "_dtoKlant.Adres.GeefStraat()_" is correct geparsed")
+		Do $$$AssertEquals(dtoKlant.Adres.GeefPostcode(),"9800","Postcode "_dtoKlant.Adres.GeefPostcode()_" is correct geparsed")
+		Do $$$AssertEquals(dtoKlant.Adres.GeefGemeente(),"Sint-Nicolas","Woonplaats "_dtoKlant.Adres.GeefGemeente()_" is correct geparsed")
+		Do $$$AssertEquals(dtoKlant.Telefoon1,"09/3867459","Telefoon "_dtoKlant.Telefoon1_" is correct geparsed")
+		Do $$$AssertEquals(dtoKlant.Fax,"09/3867458","Fax "_dtoKlant.Fax_" is correct geparsed")
+		Do $$$AssertEquals(dtoKlant.Email,"jbl@vanhoecke.be","Email "_dtoKlant.Email_" is correct geparsed")
+		Do $$$AssertEquals(dtoKlant.Opmerking1,"Test via frans contact formulier via www.vanhoecke.be Contactez-Nous Gelieve deze mail door te sturen naar jbl@vanhoecke.be","Opmerking "_dtoKlant.Opmerking1_" is correct geparsed")
+]]></Implementation>
+</Method>
+
+<Method name="TestParseMailPasEncoreClient">
+<Description>
+Test formulier dat binnenkomt op pas-encore-client@vanhoecke.be (Franstalig)</Description>
+<Implementation><![CDATA[
+		Set Inhoud = "emailfrom"_$C(9)_": "_$C(9)_"jbl@vanhoecke.be"_$C(13,10)_"societe"_$C(9)_": "_$C(9)_"VanHoecke"_$C(13,10)_"nom"_$C(9)_": "_$C(9)_"Frans Blancquaert"_$C(13,10)_"fonction"_$C(9)_": "_$C(9)_"IT"_$C(13,10)_"activite-principal"_$C(9)_": "_$C(9)_" "_$C(13,10)_"nr-tva"_$C(9)_": "_$C(9)_"123-456-789"_$C(13,10)_"rue-nr"_$C(9)_": "_$C(9)_"Rue du centre 1"_$C(13,10)_"code-postal-ville"_$C(9)_": "_$C(9)_"9000 Sint-Nicolas"_$C(13,10)_"tel"_$C(9)_": "_$C(9)_"09/3867459"_$C(13,10)_"remarques"_$C(9)_": "_$C(9)_"Test via frans contact formulier via www.vanhoecke.be Pas encore client. Gelieve deze mail door te sturen naar jbl@vanhoecke.be "_$C(13,10)_"oui-envoyez-moi-info-produits-par-email"_$C(9)_": "_$C(9)_"checked"
+		Set KLG = ##class(APPS.CRM.impl.InlezenKlantGegevens).%New()
+		Set dtoKlant = KLG.ParseMail(Inhoud)
+		
+		Do $$$AssertEquals(dtoKlant.KlantNaam,"VanHoecke","Klantnaam "_dtoKlant.KlantNaam_" is correct geparsed")
+		Do $$$AssertEquals(dtoKlant.PersoonNaam,"Frans Blancquaert","PersoonNaam "_dtoKlant.PersoonNaam_" is correct geparsed")
+		Do $$$AssertEquals(dtoKlant.BTWNummer,"123-456-789","BTWNummer "_dtoKlant.BTWNummer_" is correct geparsed")
+		Do $$$AssertEquals(dtoKlant.Adres.GeefStraat(),"Rue du centre 1","Straat "_dtoKlant.Adres.GeefStraat()_" is correct geparsed")
+		Do $$$AssertEquals(dtoKlant.Adres.GeefPostcode(),"9000","Postcode "_dtoKlant.Adres.GeefPostcode()_" is correct geparsed")
+		Do $$$AssertEquals(dtoKlant.Adres.GeefGemeente(),"Sint-Nicolas","Woonplaats "_dtoKlant.Adres.GeefGemeente()_" is correct geparsed")
+		Do $$$AssertEquals(dtoKlant.Telefoon1,"09/3867459","Telefoon "_dtoKlant.Telefoon1_" is correct geparsed")
+		Do $$$AssertEquals(dtoKlant.Email,"jbl@vanhoecke.be","Email "_dtoKlant.Email_" is correct geparsed")
+		Do $$$AssertEquals(dtoKlant.Opmerking1,"Test via frans contact formulier via www.vanhoecke.be Pas encore client. Gelieve deze mail door te sturen naar jbl@vanhoecke.be","Opmerking "_dtoKlant.Opmerking1_" is correct geparsed")
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/CRM/dto/KlantGegevens.cls.xml
===================================================================
diff -u
--- APPS/CRM/dto/KlantGegevens.cls.xml	(revision 0)
+++ APPS/CRM/dto/KlantGegevens.cls.xml	(revision 1334)
@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.CRM.dto.KlantGegevens">
+<Description>
+JBL  + 2011-05-25</Description>
+<Super>DOM.CRM.dto.Klant</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="PersoonNaam">
+<Type>%String</Type>
+</Property>
+
+<Property name="KVKNummer">
+<Type>%String</Type>
+</Property>
+
+<Property name="URL">
+<Type>%String</Type>
+</Property>
+</Class>
+</Export>
Index: DOM/common/impl/DataM/DataMPersoonBase.cls.xml
===================================================================
diff -u -r1264 -r1334
--- DOM/common/impl/DataM/DataMPersoonBase.cls.xml	(.../DataMPersoonBase.cls.xml)	(revision 1264)
+++ DOM/common/impl/DataM/DataMPersoonBase.cls.xml	(.../DataMPersoonBase.cls.xml)	(revision 1334)
@@ -147,6 +147,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefVolgNummer">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit ..VolgNummer
+]]></Implementation>
+</Method>
+
 <UDLText name="T">
 <Content><![CDATA[
 /********
Index: CHUI/ToolKit.cls.xml
===================================================================
diff -u
--- CHUI/ToolKit.cls.xml	(revision 0)
+++ CHUI/ToolKit.cls.xml	(revision 1334)
@@ -0,0 +1,55 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="CHUI.ToolKit">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%Persistent</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="InputFromTextArea">
+<Description>
+Toon in de ADMIN een multiline textarea. Als resultaat wordt de input als string terug gegeven.</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Label:%String="Inhoud",Rect:%String="5;11;20;60"</FormalSpec>
+<ProcedureBlock>0</ProcedureBlock>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+		Set Refresh = 1
+		Set U = ";"
+		Set Top=$P(Rect,U),Left=$P(Rect,U,2),Bot=$P(Rect,U,3),Right=$P(Rect,U,4),Length=Right-Left
+		Set FP=Top-1*100+1 Write @F,@F1 Set FP=FP+102 Write @F,Label_":"	
+		Do:Refresh STORE^vhTERMINA()
+		Set Tekst = ""
+		For  Set Tekst=$$ONE^vhBIGEDIT(Top_U_Left_U_Bot_U_(Right+1),Tekst,"I","EL~") Quit:'$D(AfdrFakt)  Do  Quit:AfdrFakt'="-"
+	 	.Set AfdrFakt="" Quit:'$L(Tekst)
+	 	.Set AfdrFakt=1 Quit
+	 	.Set AfdrFakt=$$ASKL^vhINP("FLOW","AFDRFAKT"),FP=2201 Write @F,@F1
+		Do GETWRAP^vhBIGEDIT("Tekst",Length,.Tekst,"O","~","","")
+		Do:Refresh REFRESH^vhTERMINA()
+		
+		Set Inhoud = ""	
+		For i = 1 : 1 : Tekst {
+			Set Inhoud = Inhoud_$C(13,10)_$Piece(Tekst(i),"`",5,99)
+		}	
+		
+		Quit Inhoud
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^CHUI.ToolKitD</DataLocation>
+<DefaultData>ToolKitDefaultData</DefaultData>
+<IdLocation>^CHUI.ToolKitD</IdLocation>
+<IndexLocation>^CHUI.ToolKitI</IndexLocation>
+<StreamLocation>^CHUI.ToolKitS</StreamLocation>
+<Data name="ToolKitDefaultData">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+</Export>