Ajustes eFacturas controles filtro

Sistemas/RolesDetalle.aspx.vb

@@ -30,6 +30,8 @@ Partial Class Sistemas_RolesDetalle
         CargaGridIndicadores()
         CargaGridPermisos()
         CargaGridProcesos()
+        CargaUsuarios()
+
         DdlModulo.DataSource = GlobalDTModulos()
         DdlModulo.DataBind()
 
@@ -60,6 +62,19 @@ Partial Class Sistemas_RolesDetalle
 
     End Sub
 
+    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
+        End If
+        ObjUsuarios.Dispose()
+        GvUsurios.DataBind()
+
+    End Sub
+
 
 #Region "I N D I C A D O R E S"
     Private Sub CargaGridIndicadores()