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	Descripción
xNumemp	Numérico	Código de la empresa.
xTipcol	Numérico	Tipo de empleado.
xNumcad	Numérico	Código do Cadastro.
xDatIni	Fecha	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.

Ejemplo:

/* 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.

Disponible para el módulo: Control de Asistencia y Cafetería.