diff --git a/data/ddl/package/FORMULE_COTE_AZUR/body.sql b/data/ddl/package/FORMULE_COTE_AZUR/body.sql new file mode 100644 index 0000000000000000000000000000000000000000..d498ff3dd5b8f5fc1680ea03f9d9d845474b0fbb --- /dev/null +++ b/data/ddl/package/FORMULE_COTE_AZUR/body.sql @@ -0,0 +1,373 @@ +CREATE OR REPLACE PACKAGE BODY FORMULE_COTE_AZUR 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;$AG20*E20) + WHEN c = 'T' AND v >= 1 THEN + IF vh.volume_horaire_ref_id IS NOT NULL THEN + RETURN 0; + ELSE + RETURN cell('AG',l) * vh.taux_fi; + END IF; + + + + -- U=SI($H20="Référentiel";0;$AG20*F20) + WHEN c = 'U' AND v >= 1 THEN + IF vh.volume_horaire_ref_id IS NOT NULL THEN + RETURN 0; + ELSE + RETURN cell('AG',l) * vh.taux_fa; + END IF; + + + + -- V=SI($H20="Référentiel";0;$AG20*G20) + WHEN c = 'V' AND v >= 1 THEN + IF vh.volume_horaire_ref_id IS NOT NULL THEN + RETURN 0; + ELSE + RETURN cell('AG',l) * vh.taux_fc; + END IF; + + + + -- W=SI($H20="Référentiel";$AG20;0) + WHEN c = 'W' AND v >= 1 THEN + IF vh.volume_horaire_ref_id IS NOT NULL THEN + RETURN cell('AG',l); + ELSE + RETURN 0; + END IF; + + + + -- X=SI($H20="Référentiel";0;$AK20*E20) + WHEN c = 'X' AND v >= 1 THEN + IF vh.volume_horaire_ref_id IS NOT NULL THEN + RETURN 0; + ELSE + RETURN cell('AK',l) * vh.taux_fi; + END IF; + + + + -- Y=SI($H20="Référentiel";0;$AK20*F20) + WHEN c = 'Y' AND v >= 1 THEN + IF vh.volume_horaire_ref_id IS NOT NULL THEN + RETURN 0; + ELSE + RETURN cell('AK',l) * vh.taux_fa; + END IF; + + + + -- Z=SI($H20="Référentiel";0;$AK20*G20) + WHEN c = 'Z' AND v >= 1 THEN + IF vh.volume_horaire_ref_id IS NOT NULL THEN + RETURN 0; + ELSE + RETURN cell('AK',l) * vh.taux_fc; + END IF; + + + + -- AA=0 + WHEN c = 'AA' AND v >= 1 THEN + RETURN 0; + + + + -- AB=SI($H20="Référentiel";$AK20;0) + WHEN c = 'AB' AND v >= 1 THEN + IF vh.volume_horaire_ref_id IS NOT NULL THEN + RETURN cell('AK',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($D20="Oui";$M20*$AD20;0) + WHEN c = 'AE' AND v >= 1 THEN + IF vh.service_statutaire THEN + RETURN vh.heures * cell('AD',l); + ELSE + RETURN 0; + END IF; + + + + -- AF=SI(AF19+AE20>i_service_du;i_service_du;AF19+AE20) + WHEN c = 'AF' AND v >= 1 THEN + IF l < 1 THEN + RETURN 0; + END IF; + IF cell('AF',l-1) + cell('AE',l) > i.service_du THEN + RETURN i.service_du; + ELSE + RETURN cell('AF',l-1) + cell('AE',l); + END IF; + + + + -- AG=AF20-AF19 + WHEN c = 'AG' AND v >= 1 THEN + RETURN cell('AF',l) - cell('AF',l-1); + + + + -- AH19=SOMME(AG:AG) + WHEN c = 'AH19' AND v >= 1 THEN + RETURN calcFnc('total', 'AG'); + + + + + -- AI=SI(AF19+AE20<i_service_du;0;((AF19+AE20)-i_service_du)/AD20) + WHEN c = 'AI' AND v >= 1 THEN + IF cell('AF',l-1) + cell('AE',l) < i.service_du THEN + RETURN 0; + ELSE + RETURN (cell('AF',l-1) + cell('AE',l) - i.service_du) / cell('AD',l); + END IF; + + + + -- AJ=SI(ESTERREUR(J20);1;J20) + WHEN c = 'AJ' AND v >= 1 THEN + RETURN vh.taux_service_compl; + + + + -- AK=SI(OU($AH$19<i_service_du;i_depassement_service_du_sans_hc="Oui");0;(AI20+SI(D20<>"Oui";M20;0))*AJ20) + WHEN c = 'AK' AND v >= 1 THEN + IF cell('AH19') < i.service_du OR i.depassement_service_du_sans_hc THEN + RETURN 0; + ELSE + IF NOT vh.service_statutaire THEN + RETURN (cell('AI',l) + vh.heures) * cell('AJ',l); + ELSE + RETURN (cell('AI',l) + 0) * cell('AJ',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_COTE_AZUR; \ No newline at end of file diff --git a/data/ddl/package/FORMULE_COTE_AZUR/definition.sql b/data/ddl/package/FORMULE_COTE_AZUR/definition.sql new file mode 100644 index 0000000000000000000000000000000000000000..2bc17433071c74191f885e618cb69c5427cd20d4 --- /dev/null +++ b/data/ddl/package/FORMULE_COTE_AZUR/definition.sql @@ -0,0 +1,10 @@ +CREATE OR REPLACE PACKAGE FORMULE_COTE_AZUR 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_COTE_AZUR; \ No newline at end of file diff --git a/data/nomenclatures.php b/data/nomenclatures.php index bfc78a193282062970ae1a1c3977f801e0f6c319..dd32d13e046bc0c33ee13dcc9681eec867a8c5a8 100644 --- a/data/nomenclatures.php +++ b/data/nomenclatures.php @@ -119,6 +119,10 @@ return [ 'LIBELLE' => 'Université Jean Monnet (Saint-Étienne)', 'PACKAGE_NAME' => 'FORMULE_ST_ETIENNE', ], + 8 => [ + 'LIBELLE' => 'Université Côté d\'azur', + 'PACKAGE_NAME' => 'FORMULE_COTE_AZUR', + ], ], 'MODELE_CONTRAT' => [