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

PPPRetAgAtEp

Função que retorna os Agentes carregados pela função PPPCarLocCarAti.

Sintaxe: Funcao PPPRetAgAtEp(Alfa TipOp,Numero End Ini,Numero End Fim,Numero End Org,Numero End Loc,Alfa End NLoc,Numero End Atv,Alfa End DAtv,Numero End Agt,Alfa End DAgt, Alfa End ConPPP,Alfa End InfInt);

Parâmetros:

Nome	Tipo	Descrição
TipOp	Alfa	Tipo de Operação a ser realizada. As possíveis operações estão abaixo: - I = Início. Busca o primeiro Agente; - P = Próximo. Busca o último Agente.
Ini	Numérico	Retorna o período inicial do Agente.
Fim	Numérico	Retorna o período final do Agente.
Org	Numérico	Retorna o Organograma do Local onde o Agente está presente.
Loc	Numérico	Retorna o Local onde o Agente está presente.
NLoc	Alfa	Retorna a descrição do Local onde o Agente está presente (no nível do PPRA).
Atv	Numérico	Retorna a Atividade que contém o Agente.
DAtv	Alfa	Retorna a descrição da Atividade que contém o Agente.
Agt	Numérico	Retorna o Agente.
DAgt	Alfa	Retorna a descrição do Agente.
ConPPP	Alfa	Retorna se o Agente deve respeitar o LT.
InfInt	Alfa	Retorna se o Agente trabalha com Intervalos no Laudo.

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.