Bonjour,
Nous souhaitons paramétrer la prime d’ancienneté forfaitaire en incluant les HS contractuelles c’est a dire
Forfait = 77€
77/151.67*162.5=82.50
Ci dessous le libellé PA de la coiffure. Les modifs essayées n’ont pas fonctionnés. Avez vous une aidé?
Begin
//Modif CP 09052019 exclusion des FJ du prorata, réecriture.
ForceTauxS = 0
Include("INIT-D01")
Mois = Emp.Anciennete
Montant = 0
Include("D01_1")
CoefTP = 100
// Prorata sur les heures normales effectuées uniquement pour les TP
If Bul.S41.G01.00.013 <> "10" then
// exclusion des FJ.
If Bul.NbHMContrat < 151.67 then
// Temps partiel
x = Bul.NbHMContrat + Bul.NbHMHL1 + Bul.NbHMHL2 + Bul.NbHMHL3 + Bul.NbHC
// Prorata sur les heures normales d'absence pour tous les salariés(non conventionnel)
If Eta.CcnBool[4] = True then x = Bul.NbHMN + Bul.NbHC
If x > 151.67 Then x = 151.67
CoefTP = x / 151.67 * 100
Else
// Temps pleins
If Eta.CcnBool[4] = True then
// Prorata sur les heures normales d'absence pour tous les salariés(non conventionnel)
//x = Bul.Nbhm
// ACA 281020 : Seules les HN doivent être prises en compte pour le prorata
x = Bul.NbHMN
If x > 151.67 Then x = 151.67
CoefTP = x / 151.67 * 100
Endif
Endif
Endif
Bases = Montant
TauxS = coefTP
// Annulation PAnc si abs complete chom part et méthode réelle.
If STE.SOUSMETHODESUIVIABSENCES = 1 Then
Include("ABSCHOMPART")
If AbsChomPartComplete Then TauxS = 0
EndIf
If ForceTauxS <> 0 Then TauxS = ForceTauxS
If Bases > 0 and TauxS <> 0.0 then
Methodecalcul = 1
x = Bases * Tauxs / 100
Call Stockevar("ANC", x)
Exec("GenereLprime")
Endif
End
