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