Gestão de Pessoas - Manual do Usuário > Customizações > Regras > Regras por Processo > Regra por processo 493 - Consistir substituído da requisição

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.

Exemplo:

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

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