Mal funcionamento do Interactiveclose?

[rubens]

Boa tarde...

Estou com um problema no interactiveclose ou não estou usando da forma correta. Alguém pode dar uma olhada para ver se tô fazendo alguma coisa errada?
Programa

Código: Selecionar todos

#include <minigui.ch>

FUNCTION Main
   LOAD WINDOW FORM_VENDA
   SetProperty('FORM_VENDA','ROW',0)
   SetProperty('FORM_VENDA','COL',0)
   FORM_VENDA.Center
   FORM_VENDA.Activate
RETURN( NIL )

*-------------------------------------------------------------------------------
FUNCTION SAI()
	IF MsgYesNo('Sai ?','MENSAGEM', , ,.F.)
		THISWINDOW.RELEASE
	ENDIF
RETURN NIL 

Formulário

Código: Selecionar todos

*HMGS-MINIGUI-IDE Two-Way Form Designer Generated Code
*OPEN SOURCE PROJECT 2005-2015 Walter Formigoni http://sourceforge.net/projects/hmgs-minigui/

DEFINE WINDOW TEMPLATE AT 9 , -48 WIDTH 1382 HEIGHT 744 TITLE 'PDV - DATASAC V1.3' MAIN ON INTERACTIVECLOSE SAI()

     DEFINE LABEL LABEL_DESCRICAO_PRODUTO1
            ROW    0
            COL    0
            WIDTH  1366
            HEIGHT 30
            VALUE ''
            FONTNAME 'VERDANA'
            FONTSIZE 12
            BACKCOLOR {0,0,225}
     END LABEL  

     DEFINE LABEL LABEL_DESCRICAO_PRODUTO
            ROW    20
            COL    0
            WIDTH  1366
            HEIGHT 80
            VALUE 'CAIXA LIVRE'
            FONTNAME 'VERDANA'
            FONTSIZE 36
            FONTBOLD .T.
            BACKCOLOR {0,0,225}
            FONTCOLOR {255,255,255}
            CENTERALIGN .T.
     END LABEL  

     DEFINE LABEL LABEL_CODIGO
            ROW    615
            COL    2
            WIDTH  198
            HEIGHT 20
            VALUE 'CÓDIGO PRODUTO'
            FONTNAME 'VERDANA'
            FONTSIZE 16
            FONTBOLD .T.
            TRANSPARENT .T.
            AUTOSIZE .T.
            FONTCOLOR {0,0,255}
     END LABEL  

     DEFINE TEXTBOX TBOX_CODIGO
            ROW    640
            COL    2
            WIDTH  300
            HEIGHT 42
            FONTNAME 'VERDANA'
            FONTSIZE 22
            FONTBOLD .T.
            MAXLENGTH 20
            BACKCOLOR {0,255,255}
            FONTCOLOR {0,0,255}
     END TEXTBOX 

     DEFINE LABEL LABEL_TOTAL_COMPRA
            ROW    620
            COL    810
            WIDTH  174
            HEIGHT 54
            VALUE 'TOTAL'
            FONTNAME 'VERDANA'
            FONTSIZE 40
            FONTBOLD .T.
            AUTOSIZE .T.
            FONTCOLOR {0,0,255}
     END LABEL  

     DEFINE GETBOX TBOX_TOTAL_COMPRA
            ROW    615
            COL    1000
            WIDTH  363
            HEIGHT 68
            VALUE 0
            PICTURE '@E 9,999.99'
            FONTNAME 'VERDANA'
            FONTSIZE 42
            FONTBOLD .T.
            BACKCOLOR {0,0,255}
            FONTCOLOR {255,255,255}
     END GETBOX  

END WINDOW

O que acontece: quando executo o programa e clica no X para fechar ele abre a função SAI() e independente de escolher SIM ou NÃO o programa é fechado.. Ele não retorna para o formulário.

Seu coloco o MsgYesNo na linha de definição do formulário

Código: Selecionar todos

DEFINE WINDOW TEMPLATE AT 13 , 4 WIDTH 1382 HEIGHT 744 TITLE 'PDV - DATASAC V1.3' MAIN ON INTERACTIVECLOSE MsgYesNo('Sai ?','MENSAGEM', , ,.F.)

Funciona perfeitamente... Se clicar no SIM fecha o programa se Clicar no NÃO volta para o formulário.
Está faltando algum SET ou coisa assim?

Obrigado
Rubens

[HASA]

)
Boa tarde, faça assim:

Código: Selecionar todos

*-------------------------------------------------------------------------------
FUNCTION SAI()

 IF MsgYesNo('Sai ?','MENSAGEM', , ,.F.)
 ** THISWINDOW.RELEASE && ACHO QUE NÃO PRECISA.
     RETURN .T.
 ENDIF
RETURN .F.

:)Pos
HASA

[rubens]

)

Obrigado, funcionou direitinho...

:{
Rubens