Mal funcionamento do Interactiveclose?
Enviado: 14 Mar 2016 17:02
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
Formulário
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
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
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
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 WINDOWSeu 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.)
Está faltando algum SET ou coisa assim?
Obrigado
Rubens
)