checkpoint primero validaciones de permisos al solicitar ordenes de servicio

2019-09-23 13:41:03 -05:00
parent 15c92e57df
commit 9e34c53d79
3 changed files with 39 additions and 14 deletions
--- a/OS/Asignaciones.aspx.vb
+++ b/OS/Asignaciones.aspx.vb
@@ -38,6 +38,16 @@ Partial Class OS_Asignaciones
                DivAsignacionPersona.Visible = False
                'CargaOrdenesServiciosAsignadas()
            End If
+
+            Dim ObjEstatusPermisos As New ClsOS
+            If ObjEstatusPermisos.GetEstatusUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+                Dim Permisos As New DataTable
+                Permisos = ObjEstatusPermisos.DtResultados.FiltraParametros("TipoEstatus = 2")
+                If Permisos.Rows.Count = 0 Then
+                    DdlTecnico.Visible = False
+                    BtnAsignar.Visible = False
+                End If
+            End If
        End If
    End Sub