Page 1 of 1

Salir del Programa cuando tiene un valid

Posted: Thu Jun 13, 2013 8:44 pm
by Pedro
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: Select all

      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" ) <---------------------------------------------------------------------------------------------------------------------
 

Re: Salir del Programa cuando tiene un valid

Posted: Thu Jun 13, 2013 9:27 pm
by FranciscoA
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: Select all

      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" ))

Re: Salir del Programa cuando tiene un valid

Posted: Thu Jun 13, 2013 10:06 pm
by carlos vargas

Code: Select all

ON INIT (lSeguir := ComprobarDatos(),IIf(lSeguir,EscogeArea(), ( oWMain:bValid:={||.t.}, oWMain:end() ) ));
 
salu2
carlos vargas