Nesse vídeo demonstraremos a utilização das funções FWAlertError, Alert e MsgStop que servem para mostrar uma mensagem em tela com um ícone vermelho de erro.

Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:

//Bibliotecas
#Include "TOTVS.ch"

/*/{Protheus.doc} User Function zExe200
Função que exibe uma mensagem em tela com um símbolo de erro
@type Function
@author Atilio
@since 11/02/2023
@see https://tdn.totvs.com/pages/releaseview.action?pageId=23889111 e https://tdn.totvs.com/pages/releaseview.action?pageId=24346998
@obs 
    Função Alert
    Parâmetros
        + cTexto      , Caractere        , Texto da mensagem
    Retorno
        Função não tem retorno

    Função MsgStop
    Parâmetros
        + cTexto      , Caractere        , Texto da mensagem
        + cTitulo     , Caractere        , Título da janela da mensagem
    Retorno
        Função não tem retorno

    Função FWAlertError
    Parâmetros
        + Texto da mensagem
        + Título da janela da mensagem
    Retorno
        Função não tem retorno

    **** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/

User Function zExe200()
    Local aArea     := FWGetArea()
    Local cMensagem := ""

    //Monta uma mensagem normal e exibe
    cMensagem := "Hoje é " + dToC(Date())
    FWAlertError(cMensagem, "Teste FWAlertError")
    MsgStop(cMensagem, "Teste MsgStop")
    Alert(cMensagem)

    //Monta uma mensagem com quebra de linhas
    cMensagem := "Hoje é " + dToC(Date()) + CRLF + "Terminal de Informação"
    FWAlertError(cMensagem, "Teste 2 FWAlertError")
    MsgStop(cMensagem, "Teste 2 MsgStop")
    Alert(cMensagem)

    //Monta uma mensagem com tags html
    cMensagem := "Hoje é <strong>" + dToC(Date()) +"</strong><br><font color='red'>Terminal de Informação</font>"
    FWAlertError(cMensagem, "Teste 3 FWAlertError")
    MsgStop(cMensagem, "Teste 3 MsgStop")
    Alert(cMensagem)

    FWRestArea(aArea)
Return

Bom pessoal, por hoje é só.

Abraços e até a próxima

Tags: AdvPLMaratonaProtheusTL++