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	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 Inicial da Alteração.
xDatFim	Fecha	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.

Ejemplo:

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

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