SMS Correcion OS cambiar tecnico, siempre sea visible, solo editar en tipo temino 2

OS/OrdenesServicios.aspx.vb

@@ -460,8 +460,10 @@ Partial Class OS_OrdenesServicios
             End If
 
             If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
+
                 DVAMedicoProcedimiento.Visible = True
-                DVTipoVenta.Visible = True
+                DVTipoVenta1.Visible = True
+                DVTipoVenta2.Visible = True
 
                 DvFechaRecivido1.Visible = False
                 DvFechaRecivido2.Visible = False
@@ -471,6 +473,11 @@ Partial Class OS_OrdenesServicios
 
                 DVEpisodioPaciente.Visible = True
 
+                If CveOS > 0 And TipoEstatus = 2 Then
+                    DdlUsuarioAtendio.Enabled = True
+                    DVUsuarioAtendio3.Visible = True
+                End If
+
             End If
 
         End If
@@ -653,6 +660,7 @@ Partial Class OS_OrdenesServicios
                 TipoEstatus = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("TipoEstatus", String.Format("CveEstatusOrdenServicio = {0}", ObjOS.CveEstatusOrdenServicio), "CveEstatusOrdenServicio ASC").ToEntero
                 SeFacturara = GlobalDTTipoOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("SeFacturara", String.Format("CveOrdenServicioTipo = {0}", ObjOS.CveOSTipo))
                 CveTecnico = ObjOS.CveUsuarioAtendio
+                DdlUsuarioAtendio.SelectedValueExist(CveTecnico)
                 CargarEstatusDelUsuario(TipoEstatus)
                 CveVenta = ObjOS.CveVenta
                 If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
@@ -674,7 +682,7 @@ Partial Class OS_OrdenesServicios
                 DdlEstatusOS.SelectedValue = ObjOS.CveEstatusOrdenServicio.ToString
 
                 'If TipoEstatus = 2 Then
-                '    LnkTecnico.Visible = True
+                LnkTecnico.Visible = True
                 'End If
 
                 If TipoEstatus = 3 Then
@@ -2897,6 +2905,12 @@ Partial Class OS_OrdenesServicios
         DdlTecnico.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
         DdlTecnico.DataBind()
         DdlTecnico.Items.Insert(0, New ListItem("Seleccione", "-1"))
+
+        DdlUsuarioAtendio.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
+        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"))
@@ -3341,4 +3355,31 @@ Partial Class OS_OrdenesServicios
         End Sub
     End Class
 
+
+    Protected Sub LnkActualizarUsaurioAtendio_Click(sender As Object, e As EventArgs)
+
+        Dim ObjOs As New ClsOS
+        Dim ProcesoOk As Boolean = True
+
+
+
+        If DdlUsuarioAtendio.SelectedValue.ToEntero > 0 Then
+            For Each GvRow As GridViewRow In GvPS.Rows
+                If Not ObjOs.UpdateOrdenesServiciosAsignadas(GvRow.DataKey("CveOSDetalle").ToEntero, DdlUsuarioAtendio.SelectedValue.ToEntero, MinFecha, DateTime.Parse(MinFecha.ToShortDateString), UsuarioActual.CveEmpresa) Then
+                    ProcesoOk = False
+                    Alert($"Se presento un error al actualizar el técnico.")
+                    Exit For
+                End If
+            Next
+            If ProcesoOk Then
+                Alert($"Técnico actualizado correctamenrte  a {DdlUsuarioAtendio.SelectedItem.Text}.")
+            End If
+        Else
+            Alert("Debe de seleccionar un ténico para actualziar", TipoMensaje.MsgAdvertencia)
+        End If
+
+
+        ObjOs.Dispose()
+
+    End Sub
 End Class