topic-10396

Board index FiveWin para Harbour/xHarbour Como cerrar un dialogo automaticamente

Posts: 29

Joined: Fri Jan 18, 2008 03:48 PM

Como cerrar un dialogo automaticamente

Posted: Tue Mar 18, 2008 05:05 PM

Mi problema es este:
tengo una consulta sql al motor de advantage....pero esta consulta puede a veces demorar mucho tiempo...
tengo un dialogo que le le pide al usuario un momento mientras se realiza la consulta
Si lo defino con NOWAIT, puede pasar tiempo antes de que la consulta retorne los resultados, y si no, me toca presionar "Esc" para que la ejecucion del programa siga... lo que tengo es algo similar a esto:

Code: Select all Collapse

...
...

DEFINE DIALOG oWNDFIS RESOURCE "ESPERA"
REDEFINE SAY ID 800 OF oWNDFIS FONT oFONT2   //Un momento por favor
ACTIVATE DIALOG oWNDFIS CENTER NOWAIT

ADSEXECUTESQLDIRECT(cSQL)
...
aqui muestro los resultados de la consulta
...

Lo que quiero es ismplemente mostrar el dialogo mientras se ejecuta la consulta y cerrarlo solo cuando los datos esten disponibles
Gracias de antemano por su ayuda

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Como cerrar un dialogo automaticamente

Posted: Tue Mar 18, 2008 05:50 PM

Prueba así:

Code: Select all Collapse

... 
... 

DEFINE DIALOG oWNDFIS RESOURCE "ESPERA" 
REDEFINE SAY ID 800 OF oWNDFIS FONT oFONT2   //Un momento por favor 
ACTIVATE DIALOG oWNDFIS CENTER NOWAIT 

ADSEXECUTESQLDIRECT(cSQL) 
oWNDFIS:End()
... 
aqui muestro los resultados de la consulta 
...

regards, saludos

Antonio Linares
www.fivetechsoft.com

BenD

Posts: 29

Joined: Fri Jan 18, 2008 03:48 PM

Funciona

Posted: Tue Mar 18, 2008 06:32 PM

Gracias nuevamente...asi me funciono bien....
Yo creia que la funcion :END() solo podía llamarse en las subfunciones y actions del dialogo..

FiveTech Support Forums

Como cerrar un dialogo automaticamente

Como cerrar un dialogo automaticamente

Funciona

Continue the discussion