diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb
index 3634904b3..998390c5c 100644
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -6489,14 +6489,16 @@ Namespace Modelos
 
                                         For Each RowDevolucion As DataRow In DtDevMovs.Rows
                                             CveAlmacen = RowDevolucion("CveAlmacen").ToString().ToEntero()
+                                            Dim tdtt As DataTable = DtMovRemision.FiltraParametros($"CveMovimiento={RowDevolucion("CveMovimiento")} AND CvePS > 0 AND SaldoAlmacen <> 0")
 
-                                            If Not CancelarMovimientosRemision(CveVenta, CveAlmacen, CveAlmacenGeneral, DtMovRemision.FiltraParametros($"CveMovimiento={RowDevolucion("CveMovimiento")} AND CvePS > 0"), ObjVentas, ObjInventario, ObjConta) Then
-                                                ErrorCancelar = True
-                                                MensajeError = "Ocurrió un error al cancelar los movimientos de la remisión."
-                                                Exit For
+                                            If tdtt IsNot Nothing AndAlso tdtt.Rows.Count > 0 Then
+                                                If Not CancelarMovimientosRemision(CveVenta, CveAlmacen, CveAlmacenGeneral, tdtt, ObjVentas, ObjInventario, ObjConta) Then
+                                                    ErrorCancelar = True
+                                                    MensajeError = "Ocurrió un error al cancelar los movimientos de la remisión."
+                                                    Exit For
+                                                End If
                                             End If
                                         Next
-
                                     End If
 
                                     'CANCELAR MOVIMIENTOS DE USADOS SI TIENE
@@ -6513,7 +6515,6 @@ Namespace Modelos
                                             ErrorCancelar = True
                                         End If
                                     End If
-
                                 End If
 
                                 'VERIFICAR MOVIMIENTOS DE APARTADOS
@@ -6531,7 +6532,6 @@ Namespace Modelos
                                         ErrorCancelar = True
                                     End If
                                 End If
-
                             End If
                         End If