Código Delphi [-]procedure TfrmVenta.GrabarVenta(Clienta, Vendedora, Modelo, Fecha, Cantidad, Regalo:string); begin with db do begin Ventas.Open; If Editar Then Ventas.Edit else Ventas.Insert; ... ... ...
procedure TfrmVenta.GrabarVenta(Clienta, Vendedora, Modelo, Fecha, Cantidad, Regalo:string); begin with db do begin Ventas.Open; If Editar Then Ventas.Edit else Ventas.Insert; ... ... ...