Ejemplo de regla para recálculo de cálculo desde la pantalla Historial de Ausencias/Exclusiones

Establecer alfa xAbrEmp;
Establecer alfa xAbrTcl;
Establecer alfa xAbrCad;
Establecer alfa xDatTer;
Definir interno.com.senior.g5.rh.hr.calculoApuracao.Calcula vCalculo;

Si (vExecucaoRule = 0)
{
/*Las variables texto1, texto2, texto3 y valor1 son variables internas del sistema destinadas a almacenar
los valores de los registros previos al cambio. Si usa variables locales, sus valores se restablecen a cero al ejecutar la regla después de la eliminación.*/
texto1 = ""; @Fecha final@
texto2 = ""; @Tipo de colaborador@
texto3 = ""; @Registro@
valor1 = 0; @Fecha de salida@

valor1 = R038AFA.DATOSFA;
IntParaAlpha(R038AFA.DATTER, xDatTer);
texto1 = xDatTer;
IntParaAlpha(R038AFA.TIPCOL, xAbrTcl);
texto2 = xAbrTcl;
IntParaAlpha(R038AFA.NUMCAD, xAbrCad);
texto3 = xAbrCad;

}
Senao
Si (vExecucaoRule = 1)
Inicio
Res = Mensaje(Retorna, "Esta operación afectará el cálculo del Contribuidor. ¿Quiere calcular todo el período cambiado automáticamente?[&Sí, &No]");
Si (Res = 0)
{
AlphaToInt(texto1,fechax);
vCalculo.Datini = valor1;
vCalculo.DatFim = xdatfim;
vCalculo.ProApu = "1"; @Tipo de procesamiento: recalcula el cálculo@
vCalculo.ReaMar = "S"; @Reubicar etiquetas@
vCalculo.DesAce = "S"; @Deshacer Situaciones Hits@
vCalculo.NumEmp = EmpAtu;
vCalculo.CodCal = CalAtu;

IntParaAlpha(EmAtu,xAbrEmp);
vCalculo.AbrEmp = xAbrEmp;
vCalculo.AbrTcl = texto2;
vCalculo.AbrCad = texto3;

vCalculo.ExecutionMode = 3; @ Asíncrono @
vCalcular.Ejecutar();
}

Fim;