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.
Ejemplo:
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.
English
Español
