Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
13 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 13 Visitantes :: 1 Motor de busca

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
Espessura do cursor intermitente

7/3/2017, 09:08 por Jefferson Matakas

Bom dia a todos !!

Existe uma opcao no windows que pode ser acessada atraves da 'central da …

Comentários: 0

DESENVOLVIMENTO EM REDES

4/3/2017, 18:45 por AJC

Pessoal tem ou conhece livros ou material para programação em
redes usando banco de dados nativo …

Comentários: 0

USAR REPORT FORM

30/12/2016, 09:06 por AJC

Pessoal bom dia,
Estou com um grande problema, já pesquisei muita coisa sobre report form, mas o …

Comentários: 4

Como preencher campos vazios

9/2/2017, 11:55 por Linghston

Pessoal boa tarde,

É o seguinte, eu preciso preencher os campos de uma coluna da tabela DBF que …

Comentários: 2

Enviar msg para WhatsAPP via VFP

7/2/2017, 10:31 por Eliana

Olá Pessoal!

Alguém sabe se é possível enviar mensagem para o WhatsAPP via VFP?


Grata


Comentários: 0

Estatísticas
Temos 7037 usuários registrados
O último usuário registrado atende pelo nome de GETULIO

Os nossos membros postaram um total de 31 mensagens em 17 assuntos

Sumir com o ponteiro e Eventos do mouse no form

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Resolvido Sumir com o ponteiro e Eventos do mouse no form

Mensagem por Nelson Arcas em 13/3/2010, 13:57

Pessoal

Alguem sabe como sumir com o mouse e seus eventos no form durante um processo e após retorna-los?

Estou com o seguinte problema:
No sistema que estou convertendo do fox 2.5 para o Visual temos diversas janelas "Wait Window" dentro dessa janela colocamos diversas opções para o usuario e conforme a resposta executamos o processo. Porem quando o usuario ao invés de selecionar a tecla indicada ele clica é gerado um erro. "Function argument value, type, or count is invalid"
Verifiquei a possibilidade de utiliza msgbox, mas tenho diversas situações onde a pergunta pode ter 5 respostas diferentes.
O codigo que estou fazendo é este.

Código:

WAIT WINDOW 'Selecione a opção para saída do Relatório? (V-Video I-Impressora P-Planilha A-Arquivo texto)
DO CASE
   CASE UPPER(CHR(LASTKEY())='V'
      DO REPORT FORM teste.frx TO PRINTER
   CASE UPPER(CHR(LASTKEY())='I'
      DO REPORT FORM teste.frx TO PRINTER no CONSOLE
   CASE UPPER(CHR(LASTKEY())='P'
      EXPORT TO &nomearq TYPE XLS
   OTHERWISE
      COPY TO &nomearq TYPE SDF
ENDCASE
 
avatar
Nelson Arcas
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Sumir com o ponteiro e Eventos do mouse no form

Mensagem por lardecristo em 13/3/2010, 15:34

Olá Nelson,

Fiz algumas pequenas alterações no seu código.

Explicações:

1 - O comando LASTKEY() está recebendo um número negativo, por isso do erro;
2 - o comando CHR é que está gerando o erro, número negativo não existe na tabela ASCII, para resolver isso eu coloquei um IF.
3 - O seu Default será sempre "A", se sim, então é só colocar ELSE e executar o mesmo comando do OTHERWISE.

Obs.: No código estou assumindo que não importe que o usuário tecle ou click sempre usará o Default.
Código:

WAIT WINDOW 'Selecione a opção para saída do Relatório? (V-Video I-Impressora P-Planilha A-Arquivo texto)'

MESSAGEBOX(LASTKEY())      && Aqui eu mostro o valor só para você entender melhor, pode remover esta linha.

IF LASTKEY() > 0 THEN
   DO CASE
     CASE UPPER(CHR(LASTKEY()))='V'
         DO REPORT FORM teste.frx TO PRINTER
     CASE UPPER(CHR(LASTKEY()))='I'
         DO REPORT FORM teste.frx TO PRINTER no CONSOLE
     CASE UPPER(CHR(LASTKEY()))='P'
         EXPORT TO &nomearq TYPE XLS
     OTHERWISE
         COPY TO &nomearq TYPE SDF
   ENDCASE
ELSE
         COPY TO &nomearq TYPE SDF
ENDIF
avatar
lardecristo
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Sumir com o ponteiro e Eventos do mouse no form

Mensagem por alceu11 em 13/3/2010, 17:38

Nelson
pq nao faz assim
link
[Você precisa estar registrado e conectado para ver este link.]

ja que esta fazendo na versao 90.

So uma ideia,,,,,,nem caprichei nas opcoes.

nois trbalha ate de sabado..........
avatar
alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Sumir com o ponteiro e Eventos do mouse no form

Mensagem por Nelson Arcas em 13/3/2010, 20:31

Alceu, valeu!
Mas isso não iria matar todo o problema, eu tenho situações onde tenho que tomar outras decisões. Exemplo quando chamo um relatorio de Renovação.
Código:

WAIT WINDOW 'Qual o relatório de Renovação A - Antecedentes, B - Exame Médico, C - Psicotécnico, D - Habilitação, E - Integração?'
DO CASE
   CASE UPPER(CHR(LASTKEY())='A'
      SELECT ......
   CASE UPPER(CHR(LASTKEY())='B'
      SELECT ......
   CASE UPPER(CHR(LASTKEY())='C'
      SELECT ......
   CASE UPPER(CHR(LASTKEY())='D'
      SELECT ......
   OTHERWISE
      SELECT ......
ENDCASE
avatar
Nelson Arcas
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Sumir com o ponteiro e Eventos do mouse no form

Mensagem por Nelson Arcas em 13/3/2010, 20:36

Cristo valeu pelo Dica, acabei olhando só a dica do Alceu a principio e não havi visto a sua.

Realmente o problema estava no retorno da função CHR() que retorna uma valor negativo, vou alterar as rotina e consistir se lastkey()<0, como na Versão 2.5 quando voce clica ele não traz nada e por isso não gerava erro.

Legal problema resolvido. Very Happy
Vou começar o meu final de semana agora! cheers
avatar
Nelson Arcas
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Sumir com o ponteiro e Eventos do mouse no form

Mensagem por hugo em 13/3/2010, 21:56

boa galera

status de resolvido!

Smile

_________________
"A tristeza é a falta de alegria, mais sem ela eu não poderia entender a alegria do fato de que a felicidade existe!"
Helio Leites - [Você precisa estar registrado e conectado para ver este link.]
avatar
hugo
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum