diff --git a/data/ddl/package/FORMULE_PICARDIE/body.sql b/data/ddl/package/FORMULE_PICARDIE/body.sql new file mode 100644 index 0000000000000000000000000000000000000000..f27e1f05960d37b99f8121fd0d69b63a2abb5a91 --- /dev/null +++ b/data/ddl/package/FORMULE_PICARDIE/body.sql @@ -0,0 +1,696 @@ +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 diff --git a/data/ddl/package/FORMULE_PICARDIE/definition.sql b/data/ddl/package/FORMULE_PICARDIE/definition.sql new file mode 100644 index 0000000000000000000000000000000000000000..eebb3c3b537a8a80369ca4af0aa8a1477dcf1a61 --- /dev/null +++ b/data/ddl/package/FORMULE_PICARDIE/definition.sql @@ -0,0 +1,10 @@ +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 diff --git a/data/formules.php b/data/formules.php index 1e6448458c94187296ff30e05e0dcb8bff814d09..041c81fb19bd7fd5b62b0ade36417c68e99a27c0 100644 --- a/data/formules.php +++ b/data/formules.php @@ -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