bonjour

 

l’ajustement du net ne se déclenche plus sur mes bulletins.

 

il doit bien y en avoir un pourtant cela ne fonctionne plus.

ma coche calcul automatique est ok sur ma fiche societe

 

 

 

j’ai une fonction calcul pour permettre un maintien plus favorable suite a un accord d’entreprise (qui fonctionne comme voulu)

 

Plage = anneecivile
Select Case AffectationDADS
        Case "08","04":
            //    Maladie Professionnelle     Accident de Travail
                Maintien = true
                Carence = 0
                Nbjours1 = 1059
                Pcent1 = 100
            If Maintien = True then
    TypeMaintien =  Brut

EndIf

        Case "09":
        Carence = 3
        If SAL.S41.G01.00.015.002 = "01" and emp.anciennete >= 36 then Carence = 0

    //    if CoronavirusCovid19 = true then
    //        Maintien = true
    //        Carence = 0
    //        Nbjours1 = 30
    //        Pcent1 = 100
    //    Endif

        //Conditions 1er arrêt au cours de l'année civile

    

            Maintien = False
                  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 = 90
                    Nbjours3 = 30    
                    Pcent3 = 200 / 3
                Endif
                If emp.anciennete >= 72 then
                    Nbjours2 = 40    
                    Pcent2 = 90
                    Nbjours3 = 40    
                    Pcent3 = 200 / 3
                Endif
                If emp.anciennete >= 132 then
                    Nbjours2 = 50    
                    Pcent2 = 90
                    Nbjours3 = 50    
                    Pcent3 = 200 / 3
                Endif
                If emp.anciennete >= 192 then
                    Nbjours2 = 60    
                    Pcent2 = 90
                    Nbjours3 = 60    
                    Pcent3 = 200 / 3
                Endif
                If emp.anciennete >= 252 then
                    Nbjours2 = 70
                    Pcent2 = 90
                    Nbjours3 = 70    
                    Pcent3 = 200/3
                    
                            Endif
                If emp.anciennete >= 312 then
                    Nbjours2 = 80
                    Pcent2 = 90
                    Nbjours3 = 80    
                    Pcent3 = 200 / 3
                    
                Endif

                    If emp.anciennete >= 372 then
                    Nbjours2 = 90
                    Pcent2 = 90
                    Nbjours3 = 90    
                    Pcent3 = 200 / 3
                    
                Endif

        

            Endif
        Endif

EndSelect

 

 

 

 

une idée de ce qui empêche son déclenchement  ?

 

merci 

 

belle soirée