From 58ae3cfd02c6936c1965e1f6453e2c7c246ae298 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?No=C3=A9=20Ensarguet?= Date: Thu, 19 Sep 2024 14:55:11 +0200 Subject: [PATCH] report changes to cibles --- m_ext/2023/cibles.m | 164 +++++++++++++++++++++----------------------- 1 file changed, 80 insertions(+), 84 deletions(-) diff --git a/m_ext/2023/cibles.m b/m_ext/2023/cibles.m index efcd96d7..4448b011 100644 --- a/m_ext/2023/cibles.m +++ b/m_ext/2023/cibles.m @@ -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; ) @@ -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; ) @@ -334,13 +334,11 @@ 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; @@ -348,9 +346,10 @@ et nb_categorie(*) = nb_categorie(saisie famille) + nb_categorie(saisie contexte 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) @@ -360,14 +359,14 @@ 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; @@ -375,19 +374,21 @@ et nb_categorie(*) = nb_categorie(saisie famille) + nb_categorie(saisie contexte 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 @@ -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; @@ -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; @@ -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 @@ -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 @@ -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 @@ -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"; @@ -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; @@ -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"; @@ -817,8 +818,3 @@ si nb_discordances() + nb_informatives() > 0 alors V_IND_TRAIT = 4; # primitif calculer cible enchainement_primitif; -#{ - - - -}#