RetornaEscala

Retorna a escala do colaborador em determinada data, considerando as programações de troca de escala e histórico do colaborador.

Sintaxe: RetornaEscala(Numero NumEmp, Numero TipCol, Numero NumCad, Numero Data, Numero Escala, Numero Turma, Numero Intervalo, Numero Equipe, Numero Categoria, Alfa Mensagem);

Parâmetro:

Nome Tipo Descrição
NumEmp   Empresa do Colaborador.
TipCol   Tipo do Colaborador.
NumCad   Cadastro do Colaborador.
Data   Data na qual deseja-se buscar a escala do colaborador.
Escala   Variável para retornar o código da escala.
Turma   Variável para retornar o código da turma da escala.
Intervalo   Variável para retornar o código da turma de intervalo da escala.
Equipe   Variável para retornar o código da equipe da escala de geração automática.
Categoria   Variável para retornar o código da categoria da escala de geração automática.
Mensagem   Retorna uma mensagem caso ocorra um dos erros abaixo:
1- Cadastro do colaborador não encontrado;
2 - Data procurada é menor que a data de admissão;
3 - Não possui histórico de escala na data;
4 - Problemas com a base de dados.

Exemplo:

/* Retornar a escala conforme período definido na tela de entrada do relatório */
Definir alfa Msg;
vdata = EDatIni;
 Enquanto (vdata <= EDatFim)
   Inicio
     RetornaEscala(r034fun.numemp,r034fun.tipcol,r034fun.numcad,vdata,vcodesc,vcodtma,
                   vturint,r031eqp.codeqp,r031cat.codcat,Msg);
    ListaSecao("Adicional_1");
    vdata = vdata + 1;
  Fim;

Utilização: Em regras e no Gerador de Relatórios.

Disponível para o módulo: Controle de Ponto e Refeitório.

Este artigo ajudou você?