CCN H007 - Création d'un compteur distinct pour les CP d'ancienneté

Le profil créé en question est le suivant : 

Begin

Jours = 0
CPANC = True

If Mid(Emp.Classification,1,7) = "H007.02" then
    CPANC = False
    If Emp.CcnBool[20] = True then CPANC = True
EndIf

If CPANC = True then
    If Bul.Mois = 5 Then
        If Bul.SortiCeMois = False Then
            if Emp.anciennete >= 60 then Jours = 2
            if Emp.anciennete >= 120 then Jours = 4
            if Emp.anciennete >= 180 then Jours = 6

            if stockvar("CPANCIENNETE") <> 0 then Jours = stockvar("CPANCIENNETE")
            if stockvar("CPANCIENNETE") = -1 then Jours = 0

            if Jours <>0 then
                Call AffecteCPSupJoursAcquis(Jours)

                Exec("Lprime_D02")
                LigneNeutre = True
                methodeCalcul = 99
                Bases = Jours
                Liblong = "Jours de congés ancienneté acquis"
                Exec ("GenereLprime")
                LigneNeutre = False
            EndIf    
        endif
    Endif
EndIf

End