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);

<div class="Code"><p>Definir Alfa xEmaPar;<br></br>Definir Alfa xEmaCom;<br></br>Definir Alfa xMsg;<br></br><br></br>xNumPes = R033PES.CodPes;<br></br>BusEmailPessoa(xCodPes, xEmaPar, xEmaCom) ;<br></br><br></br>Se (xEmaCom &#x3C;> "")<br></br>{<br></br> xMsg = "O e-mail comercial da pessoa é: " + xEmaCom;<br></br> Mensagem(Retorna, xMsg);<br></br>}</p></div>

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