103 lines
5.1 KiB
C#
103 lines
5.1 KiB
C#
using bdAsegasa;
|
|
using bdAsegasa.db;
|
|
using Microsoft.VisualBasic;
|
|
using System;
|
|
using System.Collections.Generic;
|
|
using System.Diagnostics;
|
|
using System.Linq;
|
|
using System.Reflection;
|
|
using System.Text;
|
|
using System.Threading.Tasks;
|
|
using Serilog;
|
|
//mmm
|
|
namespace WSAsegasa
|
|
{
|
|
internal class Logs
|
|
{
|
|
private static object oBloqueoLog;
|
|
//private static EventLog el;
|
|
public static void AñadeLog(tsUtilidades.Enumeraciones.TipoLog Tipo, string Mensaje, Exception e = null)
|
|
{
|
|
// ----------------------------------------------------------------------------------------------------
|
|
// Descripción Sub: Gestión de logs de la aplicación
|
|
// Fecha. Creacion: ???
|
|
// Creada por: manmog
|
|
// Ultima Modificacion: 24/11/2010
|
|
//
|
|
// Modificaciones:
|
|
// ===============
|
|
if (oBloqueoLog == null) oBloqueoLog = new object();
|
|
lock (oBloqueoLog)
|
|
{
|
|
try
|
|
{
|
|
if (e != null)
|
|
{
|
|
|
|
string sStackTrace = "Tipo excepción: " + e.ToString() + Constants.vbCrLf;
|
|
Exception exError = e;
|
|
do
|
|
{
|
|
sStackTrace += exError.StackTrace + Constants.vbCrLf;
|
|
exError = exError.InnerException;
|
|
}
|
|
while (!Information.IsNothing(exError));
|
|
if (sStackTrace != "")
|
|
Mensaje += Constants.vbCrLf + "|StackTrace: " + sStackTrace;
|
|
}
|
|
|
|
bdAsegasa.db.cuentascorreo? cta = null;
|
|
|
|
try
|
|
{
|
|
var bd = tscgestionasegasa.NuevoContexto(Procesos.Conf.NombreConexionBD, true, false, true, "WSAsegasa");
|
|
cta = bd.cuentascorreo.First(x => x.Codigo == "DEFECTO");
|
|
}
|
|
catch
|
|
{
|
|
}
|
|
|
|
switch (Tipo)
|
|
{
|
|
case tsUtilidades.Enumeraciones.TipoLog.Fallo:
|
|
Mensaje = "Error WSAsegasa. " + " Enviado desde " + Environment.MachineName + ". Version:" + Assembly.GetEntryAssembly()?.GetName().Version + ". Mensaje: " + Mensaje;
|
|
Log.Fatal(Mensaje);
|
|
if (cta != null) tsCorreos.Funciones.EnviaCorreo(cta.ServidorSMTP, cta.Remitente, "sevilla@tecnosis.net", "Error en WSAsegasa", Mensaje, null, null, "", "", cta.CuentaCorreo, cta.Password, cta.Puerto.Value, true);
|
|
break;
|
|
case tsUtilidades.Enumeraciones.TipoLog.Advertencia:
|
|
Mensaje = "Advertencia WSAsegasa. " + " Enviado desde " + Environment.MachineName + ". Version:" + Assembly.GetEntryAssembly()?.GetName().Version + ". " + Mensaje;
|
|
Log.Warning(Mensaje);
|
|
if (cta != null) tsCorreos.Funciones.EnviaCorreo(cta.ServidorSMTP, cta.Remitente, "sevilla@tecnosis.net", "Advertencia en WSAsegasa", Mensaje, null, null, "", "", cta.CuentaCorreo, cta.Password, cta.Puerto.Value, true);
|
|
break;
|
|
case tsUtilidades.Enumeraciones.TipoLog.InicioServicio:
|
|
Mensaje = "Inicio WSAsegasa. " + " Enviado desde " + Environment.MachineName + ". Version:" + Assembly.GetEntryAssembly()?.GetName().Version + ". Mensaje: " + Mensaje;
|
|
Log.Information(Mensaje);
|
|
if (cta != null) tsCorreos.Funciones.EnviaCorreo(cta.ServidorSMTP, cta.Remitente, "sevilla@tecnosis.net", "Inicio WSAsegasa", Mensaje, null, null, "", "", cta.CuentaCorreo, cta.Password, cta.Puerto.Value, true);
|
|
break;
|
|
case tsUtilidades.Enumeraciones.TipoLog.FinServicio:
|
|
Mensaje = "Finalización WSAsegasa. " + " Enviado desde " + Environment.MachineName + ". Version:" + Assembly.GetEntryAssembly()?.GetName().Version + ". Mensaje: " + Mensaje;
|
|
Log.Information(Mensaje);
|
|
if (cta != null) tsCorreos.Funciones.EnviaCorreo(cta.ServidorSMTP, cta.Remitente, "sevilla@tecnosis.net", "Finalización WSAsegasa", Mensaje, null, null, "", "", cta.CuentaCorreo, cta.Password, cta.Puerto.Value, true);
|
|
break;
|
|
|
|
default:
|
|
Mensaje = Tipo.ToString() + " WSAsegasa. " + " Enviado desde " + Environment.MachineName + ". Version:" + Assembly.GetEntryAssembly()?.GetName().Version + ". " + Mensaje;
|
|
Log.Information(Mensaje);
|
|
break;
|
|
}
|
|
|
|
|
|
}
|
|
catch (Exception ex)
|
|
{
|
|
if (e != null)
|
|
Mensaje += " --- " + e.StackTrace;
|
|
|
|
Log.Fatal(Mensaje + " ---" + ex.Message + " --- " + ex.StackTrace);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|