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

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

PPPRetAgeLocAtiEx

Retorna informações adicionais dos Agentes retornados pela função PPPRetAgeLocAti. Esta função deve ser chamada após chamar a função PPPRetAgeLocAti.

Sintaxe: Funcao PPPRetAgeLocAtiEx(Numero End aNAca, Numero End aLTol, Alfa End aUnAf, Alfa End aEmiPPP, Alfa End aNomLoc, Alfa End aUsaFat, Numero End aQuaCol, Numero End aTipRis, Alfa End aSubAti, Numero End aGraRis, Alfa End aSitAgt);

Parâmetros:

Nome	Tipo	Descrição
aNaca	Numérico	Retorna o Nível de Ação.
aLTol	Numérico	Retorna a Tolerância Máxima.
aUnAf	Alfa	Retorna a Unidade de aferição do Agente.
aEmiPPP	Alfa	Retorna se o Agente deve ser considerado no PPP.
aNomLoc	Alfa	Retorna a descrição do Local onde o Agente está presente.
aUsaFat	Alfa	Retorna se o Agente considera Fator de Redução.
aQuaCol	Numérico	Retorna a quantificação considerando Fator de Redução.
aTipRis	Numérico	Retorna o Tipo do Agente.
aSubAti	Alfa	Retorna a Substância Ativa do Agente.
aGraRis	Numérico	Retorna o Grau de Risco do Agente.
aSitAgt	Alfa	Retorna a Situação do Agente.

Exemplo:

/* Carrega os agentes */
PPPCarLocCarAti (xNumEmp, xTipCol, xNumCad, xdatate, xdatate, "S", " ", "", xTabOrg, xNumLoc, xEstCar, xCodCar);
xAgentesListados = "";
/* Retorna os agentes */
xRet = PPPRetAgeLocAti(xIni, xFim, xOrg, xLoc, xAtv, "I", 1, xcodagt, xdesagt, xQua, xTec, xSit, xEPCEfi, xAgN);
Enquanto (xRet = 1)
{
       /* Retorna informações adicionais dos Agentes */
      PPPRetAgeLocAtiEx(xNAca, xLTol, xUnAf, xEmiPPP, xNomLoc, xUsaFat, xQuaCol, xTipRis, xSubAti, xGraRis, xSitAgt);
      /* Lista o agente dependendo da situação*/
      Se ((xConRis = "T") OU (xSitAgt = xConRis))
      {
         agente = Formatar(xcodagt,"%0.0f");
        AlteraControle("DCodAgt","Descrição",agente);
        AlteraControle("DDesAgt","Descrição",xdesagt);
        /* Verifica se o Agente já foi listado. Se sim, não lista novamente. */
        agente = Formatar(xcodagt,"%0.0f") + ",";
        PosicaoAlfa(agente, xAgentesListados, xPosAgt);
        Se (xPosAgt = 0)
        {
           xAgentesListados = xAgentesListados + agente;

           ListaSecao("Adicional_2");
          }
       }
      xRet = PPPRetAgeLocAti(xIni, xFim, xOrg, xLoc, xAtv, "P", 1, xcodagt, xdesagt, xQua, xTec, xSit, xEPCEfi, xAgN);
}

Utilização: Gerador de relatórios.

Disponível para o módulo: SM.