Bonjour,
Je souhaite modifier le mois d’attribution des congés payés acquis par ancienneté dans un de mes dossiers Aéraulique, Thermique et frigorifique (A003).
En effet, mon client souhaite l’acquisition des congés supplémentaires à la date d’anniversaire de l’ancienneté (et non en juin d’après CCN) et dans un compteur distinct.
J’ai donc suivi la procédure : neutralisation du calcul standard - création profil prime …
Mais je bloque au niveau de mon script car mon profil de prime ne fonctionne pas :
Begin
Jours = 0
Mois = Bul.mois
MoisS = DateMonth (EMP.DTDEBANC)
If Bul.SortiCeMois = False and Mois = MoisS Then
Select Case Sal.S41.G01.00.015.002
Case "01":
//Cadres
Select case emp.coeff3
Case"370","375","380":
Default:
if Emp.anciennete >= 12 then Jours = 1
if Emp.anciennete >= 24 then Jours = 2
if Emp.anciennete >= 36 then Jours = 4
if Emp.anciennete >= 60 then Jours = 5
Endselect
Default:
// Non cadres
if Emp.anciennete >= 240 then Jours = 1
if Emp.anciennete >= 300 then Jours = 2
if Emp.anciennete >= 360 then Jours = 3
EndSelect
If Stockvar("CPANCIENNETE") <> 0 then Jours = Stockvar("CPANCIENNETE")
If Stockvar("CPANCIENNETE") = -1 then Jours = 0
if Jours <>0 then
Exec("Lprime_D02")
LigneNeutre = True
methodeCalcul = 99
Bases = Jours
Liblong = "Jours de congés ancienneté acquis"
Exec ("GenereLprime")
LigneNeutre = False
Call AffecteCPSupJoursAcquis (Jours)
Endif
Endif
End
Pouvez vous m’aider !!
Merci d’avance !