English
Español
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.
English
Español
