VerInterjornadaTrocaHorario

Verifica se existe uma inconsistência de interjornada ao incluir uma troca de horário. Depende do assinalamento "Interjornada" da Ficha Básica.

Sintaxe: Funcao VerInterjornadaTrocaHorario(Numero xnumemp,Numero xtipcol,Numero xnumcad,Data xdatini,Numero xcodhor,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 da Alteração.
xCodHor	Numérico	Horário 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 horário. */

Definir Alfa xmsgInt;

xnumemp = r064thr.numemp;
xtipcol = r064thr.tipcol;
xnumcad = r064thr.numcad;
xdatini = r064thr.datini;
xcodhor = r064thr.codhor;

VerInterjornadaTrocaHorario(xnumemp,xtipcol,xnumcad,xdatini,xcodhor,xmsgInt);

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

Utilização: Em todas as regras.

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