OpenFisca-France 161.0.3__py3-none-any.whl → 169.14.7__py3-none-any.whl

{OpenFisca_France-161.0.3.dist-info → OpenFisca_France-169.14.7.dist-info}/WHEEL

@@ -1,5 +1,5 @@
 Wheel-Version: 1.0
-Generator: bdist_wheel (0.43.0)
+Generator: setuptools (75.8.0)
 Root-Is-Purelib: true
 Tag: py3-none-any
 

{OpenFisca_France-161.0.3.dist-info → OpenFisca_France-169.14.7.dist-info}/top_level.txt

@@ -1,2 +1 @@
 openfisca_france
-tests

openfisca_france/assets/taxe_habitation/source/do_REI_2017-2018_to_csv.do

@@ -0,0 +1,175 @@
+/***************************************************************************************/
+/*** Mise en forme des fichiers REI 2017 à 2022 pour OpenFisca
+     Nécessite Stata version 14                        *********************************/
+/***************************************************************************************/
+
+clear
+set more off
+cap log close
+
+**** Chemin des REI en local. Les fichiers REI en .xlsx sont accessibles en ligne sur https://www.data.gouv.fr/fr/datasets/impots-locaux-fichier-de-recensement-des-elements-dimposition-a-la-fiscalite-directe-locale-rei-3/
+global input_2017 = ""
+global input_2018 = ""
+global input_2019 = ""
+global input_2020 = ""
+global input_2021 = ""
+global input_2022 = ""
+
+**** Chemin d'export du fichier csv
+global export_2017 = ""
+global export_2018 = ""
+global export_2019 = ""
+global export_2020 = ""
+global export_2021 = ""
+global export_2022 = ""
+
+*2017-2018
+forval i=2017/2018 {
+	set excelxlsxlargefile on
+	import excel using "${input_`i'}.xlsx", firstrow clear
+	keep DEP COM SIREPCI Q03 LIBCOM H12 H32 J21 J23 J31* J33* J41* J43* J51* J53* J61* J63*
+	compress
+
+	foreach var of varlist H* J* {
+		replace `var' = 0 if `var'==.
+	}
+	gen code_insee_commune = trim(DEP) + trim(COM)
+
+	gen taux_com   = H12/100
+	gen taux_epci  = H32/100
+
+	gen valeur_locative_moyenne_com  = J21
+	gen valeur_locative_moyenne_epci = J23
+
+	* Pour certaines intercom, il n'y a pas de quotité ajustée mais seulement une quotité simple. Surement due aux interco créées après 2010 (qui est l'année du transfert de la TH départementale justifiant cet ajustement). Donc, si la valeur ajustée est nulle, on prend la quotité simple
+	gen abt_general_base_com       = cond(J51A~=0,J51A,J51)
+	gen abt_general_base_epci      = cond(J53A~=0,J53A,J53)
+	gen abt_pac_1_2_com            = cond(J31A~=0,J31A,J31)
+	gen abt_pac_1_2_epci           = cond(J33A~=0,J33A,J33)
+	gen abt_pac_3pl_com            = cond(J41A~=0,J41A,J41)
+	gen abt_pac_3pl_epci           = cond(J43A~=0,J43A,J43)
+	gen abt_condition_modeste_com  = cond(J61A~=0,J61A,J61)
+	gen abt_condition_modeste_epci = cond(J63A~=0,J63A,J63)
+
+	keep code_insee_commune taux_* valeur_locative_moyenne_* abt_*
+	foreach var of varlist  taux_* valeur_locative_moyenne_* abt_* {
+		replace `var' = 0 if `var'==.
+	}
+
+	sort     code_insee_commune
+	outsheet code_insee_commune taux_* valeur_locative_moyenne_* abt_* using "${export_`i'}.csv", comma replace
+}
+*2019-2020
+forval i=2019/2020 {
+	set excelxlsxlargefile on
+	import excel using "${input_`i'}.xlsx", firstrow clear
+	keep DEPARTEMENT COMMUNE NUMEROSIRENDELEPCI THCOMMUNETAUXNET THINTERCOMMUNALITETAUXAPP THVLMOYENNEUTILISEEPOUR IJ  THQUOTITEDESABATTEMENTSAVA THQUOTITEDESABATTEMENTSAJ IL THQUOTITEDESABATTEMENTSAJU IO IP IQ IR IS IT IU IV IW IX IY IZ
+	
+	compress
+
+	foreach var of varlist THCOMMUNETAUXNET THINTERCOMMUNALITETAUXAPP THQUOTITEDESABATTEMENTSAVA THQUOTITEDESABATTEMENTSAJ IL THQUOTITEDESABATTEMENTSAJU IO IP IQ IR IS IT IU IV IW IX IY IZ {
+		replace `var' = 0 if `var'==.
+	}
+	gen code_insee_commune = trim(DEPARTEMENT) + trim(COMMUNE)
+
+	gen taux_com   = THCOMMUNETAUXNET/100
+	gen taux_epci  = THINTERCOMMUNALITETAUXAPP/100
+
+	
+	gen valeur_locative_moyenne_com  = THVLMOYENNEUTILISEEPOUR
+	gen valeur_locative_moyenne_epci = IJ
+	
+	
+	* Pour certaines intercom, il n'y a pas de quotité ajustée mais seulement une quotité simple. Surement due aux interco créées après 2010 (qui est l'année du transfert de la TH départementale justifiant cet ajustement). Donc, si la valeur ajustée est nulle, on prend la quotité simple
+	gen abt_general_base_com       = cond(IU~=0,IU,IS)
+	gen abt_general_base_epci      = cond(IV~=0,IV,IT)
+	gen abt_pac_1_2_com            = cond(THQUOTITEDESABATTEMENTSAJ~=0,THQUOTITEDESABATTEMENTSAJ,THQUOTITEDESABATTEMENTSAVA)
+	gen abt_pac_1_2_epci           = cond(THQUOTITEDESABATTEMENTSAJU~=0,THQUOTITEDESABATTEMENTSAJU,IL)
+	gen abt_pac_3pl_com            = cond(IQ~=0,IQ,IO)
+	gen abt_pac_3pl_epci           = cond(IR~=0,IR,IP)
+	gen abt_condition_modeste_com  = cond(IY~=0,IY,IW)
+	gen abt_condition_modeste_epci = cond(IZ~=0,IZ,IX)
+
+	keep code_insee_commune taux_* valeur_locative_moyenne_* abt_*
+	foreach var of varlist  taux_* valeur_locative_moyenne_* abt_* {
+		replace `var' = 0 if `var'==.
+	}
+
+	sort     code_insee_commune
+	outsheet code_insee_commune taux_* valeur_locative_moyenne_* abt_* using "${export_`i'}.csv", comma replace
+}
+
+*2021
+set excelxlsxlargefile on
+import excel using "${input_2021}.xlsx", firstrow clear
+keep DEPARTEMENT COMMUNE NUMEROSIRENDELEPCI THCOMMUNETAUXNET THINTERCOMMUNALITETAUXAPP THVLMOYENNEUTILISEEPOUR HV  THQUOTITEDESABATTEMENTSAVA THQUOTITEDESABATTEMENTSAJ IL THQUOTITEDESABATTEMENTSAJU IB IC ID IE IF IG IH II IJ IK IL IM
+
+compress
+
+foreach var of varlist THCOMMUNETAUXNET THINTERCOMMUNALITETAUXAPP THVLMOYENNEUTILISEEPOUR HV THQUOTITEDESABATTEMENTSAVA THQUOTITEDESABATTEMENTSAJ IL THQUOTITEDESABATTEMENTSAJU IB IC ID IE IF IG IH II IJ IK IL IM {
+	replace `var' = 0 if `var'==.
+}
+gen code_insee_commune = trim(DEPARTEMENT) + trim(COMMUNE)
+
+gen taux_com   = THCOMMUNETAUXNET/100
+gen taux_epci  = THINTERCOMMUNALITETAUXAPP/100
+
+
+gen valeur_locative_moyenne_com  = THVLMOYENNEUTILISEEPOUR
+gen valeur_locative_moyenne_epci = HV
+
+* Pour certaines intercom, il n'y a pas de quotité ajustée mais seulement une quotité simple. Surement due aux interco créées après 2010 (qui est l'année du transfert de la TH départementale justifiant cet ajustement). Donc, si la valeur ajustée est nulle, on prend la quotité simple
+gen abt_general_base_com       = cond(IH~=0,IH,IF)
+gen abt_general_base_epci      = cond(II~=0,II,IG)
+gen abt_pac_1_2_com            = cond(THQUOTITEDESABATTEMENTSAJ~=0,THQUOTITEDESABATTEMENTSAJ,THQUOTITEDESABATTEMENTSAVA)
+gen abt_pac_1_2_epci           = cond(THQUOTITEDESABATTEMENTSAJU~=0,THQUOTITEDESABATTEMENTSAJU,IL)
+gen abt_pac_3pl_com            = cond(ID~=0,ID,IB)
+gen abt_pac_3pl_epci           = cond(IE~=0,IE,IC)
+gen abt_condition_modeste_com  = cond(IL~=0,IL,IJ)
+gen abt_condition_modeste_epci = cond(IM~=0,IM,IK)
+
+keep code_insee_commune taux_* valeur_locative_moyenne_* abt_*
+foreach var of varlist  taux_* valeur_locative_moyenne_* abt_* {
+	replace `var' = 0 if `var'==.
+}
+
+sort     code_insee_commune
+outsheet code_insee_commune taux_* valeur_locative_moyenne_* abt_* using "${export_2021}.csv", comma replace
+
+
+*2022
+set excelxlsxlargefile on
+import excel using "${input_2022}.xlsx", firstrow clear
+keep DEPARTEMENT COMMUNE NUMEROSIRENDELEPCI THCOMMUNETAUXNET THINTERCOMMUNALITETAUXAPP THVLMOYENNEUTILISEEPOUR IG  THQUOTITEDESABATTEMENTSAVA THQUOTITEDESABATTEMENTSAJ II THQUOTITEDESABATTEMENTSAJU IL IM IN IO IP IQ IR IS IT IU IV IW
+
+compress
+
+foreach var of varlist THCOMMUNETAUXNET THINTERCOMMUNALITETAUXAPP THVLMOYENNEUTILISEEPOUR IG THQUOTITEDESABATTEMENTSAVA THQUOTITEDESABATTEMENTSAJ II THQUOTITEDESABATTEMENTSAJU IL IM IN IO IP IQ IR IS IT IU IV IW {
+	replace `var' = 0 if `var'==.
+}
+gen code_insee_commune = trim(DEPARTEMENT) + trim(COMMUNE)
+
+gen taux_com   = THCOMMUNETAUXNET/100
+gen taux_epci  = THINTERCOMMUNALITETAUXAPP/100
+
+
+gen valeur_locative_moyenne_com  = THVLMOYENNEUTILISEEPOUR
+gen valeur_locative_moyenne_epci = IG
+
+* Pour certaines intercom, il n'y a pas de quotité ajustée mais seulement une quotité simple. Surement due aux interco créées après 2010 (qui est l'année du transfert de la TH départementale justifiant cet ajustement). Donc, si la valeur ajustée est nulle, on prend la quotité simple
+gen abt_general_base_com       = cond(IR~=0,IR,IP)
+gen abt_general_base_epci      = cond(IS~=0,IS,IQ)
+gen abt_pac_1_2_com            = cond(THQUOTITEDESABATTEMENTSAJ~=0,THQUOTITEDESABATTEMENTSAJ,THQUOTITEDESABATTEMENTSAVA)
+gen abt_pac_1_2_epci           = cond(THQUOTITEDESABATTEMENTSAJU~=0,THQUOTITEDESABATTEMENTSAJU,II)
+gen abt_pac_3pl_com            = cond(IN~=0,IN,IL)
+gen abt_pac_3pl_epci           = cond(IO~=0,IO,IM)
+gen abt_condition_modeste_com  = cond(IV~=0,IV,IT)
+gen abt_condition_modeste_epci = cond(IW~=0,IW,IU)
+
+keep code_insee_commune taux_* valeur_locative_moyenne_* abt_*
+foreach var of varlist  taux_* valeur_locative_moyenne_* abt_* {
+	replace `var' = 0 if `var'==.
+}
+
+sort     code_insee_commune
+outsheet code_insee_commune taux_* valeur_locative_moyenne_* abt_* using "${export_2022}.csv", comma replace

openfisca_france/model/caracteristiques_socio_demographiques/logement.py

@@ -290,3 +290,12 @@ class residence(Variable):
                 ],
             default=TypesLieuResidence.metropole
             )
+
+
+class departement_experimentation_rsa(Variable):
+    value_type = bool
+    entity = Famille
+    default_value = False
+    label = 'Résidence dans un département expérimentant le préremplissage du RSA'
+    definition_period = MONTH
+    set_input = set_input_dispatch_by_period

openfisca_france/model/prelevements_obligatoires/impot_revenu/charges_deductibles.py

@@ -578,12 +578,12 @@ class pensions_alimentaires_deduites(Variable):
         # foyer, la déduction est limitée à 2*max
         # S'il habite chez ses parents, max 3359, sinon 5698
         return (
-            min_(f6gi * (1 + taux_jgt_2006), max1)
-            + min_(f6gj * (1 + taux_jgt_2006), max1)
+            min_(f6gi * taux_jgt_2006, max1)
+            + min_(f6gj * taux_jgt_2006, max1)
             + min_(f6el, max1)
             + min_(f6em, max1)
-            + f6gp
-            * (1 + taux_jgt_2006) + f6gu
+            + f6gp * taux_jgt_2006
+            + f6gu
             )
 
 

openfisca_france/model/prelevements_obligatoires/impot_revenu/credits_impot.py

@@ -575,209 +575,153 @@ class aidmob(Variable):
 class aidper(Variable):
     value_type = float
     entity = FoyerFiscal
-    label = 'Crédits d’impôt pour dépenses en faveur de l’aide aux personnes'
+    label = 'Crédits d’impôt pour dépenses d’équipement de l’habitation principale en faveur de l’aide aux personnes'
     reference = 'http://bofip.impots.gouv.fr/bofip/3859-PGP'
     definition_period = YEAR
 
-    def formula_2002_01_01(foyer_fiscal, period, parameters):
-        '''
-        Crédits d’impôt pour dépenses en faveur de l’aide aux personnes
-        (cases 7WI, 7WJ, 7WL).
-        2002-2003
-        '''
-        maries_ou_pacses = foyer_fiscal('maries_ou_pacses', period)
-        nb_pac_majoration_plafond = foyer_fiscal('nb_pac2', period)
-        nbH = foyer_fiscal('nbH', period)
-        f7wi = foyer_fiscal('f7wi_2012', period)
-        P = parameters(period).impot_revenu.credits_impots.aidper
-
-        n = nb_pac_majoration_plafond - nbH / 2
-
-        max0 = (
-            P.max * (1 + maries_ou_pacses)
-            + P.pac1 * (n >= 1)
-            + P.pac2 * (n >= 2)
-            + P.pac3 * (max_(n - 2, 0))
-            + (
-                (n >= 2) * P.pac3 * nbH
-                + (n == 1) * (P.pac2 + (nbH > 1) * P.pac3 * (nbH - 1)) * (nbH >= 1)
-                + (n == 0) * (P.pac1 + (nbH > 1) * P.pac2 * (nbH - 1)
-                + (nbH > 2) * P.pac3 * (nbH - 2)) * (nbH >= 1)
-                ) / 2
-            )
-
-        return P.taux_wi * min_(f7wi, max0)
-
-    def formula_2004_01_01(foyer_fiscal, period, parameters):
-        '''
-        Crédits d’impôt pour dépenses en faveur de l’aide aux personnes
-        (cases 7WI, 7WJ).
-        2004-2005
-        '''
+    def formula_2005_01_01(foyer_fiscal, period, parameters):
         maries_ou_pacses = foyer_fiscal('maries_ou_pacses', period)
         nb_pac_majoration_plafond = foyer_fiscal('nb_pac2', period)
         nbH = foyer_fiscal('nbH', period)
-        f7wi = foyer_fiscal('f7wi_2012', period)
+        f7wi_2009 = foyer_fiscal('f7wi_2009', period)
         f7wj = foyer_fiscal('f7wj', period)
-        P = parameters(period).impot_revenu.credits_impots.aidper
+        P_aide_pers = parameters(period).impot_revenu.credits_impots.equ_hab_princ_aide_personnes
+        P_plaf = P_aide_pers.plafond.plafond_commun
 
-        n = nb_pac_majoration_plafond - nbH / 2
+        nb_pac_non_alternes = nb_pac_majoration_plafond - nbH / 2
 
+        # S'il y a des PAC en résidence alternée, ils sont décomptés en premier
         max0 = (
-            P.max * (1 + maries_ou_pacses)
-            + P.pac1 * (n >= 1)
-            + P.pac2 * (n >= 2)
-            + P.pac3 * (max_(n - 2, 0))
+            P_plaf.celib * (maries_ou_pacses == 0)
+            + P_plaf.couple * (maries_ou_pacses == 1)
             + (
-                (n >= 2) * P.pac3 * nbH
-                + (n == 1) * (P.pac2 + (nbH > 1) * P.pac3 * (nbH - 1)) * (nbH >= 1)
-                + (n == 0) * (P.pac1 + (nbH > 1) * P.pac2 * (nbH - 1) + (nbH > 2) * P.pac3 * (nbH - 2)) * (nbH >= 1)
+                P_plaf.maj_pac1 * (nbH >= 1)
+                + P_plaf.maj_pac2 * (nbH >= 2)
+                + P_plaf.maj_pac3 * max_(nbH - 2, 0)
                 ) / 2
+            + (nbH >= 2) * P_plaf.maj_pac3 * nb_pac_non_alternes
+            + (nbH == 1) * (P_plaf.maj_pac2 * (nb_pac_non_alternes >= 1) + P_plaf.maj_pac3 * max_(nb_pac_non_alternes - 1, 0))
+            + (nbH == 0) * (P_plaf.maj_pac1 + (nb_pac_non_alternes >= 1) + P_plaf.maj_pac2 * (nb_pac_non_alternes >= 2) + P_plaf.maj_pac3 * max_(nb_pac_non_alternes - 2, 0))
             )
 
         max1 = max_(0, max0 - f7wj)
         return (
-            P.taux_wj * min_(f7wj, max0)
-            + P.taux_wi * min_(f7wi, max1)
+            P_aide_pers.taux.taux_equ_pers_agees_hand * min_(f7wj, max0)
+            + P_aide_pers.taux.taux_risques_techno_ascenseurs * min_(f7wi_2009, max1)
             )
 
     def formula_2006_01_01(foyer_fiscal, period, parameters):
-        '''
-        Crédits d’impôt pour dépenses en faveur de l’aide aux personnes
-        (cases 7WI, 7WJ).
-        2006-2009
-        cf. cerfa 50796
-        '''
         maries_ou_pacses = foyer_fiscal('maries_ou_pacses', period)
         nb_pac_majoration_plafond = foyer_fiscal('nb_pac2', period)
-        f7wi = foyer_fiscal('f7wi_2012', period)
+        f7wi_2009 = foyer_fiscal('f7wi_2009', period)
         f7wj = foyer_fiscal('f7wj', period)
-        P = parameters(period).impot_revenu.credits_impots.aidper
+        P_aide_pers = parameters(period).impot_revenu.credits_impots.equ_hab_princ_aide_personnes
+        P_plaf = P_aide_pers.plafond.plafond_commun
 
-        max0 = P.max * (1 + maries_ou_pacses) + P.pac1 * nb_pac_majoration_plafond
+        max0 = P_plaf.celib * (maries_ou_pacses == 0) + P_plaf.couple * (maries_ou_pacses == 1) + P_plaf.maj_pac * nb_pac_majoration_plafond
         max1 = max_(0, max0 - f7wj)
         return (
-            P.taux_wj * min_(f7wj, max0)
-            + P.taux_wi * min_(f7wi, max1)
+            P_aide_pers.taux.taux_equ_pers_agees_hand * min_(f7wj, max0)
+            + P_aide_pers.taux.taux_risques_techno_ascenseurs * min_(f7wi_2009, max1)
             )
 
     def formula_2010_01_01(foyer_fiscal, period, parameters):
-        '''
-        Crédits d’impôt pour dépenses en faveur de l’aide aux personnes
-        (cases 7SF, 7WI, 7WJ, 7WL).
-        2010-2011
-        '''
         maries_ou_pacses = foyer_fiscal('maries_ou_pacses', period)
         nb_pac_majoration_plafond = foyer_fiscal('nb_pac2', period)
-        f7sf = foyer_fiscal('f7sf_2011', period)
-        f7wi = foyer_fiscal('f7wi_2012', period)
+        f7wi_2012 = foyer_fiscal('f7wi_2012', period)
         f7wj = foyer_fiscal('f7wj', period)
         f7wl = foyer_fiscal('f7wl', period)
-        P = parameters(period).impot_revenu.credits_impots.aidper
+        f7sf_2011 = foyer_fiscal('f7sf_2011', period)
+        P_aide_pers = parameters(period).impot_revenu.credits_impots.equ_hab_princ_aide_personnes
+        P_plaf = P_aide_pers.plafond.plafond_commun
 
-        max0 = P.max * (1 + maries_ou_pacses) + P.pac1 * nb_pac_majoration_plafond
-        max1 = max_(0, max0 - f7wl - f7sf)
+        # Les plafonds sont appliqués par contribuable et habitation. Ici, on suppose que 7wl, 7wj et 7wi d'une part et 7sf d'autre part sont associés à deux habitations distinctes : 7wl, 7wj et 7wi sont associées à l'habitation principale tandis que 7sf est associée aux logements donnés à la location.
+        max0 = P_plaf.celib * (maries_ou_pacses == 0) + P_plaf.couple * (maries_ou_pacses == 1) + P_plaf.maj_pac * nb_pac_majoration_plafond
+        max1 = max_(0, max0 - f7wl)
         max2 = max_(0, max1 - f7wj)
         return (
-            P.taux_wl * min_(f7wl + f7sf, max0)
-            + P.taux_wj * min_(f7wj, max1)
-            + P.taux_wi * min_(f7wi, max2)
+            P_aide_pers.taux.taux_risques_techno * min_(f7wl, max0)
+            + P_aide_pers.taux.taux_equ_pers_agees_hand * min_(f7wj, max1)
+            + P_aide_pers.taux.taux_ascenseurs * min_(f7wi_2012, max2)
+            + P_aide_pers.taux.taux_risques_techno * min_(f7sf_2011, max0)
             )
 
     def formula_2012_01_01(foyer_fiscal, period, parameters):
-        '''
-        Crédits d’impôt pour dépenses en faveur de l’aide aux personnes
-        (cases 7WI, 7WJ, 7WL, 7WR).
-        2012
-        '''
         maries_ou_pacses = foyer_fiscal('maries_ou_pacses', period)
         nb_pac_majoration_plafond = foyer_fiscal('nb_pac2', period)
-        f7wi = foyer_fiscal('f7wi_2012', period)
+        f7wi_2012 = foyer_fiscal('f7wi_2012', period)
         f7wj = foyer_fiscal('f7wj', period)
         f7wl = foyer_fiscal('f7wl', period)
         f7wr = foyer_fiscal('f7wr', period)
-        P = parameters(period).impot_revenu.credits_impots.aidper
+        P_aide_pers = parameters(period).impot_revenu.credits_impots.equ_hab_princ_aide_personnes
+        P_plaf_commun = P_aide_pers.plafond.plafond_commun
+        P_plaf_maj = P_aide_pers.plafond.maj_plaf_risques_techno_avant_2015
 
-        # On ne contrôle pas que 7WR ne dépasse pas le plafond (dépend du nombre de logements et de la nature des travaux)
-        max00 = P.max * (1 + maries_ou_pacses)
-        max0 = max00 + P.pac1 * nb_pac_majoration_plafond
-        max1 = max_(0, max0 - f7wj)  # f7wj s'impute avant f7wl et f7wi
-        max2 = max_(0, max1 - f7wi)  # f7wi s'impute avant f7wl
+        # Les plafonds sont appliqués par contribuable et habitation. Ici, on suppose que 7wl, 7wj et 7wi d'une part et 7wr d'autre part sont associés à deux habitations distinctes : 7wl, 7wj et 7wi sont associées à l'habitation principale tandis que 7wr est associée aux logements donnés à la location.
+        max0 = P_plaf_commun.celib * (maries_ou_pacses == 0) + P_plaf_commun.couple * (maries_ou_pacses == 1) + P_plaf_commun.maj_pac * nb_pac_majoration_plafond
+        max1 = max_(0, max0 - f7wj)
+        max2 = max_(0, max1 - f7wi_2012)
+        max_maj = P_plaf_maj.celib * (maries_ou_pacses == 0) + P_plaf_maj.couple * (maries_ou_pacses == 1)
         return (
-            P.taux_wr * f7wr +
-            + P.taux_wj * min_(f7wj, max0)
-            + P.taux_wi * min_(f7wi, max1)
-            + P.taux_wl * (min_(f7wl, max2) + min_(max_(0, f7wl - max2), max00))
+            P_aide_pers.taux.taux_equ_pers_agees_hand * min_(f7wj, max0)
+            + P_aide_pers.taux.taux_ascenseurs * min_(f7wi_2012, max1)
+            + P_aide_pers.taux.taux_risques_techno * (min_(f7wl, max2) + min_(max_(0, f7wl - max2), max_maj))
+            + P_aide_pers.taux.taux_risques_techno * min_(f7wr, max0 + max_maj)
             )
 
     def formula_2013_01_01(foyer_fiscal, period, parameters):
-        '''
-        Crédits d’impôt pour dépenses en faveur de l’aide aux personnes
-        2013 - 2015
-        '''
         maries_ou_pacses = foyer_fiscal('maries_ou_pacses', period)
         nb_pac_majoration_plafond = foyer_fiscal('nb_pac2', period)
         f7wj = foyer_fiscal('f7wj', period)
         f7wl = foyer_fiscal('f7wl', period)
         f7wr = foyer_fiscal('f7wr', period)
-        P = parameters(period).impot_revenu.credits_impots.aidper
-
-        # On ne contrôle pas que 7WR ne dépasse pas le plafond (dépend du nombre de logements et de la nature des travaux)
-        max00 = P.max * (1 + maries_ou_pacses)
-        max0 = max00 + P.pac1 * nb_pac_majoration_plafond
-        max1 = max_(0, max0 - f7wj)  # f7wj s'impute avant f7wl
+        P_aide_pers = parameters(period).impot_revenu.credits_impots.equ_hab_princ_aide_personnes
+        P_plaf_commun = P_aide_pers.plafond.plafond_commun
+        P_plaf_maj = P_aide_pers.plafond.maj_plaf_risques_techno_avant_2015
 
+        # Les plafonds sont appliqués par contribuable et habitation. Ici, on suppose que 7wl, 7wj et 7wi d'une part et 7wr d'autre part sont associés à deux habitations distinctes : 7wl, 7wj et 7wi sont associées à l'habitation principale tandis que 7wr est associée aux logements donnés à la location.
+        max0 = P_plaf_commun.celib * (maries_ou_pacses == 0) + P_plaf_commun.couple * (maries_ou_pacses == 1) + P_plaf_commun.maj_pac * nb_pac_majoration_plafond
+        max1 = max_(0, max0 - f7wj)
+        max_maj = P_plaf_maj.celib * (maries_ou_pacses == 0) + P_plaf_maj.couple * (maries_ou_pacses == 1)
         return (
-            P.taux_wr * f7wr
-            + P.taux_wj * min_(f7wj, max0)
-            + P.taux_wl * (min_(f7wl, max1) + min_(max_(0, f7wl - max1), max00))
+            P_aide_pers.taux.taux_equ_pers_agees_hand * min_(f7wj, max0)
+            + P_aide_pers.taux.taux_risques_techno * (min_(f7wl, max1) + min_(max_(0, f7wl - max1), max_maj))
+            + P_aide_pers.taux.taux_risques_techno * min_(f7wr, max0 + max_maj)
             )
 
     def formula_2015_01_01(foyer_fiscal, period, parameters):
-        '''
-        Crédits d’impôt pour dépenses en faveur de l’aide aux personnes
-        2015 - 2018
-        '''
         maries_ou_pacses = foyer_fiscal('maries_ou_pacses', period)
         nb_pac_majoration_plafond = foyer_fiscal('nb_pac2', period)
         f7wj = foyer_fiscal('f7wj', period)
         f7wl = foyer_fiscal('f7wl', period)
         f7wr = foyer_fiscal('f7wr', period)
-        P = parameters(period).impot_revenu.credits_impots.aidper
-
-        # On ne contrôle pas que 7WR ne dépasse pas le plafond (dépend du nombre de logements et de la nature des travaux)
-        max00 = P.max * (1 + maries_ou_pacses)
-        max0 = max00 + P.pac1 * nb_pac_majoration_plafond
-        max1 = P.max_wl
+        P_aide_pers = parameters(period).impot_revenu.credits_impots.equ_hab_princ_aide_personnes
+        P_plaf_commun = P_aide_pers.plafond.plafond_commun
 
+        # Les plafonds sont appliqués par contribuable et habitation. Ici, on suppose que 7wl, 7wj et 7wi d'une part et 7wr d'autre part sont associés à deux habitations distinctes : 7wl, 7wj et 7wi sont associées à l'habitation principale tandis que 7wr est associée aux logements donnés à la location.
+        max_hors_risques_techno = P_plaf_commun.celib * (maries_ou_pacses == 0) + P_plaf_commun.couple * (maries_ou_pacses == 1) + P_plaf_commun.maj_pac * nb_pac_majoration_plafond
         return (
-            P.taux_wr * f7wr
-            + P.taux_wj * min_(f7wj, max0)
-            + P.taux_wl * min_(f7wl, max1)
+            P_aide_pers.taux.taux_equ_pers_agees_hand * min_(f7wj, max_hors_risques_techno)
+            + P_aide_pers.taux.taux_risques_techno * min_(f7wl, P_aide_pers.plafond.plafond_risque_techno_apres_2015)
+            + P_aide_pers.taux.taux_risques_techno * min_(f7wr, P_aide_pers.plafond.plafond_risque_techno_apres_2015)
             )
 
     def formula_2018_01_01(foyer_fiscal, period, parameters):
-        '''
-        Crédits d’impôt pour dépenses en faveur de l’aide aux personnes
-        2018 -
-        '''
         maries_ou_pacses = foyer_fiscal('maries_ou_pacses', period)
         nb_pac_majoration_plafond = foyer_fiscal('nb_pac2', period)
         f7wi = foyer_fiscal('f7wi', period)
         f7wj = foyer_fiscal('f7wj', period)
         f7wl = foyer_fiscal('f7wl', period)
         f7wr = foyer_fiscal('f7wr', period)
-        P = parameters(period).impot_revenu.credits_impots.aidper
-
-        # On ne contrôle pas que 7WR ne dépasse pas le plafond (dépend du nombre de logements et de la nature des travaux)
-        max00 = P.max * (1 + maries_ou_pacses)
-        max0 = max00 + P.pac1 * nb_pac_majoration_plafond
-        max1 = P.max_wl
+        P_aide_pers = parameters(period).impot_revenu.credits_impots.equ_hab_princ_aide_personnes
+        P_plaf_commun = P_aide_pers.plafond.plafond_commun
 
+        # Les plafonds sont appliqués par contribuable et habitation. Ici, on suppose que 7wl, 7wj et 7wi d'une part et 7wr d'autre part sont associés à deux habitations distinctes : 7wl, 7wj et 7wi sont associées à l'habitation principale tandis que 7wr est associée aux logements donnés à la location.
+        max_hors_risques_techno = P_plaf_commun.celib * (maries_ou_pacses == 0) + P_plaf_commun.couple * (maries_ou_pacses == 1) + P_plaf_commun.maj_pac * nb_pac_majoration_plafond
         return (
-            P.taux_wr * f7wr
-            + P.taux_wj * min_(f7wi + f7wj, max0)
-            + P.taux_wl * min_(f7wl, max1)
+            P_aide_pers.taux.taux_equ_pers_agees_hand * min_(f7wi + f7wj, max_hors_risques_techno)
+            + P_aide_pers.taux.taux_risques_techno * min_(f7wl, P_aide_pers.plafond.plafond_risque_techno_apres_2015)
+            + P_aide_pers.taux.taux_risques_techno * min_(f7wr, P_aide_pers.plafond.plafond_risque_techno_apres_2015)
             )
 
 
@@ -1972,10 +1916,15 @@ class prlire(Variable):
         f2dh = foyer_fiscal('f2dh', period)
         f2ch = foyer_fiscal('f2ch', period)
         maries_ou_pacses = foyer_fiscal('maries_ou_pacses', period)
-        P = parameters(period)
+        celibataire_ou_divorce = foyer_fiscal('celibataire_ou_divorce', period)
+        veuf = foyer_fiscal('veuf', period)
+        jeune_veuf = foyer_fiscal('jeune_veuf', period)
+        parameters_rvcm = parameters(period).impot_revenu.calcul_revenus_imposables.rvcm
+
+        abattement_assurance_vie = parameters_rvcm.produits_assurances_vies_assimiles.abattement_couple * maries_ou_pacses + parameters_rvcm.produits_assurances_vies_assimiles.abattement_celib * (celibataire_ou_divorce | veuf | jeune_veuf)
 
-        plaf_resid = max_(P.impot_revenu.calcul_revenus_imposables.rvcm.produits_assurances_vies_assimiles.abattement * (1 + maries_ou_pacses) - f2ch, 0)
-        return P.impot_revenu.credits_impots.prlire.taux * min_(f2dh, plaf_resid)
+        plaf_resid = max_(abattement_assurance_vie - f2ch, 0)
+        return parameters(period).impot_revenu.credits_impots.prlire.taux * min_(f2dh, plaf_resid)
 
 
 class quaenv(Variable):
@@ -1983,6 +1932,7 @@ class quaenv(Variable):
     entity = FoyerFiscal
     label = 'Crédits d’impôt pour dépenses en faveur de la qualité environnementale (2005 - 2014) / de la transition energétique (2014 - ) '
     definition_period = YEAR
+    end = '2019-12-31'
 
     def formula_2005_01_01(foyer_fiscal, period, parameters):
         '''
@@ -2817,7 +2767,7 @@ class ci_saldom(Variable):
         f7db = foyer_fiscal('f7db', period)
         f7dg = foyer_fiscal('f7dg', period)
         f7dl = foyer_fiscal('f7dl', period)
-        P = parameters(period).impot_revenu.calcul_reductions_impots.emploi_salarie_domicile
+        P = parameters(period).impot_revenu.credits_impots.emploi_salarie_domicile
 
         isinvalid = f7dg
         nbpacmin = nb_pac_majoration_plafond + f7dl
@@ -2838,13 +2788,13 @@ class ci_saldom(Variable):
         f7dg = foyer_fiscal('f7dg', period)
         f7dl = foyer_fiscal('f7dl', period)
         f7dq = foyer_fiscal('f7dq', period)
-        P = parameters(period).impot_revenu.calcul_reductions_impots.emploi_salarie_domicile
+        P = parameters(period).impot_revenu.credits_impots.emploi_salarie_domicile
 
         isinvalid = f7dg
         annee1 = f7dq
         nbpacmin = nb_pac_majoration_plafond + f7dl
         maxBase = P.plafond * not_(annee1) + P.plafond_1ere_annee * annee1
-        maxDuMaxNonInv = P.plafond_maximum * not_(annee1) + P.plafond_invalides_1ere_annee * annee1
+        maxDuMaxNonInv = P.plafond_maximum * not_(annee1) + P.plafond_maximum_1ere_annee * annee1
         maxNonInv = min_(maxBase + P.increment_plafond * nbpacmin, maxDuMaxNonInv)
         maxEffectif = maxNonInv * not_(isinvalid) + P.plafond_invalides * isinvalid
 
@@ -2867,7 +2817,7 @@ class ci_saldom(Variable):
         annee1 = foyer_fiscal('f7dq', period)
         invalide = foyer_fiscal('f7dg', period)
 
-        P = parameters(period).impot_revenu.calcul_reductions_impots.emploi_salarie_domicile
+        P = parameters(period).impot_revenu.credits_impots.emploi_salarie_domicile
 
         # détérminer le plafond
 
@@ -2875,7 +2825,7 @@ class ci_saldom(Variable):
             plaf = P.plafond_invalides
         else:
             if annee1.any():
-                plaf = min_(P.plafond_invalides_1ere_annee, P.plafond_1ere_annee + P.increment_plafond * (nb_pac_majoration_plafond + f7dl))
+                plaf = min_(P.plafond_maximum_1ere_annee, P.plafond_1ere_annee + P.increment_plafond * (nb_pac_majoration_plafond + f7dl))
             else:
                 plaf = min_(P.plafond_maximum, P.plafond + P.increment_plafond * (nb_pac_majoration_plafond + f7dl))
 
@@ -2898,14 +2848,14 @@ class ci_saldom(Variable):
         annee1 = foyer_fiscal('f7dq', period)
         invalide = foyer_fiscal('f7dg', period)
 
-        P = parameters(period).impot_revenu.calcul_reductions_impots.emploi_salarie_domicile
+        P = parameters(period).impot_revenu.credits_impots.emploi_salarie_domicile
 
         # détérminer le plafond
         if invalide.any():
             plaf = P.plafond_invalides
         else:
             if annee1.any():
-                plaf = min_(P.plafond_invalides_1ere_annee, P.plafond_1ere_annee + P.increment_plafond * (nb_pac_majoration_plafond + f7dl))
+                plaf = min_(P.plafond_maximum_1ere_annee, P.plafond_1ere_annee + P.increment_plafond * (nb_pac_majoration_plafond + f7dl))
             else:
                 plaf = min_(P.plafond_maximum, P.plafond + P.increment_plafond * (nb_pac_majoration_plafond + f7dl))