Formule de Picardie (1d11726e) · Commits · open-source / OSE

data/ddl/package/FORMULE_PICARDIE/body.sql

0 → 100644

+696 −0

Original line number	Diff line number	Diff line
		CREATE OR REPLACE PACKAGE BODY FORMULE_PICARDIE AS
		decalageLigne NUMERIC DEFAULT 19;

		/* 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 dbgi( val CLOB ) IS
		BEGIN
		ose_formule.intervenant.debug_info := ose_formule.intervenant.debug_info \|\| val;
		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 9999 ) RETURN FLOAT IS
		val FLOAT;
		BEGIN
		IF l = 0 THEN
		RETURN 0;
		END IF;

		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 = 'somme' 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 calcCell( c VARCHAR2, l NUMERIC ) RETURN FLOAT IS
		vh ose_formule.t_volume_horaire;
		i ose_formule.t_intervenant;
		val FLOAT;
		BEGIN
		i := ose_formule.intervenant;
		IF l > 0 AND l <> 9999 THEN
		vh := ose_formule.volumes_horaires.items(l);
		END IF;
		CASE c



		-- T=IF([.$H20]="Référentiel";0;IF([.$E20]+[.$F20]=0;0;([.$AI20]+[.$AU20])/([.$E20]+[.$F20]))*[.E20])
		WHEN 'T' THEN
		IF vh.volume_horaire_ref_id IS NOT NULL THEN
		RETURN 0;
		ELSE
		IF vh.taux_fi + vh.taux_fa = 0 THEN
		RETURN 0;
		ELSE
		RETURN ((cell('AI',l) + cell('AU',l)) / (vh.taux_fi + vh.taux_fa)) * vh.taux_fi;
		END IF;
		END IF;



		-- U=IF([.$H20]="Référentiel";0;IF([.$E20]+[.$F20]=0;0;([.$AI20]+[.$AU20])/([.$E20]+[.$F20]))*[.F20])
		WHEN 'U' THEN
		IF vh.volume_horaire_ref_id IS NOT NULL THEN
		RETURN 0;
		ELSE
		IF vh.taux_fi + vh.taux_fa = 0 THEN
		RETURN 0;
		ELSE
		RETURN ((cell('AI',l) + cell('AU',l)) / (vh.taux_fi + vh.taux_fa)) * vh.taux_fa;
		END IF;
		END IF;



		-- V=IF([.$H20]="Référentiel";0;[.BG20]+[.BM20])
		WHEN 'V' THEN
		IF vh.volume_horaire_ref_id IS NOT NULL THEN
		RETURN 0;
		ELSE
		RETURN cell('BG',l) + cell('BM',l);
		END IF;



		-- W=IF([.$H20]="Référentiel";[.$AO20]+[.$BA20];0)
		WHEN 'W' THEN
		IF vh.volume_horaire_ref_id IS NOT NULL THEN
		RETURN cell('AO',l) + cell('BA',l);
		ELSE
		RETURN 0;
		END IF;



		-- X=IF([.$H20]="Référentiel";0;IF([.$E20]+[.$F20]=0;0;([.$AK20]+[.$AW20])/([.$E20]+[.$F20]))*[.E20])
		WHEN 'X' THEN
		IF vh.volume_horaire_ref_id IS NOT NULL THEN
		RETURN 0;
		ELSE
		IF vh.taux_fi + vh.taux_fa = 0 THEN
		RETURN 0;
		ELSE
		RETURN ((cell('AK',l) + cell('AW',l)) / (vh.taux_fi + vh.taux_fa)) * vh.taux_fi;
		END IF;
		END IF;



		-- Y=IF([.$H20]="Référentiel";0;IF([.$E20]+[.$F20]=0;0;([.$AK20]+[.$AW20])/([.$E20]+[.$F20]))*[.F20])
		WHEN 'Y' THEN
		IF vh.volume_horaire_ref_id IS NOT NULL THEN
		RETURN 0;
		ELSE
		IF vh.taux_fi + vh.taux_fa = 0 THEN
		RETURN 0;
		ELSE
		RETURN ((cell('AK',l) + cell('AW',l)) / (vh.taux_fi + vh.taux_fa)) * vh.taux_fa;
		END IF;
		END IF;



		-- Z=IF([.$H20]="Référentiel";0;[.BI20]+[.BO20])
		WHEN 'Z' THEN
		IF vh.volume_horaire_ref_id IS NOT NULL THEN
		RETURN 0;
		ELSE
		RETURN cell('BI',l) + cell('BO',l);
		END IF;



		-- AA=0
		WHEN 'AA' THEN
		RETURN 0;



		-- AB=IF([.$H20]="Référentiel";[.$AQ20]+[.$BC20];0)
		WHEN 'AB' THEN
		IF vh.volume_horaire_ref_id IS NOT NULL THEN
		RETURN cell('AQ',l) + cell('BC',l);
		ELSE
		RETURN 0;
		END IF;



		-- AD=IF(ISERROR([.I20]);1;[.I20])
		WHEN 'AD' THEN
		RETURN vh.taux_service_du;



		-- AE=IF(ISERROR([.J20]);1;[.J20])
		WHEN 'AE' THEN
		RETURN vh.taux_service_compl;



		-- AG=IF(AND([.$D20]="Oui";[.$H20]<>"Référentiel";[.$A20]=i_structure_code);[.$M20]([.$E20]+[.$F20])[.$AD20];0)
		WHEN 'AG' THEN
		IF vh.service_statutaire AND vh.volume_horaire_ref_id IS NULL AND vh.structure_is_affectation THEN
		RETURN vh.heures * (vh.taux_fi + vh.taux_fa) * cell('AD',l);
		ELSE
		RETURN 0;
		END IF;



		-- AH15=SUM([.AG$1:.AG$1048576])
		WHEN 'AH15' THEN
		RETURN calcFnc('somme','AG');



		-- AH16=MIN([.AH15];i_service_du)
		WHEN 'AH16' THEN
		RETURN LEAST(cell('AH15'), i.service_du);



		-- AH17=i_service_du-[.AH16]
		WHEN 'AH17' THEN
		RETURN i.service_du - cell('AH16');



		-- AH=IF([.AH$15]>0;[.AG20]/[.AH$15];0)
		WHEN 'AH' THEN
		IF cell('AH15') > 0 THEN
		RETURN cell('AG',l) / cell('AH15');
		ELSE
		RETURN 0;
		END IF;



		-- AI=[.AH$16]*[.AH20]
		WHEN 'AI' THEN
		RETURN cell('AH16') * cell('AH',l);



		-- AJ=IF([.AH$17]=0;([.AG20]-[.AI20])/[.$AD20];0)
		WHEN 'AJ' THEN
		IF cell('AH17') = 0 THEN
		RETURN (cell('AG',l) - cell('AI',l)) / cell('AD',l);
		ELSE
		RETURN 0;
		END IF;



		-- AK=IF(i_depassement_service_du_sans_hc="Non";[.AJ20]*[.$AE20];0)
		WHEN 'AK' THEN
		IF NOT i.depassement_service_du_sans_hc THEN
		RETURN cell('AJ',l) * cell('AE',l);
		ELSE
		RETURN 0;
		END IF;



		-- AM=IF(AND([.$D20]="Oui";[.$H20]="Référentiel";[.$A20]=i_structure_code);[.$M20]*[.$AD20];0)
		WHEN 'AM' THEN
		IF vh.service_statutaire AND vh.volume_horaire_ref_id IS NOT NULL AND vh.structure_is_affectation THEN
		RETURN vh.heures * cell('AD',l);
		ELSE
		RETURN 0;
		END IF;



		-- AN15=SUM([.AM$1:.AM$1048576])
		WHEN 'AN15' THEN
		RETURN calcFnc('somme','AM');



		-- AN16=MIN([.AN15];[.AH17])
		WHEN 'AN16' THEN
		RETURN LEAST(cell('AN15'), cell('AH17'));



		-- AN17=[.AH17]-[.AN16]
		WHEN 'AN17' THEN
		RETURN cell('AH17') - cell('AN16');



		-- AN=IF([.AN$15]>0;[.AM20]/[.AN$15];0)
		WHEN 'AN' THEN
		IF cell('AN15') > 0 THEN
		RETURN cell('AM',l) / cell('AN15');
		ELSE
		RETURN 0;
		END IF;



		-- AO=[.AN$16]*[.AN20]
		WHEN 'AO' THEN
		RETURN cell('AN16') * cell('AN',l);



		-- AP=IF([.AN$17]=0;([.AM20]-[.AO20])/[.$AD20];0)
		WHEN 'AP' THEN
		IF cell('AN17') = 0 THEN
		RETURN (cell('AM',l) - cell('AO',l)) / cell('AD',l);
		ELSE
		RETURN 0;
		END IF;



		-- AQ=IF(i_depassement_service_du_sans_hc="Non";[.AP20]*[.$AE20];0)
		WHEN 'AQ' THEN
		IF NOT i.depassement_service_du_sans_hc THEN
		RETURN cell('AP',l) * cell('AE',l);
		ELSE
		RETURN 0;
		END IF;



		-- AS=IF(AND([.$D20]="Oui";[.$H20]<>"Référentiel";[.$A20]<>i_structure_code);[.$M20]([.$E20]+[.$F20])[.$AD20];0)
		WHEN 'AS' THEN
		IF vh.service_statutaire AND vh.volume_horaire_ref_id IS NULL AND NOT vh.structure_is_affectation THEN
		RETURN vh.heures * (vh.taux_fi + vh.taux_fa) * cell('AD',l);
		ELSE
		RETURN 0;
		END IF;



		-- AT15=SUM([.AS$1:.AS$1048576])
		WHEN 'AT15' THEN
		RETURN calcFnc('somme','AS');



		-- AT16=MIN([.AT15];[.AN17])
		WHEN 'AT16' THEN
		RETURN LEAST(cell('AT15'), cell('AN17'));



		-- AT17=[.AN17]-[.AT16]
		WHEN 'AT17' THEN
		RETURN cell('AN17') - cell('AT16');



		-- AT=IF([.AT$15]>0;[.AS20]/[.AT$15];0)
		WHEN 'AT' THEN
		IF cell('AT15') > 0 THEN
		RETURN cell('AS',l) / cell('AT15');
		ELSE
		RETURN 0;
		END IF;



		-- AU=[.AT$16]*[.AT20]
		WHEN 'AU' THEN
		RETURN cell('AT16') * cell('AT',l);



		-- AV=IF([.AT$17]=0;([.AS20]-[.AU20])/[.$AD20];0)
		WHEN 'AV' THEN
		IF cell('AT17') = 0 THEN
		RETURN (cell('AS',l) - cell('AU',l)) / cell('AD',l);
		ELSE
		RETURN 0;
		END IF;



		-- AW=IF(i_depassement_service_du_sans_hc="Non";[.AV20]*[.$AE20];0)
		WHEN 'AW' THEN
		IF NOT i.depassement_service_du_sans_hc THEN
		RETURN cell('AV',l) * cell('AE',l);
		ELSE
		RETURN 0;
		END IF;



		-- AY=IF(AND([.$D20]="Oui";[.$H20]="Référentiel";[.$A20]<>i_structure_code);[.$M20]*[.$AD20];0)
		WHEN 'AY' THEN
		IF vh.service_statutaire AND vh.volume_horaire_ref_id IS NOT NULL AND NOT vh.structure_is_affectation THEN
		RETURN vh.heures * cell('AD',l);
		ELSE
		RETURN 0;
		END IF;



		-- AZ15=SUM([.AY$1:.AY$1048576])
		WHEN 'AZ15' THEN
		RETURN calcFnc('somme','AY');



		-- AZ16=MIN([.AZ15];[.AT17])
		WHEN 'AZ16' THEN
		RETURN LEAST(cell('AZ15'), cell('AT17'));



		-- AZ17=[.AT17]-[.AZ16]
		WHEN 'AZ17' THEN
		RETURN cell('AT17') - cell('AZ16');



		-- AZ=IF([.AZ$15]>0;[.AY20]/[.AZ$15];0)
		WHEN 'AZ' THEN
		IF cell('AZ15') > 0 THEN
		RETURN cell('AY',l) / cell('AZ15');
		ELSE
		RETURN 0;
		END IF;



		-- BA=[.AZ$16]*[.AZ20]
		WHEN 'BA' THEN
		RETURN cell('AZ16') * cell('AZ',l);



		-- BB=IF([.AZ$17]=0;([.AY20]-[.BA20])/[.$AD20];0)
		WHEN 'BB' THEN
		IF cell('AZ17') = 0 THEN
		RETURN (cell('AY',l) - cell('BA',l)) / cell('AD',l);
		ELSE
		RETURN 0;
		END IF;



		-- BC=IF(i_depassement_service_du_sans_hc="Non";[.BB20]*[.$AE20];0)
		WHEN 'BC' THEN
		IF NOT i.depassement_service_du_sans_hc THEN
		RETURN cell('BB',l) * cell('AE',l);
		ELSE
		RETURN 0;
		END IF;



		-- BE=IF(AND([.$D20]="Oui";[.$H20]<>"Référentiel";[.$A20]=i_structure_code);[.$M20][.$G20][.$AD20];0)
		WHEN 'BE' THEN
		IF vh.service_statutaire AND vh.volume_horaire_ref_id IS NULL AND vh.structure_is_affectation THEN
		RETURN vh.heures * vh.taux_fc * cell('AD',l);
		ELSE
		RETURN 0;
		END IF;



		-- BF15=SUM([.BE$1:.BE$1048576])
		WHEN 'BF15' THEN
		RETURN calcFnc('somme','BE');



		-- BF16=MIN([.BF15];[.AZ17])
		WHEN 'BF16' THEN
		RETURN LEAST(cell('BF15'), cell('AZ17'));



		-- BF17=[.AZ17]-[.BF16]
		WHEN 'BF17' THEN
		RETURN cell('AZ17') - cell('BF16');



		-- BF=IF([.BF$15]>0;[.BE20]/[.BF$15];0)
		WHEN 'BF' THEN
		IF cell('BF15') > 0 THEN
		RETURN cell('BE',l) / cell('BF15');
		ELSE
		RETURN 0;
		END IF;



		-- BG=[.BF$16]*[.BF20]
		WHEN 'BG' THEN
		RETURN cell('BF16') * cell('BF',l);



		-- BH=IF([.BF$17]=0;([.BE20]-[.BG20])/[.$AD20];0)
		WHEN 'BH' THEN
		IF cell('BF17') = 0 THEN
		RETURN (cell('BE',l) - cell('BG',l)) / cell('AD',l);
		ELSE
		RETURN 0;
		END IF;



		-- BI=IF(i_depassement_service_du_sans_hc="Non";[.BH20]*[.$AE20];0)
		WHEN 'BI' THEN
		IF NOT i.depassement_service_du_sans_hc THEN
		RETURN cell('BH',l) * cell('AE',l);
		ELSE
		RETURN 0;
		END IF;



		-- BK=IF(AND([.$D20]="Oui";[.$H20]<>"Référentiel";[.$A20]<>i_structure_code);[.$M20][.$G20][.$AD20];0)
		WHEN 'BK' THEN
		IF vh.service_statutaire AND vh.volume_horaire_ref_id IS NULL AND NOT vh.structure_is_affectation THEN
		RETURN vh.heures * vh.taux_fc * cell('AD',l);
		ELSE
		RETURN 0;
		END IF;



		-- BL15=SUM([.BK$1:.BK$1048576])
		WHEN 'BL15' THEN
		RETURN calcFnc('somme','BK');



		-- BL16=MIN([.BL15];[.BF17])
		WHEN 'BL16' THEN
		RETURN LEAST(cell('BL15'), cell('BF17'));



		-- BL17=[.BF17]-[.BL16]
		WHEN 'BL17' THEN
		RETURN cell('BF17') - cell('BL16');



		-- BL=IF([.BL$15]>0;[.BK20]/[.BL$15];0)
		WHEN 'BL' THEN
		IF cell('BL15') > 0 THEN
		RETURN cell('BK',l) / cell('BL15');
		ELSE
		RETURN 0;
		END IF;



		-- BM=[.BL$16]*[.BL20]
		WHEN 'BM' THEN
		RETURN cell('BL16') * cell('BL',l);



		-- BN=IF([.BL$17]=0;([.BK20]-[.BM20])/[.$AD20];0)
		WHEN 'BN' THEN
		IF cell('BL17') = 0 THEN
		RETURN (cell('BK',l) - cell('BM',l)) / cell('AD',l);
		ELSE
		RETURN 0;
		END IF;



		-- BO=IF(i_depassement_service_du_sans_hc="Non";[.BN20]*[.$AE20];0)
		WHEN 'BO' THEN
		IF NOT i.depassement_service_du_sans_hc THEN
		RETURN cell('BN',l) * cell('AE',l);
		ELSE
		RETURN 0;
		END IF;




		ELSE
		dbms_output.put_line('La colonne c=' \|\| c \|\| ', l=' \|\| l \|\| ' n''existe pas!');
		raise_application_error( -20001, 'La colonne c=' \|\| c \|\| ', l=' \|\| l \|\| ' n''existe pas!');
		END CASE;
		raise_application_error( -20001, 'La colonne c=' \|\| c \|\| ', l=' \|\| l \|\| ' n''existe pas!');

		END;



		PROCEDURE CALCUL_RESULTAT IS
		BEGIN
		feuille.delete;

		IF ose_formule.intervenant.depassement_service_du_sans_hc THEN -- HC traitées comme du service
		ose_formule.intervenant.service_du := ose_formule.intervenant.heures_service_statutaire + ose_formule.intervenant.heures_service_modifie;
		END IF;

		-- 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_PICARDIE;
		No newline at end of file

data/ddl/package/FORMULE_PICARDIE/definition.sql

0 → 100644

+10 −0

Original line number	Diff line number	Diff line
		CREATE OR REPLACE PACKAGE FORMULE_PICARDIE 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_PICARDIE;
		No newline at end of file

data/formules.php

+9 −0

Original line number	Diff line number	Diff line
		@@ -106,4 +106,13 @@ return [
		'PACKAGE_NAME' => 'FORMULE_ROUEN',
		'VH_PARAM_1_LIBELLE' => 'Type de référentiel',
		],
		26 => [
		'LIBELLE' => 'Université de Picardie Jules Verne',
		'PACKAGE_NAME' => 'FORMULE_PICARDIE',
		'VH_PARAM_1_LIBELLE' => 'param 1',
		'VH_PARAM_2_LIBELLE' => 'param 2',
		'VH_PARAM_3_LIBELLE' => 'param 3',
		'VH_PARAM_4_LIBELLE' => 'param 4',
		'VH_PARAM_5_LIBELLE' => 'param 5',
		],
		];
		No newline at end of file