Créer une case à cocher dans une fonction calcul

Bonjour,

Je n’arrive pas à insérer dans ma fonction calcul, la case à cocher via le questionnaire salarié. Cela me mette une erreur.

Voici ma question :

Et voici ma fonction calcul :

Begin
    
Jours = 0
AfficherCommentaire = True

Include("INIT-CPANCIENNETE")

If Bul.SortiCeMois = False Then
    Mois = Emp.anciennete
    if Mois >= 120 then Jours = 1
    if Mois >= 380 then Jours = 2
    

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

    If AfficherCommentaire = True Then
        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

Merci d’avance pour votre aide,

Laure