Supprimer condition ancienneté maintien

Bonjour,

Il faudrait recopier l’intégralité de votre fonction calcul liée au maintien de salaire qui se nomme juste M-MALADIE.

La recopier entièrement et modifier la condition d’ancienneté présente dans celle-ci

Bonne journée,

bonjour merci pour votre retour, c’est ce que j’ai fait mais le maintien ne se déclenche pas, voici ma fonction calcul:

Begin

//    Absences maladie assimilées à travail effectif pour le calcul des CP : oui périodes indemnisées.
// JPB Le 29.11.2012  Integration de la date de debut de maintien en fonction de date entre et date anciennete

Maintien = False
Anciennete = CalculeAncienneteA( ABS.DtDeb)
TypesMaintiensRegroupes = "04,08,09,11"

Include("DOMONLY_INIT-M-MALADIE")

// si l'ancienneté est acquise au cours de l'arrêt le maintien doit debuter
Select case AffectationDADS
Case "09","11":
    //    MNP & ATT
    // If Emp.Anciennete >= 0 then Maintien = True
    // si l'ancienneté est acquise au cours de l'arrêt le maintien doit debuter (12 mois)
    Maintien = True
    DateDebut = Emp.DtDeb
    If EMP.DTDEBANC <> Date(0,0,0) Then DateDebut = EMP.DTDEBANC
    DateDebutMaintien = DateAddMonths ( DateDebut, 12 )
Case "08","04":
    //    MP & AT
    Maintien = True
EndSelect

If Maintien = True then
    Carence = 0
    //If Sal.S41.G01.00.015.002 = "01" then
    // BF31052017 - cadres et ingénieurs au sens conv et non au sens agirc
    If Eta.CcnBool[5] = True then
        // JF le 210921 maintien Salariés Ex CCN S011
        Select case AffectationDADS
        Case "08","04":
            Nbjours1 = 365
            Pcent1 = 100
            TypeMaintien = net
        Case "09","11":
            If Mid(Emp.Classification,1,7) = "B065.02" or Mid(Emp.Classification,1,11) = "B065.04.005" then
                //    Cadres
                Nbjours1 = 90
                Pcent1 = 100
                TypeMaintien = BrutLimite
            Else
                //    Non cadres
                If anciennete >= 0 then
                    Nbjours1 = 60
                    Pcent1 = 100
                    Nbjours2 = 30
                    Pcent2 = 80
                    TypeMaintien = BrutLimite
                Else
                    Nbjours1 = 30
                    Pcent1 = 100
                    Nbjours2 = 60
                    Pcent2 = 80
                    TypeMaintien = BrutLimite
                Endif
            Endif
        Endselect
    Else
        If Mid(Emp.Classification,1,7) = "B065.02" or Mid(Emp.Classification,1,11) = "B065.04.005" then
            //    Cadres
            Nbjours1 = 90
            Pcent1 = 100
            TypeMaintien = BrutLimite
        Else
            //    Non cadres
            If anciennete >= 0 then
                Nbjours1 = 60
                Pcent1 = 100
                Nbjours2 = 30
                Pcent2 = 80
                TypeMaintien = BrutLimite
            Else
                Nbjours1 = 30
                Pcent1 = 100
                Nbjours2 = 60
                Pcent2 = 80
                TypeMaintien = BrutLimite
            Endif
        Endif
    Endif

    Plage = Mois12
    If DateDebutMaintien < ABS.DtDeb then
        DroitCP1 = True
        DroitCP2 = True
        DroitCPCarence = True
    Endif

    // #7592
    // #12466
    If DateDebutMaintien <= Bul.Date Then
        TotalJrsAbsCal_M1 = NbJCalendairesAbsences(DateDebutMaintien,DateAddDays(Bul.Periode,-1),"+09")
        If TotalJrsAbsCal_M1 < (Nbjours1 + Nbjours2) Then
            // salarié indemnisé : pas de prorata acquisition CP
            NbjDroitCP = 999
        EndIf
    Else
        // Salarié non maintenu
    EndIf

Endif

Include("DOMONLY_FIN-M-MALADIE")

End

Bonjour,

J’essaierais de remplacer

DateDebutMaintien = DateAddMonths ( DateDebut, 12 )

par

DateDebutMaintien =  DateDebut

Bonne journée