diff --git a/Sistemas/RolesDetalle.aspx.vb b/Sistemas/RolesDetalle.aspx.vb
index 4e97f18c2..c24d2e7ca 100644
--- a/Sistemas/RolesDetalle.aspx.vb
+++ b/Sistemas/RolesDetalle.aspx.vb
@@ -44,7 +44,7 @@ Partial Class Sistemas_RolesDetalle
                     TxtUsuarioAlta.Text = DTRoles.FiltroPrimeroValor("Nombre")
                     DdlModulo.SelectedValueExist(DTRoles.FiltroPrimeroValor("CveModulo").ToEntero)
                 Else
-                    Dim Liga = $"document.location.href=""/Sistemas/CatRoles.aspx"";"
+                    Dim Liga As String = $"document.location.href=""/Sistemas/CatRoles.aspx"";"
                     Alert("El Rol solicitado no existe.", TipoMensaje.MsgAdvertencia, Liga)
 
                 End If
@@ -61,13 +61,16 @@ Partial Class Sistemas_RolesDetalle
 
     Private Sub CargaUsuarios()
 
-        Dim ObjUsuarios As New ClsSisUsuarios()
-        If ObjUsuarios.GetUsuarios(-1, CveRol) Then
-            GvUsurios.DataSource = ObjUsuarios.DtResultados.FiltraParametros("", "", {"CveUsuario", "Usuario", "Nombre"})
-        Else
-            GvUsurios.DataSource = Nothing
+        If CveRol > 0 Then
+            Dim ObjUsuarios As New ClsSisUsuarios()
+            If ObjUsuarios.GetUsuarios(-1, CveRol) Then
+                GvUsurios.DataSource = ObjUsuarios.DtResultados.FiltraParametros("", "", {"CveUsuario", "Usuario", "Nombre"})
+            Else
+                GvUsurios.DataSource = Nothing
+            End If
+            ObjUsuarios.Dispose()
         End If
-        ObjUsuarios.Dispose()
+
         GvUsurios.DataBind()
 
     End Sub
@@ -233,7 +236,7 @@ Partial Class Sistemas_RolesDetalle
 
 
         If TieneError = False Then
-            Dim Liga = $"document.location.href=""/Sistemas/CatRoles.aspx"";"
+            Dim Liga As String = $"document.location.href=""/Sistemas/CatRoles.aspx"";"
             Alert("Se han guardado los cambios correctamente.", TipoMensaje.MsgInformacion, Liga)
             ObjEmpresa.Commit()
         Else