Skip to main content
Réponse

CP Ancienneté supplémentaire


Bonjour,

J’ai une société avec un accord d’entreprise et bénéficiant de congé supplémentaire, y a til une autre option que de créer une fonction calcul pour des congés supplémentaires ?

 

Exemple dans l'accord d'entreprise :

Après 15 ans d'ancienneté : 1 jour de congé supplémentaire 

20 ans : 2 jours

25 ans : 3 jours

30 ans : 4 jours

Merci pour votre retour,  

Cordialement 

Meilleure réponse par Yenaa

Bonjour,

le seul moyen est de passer par une fonction de calcul.

Voici la fonction de calcul à copier:

Begin
    
Jours = 0
If Bul.SortiCeMois = False Then
    if Emp.anciennete >= 180 then Jours = 1
    if Emp.anciennete > 240 then Jours = 2
    if Emp.anciennete > 300 then Jours = 3
    if Emp.anciennete > 360 then Jours = 4

    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
    endif
EndIf


End

 

La fonction de calcul doit avoir comme code: CP-ANCIENNETE

Merci

10 commentaires

Forum|alt.badge.img

Bonjour,

 

Pour moi, non, il est nécessaire de passer par une fonction calcul.

Pourquoi voulez-vous l’éviter ?


Yenaa
Formateur certifié
Forum|alt.badge.img+3
  • Formateur certifié
  • Réponse
  • June 20, 2024

Bonjour,

le seul moyen est de passer par une fonction de calcul.

Voici la fonction de calcul à copier:

Begin
    
Jours = 0
If Bul.SortiCeMois = False Then
    if Emp.anciennete >= 180 then Jours = 1
    if Emp.anciennete > 240 then Jours = 2
    if Emp.anciennete > 300 then Jours = 3
    if Emp.anciennete > 360 then Jours = 4

    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
    endif
EndIf


End

 

La fonction de calcul doit avoir comme code: CP-ANCIENNETE

Merci


Bonjour

je suis allée dans la fonction calcul de mon dossierafin de parametrer aussi des congés ancienneté acquis dans le cadre d un accord d’entreprise.

que faut il paramétrer d’autres afin que ces congés puissent se rajouter sur les bulletins et compteur ?

merci


Forum|alt.badge.img+1
  • Expert
  • October 24, 2024

Bonjour,

@Yenaa , en passant par une fonction de calcul, cela permet de prendre en compte les CP supplémentaires dans la provision CP ? Et il s’ajoute au 31/05 ? 

Avez-vous suivi des formations par silae pour créer des fonctions calculs? J’aimerai développer cette compétence. 

Merci


  • Connaisseur
  • November 21, 2024

Bonjour

je suis allée dans la fonction calcul de mon dossierafin de parametrer aussi des congés ancienneté acquis dans le cadre d un accord d’entreprise.

que faut il paramétrer d’autres afin que ces congés puissent se rajouter sur les bulletins et compteur ?

merci

Bonjour,

Avez vous réussi ?

Merci par avance de votre retour


Bonjour 

J’ai le même sujet pour une 6e semaine de CP à partir de 5ans d’ancienneté. J’ai appliqué la formule décrite ci-dessous (en reprenant celle mise à dispo plus haut). Mais rien ne se passe, y a t il un autre paramétrage à faire ?

 

Begin
    
Jours = 0
If Bul.SortiCeMois = False Then
    if Emp.anciennete >= 60 then Jours = 5
    

    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
    endif
EndIf


End

 


Yenaa
Formateur certifié
Forum|alt.badge.img+3
  • Formateur certifié
  • June 1, 2025

Bonjour,

@Yenaa , en passant par une fonction de calcul, cela permet de prendre en compte les CP supplémentaires dans la provision CP ? Et il s’ajoute au 31/05 ? 

Avez-vous suivi des formations par silae pour créer des fonctions calculs? J’aimerai développer cette compétence. 

Merci

Bonjour Lisa,

 

Oui il s’agit la formation PAAV. Vous me vous vous inscrire à mes sessions en passant par l’Acamédie ou en contactant directement.

Merci


Bonjour 

J’ai le même sujet pour une 6e semaine de CP à partir de 5ans d’ancienneté. J’ai appliqué la formule décrite ci-dessous (en reprenant celle mise à dispo plus haut). Mais rien ne se passe, y a t il un autre paramétrage à faire ?

 

Begin
    
Jours = 0
If Bul.SortiCeMois = False Then
    if Emp.anciennete >= 60 then Jours = 5
    

    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
    endif
EndIf


End

 

@Yenaa 


Bonjour,

 

Help sur le sujet !


Forum|alt.badge.img+1

Bonjour,

J’avais essayé avec la fonction calcul CP-ANCIENNETE mais rien ne se déclenche sur le bs (commentaire, alimentation compteur ni stockvar). Au final j’ai contourné via un profil prime comme ceci (à adapter ensuite selon vos cas) pour déclencher à 5-10-15 ans sur le bs qui a 60 mois d’ancienneté etc, ça alimente le compteur CP N, et possibilité de forcer via les éléments variables et petit message qui se déclenche sur le BS :

 

Code du PROFIL PRIME (ou 03,04 ou 05 selon ce qui est disponible sur votre dossier) : PCCN02

Begin


If Bul.SortiCeMois = False Then
    if Emp.anciennete = 60 then Jours = 1
    if Emp.anciennete = 120 then Jours = 2
    if Emp.anciennete = 180 then Jours = 3

X = Jours
Y = saisie("CP Ancienneté",0)

If Y <> 0 then X = Y
If Y = -1 then X = 0
Print "Acquisition CPANC = " + X

    If X <> 0 then
        Call AjouteCpAcquisAnt(X)
        Exec("Lprime_D02")
            LigneNeutre = True
           methodeCalcul = 99
            Bases = Jours
            Liblong = "Congés supplémentaire ancienneté"
        Exec ("GenereLprime")
            LigneNeutre = False
    Endif

Endif
End