TipoAvaDet

Variável de sistema que contém o tipo da avaliação.

• ‘P’ - Avaliação de Performance ;
• ‘E’ - Avaliação de Excelência;
• ‘C’ - Avaliação de Conhecimentos.

Esta variável define qual das tabelas poderá ser lida: R077CDE, R077PDE ou R079EDE.

Tipo: Alfa

<div class="Code"><p>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();</p><p></p><p> 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> }</p><p> Cur_R077CDE.FecharCursor();</p><p><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: CS e TR .