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

PPPRetAgAtEpEx1

Retorna informações adicionais do Agente retornado pela função PPPRetAgAtEp. Esta função deve ser chamada após chamar a função PPPRetAgAtEp.

Sintaxe: Funcao PPPRetAgAtEpEx1(Numero End Tip,Alfa End SAti,Alfa End EPPP,Alfa End AgQua,Alfa End ApQua,Alfa End UFat,Numero End QAge,Numero End QCol,Numero End NAca,Numero End LTol,Numero End QCas,Numero End QDos, Numero End QAte);

Parâmetros:

Nome	Tipo	Descrição
Tip	Numérico	Retorna o Tipo do Agente.
SAti	Alfa	Retorna a Substância ativa do Agente.
EPPP	Alfa	Retorna se o Agente deve ser considerado no PPP.
AgQua	Alfa	Retorna se o Agente é Qualitativo.
ApQua	Alfa	Retorna a apresentação do Agente Qualitativo.
UFat	Alfa	Retorna se o Agente considera Fator de Redução.
QAge	Numérico	Retorna a quantificação do Agente sem Fator de Redução.
QCol	Numérico	Retorna a quantificação considerando Fator de Redução.
NAca	Numérico	Retorna o Nível de Ação do Agente.
LTol	Numérico	Retorna o Limite de Tolerância do Agente.
QCas	Numérico	Retorna a quantidade de casas decimais do Agente.
QDos	Numérico	Retorna a Dose do Agente.
QAte	Numérico	Retorna a quantificação final(utilizados pelos agentes que possuem intervalo).

Exemplo:

/* carrega todas as alterações de Filial/Local/Cargo */
PPPCarLocCarAti (xnumemp, xtipcol, xnumcad, xperini, xperfim, "S", xAprFun, EAbrAgt, 0, 0, 0, "");
str_agrupa = ",CodAgt,TecUti,ConEfi,EPCEfi,CerApr,QuaAge,";
Se (xemidos = "S")
    str_agrupa = str_agrupa + "QtdDos,";
Se (xemilim = "S")
    str_agrupa = str_agrupa + "TolMax,";
/* Filtra e agrupa os Agentes carregados */
PPPFilAgruAgAtEp("P", xemiagt, str_agrupa);
xfilagru = PPPRetAgAtEp("I", ret_datini, ret_datfim, ret_taborg, ret_numloc, ret_nomloc, ret_codatv, ret_desatv, ret_codagt, ret_desagt, ret_conppp, ret_InfInt);
Se (xfilagru <> 0)
{
    /* Retorna informações adicionais do Agente */
    PPPRetAgAtEpEx1(ret_tipris, ret_subati, ret_emippp, ret_agtqua, ret_aprqua, ret_fatred, ret_quaage, ret_quacol, ret_nivaca, ret_limtol, ret_qtdcas, ret_qtddos, ret_QuaAte);
    PPPRetAgAtEpEx2(ret_uniafe, ret_tecuti, ret_epiefi, ret_epcefi, ret_forexp, ret_codepi, ret_desepi, ret_cerapr);
    Se (ret_tipris = 2)
        xdesagt = ret_subati;
    Senao
        xdesagt = ret_desagt;
}

Utilização: Gerador de relatórios.

Disponível para o módulo: SM.