From 0c5087eee61d5489a0220951891097e530f6653a Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 11 Feb 2021 15:20:06 -0700 Subject: [PATCH] -- acceso de usuarios de portales --- LogIn.aspx.vb | 101 ++++++++++++++++++++++++++------------------------ 1 file changed, 52 insertions(+), 49 deletions(-) diff --git a/LogIn.aspx.vb b/LogIn.aspx.vb index e82ce6868..0adbb361c 100644 --- a/LogIn.aspx.vb +++ b/LogIn.aspx.vb @@ -199,71 +199,74 @@ Partial Class LogIn 'Dim UsuarioAsignaciones As Usuario = Nothing Dim isgps = Request.Url.Host.ToUpper().Contains("SIGNALSGPS".ToUpper()) - Usuario = ObjUsuario.ValidaUsuario(txtUsuario.Text, Encripta(TxtContraseña.Text.Trim), IMEI, CvePlataforma:=If(isgps, 3, 1)) + Usuario = ObjUsuario.ValidaUsuario(txtUsuario.Text, Encripta(TxtContraseña.Text.Trim), IMEI, CvePlataforma:=If(isgps, 3, -1)) 'UsuarioAsignaciones = ObjUsuario.ValidaUsuarioAsignacion(Usuario.CveUsuario, Usuario.CveEmpresa) + If Not isgps AndAlso Usuario IsNot Nothing AndAlso Usuario.CvePlataforma = 3 Then ' SI ES de la plataforma 3(GPS), no debe de entar por liga normal + Usuario = Nothing + End If ADSSessionConfig.sessionUser = Usuario - ADSSessionConfig.sessionDpage = False - ObjUsuario.Dispose() - If Usuario IsNot Nothing Then - If Not Usuario.AutorizadoxIP OrElse (HddAdsCodex.Text.Length > 0 AndAlso Usuario.CodigoAutorizado = HddAdsCodex.Text) Then + ADSSessionConfig.sessionDpage = False + ObjUsuario.Dispose() + If Usuario IsNot Nothing Then + If Not Usuario.AutorizadoxIP OrElse (HddAdsCodex.Text.Length > 0 AndAlso Usuario.CodigoAutorizado = HddAdsCodex.Text) Then - CreaObjetoEmpresa(Usuario) - ADSSessionConfig.sessionUser.MultipleEmpresa = True + CreaObjetoEmpresa(Usuario) + ADSSessionConfig.sessionUser.MultipleEmpresa = True - Dim x As New ADSSessionObj(Usuario.CveUsuario, Usuario.CveEmpresa) - Dim _sessionid = Encripta(String.Format("{0}|{1}", Usuario.CveUsuario, x.SessionID)) - x = ADSSessionConfig.SessionManager(OpcionSession.agregarSession, x) + Dim x As New ADSSessionObj(Usuario.CveUsuario, Usuario.CveEmpresa) + Dim _sessionid = Encripta(String.Format("{0}|{1}", Usuario.CveUsuario, x.SessionID)) + x = ADSSessionConfig.SessionManager(OpcionSession.agregarSession, x) - If Usuario.CvePlataforma = 6 And Usuario.CveRol = 10 Then - 'PLATAFORMA PORTAL CLIENTE - 'FormsAuthentication.RedirectFromLoginPage(_sessionid, False) - 'Response.Redirect("/PortalCliente/PortalCliente.aspx", True) + If Usuario.CvePlataforma = 6 And Usuario.CveRol = 10 Then + 'PLATAFORMA PORTAL CLIENTE + 'FormsAuthentication.RedirectFromLoginPage(_sessionid, False) + 'Response.Redirect("/PortalCliente/PortalCliente.aspx", True) - ReturnUrl = "/PortalCliente/PortalCliente.aspx" - ElseIf Usuario.CvePlataforma = 7 And Usuario.CveRol = 11 Then - 'PLATAFORMA PORTAL PROVEEDOR - 'FormsAuthentication.RedirectFromLoginPage(Encripta(Usuario.CveUsuario), False) - 'Response.Redirect("/PortalProveedor/PortalProveedor.aspx", True) + ReturnUrl = "/PortalCliente/PortalCliente.aspx" + ElseIf Usuario.CvePlataforma = 7 And Usuario.CveRol = 11 Then + 'PLATAFORMA PORTAL PROVEEDOR + 'FormsAuthentication.RedirectFromLoginPage(Encripta(Usuario.CveUsuario), False) + 'Response.Redirect("/PortalProveedor/PortalProveedor.aspx", True) - ReturnUrl = "/PortalProveedor/PortalProveedor.aspx" - ElseIf Usuario.CveRol = 1200 And Usuario.Acceso > 0 Then - 'PLATAFORMA GPS - Usuario.CvePlataforma = 3 - 'FormsAuthentication.RedirectFromLoginPage(Encripta(Usuario.CveUsuario), False) - 'Response.Redirect("/PortalGPS/InicioGPS.aspx", True) - ReturnUrl = "/PortalGPS/InicioGPS.aspx" - Else - 'PLATAFORMA SIG - CType(Session("UsuarioSIG"), Usuario).CvePlataforma = 1 - Dim dt As Data.DataTable = GlobalDTUsuarios(Usuario.CveUsuario) - If dt IsNot Nothing Then - If dt.Rows.Count >= 1 Then - If dt.Rows.Count > 1 Then - Usuario.MultipleEmpresa = True + ReturnUrl = "/PortalProveedor/PortalProveedor.aspx" + ElseIf Usuario.CveRol = 1200 And Usuario.Acceso > 0 Then + 'PLATAFORMA GPS + Usuario.CvePlataforma = 3 + 'FormsAuthentication.RedirectFromLoginPage(Encripta(Usuario.CveUsuario), False) + 'Response.Redirect("/PortalGPS/InicioGPS.aspx", True) + ReturnUrl = "/PortalGPS/InicioGPS.aspx" + Else + 'PLATAFORMA SIG + CType(Session("UsuarioSIG"), Usuario).CvePlataforma = 1 + Dim dt As Data.DataTable = GlobalDTUsuarios(Usuario.CveUsuario) + If dt IsNot Nothing Then + If dt.Rows.Count >= 1 Then + If dt.Rows.Count > 1 Then + Usuario.MultipleEmpresa = True + End If + 'FormsAuthentication.RedirectFromLoginPage(Encripta(Usuario.CveUsuario), False) End If - 'FormsAuthentication.RedirectFromLoginPage(Encripta(Usuario.CveUsuario), False) End If + dt.Dispose() End If - dt.Dispose() + + Dim cookie = FormsAuthentication.GetAuthCookie(Usuario.CveUsuario, False) + Response.Cookies.Add(cookie) + RegistraScript(String.Format("opennewlocation('{0}','{1}')", ReturnUrl, "")) + 'Response.Redirect(ReturnUrl, True) + Else + Alert("El usuario no esta autorizado en este equipo, favor de contactar al administrador de usuarios.", TipoMensaje.MsgAdvertencia) End If + 'If Usuario.Acceso > 0 Then - Dim cookie = FormsAuthentication.GetAuthCookie(Usuario.CveUsuario, False) - Response.Cookies.Add(cookie) - RegistraScript(String.Format("opennewlocation('{0}','{1}')", ReturnUrl, "")) - 'Response.Redirect(ReturnUrl, True) + 'Else + ' Alert("Usuario con acceso limitado.", TipoMensaje.MsgAdvertencia) + 'End If Else - Alert("El usuario no esta autorizado en este equipo, favor de contactar al administrador de usuarios.", TipoMensaje.MsgAdvertencia) + Alert("Usuario y/o Contraseña incorrectos.", TipoMensaje.MsgAdvertencia) End If - 'If Usuario.Acceso > 0 Then - - 'Else - ' Alert("Usuario con acceso limitado.", TipoMensaje.MsgAdvertencia) - 'End If - Else - Alert("Usuario y/o Contraseña incorrectos.", TipoMensaje.MsgAdvertencia) End If - End If End Sub Private Sub CreaObjetoEmpresa(ByRef UsuarioActual As Usuario)