MediaAvaDet

Variável de sistema utilizada no cálculo da média da avaliação detalhada no TR/CS WEB. Será utilizada para receber o resultado da execução da avaliação (nota final).

Tipo: Numérica

<div class="Code"><p>Definir Cursor Cur_R077CDE;<br></br>Definir Data VCmpAva;<br></br>Definir Alfa VFamCnc;<br></br>Definir Alfa VCodCnc;<br></br><br></br>Se (TipoAvaDet = "C")<br></br>{<br></br> VNumEmp = R077CDE.NumEmp;<br></br> VTipCol = R077CDE.TipCol;<br></br> VNumCad = R077CDE.NumCad;<br></br> VCmpAva = R077CDE.CmpAva;<br></br> VTipAva = R077CDE.TipAva;<br></br> VFamCnc = R077CDE.FamCnc;<br></br> VCodCnc = R077CDE.CodCnc;<br></br> VCodAva = R077CDE.CodAva;</p><p> VQtdItens = 0;<br></br> VMedia = 0;</p><p><br></br> Cur_R077CDE.SQL "SELECT * FROM R077CDE \<br></br> WHERE NumEmp = :VNumEmp AND TipCol = :VTipCol \<br></br> AND NumCad = :VNumCad AND CmpAva = :VCmpAva \<br></br> AND TipAva = :VTipAva AND FamCnc = :VFamCnc \<br></br> AND CodCnc = :VCodCnc AND CodAva = :VCodAva";<br></br> Cur_R077CDE.AbrirCursor();<br></br><br></br> Enquanto (Cur_R077CDE.Achou)<br></br> {<br></br> VMedia = VMedia + Cur_R077CDE.NotAva;<br></br> VQtdItens = VQtdItens + 1;<br></br> Cur_R077CDE.Proximo();<br></br> }<br></br><br></br> Cur_R077CDE.FecharCursor();<br></br> Se (VMedia &#x3C;> 0)<br></br> VMediaFinal = VMedia / VQtditens;<br></br> MediaAvaDet= VMediaFinal ;<br></br>}</p></div>

Utilização: Deve ser usada na regra associada ao processo 223 - Média Avaliação Detalhada.

Disponível para os módulos: CS e TR.