English
Español
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. |
<div class="Code"><p>/* Carrega os agentes */<br></br>PPPCarLocCarAti (xNumEmp, xTipCol, xNumCad, xdatate, xdatate, "S", " ", "", xTabOrg, xNumLoc, xEstCar, xCodCar);<br></br>xAgentesListados = "";<br></br>/* Retorna os agentes */<br></br>xRet = PPPRetAgeLocAti(xIni, xFim, xOrg, xLoc, xAtv, "I", 1, xcodagt, xdesagt, xQua, xTec, xSit, xEPCEfi, xAgN);<br></br>Enquanto (xRet = 1)<br></br>{<br></br> /* Retorna informações adicionais dos Agentes */<br></br> PPPRetAgeLocAtiEx(xNAca, xLTol, xUnAf, xEmiPPP, xNomLoc, xUsaFat, xQuaCol, xTipRis, xSubAti, xGraRis, xSitAgt);<br></br> /* Lista o agente dependendo da situação*/<br></br> Se ((xConRis = "T") OU (xSitAgt = xConRis))<br></br> {<br></br> agente = Formatar(xcodagt,"%0.0f");<br></br> AlteraControle("DCodAgt","Descrição",agente);<br></br> AlteraControle("DDesAgt","Descrição",xdesagt);<br></br> /* Verifica se o Agente já foi listado. Se sim, não lista novamente. */<br></br> agente = Formatar(xcodagt,"%0.0f") + ",";<br></br> PosicaoAlfa(agente, xAgentesListados, xPosAgt);<br></br> Se (xPosAgt = 0)<br></br> {<br></br> xAgentesListados = xAgentesListados + agente;<br></br><br></br> ListaSecao("Adicional_2");<br></br> }<br></br> }<br></br> xRet = PPPRetAgeLocAti(xIni, xFim, xOrg, xLoc, xAtv, "P", 1, xcodagt, xdesagt, xQua, xTec, xSit, xEPCEfi, xAgN);<br></br>}</p></div>
Utilização: Gerador de relatórios.
Disponível para o módulo: SM.
English
Español
