SMS - 2024.01.27

OS/OrdenesServicios.aspx.vb

@@ -2913,8 +2913,46 @@ Partial Class OS_OrdenesServicios
         DdlUsuarioAtendio.DataBind()
         DdlUsuarioAtendio.Items.Insert(0, New ListItem("Sin Asignar", "-1"))
 
-
+        CargaTecnicoDdlUsuarioAtendio()
     End Sub
+
+
+
+    Private Sub CargaTecnicoDdlUsuarioAtendio()
+        Dim ObjOS As New ClsOS
+        Dim DtOSSubProyectos As New DataTable
+        Dim TecnicosSubProyectos As New DataTable
+        Dim TecnicosResultado As New DataTable
+
+        If ObjOS.GetOrdenesServiciosNoAsignadas(-1, DdlSubProyecto.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa, "-1", "-1") Then
+            DtOSSubProyectos = ObjOS.DtResultados.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})
+        End If
+
+        If DtOSSubProyectos IsNot Nothing Then
+
+            If ObjOS.GetSubProyectosEstatusInicial(-1, 3, UsuarioActual.CveEmpresa) Then
+                TecnicosSubProyectos = ObjOS.DtResultados
+            End If
+
+            For Each SubProyecto As DataRow In DtOSSubProyectos.Rows
+                Dim TecnicosSubProyectoAux As DataTable = TecnicosSubProyectos.FiltraParametros(String.Format("SubProyecto = '{0}'", SubProyecto.Item("SubProyecto")))
+                If TecnicosSubProyectoAux.Rows.Count > 0 Then
+                    Dim EstatusDeTipoProcesoMenor As Integer = TecnicosSubProyectoAux.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)
+                End If
+            Next
+        End If
+
+
+        ObjOS.Dispose()
+
+        DdlUsuarioAtendio.DataSource = TecnicosResultado
+        DdlUsuarioAtendio.DataBind()
+        DdlUsuarioAtendio.Items.Insert(0, New ListItem("Sin Asignar", "-1"))
+    End Sub
+
     Private Sub LnkTecnico_Click(sender As Object, e As EventArgs) Handles LnkTecnico.Click
         RegistraScript(String.Format("$('#{0}').modal('show');", "DivCambiarTecnico"))
     End Sub