Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
23 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 23 Visitantes :: 2 Motores de busca

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
TRY BEGIN E FLOCK()

17/4/2017, 10:32 por AJC

Pessoal estou tendo alguns problemas de gravação em rede, estou usando
try begin, mas vi algo na …

Comentários: 0

Exportar Dados Campo Memo Tabela DBF

10/4/2017, 10:28 por fcampos

Olá bom dia.

Estou tentando exportar os dados de algumas tabelas em formato dbf pelo foxpro.
O …

Comentários: 2

Função EVL()

8/4/2017, 12:18 por Clebervfp

Bom dia a todos.
Vim compartilhar de uma Função do próprio VFP que me benefício muito.
Função …

Comentários: 0

COMO BLOQUEAR REGISTRO OU TABELA NO VISUAL FOXPRO PARA GRAVAÇÃO EM REDE

3/4/2017, 10:29 por AJC

Pessoal estou tendo um problema que acontece sempre busco na minha tabela de clientes o ultimo …

Comentários: 2

Controlar Scanner Twain

31/3/2017, 17:31 por Kleber R Bento

Estou usando o EZTW32.DLL para criar uma ferramenta que escaneia e gera PDF. Porém com esses …

Comentários: 0

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

Os nossos membros postaram um total de 48 mensagens em 25 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