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
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
Vous avez déjà un compte d'utilisateur ? Connexion
Enter your E-mail address. We'll send you an e-mail with instructions to reset your password.