Valid+Cancel X ButtonBmp fwh 2.7

[ctoas]

Amigos...

Tenho um get que a valid conforme abaixo:

Code: Select all  Expand view

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 "SAIR";   ACTION(lSair:=.t.,ENCERRADLG()) CANCEL


Bom...
Se carrego a dialog e clico no botão sair ele sai normalmente, mas se ele passa pela validação e retorna .f. o botão não executa o cancel.

Alguém já passou por isso??

Code: Select all  Expand view

[toya]

Tente proceder o seguinte:

local lBotao:=.f.


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


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


function SitBotao( lBotao )

local retorno:=.t.

if lBotao
retorno:=.f.
endif
lBotao:=.f.

return retorno