PC Toledo

Saudações!

É possível exibir o nome do índice e/ou número e/ou campos numa rotina de reorganização de índices.

O que estou querendo é o seguinte :

Indexando SAIDAS.DBF (SAI1.NTX ou CODIGO ou 1 de 2)
1%2%3%....100%

Indexando SAIDAS.DBF (SAI2.NTX ou NOME ou 2 de 2)
1%2%3%.....100%

Espero ter sido claro. Obrigado

@03,04 SAY 'No. Reg.'
@03,13 say 'Arquivo'
@03,23 say 'Indice 1'
@03,36 say 'Indice 2'
@03,50 say 'Indice 3'
@03,62 say 'Indexando'
L=5
L1=13 // Arquivo
L2=4
L3=24
L4=23 // Indice 1
L5=36 // Indice 2
l6=50 // Indice 3
atencao="Atencao!!!;Arquivo nao liberado ja em uso por outro Usuario!!!;Aguarde..."

if netuse("exame001",.t.,10)
@ L, L1 say "EXAME001"
@ L, L2 say Transform(LastRec(), "999,999")
@ 23, L3 say "LIMPANDO OS REGISTROS DELETADOS ..."
pack
ordcondset(Nil, Nil, Nil, Nil, {|| fntxprog(1)}, Nil, RecNo(), ;
Nil, Nil, Nil, Nil)
@ L, L4 say 'E001COD.NTX'
ordcreate("E001COD", Nil, "numero", {|| numero}, Nil)
@ L, L5 say 'E001NOME.NTX'
ordcondset(Nil, Nil, Nil, Nil, {|| fntxprog(2)}, Nil, RecNo(), ;
Nil, Nil, Nil, Nil)
ordcreate("E001NOME", Nil, "nome", {|| nome}, Nil)
L++
else
msgar()
return
endif


***************************************
function FNTXPROG(Arg1)
local Local1
Local1:= RecNo() / LastRec() * 100
* @ 23, 19 say Str(Arg1, 2, 0)
@ L, 61 say Transform(RecNo(), "@E 99,999,999")
@ l, 74 say Transform(Local1, "@E 999")+ "%"
return .T.

******************************


:xau :xau