PC Toledo

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!!!!!

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 :?)