Libellé et mois de réalisation d'une prime

Bonjour,

Dans le paramétrage de la prime, vous pouvez renseigner la périodicité DSN “mois précédent”

Au niveau du libellé, c’est peut-être possible de personnaliser via un profil personnalisé.
Sinon il faut continuer de mettre un commentaire.

Bon courage.

Il faudrait créer un profil prime dans ce genre :

Begin

// Calcul du mois précédent par rapport à la période du bulletin
DateMoisPrecedent = DateAddMonths(Bul.Periode, -1)
NomMoisPrecedent = DateMonthName(DateMoisPrecedent)

Mprime = Saisie( "Prime", 0)
If Mprime <> 0 Then
    Exec("Lprime_D02")
    methodeCalcul = 2
    BaseS = Mprime
    Liblong = "Prime pour le mois de " + NomMoisPrecedent
    Exec("GenereLprime")
Endif

End

@GAUTHIER CLAPTIEN

J’ai tenté la formule j’ai un message d’erreur à chaque fois.

Je l’ai un peu modifié, mais je n’ai pas le résultat escompté : J’ai eu prime pour le mois de  0 en lieu et place de Prime pour le mois de mai 2025 sur le bulletin de juin 2025

Avez-vous une idée de comment procéder ?

Merci d’avance.

Begin

// Calcul du mois précédent par rapport à la période du bulletin

DateMoisPrecedent = DateAddMonths(Bul.Periode, -1)

NomMoisPrecedent=DateMonth (Bul.periode-1)

Mprime = Saisie( "Prime", 0)

If Mprime <> 0 Then

    Exec("Lprime_D02")

    methodeCalcul = 2

    BaseS = Mprime

    Liblong = "Prime pour le mois de " + NomMoisPrecedent

    Exec("GenereLprime")

Endif

End

Bonjour,

En effet, cela ne fonctionne pas.

Voici comment modifier le code :

Begin

// Obtenir la date du mois précédent
DateMoisPrecedent = DateAddMonths(Bul.Periode, -1)
NumMoisPrecedent = DateMonth(DateMoisPrecedent)
AnneeMoisPrecedent = DateYear(DateMoisPrecedent)

// Obtenir le nom du mois en clair
Select Case NumMoisPrecedent
    Case 1: NomMois = "janvier"
    Case 2: NomMois = "février"
    Case 3: NomMois = "mars"
    Case 4: NomMois = "avril"
    Case 5: NomMois = "mai"
    Case 6: NomMois = "juin"
    Case 7: NomMois = "juillet"
    Case 8: NomMois = "août"
    Case 9: NomMois = "septembre"
    Case 10: NomMois = "octobre"
    Case 11: NomMois = "novembre"
    Case 12: NomMois = "décembre"
EndSelect

// Montant de la prime
Mprime = Saisie( "Prime", 0)

If Mprime <> 0 Then
    Exec("Lprime_D02")
    methodeCalcul = 2
    BaseS = Mprime

    // Libellé dynamique avec le mois précédent
    Liblong = "Prime pour le mois de " + NomMois + AnneeMoisPrecedent

    // Bulle explicative avec la périodicité DSN (mois/année courants)
    Memo = "Prime correspondant à " + NomMois + " " + AnneeMoisPrecedent + ", déclarée sur la DSN de " + Bul.Mois + "/" + Bul.Annee
    Call Rem(Memo)

    Exec("GenereLprime")
Endif

End

Validé tout fonctionne parfaitement: