-- acceso de usuarios de portales

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)