Gestão de Pessoas - Manual do Usuário > Customizações > Funções > BusEmailPessoa

BusEmailPessoa

Esta função retorna o e-mail Particular e o e-mail Comercial da pessoa informada no parâmetro CodPes. Para utilizá-la deve-se informar o código da pessoa cujo e-mail deseja-se saber, e duas variáveis que retornarão o e-mail Particular e o e-mail Comercial (EMAPAR e EMACOM).

Sintaxe: BusEmailPessoa(Numero CodPes, Alfa EmaPar, Alfa EmaCom);

Parâmetros:

Nome	Tipo	Descrição
CodPes	Numérico	Cadastro da pessoa que se deseja saber o e-mail.
EmaPar	Alfa	Retorna o e-mail particular.
EmaCom	Alfa	Retorna o e-mail comercial.

Exemplo:

Definir Alfa xEmaPar;
Definir Alfa xEmaCom;
Definir Alfa xMsg;

xNumPes = R033PES.CodPes;
BusEmailPessoa(xCodPes, xEmaPar, xEmaCom) ;

Se (xEmaCom <> "")
{
xMsg = "O e-mail comercial da pessoa é: " + xEmaCom;
Mensagem(Retorna, xMsg);
}

Utilização: Gerador de relatórios e regras.