From 9e34c53d7958d75b26ba3b9075312eecf761d6f7 Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Mon, 23 Sep 2019 13:41:03 -0500
Subject: [PATCH] checkpoint primero validaciones de permisos al solicitar
 ordenes de servicio

---
 OS/Asignaciones.aspx.vb            | 10 +++++++++
 OS/CatEstatusOrdenServicio.aspx.vb | 33 +++++++++++++++++-------------
 OS/OrdenesServicios.aspx.vb        | 10 +++++++++
 3 files changed, 39 insertions(+), 14 deletions(-)

diff --git a/OS/Asignaciones.aspx.vb b/OS/Asignaciones.aspx.vb
index a631d4248..f3cbf201b 100644
--- 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
 
diff --git a/OS/CatEstatusOrdenServicio.aspx.vb b/OS/CatEstatusOrdenServicio.aspx.vb
index 2c6c42f99..cead5cc0d 100644
--- a/OS/CatEstatusOrdenServicio.aspx.vb
+++ b/OS/CatEstatusOrdenServicio.aspx.vb
@@ -26,6 +26,14 @@ Partial Class OS_CatEstatusOrdenServicio
             ViewState("CveEstatuOS") = value
         End Set
     End Property
+    Private Property Orden As String
+        Get
+            Return ViewState("Orden").ToString
+        End Get
+        Set(value As String)
+            ViewState("Orden") = value
+        End Set
+    End Property
     Private Property DTEstatusUsuarios As DataTable
         Get
             Return CType(ViewState("DTEstatusUsuarios"), DataTable)
@@ -50,26 +58,23 @@ Partial Class OS_CatEstatusOrdenServicio
     End Sub
 
     Public Sub CargaDatos()
-        Dim ObjEstatusOrdenServicios As New ClsOS
+        Using ObjEstatusOrdenServicios As New ClsOS
+            If ObjEstatusOrdenServicios.GetEstatusOrdenServicio() Then
 
-        If ObjEstatusOrdenServicios.GetEstatusOrdenServicio() Then
+                DtEstatusOS = ObjEstatusOrdenServicios.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
+                GvDatos.DataSource = DtEstatusOS
 
-            DtEstatusOS = ObjEstatusOrdenServicios.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
-            GvDatos.DataSource = DtEstatusOS
+                GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa) = ObjEstatusOrdenServicios.DtResultados
 
-            GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa) = ObjEstatusOrdenServicios.DtResultados
-        Else
-            Me.GvDatos.DataSource = Nothing
-        End If
+            End If
 
-        If ObjEstatusOrdenServicios.GetEstatusUsuarios(-1, -1) Then
-            DTEstatusUsuarios = ObjEstatusOrdenServicios.DtResultados
-            Dim PermisosDeUsuario As DataTable = DTEstatusUsuarios
-        End If
+            If ObjEstatusOrdenServicios.GetEstatusUsuarios(-1, -1) Then
+                DTEstatusUsuarios = ObjEstatusOrdenServicios.DtResultados
+            End If
 
-        OrdenaDatos()
-        ObjEstatusOrdenServicios.Dispose()
+        End Using
         GvDatos.DataBind()
+        OrdenaDatos()
     End Sub
 
     Private Sub BtnAgregarEstatus_Click(sender As Object, e As EventArgs) Handles BtnAgregarEstatus.Click
diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb
index a35b28b92..a86041d35 100644
--- a/OS/OrdenesServicios.aspx.vb
+++ b/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