From 516a249e60cc3fb00a0f130575dddfe66b5cb738 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 21 Feb 2025 11:02:48 -0700 Subject: [PATCH] =?UTF-8?q?--=20mejora=20en=20usar=20la=20variable=20de=20?= =?UTF-8?q?empresa,=20en=20lugar=20del=20numerop=20--=20quitar=20en=20el?= =?UTF-8?q?=20env=C3=ADo=20a=20RM=20y=20JP?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ashx/E141.ashx | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/Ashx/E141.ashx b/Ashx/E141.ashx index 946bc4519..35ec18745 100644 --- a/Ashx/E141.ashx +++ b/Ashx/E141.ashx @@ -62,9 +62,9 @@ Public Class E141 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe #Region "V A L I D A - D A T O S" Private Function ValidaUsuarioSistema(CveUsuario As Integer, CveEmpresa As Integer) As Usuario Dim UsuarioActual As Usuario = Nothing - Dim NombreCadena As String = ClsPaginas.GlobalNombreCadenaConexion(141) + Dim NombreCadena As String = ClsPaginas.GlobalNombreCadenaConexion(CveEmpresa) Dim ObjUsuarios As New ClsSisUsuarioAutenticacion(NombreCadena:=NombreCadena) - UsuarioActual = ObjUsuarios.GetUsuarioDetalle(100) + UsuarioActual = ObjUsuarios.GetUsuarioDetalle(100, CveEmpresa) If UsuarioActual IsNot Nothing Then HttpContext.Current.Session("UsuarioSIG") = UsuarioActual 'CreaObjetoEmpresa(UsuarioActual) @@ -281,7 +281,7 @@ Public Class E141 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe Dim ResultadoMail As Integer = 0 Dim CorreoDestino As String = "atencion@fidelityapps.mx" Dim MailCC As String = "citas@econollantas.com;sixrogs@hotmail.com;ffelix@econollantas.com" - Dim MailCCO As String = "jonathan.perez@adssistemas.mx;rene.molina@adsistemas.mx" + Dim MailCCO As String = "" '"jonathan.perez@adssistemas.mx;rene.molina@adsistemas.mx" If Not EsProduccion Then CorreoDestino = "jonathan.perez@adssistemas.mx"