vfoxpro : Mensaje: RE: [vfoxpro] UNZAP

¿Ya estás suscrito? Entra a Yahoo!

Consejos

¿Sabías que...?

Podés hacer búsquedas de antiguos mensajes del grupo.

Mensajes

Mensajes Ayuda

Avanzado

UNZAP

Lista de mensajes

Responder | Reenviar

Mensaje #74002 de 116494 |

RE: [vfoxpro] UNZAP

Como dijera Cantinflas.... "SERVIDO JOVEN"

Saludos
Lic. Luis O. Kano González
Teléfono : 22-26-62-94 RED. 76294
Fax:: 22-26-69-83 RED. 76983
E-mail: lokanoglez@...
ESTA ES INFORMACION CONFIDENCIAL Y PRIVILEGIADA DE CITI GROUP. NO COMENTE EL CONTENIDO NI LA ENVIE A OTRA PERSONA AJENA A CITIGROUP.

THIS IS CONFIDENTIAL AND PRIVILEGED INFORMATION OF CITIGROUP. DO NOT DISCLOSE OR DISSEMINATE EXCEPT WITHIN CITIGROUP ON A STRICT NEED-TO-KNOW BASIS

-----Mensaje original-----
De: Paúl Saillé [mailto:psaille@...]
Enviado el: Jueves, 02 de Enero de 2003 10:34 a.m.
Para: Grupo VFP
Asunto: [vfoxpro] UNZAP

Feliz Año a todos...

Recuerdo que habia una utilería para recuperar registros después de un ZAP,... alguien puede proporcionarmelo o indicarme donde lo puedo encontrar?

* Para salir de la lista ENVIA UN MENSAJE EN BLANCO A: vfoxpro-unsubscribe@...

Tu uso de Yahoo! Grupos está sujeto a las Condiciones del servicio de Yahoo!.

------

Attachments are virus free!

This message has been scanned for viruses at the originating end by Nemx AV for MS Exchange Client

http://www.nemx.com/virus/home.html

Jue, 2 de Ene, 2003 5:48 pm

Mostrar opción del mensaje

Luis Kano Gonzalez <lokanoglez@...>

lokanoglez

Sin conexión

Enviar correo

[vfoxpro] SI se Puede Recuperar un archivo ZAPEADO!!!

Luis Pairazaman:

Acá te mando la función que hace la restauración de los registros, el único parametro que necesita es el número de registros que tenía el dbf.

FUNCTION UNZAP
** Y Es el número de registros a restaurar
PARAMETER Y

IF Y>0 .AND. USED()
  IF RECCOUNT()=0
   FILENAME=DBF()
   USE
   HANDLE=FOPEN(FILENAME,2)
   IF HANDLE>0
    BYTE=FREAD(HANDLE,32)
    BKUP_BYTE=BYTE
    FIELD_SIZE=ASC(SUBSTR(BYTE,11,1))+(ASC(SUBSTR(BYTE,12,1))*256)
    FILE_SIZE=FSEEK(HANDLE,0,2)
    BYTE8=CHR(INT(Y/(256*256*256)))
    BYTE7=CHR(INT(Y/(256*256)))
    BYTE6=CHR(INT(Y/256))
    BYTE5=CHR(MOD(Y,256))
    BYTE=SUBSTR(BYTE,1,4)+BYTE5+BYTE6+BYTE7+BYTE8+SUBSTR(BYTE,9)
    =FSEEK(HANDLE,0)
    =FWRITE(HANDLE,BYTE)
    =FCHSIZE(HANDLE,FILE_SIZE+(FIELD_SIZE*Y))
    =FCLOSE(HANDLE)
   ENDIF
   USE &FILENAME
  ENDIF
ENDIF
Return .t.

Sergio Meneses G.

Gerente General

Serjey Software S.A.

ICQ:49352433

-----Mensaje original-----
De: Luis Pairazaman [mailto:lpairazaman@...]
Enviado el: Martes, 18 de Junio de 2002 10:17
Para: vfoxpro@...
Asunto: [vfoxpro] RV:

> Hola buenos días comunidad podrían indicarme si hay alguna forma de > recuperar de una tabla DBF después de un ZAP > > Le agradezco mucho > > Luis > Lima Perú
* Para salir de la lista ENVIA UN MENSAJE EN BLANCO A: vfoxpro-unsubscribe@...

Tu uso de Yahoo! Grupos está sujeto a las Condiciones del servicio de Yahoo!.

* Para salir de la lista ENVIA UN MENSAJE EN BLANCO A: vfoxpro-unsubscribe@...

Tu uso de Yahoo! Grupos está sujeto a las Condiciones del servicio de Yahoo!.

Mar, 18 de Jun, 2002 10:49 pm

Mostrar opción del mensaje

"Sergio Meneses G." <metal_sm@...>

metal_sm@...

Enviar correo

Reenviar

Mensaje #74002 de 116494 |

Desplegar mensajes	Autor	Ordenar por fecha
Feliz Año a todos... Recuerdo que habia una utilería para recuperar registros después de un ZAP,... alguien puede proporcionarmelo o indicarme donde lo...	Paúl Saillé psaille.rm	2 de Ene, 2003 5:36 pm
Como dijera Cantinflas.... "SERVIDO JOVEN" Saludos Lic. Luis O. Kano González Teléfono : 22-26-62-94 RED. 76294 Fax:: 22-26-69-83 RED. 76983 E-mail:...	Luis Kano Gonzalez lokanoglez	2 de Ene, 2003 5:50 pm
Hola colegas: Ante todo un caluroso saludos para todos en este nuevo 2003. Alguien me puede facilitar algun buen manual o guia para crear tablas dinamicas con...	Ibrahim Andres brancho@...	2 de Ene, 2003 5:51 pm
y si no recuerda la cantidad de registros y coloca cualquier valor que recupera?? data inelegible? Luis Antonio Pairazamán Segura Supervisor de Desarrollo de...	Luis Pairazaman lpairazaman	2 de Ene, 2003 5:59 pm

< Tema anterior | Tema siguiente >

Avanzado