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