Majoration heures fériées au dessus du conventionnel

Bonjour,

Vous pouvez mettre par exemple ce code dans Paramétrage > Primes > Profil :

1Begin
2
3NbHresFerie = Saisie( "NbHrsFerie", 0 )
4
5if NbHresFerie <> 0 then
6    Exec("Lprime_C01")
7    methodeCalcul = 3
8    Bases = NbHresFerie
9    Tauxs = BUL.TAUXHORAIRE * 1
10    Liblong = "Majoration heures férié"
11    Exec ("GenereLprime")
12endif
13
14
15End

Cordialement

Bonjour Flavien,

Je vous remercie de votre retour.

La formule ne prend pas en compte la D01 (prime d’ancienneté)

Avez vous une autre formule/solution ?

Merci par avance.

Bien cordialement

Guillaume

1MontantSalaireDeBase = Bul.SalairedeBase
2
3rs = 0.0
4call CumulLignesEmploi (11 , "%anciennet%" , "D01%" , Bul.periode, Bul.date, "", "", rs, "", "", "")
5MontantAnciennete = rs	
6
7TauxHoraire = (MontantSalaireDeBase + MontantAnciennete) /bul.nbhmncontrat

A la place de Tauxs vous pouvez éventuellement mettre le code TauxHoraire * 1

Et mettre le code ci-dessous juste après le Begin

Re bonjour Flavien,

Merci pour votre réponse.

Mais malheureusement, ça ne fonctionne pas.

Je vais attendre le retour de SILAE …. et je viendrais indiquer la réponse ici.

Je vous remercie beaucoup :-)

Bien cordialement

Guillaume

Après avoir testé, de mon côté cela fonctionne bien pourtant

1Begin
2
3MontantSalaireDeBase = Bul.SalairedeBase
4
5rs = 0.0
6call CumulLignesEmploi (11 , "%anciennet%" , "D01%" , Bul.periode, Bul.date, "", "", rs, "", "", "")
7MontantAnciennete = rs	
8
9TauxHoraire = (MontantSalaireDeBase + MontantAnciennete) /bul.nbhmncontrat
10
11NbHresFerie = Saisie( "NbHrsFerie", 0 )
12
13if NbHresFerie <> 0 then
14    Exec("Lprime_C01")
15    methodeCalcul = 3
16    Bases = NbHresFerie
17    Tauxs = TauxHoraire * 1
18    Liblong = "Majoration heures férié"
19    Exec ("GenereLprime")
20endif
21
22
23End

Flavien,

J’ai revérifié mais peut-être que cela vient du fait que j’ai un salaire de base en point.

Cela doit interférer dans le calcul.

Dès retour d’une solution, je reposterais ici.

Merci et bonne après-midi.

Bien cordialement

Guillaume

Si vous souhaitez, vous pouvez mettre une copie d’écran de votre bulletin de paie avec les codes des rubriques

Dans votre profil PCCN00, essayez en mettant ce code avant Exec(“generelprime”)

1call stockevar("SALAIREBASEPOINT", Bases)

Puis dans le code sur les heures fériés, mettez à la place de la ligne 

MontantSalaireDeBase = Bul.SalairedeBase

1SalaireDeBaseEnPoint = stockvar("SALAIREBASEPOINT")
2
3if SalaireDeBaseEnPoint <> 0 then
4MontantSalaireDeBase = SalaireDeBaseEnPoint
5else
6MontantSalaireDeBase = Bul.SalairedeBase
7endif

1Begin 
2
3//SBE, appliquer salaire de base en point
4
5Coef = ToDouble(Emp.Coeff2)
6If ToDouble(Emp.Coeff3) <> 0 then Coef = ToDouble(Emp.Coeff3)
7
8If Coef <> 0 then
9	exec("lprime_D02")
10	bases = Coef
11	tauxs = CCN.PT1
12	methodecalcul = 3
13	ligneneutre=true
14	marqueinterne = "$CHN"
15	liblong = "Salaire de base en point"
16	call stockevar("SALAIREBASEPOINT", Bases)
17	Exec("generelprime")
18Endif
19
20End
21

1Begin
2
3SalaireDeBaseEnPoint = stockvar("SALAIREBASEPOINT")
4
5if SalaireDeBaseEnPoint <> 0 then
6MontantSalaireDeBase = SalaireDeBaseEnPoint
7else
8MontantSalaireDeBase = Bul.SalairedeBase
9endif
10
11rs = 0.0
12call CumulLignesEmploi (11 , "%anciennet%" , "D01%" , Bul.periode, Bul.date, "", "", rs, "", "", "")
13MontantAnciennete = rs	
14
15TauxHoraire = (MontantSalaireDeBase + MontantAnciennete) /bul.nbhmncontrat
16
17NbHresFerie = Saisie( "NbHrsFerie", 0 )
18
19if NbHresFerie <> 0 then
20    Exec("Lprime_C01")
21    methodeCalcul = 3
22    Bases = NbHresFerie
23    Tauxs = TauxHoraire * 1
24    Liblong = "Majoration heures férié"
25    Exec ("GenereLprime")
26endif
27
28
29End

Flavien, 

Toujours au même stade.