2021-02-01 22:09:16 +03:00
|
|
|
(* This file is part of the French law library, a collection of functions for computing French taxes
|
|
|
|
and benefits derived from Catala programs. Copyright (C) 2021 Inria, contributor: Denis Merigoux
|
|
|
|
<denis.merigoux@inria.fr>
|
|
|
|
|
|
|
|
Licensed under the Apache License, Version 2.0 (the "License"); you may not use this file except
|
|
|
|
in compliance with the License. You may obtain a copy of the License at
|
|
|
|
|
|
|
|
http://www.apache.org/licenses/LICENSE-2.0
|
|
|
|
|
|
|
|
Unless required by applicable law or agreed to in writing, software distributed under the License
|
|
|
|
is distributed on an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
|
|
|
|
or implied. See the License for the specific language governing permissions and limitations under
|
|
|
|
the License. *)
|
|
|
|
|
|
|
|
module Allocations_familiales = Law_source.Allocations_familiales
|
|
|
|
module AF = Allocations_familiales
|
2021-03-05 21:16:56 +03:00
|
|
|
open Runtime
|
2021-02-01 22:09:16 +03:00
|
|
|
|
2021-03-05 21:16:56 +03:00
|
|
|
let compute_allocations_familiales ~(current_date : Runtime.date)
|
2021-03-17 21:35:21 +03:00
|
|
|
~(children : AF.enfant_entree array) ~(income : int) ~(residence : AF.collectivite)
|
2021-11-07 02:53:14 +03:00
|
|
|
~(is_parent : bool) ~(fills_title_I : bool) ~(had_rights_open_before_2012 : bool) : float =
|
2021-02-01 22:09:16 +03:00
|
|
|
let result =
|
|
|
|
AF.interface_allocations_familiales
|
|
|
|
{
|
2022-02-07 20:38:31 +03:00
|
|
|
AF.i_date_courante_in = (fun _ -> current_date);
|
|
|
|
AF.i_enfants_in = (fun _ -> children);
|
|
|
|
AF.i_ressources_menage_in = (fun _ -> money_of_units_int income);
|
|
|
|
AF.i_residence_in = (fun _ -> residence);
|
|
|
|
AF.i_personne_charge_effective_permanente_est_parent_in = (fun _ -> is_parent);
|
|
|
|
AF.i_personne_charge_effective_permanente_remplit_titre_I_in = (fun _ -> fills_title_I);
|
|
|
|
AF.i_avait_enfant_a_charge_avant_1er_janvier_2012_in =
|
|
|
|
(fun _ -> had_rights_open_before_2012);
|
2021-02-01 22:09:16 +03:00
|
|
|
}
|
|
|
|
in
|
2022-02-07 20:38:31 +03:00
|
|
|
money_to_float result.AF.i_montant_verse_out
|