diff --git a/data/ddl/package/FORMULE_ST_ETIENNE/body.sql b/data/ddl/package/FORMULE_ST_ETIENNE/body.sql new file mode 100644 index 0000000000000000000000000000000000000000..51575f0b3273782dea80cf321e9eb67c5a510c65 --- /dev/null +++ b/data/ddl/package/FORMULE_ST_ETIENNE/body.sql @@ -0,0 +1,356 @@ +CREATE OR REPLACE PACKAGE BODY FORMULE_ST_ETIENNE 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;$AH20*E20) + WHEN c = 'T' AND v >= 1 THEN + IF vh.volume_horaire_ref_id IS NOT NULL THEN + RETURN 0; + ELSE + RETURN cell('AH',l) * vh.taux_fi; + END IF; + + + + -- U=SI($H20="Référentiel";0;$AH20*F20) + WHEN c = 'U' AND v >= 1 THEN + IF vh.volume_horaire_ref_id IS NOT NULL THEN + RETURN 0; + ELSE + RETURN cell('AH',l) * vh.taux_fa; + END IF; + + + + -- V=SI($H20="Référentiel";0;$AH20*G20) + WHEN c = 'V' AND v >= 1 THEN + IF vh.volume_horaire_ref_id IS NOT NULL THEN + RETURN 0; + ELSE + RETURN cell('AH',l) * vh.taux_fc; + END IF; + + + + -- W=SI($H20="Référentiel";$AH20;0) + WHEN c = 'W' AND v >= 1 THEN + IF vh.volume_horaire_ref_id IS NOT NULL THEN + RETURN cell('AH',l); + ELSE + RETURN 0; + END IF; + + + + -- X=SI($H20="Référentiel";0;$AJ20*E20) + WHEN c = 'X' AND v >= 1 THEN + IF vh.volume_horaire_ref_id IS NOT NULL THEN + RETURN 0; + ELSE + RETURN cell('AJ',l) * vh.taux_fi; + END IF; + + + + -- Y=SI($H20="Référentiel";0;$AJ20*F20) + WHEN c = 'Y' AND v >= 1 THEN + IF vh.volume_horaire_ref_id IS NOT NULL THEN + RETURN 0; + ELSE + RETURN cell('AJ',l) * vh.taux_fa; + END IF; + + + + -- Z=SI($H20="Référentiel";0;$AJ20*G20) + WHEN c = 'Z' AND v >= 1 THEN + IF vh.volume_horaire_ref_id IS NOT NULL THEN + RETURN 0; + ELSE + RETURN cell('AJ',l) * vh.taux_fc; + END IF; + + + + -- AA=0 + WHEN c = 'AA' AND v >= 1 THEN + RETURN 0; + + + + -- AB=SI($H20="Référentiel";$AJ20;0) + WHEN c = 'AB' AND v >= 1 THEN + IF vh.volume_horaire_ref_id IS NOT NULL THEN + RETURN cell('AJ',l); + ELSE + RETURN 0; + END IF; + + + + -- AD=SI(ESTERREUR(I20);1;I20) + WHEN c = 'AD' AND v >= 1 THEN + RETURN vh.taux_service_du; + + + + -- AE=SI(ESTERREUR(J20);1;J20) + WHEN c = 'AE' AND v >= 1 THEN + RETURN vh.taux_service_compl; + + + + -- AF=M20*AD20*K20 + WHEN c = 'AF' AND v >= 1 THEN + RETURN vh.heures * cell('AD',l) * vh.ponderation_service_du; + + + + -- AG=SI(AG$15>0;AF20/AG$15;0) + WHEN c = 'AG' AND v >= 1 THEN + IF cell('AG15') > 0 THEN + RETURN cell('AF',l) / cell('AG15'); + ELSE + RETURN 0; + END IF; + + + + -- AH=MIN(i_service_du;AG$15)*AG20 + WHEN c = 'AH' AND v >= 1 THEN + RETURN LEAST(i.service_du, cell('AG15')) * cell('AG',l); + + + + -- AI=(AF20-AH20)/AD20*K20 + WHEN c = 'AI' AND v >= 1 THEN + RETURN (cell('AF',l) - cell('AH',l)) / cell('AD',l) * vh.ponderation_service_du; + + + + -- AJ=SI($D$8="Oui";0;AI20*AE20*L20) + WHEN c = 'AJ' AND v >= 1 THEN + IF i.depassement_service_du_sans_hc THEN + RETURN 0; + ELSE + RETURN cell('AI',l) * cell('AE',l) * vh.ponderation_service_compl; + END IF; + + + + -- AG15=SOMME(AF:AF) + WHEN c = 'AG15' AND v >= 1 THEN + RETURN calcFnc('total', 'AF'); + + + + 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_ST_ETIENNE; \ No newline at end of file diff --git a/data/ddl/package/FORMULE_ST_ETIENNE/definition.sql b/data/ddl/package/FORMULE_ST_ETIENNE/definition.sql new file mode 100644 index 0000000000000000000000000000000000000000..4b2f56fff2bd7e39ead061f4608b1bef372ba1d4 --- /dev/null +++ b/data/ddl/package/FORMULE_ST_ETIENNE/definition.sql @@ -0,0 +1,10 @@ +CREATE OR REPLACE PACKAGE FORMULE_ST_ETIENNE 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_ST_ETIENNE; \ No newline at end of file diff --git a/data/nomenclatures.php b/data/nomenclatures.php index 50393c78e5cda0f6c17b1f24967b94b6f9e15d3d..bfc78a193282062970ae1a1c3977f801e0f6c319 100644 --- a/data/nomenclatures.php +++ b/data/nomenclatures.php @@ -115,6 +115,10 @@ return [ 'LIBELLE' => 'Université Lumière Lyon 2', 'PACKAGE_NAME' => 'FORMULE_LYON2', ], + 8 => [ + 'LIBELLE' => 'Université Jean Monnet (Saint-Étienne)', + 'PACKAGE_NAME' => 'FORMULE_ST_ETIENNE', + ], ], 'MODELE_CONTRAT' => [