Regra por processo 223 - Média Avaliação Detalhada

Regra executada ao confirmar as notas na tela de Avaliação Detalhada do formulário de Avaliação, permite alterar a Nota da competência calculada pelo sistema ou gerar uma exceção.

Quando a variável de sistema MediaAvaDet for alterada pela regra, o sistema atribui este valor para a Nota da competência (R578AVI.NotCpt) e recalcula o Conceito avaliado para a competência(R578AVI.CodCpr).

Através das funções RetornaNomeCampoFrmtEvidencia e WCheckValDouble, é possível acessar o valor do campo NOTEVD. Quando o Tipo de exibição do campo Nota da evidência (NOTEVD) estiver configurado em “1-Caixa de texto (input)” no perfil do formulário de avaliação, o valor retornado será a Nota da evidência exibida no formulário. Para os demais tipos de exibição, o valor retornado será a posição do Conceito selecionado na Tabela de Proficiência (iniciando em 1).

Informações disponibilizadas para a regra: R578AVF, R578AVI.

Exemplo de utilização:

<div class="Code"><p>Regra '006 - Exemplo - GPC - Calculo média avl detalhada'</p><p>/* Esta regra tem o objetivo de consistir a nota da evidência ao calcular a nota da competência.</p><p>Nesta regra somente será verificado se a nota foi informada, caso não for, mostra uma mensagem na tela informando a evidência que deve ser informada a nota. Também é feito um arredondamento na média calculada para a competência.</p><p>Tabelas disponíveis para consulta nesta regra:</p><p>R578AVF - Avaliação de competências - Avaliação por foco</p><p>R578AVI - Avaliação de competências - Avaliação por foco - Itens avaliados</p><p>*/</p><p>se (VerWeb = 1) @ Só executa a regra caso for na WEB @</p><p>inicio</p><p>Definir Alfa xNomeCampoFormatado;</p><p>Definir Alfa xMensagem;</p><p>Definir cursor CUR_R578AVD;</p><p>Definir Cursor CUR_R577EVD;</p><p>Definir Numero xNUMEMP;</p><p>Definir Numero xTIPCOL;</p><p>Definir Numero xNUMCAD;</p><p>Definir Numero xCODCIC;</p><p>Definir Numero xIDEAVA;</p><p>Definir Numero xSEQAVF;</p><p>Definir Numero xSEQCPT;</p><p>Definir Numero xCODCPT;</p><p>Definir Alfa xREVCPT;</p><p>Definir Numero xPRFAPL;</p><p>Definir Numero xSeqEvd;</p><p>Definir Alfa xDesEvd;</p><p></p><p>xNUMEMP = R578AVI.NUMEMP;</p><p>xTIPCOL = R578AVI.TIPCOL;</p><p>xNUMCAD = R578AVI.NUMCAD;</p><p>xCODCIC = R578AVI.CODCIC;</p><p>xIDEAVA = R578AVI.IDEAVA;</p><p>xSEQAVF = R578AVI.SEQAVF;</p><p>xSEQCPT = R578AVI.SEQCPT;</p><p>xCODCPT = R578AVI.CODCPT;</p><p>xREVCPT = R578AVI.REVCPT;</p><p>xPRFAPL = R578AVI.PRFAPL;</p><p></p><p>/* Faz um cursor para buscar todas as evidências da competência posicionada, é preciso fazer isto para buscar a sequência</p><p>dos itens da evidência, com isso é possível acessar os valores dos campos da WEB</p><p>*/</p><p>CUR_R578AVD.Sql "SELECT SEQEVD FROM R578AVD WHERE NUMEMP = :xNUMEMP</p><p>AND TIPCOL = :xTIPCOL</p><p>AND NUMCAD = :xNUMCAD</p><p>AND CODCIC = :xCODCIC</p><p>AND IDEAVA = :xIDEAVA</p><p>AND SEQAVF = :xSEQAVF</p><p>AND SEQCPT = :xSEQCPT"</p><p></p><p>CUR_R578AVD.AbrirCursor();</p><p>Enquanto(CUR_R578AVD.Achou)</p><p>Inicio</p><p>xSeqEvd = CUR_R578AVD.SeqEvd; @ Pega a sequência da evidência @</p><p>/* O método abaixo busca o nome do campo da evidência na web com base na sequência da evidência informada</p><p>é necessário utilizar este método pois os campos do formulário da avaliação de competência tem um formato específico composto</p><p>pelo nome da tabela_Campo_SequenciaCompetencia_SequenciaEvidencia</p><p>*/</p><p>RetornaNomeCampoFrmtEvidencia("NOTEVD", xSEQCPT,xSeqEvd,xNomeCampoFormatado);</p><p>@ Se retornou algum nome para o campo, então busca o valor dele na web @</p><p>se (xNomeCampoFormatado &#x3C;> ""){</p><p>@ Busca o valor do campo NOTEVD (Nota da evidência) @</p><p>WCheckValDouble(xNomeCampoFormatado , "Nota da evidência" , xNota, "N", 9999.9999); @ -- Pega o valor do campo na WEB e atribui para a variável xNota -- @</p><p>/* Se não informado a nota da evidência, exibe uma mensagem informando que é necessário informar valor para este campo */</p><p>se (xNota = 0){</p><p>/* Busca a descrição da evidência que a nota não foi informada */</p><p>CUR_R577EVD.Sql "SELECT DESEVD FROM R577EVD WHERE CODCPT = :xCODCPT</p><p>AND REVCPT = :xREVCPT</p><p>AND PRFAPL = :xPRFAPL</p><p>AND SEQEVD = :xSEQEVD";</p><p>CUR_R577EVD.AbrirCursor();</p><p>se (CUR_R577EVD.Achou){</p><p>xDesEvd = CUR_R577EVD.DesEvd;</p><p>}</p><p>CUR_R577EVD.FecharCursor();</p><p>/* Monta a mensagem para ser exibida no formulário da avaliação */</p><p>Concatena ("É necessário informar a nota para a evidência &#x3C;b> ", xDesEvd, "&#x3C;/b>.", xMensagem);</p><p>/* Exibe a mensagem */</p><p>mensagem(erro, xMensagem);</p><p>}</p><p>}</p><p>CUR_R578AVD.Proximo();</p><p>Fim;</p><p>CUR_R578AVD.fecharCursor();</p><p>/* Arredonda o valor da média calculada pelo sistema, a variável de sistema MediaAvaDet contém o valor calculado pelo sistema</p><p>ao atribuir um valor para ela, será considerado a média da variável */</p><p>xValorMedia = MediaAvaDet;</p><p>ArredondarValor(xValorMedia,0);</p><p>MediaAvaDet = xValorMedia;</p><p>fim;</p></div>

Utilização: Tela de Avaliação Detalhada do formulário de Avaliação.

Disponível para o módulo: CS.