Gestão de Pessoas - Manual do Usuário > Customizações > Funções > VerInterjornadaEscala

VerInterjornadaEscala

Verifica se tem inconsistência de interjornada ao incluir um histórico/troca de escala. Depende do assinalamento "Interjornada" da Ficha Básica.

Sintaxe: VerInterjornadaEscala(Numero xnumemp, Numero xtipcol, Numero xnumcad, Data xdatini, Data xdatfim, Numero xcodesc, Numero xcodtma, Alfa xIntOk);

Parâmetros:

Nome	Tipo	Descrição
xNumemp	Numérico	Código da empresa.
xTipcol	Numérico	Tipo do colaborador.
xNumcad	Numérico	Código do Cadastro.
xDatIni	Data	Data Inicial da Alteração.
xDatFim	Data	Data Final da Alteração (para históricos de escala deve ser passado zero).
xCodEsc	Numérico	Escala para qual será alterado.
xCodTma	Numérico	Código da Turma para qual será alterado.
xIntOk	Alfa	Retorna Mensagem no caso de problemas com Interjornada. Se não tiver problema vem vazio.

Exemplo:

/* Exemplo para a regra por processo de inclusão de troca de escala. */

Definir alfa xIntOk;

xnumemp = r064tes.numemp;
xtipcol = r064tes.tipcol;
xnumcad = r064tes.numcad;
xdatini = r064tes.datini;
xdatfim = r064tes.datfim;
xcodesc = r064tes.codesc;
xcodtma = r064tes.codtma;

VerInterjornadaEscala(xnumemp, xtipcol, xnumcad, xdatini, xdatfim, xcodesc, xcodtma, xIntOk);

Se (xIntOk <> "")
Inicio
    xIntOk = xIntOk + " [&Ok]";
    Mensagem(Retorna,xIntOk);
  Fim;

Utilização: Em todas as regras.

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