Soporte doble devolucion de movimiento de ventas

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