eevaldo Posted March 15, 2013 Report Share Posted March 15, 2013 Ola pessoal, porfa, tenho a seguinte situação : DEFINE DIALOG oDlg RESOURCE "AGENDA" TITLE cTitle REDEFINE BTNGET oDatae VAR ::oDB:DATAE ID 600 OF oDlg UPDATE VALID ::verif() . . . . REDEFINE BUTTON ID 704 OF oDlg ACTION ( oDlg:End() ) aonde esse botao e o SAIR, como posso sair da DIALOG , sem passar pela funcao "verif()" de validacao no get ? igual ao ESC... Obrigado, Evaldo Wagner Quote Link to comment Share on other sites More sharing options...
Eduardo Bilato Posted March 15, 2013 Report Share Posted March 15, 2013 Boa tarde Evaldo minha sugestão é que inicialize uma variável junto da validação da dialog.No caso, ficaria assim: local lSair := .t. DEFINE DIALOG oDlg RESOURCE "AGENDA" TITLE cTitle REDEFINE BTNGET oDatae VAR ::oDB:DATAE ID 600 OF oDlg UPDATE VALID( lSair .or. ::verif() ) . . . . REDEFINE BUTTON ID 705 OF oDlg ACTION ( lSair := .f. ) //outro botão REDEFINE BUTTON ID 704 OF oDlg ACTION ( lSair := .t., oDlg:End() ) Ali, ao clicar no botão sair, ou simplesmente teclar o ESC, vai sair da dialog sem passar pelo VALID da DIOLOG Quote Link to comment Share on other sites More sharing options...
emotta Posted March 15, 2013 Report Share Posted March 15, 2013 Crie o botao com a clausula CANCEL assim: REDEFINE BUTTON ID 704 OF oDlg ACTION ( oDlg:End() ) CANCEL Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted March 18, 2013 Report Share Posted March 18, 2013 Bom dia Ou um if na própria valid, se o conteudo da variavel for nulo pula a verificação... Abraços.. Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.