Clausula Cancel no Botão

[celo.michels]

Pessoal tenho um GET nele tem um Valid que verifica se a variavel esta preenchida, ou seja, se estiver vazia o Valid retorna .f.
Porem mesmo quando o campo estiver vazio e eu clicar no Botão sair quero que saia da janela.
É o mesmo que o CANCEL nos botoes do Fivewin.
Como faria isto com a HwGui.

[sygecom]

Posta um pequeno exemplo de uso que em cima do seu exemplo agente pode ajustar....
Eu uso aqui botão SAIR e os valid não atrapalham.

[celo.michels]

Código: Selecionar todos

#include "mysay.ch"
#include "hwgui.ch"
Local oFont :=hfont():Add( "Ms Sans Serif",,10)
oFont1 :=hfont():Add( "Ms Sans Serif",,10)
lSai := .t.
zPORTA := SpACE(10)
INIT DIALOG oDLG clipper noexit Title "Medicamento Controlado" at linsay(10), myrow(5) size  255,100 font ofont

//@ 30,20 SAY "Escolha o Tipo de Saida de Mercadorias." SIZE 550, 30 
@ 30,20 get zPORTA  picture "@!"  style WS_TABSTOP size 50,20 Valid {||!empty(zPORTA )}

@ linsay(02),myrow(3) button "Venda de Mercadoria" ;
       on click {||ENDDIALOG()} Size 110,25 style WS_TABSTOP
@ linsay(16),myrow(3) button "Perda de Mercadoria" ;
       on click {||ENDDIALOG()} Size 110,25 style WS_TABSTOP

ACTIVATE DIALOG oDlg

[sygecom]

Marcelo, como lhe disse no MSN, eu faço validações a partir do botão SALVAR sendo assim nd interfere no botão FECHAR , que dah um close() na dialog, pelo o que vc postou realmente tem esse problema, qualquer posto aqui.