Bonjour,
Sur un dossier sans CCN, je souhaite ne pas appliquer de carence pour les 2 premiers arrêt de l’année civile.
Carence de 3 jours à compter du 3ème arrêt de l’année civile.
Le nombre de jours maintenus doit, lui, reprendre les 12 derniers mois comme habituellement.
Je n’arrive pas à mettre cette carence en place, à moins d’avoir les deux arrêts sur le même mois, ça ne fonctionne pas.
Auriez vous des idées ?
Begin
If Emp.Anciennete >= 4 then
Maintien = True
Carence = 0
// MNP/ATT : si 3ème arrêt sur l'année civile (carence = 3j)
annee = Bul.Annee
MaDateDebut = Date(1,1,annee)
MaDateFin = DateAddDays(Abs.DtDeb, -1)
nb = DebutsArrets_Nombre(MaDateDebut,MaDateFin,"09+11")
nbArretsanscarence = 0
ii = 0
do
ii = ii + 1
if ii > nb then exit
//print ii + " : " + DebutsArrets_DtDeb(ii) + " -> " + NbjCalendairesMaintiens(DebutsArrets_DtDeb(ii),DebutsArrets_DtDeb(ii),"09+11",1)
If NbjCalendairesMaintiens(DebutsArrets_DtDeb(ii),DebutsArrets_DtDeb(ii),"09+11",1) = 1 Then nbArretsanscarence = nbArretsanscarence + 1
loop
If nbArretsanscarence >= 2 Then Carence = 3
Select case AffectationDADS
Case "04","08":
// AT & MP
Carence = 0
EndSelect
Endif
If Maintien = True then
Nbjours1 = 30
If Emp.Anciennete >= 72 then Nbjours1 = 40
If Emp.Anciennete >= 132 then Nbjours1 = 50
If Emp.Anciennete >= 192 then Nbjours1 = 60
If Emp.Anciennete >= 252 then Nbjours1 = 70
If Emp.Anciennete >= 312 then Nbjours1 = 80
If Emp.Anciennete >= 372 then Nbjours1 = 90
Nbjours2 = Nbjours1
Pcent1 = 100
Pcent2 = 66.66
TypeMaintien = Net
Plage = Mois12
Else
EndIf
Include("FIN-M-MALADIE")
EndMerci
