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	Descripción
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.

Ejemplo:

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.