This commit is contained in:
2019-09-10 18:24:19 -07:00

View File

@@ -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