Exibir % enquanto indexa

[Alcir]

Boa Noite!!!,,

Nao e nunhuma funcao o que funcao e da para o gasto.

t+





L=8
L1=15 // Arquivo
L2=4
L3=24
L4=27 // Indice 1
L5=39 // Indice 2
l6=51 // Indice 3

@06,07 say 'N. Reg.'
@06,l1 say 'Arquivo'
@06,l4 say 'Indice 1'
@06,l5 say 'Indice 2'
setcolor(cor2)

close all

************************* CLIENTE **************************

if netuse("cliente",.t.,10)
@ L, 6 say Transform(LastRec(), "999,999")
@ L, l1 say "CLIENTE"
@ L, l4 say " "
ordcondset(Nil, Nil, Nil, Nil, {|| fntxprog(1)}, Nil, RecNo(), ;
Nil, Nil, Nil, Nil)
@ L, l4 say 'CLI001.NTX'
ordcreate("CLI001", Nil, "codigo", {|| codigo}, Nil)
@ L, l5 say 'CLI002.NTX'
ordcondset(Nil, Nil, Nil, Nil, {|| fntxprog(2)}, Nil, RecNo(), ;
Nil, Nil, Nil, Nil)
ordcreate("CLI002", 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, 70 say Transform(Local1, "@E 999")+ "%"
return .T.

Oi Marbio

Tentei compilar essa funcção, mas ta dando erro na hora de executar.

1o. erro : cor2 nao existe
2o. erro : função NETUSE Não existe

Eu queria uma função que aparecesse a % de execução, será que vc pode dar uma revisada, por favor, eu preciso, obrigado, Abração

[Maligno]

Isso é fácil de você mesmo implementar ou até corrigir esse código. Basta você criar uma função que possa fazer parte do comando de indexação pela cláusula EVERY. Você pode fazer o seguinte: rode o demo da biblioteca SIX, que tem um esquema de acompanhamento de progresso muito bom e simples de usar. Como tem os fontes, você só precisaria copiar a função e adaptar para o seu caso.