Programa principal Código: Def Var c-teste As Char No-undo. Def Var c-teste2 As Char No-undo. Def Var c-titulo As Char No-undo. Assign c-teste = 'Teste 1' c-titulo = 'Titulo 1'. {aulas\dvau0409.i &msg = c-teste &tit = c-titulo} Assign c-teste = 'Teste 2' c-titulo = 'Titulo 1'. {aulas\dvau0409.i &msg = c-teste &tit = c-titulo} Assign c-teste2 = 'Erro 3' c-titulo = 'Titulo 1'. {aulas\dvau0409.i &msg = c-teste2 &tit = c-titulo} Assign c-teste2 = 'Teste 4' c-titulo = 'Titulo 2'. {aulas\dvau0409.i &msg = c-teste2 &tit = c-titulo} Include Código: /* msg = Mensagem a ser exibida tit = Titulo da Mensagem */ If {msg} Begins 'Teste' Then MESSAGE {msg} VIEW-AS ALERT-BOX Warning BUTTONS Ok Title {tit}. Else MESSAGE {msg} VIEW-AS ALERT-BOX Error BUTTONS Ok Title {tit}.
