Sumir com o ponteiro e Eventos do mouse no form

[Nelson Arcas]

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
 

[lardecristo]

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

[alceu11]

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..........

[Nelson Arcas]

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


[Nelson Arcas]

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.
Vou começar o meu final de semana agora!

[hugo]

boa galera

status de resolvido!