diff --git a/Sistemas/CatRoles.aspx b/Sistemas/CatRoles.aspx index f9b390ea6..fbf243d6d 100644 --- a/Sistemas/CatRoles.aspx +++ b/Sistemas/CatRoles.aspx @@ -4,40 +4,7 @@ - <%-- --%> +
  • 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()