Ajout de la formule de calcul de Rennes2 (98dfaf1a) · Commits · open-source / OSE

code/FormuleTestColleur.php

+9 −19

Original line number	Diff line number	Diff line
		@@ -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

0 → 100644

+388 −0

Original line number	Diff line number	Diff line
		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

0 → 100644

+10 −0

Original line number	Diff line number	Diff line
		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

+13 −9

Original line number	Diff line number	Diff line
		@@ -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' => [