From 7db4824e2607ee7ad0e967dbf5dfb0941d773f27 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Mon, 15 Jun 2020 15:22:06 -0700
Subject: [PATCH] Correcion de cancelacion

---
 App_Code/Modelos.vb | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb
index 9fdf3e692..08b59bea8 100644
--- a/App_Code/Modelos.vb
+++ b/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