uma das primeiras duvidas é a abertura e criação dos indices atualmente tenho uma função que faz isso vou colocar um trecho aqui , original
a duvida é como seria no Letodb
// chamada da net_use()
* dbf alias indice
if (!net_use("MCOCUP", "MCO","MCOCUP"))
quit
endif
**********************************************************
function Net_use
parameters lfile, lalias, lindex, lexcl, lretry
private lforever, v_arq,nomearq
lretry:= iif(Type("lretry") != "N", 500, lretry)
lexcl:= iif(Type("lexcl") != "L", .F., lexcl)
lforever:= lretry == 0
v_arq:= lfile + ".dbf"
do while (lretry > 0 .or. lforever)
if (lexcl)
use (lfile) alias (lalias) new exclusive
else
use (lfile) alias (lalias) new
endif
if (used())
exit
endif
if (mens(24, 11, "Arquivo nao liberado... AGUARDE ", 1) == 27)
exit
endif
lretry:= lretry - 1
enddo
if (used())
if (lindex = p_bancos+"MCOCUP")
if (!file(p_bancos+"MCOCUP.CDX"))
nomearq:= lindex
* Criando arquivo de indice
index on sui tag sui to (lindex)
set index to (lindex)
else
set index to (lindex)
endif
endif
endif
*************************************
A arte de programar é simplesmente fazer seus pensamentos serem interpretados por uma maquina :) clipper 5.3 /harbour/minigui