Index: BL/EC/Common.mac.rou
===================================================================
diff -u -r1523 -r1761
--- BL/EC/Common.mac.rou	(.../Common.mac.rou)	(revision 1523)
+++ BL/EC/Common.mac.rou	(.../Common.mac.rou)	(revision 1761)
@@ -19,23 +19,24 @@
 	Quit Logging
   
 AddErrorToLog(Groep, Actie, Error,Detail)
+	Set Error = $$ParseStatus^vhLib(Error)
 	If $isObject($G(%ECSession)) Do 
-	. Set Logging=##class(Derde.EC.Logging).Create(,,%ECSession.%Id(),%ECSession.ToegangID,%ECSession.KlantNr,$$$logGrpError,.Groep,.Actie,$G(Detail)_"~"_$$ParseStatus^vhLib(Error),$STACK($STACK-2,"PLACE"))
+	. Set Logging=##class(Derde.EC.Logging).Create(,,%ECSession.%Id(),%ECSession.ToegangID,%ECSession.KlantNr,$$$logGrpError,.Groep,.Actie,$G(Detail)_"~"_Error,$STACK($STACK-2,"PLACE"))
 	. $$$blToegang
 	. Set Body="SessionID: "_%ECSession.%Id()
 	. Set Body=Body_$C(13)_"ToegangID: "_%ECSession.ToegangID
 	. Set Body=Body_$C(13)_"Klant: "_%ECSession.KlantNr
 	. Set oToegang=%blToegang.OpenID(%ECSession.ToegangID)
 	. Set Body=Body_$C(13)_"User: "_oToegang.UserNaam
 	Else  Do
-	. Set Logging=##class(Derde.EC.Logging).Create(,,,,,$$$logGrpError,.Groep,.Actie,$G(Detail)_"~"_$$ParseStatus^vhLib(Error),$STACK($STACK-2,"PLACE"))
+	. Set Logging=##class(Derde.EC.Logging).Create(,,,,,$$$logGrpError,.Groep,.Actie,$G(Detail)_"~"_Error,$STACK($STACK-2,"PLACE"))
 	. Set Body=""
 	
 	; Mail versturen van de fout
 	Set Body=Body_$C(13)_"Groep: "_$G(Groep)
 	Set Body=Body_$C(13)_"Actie: "_$G(Actie)
 	Set Body=Body_$C(13)_"Detail: "_$G(Detail)
-	Set Body=Body_$C(13)_"Error: "_$$ParseStatus^vhLib(Error)
+	Set Body=Body_$C(13)_"Error: "_Error
 	Set Body=Body_$C(13,13)_"$ZError: "_$ZError
 	Set:$G(%objlasterror)'="" Body=Body_$C(13)_"Object Last Error: "_$$ParseStatus^vhLib(%objlasterror)
 	Set Body=Body_$C(13)_"$ECode: "_$ECode
@@ -46,8 +47,11 @@
 	Set From=$$$SystemMail("VHISIE")
 	Set Subj="VHISIE - Error to Log"
 	Set To=$lb(##class(TECH.Config.ConfigMgr).Instance().GetString("BL.EC.Common.MailErrorNaar"))
-	Do SendMiniMail^vhLib(From,To,Subj,Body,,,,,)
 	
+	Do ##class(vhLib.Logger).%New("Vhisie").Error(Actie,Body)
+	
+	Do SendMiniMail^vhLib(From,To,Subj,Body,,,,,)	
+	
 	Quit Logging
  
 WebServiceTrap()
@@ -72,7 +76,10 @@
 	Set Subj="VHISIE - Errortrap "_$ZError
 	Set To=$lb(##class(TECH.Config.ConfigMgr).Instance().GetString("BL.EC.Common.MailErrorNaar"))
 	/*   */       ; ORIG code - door PV
-	Do SendMiniMail^vhLib(From,To,Subj,Body,,,,,)
+	
+	Do AddErrorToLog^BL.EC.Common("FOUT", "$ZError", 1,$ZError)
+	
+	
 	/*   * /             
 	; Uitgebreide code - door WimV   [met de bedoeling om TIJDELIJK de mass-mail te vermijden]
 	If $$$GETERRORCODE(%objlasterror)=$$$CSPTimeout Do