Reindexar varios archivos a la vez
Publicado por Armando Gutierrez (2 intervenciones) el 04/11/2005 12:50:57
Hola buenas,
He creado una pequeña rutina para regenerar todos los indices de un monton de tabla a la vez, pero no me acaba de funcionar, soy nuevo en clipper y no demasiado ducho en estas cosas... Ahi va el codigo:
***********************************************************
use listas.dbf alias Rel
index on NOMBRE to listas.ntx
Rel->(dbgotop())
do while Rel->(!Eof())
fnl:=Rel->Nombre
fna:=fnl+'.Dbc'
fnli:=Alltrim(fnl)+'.Ntx'
fnli1:=Alltrim(fnl)+'1.Ntx'
fnli2:=Alltrim(fnl)+'2.Ntx'
fnli3:=Alltrim(fnl)+'3.Ntx'
fnli4:=Alltrim(fnl)+'4.Ntx'
use &fna alias informe
INDEX ON Str(cod_pro,6) to &fnli
INDEX ON Nombre to &fnli1
INDEX ON str(cod_int,4)+Nombre to &fnli2
INDEX ON str(cod_int,4)+str(planta,3)+Nombre to &fnli3
INDEX ON str(cod_int,4)+str(habitacion,6) to &fnli4
Rel->(dbskip())
enddo
************************************************************
La tabla "listas.dbf" contiene todos los nombres de los dbf de los que quiero volver a crear los indices.
Me dice que no existe el alias Rel
¿Alguna idea?
Un saludo
He creado una pequeña rutina para regenerar todos los indices de un monton de tabla a la vez, pero no me acaba de funcionar, soy nuevo en clipper y no demasiado ducho en estas cosas... Ahi va el codigo:
***********************************************************
use listas.dbf alias Rel
index on NOMBRE to listas.ntx
Rel->(dbgotop())
do while Rel->(!Eof())
fnl:=Rel->Nombre
fna:=fnl+'.Dbc'
fnli:=Alltrim(fnl)+'.Ntx'
fnli1:=Alltrim(fnl)+'1.Ntx'
fnli2:=Alltrim(fnl)+'2.Ntx'
fnli3:=Alltrim(fnl)+'3.Ntx'
fnli4:=Alltrim(fnl)+'4.Ntx'
use &fna alias informe
INDEX ON Str(cod_pro,6) to &fnli
INDEX ON Nombre to &fnli1
INDEX ON str(cod_int,4)+Nombre to &fnli2
INDEX ON str(cod_int,4)+str(planta,3)+Nombre to &fnli3
INDEX ON str(cod_int,4)+str(habitacion,6) to &fnli4
Rel->(dbskip())
enddo
************************************************************
La tabla "listas.dbf" contiene todos los nombres de los dbf de los que quiero volver a crear los indices.
Me dice que no existe el alias Rel
¿Alguna idea?
Un saludo
Valora esta pregunta
0