TBROWSE PEQUEANA AJUDA

[marbio]

Boa Noite!!!!!!!

1º - Gostaria de agradecer a turama que me ajudou ( Muito )


Com a ajuda da galera montei a minha 1º funcao com TBROWSE ficou show para mim, e para o meu cliente.

A minh duvida e na pesquisa, como ficar com letra MAISCULA na pesquisa, para nao fichar pressionando o " CAPS LOCK " todo hora que entrar na pesquisa.

ai zé fini na funcao.

desde ja agradeco sua atencao

) :* :xau

[MARCELOG]

Caro Marbio,
admitindo que você tenha utilizado a instrução CASE para testar as teclas, basta detectar o pressionamente de uma tecla especial e/ou teclas especiais e chamar a função de pesquisa.


...
nTecla := inkey(0)

Do Case
Case nTecla == K_ESC
Exit
Case nTecla == K_F2
Pesquisa()
...
EndCase

Você pode ainda testar as teclas de movimentação e outras funções, deixando o restante para chamar a função de pesquisa.

Do Case
....
OtherWise
Pesquisa()
EndCase

MGS

[marbio]

Bom dia,


A minha pesquisa ja esta pronta, e automatica nao precisa do F2.

O problema e na hora que vai digitar que esta em minusculo, e tem que ser maisculo.


t+

[managercorp]

ATENCAO O CONTROLE DE CARACTERE ASCCI PARA MINUSCULO E MAIUSCULO SAO DIFERENTE EX: LETRA (A) CHR(65) LETRA(a) CHR(97)

[Grings]

Se sua rotina for tipo pesquisa letra-a-letra como imagino, use a função Upper() para transformar em maíusculas mas lembre-se que toda a sua base de dados deverá estar em maíuscula também.

[marbio]

Boa noite....


Como proceder neste caso, nao tem GET


if (tecla_p >= 32 .and. tecla_p <= 125 .and. len(alltrim(m_pesq)) <30)
m_pesq := m_pesq+chr(tecla_p)
@ 24,16 say m_pesq
seek m_pesq
brw:refreshAll()
endif
if lastkey() == 8
m_pesq := ""
seek m_pesq
brw:refreshAll()
@ 24,16 say spac(40)
endif

[C Leonam]

Que tal tentar assim:

Código: Selecionar todos

f (tecla_p >= 32 .and. tecla_p <= 125 .and. len(alltrim(m_pesq)) <30)
m_pesq := m_pesq+UPPER(chr(tecla_p))

:xau [/quote]