procedure TfrmVenta.GrabarVenta(Clienta, Vendedora, Modelo, Fecha, Cantidad, Regalo:string);
begin
dm.Ventas.Open;
If Editar Then dm.Ventas.Edit;
If not Editar Then dm.Ventas.Insert;
dm.VentasClienta.Value := Clienta;
dm.VentasVendedora.Value := Vendedora;
dm.VentasModelo.Value := Modelo;
dm.VentasFecha.Value := Fecha;
dm.VentasCantidad.Value := Cantidad;
dm.VentasRegalo.Value := Regalo;
dm.Ventas.Post;
dm.Ventas.Refresh;
end;