-- mejora en usar la variable de empresa, en lugar del numerop

-- quitar en el envío a RM y JP

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"