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

Exemplo:

Definir Cursor Cur_R077CDE;
Definir Data VCmpAva;
Definir Alfa VFamCnc;
Definir Alfa VCodCnc;

Se (TipoAvaDet = "C")
{
VNumEmp = R077CDE.NumEmp;
VTipCol = R077CDE.TipCol;
VNumCad = R077CDE.NumCad;
VCmpAva = R077CDE.CmpAva;
VTipAva = R077CDE.TipAva;
VFamCnc = R077CDE.FamCnc;
VCodCnc = R077CDE.CodCnc;
VCodAva = R077CDE.CodAva;

VQtdItens = 0;
VMedia = 0;

Cur_R077CDE.SQL "SELECT * FROM R077CDE \
                    WHERE NumEmp = :VNumEmp AND TipCol = :VTipCol \
                      AND NumCad = :VNumCad AND CmpAva = :VCmpAva \
                      AND TipAva = :VTipAva AND FamCnc = :VFamCnc \
                      AND CodCnc = :VCodCnc AND CodAva = :VCodAva";
Cur_R077CDE.AbrirCursor();

Enquanto (Cur_R077CDE.Achou)
{
    VMedia = VMedia + Cur_R077CDE.NotAva;
    VQtdItens = VQtdItens + 1;
    Cur_R077CDE.Proximo();
   }

Cur_R077CDE.FecharCursor();
Se (VMedia <> 0)
    VMediaFinal = VMedia / VQtditens;
    MediaAvaDet= VMediaFinal ;
}

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.