Actualizacion sobre la asignacion y permisos en las ordenes de servicio mayormente todo enfocado a la lógica de subProyecto

OS/Asignaciones.aspx.vb

@@ -17,12 +17,20 @@ Partial Class OS_Asignaciones
             ViewState("TmpDT") = value
         End Set
     End Property
+
+    Private Property DtOSSubProyectos As DataTable
+        Get
+            Return CType(ViewState("DtOSSubProyectos"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DtOSSubProyectos") = value
+        End Set
+    End Property
 #End Region
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not IsPostBack Then
-
             CargaEstatusOS()
-            CargaUsuarios()
+            'CargaUsuarios()
             CargaClientes()
             CargaSubProyecto()
 
@@ -38,6 +46,7 @@ Partial Class OS_Asignaciones
                 DivAsignacionPersona.Visible = False
                 'CargaOrdenesServiciosAsignadas()
             End If
+            CargarTecnico()
 
             Dim ObjEstatusPermisos As New ClsOS
             If ObjEstatusPermisos.GetEstatusUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
@@ -79,6 +88,7 @@ Partial Class OS_Asignaciones
         FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1")
 
         If ObjOS.GetOrdenesServiciosNoAsignadas(DdlCliente.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlEstatusOS.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, FechaI, FechaF) Then
+            DtOSSubProyectos = ObjOS.DtResultados.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})
             GvNA.DataSource = ObjOS.DtResultados
             TmpDT = ObjOS.DtResultados
         Else
@@ -138,6 +148,26 @@ Partial Class OS_Asignaciones
         End If
         UPFiltros.Update()
     End Sub
+    Private Sub CargarTecnico()
+        Dim ObjOS As New ClsOS
+        Dim TecnicosSubProyectos As New DataTable
+        Dim TecnicosResultado As New DataTable
+
+        If ObjOS.GetSubProyectosEstatusInicial(-1, 3, UsuarioActual.CveEmpresa) Then
+            TecnicosSubProyectos = ObjOS.DtResultados
+        End If
+
+        For Each SubProyecto As DataRow In DtOSSubProyectos.Rows
+            Dim EstatusDeTipoProcesoMenor As Integer = TecnicosSubProyectos.FiltraParametros(String.Format("SubProyecto = '{0}'", SubProyecto.Item("SubProyecto"))).Rows(0).Item("CveEstatusOrdenServicio").ToString.ToEntero
+            Dim dtAuxiliar As New DataTable
+            dtAuxiliar = TecnicosSubProyectos.FiltraParametros(String.Format("SubProyecto = '{0}' AND CveEstatusOrdenServicio = {1}", SubProyecto.Item("SubProyecto"), EstatusDeTipoProcesoMenor), "", {"CveUsuario", "Nombre"})
+            TecnicosResultado.Merge(dtAuxiliar)
+        Next
+        DdlTecnico.DataSource = TecnicosResultado
+        DdlTecnico.DataBind()
+        DdlTecnico.Items.Insert(0, New ListItem("Todos", "-1"))
+        ObjOS.Dispose()
+    End Sub
 #End Region
 
 #Region "BTN'S"