Procura com DBEDIT

[Osvaldo Cabrera Junior]

Boa Tarde amigos.
Sou novo aqui no Forum, e estou usando o Clipper ha pelo menos 05 anos. Sempre utilizei o Summer87, e nos dois ultimos anos migrei para o 5.2 e utilizo a lib VL2. Desenvolvi um sitema muito simples, e utilizo o dbedit sem problemas com set filter, etc. Gostarria de tirar uma dúvida.
Ao efetuar uma pesquisa, gostari que o resultado no dbedit aparecesse somente os nomes que começassem com a letra escolhida, na pesquisa.
Ex.: Digito a letra "A" e so me aprecerecessem os nomes inciados por "A".
Atualmente aparecem todos os registros que contem a letra "A" em alguma parte do nome. (vcli$cliente).
Se alguem puder me fornecer alguma dica de como fazer, agradeço.

ocjerc@bol.com.br

[Mário Isa]

Utilize a função pesquisar.
encontrei 74 ocorrências falando sobre este tópico.
Creio que você encontrará a solução.
Abraços
Mário

[Ale SB]

Blz Osvaldo, eu tenho algo parecido com o q vc quer, dê uma olhada:

Código: Selecionar todos

@ 04,02 say "Emitente:" get xemit pict "@!" 
   read

     seek alltrim(xemit)
     EMITENTE() // funcao pesquisa
      xemit     = emit
      xplan     = plan
      xcodbanco = codbanco
      xnbanco   = nbanco
      xag       = ag
      xnch      = nch
      xvalor    = valor
      xvencto   = vencto
      xdias     = dias
      xjrs      = jrs
      xiof      = iof
      xcust     = cust

//@ say......

FUNCTION EMITENTE()

      SET FILTER TO EMIT = alltrim(XEMIT)
      go top
      colunas = {}
      cabec   = {}
      TELA3   = SAVESCREEN(03,03,20,77)
      set color to n/n
      @ 04,04 clear to 20,77
      @ 04,04 to 20,77
      set color to gr+/b+
      @ 03,03 clear to 19,76
      @ 03,03 TO 19,76 DOUBLE
      aadd(colunas,"plan")
      aadd(colunas,"codbanco")
      aadd(colunas,"nbanco")
      aadd(colunas,"ag")
      aadd(colunas,"nch")
      aadd(colunas,"valor")
      aadd(colunas,"emit")
      aadd(colunas,"vencto")
      aadd(colunas,"dias")

      aadd(cabec,"Planilha")
      aadd(cabec,"Cod.Banco")
      aadd(cabec,"N§ Bco.")
      aadd(cabec,"Agˆncia")
      aadd(cabec,"N§ Cheque")
      aadd(cabec,"Valor")
      aadd(cabec,"Emitente")
      aadd(cabec,"Vencto")
      aadd(cabec,"Dias")

      dbedit(04,04,18,75,colunas,,,cabec)
      set color to w+/b+,,,,gr+/b+   
      SET FILTER TO
      restscreen(03,03,20,77,TELA3)
return

@braços Ale

[Osvaldo Cabrera Junior]

Agradeço a atenção dos que atenderam a minha solicitação. Vou testar as rotinas e volto com as considerações pertinentes ao assunto.

Grato

Osvaldo.

[Stanis Luksys]

Ola,

No meu sistema eu faço um pouco diferente, não sei se serve para você mas acho que o objetivo é o mesmo.

Eu faço a pesquisa com SET SOFTSSEK ligado, e então ao invés de filtrar e aparecer só os que começam com "A" ele posiciona no primeiro que começa com "A", mas os outros continuam visiveis e é so ir descendo com a seta para acessa-los...

É isso aí.