Encerrar aplicação

[emeasoft]

Boa tarde,
Como encerrar (quit) uma aplicação?
Fiz o teste abaixo, mas não encerra:
METHOD Edit1Char( oSender, nKey, nFlags ) CLASS cm000
IF ::oEdit1:Value$"000"
WITH object CM000():New( Self )
:Close()
END with
ENDIF
RETURN Nil

[jrcpoli-quitar]

Saludos:
El cierre de cualquier formulario se controla con el evento OnClose
METHOD FormClose( oSender, lClose ) CLASS TFormMenu
*
lClose := .F.
*
IF MsgNoYes("¿Deseas Abandonar la aplicación.?", AppData:gCaption)
** Recordar copia de seguridad
IF MsgNoYes("Te recuerdo que si has modificado o añadido datos al
programa" + CRLF + ;
"es conveniente que realices la copia de seguridad de tus ficheros." +
CRLF + CRLF +;
"¿Quieres realizar una Copia de Seguridad ahora?", AppData:gCaption)
*
** Llamar al programa de copia de seguridad
::HacerCopia()
*
ENDIF
*
lClose := .T.
*
ENDIF
*
RETURN lClose
Si pones lClose := .T. en el formulario que contenga el menú principal
la aplicación se cerrara.
También puedes hacerlo desde un botón de un formulario en su evento OnClick
METHOD CerrarClick( oSender ) CLASS TFormIndAnillas
*
** Cancelar
::oDbfAnillas:Cancel()
*
** Cerramos el Formulario
::oForm:Close()
*
RETURN Nil
O directamente asignándole al botón la propiedad nModalResult := mrCLOSE
en la propiedades del mismo.
Mário Angelini escribió:
> Boa tarde,
>
> Como encerrar (quit) uma aplicação?
> Fiz o teste abaixo, mas não encerra:
>
> METHOD Edit1Char( oSender, nKey, nFlags ) CLASS cm000
>
> IF ::oEdit1:Value$"000"
>
> WITH object CM000():New( Self )
>
> :Close()
>
> END with
>
> ENDIF
> RETURN Nil

[emeasoft]

Olá José Ramón:
Assim funcionou:
::oForm:Close()
Sou iniciante em Xailer e algumas coisas tão simples acabam
ficando complicadas por falta de experiíªncia.
Grato