Bonjour
je cherche a mettre en place une fonction calcul suite à un accord d’entreprise concernant le maintien employeur en cas de maladie
l’accord permet à tout salarié de plus d’un an d’ancienneté de bénéficier d’un premier arrêt sans carence indemnisé à 100% les 30 premiers jours.
j’ai bien créé la question dans la fiche salarié et ait paramétré la fonction (comme suit)
je ne parviens pas à affiner celle ci pour que les salariés de moins d’un an ne bénéficient d’aucun complément en cas de maladie.
de plus je doit appliquer un maintien a 100% en cas d’AT (quelque soit l’ancienneté et la durée de l’arrêt)
Pouvez vous m’aider à corriger la fonction ?
merci pour votre aide
Plage = anneecivile
Select Case AffectationDADS
Case "08","04":
// Maladie Professionnelle Accident de Travail
Carence = 0
Nbjours1 = 9999
Pcent1 = 100
Case "09":
Carence = 3
If SAL.S41.G01.00.015.002 = "01" and emp.anciennete >= 36 then Carence = 0
// if premierarret = true then
// Maintien = true
// Carence = 0
// Nbjours1 = 30
// Pcent1 = 100
// Endif
//Conditions 1er arrêt au cours de l'année civile
If emp.anciennete >=12 then
madatedebut = date(1,1,bul.annee)
madatefin = dateadddays ( ABS.DtDeb,-1)
Nba = NombreAbsences( madatedebut, madatefin, "09")
If SAL.BOOL[1] = true then Nba = 1
If SAL.BOOL[2] = true then Nba = 0
if Nba = 0 then
Maintien = true
Carence = 0
Nbjours1 = 30
Pcent1 = 100
If emp.anciennete >= 12 then
Nbjours2 = 30
Pcent2 = 200 / 3
Endif
If emp.anciennete >= 72 then
Nbjours2 = 10
Pcent2 = 90
Nbjours3 = 40
Pcent3 = 200 / 3
Endif
If emp.anciennete >= 132 then
Nbjours2 = 20
Pcent2 = 90
Nbjours3 = 50
Pcent3 = 200 / 3
Endif
If emp.anciennete >= 192 then
Nbjours2 = 30
Pcent2 = 90
Nbjours3 = 60
Pcent3 = 200 / 3
Endif
If emp.anciennete >= 252 then
Nbjours1 = 40
Pcent1 = 90
Nbjours2 = 70
Pcent2 = 200/3
Endif
If emp.anciennete >= 312 then
Nbjours1 = 50
Pcent1 = 90
Nbjours2 = 80
Pcent2 = 200 / 3
Endif
If emp.anciennete >= 372 then
Nbjours1 = 60
Pcent1 = 90
Nbjours2 = 90
Pcent2 = 200 / 3
Endif
Endif
Endif
EndSelect
