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

Ejemplo:

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 .