PPPRetAgAtEpEx2
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 PPPRetAgAtEpEx2(Alfa End UnA,Alfa End Tec,Alfa End EPIE,Alfa End EPCE,Numero End AgN,Numero End CEp,Alfa End DEp,Alfa End CAEp);
Parâmetros:
Nome | Tipo | Descrição |
UnA | Alfa | Retorna a Unidade de Aferição do Agente. |
Tec | Alfa | Retorna a Técnica utilizada do Agente. |
EPIE | Alfa | Retorna se o EPI é eficaz para o Agente. |
EPCE | Alfa | Retorna se o EPC é eficaz para o Agente. |
AgN | Numérico | Retorna o Tipo de Exposição do Agente. |
CEp | Numérico | Retorna o Epi do Agente. |
DEp | Alfa | Retorna a descrição do Epi do Agente. |
CAEp | Alfa | Retorna o CA do Epi do Agente. |
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.