From 08cab5526a838ef53a7a0590219cd7792fd38f91 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 10 Feb 2021 12:51:50 -0700 Subject: [PATCH] Empresa de notificaciones para GPS --- App_Code/ClsPaginas.vb | 2 ++ App_Code/ClsSisNotificaciones.vb | 2 +- Global.asax | 3 +++ 3 files changed, 6 insertions(+), 1 deletion(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index ec50c30d6..ba7d8f608 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -36,6 +36,8 @@ Public Class ClsPaginas Public Shared Property EmpresaNotificaciones() As Empresa + Public Shared Property EmpresaNotificacionesGPS() As Empresa + Public ReadOnly Property EsProduccion As Boolean diff --git a/App_Code/ClsSisNotificaciones.vb b/App_Code/ClsSisNotificaciones.vb index b63c12e88..be0a9a61e 100644 --- a/App_Code/ClsSisNotificaciones.vb +++ b/App_Code/ClsSisNotificaciones.vb @@ -221,7 +221,7 @@ Public Class ClsSisNotificaciones Try Dim ResultadoMail As Integer = 0 Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail) - If ObjMail.SendMail(ClsPaginas.EmpresaNotificaciones, Mail, Asunto, Cuerpo, MailCC, LSRutasMail) Then + If ObjMail.SendMail(ClsPaginas.EmpresaNotificacionesGPS, Mail, Asunto, Cuerpo, MailCC, LSRutasMail) Then ObjNotificacion.UpdateNotificacionesBitacoraNotifico(CveNotificacionBitacora, 1) End If Catch ex As Exception diff --git a/Global.asax b/Global.asax index f0d2b275e..11258feff 100644 --- a/Global.asax +++ b/Global.asax @@ -620,6 +620,9 @@ Dim EmpresaNotificaciones As New Empresa With {.SendMail = "signotificaciones@adssistemas.mx", .SendMailPassword = "sig123987", .SendMailServer = "mail.adssistemas.mx", .SendMailPuerto = 587} ClsPaginas.EmpresaNotificaciones = EmpresaNotificaciones + Dim EmpresaNotificacionesGPS As New Empresa With {.SendMail = "ALERTAS@SIGNALSGPS.com", .SendMailPassword = "STJ180705IV42021ad", .SendMailServer = "mail.signalsgps.com", .SendMailPuerto = 587} + ClsPaginas.EmpresaNotificacionesGPS = EmpresaNotificacionesGPS + '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ 'I M P U E S T O S L O C A L E S