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.

Este artigo ajudou você?