-- cambio de clase de validación de usuario

Sistemas/Usuarios.aspx.vb

@@ -21,45 +21,45 @@ Partial Class Sistemas_Usuarios
     End Property
 
 #Region "Permisos"
-	Private Property PermisoEditar As Boolean
-		Get
-			Return CType(ViewState("PermisoEditar"), Boolean)
-		End Get
-		Set(value As Boolean)
-			ViewState("PermisoEditar") = value
-		End Set
-	End Property
+    Private Property PermisoEditar As Boolean
+        Get
+            Return CType(ViewState("PermisoEditar"), Boolean)
+        End Get
+        Set(value As Boolean)
+            ViewState("PermisoEditar") = value
+        End Set
+    End Property
 
-	Private Property PermisoModulos As Boolean
-		Get
-			Return CType(ViewState("PermisoModulos"), Boolean)
-		End Get
-		Set(value As Boolean)
-			ViewState("PermisoModulos") = value
-		End Set
-	End Property
+    Private Property PermisoModulos As Boolean
+        Get
+            Return CType(ViewState("PermisoModulos"), Boolean)
+        End Get
+        Set(value As Boolean)
+            ViewState("PermisoModulos") = value
+        End Set
+    End Property
 
-	Private Property PermisoProcesos As Boolean
-		Get
-			Return CType(ViewState("PermisoProcesos"), Boolean)
-		End Get
-		Set(value As Boolean)
-			ViewState("PermisoProcesos") = value
-		End Set
-	End Property
+    Private Property PermisoProcesos As Boolean
+        Get
+            Return CType(ViewState("PermisoProcesos"), Boolean)
+        End Get
+        Set(value As Boolean)
+            ViewState("PermisoProcesos") = value
+        End Set
+    End Property
 
-	Private Property PermisoRestablecerContraseña As Boolean
-		Get
-			Return CType(ViewState("PermisoProcesos"), Boolean)
-		End Get
-		Set(value As Boolean)
-			ViewState("PermisoProcesos") = value
-		End Set
-	End Property
+    Private Property PermisoRestablecerContraseña As Boolean
+        Get
+            Return CType(ViewState("PermisoProcesos"), Boolean)
+        End Get
+        Set(value As Boolean)
+            ViewState("PermisoProcesos") = value
+        End Set
+    End Property
 
 #End Region
-	Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
-		If Not Page.IsPostBack Then
+    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+        If Not Page.IsPostBack Then
 
 
 
@@ -67,12 +67,12 @@ Partial Class Sistemas_Usuarios
             ViewState("CveRol") = -1
             CargarEmpresa()
             CargaDatos()
-		End If
-	End Sub
+        End If
+    End Sub
 
-	Public Sub CargaDatos()
+    Public Sub CargaDatos()
 
-		Dim Usuario As New ClsSisUsuarios
+        Dim Usuario As New ClsSisUsuarios
         If Usuario.GetUsuarios(-1, -1, Estatus:=DdlEsatus.SelectedValue.ToEntero) Then
             If UsuarioActual.CveRol <> 1 Then
                 DtUsuarios = Usuario.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0} AND CveRol <> 1", DdlEmpresa.SelectedValue))
@@ -84,13 +84,13 @@ Partial Class Sistemas_Usuarios
             GvDatos.DataSource = Nothing
         End If
 
-		Usuario.Dispose()
+        Usuario.Dispose()
 
-		If ViewState("Orden").ToString() <> String.Empty Then
-			CargaGrid(ViewState("Orden").ToString())
-		Else
-			CargaGrid("")
-		End If
+        If ViewState("Orden").ToString() <> String.Empty Then
+            CargaGrid(ViewState("Orden").ToString())
+        Else
+            CargaGrid("")
+        End If
 
     End Sub
     Protected Sub consultar_Click(sender As Object, e As EventArgs)