TipoAvaDet

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

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

Tipo: Alfa

Exemplo:

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: CS e TR .

Este artigo ajudou você?