diff --git a/Sistemas/PermisosPorUsuario.aspx.vb b/Sistemas/PermisosPorUsuario.aspx.vb
index d089848a8..b278b5e5d 100644
--- a/Sistemas/PermisosPorUsuario.aspx.vb
+++ b/Sistemas/PermisosPorUsuario.aspx.vb
@@ -258,19 +258,19 @@ Partial Class Sistemas_PermisosPorUsuario
         ''Nota, permitir, tiene 3 valores, ''(Vacio), no se ha estipulado, '0' que se denego, '1' permitido(aplicado solo cuando no viene del rol
         If HdnCveModuloAcceso.Value <> "" Then
             If HdnPermitir.Value = "" OrElse HdnPermitir.Value = "0" Then
-                If ObjUsuarios.UpdateUsuariosModulos(HdnCveUsuario.Value.ToEntero, HdnCveModulo.Value.ToEntero, Not ChkModuloDenegar.Checked) Then
+                If ObjUsuarios.UpdateUsuariosModulos(HdnCveUsuario.Value.ToEntero, HdnCveModulo.Value.ToEntero, Not ChkModuloDenegar.Checked, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
                     Alert("Se ha actualizado el acceso al modulo correctamente")
                 End If
             End If
             'SI EL MODULO TRARE EL PERMISO Y ESTA ASIGNADO TAMBIEN (2 palomitas)
             If HdnPermitir.Value = "1" Then
-                If ObjUsuarios.UpdateUsuariosModulos(HdnCveUsuario.Value.ToEntero, HdnCveModulo.Value.ToEntero, Not ChkModuloDenegar.Checked) Then
+                If ObjUsuarios.UpdateUsuariosModulos(HdnCveUsuario.Value.ToEntero, HdnCveModulo.Value.ToEntero, Not ChkModuloDenegar.Checked, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
                     Alert("Se ha actualizado el acceso al modulo correctamente")
                 End If
             End If
         Else
             If HdnPermitir.Value = "" OrElse HdnPermitir.Value = "1" Then
-                If ObjUsuarios.UpdateUsuariosModulos(HdnCveUsuario.Value.ToEntero, HdnCveModulo.Value.ToEntero, ChkModuloPermitir.Checked) Then
+                If ObjUsuarios.UpdateUsuariosModulos(HdnCveUsuario.Value.ToEntero, HdnCveModulo.Value.ToEntero, ChkModuloPermitir.Checked, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
                     Alert("Se ha actualizado el acceso al modulo correctamente")
                 End If
             End If
@@ -464,19 +464,19 @@ Partial Class Sistemas_PermisosPorUsuario
         ''Nota, permitir, tiene 3 valores, ''(Vacio), no se ha estipulado, '0' que se denego, '1' permitido(aplicado solo cuando no viene del rol
         If HdnCveModuloAccesoProceso.Value <> "" Then
             If HdnPermitirProceso.Value = "" OrElse HdnPermitirProceso.Value = "0" Then
-                If ObjUsuarios.UpdateUsuariosProcesos(HdnCveUsuarioProceso.Value.ToEntero, HdnCveProceso.Value.ToEntero, Not ChkDenegarProceso.Checked) Then
+                If ObjUsuarios.UpdateUsuariosProcesos(HdnCveUsuarioProceso.Value.ToEntero, HdnCveProceso.Value.ToEntero, Not ChkDenegarProceso.Checked, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
                     Alert("Se ha actualizado el proceso correctamente")
                 End If
             End If
             'SI EL MODULO TRARE EL PERMISO Y ESTA ASIGNADO TAMBIEN (2 palomitas)
             If HdnPermitirProceso.Value = "1" Then
-                If ObjUsuarios.UpdateUsuariosProcesos(HdnCveUsuarioProceso.Value.ToEntero, HdnCveProceso.Value.ToEntero, Not ChkDenegarProceso.Checked) Then
+                If ObjUsuarios.UpdateUsuariosProcesos(HdnCveUsuarioProceso.Value.ToEntero, HdnCveProceso.Value.ToEntero, Not ChkDenegarProceso.Checked, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
                     Alert("Se ha actualizado el proceso correctamente")
                 End If
             End If
         Else
             If HdnPermitirProceso.Value = "" OrElse HdnPermitirProceso.Value = "1" Then
-                If ObjUsuarios.UpdateUsuariosProcesos(HdnCveUsuarioProceso.Value.ToEntero, HdnCveProceso.Value.ToEntero, ChkPermitirProceso.Checked) Then
+                If ObjUsuarios.UpdateUsuariosProcesos(HdnCveUsuarioProceso.Value.ToEntero, HdnCveProceso.Value.ToEntero, ChkPermitirProceso.Checked, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
                     Alert("Se ha actualizado el proceso correctamente")
                 End If
             End If