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

Correcion de asignacion de permisos

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2021-12-09 15:46:47 -07:00
parent eb8de27837
commit 9e8aebc774
1 changed files with 760 additions and 761 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
Sistemas/UsuarioDetalle.aspx.vb
View File

@@ -867,14 +867,13 @@ Partial Class Sistemas_UsuarioDetalle
End If End If
End If End If
Else Else
If Row.DataKey("Permitir") = "" AndAlso Row.FCCheckBox("ChkPermitir").Checked OrElse Row.DataKey("Permitir") = "1" AndAlso Row.FCCheckBox("ChkPermitir").Checked = False Then If Row.DataKey("Permitir").Contiene("", "0") AndAlso Row.FCCheckBox("ChkPermitir").Checked OrElse Row.DataKey("Permitir") = "1" AndAlso Row.FCCheckBox("ChkPermitir").Checked = False Then
If Not ObjUsuarios.UpdateUsuariosModulos(CveUsuario, Row.DataKey("CveModulo").ToEntero, Row.FCCheckBox("ChkPermitir").Checked, UsuarioActual.CveUsuario) Then If Not ObjUsuarios.UpdateUsuariosModulos(CveUsuario, Row.DataKey("CveModulo").ToEntero, Row.FCCheckBox("ChkPermitir").Checked, UsuarioActual.CveUsuario) Then
TieneError = True TieneError = True
Exit For Exit For
End If End If
End If End If
End If End If
Next Next
End If End If