error reparado en Ordenes de servicio y validacion agregada en Asignaciones

OS/Asignaciones.aspx.vb

@@ -189,6 +189,7 @@ Partial Class OS_Asignaciones
         Dim TieneError = False
         Dim CveEstatusOS = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstatusOrdenServicio", "TipoEstatus = 2", "CveEstatusOrdenServicio ASC")
         Dim time As DateTime
+        Dim contadorOrdenesAsignadas As Integer = 0
 
         For Each row As GridViewRow In GvNA.Rows
             If row.RowType = DataControlRowType.DataRow Then
@@ -197,6 +198,7 @@ Partial Class OS_Asignaciones
 
                 If row.FCCheckBox("ChbxAsignar").Checked Then
                     time = DateTime.Parse(String.Format("{0} {1}:{2} {3}", row.FCTextBox("FechaOS").Text, picker.Hour, picker.Minute, picker.AmPm))
+                    contadorOrdenesAsignadas += 1
 
                     If ObjOS.GetSubProyectosEstatusInicial(DdlTecnico.SelectedValue.ToEntero, 3, UsuarioActual.CveEmpresa) Then
                         Dim subProyectoDelTecnico As DataTable
@@ -220,11 +222,14 @@ Partial Class OS_Asignaciones
                 End If
             End If
         Next
-
-        If Not TieneError Then
-            Alert("Se asignaron las ordenes de servicio correctamente", TipoMensaje.MsgInformacion)
-            CargaOrdenesServiciosAsignadasXPersona()
-            CargaOrdenesServiciosNoAsignadas()
+        If contadorOrdenesAsignadas > 0 Then
+            If Not TieneError Then
+                Alert("Se asignaron las ordenes de servicio correctamente", TipoMensaje.MsgInformacion)
+                CargaOrdenesServiciosAsignadasXPersona()
+                CargaOrdenesServiciosNoAsignadas()
+            End If
+        Else
+            Alert("No se han seleccionado ordenes de servicio para asignar", TipoMensaje.MsgAdvertencia)
         End If
 
 

OS/OrdenesServicios.aspx.vb

@@ -1303,7 +1303,6 @@ Partial Class OS_OrdenesServicios
             TmpDT.Rows(Row.RowIndex)("Estatus") = "False"
             Row.FCLinkButton("imgEstatus").CssClass = "btn btn-circle btn-sm red"
         End If
-        UpDetalleOS.Update()
     End Sub
     Private Sub BtnAddGvDetalle_Click(sender As Object, e As EventArgs) Handles BtnAddGvDetalle.Click
         Dim ObjOS As New ClsOS
@@ -1547,7 +1546,7 @@ Partial Class OS_OrdenesServicios
 
                     Dim DetallesPendientes As Integer = TmpDT.COUNT("Estatus", "Estatus = 'False'").ToEntero
 
-                    Dim TipoEstatusSeleccionado As Integer = EstatusOSDelUsuario.FiltroPrimeroValor("TipoEstatus", String.Format("CveEstatusOrdenServicio = {}", DdlEstatusOS.SelectedValue), "Orden ASC").ToEntero
+                    Dim TipoEstatusSeleccionado As Integer = EstatusOSDelUsuario.FiltroPrimeroValor("TipoEstatus", String.Format("CveEstatusOrdenServicio = {0}", DdlEstatusOS.SelectedValue), "Orden ASC").ToEntero
 
                     If DetallesPendientes = 0 AndAlso TipoEstatusSeleccionado = 2 Then
                         'Se estatus de OS a  TERMINADO