Este conteúdo não recebe atualizações, pois é referente a uma versão do sistema que foi descontinuada. Acesse a documentação da versão 6.10.3 aqui

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.

Este artigo ajudou você?