SMS - 2024.02.02

OS/Asignaciones.aspx.vb

@@ -40,16 +40,13 @@ Partial Class OS_Asignaciones
 #End Region
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not IsPostBack Then
+            GvNA_ConfiguraColumnas()
             CargaEstatusOS()
             'CargaUsuarios()
             CargaClientes()
             CargaSubProyecto()
 
-            If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
-                GvNA.Columns(2).HeaderText = "Hospital"
-                GvNA.Columns(7).HeaderText = "Fecha Cirugía"
-                GvNA.Columns(8).HeaderText = "Hora Cirugía"
-            End If
+
 
             If UsuarioActual.TienePermisoProceso(171) Then
                 CargaOrdenesServiciosAsignadasXPersona()
@@ -75,6 +72,9 @@ Partial Class OS_Asignaciones
             End If
             ObjEstatusPermisos.Dispose()
 
+
+
+
         End If
 
         RegistraScript("
@@ -90,6 +90,26 @@ Partial Class OS_Asignaciones
         ")
     End Sub
 
+    Private Sub GvNA_ConfiguraColumnas()
+
+        If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
+            GvNA.Columns(3).Visible = False
+            GvNA.Columns(4).Visible = False
+            GvNA.Columns(5).Visible = False
+            GvNA.Columns(6).Visible = False
+
+            GvNA.Columns(7).Visible = True
+            GvNA.Columns(8).Visible = True
+
+
+            GvNA.Columns(2).HeaderText = "Hospital"
+            GvNA.Columns(9).HeaderText = "Fecha Cirugía"
+            GvNA.Columns(10).HeaderText = "Hora Cirugía"
+        End If
+
+
+    End Sub
+
 #Region "C A R G A S "
     Private Sub CargaSubProyecto()
         DdlSubProyecto.Items.Clear()
@@ -184,7 +204,7 @@ Partial Class OS_Asignaciones
         Dim TecnicosResultado As New DataTable
 
         If ObjOS.GetSubProyectosEstatusInicial(-1, 3, UsuarioActual.CveEmpresa) Then
-            TecnicosSubProyectos = ObjOS.DtResultados
+            TecnicosSubProyectos = ObjOS.DtResultados.FiltraParametros(" Estatus = 'True' ")
         End If
 
         If DtOSSubProyectos IsNot Nothing Then