Exemplo de regra para recálculo de apuração a partir da tela de Históricos de Afastamentos/Inclusão

<div class="Code"><p>Definir alfa xAbrEmp;<br></br> Definir alfa xAbrTcl;<br></br> Definir alfa xAbrCad;<br></br> Definir interno.com.senior.g5.rh.hr.calculoApuracao.Calcular vCalculo; <br></br><br></br> Se (vExecucaoRegra = 1)<br></br> Inicio<br></br> Res = Mensagem(Retorna, "Esta operação irá afetar a apuração do Colaborador. Deseja Apurar todo o período alterado automaticamente ?[&#x26;Sim, &#x26;Não]");<br></br> Se (Res = 0)<br></br> {<br></br> vCalculo.Datini = R038AFA.DATAFA;<br></br> vCalculo.DatFim = R038AFA.DATTER;<br></br> vCalculo.ProApu = "1"; @Tipo de Processamento - Recalcula Apuração@<br></br> vCalculo.ReaMar = "S"; @Realocar Marcações@<br></br> vCalculo.DesAce = "S"; @Desfazer Acertos Situações@<br></br> vCalculo.NumEmp = EmpAtu;<br></br> vCalculo.CodCal = CalAtu;<br></br><br></br> @Dados do colaborador@<br></br> IntParaAlfa(R038AFA.NUMEMP, xAbrEmp);<br></br> IntParaAlfa(R038AFA.TIPCOL, xAbrTcl);<br></br> IntParaAlfa(R038AFA.NUMCAD, xAbrCad);<br></br><br></br> vCalculo.AbrEmp = xAbrEmp;<br></br> vCalculo.AbrTcl = xAbrTcl;<br></br> vCalculo.AbrCad = xAbrCad;<br></br><br></br> vCalculo.ModoExecucao = 3; @ Assíncrono @<br></br> vCalculo.Executar();<br></br> }<br></br><br></br> Fim;</p></div>