Buscando o eMail de um usuário através da UsrRetMail

User Function zExe523()

    Local aArea      := FWGetArea()

    Local cCodUsr    := ""

    Local cNomUsr    := ""

    Local cEmailUsr  := ""

    Local cMensagem  := ""

    //Busca as informações do usuário

    cCodUsr    := RetCodUsr()

    cNomUsr    := UsrRetName(cCodUsr)

    cEmailUsr  := UsrRetMail(cCodUsr)

    //Monta a mensagem e exibe

    cMensagem := "Usuário logado: "+ cCodUsr + " ("+ cNomUsr + "), tem o seguinte endereço de email: "+ cEmailUsr

    FWAlertInfo(cMensagem, "Teste UsrRetMail")

    FWRestArea(aArea)

Return

Compartilhe nosso conteúdo

Nosso Boletim Informativo

Cadastre-se para receber nossos informativos, novidades e serviços por e-mail.

Categorias

Artigos Relacionados

Begin Transaction … End Transaction

Exemplo de utilização de controle de transação no AdvPL, podendo utilizar “rollback” nas alterações feitas. Exemplo da Rotina: Begin Transaction     //Tratativas de inclusão, alteração, disarm

Leia Mais »
Não há mais postagens para mostrar

Damasceno Viera, 928 – 42 Veneza
São Paulo 04363-040 SP, BR

Telefone: +55(11) 97546-2642
Email: info@phfsistemas.com.br