Regra por processo 493 - Consistir substituído da requisição

Esta regra será executada na tela de Seleção/Requisição - pasta Substituído, ao inserir um colaborador para requisições do tipo substituição e que estiverem com a situação em andamento.

Recursos utilizados: Nesta regra será disponibilizado os campos das tabelas R126RQU e R126SBS.

<div class="Code"><p>Definir cursor c_Requisicao;<br></br>Definir Numero xCodRqu;<br></br>Definir Data xDatRqu;<br></br>xCodRqu = R126RQU.CODRQU;<br></br>xDatRqu = R126RQU.DATRQU;<br></br>c_Requisicao.Sql "SELECT * FROM R126RQU";<br></br>c_Requisicao.AbrirCursor();<br></br>Enquanto (c_Requisicao.Achou)<br></br>{<br></br> Se ((xCodRqu = c_Requisicao.CodRqu) e (xDatRqu = c_Requisicao.DatRqu))<br></br> {<br></br> Se (xDatRqu &#x3C;> Datsis) <br></br> {<br></br> Mensagem(Retorna, "Favor atualizar Data da Requisição para Data Atual");<br></br> }<br></br> Se (xCodRqu &#x3C;> R126SBS.CodRqu)<br></br> {<br></br> Mensagem(Retorna, "Código da Requisição está errado na Substituído"); <br></br> } <br></br> }<br></br> c_Requisicao.Proximo();<br></br>}<br></br>c_Requisicao.FecharCursor();</p></div>

Utilização: Somente no módulo RS, em Seleção > Requisição na rotina de inserção de colaboradores da pasta Substituído.