Aplicacion básica para actualizar base de datos en vfp 6.0
* 1-Copiar las tablas de Clipper en una carpeta temporal
* 2-Establecer las páginas de código Usando la utilidad CPZERO.PRG
* Debes agregar CPZERO.PRG a tu proyecto.
* 3-Crear una estructura en Visual Fox
* 4-Agregar datos por Append from
* 5-Deberás generar los índices que necesites (para esto es recomendable
* escribir una rutina de reindexado.
* Suponiendo que las tablas de Clipper se copian a c:\temp
dtemp="c:\temp"
* Suponiendo que las tablas de Fox se copian a c:\proyecto\Datos
dFox="c:\proyecto\Datos"
nFiles=Adir(gafiles,addbs(dtemp)+"*.dbf")
if nFiles=0
Messagebox("No hay archivos para traducir",0,"Control")
return
endif
for i=1 to alen(gafiles,1)
lcFile=gafiles[i,1]
lcTabla=JustStem(lcFile)
lcOpen=addbs(dtemp)+lcTabla
use (lcOpen) IN 0 EXCLUSIVE
if cpDbf(Lcfile)=0 && no tiene página de códigos asignada
select (lcFile)
use && cerrar la tabla
do cpzero with "&lcOpen",437 && asigna página de códigos
use (lcOpen) IN 0 EXCLUSIVE && vuelve a abrir el archivo
aFields(gastruct) && genera una matriz con estructura
use && cierra la tabla
create table &dtemp\varchi from array gastruct && crea nueva tabla
select varchi
append from &lcOpen && agrega datos de la vieja tabla
copy to &dfox\&lcTabla && los copia a la dirección final
USE && cierra la tabla
endif
NEXT
