Regra por processo 847 - Após salvar substituídos da solicitação de abertura de vaga

Regra executada após salvar os Substituídos de uma solicitação de abertura de vaga.

Recursos utilizados: Estará disponível somente para consulta o registro da tabela R126SVA.

O exemplo a seguir exclui do roteiro de aprovação os colaboradores da lista de substituídos.

<div class="Code"><p>Definir Cursor CRoteiro;</p><p>Definir Numero xCodSva;</p><p>Definir Numero xNumEmp;</p><p>Definir Numero xTipCol;</p><p>Definir Numero xNumCad;</p><p>xCodSva = R126SVA.CODSVA;</p><p></p><p>CRoteiro.SQL "SELECT R126RSV.NUMEMP, R126RSV.TIPCOL, R126RSV.NUMCAD FROM R126SSV,R126RSV WHERE R126SSV.CODSVA = :xCodSva AND R126RSV.CODSVA = :xCodSva \</p><p>AND R126SSV.NUMEMP = R126RSV.NUMEMP AND R126SSV.TIPCOL = R126RSV.TIPCOL \</p><p>AND R126SSV.NUMCAD = R126RSV.NUMCAD ";</p><p></p><p>CRoteiro.AbrirCursor();</p><p>Enquanto (CRoteiro.Achou)</p><p>{ </p><p>xNumEmp = CRoteiro.NUMEMP; </p><p>xTipCol = CRoteiro.TIPCOL; </p><p>xNumCad = CRoteiro.NUMCAD; </p><p>ExecSQL "DELETE R126RSV WHERE CODSVA = :xCodSva AND NUMEMP = :xNumEmp AND TIPCOL = :xTipCol AND NUMCAD = :xNumCad";</p><p> CRoteiro.Proximo();</p><p>}</p><p>CRoteiro.FecharCursor();</p></div>

Utilização: Solicitação de abertura de vaga, guia Substituídos.

Disponível para o módulo: RS.