Que tal amigos!? Soy nuevo en este foro, quisiera que alguien me ayudara con este problema que tengo, no se por donde atacarlo..
La situacion es esta, estoy haciendo un proyecto de punto de venta en delphi 6, y estoy utilizando Paradox, normalmente no tengo este problema.
Tengo una tabla con varios campos, y ya tiene muchos registros, pero le acabo de agregar el campo Year, y mediante un procedimiento lo llené para todos los registros que ya tenia ,checo la tabla con Database Desktop y efectivamente el campo Year esta lleno, pero al seguir programando un rato despues me encuentro con que la tabla esta como antes, con el campo Year vacio para todos los registros. Ejecuto varias veces el programa y ahi estan los datos que escribi.. pero a las tantas de repente los datos ya no estan...
Esto no es todo... copio todos los archivos que se generan de la tabla, incluyendo los indices y todo, a otra carpeta, cuando el campo Year de la tabla esta lleno, y al abrir la tabla con Database Desktop, desde la nueva ubicacion de la tabla, dicho campo esta vacio otra vez!!! como si un documento de excel no guardara los ultimos cambios.
Esto tambien me paso al agregar automaticamente muchos registros a otra tabla.. la abri de nuevo, y los registros ya no estaban... no se que sucede... quizá es mi metodo para escribir los datos a la tabla.. les dejo el codigo, y espero que alguien me eche una mano...
Código Delphi
[-]
ventas.Filtered:=false;
ventas.First;
for i:=1 to ventas.RecordCount do
begin
ventas.Edit;
ventas['year']:=strtoint(copy(ventas['fecha'],7,4));
ventas.Post;
if ventas.Eof=false then ventas.Next;
end;
ventas.First;
for i:=1 to ventas.RecordCount do
begin
if clientes.Locate('nombre',ventas['nombre'],[])=false then
begin
clientes.Append;
clientes['nombre']:=ventas['nombre'];
clientes['domicilio']:=ventas['domicilio'];
clientes['ciudad']:=ventas['ciudad'];
clientes['rfc']:=ventas['rfc'];
clientes['vendedor']:=ventas['vendedor'];
clientes.Post;
end;
if ventas.Eof=false then ventas.Next;
end;
Muchas Gracias!!!