"Wait Window"

[Jefferson Matakas]

Boa tarde a todos !

Estou usando em meu sistema o comando Wait para mensagens ao usuário, só que quando o utilizo antes de um "report form", a mensagem e limpa da tela automaticamente, sendo que ela deveria ficar ate o inicio do proximo procedimento o qual colocaria uma nova mensagem, o codigo simplificado ficaria assim:

wait window " Gerando e-mail a ser enviado ao cliente. Aguarde... " nowait
report form rptemail.frm to printer nocosole nodialog
inkey(5) && pausa forcada para dar tempo de gerar o arquivo em pdf
wait window " Eviando e-mail ao cliente. Aguarde... " nowait
.
.
e isso.

Abracos ...

[m@r<3|o]

IF 6=MESSAGEBOX(' Deseja Gerar o e-mail a ser enviado ao cliente.', 4+32 ,'Pergunta')
WAIT WINDOW "Eviando e-mail ao cliente. Aguarde..." NOWAIT NOCLEAR

report form rptemail.frm to printer nocosole nodialog
inkey(5)

MESSAGEBOX("Enviado com Sucesso")
WAIT CLEAR

ENDIF

[Jefferson Matakas]

Continua acontecendo a mesma coisa, me parece que o report form de alguma maneira desativa o wait window.

[m@r<3|o]

Acho que teria que montar todo relatorio em PRG . para voce colocar Wait Windows .... junto ao Report na Tela

tenta fazer assim a chamada do Relatorio ve se faz diferença

REPORT FORM rptemail TO PRINTER PREVIEW

ou mesmo nao tem como executar a rotina sem chamar Report ..

Gerar um HTML direto

[Jefferson Matakas]

O problema do preview e aparecer o relatorio na tela, e eu gostaria que o processo fosse transparente para o usuario.
Sao varios relatorios que forao feitos pelo gerado, escreve-los em prg agora somente pelo uso do WAIT, falta tempo.
A solucao de "preguicoso" e a seguinte, vou colocar a mensagem apos o report form, assim;

report form rptemail.frm to printer nocosole nodialog
WAIT WINDOW "Eviando e-mail ao cliente. Aguarde..." NOWAIT NOCLEAR
inkey(5)

por enquanto vai desse jeito, ate entender o que acontece com o report form.

Valeu pela forca ...

[m@r<3|o]

Camarada Jefferson Matakas , olha vamos complicar então ....

Sei um forma que dá certo, tenho o exemplo aqui envolve funçoes , será como fazer um POP KEY dentro do Report Form ativado na tela ....
É nas funcionalidades da SCREEN_ do SO que está ativo no Diante da Tela ativada no SO . Serve as vezes para automatizar comandos e procedimentos em outros sistemas apartir do fox

Fiz o teste colocando Wait clear , no meio dessa funcao e funcionou

Vi que postou lá no site vfpbr vou anexar lá

Obgrigado vc
abs

[m@r<3|o]

agora que entendi o que quer fazer

só que ambiente formulario é diferente de ambiente de relatorio
pelo que entendi voce quer furar essas barreiras ....
num comando só nao tem como ......

ira ter que fazer ... 3 Wait window -
para dar o efeito que seja todas mensagens iguais

Wait Window no Form - Antes
Wait Window - Relatorio
Wiat Window no Form - Após

[Jefferson Matakas]

Nos que desenvolvemos sistema, cedo ou tarde da de cara com alguma coisa que nao faz muito sentido, essa do report form e uma delas.

De qualquer forma, agradeco novamente o suporte.

Quem sabe ainda aparece alguma solucao...

abracos ..

[m@r<3|o]

Teria como adaptar uma APP de Casinha de Noficacao ,
pois a questão é Notificar o Usuario ,
mais ai trocaria o Comandos e objetos ,usar uma APP provavel que tb funciona .

[halisson]

-

Boa tarde a todos !
Estou usando em meu sistema o comando Wait para mensagens ao usuário, só que quando o utilizo antes de um "report form", a mensagem e limpa da tela automaticamente, sendo que ela deveria ficar ate o inicio do proximo procedimento o qual colocaria uma nova mensagem...

Jefferson, você pode usar um report preview alternativo,
um projeto opensource chamado FoxyPreviewer.

Uma forma de fazer o que você quer ( um report silencioso ) seria a seguinte:

Código:


WAIT WINDOW " Gerando e-mail a ser enviado ao cliente. Aguarde... " NOWAIT NOCLEAR
DO LOCFILE("FoxyPreviewer.App")
REPORT FORM ;
   ("[SEU_REPORT_AQUI].frx") ;
   OBJECT TYPE 11 ;
   TO FILE "C:\TESTREPORT.PDF"
DO LOCFILE("FoxyPreviewer.App") WITH "Release"
WAIT WINDOW " Eviando e-mail ao cliente.  Aguarde... " NOWAIT NOCLEAR
[COMANDOS PARA ENVIO DO E-MAIL]
WAIT CLEAR


Tipos de saídas
OBJECT TYPE 10 = PDF , 11 = PDF AS IMAGE , 12 = RTF , 13 = XLS , 14 = HTML

Implementando o FOXYPREVIEWER

1. Basta disponibilizar junto com a sua aplicação
basicamente o REPORTPREVIEWER.APP e a libhpdf.dll
( vem junto com o arquivo zipado do foxypreviewer )

Para o FoxyPreviewer funcionar perfeitamente sem bug's,
é necessário você atentar para o que diz a documentação oficial:

PRÉ-REQUISITOS:
Visual FoxPro 9 SP2

1. Atualize o VFP9 com a versão mais recente do "hotfix": VFP9SP2 KB 968409

2. Atualize o VFP9 com o Service Pack 2: VFP9 SP2

3. Disponibilize junto com a sua aplicação estes APP's: Report*.APP VFP9SP2

Veja se isso resolve.

Abraço.
-

[Jefferson Matakas]

Que alternativa legal, vou testa-la..

Valeu pela dica...