Fonctions calcul virements hors bulletins

Bonjour,

Pouvez vous m’aider svp à savoir ce qui ne va pas dans cette fonction calcul? 

Begin
    if paramétrage then
        par.nbligneslire = 1
        par.TypeFichier = 1
        par.sepdec = ","
        par.sepchamp = ";"
    else
        Matricule = valeurstring(1)
        if StrLen(Matricule) > 0 then
            if IdentifieSalarie(Matricule) = true then
                Libelle = ValeurString(2)
                Montant = ValeurDouble(3)
                Date = ValeurDate(4)

                if GenereVirementHorsBulletin(Libelle, Montant, Date) = false then
                    print "Echec de l'import pour le matricule <" + Matricule + ">"
                endif
            else
                print "Salarié pour le matricule <" + Matricule + "> non identifié."
            endif
        endif
    endif
end

j’ai cette erreur: 

Merci d’avance pour votre aide.

Cdlt