Conexión Tablas FoxPro .Dbf

[Casimiro Noteví]

Mira si puedes reconstruir la cabecera del mismo, puede que se haya estropeado. Lo más fácil es coger cualquier backup que tengas de ese fichero y comprobar que los campos estén iguales. También se puede copiar completamente la cabecera "buena" encima de la de este fichero y modificar el indicador de número de registros que tiene.

[[ElDioni]]

Hola,

por lo que describes en tu problema supongo que son las tablas del programa facturaplus. A mi me pasaba con la tabla articulo.dbf, albclil.dbf y alguna más, eran tres o cuatro, creo que conseguí resolverlo poniendo, en un TTable, en la propiedad TableName la ruta completa de la tabla, en TableType el valor ttFoxPro y luego añadiendo el fichero de índices en la propiedad IndexFiles, te ponías en IndexDefs para comprobar que te cargaba bien el índice y entonces me dejaba conectarme.

Te digo que creo que conseguí resolverlo porque no lo puedo comprobar ya que hace 3 días hemos cargado una nueva actualización del facturaplus para la nueva normativa del 347 y lo que ocurre es que, al ir a probar esto que te comento, me doy cuenta de que ya no me da error ninguna tabla, no se si es que han corregido algo pero de momento funcionan todas las tablas.

Espero que algo de esto te sirva de ayuda.

Saludos.

[marcoszorrilla]

No ha habido manera de conectarse, así que he implementado una opción de urgencia puesto que solamente se trata de cruzar datos no de escribir en las tablas.

Como el Byte 29 es donde reside si la tabla tiene índices o no he hecho una copia de la tabla cada vez que entro con el motivo de que ésta este lo mas actualizada posible y luego le he cambiado el byte que es 01 por 00, y ya lo tengo funcionando.

Código Delphi [-]
procedure KillConta();
var
mystream : tfilestream;
FileName: String;
pOrigen,pDestino:Pchar;
Value:Longint;
begin
Value:=00;
FileName:='\\Servidor\CNdbf\XXX.dbf';
pOrigen:='\\Servidor\XXX\ConXXX\EmpXX\XXX.dbf';
pDestino:='\\Servidor\CNdbf\XXX.dbf';
Try
CopyFile(pOrigen,pDestino,False);
Except
ShowMessage('Error al copiar el Fichero XXXX.');
end;

mystream := tfilestream.create(filename,
            fmOpenWrite + fmShareExclusive);
  try
    mystream.Seek(28, soFromBeginning);
    mystream.Writebuffer(Value, SizeOf(Value));
  finally
    mystream.Free;
  end;
end;

Un Saludo.

[roman]

Y, digo yo, ¿no serviría hacer esto?

1. Creas una copia limpia (misma estructura, sin índices y sin datos) de la tabla original.
2. Usas el truco del byte 29 para abrir la tabal original
3. Copias uno a uno los registros de la tabla original a la nueva.
4. Pones los índices a la tabla nueva.
5. Usas la tabla nueva.

// Saludos

[marcoszorrilla]

Román: Es que el único problema es que la tabla no se podía abrir y para hacer los cruces como la ataco con SQL los índices no me hacen falta. Ese es el motivo de hacer solamente la copia de la tabla y no de los índices, además en el momento que cambio el Byte 29 a 01 como en la situación original dejo de poder acceder y me reporta un error, otra posibilidad que estoy pensando aunque estoy satisfecho con la actual es intentar acceder por ejemplo con ADO, cosa que no sé si será posible.

Un Saludo.