English
Español
PPPRetAgAtEpEx1
Retorna informações adicionais do Agente retornado pela função PPPRetAgAtEp. Esta função deve ser chamada após chamar a função PPPRetAgAtEp.
Sintaxe: Funcao PPPRetAgAtEpEx1(Numero End Tip,Alfa End SAti,Alfa End EPPP,Alfa End AgQua,Alfa End ApQua,Alfa End UFat,Numero End QAge,Numero End QCol,Numero End NAca,Numero End LTol,Numero End QCas,Numero End QDos, Numero End QAte);
Parâmetros:Nome | Tipo | Descrição |
Tip | Numérico | Retorna o Tipo do Agente. |
SAti | Alfa | Retorna a Substância ativa do Agente. |
EPPP | Alfa | Retorna se o Agente deve ser considerado no PPP. |
AgQua | Alfa | Retorna se o Agente é Qualitativo. |
ApQua | Alfa | Retorna a apresentação do Agente Qualitativo. |
UFat | Alfa | Retorna se o Agente considera Fator de Redução. |
QAge | Numérico | Retorna a quantificação do Agente sem Fator de Redução. |
QCol | Numérico | Retorna a quantificação considerando Fator de Redução. |
NAca | Numérico | Retorna o Nível de Ação do Agente. |
LTol | Numérico | Retorna o Limite de Tolerância do Agente. |
QCas | Numérico | Retorna a quantidade de casas decimais do Agente. |
QDos | Numérico | Retorna a Dose do Agente. |
QAte | Numérico | Retorna a quantificação final(utilizados pelos agentes que possuem intervalo). |
<div class="Code"><p>/* carrega todas as alterações de Filial/Local/Cargo */<br></br>PPPCarLocCarAti (xnumemp, xtipcol, xnumcad, xperini, xperfim, "S", xAprFun, EAbrAgt, 0, 0, 0, "");<br></br>str_agrupa = ",CodAgt,TecUti,ConEfi,EPCEfi,CerApr,QuaAge,";<br></br>Se (xemidos = "S")<br></br> str_agrupa = str_agrupa + "QtdDos,";<br></br>Se (xemilim = "S")<br></br> str_agrupa = str_agrupa + "TolMax,";<br></br>/* Filtra e agrupa os Agentes carregados */<br></br>PPPFilAgruAgAtEp("P", xemiagt, str_agrupa);<br></br>xfilagru = PPPRetAgAtEp("I", ret_datini, ret_datfim, ret_taborg, ret_numloc, ret_nomloc, ret_codatv, ret_desatv, ret_codagt, ret_desagt, ret_conppp, ret_InfInt);<br></br>Se (xfilagru <> 0)<br></br>{<br></br> /* Retorna informações adicionais do Agente */<br></br> PPPRetAgAtEpEx1(ret_tipris, ret_subati, ret_emippp, ret_agtqua, ret_aprqua, ret_fatred, ret_quaage, ret_quacol, ret_nivaca, ret_limtol, ret_qtdcas, ret_qtddos, ret_QuaAte);<br></br> PPPRetAgAtEpEx2(ret_uniafe, ret_tecuti, ret_epiefi, ret_epcefi, ret_forexp, ret_codepi, ret_desepi, ret_cerapr);<br></br> Se (ret_tipris = 2)<br></br> xdesagt = ret_subati;<br></br> Senao<br></br> xdesagt = ret_desagt;<br></br>}</p></div>
Utilização: Gerador de relatórios.
Disponível para o módulo: SM.
English
Español
