Skip to content

Commit

Permalink
report changes to cibles
Browse files Browse the repository at this point in the history
  • Loading branch information
@noeensarguet
noeensarguet committed Sep 19, 2024
1 parent fdbc6e2 commit 58ae3cf
Showing 1 changed file with 80 additions and 84 deletions.
164 changes: 80 additions & 84 deletions m_ext/2023/cibles.m
View file
Original file line number Diff line number Diff line change
Expand Up @@ -289,7 +289,7 @@ et nb_categorie(*) = nb_categorie(saisie famille) + nb_categorie(saisie contexte
calculer cible trace_in;
iterer
: variable ITBASE
: categorie calculee base *
: categorie calculee base
: dans (
ITBASE = indefini;
)
Expand All @@ -302,7 +302,7 @@ et nb_categorie(*) = nb_categorie(saisie famille) + nb_categorie(saisie contexte
calculer cible trace_in;
iterer
: variable ITCAL
: categorie calculee, calculee restituee
: categorie calculee
: dans (
ITCAL = indefini;
)
Expand Down Expand Up @@ -334,23 +334,22 @@ et nb_categorie(*) = nb_categorie(saisie famille) + nb_categorie(saisie contexte
application: iliad;
#afficher_erreur "effacer_avfisc_1[\n";
calculer cible trace_in;
VARTMP1 = 0;
iterer
: variable REV_AV
: categorie saisie revenu, saisie revenu corrective
: avec attribut(REV_AV, avfisc) = 1 et present(REV_AV)
: dans (
VARTMP1 = 1;
REV_AV = indefini;
)
calculer cible trace_out;
#afficher_erreur "]effacer_avfisc_1\n";

cible est_code_supp_avfisc:
application: iliad;
argument: EXISTE_CODE_SUPP;
#afficher_erreur "est_code_supp_avfisc[\n";
calculer cible trace_in;
VARTMP1 = 0;
EXISTE_CODE_SUPP = 0;
#si
# present(COD7QD) ou present(COD7QB) ou present(COD7QC)
# ou present(RFORDI) ou present(RFROBOR) ou present(RFDORD)
Expand All @@ -360,34 +359,36 @@ et nb_categorie(*) = nb_categorie(saisie famille) + nb_categorie(saisie contexte
# ou present(PINELQP_A) ou present(COD7QS_A) ou present(PINELQN_A)
# ou present(PINELQO_A)
#alors
# VARTMP1 = 1;
# EXISTE_CODE_SUPP = 1;
#sinon
iterer
: variable REV_AV
: categorie saisie revenu, saisie revenu corrective
: avec attribut(REV_AV, avfisc) = 2 et present(REV_AV)
: dans (
VARTMP1 = 1;
EXISTE_CODE_SUPP = 1;
)
#finsi
calculer cible trace_out;
#afficher_erreur "]est_code_supp_avfisc\n";

cible calcule_avfiscal:
application: iliad;
variable temporaire: EXISTE_AVFISC, SAUV_IAD11, SAUV_INE, SAUV_IRE, SAUV_ART1731BIS, SAUV_PREM8_11;
variable temporaire:
EXISTE_AVFISC, EXISTE_CODE_SUPP,
SAUV_IAD11, SAUV_INE, SAUV_IRE, SAUV_ART1731BIS, SAUV_PREM8_11;
#afficher_erreur "calcule_avfiscal[\n";
calculer cible trace_in;
EXISTE_AVFISC = 0;
iterer
: variable REV_AV
: categorie saisie revenu, saisie revenu corrective
: avec attribut(REV_AV, avfisc) dans (1, 2) et present(REV_AV)
: avec attribut(REV_AV, avfisc) dans (1, 2) et present(REV_AV)
: dans (
EXISTE_AVFISC = 1;
)
calculer cible est_code_supp_avfisc;
si VARTMP1 = 0 alors
calculer cible est_code_supp_avfisc : avec EXISTE_CODE_SUPP;
si EXISTE_CODE_SUPP = 0 alors
EXISTE_AVFISC = 1;
finsi
si EXISTE_AVFISC = 1 alors
Expand Down Expand Up @@ -462,43 +463,45 @@ si CMAJ dans (8, 11) alors

cible est_calcul_acomptes:
application: iliad;
argument: EXISTE_ACOMPTES;
#afficher_erreur "est_calcul_acomptes[\n";
calculer cible trace_in;
VARTMP1 = 0;
EXISTE_ACOMPTES = 0;
iterer
: variable REV_AC
: categorie saisie revenu, saisie revenu corrective
: avec attribut(REV_AC, acompte) = 0 et present(REV_AC)
: dans (
VARTMP1 = 1;
EXISTE_ACOMPTES = 1;
)
calculer cible trace_out;
#afficher_erreur "]est_calcul_acomptes\n";

cible est_calcul_avfisc:
application: iliad;
argument: EXISTE_AVFISC;
#afficher_erreur "est_calcul_avfisc[\n";
calculer cible trace_in;
VARTMP1 = 0;
EXISTE_AVFISC = 0;
iterer
: variable REV_AV
: categorie saisie revenu, saisie revenu corrective
: avec attribut(REV_AV, avfisc) = 1 et present(REV_AV)
: dans (
VARTMP1 = 1;
EXISTE_AVFISC = 1;
)
si VARTMP1 = 0 alors
calculer cible est_code_supp_avfisc;
si EXISTE_AVFISC = 0 alors
calculer cible est_code_supp_avfisc : avec EXISTE_AVFISC;
finsi
calculer cible trace_out;
#afficher_erreur "]est_calcul_avfisc\n";

cible traite_double_liquidation3:
application: iliad;
variable temporaire: P_EST_CALCUL_ACOMPTES, CALCUL_ACOMPTES, CALCUL_AVFISC, SAUV_IRANT;
argument: P_EST_CALCUL_ACOMPTES;
variable temporaire: CALCUL_ACOMPTES, CALCUL_AVFISC, SAUV_IRANT;
#afficher_erreur "traite_double_liquidation3[\n";
calculer cible trace_in;
P_EST_CALCUL_ACOMPTES = VARTMP1;
FLAG_ACO = 0;
V_NEGACO = 0;
V_AVFISCOPBIS = 0;
Expand All @@ -507,10 +510,8 @@ si CMAJ dans (8, 11) alors
PREM8_11 = 0;
calculer cible article_1731_bis;
finsi
calculer cible est_calcul_acomptes;
CALCUL_ACOMPTES = VARTMP1;
calculer cible est_calcul_avfisc;
CALCUL_AVFISC = VARTMP1;
calculer cible est_calcul_acomptes : avec CALCUL_ACOMPTES;
calculer cible est_calcul_avfisc : avec CALCUL_AVFISC;
si CALCUL_AVFISC = 1 alors
SAUV_IRANT = IRANT + 0 ;
IRANT = indefini;
Expand Down Expand Up @@ -564,20 +565,26 @@ si CMAJ dans (8, 11) alors
calculer cible trace_out;
#afficher_erreur "]traite_double_liquidation3\n";

cible abs_flag:
application: iliad;
argument: VAR, ABS, FLAG;
si present(VAR) alors
FLAG = (VAR < 0);
ABS = abs(VAR);
VAR = ABS;
finsi

cible traite_double_liquidation_exit_taxe:
application: iliad;
variable temporaire: CALCULER_ACOMPTES;
#afficher_erreur "traite_double_liquidation_exit_taxe[\n";
calculer cible trace_in;
si present(PVIMPOS) ou present(CODRWB) alors
FLAG_3WBNEG = 0;
FLAG_EXIT = 1;
VARTMP1 = 0;
calculer cible traite_double_liquidation3;
si present(NAPTIR) alors
FLAG_3WBNEG = (NAPTIR < 0);
V_NAPTIR3WB = abs(NAPTIR);
NAPTIR = V_NAPTIR3WB;
finsi
CALCULER_ACOMPTES = 0;
calculer cible traite_double_liquidation3 : avec CALCULER_ACOMPTES;
calculer cible abs_flag : avec NAPTIR, V_NAPTIR3WB, FLAG_3WBNEG;
si present(IHAUTREVT) alors
V_CHR3WB = IHAUTREVT;
finsi
Expand All @@ -589,13 +596,9 @@ si present(IAD11) alors
si present(PVSURSI) ou present(CODRWA) alors
FLAG_3WANEG = 0;
FLAG_EXIT = 2;
VARTMP1 = 0;
calculer cible traite_double_liquidation3;
si present(NAPTIR) alors
FLAG_3WANEG = (NAPTIR < 0);
V_NAPTIR3WA = abs(NAPTIR);
NAPTIR = V_NAPTIR3WA;
finsi
CALCULER_ACOMPTES = 0;
calculer cible traite_double_liquidation3 : avec CALCULER_ACOMPTES;
calculer cible abs_flag : avec NAPTIR, V_NAPTIR3WA, FLAG_3WANEG;
si present(IHAUTREVT) alors
V_CHR3WA = IHAUTREVT;
finsi
Expand All @@ -605,8 +608,8 @@ si present(IAD11) alors
FLAG_EXIT = 0;
finsi
FLAG_BAREM = 1;
VARTMP1 = 1;
calculer cible traite_double_liquidation3;
CALCULER_ACOMPTES = 1;
calculer cible traite_double_liquidation3 : avec CALCULER_ACOMPTES;
si present(RASTXFOYER) alors
V_BARTXFOYER = RASTXFOYER;
finsi
Expand All @@ -624,17 +627,13 @@ si present(INDTAZ) alors
# leve_erreur A000;
finsi
finsi
si present(IITAZIR) alors
FLAG_BARIITANEG = (IITAZIR < 0);
V_BARIITAZIR = abs(IITAZIR);
IITAZIR = V_BARIITAZIR;
finsi
calculer cible abs_flag : avec IITAZIR, V_BARIITAZIR, FLAG_BARIITANEG;
si present(IRTOTAL) alors
V_BARIRTOTAL = IRTOTAL;
finsi
FLAG_BAREM = 0;
VARTMP1 = 1;
calculer cible traite_double_liquidation3;
CALCULER_ACOMPTES = 1;
calculer cible traite_double_liquidation3 : avec CALCULER_ACOMPTES;
calculer cible trace_out;
#afficher_erreur "]traite_double_liquidation_exit_taxe\n";

Expand Down Expand Up @@ -751,6 +750,7 @@ ou present(MOISAN_ISF)

cible enchaine_calcul:
application: iliad;
# variable temporaire: CALCULER_ACOMPTES;
si V_IND_TRAIT = 4 alors # primitif
calculer cible effacer_base_etc;
calculer cible traite_double_liquidation_2;
Expand All @@ -762,51 +762,52 @@ ou present(MOISAN_ISF)
sinon
V_ACO_MTAP = 0;
V_NEGACO = 0;
# VARTMP1 = si (present(FLAGDERNIE)) alors (1) sinon (0) finsi;
# calculer cible traite_double_liquidation3;
# CALCULER_ACOMPTES = si (present(FLAGDERNIE)) alors (1) sinon (0) finsi;
# calculer cible traite_double_liquidation3 : avec CALCULER_ACOMPTES;
calculer cible traite_double_liquidation_pvro;
finsi

cible exporte_si_non_bloquantes:
application: iliad;
si nb_discordances() + nb_informatives() > 0 alors
exporte_erreurs;
finsi

cible enchainement_primitif:
application: iliad;
variable temporaire: EXPORTE_ERREUR;
#afficher_erreur "traite_double_liquidation2[\n";
calculer cible trace_in;
calculer cible ir_verif_saisie_isf;
finalise_erreurs;
si nb_anomalies() > 0 alors
exporte_erreurs;
sinon_si nb_discordances() + nb_informatives() = 0 alors
EXPORTE_ERREUR = 1;
quand nb_anomalies() = 0 faire
EXPORTE_ERREUR = 0;
puis_quand nb_discordances() + nb_informatives() = 0 faire
calculer cible ir_verif_contexte;
finalise_erreurs;
si nb_anomalies() = 0 alors
si nb_discordances() + nb_informatives() > 0 alors
exporte_erreurs;
finsi
calculer cible ir_verif_famille;
finalise_erreurs;
si nb_anomalies() = 0 alors
si nb_discordances() + nb_informatives() > 0 alors
exporte_erreurs;
finsi
calculer cible ir_verif_revenu;
finalise_erreurs;
si nb_anomalies() > 0 alors
exporte_erreurs;
sinon
si nb_discordances() + nb_informatives() > 0 alors
exporte_erreurs;
finsi
calculer cible ir_calcul_primitif_isf;
finalise_erreurs;
calculer cible enchaine_calcul;
finalise_erreurs;
si nb_discordances() + nb_informatives() > 0 alors
exporte_erreurs;
finsi
finsi
finsi
EXPORTE_ERREUR = 0;
puis_quand nb_anomalies() = 0 faire
calculer cible exporte_si_non_bloquantes;
calculer cible ir_verif_famille;
finalise_erreurs;
puis_quand nb_anomalies() = 0 faire
EXPORTE_ERREUR = 1;
puis_quand nb_discordances() + nb_informatives() = 0 faire
calculer cible ir_verif_revenu;
finalise_erreurs;
puis_quand nb_anomalies() = 0 faire
calculer cible exporte_si_non_bloquantes;
calculer cible ir_calcul_primitif_isf;
finalise_erreurs;
calculer cible enchaine_calcul;
finalise_erreurs;
calculer cible exporte_si_non_bloquantes;
sinon_faire
si EXPORTE_ERREUR = 1 alors
exporte_erreurs;
finsi
finsi
finquand
calculer cible trace_out;
#afficher_erreur "]traite_double_liquidation2\n";

Expand All @@ -817,8 +818,3 @@ si nb_discordances() + nb_informatives() > 0 alors
V_IND_TRAIT = 4; # primitif
calculer cible enchainement_primitif;

#{



}#

0 comments on commit 58ae3cf

Please sign in to comment.