SMS - 2024.01.27

OS/Asignaciones.aspx.vb

@@ -498,10 +498,13 @@ Partial Class OS_Asignaciones
                 Dim TMSelector = DirectCast(e.Row.FindControl("TimeSelector"), TimeSelector)
                 TMSelector.Date = FechaCita
 
+                e.Row.Cells(7).Attributes.Add("data-order", e.Row.DBCampo("FechaCitaOS").ToDate.Ticks.ToString)
+                e.Row.Cells(8).Attributes.Add("data-order", e.Row.DBCampo("FechaCitaOS").ToDate.ToString("HHmm"))
 
             End If
 
 
+
         End If
 
         UpOS.Update()

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

OS/RepOSMedicas.aspx

@@ -155,6 +155,13 @@
         </ContentTemplate>
     </asp:UpdatePanel>
 
+     <div class="row">
+     <div class="col-md-12" style="text-align:right">
+         <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="display: inline-block; width: 150px;" />
+         <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+     </div>
+ </div>
+
     <asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
             <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" Width="100%" EmptyDataText="No se encontraron ordenes de servicio con los filtros especificados"