Pesquisa de CPFs

[marbio]

Ola Clippeiro!!!


Gostaria de informacoes tem algum geito de fazer pesquisa com o SEEK e usando o DBEDIT, so para mostrar os registro que eu quero EX: tenho 10 cpfs igual e outros so vai aparecer aquele que eu quero que são os 10 cpfs igual, e uma consulta de CHEQUE que eu quero fazer no balcao para ver se alguem cheque voutou!!!!

Desde já agradeco sua atencao!!!!!

[rochinha]

Amiguinho

Voce tem duas opções

Usar um SET FILTER ou INDEX ON..FOR/WHILE.

Com SET FILTER voce não precisara de nenhum indice mas a filtragem poderá demorar um pouco. exemplo:

M->CPF := SPACE(20)
@ 10,10 SAY "CPF:" GET M->CPF PICT "999.999.999-99"
READ
SELE CONTAS
SET FILTER TO CONTAS->CPF = M->CPF
GO TOP
DBEDIT(0,0,24,79)

Ou se usar um indice para CPF

M->CPF := SPACE(20)
@ 10,10 SAY "CPF:" GET M->CPF PICT "999.999.999-99"
READ
SELE CONTAS
SET ORDER TO 1 // ou numero do indice que contem a chave para CPF
seek M->CPF
INDEX ON CPF TO tempo FOR CONTAS->CPF = M->CPF
SET INDEX TO tempo
DBEDIT(0,0,24,79)

@braços :?)