diff --git a/code/FormuleTestColleur.php b/code/FormuleTestColleur.php index c5286cfb56dd0699cf6d85d6987e14316e1c5a8b..2d54a82066a1476aa1a849fb24e8925d9ff4fa13 100644 --- a/code/FormuleTestColleur.php +++ b/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 "; diff --git a/data/ddl/package/FORMULE_RENNES2/body.sql b/data/ddl/package/FORMULE_RENNES2/body.sql new file mode 100644 index 0000000000000000000000000000000000000000..552ba931115715d0940fe31c2e151fbc8e64940a --- /dev/null +++ b/data/ddl/package/FORMULE_RENNES2/body.sql @@ -0,0 +1,388 @@ +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 diff --git a/data/ddl/package/FORMULE_RENNES2/definition.sql b/data/ddl/package/FORMULE_RENNES2/definition.sql new file mode 100644 index 0000000000000000000000000000000000000000..3bac6d0d5d8c81f9084f9d60ba4959d6f9557102 --- /dev/null +++ b/data/ddl/package/FORMULE_RENNES2/definition.sql @@ -0,0 +1,10 @@ +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 diff --git a/data/nomenclatures.php b/data/nomenclatures.php index dd32d13e046bc0c33ee13dcc9681eec867a8c5a8..f8f9d831ea96fb04cc212a9b424950bda03c51a0 100644 --- a/data/nomenclatures.php +++ b/data/nomenclatures.php @@ -85,44 +85,48 @@ return [ ], 'FORMULE' => [ - 1 => [ + 1 => [ 'LIBELLE' => 'Université de Caen', 'PACKAGE_NAME' => 'FORMULE_UNICAEN', ], - 2 => [ + 2 => [ 'LIBELLE' => 'Université de Montpellier', 'PACKAGE_NAME' => 'FORMULE_MONTPELLIER', ], - 3 => [ + 3 => [ 'LIBELLE' => 'Université Le Havre Normandie', 'PACKAGE_NAME' => 'FORMULE_ULHN', ], - 4 => [ + 4 => [ 'LIBELLE' => 'Université de Nanterre', 'PACKAGE_NAME' => 'FORMULE_NANTERRE', ], - 5 => [ + 5 => [ 'LIBELLE' => 'Université de Bretagne Occidentale', 'PACKAGE_NAME' => 'FORMULE_UBO', 'I_PARAM_1_LIBELLE' => 'EC/Associé/Docteur', 'I_PARAM_2_LIBELLE' => 'Lecteur/ATER', ], - 6 => [ + 6 => [ 'LIBELLE' => 'Ensicaen', 'PACKAGE_NAME' => 'FORMULE_ENSICAEN', ], - 7 => [ + 7 => [ 'LIBELLE' => 'Université Lumière Lyon 2', 'PACKAGE_NAME' => 'FORMULE_LYON2', ], - 8 => [ + 8 => [ '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' => [