PC Toledo

marbio escreveu: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.