//
// Programa que vacia todos los registros de una base de datos.
// Use ZAPPING.EXE con cuidado, se perderan todos los registros
// de la base de datos que decida vaciar. Zapping hace un respaldo de la
// base de datos antes de vaciarla, el respaldo lleva el nombre de BACKUP.DBF
// si hay una base de datos con ese nombre, Zapping la sobreescribe sin
// avisar
// CA Clipper Version = 5.2
//
// Compile con: clipper zapping.prg /m/n
// Enlace con: rtlink file zapping
// Ejecucion: zapping <fichero> (no debe teclear la extencion, pues
// Zapping asume que es .DBF)
// Escrito por Veronica Ornelas - Mexico - byone@e-garfield.com
// Si decide usar el programa, los resultados obtenidos son de su
// responsabilidad
FUNCTION zapping(cDataBaseFile)
IF EMPTY(cDataBaseFile)
? "Uso: ZAPPING <ficheroBD>"
?
? "Donde <ficheroBD> es un fichero *.DBF estandar"
?
RETURN
END IF
IF "." $ cDataBaseFile .OR. "*" $ cDataBaseFile .OR. "?" $ cDataBaseFile
? "Nombre de archivo no debe incluir extencion o comodines del DOS (?,*)"
?
RETURN
END IF
IF FILE(cDataBaseFile + ".dbf")
USE &cDataBaseFile
cBackUp = FIELDNAME(1)
GO TOP
SORT ON cBackUp TO backup
nRegLost = LASTREC()
ZAP
? UPPER(cDataBaseFile) + ".DBF vaciada. (Perdio " + ALLTRIM(STR(nRegLost)) +;
" registros)."
?
ELSE
? UPPER(cDataBaseFile) + ".DBF no esta en directorio actual"
?
RETURN
END IF
RETURN
Comentarios sobre la versión: Versión 1 (1)