diff --git a/Sistemas/CatRoles.aspx.vb b/Sistemas/CatRoles.aspx.vb
index 893e8e3d3..583e90b56 100644
--- a/Sistemas/CatRoles.aspx.vb
+++ b/Sistemas/CatRoles.aspx.vb
@@ -4,17 +4,6 @@ Imports System.Data
Partial Class CatRoles
Inherits ClsPaginas
-
- Private Property DtRoles As DataTable
- Get
- Return CType(ViewState("DtRoles"), DataTable)
- End Get
- Set(value As DataTable)
- ViewState("DtRoles") = value
- End Set
- End Property
-
-
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
'LnkCerrar.Style.Add("cursor", "hand")
@@ -52,7 +41,7 @@ Partial Class CatRoles
Public Sub CargaDatos()
Dim Rol As New ClsSisRoles
If Rol.GetRoles(-1, UsuarioActual.CveEmpresa) Then
- DtRoles = Rol.DtResultados
+
If Rol.GetRoles(-1, -1) Then GlobalDTRoles(-1) = Rol.DtResultados
GvDatos.DataSource = Rol.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
GvDatos.DataBind()