English
Español
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.
English
Español
