AdicionarHistoricoEscala

Esta função tem como objetivo adicionar registros de históricos de escala em uma lista em memória, para então carregá-los na guia Escalas/Horário das telas de Ficha Registro (Colaboradores > Ficha Registro > Portaria 41) e Informações Gerais (Colaboradores > Ficha Registro > Informações Gerais).

Observação

Esta função apenas deve ser utilizada na regra por processo 871 - Carregar escalas do colaborador.

Sintaxe: AdicionarHistoricoEscala(Data xDatAlt, Numero xCodEsc, Alfa xNomEsc, Numero xHorSem, Numero xHorDsr)

Parâmetros:

Nome

Tipo

Descrição

xDatAlt

Data

Data de alteração da escala do colaborador.

xCodEsc

Numérico

Código da nova escala do colaborador.

xNomEsc

Alfa

Nome da escala do colaborador.

xHorSem

Numérico

Quantidade de horas semanais.

xHorDsr

Numérico

Quantidade de horas de DSR.

Observação

O parâmetro xNomEsc pode ser utilizado com textos de até 260 caracteres e o xCodEsc com 9 dígitos. Nos parâmetros xHorSem e xHorDsr deve-se informar um valor em minutos. Exemplo: para representar 44 horas, deve-se informar 2640 minutos.

Exemplo: Buscar o Complemento Salarial do funcionário em horas, na data de hoje.

<div class="Code"><p>Definir Data xData;</p><p>Definir Numero xCodEsc;</p><p>Definir Alfa xNomEsc;</p><p>Definir Numero xHorSem;</p><p>Definir Numero xHorDsr;</p><p></p><p>xNumEmp = R034FUN.NumEmp;</p><p>xTipCol = R034FUN.TipCol;</p><p>xNumCad = R034FUN.NumCad;</p><p></p><p>Se ((xNumEmp = 1) e (xTipCol = 1) e (xNumCad = 1))</p><p>Inicio</p><blockquote><p>DataHoje(xData);</p><p>xCodEsc = 9999;</p><p>xNomEsc = "Nome da escala";</p><p>xHorSem = 44;</p><p>xHorDsr = 12;</p><p>AdicionarHistoricoEscala(xData, xCodEsc, xNomEsc, xHorSem, xHorDsr);</p></blockquote><p>Fim;</p></div>

Utilização: Editor de Regras. Esta função deve ser utilizada na regra por processo 871 - Carregar escalas do colaborador.

Disponível para o módulo: Administração de Pessoal.

Este artigo ajudou você?