Este conteúdo não recebe atualizações, pois é referente a uma versão do sistema que foi descontinuada. Acesse a documentação da versão 6.10.1 aqui

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.

Este artigo ajudou você?