Correcion de cancelacion

App_Code/Modelos.vb

@@ -4585,7 +4585,7 @@ Namespace Modelos
                                     End If
 
                                     'DEBE REGRESAR LA EXISTENCIA DE (ENTREGA POR ADELANTADO) AL ALMACEN ORGINAL (GENERAL,SIN COSTO)
-                                    If Not ErrorCancelar AndAlso DtDevoluciones IsNot Nothing Then
+                                    If Not ErrorCancelar AndAlso DtDevoluciones IsNot Nothing AndAlso DtDevoluciones.Rows.Count > 0 Then
                                         For Each CveRemision As Integer In ListaRemisionesCancelar
                                             Dim DtDevRemision As DataTable = DtDevoluciones.FiltraParametros($"CveRemision={CveRemision}")
 
@@ -4603,8 +4603,6 @@ Namespace Modelos
                                             Next
 
                                         Next
-                                    Else
-                                        ErrorCancelar = True
                                     End If
 
                                 End If