Skip to content
Snippets Groups Projects
Commit 98dfaf1a authored by Laurent Lecluse's avatar Laurent Lecluse
Browse files

Ajout de la formule de calcul de Rennes2

parent 9cecf177
Branches
Tags
No related merge requests found
......@@ -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
";
......
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
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
......@@ -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' => [
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment