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:

<div class="Code"><p>/* Carrega os agentes */<br></br>PPPCarLocCarAti (xNumEmp, xTipCol, xNumCad, xdatate, xdatate, "S", " ", "", xTabOrg, xNumLoc, xEstCar, xCodCar);<br></br>xAgentesListados = "";</p><p><br></br>/* Retorna o primeiro agente */<br></br>xRet = PPPRetAgeLocAti(xIni, xFim, xOrg, xLoc, xAtv, "I", 1, xcodagt, xdesagt, xQua, xTec, xSit, xEPCEfi, xAgN);<br></br>agente = Formatar(xcodagt,"%0.0f");<br></br>AlteraControle("DCodAgt","Descrição",agente);<br></br>AlteraControle("DDesAgt","Descrição",xdesagt);</p></div>

Utilização: Gerador de relatórios.

Disponível para o módulo: SM.

Este artigo ajudou você?