Skip to main content

Bonjour

J’aimerai exclure ma prime d’ancienneté dans le calcul du 13ème mois.

Prendre uniquement le salaire de base *12.

 

Merci pour votre aide

 

Bonjour,

Vous pouvez personnaliser le détail de l’onglet “calcul” de votre libellé D01, via le Menu “Paramétrage > Primes > Libellés”.

Votre objectif est que la base soit “Bul.SalairedeBase”.

 

Si vous avez besoin d’assistance, vous pouvez nous préciser la convention collective applicable et nous montrer le calcul du libellé dans votre dossier.


Il s’agit de la convention collective de l’immobilier.

Ci dessus le paramétrage de la D01.

Begin

 

Include("INIT-D01")

 

If Bul.Supplementaire = True Then Return                        //cti 081220

if emp.ccnboolt9] = true then return

 

If BUL.S41.G01.00.013 <> 10 Then

                // pas en forfait jour et Absence complete pas de prime d'anciennete

                //If BUL.NBHM = 0 and bul.Brutprogressif = 0 Then Return

                // ne convient pas**BF29062015

                If BUL.NBHM = 0 and Bul.AbsenceComplete = true Then Return

Endif

 

Select case mid(emp.classification,1,4)

Case "I001":

 

                //            *** Attention MàJ aussi la FC Salminconv en plus de la D01_1 ***

                Include("D01_1")

 

                If ETA.CCNBOOLC1] = false then

                               If Bul.NbhmnContrat <> 0 then

                                               If BUL.NBHMNCONTRAT < 151.67 then

                                                               Bases = Bases * BUL.NBHMNCONTRAT / 151.67

                                               Endif

                               Endif

                Endif

               

                Tx = 0

                //            Anciennete au 1er janvier

                //cti 300120 : ajout option pour calcul depuis 2008 : Eta.CcnBool10]

                Anc01 = CalculeAncienneteA ( date ( 1,1,Bul.Annee) )

                DateDeb = Date(1,1,2009)

                If Eta.CcnBool10] = True Then DateDeb = Date(1,1,2008)

                If Eta.CcnBool6] = True Or Eta.CcnBool>10] = True Then

                               If Emp.DtDebAnc < DateDeb Then

                                               // NbM1 = DiffMonths (Emp.DtDebAnc,DateDeb) / 36

                                               // DF le 10/11/2015 on enlève un mois au calcul car le diffMonths donne un écart entre les mois alosr que l'ancienneté est en général appliquer le mois qui suit

                                               NbM1 = (DiffMonths (Emp.DtDebAnc,DateDeb)-1) / 36

                                               NbM1 = round(NbM1 -0.4999999,0) * 36

                                               Anc01 = (Anc01 - NbM1)

                                               //Call Rem("Calcul de l'ancienneté depuis " + DateYear(DateDeb) )

                                              

                                               // ACA 12/03/20 : Si l'ancienneté à la date de debut de calcul de la prime est un multiple de 36 (Evolution tous les 3 ans), la prime est versée dès la date du calcul

                                               If DateMonth(Emp.DtDebAnc) <> 01 Then

                                                               // Si arrivée en cours d'année

                                                               DtDebAnc = Date(1,1,DateYear(Emp.DtDebAnc) + 1)

                                                               AncAvtDtDeb = DiffMonths (DtDebAnc ,DateDeb)

                                               Else

                                                               DtDebAnc = Emp.DtDebAnc

                                                               AncAvtDtDeb = DiffMonths (DtDebAnc ,DateDeb)-1

                                               EndIf

                                              

                                               AncAvtDtDeb =  AncAvtDtDeb / 36

                                               If AncAvtDtDeb = Round(AncAvtDtDeb,0) then Tx = 1

                               EndIf

                EndIf

 

                if Anc01 >= 36 then

                               Tauxs = Tx + 1

                               X = 72

                               do

                                               if Anc01 < X then exit

                                               Tauxs = Tauxs + 1

                                               X = X + 36

                               loop

                endif

               

                if Tauxs > 0 then

                               Methodecalcul = 3

                               x = Bases * tauxs

                               call stockevar("PANC", x )

                               Marque1 = "PANC"

                               Exec ("GenereLprime")

                endif

Endselect

End

 

Merci pour votre aide

 


Pardon, votre besoin concernait le détail du 13ème Mois, donc le libellé D05, et non pas la “D01 - prime d’ancienneté”.

 

lci, il s’agira de modifier le paramétrage du “Profil de primes” standard “13MOIS” lié à la CCN I001.

Sur les nombreuses lignes concernées, vous pouvez enlever “+ PrANC” (notamment en lignes 53 et 127).

 

 

 

 


Merci beaucoup pour votre retour


Commenter