Bonjour à tous!
Je souhaite paramétrer deux variables pour que la colonne apparaissent chaque mois pour plus de facilité.
J’aimerais mettre en place la variable
F08 → Indemnités déplacement “Mois+Année” [non imposable]
F22 → Indemnités déplacement “Mois+Année” [imposable]
Que chaque mois la variable du mois se change automatiquement.
Est-ce possible de partir sur la base là :
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 objectif", 0) → Modifier ici aussi ?
If Mprime <> 0 Then
Exec("Lprime_D08") → Mettre ici la référence de la variable ? F08 - F22
methodeCalcul = 2
BaseS = Mprime
// Libellé dynamique avec le mois précédent
Liblong = "Prime d'objectifs de "+ + NomMois +" "+ AnneeMoisPrecedent → Ici Mettre le nom visible sur le bulletin?
// 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
Pouvez-vous m’aider svp ?
Merci !!