Salir del Programa cuando tiene un valid

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

[FranciscoA]

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

[carlos vargas]

Code: Select all

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

salu2
carlos vargas