Bonjour

je souhaite créer une fonction calcul pour mettre en place des congés ancienneté sur un dossier droit du travail. 

J’ai donc fait :

fonction calcul : CP-ANCIENNETE

Begin
    
Jours = 0
If Bul.SortiCeMois = False Then
If Bul.Mois = "04" then

    If Emp.anciennete >= 12 then Jours = 1
    If Emp.anciennete >= 36 then Jours = 2
    

    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
Endif
End
 

mais cela ne génère pas de cp dans mes compteurs 

Merci pour votre aide