Indexando CDX e gera IDX
Enviado: 07 Jan 2009 23:10
Olá amigos!
Estou tentando indexar CDX e o comando index só cria INX
Coloquei no inicio do sistema mae o "request dbfcdx" e rddsetdafault("dbfcdx").
Abaixo a rotina:
Desde já agradeço a ajuda.
Estou tentando indexar CDX e o comando index só cria INX
Coloquei no inicio do sistema mae o "request dbfcdx" e rddsetdafault("dbfcdx").
Abaixo a rotina:
FOR t=1 TO LEN(sistema[i,O_INDIC]) // para cada indice do subsistema
ntx=sistema[i,O_ARQUI,O_DIR_NTX]+sistema[i,O_INDIC,t] // obtem nome do indice
IF !FILE(ntx+EXTENSAO()).OR.harq // se nao existir ou criou estrutura
POE_GAUGE(ntx+EXTENSAO(),"CRIANDO") // vamos criar...
#ifdef COM_REDE
IF !USEARQ(dbf,.t.,20,1,.f.) // tenta abrir arquivo modo exclusivo
SETPOS(23,1)
RETU (.f.) // retorna .f., pois nao conseguiu
ENDIF
#else
USEARQ(dbf,,,,.f.) // abre arquivo e indexa
#ENDIF
INDE ON &(sistema[i,O_CHAVE,t]) TO (ntx) EVAL POE_GAUGE() EVERY (LASTREC()/20)
RESTSCR(0,0,MAXROW(),79,tel_a) // restaura tela
ENDIF
NEXT
Desde já agradeço a ajuda.