FS - Desconto de Faltas nas Férias e avos do 13º salário

Problema

Dúvidas para descontar faltas nos períodos aquisitivos de férias e avos do 13º salário?

Sistema necessita das informações a seguir:

1) Tabelas Legais a Preencher "Desconto de Faltas nas Férias"

2) Conta associada ao tipo cálculo FFA - Ferias - Faltas Per.Aquisitivo, em Parâmetros\Contas\Contas

3) Conta associada ao tipo cálculo F83 - Ajuste Neg. Meses Trabalhados, em Parâmetros\Contas\Contas

4) Fórmula de cálculo para carregar o "Tipo Cálculo FFA" e opcionalmente F83 (Modelo)

--Carrega faltas para férias e 13º salário

--Evento Todos - Ponto 06 - Sequencia 1

tipoev_a = TIPO_EVENTO;

sitfun_a = FUNCIONARIO ( 'SITUACAO_FUNCIONARIO' );

lanca_n = CONTA ( 'FFA' /* Ferias - Faltas Per.Aquisitivo */, 'V', 'N' );

SE (tipoev_a == 'M' OU sitfun_a == 'E') E lanca_n == 0 ENTAO

hrmes_n = FUNCIONARIO ( 'HORAS_MES' );

hrXXX_n = CONTA ( 'XXX' /* Faltas */, 'Q', 'U' ) / (hrmes_n/30);

faltas_n = TRUNQUE(hrXXX_n);

SE faltas_n >= 1 ENTAO

MOVA ( 'FFA' /* Dias/Faltas - Ferias */, 'Q', faltas_n );

FIM_SE

-- Opcional para 13º Salário

SE faltas_n >= 15 ENTAO

avo_n = 1;

MOVA ( 'F83' /* Ajuste negativo de meses trab. */, 'Q', avo_n );

FIM_SE

Nota 3: Substitua XXX pelo código da conta utilizada para desconto das faltas.
Nota 4: A conta para desconto das faltas deverá ser separada daquela destinada ao desconto dos atrasos.
Nota 5: A dedução dos dias de faltas conforme artigo 130 da CLT, ocorrerá no instante do vencimento do período aquisitivo.

Esta solução não corrige o passado que poderá ser feito através de lançamentos de ajuste, diretamente na conta associada ao tipo cálculo "FFA".