Skip to main content

Bonjour,

Que doit-on mettre comme fonction de calcul pour que la prime se déclenche après toutes les autres primes ?

Merci

 

Bonjour 

Je pense qu’il faut la paramétrer en dehors du PCCN01

Si vous en avez plusieurs (PCCN02 - PCCN03)  , il faut la paramétrer en dernier ..

C’est une piste comme ça , je n’en suis pas certaine

 

Bien à vous


😥 ça ne fonctionne pas.

Merci quand même

 


pourriez vous montrer votre paramétrage? 

 


Voici ce que j’ai paramétrer en profils prime “PFA”

Begin

// HAN 12/07/18, correction prorata sorti + memo + sorti de la prime du PCCN + variable changer période de ref

ForceDateDeb = ""

Include("DOMONLY_INIT-13MOIS")

If Bul.Date >= Date(1,1,2017) then
    // Nouvelle prime
    // HAN 20/06/2017 mise en place prime 13è mois restauration de collectivités
    //AbsNonRemu = "01+02+03+04+05+06+07+08+09+10+11+13+14+17+18+19+20+21+22+23+24+25+32+33+38+44+45+52+54+62+63+64+65+69+70+71+72+80+81+86+87+88+89+98+99"            //motif d'absence non remunere
    //AbsNonRemu = "01+02+03+04+05+06+07+08+09+10+11+13+14+17+18+19+20+21+22+23+24+25+32+33+38+44+45+52+54+62+63+64+65+69+70+71+72+80+81+86+87+88+89"                //cti 0812020 : Sup Activité Partielle : 98 99
    //Ni 22122023 #28678 : Effectuer un prorata pour les absences non assimilés à du temps de travail effectif
    AbsNonRemu = "01+02+03+04+05+06+07+08+09+10+11+13+14+17+18+19+20+21+22+23+24+25+32+33+38+44+45+52+54+62+63+64+65+69+70+71+72+80+81+86+87+88+89"
    DateDeb = Date(1,1,Bul.Annee)
    Date12MoisAnc = Date(1,DateMonth(Emp.DtDebAnc),DateYear(DateAddYears(Emp.DtDebAnc,1)))
    If DateDeb < Date12MoisAnc Then DateDeb = Date12MoisAnc
    If ForceDateDeb <> "" Then DateDeb = ForceDateDeb
    DateFin = Bul.PeriodeDernierJour
    NBJrs = DiffDays(DateDeb,DateFin)
    Lib = "Prime 13è mois"
    Base13 = 0
    Memo = "Période du "
    Memo1 = ""
    Memo2 = ""
    
            // Paiement en juin et décembre
                    If Bul.SortiCeMois = False Then
                        If Bul.Mois = 6 or Bul.Mois = 12 Then
                            If Bul.Mois = 12 Then
                                If Emp.Anciennete >= 18 Then
                                    DateDeb = Date(1,7,Bul.Annee)
                                    If ForceDateDeb <> "" Then DateDeb = ForceDateDeb
                                    NBJrs = DiffDays(DateDeb,DateFin)
                                EndIf
                            EndIf
                            Memo2 = CumulBulletins(DateDeb,DateFin,100) + " / 12 * (" + NBJrs + " - " + NBJCalendairesAbsences(DateDeb,DateFin,AbsNonRemu) + ") / " + NBJrs
                            Base13 = CumulBulletins(DateDeb,DateFin,100) / 12 * (NBJrs - NBJCalendairesAbsences(DateDeb,DateFin,AbsNonRemu)) / NBJrs
                        EndIf
                    Else
                        If Bul.Mois > 6 Then
                            If Emp.Anciennete >= 18 Then
                                DateDeb = Date(1,7,Bul.Annee)
                                If ForceDateDeb <> "" Then DateDeb = ForceDateDeb
                                NBJrs = DiffDays(DateDeb,DateFin)
                            EndIf
                        EndIf
                        //Base13 = CumulBulletins(DateDeb,DateFin,0) / 12 * (NBJrs - NBJCalendairesAbsences(DateDeb,DateFin,AbsNonRemu)) / (NBJrs + Bul.NBJMois - DiffDays(Bul.PeriodePremierJour,DateFin))
                        B = CumulBulletins(DateDeb,DateFin,0) - Bul.PerteEntreeSortie
                        Memo2 = B + " / 12 * (" + NBJrs + " - " + NBJCalendairesAbsences(DateDeb,DateFin,AbsNonRemu) + ") / " + NBJrs
                        Base13 = B / 12 * (NBJrs - NBJCalendairesAbsences(DateDeb,DateFin,AbsNonRemu)) / NBJrs
                    EndIf
                EndSelect
                Memo = Memo + DateToString(DateDeb,"dd/MM/yyyy") + " au " + DateToString(DateFin,"dd/MM/yyyy") + " :"
                Memo1 = "Cumul des salaires de base / 12 * (Nombre de jours sur la période - Absences sur la période) / Nombre de jours sur la période : "
                
                
            EndIf
            Exec("Lprime_D05")
            If Memo2 <> "" Then
                Call Rem(Memo)
                Call Rem(Memo1)
                Call Rem(Memo2)
            EndIf
            BaseS = Base13
            Liblong = Lib
            MethodeCalcul = 2
            If Base13 <> 0 Then Exec("GenereLprime")

Include("DOMONLY_FIN-13MOIS")
End
 


Pourquoi souhaitez vous que votre 13eme mois se calcule après toutes les autres primes? 

Quel est la base du calcul de 13eme mois dans votre CCN? 


C’est une prime spécifique qui prend en compte toutes les primes 


Chez nous voici le paramétrage. J’ai créé la PR10, que j’ai intégré à la PCCN01 et mis en dernier. Ca permet de faire que les autres primes devant soient intégrées dedans

 

 


Bonjour,

Vous avez les profils de prime PCCN01/02/03/04/05 ainsi que la PCCNZZ.

je vous invite à utiliser cette dernière pour que votre prime se calcule après le reste des rubriques.

Cordialement


Super merci beaucoup


Commenter