Il conviendra d’adapter les dates (j’ai mis avril). reste le prorata à faire mais je n’avais pas vos variables de dates.

Begin


Call CumP_FixePeriode ( date(1,4,bul.annee), date(1,4,bul.annee) )

 Montant = CumP_SalaireDeBase()
        x = Saisie("13Mois",0)

 if x > 0 Then Montant = x
        if x < 0 Then Montant = 0 
        if Montant <> 0 then
            Exec("Lprime_D05")
            Bases = Montant
            methodeCalcul = 2
            Exec ("GenereLprime")
endif
End

Monsieur

merci beaucoup pour votre retour.

je me permet de vous interroger une nouvelle fois, j’ai juste un doute sur l’endroit ou je dois positionner vos indications :

If Bul.SortiCeMois = False Then
    P = false
    if bul.mois = 12 then
        datedeb = Date ( 1,1,bul.annee)
        datefin = Date (31,12,bul.annee)
        P = true
    endif
    if P = True then
        Montant = bul.salairedebase 
        Nbjt = DiffDays (datedeb, datefin)
        Nbj = DiffDays (DateDebutEmploi, datefin)
        if nbj < nbjt then Montant = Montant / nbjt * nbj
        x = Saisie("13Mois",0)
        if x > 0 Then Montant = x
        if x < 0 Then Montant = 0 
        if Montant <> 0 then
            Exec("Lprime_D05")
            Bases = Montant
            methodeCalcul = 2
            Exec ("GenereLprime")
        endif
    endif
 

encore un grand merci

ces 2 lignes

Call CumP_FixePeriode ( date(1,4,bul.annee), date(1,4,bul.annee) )

 Montant = CumP_SalaireDeBase()

à la place de

Montant = bul.salairedebase 

Bonjour Monsieur 

un tout grand merci !!!!