diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb
index eb2eea490..ec360eed3 100644
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -4553,35 +4553,39 @@ Namespace Modelos
 
                                 Next
 
-                                'VERIFICA LOS MOVIMIENTOS DE DEVOLUCION YA GENERADOS QUE TENGAN EXISTENCIA EN (ENTREGA POR ADELANTADO)
-                                If Not ErrorCancelar Then
-                                    If ObjInventario.GetMovimientosDevoluciones(CveVenta, UsuarioActual.CveEmpresa) Then
-                                        DtDevoluciones = ObjInventario.DtResultados.FiltraParametros("CveTipoAlmacen = 10")
-                                    Else
-                                        ErrorCancelar = True
-                                        MensajeError = "Ocurrió un error al cargar los datos de devolución. Por favor vuelva a intentar."
-                                    End If
-                                End If
-
                                 'SI EXISTEN HAY EXISTENCIA EN (ENTREGA POR ADELANTADO) SE TIENE QUE REGRESAR AL ALMACEN GENERAL
                                 If Not ErrorCancelar AndAlso ListaRemisionesCancelar IsNot Nothing AndAlso ListaRemisionesCancelar.Count > 0 Then
-                                    For Each CveRemision As Integer In ListaRemisionesCancelar
-                                        Dim DtDevRemision As DataTable = DtDevoluciones.FiltraParametros($"CveRemision={CveRemision}")
 
-                                        Dim RowDevolucion As DataRow = DtDevRemision.FiltraParametros("", DistinctColumns:={"CveRemision", "CveAlmacen", "CveAlmacenDestino"}).Rows(0)
-
-                                        CveAlmacen = RowDevolucion("CveAlmacen").ToString().ToEntero()
-                                        CveAlmacenDevolucion = RowDevolucion("CveAlmacenDestino").ToString().ToEntero()
-
-                                        'DEBE REGRESAR LA EXISTENCIA DE (ENTREGA POR ADELANTADO) AL ALMACEN GENERAL
-                                        If Not CancelarMovimientosRemision(CveRemision, CveAlmacen, CveAlmacenDevolucion, DtDevRemision, ObjVentas, ObjInventario) Then
+                                    'VERIFICA LOS MOVIMIENTOS DE DEVOLUCION YA GENERADOS QUE TENGAN EXISTENCIA EN (ENTREGA POR ADELANTADO)
+                                    If Not ErrorCancelar Then
+                                        If ObjInventario.GetMovimientosDevoluciones(CveVenta, UsuarioActual.CveEmpresa) Then
+                                            DtDevoluciones = ObjInventario.DtResultados.FiltraParametros("CveTipoAlmacen = 10")
+                                        Else
                                             ErrorCancelar = True
-                                            MensajeError = "Ocurrió un error al cancelar los movimientos de la remisión."
-                                            Exit For
+                                            MensajeError = "Ocurrió un error al cargar los datos de devolución. Por favor vuelva a intentar."
                                         End If
+                                    End If
+
+                                    'DEBE REGRESAR LA EXISTENCIA DE (ENTREGA POR ADELANTADO) AL ALMACEN GENERAL
+                                    If Not ErrorCancelar AndAlso DtDevoluciones IsNot Nothing Then
+                                        For Each CveRemision As Integer In ListaRemisionesCancelar
+                                            Dim DtDevRemision As DataTable = DtDevoluciones.FiltraParametros($"CveRemision={CveRemision}")
+
+                                            Dim RowDevolucion As DataRow = DtDevRemision.FiltraParametros("", DistinctColumns:={"CveRemision", "CveAlmacen", "CveAlmacenDestino"}).Rows(0)
+
+                                            CveAlmacen = RowDevolucion("CveAlmacen").ToString().ToEntero()
+                                            CveAlmacenDevolucion = RowDevolucion("CveAlmacenDestino").ToString().ToEntero()
+
+                                            If Not CancelarMovimientosRemision(CveRemision, CveAlmacen, CveAlmacenDevolucion, DtDevRemision, ObjVentas, ObjInventario) Then
+                                                ErrorCancelar = True
+                                                MensajeError = "Ocurrió un error al cancelar los movimientos de la remisión."
+                                                Exit For
+                                            End If
+                                        Next
+                                    Else
+                                        ErrorCancelar = True
+                                    End If
 
-                                        DtDevRemision.Dispose()
-                                    Next
                                 End If
 
                                 'VERIFICAR MOVIMIENTOS DE APARTADOS