AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

- que no cargue los usuarios, cuando se está creando el rol, es dcir que no hay un rol definido

Browse Source
This commit is contained in:
rrene
2023-11-17 11:44:16 -07:00
parent 2277f50358
commit 556bdf9321
1 changed files with 11 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
Sistemas/RolesDetalle.aspx.vb
View File

@@ -44,7 +44,7 @@ Partial Class Sistemas_RolesDetalle
TxtUsuarioAlta.Text = DTRoles.FiltroPrimeroValor("Nombre") TxtUsuarioAlta.Text = DTRoles.FiltroPrimeroValor("Nombre")
DdlModulo.SelectedValueExist(DTRoles.FiltroPrimeroValor("CveModulo").ToEntero) DdlModulo.SelectedValueExist(DTRoles.FiltroPrimeroValor("CveModulo").ToEntero)
Else 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) Alert("El Rol solicitado no existe.", TipoMensaje.MsgAdvertencia, Liga)
End If End If
@@ -61,13 +61,16 @@ Partial Class Sistemas_RolesDetalle
Private Sub CargaUsuarios() Private Sub CargaUsuarios()
Dim ObjUsuarios As New ClsSisUsuarios() If CveRol > 0 Then
If ObjUsuarios.GetUsuarios(-1, CveRol) Then Dim ObjUsuarios As New ClsSisUsuarios()
GvUsurios.DataSource = ObjUsuarios.DtResultados.FiltraParametros("", "", {"CveUsuario", "Usuario", "Nombre"}) If ObjUsuarios.GetUsuarios(-1, CveRol) Then
Else GvUsurios.DataSource = ObjUsuarios.DtResultados.FiltraParametros("", "", {"CveUsuario", "Usuario", "Nombre"})
GvUsurios.DataSource = Nothing Else
GvUsurios.DataSource = Nothing
End If
ObjUsuarios.Dispose()
End If End If
ObjUsuarios.Dispose()
GvUsurios.DataBind() GvUsurios.DataBind()
End Sub End Sub
@@ -233,7 +236,7 @@ Partial Class Sistemas_RolesDetalle
If TieneError = False Then 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) Alert("Se han guardado los cambios correctamente.", TipoMensaje.MsgInformacion, Liga)
ObjEmpresa.Commit() ObjEmpresa.Commit()
Else Else