PerAcertoQue

Esta variável retornará na regra o percentual de acerto da questão (0 a 100).

Tipo: Numérica - zz9,99999

<div class="Code"><p>Definir Cursor Cur_R202RES;<br></br>Definir Alfa xResCor;<br></br><br></br>PercAcertoQue = 100;<br></br>QtdResCerTes = 0;<br></br>QtdResIncTes = 0; </p><p>xGruPer = R202PER.GruPer;<br></br>xCodPer = R202PER.CodPer;</p><p>Cur_R202RES.SQL "SELECT CODRES,RESCOR FROM R202RES WHERE GRUPER = :xGruPer AND <br></br>CODPER = :xCodPer ORDER BY CODRES";<br></br>Cur_R202RES.AbrirCursor(); <br></br>xQtdeResCor = 0;<br></br>xQtdeResInc = 0;<br></br>xQtdeRespostas = 0;<br></br>xHouveAssinalamento = 0;<br></br>Enquanto (Cur_R202RES.Achou)<br></br>{<br></br> xCodRes = Cur_R202RES.CodRes;<br></br> xResCor = Cur_R202RES.ResCor;<br></br><br></br> /* 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. */<br></br> Se (ResAssTeste[xCodRes] = "S")<br></br> xHouveAssinalamento = 1; <br></br> Se (ResAssTeste[xCodRes] &#x3C;> xResCor)<br></br> PercAcertoQue = 0; <br></br> Se (ResAssTeste[xCodRes] = xResCor)<br></br> xQtdeResCor = xQtdeResCor + 1;<br></br> Se ((ResAssTeste[xCodRes] = "S") e (xResCor = "N"))<br></br> xQtdeResInc = xQtdeResInc + 1;<br></br> xQtdeRespostas = xQtdeRespostas + 1;<br></br> Cur_R202RES.Proximo();<br></br>}<br></br>Cur_R202RES.FecharCursor();<br></br>Se (xHouveAssinalamento = 0)<br></br>{<br></br> PercAcertoQue = 0;<br></br> QtdResCerTes = 0;<br></br> QtdResIncTes = 0;<br></br> Cancel(0);<br></br>}<br></br>Se (xQtdeResInc > 0)<br></br>{<br></br> PercAcertoQue = 0;<br></br> QtdResCerTes = 0;<br></br> QtdResIncTes = xQtdeResInc;<br></br> Cancel(0);<br></br>}<br></br>Se (xQtdeRespostas > 0)<br></br>{<br></br> PercAcertoQue = ((xQtdeResCor / xQtdeRespostas) * 100);<br></br> QtdResCerTes = xQtdeResCor;<br></br> QtdResIncTes = xQtdeResInc;<br></br> Cancel(0);<br></br>}</p></div>

Utilização: Pode ser utilizada na regra associada ao processo 262-Certificação - Corrigir questões.

Disponível para o módulo: TR.