PROCEDURE exibirmensagens( par_mensagem as Character,par_titulo as Character,par_tipo as Character, par_time as Integer ) IF EMPTY(par_mensagem) .or. ISNULL(par_mensagem) .or. TYPE("par_mensagem")<>"C" par_mensagem = "" ENDIF IF EMPTY(par_titulo) .or. ISNULL(par_titulo) .or. TYPE("par_titulo")<>"C" par_titulo = "" ENDIF IF EMPTY(par_tipo) .or. ISNULL(par_tipo) .or. TYPE("par_tipo")<>"N" par_tipo = 0 ENDIF IF EMPTY(par_time) .or. ISNULL(par_time) .or. type("par_time")<>"N" par_time = 0 ENDIF =MESSAGEBOX(par_mensagem,par_tipo,par_titulo,par_time) ENDPROCAinda preciso completa-lo, mas a ideia é retornar o resultado do messagebox, gerar log, mandar email, cantar, dançar e muito mais ! E caso eu precise implantar algo novo no sistema de "alertas ao usuario", é só trabalhar neste codigo ( sem ficar procurando por inumeros messagebox dentro do sistema ). Concorda?