FoxPro/Visual FoxPro - Simulando proceso

   
Vista:

Simulando proceso

Publicado por Loly (103 intervenciones) el 29/10/2008 20:43:14
Hola.. buenas tardes tengan todos mis amigos...

saben tengo una duda... con relacion a un sistema que estoy elaborando.. se trata de que al salir del sistema... haga una serie de procesos... y mientras se realice esto poner un mensaje para que el usuario no se impaciente y piense que se inibio el equipo... como, donde y que puedo mostrar mientras se ejecutan todos los procesos al salir del sistema?

******* EVENTO CLICK DEL BOTON SALIR*****
Do empaca
do envia
do creafilexls
do email
delete inicio.txt && Evita que se ejecute 2 veces el sistema
delete creafilexls && borra archivo enviado por email.
Close all
Quit
******************

Procedure empaca
use tablax
pack
use tablax2
pack
return

procedure envia
envia un archivo de cierre diario a la impresora
Return

procedure creafilexls
en base a una tabla de datos genera un archivo de excel
para enviarlo por email
return

Procedure email
se envia el archivo creafilexls a
una direccion de correo electronico
Return

1000 gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Simulando proceso

Publicado por Ernesto Hernandez (4632 intervenciones) el 30/10/2008 16:46:08
******* EVENTO CLICK DEL BOTON SALIR*****
=MESSAGEBOX("Realizando empacado de archivos. Favor de Esperar",68,6000,"TituloVentana")
Do empaca
=MESSAGEBOX("Enviando archivos. Favor de Esperar",68,6000,"TituloVentana")
do envia
=MESSAGEBOX("Creando Hojas de Calculo. Favor de Esperar",68,6000,"TituloVentana")
do creafilexls
=MESSAGEBOX("Enviando correo . Favor de Esperar",68,6000,"TituloVentana")
do email
delete inicio.txt && Evita que se ejecute 2 veces el sistema
delete creafilexls && borra archivo enviado por email.
Close all
Quit
******************


prueba asi ..


suerte
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar