Regra por processo 345 - Concluir avaliações

A regra por processo 345 á executada antes da conclusão da avaliação(apenas para avaliação de desempenho e competência), permitindo que o processo seja alterado/cancelado através da regra.

Necessário utilizar a variável TipoAvaReg para identificar qual é o tipo da avaliação (Conhecimento, Excelência ou Performance), acessar as notas via cursor, utilizar função de programador Mensagem(Erro, Texto) + Cancel(1); para cancelar a conclusão da avaliação, bem como a função MsgAvaWeb(Alfa Mensagem, Alfa Substituir); para complementar ou substituir as mensagens do sistema.

Recursos utilizados: Nesta regra por processo estão disponíveis as tabelas:

R077APA quando TipoAvaReg = P
R077ACT quando TipoAvaReg = C
R079AEA quando TipoAvaReg = E

As tabelas de notas devem ser acessadas via cursor:

R077AHN quando TipoAvaReg = P
R077ACN quando TipoAvaReg = C
R079AHN quando TipoAvaReg = E

Este exemplo é uma regra especial para ser utilizada na regra por processo 345.

<div class="Code"><p>/*Esta regra especial irá consistir a conclusão de avaliação de Performance quando a soma das notas for igual a 0(zero)*/<br></br>Definir cursor CNotas;<br></br>Se (TipoAvaReg = 'P')<br></br>Inicio<br></br> xNumEmp = R077APA.NumEmp;<br></br> xTipCol = R077APA.TipCol;<br></br> xNumCad = R077APA.NumCad;<br></br> xCmpAva = R077APA.CmpAva;<br></br> xTipAva = R077APA.TipAva;<br></br> xNotas = 0;<br></br> CNotas.SQL "SELECT * FROM R077AHN WHERE R077AHN.NumEmp = :xNumEmp AND \<br></br> R077AHN.TipCol = :xTipCol AND \<br></br> R077AHN.NumCad = :xNumCad AND \<br></br> R077AHN.CmpAva = :xCmpAva AND \<br></br> R077AHN.TipAva = :xTipAva \<br></br> ORDER BY R077AHN.NumEmp, R077AHN.TipCol, R077AHN.NumCad, R077AHN.CmpAva, R077AHN.TipAva, R077AHN.CodHte";<br></br>CNotas.AbrirCursor();<br></br>Enquanto (CNotas.Achou)<br></br>Inicio<br></br> xNotas = xNotas + CNotas.NotAva;<br></br> CNotas.Proximo();<br></br>Fim;<br></br>CNotas.FecharCursor();<br></br>Se (xNotas = 0) <br></br>Inicio<br></br> Mensagem(Erro, "A soma das notas é zero!");<br></br> MsgAvaWeb("Erro CS", "N");<br></br> Cancel(1);<br></br>Fim;<br></br>Fim;</p></div>

Observação: A função Mensagem(Erro, “Texto da mensagem”) não deve ser utilizada em regras executadas no ambiente WEB, pois estas mensagens não serão mostradas ao usuário e a aplicação ficará parada, pois ninguém tem como interagir com esta mensagem. Quando esta função for utilizada em conjunto com o parâmetro -DW (para permitir depuração de regras na WEB) uma exceção será gerada e a aplicação será finalizada.

Disponível para os módulos: Esta regra por processo está relacionada aos módulos CS, CSWEB e TR.