FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Salir del Programa cuando tiene un valid
Pedro
Posts: 464
Joined: Tue Mar 21, 2006 07:30 PM

Salir del Programa cuando tiene un valid

Posted: Thu Jun 13, 2013 08:44 PM
Hola a todos

No s茅 si el t铆tulo del post est谩 bien pero me explico.
En el Main de la aplicaci贸n, en el event ON INIT de la activaci贸n de la ventana principal mando a una serie de funciones y si una de ellas me devuelve falso, me gustar铆a terminar la aplicaci贸n, pero me manda al valid, con lo cual si digo que no quiero salir pues me entra en la aplicaci贸n de nuevo.
驴C贸mo deber铆a de poner este c贸digo para que no entre en el valid?

Code (fw): Select all Collapse
      ACTIVATE WINDOW oWMain MAXIMIZED ;
               ON INIT (lSeguir := ComprobarDatos(),IIf(lSeguir,EscogeArea(),oWMain:End())); <-------------Aqui es donde quiero que se termine el programa y no venga al valid
                 VALID MsgYesNo( "Finalizar sesi贸n de trabajo?","Elija" ) <---------------------------------------------------------------------------------------------------------------------
Un saludo
Pedro
gahetesoft@gmail.com
FWH12.06 BCC582, Xverce CW, Pelles C 6.00.4,PSPAD 4.54
y ahora con ADO
FranciscoA
Posts: 2170
Joined: Fri Jul 18, 2008 01:24 AM

Re: Salir del Programa cuando tiene un valid

Posted: Thu Jun 13, 2013 09:27 PM
Pedro wrote:Hola a todos

No s茅 si el t铆tulo del post est谩 bien pero me explico.
En el Main de la aplicaci贸n, en el event ON INIT de la activaci贸n de la ventana principal mando a una serie de funciones y si una de ellas me devuelve falso, me gustar铆a terminar la aplicaci贸n, pero me manda al valid, con lo cual si digo que no quiero salir pues me entra en la aplicaci贸n de nuevo.
驴C贸mo deber铆a de poner este c贸digo para que no entre en el valid?

Code (fw): Select all Collapse
 聽 聽 聽ACTIVATE WINDOW oWMain MAXIMIZED ;
聽 聽 聽 聽 聽 聽 聽 聽ON INIT (lSeguir := ComprobarDatos(),IIf(lSeguir,EscogeArea(),oWMain:End())); <-------------Aqui es donde quiero que se termine el programa y no venga al valid
聽 聽 聽 聽 聽 聽 聽 聽 聽VALID MsgYesNo( "Finalizar sesi贸n de trabajo?","Elija" ) <---------------------------------------------------------------------------------------------------------------------

Pedro, intenta asi:
聽 聽 聽 聽 聽 聽 聽 聽 聽VALID if( !lSeguir, .t., MsgYesNo( "Finalizar sesi贸n de trabajo?","Elija" ))
Francisco J. Alegr铆a P.

Chinandega, Nicaragua.



Fwxh-MySql-TMySql
carlos vargas
Posts: 1789
Joined: Tue Oct 11, 2005 05:01 PM

Re: Salir del Programa cuando tiene un valid

Posted: Thu Jun 13, 2013 10:06 PM
Code (fw): Select all Collapse
ON INIT (lSeguir := ComprobarDatos(),IIf(lSeguir,EscogeArea(), ( oWMain:bValid:={||.t.}, oWMain:end() ) ));

salu2
carlos vargas
Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions