checkpoint primero validaciones de permisos al solicitar ordenes de servicio

OS/OrdenesServicios.aspx.vb

@@ -323,6 +323,16 @@ Partial Class OS_OrdenesServicios
 
             hdnEsThickbox.Value = "S"
             hdnClientIDLink.Value = "NoDefinido"
+
+            Dim ObjEstatusPermisos As New ClsOS
+            If ObjEstatusPermisos.GetEstatusUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+                Dim PermisoEstatus As New DataTable
+                PermisoEstatus = ObjEstatusPermisos.DtResultados.FiltraParametros("TipoEstatus = 1")
+                If PermisoEstatus.Rows.Count = 0 Then
+                    UpGuardar.Visible = False
+                End If
+            End If
+            ObjEstatusPermisos.Dispose()
         End If
 
     End Sub