Regra por processo 315 - Após efetivar proposta de cargo

Esta regra por processo será executada após efetivar a proposta de cargo. Estarão disponíveis os campos da tabela R076PCA 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 560 - Antes Efetivar Proposta de Cargo.

<div class="Code"><p style="font-family: 'Courier New';font-size: 10pt;">/* Busca qual era o último cargo do colaborador antes da efetivação da proposta<br></br>e grava nos campos de usuário R076PCA.USU_ESTANT e R076PCA.USU_CARANT */<br></br>definir data xDatEfe;<br></br>definir data xDatRef;<br></br>xNumEmp = R076PCA.NumEmp;<br></br>xTipCol = R076PCA.TipCol;<br></br>xNumCad = R076PCA.NumCad;<br></br>xDatEfe = R076PCA.DatEfe;<br></br>xDatRef = xDatEfe - 1;<br></br></p><p style="font-family: 'Courier New';font-size: 10pt;">RetCarEmp(xNumEmp, xTipCol, xNumCad, xDatRef);<br></br>definir alfa xCodCar;<br></br>xEstCar = EstCarEmp;<br></br>xCodCar = CarEmp;<br></br></p><p style="font-family: 'Courier New';font-size: 10pt;">definir alfa xUpdate;<br></br>SQL_Criar(xUpdate);<br></br>SQL_DefinirComando(xUpdate, "UPDATE R076PCA SET USU_ESTANT = :EstCar, USU_CARANT = :CodCar \</p><p style="margin-bottom: 1.12em;margin-top: 1.12em;margin-left: 20px;font-family: 'Courier New';font-size: 10pt;">WHERE NUMEMP = :NumEmp \<br></br>AND TIPCOL = :TipCol \<br></br>AND NUMCAD = :NumCad \<br></br>AND DATALT = :DatEfe");<br></br></p><p style="font-family: 'Courier New';font-size: 10pt;">SQL_DefinirInteiro(xUpdate, "EstCar", xEstCar);<br></br>SQL_DefinirAlfa(xUpdate, "CodCar", xCodCar);<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 Cargo (CS: Propostas/Cargos/Efetivar).

Disponível para o módulo: CS.