No codigo abaixo temos dois tipos de messages, a com um botao OK e outra com Yes/No. O resultado do Yes/No atualiza a variavel l_conf.

Bem simples…. porem muito util no dia-a-dia.

DEFINE VARIABLE l_conf  AS LOGICAL NO-UNDO.
MESSAGE ‘Deseja realmente efetuar a operacao?’ VIEW-AS ALERT-BOX BUTTONS YES-NO UPDATE l_conf.

IF l_conf THEN
   MESSAGE ‘Sim’ VIEW-AS ALERT-BOX.
else
   MESSAGE ‘Nao’ VIEW-AS ALERT-BOX.

abs