FiveTech Software tech support forums

Posted: **Thu Mar 16, 2006 2:02 pm**

Amigos...

Tenho um get que a valid conforme abaixo:

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

Posted: **Thu Apr 20, 2006 10:26 am**

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

FiveTech Software tech support forums

Valid+Cancel X ButtonBmp fwh 2.7

Valid+Cancel X ButtonBmp fwh 2.7