Ajout de la formule de calcul de Rennes2

code/FormuleTestColleur.php

@@ -8,30 +8,20 @@
  * @var $viewFile   string
  */
 
-$formuleTestIntervenantId = 1;
+$formuleTestIntervenantId = 2;
 
 $save = false;
-//$save = true;
-
-$idata = 'E
-Droit
-PREVU
-192,00
-0,00
-Non
-
-
-
-
-
-';
+$save = true;
 
 $structureUniversité = 'Université';
 
-$vhdata = "Droit	Oui	Non	Oui	100,00 %	0,00 %	0,00 %	TP	1,00	0,67	1,00	1,00	21,00							15,72	0,00	0,00	0,00	3,52	0,00	0,00	0,00	0,00
-Droit	Oui	Non	Oui	100,00 %	0,00 %	0,00 %	Référentiel	1,00	1,00	1,00	1,00	94,00							0,00	0,00	0,00	70,36	0,00	0,00	0,00	0,00	23,64
-IAE	Non	Non	Oui	100,00 %	0,00 %	0,00 %	TD	1,00	1,00	1,00	1,00	66,50							49,78	0,00	0,00	0,00	16,72	0,00	0,00	0,00	0,00
-Droit	Oui	Non	Oui	100,00 %	0,00 %	0,00 %	CM	1,50	1,50	1,00	1,00	50,00							56,14	0,00	0,00	0,00	18,86	0,00	0,00	0,00	0,00
+$vhdata = "STAPS	Oui	Non	Oui	100,00 %	0,00 %	0,00 %	CM	1,50	1,50	1,00	1,25	40,00							60,00	0,00	0,00	0,00	0,00	0,00	0,00	0,00	0,00		1,50	60,00		60,00	60,00	60,00			0,00	1,88	0,00
+STAPS	Oui	Non	Oui	85,00 %	0,00 %	15,00 %	TD	1,00	1,00	1,00	1,00	35,00							29,75	0,00	5,25	0,00	0,00	0,00	0,00	0,00	0,00		1,00	35,00		35,00	95,00	35,00			0,00	1,00	0,00
+Langues	Non	Non	Oui	100,00 %	0,00 %	0,00 %	TP	0,67	0,67	1,00	1,00	40,00							26,67	0,00	0,00	0,00	0,00	0,00	0,00	0,00	0,00		0,67	26,67		26,67	121,67	26,67			0,00	0,67	0,00
+STAPS	Oui	Non	Oui	100,00 %	0,00 %	0,00 %	Référentiel	1,00	1,00	1,00	1,00	25,00							0,00	0,00	0,00	25,00	0,00	0,00	0,00	0,00	0,00		1,00	0,00		25,00	146,67	25,00			0,00	1,00	0,00
+ISSTO	Non	Non	Oui	90,00 %	0,00 %	10,00 %	TP	0,67	0,67	1,00	1,00	30,00							18,00	0,00	2,00	0,00	0,00	0,00	0,00	0,00	0,00		0,67	20,00		20,00	166,67	20,00			0,00	0,67	0,00
+Langues	Non	Non	Oui	45,00 %	5,00 %	50,00 %	TD	1,00	1,00	1,40	1,40	20,00							11,40	1,27	12,67	0,00	1,20	0,13	1,33	0,00	0,00		1,40	28,00		28,00	192,00	25,33			1,90	1,40	2,67
+Université	Non	Non	Oui	100,00 %	0,00 %	0,00 %	Référentiel	1,00	1,00	1,00	1,00	40,00							0,00	0,00	0,00	0,00	0,00	0,00	0,00	0,00	40,00		1,00	0,00		40,00	192,00	0,00			40,00	1,00	40,00
 ";
 
 

data/ddl/package/FORMULE_RENNES2/body.sql

+CREATE OR REPLACE PACKAGE BODY FORMULE_RENNES2 AS
+  decalageLigne NUMERIC DEFAULT 20;
+
+
+  /* Stockage des valeurs intermédiaires */
+  TYPE t_cell IS RECORD (
+    valeur FLOAT,
+    enCalcul BOOLEAN DEFAULT FALSE
+  );
+  TYPE t_cells IS TABLE OF t_cell INDEX BY PLS_INTEGER;
+  TYPE t_coll IS RECORD (
+    cells t_cells
+  );
+  TYPE t_colls IS TABLE OF t_coll INDEX BY VARCHAR2(50);
+  feuille t_colls;
+
+  debugLine NUMERIC;
+
+
+  PROCEDURE dbg( val CLOB ) IS
+  BEGIN
+    ose_formule.volumes_horaires.items(debugLine).debug_info :=
+      ose_formule.volumes_horaires.items(debugLine).debug_info || val;
+  END;
+
+
+  PROCEDURE dbgi( val CLOB ) IS
+  BEGIN
+    ose_formule.intervenant.debug_info := ose_formule.intervenant.debug_info || val;
+  END;
+
+  PROCEDURE dbgDump( val CLOB ) IS
+  BEGIN
+    dbg('<div class="dbg-dump">' || val || '</div>');
+  END;
+
+  PROCEDURE dbgCell( c VARCHAR2, l NUMERIC, val FLOAT ) IS
+    ligne NUMERIC;
+  BEGIN
+    ligne := l;
+    IF l <> 0 THEN
+      ligne := ligne + decalageLigne;
+    END IF;
+
+    dbgi( '[cell|' || c || '|' || ligne || '|' || val );
+  END;
+
+  PROCEDURE dbgCalc( fncName VARCHAR2, c VARCHAR2, res FLOAT ) IS
+  BEGIN
+    dbgi( '[calc|' || fncName || '|' || c || '|' || res );
+  END;
+
+  FUNCTION cell( c VARCHAR2, l NUMERIC DEFAULT 0 ) RETURN FLOAT IS
+    val FLOAT;
+  BEGIN
+    IF feuille.exists(c) THEN
+      IF feuille(c).cells.exists(l) THEN
+        IF feuille(c).cells(l).enCalcul THEN
+          raise_application_error( -20001, 'Dépendance cyclique : la cellule [' || c || ';' || l || '] est déjà en cours de calcul');
+        END IF;
+        RETURN feuille(c).cells(l).valeur;
+      END IF;
+    END IF;
+
+    feuille(c).cells(l).enCalcul := true;
+    val := calcCell( c, l );
+    IF ose_formule.debug_actif THEN
+      dbgCell( c, l, val );
+    END IF;
+    feuille(c).cells(l).valeur := val;
+    feuille(c).cells(l).enCalcul := false;
+
+    RETURN val;
+  END;
+
+  FUNCTION mainCell( libelle VARCHAR2, c VARCHAR2, l NUMERIC ) RETURN FLOAT IS
+    val FLOAT;
+  BEGIN
+    debugLine := l;
+    val := cell(c,l);
+
+    RETURN val;
+  END;
+
+  FUNCTION calcFnc( fncName VARCHAR2, c VARCHAR2 ) RETURN FLOAT IS
+    val FLOAT;
+    cellRes FLOAT;
+  BEGIN
+    IF feuille.exists('__' || fncName || '__' || c || '__') THEN
+      IF feuille('__' || fncName || '__' || c || '__').cells.exists(1) THEN
+        RETURN feuille('__' || fncName || '__' || c || '__').cells(1).valeur;
+      END IF;
+    END IF;
+    CASE
+    -- Liste des fonctions supportées
+
+    WHEN fncName = 'total' THEN
+      val := 0;
+      FOR l IN 1 .. ose_formule.volumes_horaires.length LOOP
+        val := val + COALESCE(cell(c, l),0);
+      END LOOP;
+
+    WHEN fncName = 'max' THEN
+      val := NULL;
+      FOR l IN 1 .. ose_formule.volumes_horaires.length LOOP
+        cellRes := cell(c,l);
+        IF val IS NULL OR val < cellRes THEN
+          val := cellRes;
+        END IF;
+      END LOOP;
+
+    -- fin de la liste des fonctions supportées
+    ELSE
+      raise_application_error( -20001, 'La formule "' || fncName || '" n''existe pas!');
+    END CASE;
+    IF ose_formule.debug_actif THEN
+      dbgCalc(fncName, c, val );
+    END IF;
+    feuille('__' || fncName || '__' || c || '__').cells(1).valeur := val;
+
+    RETURN val;
+  END;
+
+
+  FUNCTION calcVersion RETURN NUMERIC IS
+  BEGIN
+    RETURN 1;
+  END;
+
+
+
+  FUNCTION notInStructs( v VARCHAR2 DEFAULT NULL ) RETURN BOOLEAN IS
+  BEGIN
+    RETURN COALESCE(v,' ') NOT IN ('KE8','UP10');
+  END;
+
+
+
+  FUNCTION calcCell( c VARCHAR2, l NUMERIC ) RETURN FLOAT IS
+    vh ose_formule.t_volume_horaire;
+    i  ose_formule.t_intervenant;
+    v NUMERIC;
+    val FLOAT;
+  BEGIN
+    v := calcVersion;
+
+    i := ose_formule.intervenant;
+    IF l > 0 THEN
+      vh := ose_formule.volumes_horaires.items(l);
+    END IF;
+    CASE
+
+
+
+    -- T=SI($H20="Référentiel";0;$AI20*E20)
+    WHEN c = 'T' AND v >= 1 THEN
+      IF vh.volume_horaire_ref_id IS NOT NULL THEN
+        RETURN 0;
+      ELSE
+        RETURN cell('AI',l) * vh.taux_fi;
+      END IF;
+
+
+
+    -- U=SI($H20="Référentiel";0;$AI20*F20)
+    WHEN c = 'U' AND v >= 1 THEN
+      IF vh.volume_horaire_ref_id IS NOT NULL THEN
+        RETURN 0;
+      ELSE
+        RETURN cell('AI',l) * vh.taux_fa;
+      END IF;
+
+
+
+    -- V=SI($H20="Référentiel";0;$AI20*G20)
+    WHEN c = 'V' AND v >= 1 THEN
+      IF vh.volume_horaire_ref_id IS NOT NULL THEN
+        RETURN 0;
+      ELSE
+        RETURN cell('AI',l) * vh.taux_fc;
+      END IF;
+
+
+
+    -- W=SI($H20="Référentiel";$AI20;0)
+    WHEN c = 'W' AND v >= 1 THEN
+      IF vh.volume_horaire_ref_id IS NOT NULL THEN
+        RETURN cell('AI',l);
+      ELSE
+        RETURN 0;
+      END IF;
+
+
+
+    -- X=SI($H20="Référentiel";0;$AN20*E20)
+    WHEN c = 'X' AND v >= 1 THEN
+      IF vh.volume_horaire_ref_id IS NOT NULL THEN
+        RETURN 0;
+      ELSE
+        RETURN cell('AN',l) * vh.taux_fi;
+      END IF;
+
+
+
+    -- Y=SI($H20="Référentiel";0;$AN20*F20)
+    WHEN c = 'Y' AND v >= 1 THEN
+      IF vh.volume_horaire_ref_id IS NOT NULL THEN
+        RETURN 0;
+      ELSE
+        RETURN cell('AN',l) * vh.taux_fa;
+      END IF;
+
+
+
+    -- Z=SI($H20="Référentiel";0;$AN20*G20)
+    WHEN c = 'Z' AND v >= 1 THEN
+      IF vh.volume_horaire_ref_id IS NOT NULL THEN
+        RETURN 0;
+      ELSE
+        RETURN cell('AN',l) * vh.taux_fc;
+      END IF;
+
+
+
+    -- AA=0
+    WHEN c = 'AA' AND v >= 1 THEN
+      RETURN 0;
+
+
+
+    -- AB=SI($H20="Référentiel";$AN20;0)
+    WHEN c = 'AB' AND v >= 1 THEN
+      IF vh.volume_horaire_ref_id IS NOT NULL THEN
+        RETURN cell('AN',l);
+      ELSE
+        RETURN 0;
+      END IF;
+
+
+
+    -- AD=SI(ESTERREUR(I20);1;I20*K20)
+    WHEN c = 'AD' AND v >= 1 THEN
+      RETURN vh.taux_service_du * vh.ponderation_service_du;
+
+
+
+    -- AE=SI(ET($D20="Oui";$H20<>"Référentiel");$M20*$AD20;0)
+    WHEN c = 'AE' AND v >= 1 THEN
+      IF vh.service_statutaire AND vh.volume_horaire_ref_id IS NULL THEN
+        RETURN vh.heures * cell('AD',l);
+      ELSE
+        RETURN 0;
+      END IF;
+
+
+
+    -- AF19=SOMME(AE:AE)
+    WHEN c = 'AF19' AND v >= 1 THEN
+      RETURN calcFnc('total', 'AE');
+
+
+
+    -- AG=SI(ET($D20="Oui";OU($H20<>"Référentiel";$AF$19>=64));$M20*$AD20;0)
+    WHEN c = 'AG' AND v >= 1 THEN
+      IF vh.service_statutaire AND (vh.volume_horaire_ref_id IS NULL OR cell('AF19') >= 64) THEN
+        RETURN vh.heures * cell('AD',l);
+      ELSE
+        RETURN 0;
+      END IF;
+
+
+
+    -- AH=SI(AH19+AG20>i_service_du;i_service_du;AH19+AG20)
+    WHEN c = 'AH' AND v >= 1 THEN
+      IF l < 1 THEN
+        RETURN 0;
+      END IF;
+      IF cell('AH',l-1) + cell('AG',l) > i.service_du THEN
+        RETURN i.service_du;
+      ELSE
+        RETURN cell('AH',l-1) + cell('AG',l);
+      END IF;
+
+
+
+    -- AI=AH20-AH19
+    WHEN c = 'AI' AND v >= 1 THEN
+      RETURN cell('AH',l) - cell('AH',l-1);
+
+
+
+    -- AJ19=SOMME(AI:AI)
+    WHEN c = 'AJ19' AND v >= 1 THEN
+      RETURN calcFnc('total', 'AI');
+
+
+
+    -- AL=SI(AH19+AG20<i_service_du;0;((AH19+AG20)-i_service_du)/AD20)
+    WHEN c = 'AL' AND v >= 1 THEN
+      IF cell('AH',l-1) + cell('AG',l) < i.service_du THEN
+        RETURN 0;
+      ELSE
+        RETURN ((cell('AH',l-1)+ cell('AG',l))-i.service_du) / cell('AD',l);
+      END IF;
+
+
+
+    -- AM=SI(ESTERREUR(J20);1;J20*L20)
+    WHEN c = 'AM' AND v >= 1 THEN
+      RETURN vh.taux_service_compl * vh.ponderation_service_compl;
+
+
+
+    -- AN=SI(OU($AJ$19<i_service_du;i_depassement_service_du_sans_hc="Oui");0;(AL20+SI(D20<>"Oui";M20;0))*AM20)
+    WHEN c = 'AN' AND v >= 1 THEN
+      IF cell('AJ19') < i.service_du OR i.depassement_service_du_sans_hc THEN
+        RETURN 0;
+      ELSE
+        -- (AL20+SI(D20<>"Oui";M20;0))*AM20
+        IF NOT vh.service_statutaire THEN
+          RETURN (cell('AL',l) + vh.heures) * cell('AM', l);
+        ELSE
+          RETURN (cell('AL',l) + 0) * cell('AM', l);
+        END IF;
+      END IF;
+
+
+
+    ELSE
+      raise_application_error( -20001, 'La colonne c=' || c || ', l=' || l || ' n''existe pas!');
+  END CASE; END;
+
+
+
+  PROCEDURE CALCUL_RESULTAT IS
+  BEGIN
+    feuille.delete;
+
+    -- transmission des résultats aux volumes horaires et volumes horaires référentiel
+    FOR l IN 1 .. ose_formule.volumes_horaires.length LOOP
+      ose_formule.volumes_horaires.items(l).service_fi               := mainCell('Service FI', 'T',l);
+      ose_formule.volumes_horaires.items(l).service_fa               := mainCell('Service FA', 'U',l);
+      ose_formule.volumes_horaires.items(l).service_fc               := mainCell('Service FC', 'V',l);
+      ose_formule.volumes_horaires.items(l).service_referentiel      := mainCell('Service référentiel', 'W',l);
+      ose_formule.volumes_horaires.items(l).heures_compl_fi          := mainCell('Heures compl. FI', 'X',l);
+      ose_formule.volumes_horaires.items(l).heures_compl_fa          := mainCell('Heures compl. FA', 'Y',l);
+      ose_formule.volumes_horaires.items(l).heures_compl_fc          := mainCell('Heures compl. FC', 'Z',l);
+      ose_formule.volumes_horaires.items(l).heures_compl_fc_majorees := mainCell('Heures compl. FC Maj.', 'AA',l);
+      ose_formule.volumes_horaires.items(l).heures_compl_referentiel := mainCell('Heures compl. référentiel', 'AB',l);
+    END LOOP;
+  END;
+
+
+
+  FUNCTION INTERVENANT_QUERY RETURN CLOB IS
+  BEGIN
+    RETURN '
+    SELECT
+      fi.*,
+      NULL param_1,
+      NULL param_2,
+      NULL param_3,
+      NULL param_4,
+      NULL param_5
+    FROM
+      v_formule_intervenant fi
+    ';
+  END;
+
+
+
+  FUNCTION VOLUME_HORAIRE_QUERY RETURN CLOB IS
+  BEGIN
+    RETURN '
+    SELECT
+      fvh.*,
+      NULL param_1,
+      NULL param_2,
+      NULL param_3,
+      NULL param_4,
+      NULL param_5
+    FROM
+      v_formule_volume_horaire fvh
+    ORDER BY
+      ordre';
+  END;
+
+END FORMULE_RENNES2;
\ No newline at end of file

data/ddl/package/FORMULE_RENNES2/definition.sql

+CREATE OR REPLACE PACKAGE FORMULE_RENNES2 AS
+
+  PROCEDURE CALCUL_RESULTAT;
+
+  FUNCTION calcCell( c VARCHAR2, l NUMERIC ) RETURN FLOAT;
+
+  FUNCTION INTERVENANT_QUERY RETURN CLOB;
+  FUNCTION VOLUME_HORAIRE_QUERY RETURN CLOB;
+
+END FORMULE_RENNES2;
\ No newline at end of file

data/nomenclatures.php

@@ -119,10 +119,14 @@ return [
             'LIBELLE'      => 'Université Jean Monnet (Saint-Étienne)',
             'PACKAGE_NAME' => 'FORMULE_ST_ETIENNE',
         ],
-        8 => [
+        9  => [
             'LIBELLE'      => 'Université Côté d\'azur',
             'PACKAGE_NAME' => 'FORMULE_COTE_AZUR',
         ],
+        10 => [
+            'LIBELLE'      => 'Université Rennes 2',
+            'PACKAGE_NAME' => 'FORMULE_RENNES2',
+        ],
     ],
 
     'MODELE_CONTRAT' => [