Regra por processo 314 - Após efetivar proposta salarial

Esta regra por processo será executada após efetivar a proposta salarial. Estarão disponíveis os campos da tabela R076PSA e também os campos de usuário desta tabela.

Esta regra não permite cancelar a efetivação da proposta. Para isso deve-se utilizar a regra por processo 559 - Antes Efetivar Proposta Salarial.

<div class="Code"><p style="font-family: 'Courier New';">/* Busca qual era o último salário do colaborador antes da efetivação da proposta<br></br>e grava no campo de usuário R076PSA.USU_SALANT */<br></br>definir data xDatEfe;<br></br>definir data xDatRef;<br></br>xNumEmp = R076PSA.NumEmp;<br></br>xTipCol = R076PSA.TipCol;<br></br>xNumCad = R076PSA.NumCad;<br></br>xDatEfe = R076PSA.DatEfe;<br></br>xDatRef = xDatEfe - 1;</p><p style="font-family: 'Courier New';">RetSalEmp(xNumEmp, xTipCol, xNumCad, xDatRef);<br></br>xValSal = SalEmp;</p><p style="font-family: 'Courier New';">definir alfa xUpdate;<br></br>SQL_Criar(xUpdate);<br></br>SQL_DefinirComando(xUpdate, "UPDATE R076PSA SET USU_SALANT = :ValSal \</p><p style="margin-bottom: 1.12em;margin-top: 1.12em;margin-left: 20px;font-family: 'Courier New';">WHERE NUMEMP = :NumEmp \<br></br>AND TIPCOL = :TipCol \<br></br>AND NUMCAD = :NumCad \<br></br>AND DATALT = :DatEfe");</p><p style="font-family: 'Courier New';">SQL_DefinirFlutuante(xUpdate, "ValSal", xValSal);<br></br>SQL_DefinirInteiro(xUpdate, "NumEmp", xNumEmp);<br></br>SQL_DefinirInteiro(xUpdate, "TipCol", xTipCol);<br></br>SQL_DefinirInteiro(xUpdate, "NumCad", xNumCad);<br></br>SQL_DefinirData(xUpdate, "DatEfe", xDatEfe);<br></br>SQL_AbrirCursor(xUpdate);<br></br>SQL_FecharCursor(xUpdate);<br></br>SQL_Destruir(xUpdate);</p></div>

Utilização: Tela de Efetivação de Propostas de Salário (CS: Propostas/Salários/Efetivar)

Disponível para o módulo: CS.