Ver Mensaje Individual
  #9  
Antiguo 21-03-2007
paulodb paulodb is offline
Miembro
 
Registrado: jul 2006
Posts: 11
Reputación: 0
paulodb Va por buen camino
Smile ya lo solucione...

Luego de programar horas y horas y buscar informacion me di cuenta que si reseteo el byte 28 del archivo dbf evitare que salga el error "index not found" (que me indica que los indices del archivo estan estropeados)
Para ello cree una funcion a la cual se le pasa el path o direccion de donde se encuentra la tabla DBF y luego resetea el byte 28.
Buenisismo!

Código Delphi [-]
procedure PasarDBF3(DireccionTabla : string);
var sArchivo: String ;
    F: File of byte;
const Value: Byte = 0;
begin
sArchivo := DireccionTabla;
AssignFile(F, sArchivo);
Reset( F ) ;
Seek(F, 28);
Write(F, Value);
CloseFile( F );
end;

Última edición por dec fecha: 21-03-2007 a las 17:57:16.
Responder Con Cita