Olá pessoal

Num form , preciso colocar de forma bem visível se a encomenda está aberta , ou fechada .
Para isso uso um CheckBox de estilo gráfico . A verde está aberta , a vermelho está fechada .
Uso pictures , para isso , na picture e na DownPicture .

No entanto , tenho que permitir , que o utilizador mude o estado da encomenda , ou seja pode fechar ou abrir .

Gostava que quando clicasse no CheckBox gráfico , surgisse uma mensagem a pedir a confirmação , se deseja mesmo alterar o estado da encomenda .
Coloquei o seguinte código no when . Para dizer a verdade , já experimentei em muitos eventos . Mas não consigo por isto a funcionar de jeito nenhum .

Quem me pode ajudar ?

Muito obrigado


** código no when

IF EnCab.fechada = .F.

cMessageTitle = 'Atenção'
cMessageText = 'Deseja efectivamente fechar esta encomenda ?'
nDialogType = 4 + 32 + 256
* 4 = Botões Sim e Não
* 32 = Ícone de ponto de interrogação
* 256 = O segundo botão é o padrão

ELSE

cMessageTitle = 'Atenção'
cMessageText = 'Deseja efectivamente abrir esta encomenda ?'
nDialogType = 4 + 32 + 256
* 4 = Botões Sim e Não
* 32 = Ícone de ponto de interrogação
* 256 = O segundo botão é o padrão


ENDIF


nAnswer = MESSAGEBOX(cMessageText, nDialogType, cMessageTitle)

IF nAnswer = 7

RETURN .F.

ELSE

RETURN .T.

ENDIF

 

Pedro Silva

world is wonderful with your help .