Recuperar tabla con archivo FPT perdio o corrupto

[RSalazarU]

Hola amigos del foro:

Sucedio que en un cliente se perdio el archivo .FPT, y al abrir la tabla simplemente no la abre y luego viene los problemas consecuentes.

Alguien sabe como volver a abrir la tabla y asi recuperar la informacion de sus campos, aunque se pierdan los del .FPT.

He visto el post donde se tiene enlaces a herramientas externas, pero quisera que el mismo programa los recupere.

De antemano, gracias por la ayuda.

Atentamente,

Rolando
Cochabamba - Bolivia
FWH 1109 - xHarbour 1.1.0 (SimpLex) - BCC58

[acuellar]

Rolando

Copiar de otro .FPT y darle el mismo nombre de la base.

Saludos,

Adhemar

[RSalazarU]

Bueno lo resolvi de la siguiente forma (por el momento):

Codigo original

Code: Select all  Expand view  RUN

      USE ( cFile ) NEW EXCLUSIVE ALIAS _Org //debido a que el .fpt no existe, no se abre la tabla
                                             //y NO se genera error
      _Org->(OrdSetFocus(0))                 //aca recien se produce el error, indicando que no existe el alias
 

Codigo solucion

Code: Select all  Expand view  RUN

      USE ( cFile ) NEW EXCLUSIVE ALIAS _Org //debido a que el .fpt no existe, no se abre la tabla
                                             //y NO se genera error
      if !USED("_ORG")
         if LEFT(MemoRead(cFileTbl),1)=CHR(245)//xF5    //verificamos si la tabla tiene campos MEMO
                                                        //al parecer el valor exadecimal F5 indica esto
            MemoWrit( cFileMemo, "0000000@")            //si es asi creamos un archivo con el string   0000000@
            USE ( cFile ) NEW EXCLUSIVE ALIAS _Org      //volvemos a abrir la tabla
         else
            MsgStop("Fallo al abrir el archivo original")
         endif
     endif

     _Org->(OrdSetFocus(0))                             //todo OK
 

Atentamente,

Rolando.