MediaAvaDet

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 ;
}