Regra por processo 44 - Alterar propostas salariais

Esta regra por processo será chamada antes de alterar as propostas salariais. Permite utilização de campos de usuário.

Recursos utilizados: Disponibiliza a tabela R076PSA.

Comando Cancel: É possível cancelar o processo via regra utilizando cancel(1) por exemplo.

Exemplo:

<div class="Code"><p style="font-family: 'Courier New';font-size: 10pt;">xNumEmp = R076PSA.NumEmp;<br></br>xTipCol = R076PSA.TipCol;<br></br>xNumCad = R076PSA.NumCad;</p><p style="font-family: 'Courier New'; font-size: 10pt;"></p><p style="font-family: 'Courier New';font-size: 10pt;">definir data xDatRef;<br></br>xDatRef = R076PSA.DatAlt;</p><p style="font-family: 'Courier New'; font-size: 10pt;"></p><p style="font-family: 'Courier New';font-size: 10pt;">@ Verifica se o colaborador está demitido na data da proposta @<br></br>definir cursor CUR_R038AFA;<br></br>CUR_R038AFA.SQL "SELECT R038AFA.NUMCAD FROM R038AFA, R010SIT \</p><p style="margin-bottom: 1.12em;margin-top: 1.12em;margin-left: 20px;font-family: 'Courier New';font-size: 10pt;">WHERE R038AFA.NUMEMP = :xNumEmp \<br></br>AND R038AFA.TIPCOL = :xTipCol \<br></br>AND R038AFA.NUMCAD = :xNumCad \<br></br>AND R038AFA.DATAFA = (SELECT MAX(AFA.DATAFA) FROM R038AFA AFA \</p><p style="margin-bottom: 1.12em;margin-top: 1.12em;margin-left: 40px;font-family: 'Courier New';font-size: 10pt;">WHERE AFA.NUMEMP = R038AFA.NUMEMP \<br></br>AND AFA.TIPCOL = R038AFA.TIPCOL \<br></br>AND AFA.NUMCAD = R038AFA.NUMCAD \<br></br>AND AFA.DATAFA &#x3C;= :xDatRef) \</p><p style="margin-bottom: 1.12em;margin-top: 1.12em;margin-left: 20px;font-family: 'Courier New';font-size: 10pt;">AND R010SIT.CODSIT = R038AFA.SITAFA \<br></br>AND R010SIT.TIPSIT = 7";</p><p style="font-family: 'Courier New';font-size: 10pt;">CUR_R038AFA.AbrirCursor();<br></br>se (CUR_R038AFA.Achou) {<br></br> cancel(1);<br></br>}</p></div>

Utilização:

Disponível para os módulos: CS.

Este artigo ajudou você?