Gestão de Pessoas - Manual do Usuário > Customizações > Funções > RetVlrCalPedRecTrab

RetVlrCalPedRecTrab

Retorna os valores calculados de um determinado pedido no período indicado, para o cenário e reclamante que estão sendo calculados naquele momento. Esta função somente poderá ser executada durante o cálculo da reclamatória trabalhista (no módulo JR). Para isso, um dos pedidos reclamados deverá ter indicado em seu cadastro (JR: Tabelas\Jurídico\Pedidos, campo Regra Especial) a regra que contém esta função.

Importante: Não serão retornados os valores de competências posteriores a competência em que a regra foi chamada. Por exemplo:

Pedidos reclamados:

99-Regra Especial - 01/2008 a 12/2008

5-Horas Extras - 01/2008 a 12/2008

Considerando que o pedido 99 tem como base o pedido 5-Horas Extras.

Quando a regra estiver sendo calculada na competência de 10/2008, os valores de horas extras para 11/2008 e 12/2008 ainda não estarão calculados para serem utilizados na regra.

Sintaxe: RetVlrCalPedRecTrab(Numero xCodMtj, Numero xDatIni, Numero xDatFim, Numero xJurCor, Numero End xTotCal);

Parâmetros:

xCodMtj = Código do pedido. Serão retornados os valores calculados para este código de pedido.
xDatIni = Data de início para a busca dos valores calculados.
xDatFim = Data final para a busca dos valores calculados.
xJurCor = se for informado 0 (zero) neste parâmetro, o retorno dos valores será considerando juros e correção. Se for informado 1, o retorno será sem juros e correção.
xTotCal = resultado da função.

Exemplo:

Se (R104PCD.ForCal = 1)
xSal = SalIntReclamante;
Se (R104PCD.ForCal = 2)
xSal = SalDifReclamante;
Se (R104PCD.ForCal = 3)
xSal = SalIntParadigma;
Se (R104PCD.ForCal = 4)
xSal = SalDifParadigma;
Se (R104PCD.ForCal = 9)
xSal = 0;

xCodMtj = R104PCD.CodMtj;
/* Pedido 99 - cálculo exclusivo por regra */
/* Objetivo: aplicar 10% sobre o valor de salário + horas extras calculadas na competência em que o pedido 99 está sendo
reclamado*/
Se (xCodMtj = 99)
{
/* Início da competência */
xDatIni = R104PCD.DatIni;

/* Fim da competência */
VData = R104PCD.DatIni;
UltimoDia (VData);
xDatFim = VData;

/* Busca Valor Total calculado de Horas Extras (pedido 5) realizadas na competência em que o pedido 99 está sendo
reclamado */
RetVlrCalPedRecTrab(5, xDatIni, xDatFim, 1, xTotCal);

/* Soma total de horas extras com o salário e armazena o total na tabela R104RES como base */
R104RES.VlrBas = (xSal + xTotCal);
R104RES.BasCal = (xSal + xTotCal);
/* Aplica 10 % sobre o total e armazena na tabela R104RES */
R104RES.VlrCal = (xSal + xTotCal) * 10/100;
}

Utilização: Deve ser utilizada em regras que serão executadas durante o cálculo da reclamatória trabalhista (módulo JR).

Disponível para o módulo: JR.