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

PPPRetAgeLocAti

Retorna os Agentes de cada período de Local/Atividade retornado pela função PPPRetLocCarAti. Se o período inicial não for informado, ela vai retornar todos os Agentes carregados.

Sintaxe: Funcao PPPRetAgeLocAti(Numero End Ini, Numero End Fim, Numero End Org, Numero End Loc, Numero End Atv, Alfa TipOp, Numero TpOrd, Numero End Agt, Alfa End DAgt, Numero End Qua, Alfa End Tec, Alfa End Sit, Alfa End EPCEfi, Numero End AgN);

Parâmetros:

Nome	Tipo	Descrição
Ini	Numérico	Data inicial do Local/Atividade para retornar os Agentes
Fim	Numérico	Data final do Local/Atividade para retornar os Agentes
Org	Numérico	Organograma para retornar os Agentes
Loc	Numérico	Local para retornar os Agentes
Atv	Numérico	Atividade para retornar os Agentes
TipOp	Alfa	Tipo de Operação a ser realizada. As possíveis operações estão abaixo: I - Início. Busca o primeiro Agente do Local/Atividade; P - Próximo. Busca o próximo Agente do Local/Atividade.
TpOrd	Numérico	Informa a ordenação que deve ser utilizada para retornar os Agentes: 0 - Indica que os Agentes serão retornados ordenados por Data/Atividade/Agente 1 - Indica que os Agentes serão retornados ordenados por Data/Agente. Quando este Tipo de ordenação é utilizado, a função retornará os dados de todos os Agentes(sem filtrar os Agentes por Período/Local/Atividade). As variáveis passadas em Ini, Fim, Org, Loc, Atv conterão os dados do AGente retornado.
Agt	Numérico	Retorna o código do Agente
DAgt	Alfa	Retorna a descrição do Agente
Qua	Numérico	Retorna a Intensidade (quantificação) do Agente
Tec	Alfa	Retorna a Técnica utilizada do Agente
Sit	Alfa	Retorna a Situação do Agente (S-Solucionado ou N-Não solucionado)
EPCEfi	Alfa	Retorna se o EPC é eficaz
AgN	Numérico	Retorna o tipo de Exposição

Exemplo:

/* Carrega os agentes */
PPPCarLocCarAti (xNumEmp, xTipCol, xNumCad, xdatate, xdatate, "S", " ", "", xTabOrg, xNumLoc, xEstCar, xCodCar);
xAgentesListados = "";

/* Retorna o primeiro agente */
xRet = PPPRetAgeLocAti(xIni, xFim, xOrg, xLoc, xAtv, "I", 1, xcodagt, xdesagt, xQua, xTec, xSit, xEPCEfi, xAgN);
agente = Formatar(xcodagt,"%0.0f");
AlteraControle("DCodAgt","Descrição",agente);
AlteraControle("DDesAgt","Descrição",xdesagt);

Utilização: Gerador de relatórios.

Disponível para o módulo: SM.