PerAcertoQue

Definir Cursor Cur_R202RES;
Definir Alfa xResCor;

PercAcertoQue = 100;
QtdResCerTes = 0;
QtdResIncTes = 0;

xGruPer = R202PER.GruPer;
xCodPer = R202PER.CodPer;

Cur_R202RES.SQL "SELECT CODRES,RESCOR FROM R202RES WHERE GRUPER = :xGruPer AND
CODPER = :xCodPer ORDER BY CODRES";
Cur_R202RES.AbrirCursor();
xQtdeResCor = 0;
xQtdeResInc = 0;
xQtdeRespostas = 0;
xHouveAssinalamento = 0;
Enquanto (Cur_R202RES.Achou)
{
xCodRes = Cur_R202RES.CodRes;
xResCor = Cur_R202RES.ResCor;

/* Verifica se houve assinalamento. Só corrige a questão se pelo menos uma resposta for assinalada. Isso é feito pois uma resposta incorreta não assinalada é considerada como correta. E para evitar que ao simplesmente passar de uma questão para outra, sem assinalar qualquer resposta, seja corrigida indevidamente a questão. Exemplo: Digamos que o usuário não terminou todas as questões do teste, as questões não respondidas não podem ser corrigidas. */
Se (ResAssTeste[xCodRes] = "S")
xHouveAssinalamento = 1;
Se (ResAssTeste[xCodRes] <> xResCor)
PercAcertoQue = 0;
Se (ResAssTeste[xCodRes] = xResCor)
xQtdeResCor = xQtdeResCor + 1;
Se ((ResAssTeste[xCodRes] = "S") e (xResCor = "N"))
xQtdeResInc = xQtdeResInc + 1;
xQtdeRespostas = xQtdeRespostas + 1;
Cur_R202RES.Proximo();
}
Cur_R202RES.FecharCursor();
Se (xHouveAssinalamento = 0)
{
PercAcertoQue = 0;
QtdResCerTes = 0;
QtdResIncTes = 0;
Cancel(0);
}
Se (xQtdeResInc > 0)
{
PercAcertoQue = 0;
QtdResCerTes = 0;
QtdResIncTes = xQtdeResInc;
Cancel(0);
}
Se (xQtdeRespostas > 0)
{
PercAcertoQue = ((xQtdeResCor / xQtdeRespostas) * 100);
QtdResCerTes = xQtdeResCor;
QtdResIncTes = xQtdeResInc;
Cancel(0);
}