No vídeo de hoje, vamos demonstrar em como utilizar a função FWAuthUser para abrir uma tela de autenticação.

A dúvida de hoje, nos perguntaram, se existiria alguma funcionalidade no padrão do sistema, para abrir uma tela para solicitar que um usuário digitasse o login e a senha.

Pensando nisso, montamos um exemplo, onde vamos demonstrar em como utilizar a função FWAuthUser que tem exatamente essa finalidade.

Segue abaixo o vídeo exemplificando:

E abaixo o código fonte desenvolvido:

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

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

/*/{Protheus.doc} User Function video0151
Função que abre uma tela para um usuário informar o login e senha
@type  Function
@author Atilio
@since 13/05/2024
@example custom.terminal.youtube.u_video0151()
/*/

User Function video0151()
    Local aArea            := FWGetArea()       As Array
    Local cUserID          := ""                As Character
    Local cMessage         := ""                As Character
    Local lOk              := .F.               As Logical

    //Exibe a tela para que o usuário informe o login e senha
    lOk := FWAuthUser(@cUserID)

    //Incrementa a mensagem
    If lOk
        cMessage := "Deu tudo certo, o código do usuário é " + cUserID + " ( " + UsrRetName(cUserID) + " )"
    Else
        cMessage := "Não deu certo, usuário clicou no cancelar ou fechar!"
    EndIf

    //Exibe a mensagem
    FWAlertInfo(cMessage, "Atenção")

    FWRestArea(aArea)
Return

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Tags: AdvPLProtheusTLPP