Valid+Cancel X ButtonBmp fwh 2.7

Valid+Cancel X ButtonBmp fwh 2.7

Postby ctoas » Thu Mar 16, 2006 2:02 pm

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
Christiano Augusto Silveira
christiano.silveira@gmail.com

MaxxTech Soluções em TI
http://www.maxxtech.com.br
User avatar
ctoas
 
Posts: 115
Joined: Wed Oct 26, 2005 2:38 pm
Location: São Paulo - Brasil

Postby toya » 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
toya
Ahora en la version 6.6
Consultoria e Desenvolvimento - NF-e/NFC-e
http://www.toyanet.com.br
https://www.facebook.com/profile.php?id=100009195956044
toyasis@gmail.com
FWH 10.8+PellesC+xHarbour.org 1.2.1
User avatar
toya
 
Posts: 38
Joined: Sat Dec 31, 2005 10:08 am
Location: Brasil


Return to All products support

Who is online

Users browsing this forum: No registered users and 2 guests