PC Toledo

Código: Selecionar todos

Function Busca(arg) // arg = parte do nome para pesquisar
local dtmp:= {}, bnom:= subs(netname(),1,8), lugar:= recno() // matriz com estrutura da tabela temp. ; nome da tabela temp. 
aadd(dtmp,{"tmpcod","N",7,0})
aadd(dtmp,{"tmpnom","C",50,0})
aadd(dtmp,{"tmpcid","C",25,0})
dbcreate(bnom,dtmp) // cria tabela temp. que receberá os reg´s encontrados
use &bnom excl new // avre-se a tabela temp
sele cdcli000 // seleciona a tabela principal de clientes
dbgotop() 
do while !eof() 
   if at(alltrim(arg),clinom) > 0 // encontrou o registro
      &bnom->(dbappend())
      repl &bnom->tmpcod with clicod
      repl &bnom->tmpnom with clinom
      repl &bnom->tmpcid with clicid
      skip
   else
      skip
   endif
enddo
goto lugar
return &bnom->(reccount()) // aqui está retornando o número de reg´s para uma outra função que os exibirá