Consistencia de aciertos

/* Trata Banco de Tiempo para Empresas 02, 03, 04, 12, 13, 20 y 30. */

 

Si ((R034Fun.NumEmp = 02) o (R034Fun.NumEmp = 03) o (R034Fun.NumEmp = 04) o (R034Fun.NumEmp = 12) o
(R034Fun.NumEmp = 13) o (R034Fun.NumEmp = 20) o (R034Fun.NumEmp = 30))
Inicio
/* Solo en el periodo 28/8/98 - 28/8/99: */
/* Las horas de crédito no pueden exceder las 135 horas (saldo = 2) */
Si (HorSit[120] <> 0)
Inicio
montarDatos(28,8,1998,inicon);
MountData(28,8,1999,fimcon);
Si ((DatPro < inicon) o (DatPro > fimcon))
Cancela (1);
vsal = ValSal[2];
Si (vsal >= 8100)
Cancela (1);
vsal = vsal + HorSit[120];
Si (vsal > 8100)
Inicio
vdif = vsal - 8100;
Si ((SitAnt[47] <> 0) y (HorSit[47] = 0))
Inicio
HorSit[90] = vdif;
HorSit[47] = HorSit[47] + vdif;
Orden;
Senao
Si ((SitAnt[48] <> 0) y (HorSit[48] = 0))
Inicio
HorSit[91] = vdif;
HorSit[48] = HorSit[48] + vdif;
Orden;
HorSit[120] = HorSit[120] - vdif;
Orden;
vssal = 0;
vdif = 0;

@ Si Nightly Adicional debe pagarse dentro del mes. @
Si ((SitAnt[48] <> 0) y (HorSit[48] = 0))
HorSit[123] = SitAnt[48];
Orden;
Fim;