This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2023-11-20 07:38:36 -07:00
120 changed files with 20969 additions and 2499 deletions

View File

@@ -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

View File

@@ -1249,7 +1249,7 @@
</div>
</div>
<div class="col-md-7">
<div class="portlet light xspadding bordered ">
<div class="portlet light xspadding bordered" style="display:none!important">
<div class="portlet-title">
<div class="caption font-green">
<i class="icon-pin font-green"></i>