TBROWSE PEQUEANA AJUDA

Fórum sobre a linguagem CA-Clipper.

Moderador: Moderadores

Avatar do usuário
marbio
Usuário Nível 3
Usuário Nível 3
Mensagens: 206
Registrado em: 29 Jul 2004 16:26

TBROWSE PEQUEANA AJUDA

Mensagem por 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
Sempre há uma solucao para os nossos problema clipper.....
MARCELOG
Usuário Nível 4
Usuário Nível 4
Mensagens: 546
Registrado em: 15 Mar 2005 16:54
Localização: Divinópolis/MG

Mensagem por 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
Avatar do usuário
marbio
Usuário Nível 3
Usuário Nível 3
Mensagens: 206
Registrado em: 29 Jul 2004 16:26

Mensagem por 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+
Sempre há uma solucao para os nossos problema clipper.....
managercorp
Usuário Nível 3
Usuário Nível 3
Mensagens: 138
Registrado em: 16 Nov 2004 11:03
Localização: recife
Contato:

assci diferente

Mensagem por managercorp »

ATENCAO O CONTROLE DE CARACTERE ASCCI PARA MINUSCULO E MAIUSCULO SAO DIFERENTE EX: LETRA (A) CHR(65) LETRA(a) CHR(97)
Alexandre Pessoa
alexandre@managercorp.com.br
81-96152319
Grings
Usuário Nível 3
Usuário Nível 3
Mensagens: 340
Registrado em: 18 Ago 2004 13:51

Mensagem por 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.
Avatar do usuário
marbio
Usuário Nível 3
Usuário Nível 3
Mensagens: 206
Registrado em: 29 Jul 2004 16:26

Mensagem por 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
Sempre há uma solucao para os nossos problema clipper.....
Avatar do usuário
C Leonam
Usuário Nível 1
Usuário Nível 1
Mensagens: 32
Registrado em: 22 Nov 2005 17:40
Localização: Maceió

Mensagem por 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]
Clp52e, Blinker 5.1
Responder