Bonjour,

Depuis le passage de la Q02 à la Q04 mon paramétrage ci-dessous ne fonctionne plus.

une petite idée peut-être ?

begin

ForceTauxS = 0

Include("INIT-D01")

// JPB Le 2.12.2011 Ajout de la possibilité de modifier la base manuellement

If Ste.BaseCalculAnciennete = 1 Then

                BB = Bul.SalairedeBase

Else

                BB = Bul.SalminConvh * bul.nbhmncontrat

                if BB = 0 then BB = garminconv.an(Emp.classification) / 12

EndIf

tauxs = 0

if Emp.anciennete >= 36 then  tauxs = 3

if Emp.anciennete >= 72 then  tauxs = 6

if Emp.anciennete >= 108 then               tauxs = 9

if Emp.anciennete >= 144 then               tauxs = 12

if Emp.anciennete >= 180 then               tauxs = 15

dd = Saisie( "Base Anciennete" , 0 )

If dd <> 0 Then

                If dd > 0 Then

                               BB = dd

                Else

                               BB = 0.0

                EndIf

EndIf

If ForceTauxS <> 0 Then TauxS = ForceTauxS

If Tauxs > 0 and BB > 0 Then

                Bases = BB

                x = Bases * Tauxs / 100

                call stockevar("ANC", x )

                Exec ("GenereLprime")

endif

end