Gracias por responder Marcos.
En OnNewRecord del TTable (En el inspector) no tengo nada.
Donde utilizo Insert es acá.
Lo cual me da para pensar el código, porque lo único que cambio es el 'Stock' en la base de datos cuando realizo la venta.
Código:
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Table1.Insert; //Abrimos la tabla.
Form1.Table1.FieldByName('Codigo').AsString:=Edit1.Text;
Form1.Table1.FieldByName('Costo').AsString:=DBEdit4.Text;
Form1.Table1.FieldByName('Stock').AsString:=Edit1.Text;
Form1.Table1.Post; //Guardamos los cambios.
end;
Respecto a Append, lo utilizo solo en la creación de un .scv que es en donde vuelco las ventas realizadas con fecha, hora, vendedor, etc.
Código:
AssignFile(Archivo,'Ruta\*.csv'); //Este es el archivo separado por comas.
if not(FileExists('Ruta\*.csv')) then ReWrite(Archivo)
else Append(Archivo);
Estoy seguro que es una tontería, la mayoría de los "problemas" eran una tontera, creo que esto también lo será.
(Es más bien un deseo más que una afirmación!)
Lo que si descarté es que sea en el código dentro del Button, ya que solo inserta las líneas en blanco cuando corro el programa. Si lo abro y lo cierro sin hacer ninguna operación de todos modos me inserta la línea en blanco.
Alguna idea?
Gracias por el tiempo y la atención.