Bonjour,
Je recherche une solution pour créer une prime de vacances versée en Aout au prorata de présence entre le 01/09/N-1 et le 31/08/N.
J’ai créé cette fonction calcul mais cela ne fonctionne pas
Qui peut m’aider ?
Cerise sur le gateau : comment permettre d’avoir les provisions comptables - et extournes - de cet prime ?
****
begin
If Emp.DtDebContrat <> Date(0,0,0) then DateDebutEmploi = Emp.DtDebContrat Else DateDebutEmploi = Emp.DtDeb
If Bul.SortiCeMois = False Then
P = false
if bul.mois = 08 then
datedeb = Date (01,09,bul.annee -1)
datefin = Date (31,08,bul.annee)
P = true
endif
if P = True then
// Montant = bul.salairedebase / 2
// Montant = "VarAnnuelle"
Montant = 999999999
Nbjt = DiffDays (datedeb, datefin)
Nbj = DiffDays (DateDebutEmploi, datefin)
if nbj < nbjt then Montant = Montant / nbjt * nbj
if Montant <> 0 then
Exec("Lprime_D05")
Bases = Montant
methodeCalcul = 2
Exec ("GenereLprime")
endif
endif
else
// sortie du salarié
P = false
if bul.mois = 08 then
datedeb = Date (01,09,bul.annee -1)
datefin = Date (31,08,bul.annee)
P = true
endif
if P = True then
// Montant = bul.salairedebase / 2
// Montant = "VarAnnuelle"
Montant = 452
Nbjt = DiffDays (datedeb, datefin)
if DateDebutEmploi > datedeb then datedeb = DateDebutEmploi
Nbj = DiffDays (datedeb, emp.dtfin)
if nbj < nbjt then Montant = Montant / nbjt * nbj
x = Saisie("PrimeVac",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
endif
end
****


