Index: APPS/CRM/impl/InlezenKlantGegevens.cls.xml
===================================================================
diff -u -r1340 -r1469
--- APPS/CRM/impl/InlezenKlantGegevens.cls.xml	(.../InlezenKlantGegevens.cls.xml)	(revision 1340)
+++ APPS/CRM/impl/InlezenKlantGegevens.cls.xml	(.../InlezenKlantGegevens.cls.xml)	(revision 1469)
@@ -2,7 +2,7 @@
 <Export generator="Cache" version="9">
 <Class name="APPS.CRM.impl.InlezenKlantGegevens">
 <Description>
-JBL + 2011-05-24
+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
@@ -121,6 +121,11 @@
 					Do Klant.MaakPersoon(dtoPersoon)
 				}				
 				
+				/// LOG als klant aangemaakt is 
+				Set Persoon = ##class(TECH.Context.RuntimeContext).Instance().GeefGebruikerInitialen()
+				Set Persoon = $Get(Persoon)
+				Do ##class(vhLib.Logger).%New("APPS.CRM").Info("Klant aangemaakt via input contactformulier.","Klant aangemaakt via input contactformulier."_$C(13,10)_Klant.GeefNummer()_$C(13,10)_Persoon_".")	
+				
 				/// Wijzig scherm openen van de nieuwe klant.
 				Do WIJZIG^KLANT(Klant.GeefNummer(),1)
 			}