Skip to main content
Réponse

13ieme mois avec salaire de base de novembre


Forum|alt.badge.img+1

Bonjour

je dois paramétrer un 13ieme mois payé en décembre avec comme salaire de base le mois de novembre 

sauriez vous comment modifier ma fonction dans ce sens ?


        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")
 

En vous en remerciant par avance

Meilleure réponse par Philippe PLANCQ

 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

5 commentaires

Forum|alt.badge.img+3
  • Ambassadeur
  • Réponse
  • November 21, 2024

 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

Forum|alt.badge.img+1

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


Forum|alt.badge.img+3

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 


Forum|alt.badge.img+1

Bonjour Monsieur 

un tout grand merci !!!!


Forum|alt.badge.img

Bonjour j’aimerai avoir un complément s’il vous plait car j’aimerai n’avoir que la ligne salaire de base de nov sans les heures sup structurelles  comment procéder ? meric