diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 3c65c9dda..857438dcd 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -16534,6 +16534,14 @@ Partial Class Ventas
             End If
         End If
 
+        If Me.DevolucionAlmacen.Contiene(2) Then
+            InicializaDevolucionAlmacen()
+            UpnTools.Update()
+            Alert("El movimiento ya fue devuelto.", TipoMensaje.MsgAdvertencia)
+            ObjVentas.Dispose()
+            Exit Sub
+        End If
+
         Dim EstatusDevolucion = If(Me.DevolucionAlmacen = 0, 1, 0)
 
         If ObjVentas.UpdateVentasDevolucionAlmacen(EstatusDevolucion, CveVenta) Then