No vídeo de hoje, vamos demonstrar em como utilizar a função FWAlertExitPage.

A dúvida de hoje, nos perguntaram, se teria como acionar aquela tela que mostra a mensagem com os botões “Salvar”, “Sair da Página” e “Continuar editando”.

Pensando nisso, montamos um exemplo, onde vamos mostrar em como utilizar a função FWAlertExitPage.

Segue abaixo o vídeo exemplificando:

E abaixo o código fonte desenvolvido:

//Bibliotecas
#Include "tlpp-core.th"

//Declaração da namespace
Namespace custom.terminal.youtube

/*/{Protheus.doc} User Function video0218
Exemplo de como acionar a função FWAlertExitPage
@type  Function
@author Atilio
@since 29/04/2024
@example
    custom.terminal.youtube.u_video0218()
/*/

User Function video0218()
    Local aArea     := FWGetArea()
    Local cMessage  := "Mensagem que é exibida na tela"
    Local cTitle    := "Título"
    Local nAnswer   := 0
    Local bClose    := {|| nAnswer := 1}
    Local bSave     := {|| nAnswer := 2}
    Local bContinue := {|| nAnswer := 3}

    //Mostra a mensagem
    FWAlertExitPage(cMessage, cTitle, bClose, bSave, bContinue)

    //Mostra a resposta que o usuário selecionou
    FWAlertInfo("Resposta que o usuário escolheu: " + cValToChar(nAnswer), "Atenção")

    //Se clicou no 'Sair da Página'
    If nAnswer == 1
        // to-do

    //Se clicou no 'Salvar'
    ElseIf nAnswer == 2
        // to-do

    //Se clicou no 'Continuar editando'
    ElseIf nAnswer == 3
        // to-do
    EndIf

    FWRestArea(aArea)
Return

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Tags: AdvPLProtheusTLPP