From 556bdf93215e930fa434b23224099a4a0a152905 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 17 Nov 2023 11:44:16 -0700
Subject: [PATCH] =?UTF-8?q?-=20que=20no=20cargue=20los=20usuarios,=20cuand?=
 =?UTF-8?q?o=20se=20est=C3=A1=20creando=20el=20rol,=20es=20dcir=20que=20no?=
 =?UTF-8?q?=20hay=20un=20rol=20definido?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Sistemas/RolesDetalle.aspx.vb | 19 +++++++++++--------
 1 file changed, 11 insertions(+), 8 deletions(-)

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