PROBLEMAS CON COMANDO CANCEL EN UN BOTON

[ctoas]

Buenas Amigos...

TENGO UN GET CON UN VALID CONFORME ABAJO:

Código:

REDEFINE VGET oGetCodCli VAR CLIENCOD2 ID 4003 ;
PICTURE IF(CADPARAM->FLAG_CGC_C,"999999999999","99999") ;
OF oFol:aDialogs[1] ;
VALID PESQCLIEN()


REDEFINE BUTTONBMP oBtnSai ID 4029 of oDlg;
BITMAP "SALIR";
ACTION( lSalir := .T., ENCERRADLG() ) CANCEL


Bién...

SE CARGO LA DIALOG Y CLICO EN EL BOTON SALIR, EL SALE NORMALMENTE, PERO SE EL PASAR POR LA VALIDACION Y RETORNA .F., EL BOTON NO EJECUTA EL COMANDO CANCEL.

KE HICE DE ERRADO??


Gracias, y Saludos a todos.

[carlos vargas]

Code: Select all  Expand view  RUN

...
Redefine BUTTONBMP oBtnSai ID 4029 of oDlg;   BITMAP "SAIR";   ACTION(lSair:=.t.,ENCERRADLG())

oBtnSai:lCancel := .t.
...


salu2
carlos vargas

[ctoas]

Code: Select all  Expand view  RUN

...
Redefine BUTTONBMP oBtnSai ID 4029 of oDlg;   BITMAP "SAIR";   ACTION(lSair:=.t.,ENCERRADLG())

oBtnSai:lCancel := .t.
...


salu2
carlos vargas

Amigo...

Não deu certo....