A ver si alguien me aclara éste error

[JoseLuis]

Hola a todos

Tengo éste código

Code: Select all  Expand view

cFile:="ALBARAN"
dbUseArea(.T.,,(cFile),"Pedidos",.T.)
Pedidos->(OrdSetFocus("Codigo"))
pedidos->(Dbgotop())
CursorWait()
//***** _DIAS = 90
dStartDate:=DATE()-_DIAS
COPY TO POD2WEB1 FOR pedidos->FECHA > dStartDate

La base de datos ALBARAN.DBF, tiene campo memo, por lo tanto tiene ALBARAN.FPT.

Bien, pues cuando llega al copy, me hace bien la copia en el fichero POD2WEB1.DBF, y me genera un POD2WEB1.FPT, pero se queda aquí, no continua y me lanza el siguiente error:

Error description: Error DBFCDX/1010 Read error: G:\mocwin\2007\ALBARAN.fpt

Stack Calls
===========
Called from: => __DBCOPY(0)
Called from: subesube.prg => CREATEMPCLI(229)

Si pongo el codeblock para averiguar el error delante de la línea en cuestión, me da los siguientes errores
[img][img]http://img528.imageshack.us/img528/4216/error1pv1.th.jpg[/img] [/img]
[img][img]http://img150.imageshack.us/img150/9868/error2oh0.th.jpg[/img][/img]

Que podrá ser? Será por el fpt?
Será mejor que en lugar de un copy to, cree la base en blanco y haga un append from?

Saludos

[JoseLuis]

Solucionado

Debía de estar corrupto el fpt, le he pasado el Advanced Dbf Repair, y ya funciona

Saludos