CP Ancienneté supplémentaire

Bonjour,

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

Pourquoi voulez-vous l’éviter ?

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