Entrar
¿Nuevo usuario? Inscribirme
vfoxpro · Lista de Correo de Programadores y aficionados de Visual FoxPro, Foxpro para DOS y para Windows, en Castellano.
? ¿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

lokanoglez
Sin conexión Sin conexión
Enviar correo 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

metal_sm@...
Enviar correo 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
Sin conexión Enviar correo
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
Sin conexión Enviar correo
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@...
Enviar correo
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
Sin conexión Enviar correo
2 de Ene, 2003
5:59 pm
Avanzado

Copyright © 2009 Yahoo! de Argentina S.R.L. Todos los derechos reservados.
Política de privacidad - Condiciones del Servicio - Reglas de la comunidad de Yahoo! - Ayuda