Bonjour,
Je me suis permis d’apporter un complément dans le profil proposé pour tenir compte des jours si le salarié arrive après le 1er du mois dans le prorata le cas des forfaits jours qui ne peut se proratiser en heures et la possibilité d’inhiber le déclenchement en mettant -1 en colonne d’EV au cas ou.
Begin
Montant = 800
Datedeb = bul.periode
If emp.dtdebcontrat > Datedeb then datedeb = emp.dtdebcontrat
Datefin = Bul.date
NbjMois = Diffdays(Datedeb,Bul.date)
CumNbJAbs = NbJCalendairesAbsences(DateDeb, DateFin, "04+08+54+11+09+32+33+69")
If BUL.S41.G01.00.013 <> "10" then
ProrataTP = BUL.NBHMCONTRAT / 151.67
else
// forfait jours
ProrataTP = BUL.FJNBJAN / 218
endif
Prorata = (NbjMois - CumNbJAbs) / bul.NbjMois
Montant = ((Montant / 12) * ProrataTP) * Prorata
ForcMontant = Saisie("Prime annuelle",Montant)
If ForcMontant <> 0 then Montant = ForcMontant
If ForcMontant = -1 then Montant = 0
If Montant <> 0 then
Exec("Lprime_D05")
Bases = Montant
methodeCalcul = 2
Liblong="Prime annuelle"
Exec ("GenereLprime")
endif
End
Bonne fin de journée