Formule de LILLE

data/ddl/package/FORMULE_LILLE/body.sql

+create or replace PACKAGE BODY FORMULE_LILLE 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+$AO20+$CQ20)
+    WHEN c = 'T' AND v >= 1 THEN
+      IF vh.volume_horaire_ref_id IS NOT NULL THEN
+        RETURN 0;
+      ELSE
+        RETURN cell('AI',l) + cell('AO',l) + cell('CQ',l);
+      END IF;
+
+
+
+    -- U=SI($H20="Référentiel";0;$AU20+$BG20)
+    WHEN c = 'U' AND v >= 1 THEN
+      IF vh.volume_horaire_ref_id IS NOT NULL THEN
+        RETURN 0;
+      ELSE
+        RETURN cell('AU',l) + cell('BG',l);
+      END IF;
+
+
+
+    -- V=SI($H20="Référentiel";0;$BA20+$BM20)
+    WHEN c = 'V' AND v >= 1 THEN
+      IF vh.volume_horaire_ref_id IS NOT NULL THEN
+        RETURN 0;
+      ELSE
+        RETURN cell('BA',l) + cell('BM',l);
+      END IF;
+
+
+
+    -- W=SI($H20="Référentiel";$BS20+$BY20+$CE20+$CK20;0)
+    WHEN c = 'W' AND v >= 1 THEN
+      IF vh.volume_horaire_ref_id IS NOT NULL THEN
+        RETURN cell('BS',l) + cell('BY',l) + cell('CE',l) + cell('CK',l);
+      ELSE
+        RETURN 0;
+      END IF;
+
+
+
+    -- X=SI($H20="Référentiel";0;$AK20+$AQ20+$CS20)
+    WHEN c = 'X' AND v >= 1 THEN
+      IF vh.volume_horaire_ref_id IS NOT NULL THEN
+        RETURN 0;
+      ELSE
+        RETURN cell('AK',l) + cell('AQ',l) + cell('CS',l);
+      END IF;
+
+
+
+    -- Y=SI($H20="Référentiel";0;$AW20+$BI20)
+    WHEN c = 'Y' AND v >= 1 THEN
+      IF vh.volume_horaire_ref_id IS NOT NULL THEN
+        RETURN 0;
+      ELSE
+        RETURN cell('AW',l) + cell('BI',l);
+      END IF;
+
+
+
+    -- Z=SI($H20="Référentiel";0;$BC20+$BO20)
+    WHEN c = 'Z' AND v >= 1 THEN
+      IF vh.volume_horaire_ref_id IS NOT NULL THEN
+        RETURN 0;
+      ELSE
+        RETURN cell('BC',l) + cell('BO',l);
+      END IF;
+
+
+
+    -- AA=0
+    WHEN c = 'AA' AND v >= 1 THEN
+      RETURN 0;
+
+
+
+    -- AB=SI($H20="Référentiel";$BU20+$CA20+$CG20+$CM20;0)
+    WHEN c = 'AB' AND v >= 1 THEN
+      IF vh.volume_horaire_ref_id IS NOT NULL THEN
+        RETURN cell('BU',l) + cell('CA',l) + cell('CG',l) + cell('CM',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(ESTERREUR(J20);1;J20)
+    WHEN c = 'AE' AND v >= 1 THEN
+      RETURN vh.taux_service_compl;
+
+
+
+    -- AG=SI(ET($D20="Oui";$N20<>"Oui";$H20<>"Référentiel";$A20=i_structure_code);$M20*$E20*$AD20;0)
+    WHEN c = 'AG' AND v >= 1 THEN
+      IF vh.service_statutaire AND vh.structure_code IS NOT NULL AND vh.volume_horaire_ref_id IS NULL AND vh.structure_is_affectation THEN
+        RETURN vh.heures * vh.taux_fi * cell('AD',l);
+      ELSE
+        RETURN 0;
+      END IF;
+
+
+
+    -- AH=SI(AH$15>0;AG20/AH$15;0)
+    WHEN c = 'AH' AND v >= 1 THEN
+      IF cell('AH15') > 0 THEN
+        RETURN cell('AG',l) / cell('AH15');
+      ELSE
+        RETURN 0;
+      END IF;
+
+
+
+    -- AI=AH$16*AH20
+    WHEN c = 'AI' AND v >= 1 THEN
+      RETURN cell('AH16') * cell('AH',l);
+
+
+
+    -- AJ=SI(AH$17=0;(AG20-AI20)/$AD20;0)
+    WHEN c = 'AJ' AND v >= 1 THEN
+      IF cell('AH17') = 0 THEN
+        RETURN (cell('AG',l) - cell('AI',l)) / cell('AD',l);
+      ELSE
+        RETURN 0;
+      END IF;
+
+
+
+    -- AK=SI(i_depassement_service_du_sans_hc="Non";AJ20*$AE20;0)
+    WHEN c = 'AK' AND v >= 1 THEN
+      IF NOT i.depassement_service_du_sans_hc THEN
+        RETURN cell('AJ',l) * cell('AE',l);
+      ELSE
+        RETURN 0;
+      END IF;
+
+
+
+    -- AM=SI(ET($D20="Oui";$N20<>"Oui";$H20<>"Référentiel";$A20<>i_structure_code);$M20*$E20*$AD20;0)
+    WHEN c = 'AM' AND v >= 1 THEN
+      IF vh.service_statutaire AND vh.structure_code IS NOT NULL AND vh.volume_horaire_ref_id IS NULL AND NOT vh.structure_is_affectation THEN
+        RETURN vh.heures * vh.taux_fi * cell('AD',l);
+      ELSE
+        RETURN 0;
+      END IF;
+
+
+
+    -- AN=SI(AN$15>0;AM20/AN$15;0)
+    WHEN c = 'AN' AND v >= 1 THEN
+      IF cell('AN15') > 0 THEN
+        RETURN cell('AM',l) / cell('AN15');
+      ELSE
+        RETURN 0;
+      END IF;
+
+
+
+    -- AO=AN$16*AN20
+    WHEN c = 'AO' AND v >= 1 THEN
+      RETURN cell('AN16') * cell('AN',l);
+
+
+
+    -- AP=SI(AN$17=0;(AM20-AO20)/$AD20;0)
+    WHEN c = 'AP' AND v >= 1 THEN
+      IF cell('AN17') = 0 THEN
+        RETURN (cell('AM',l) - cell('AO',l)) / cell('AD',l);
+      ELSE
+        RETURN 0;
+      END IF;
+
+
+
+    -- AQ=SI(i_depassement_service_du_sans_hc="Non";AP20*$AE20;0)
+    WHEN c = 'AQ' AND v >= 1 THEN
+      IF NOT i.depassement_service_du_sans_hc THEN
+        RETURN cell('AP',l) * cell('AE',l);
+      ELSE
+        RETURN 0;
+      END IF;
+
+
+
+    -- AS=SI(ET($D20="Oui";$N20<>"Oui";$H20<>"Référentiel";$A20=i_structure_code);$M20*$F20*$AD20;0)
+    WHEN c = 'AS' AND v >= 1 THEN
+      IF vh.service_statutaire AND vh.structure_code IS NOT NULL AND vh.volume_horaire_ref_id IS NULL AND vh.structure_is_affectation THEN
+        RETURN vh.heures * vh.taux_fa * cell('AD',l);
+      ELSE
+        RETURN 0;
+      END IF;
+
+
+
+    -- AT=SI(AT$15>0;AS20/AT$15;0)
+    WHEN c = 'AT' AND v >= 1 THEN
+      IF cell('AT15') > 0 THEN
+        RETURN cell('AS',l) / cell('AT15');
+      ELSE
+        RETURN 0;
+      END IF;
+
+
+
+    -- AU=AT$16*AT20
+    WHEN c = 'AU' AND v >= 1 THEN
+      RETURN cell('AT16') * cell('AT',l);
+
+
+
+    -- AV=SI(AT$17=0;(AS20-AU20)/$AD20;0)
+    WHEN c = 'AV' AND v >= 1 THEN
+      IF cell('AT17') = 0 THEN
+        RETURN (cell('AS',l) - cell('AU',l)) / cell('AD',l);
+      ELSE
+        RETURN 0;
+      END IF;
+
+
+
+    -- AW=SI(i_depassement_service_du_sans_hc="Non";AV20*$AE20;0)
+    WHEN c = 'AW' AND v >= 1 THEN
+      IF NOT i.depassement_service_du_sans_hc THEN
+        RETURN cell('AV',l) * cell('AE',l);
+      ELSE
+        RETURN 0;
+      END IF;
+
+
+
+    -- AY=SI(ET($D20="Oui";$N20<>"Oui";$H20<>"Référentiel";$A20=i_structure_code);$M20*$G20*$AD20;0)
+    WHEN c = 'AY' AND v >= 1 THEN
+      IF vh.service_statutaire AND vh.structure_code IS NOT NULL 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;
+
+
+
+    -- AZ=SI(AZ$15>0;AY20/AZ$15;0)
+    WHEN c = 'AZ' AND v >= 1 THEN
+      IF cell('AZ15') > 0 THEN
+        RETURN cell('AY',l) / cell('AZ15');
+      ELSE
+        RETURN 0;
+      END IF;
+
+
+
+    -- BA=AZ$16*AZ20
+    WHEN c = 'BA' AND v >= 1 THEN
+      RETURN cell('AZ16') * cell('AZ',l);
+
+
+
+    -- BB=SI(AZ$17=0;(AY20-BA20)/$AD20;0)
+    WHEN c = 'BB' AND v >= 1 THEN
+      IF cell('AZ17') = 0 THEN
+        RETURN (cell('AY',l) - cell('BA',l)) / cell('AD',l);
+      ELSE
+        RETURN 0;
+      END IF;
+
+
+
+    -- BC=SI(i_depassement_service_du_sans_hc="Non";BB20*$AE20;0)
+    WHEN c = 'BC' AND v >= 1 THEN
+      IF NOT i.depassement_service_du_sans_hc THEN
+        RETURN cell('BB',l) * cell('AE',l);
+      ELSE
+        RETURN 0;
+      END IF;
+
+
+
+    -- BE=SI(ET($D20="Oui";$N20<>"Oui";$H20<>"Référentiel";$A20<>i_structure_code);$M20*$F20*$AD20;0)
+    WHEN c = 'BE' AND v >= 1 THEN
+      IF vh.service_statutaire AND vh.structure_code IS NOT NULL AND vh.volume_horaire_ref_id IS NULL AND NOT vh.structure_is_affectation THEN
+        RETURN vh.heures * vh.taux_fa * cell('AD',l);
+      ELSE
+        RETURN 0;
+      END IF;
+
+
+
+    -- BF=SI(BF$15>0;BE20/BF$15;0)
+    WHEN c = 'BF' AND v >= 1 THEN
+      IF cell('BF15') > 0 THEN
+        RETURN cell('BE',l) / cell('BF15');
+      ELSE
+        RETURN 0;
+      END IF;
+
+
+
+    -- BG=BF$16*BF20
+    WHEN c = 'BG' AND v >= 1 THEN
+      RETURN cell('BF16') * cell('BF',l);
+
+
+
+    -- BH=SI(BF$17=0;(BE20-BG20)/$AD20;0)
+    WHEN c = 'BH' AND v >= 1 THEN
+      IF cell('BF17') = 0 THEN
+        RETURN (cell('BE',l) - cell('BG',l)) / cell('AD',l);
+      ELSE
+        RETURN 0;
+      END IF;
+
+
+
+    -- BI=SI(i_depassement_service_du_sans_hc="Non";BH20*$AE20;0)
+    WHEN c = 'BI' AND v >= 1 THEN
+      IF NOT i.depassement_service_du_sans_hc THEN
+        RETURN cell('BH',l) * cell('AE',l);
+      ELSE
+        RETURN 0;
+      END IF;
+
+
+
+    -- BK=SI(ET($D20="Oui";$N20<>"Oui";$H20<>"Référentiel";$A20<>i_structure_code);$M20*$G20*$AD20;0)
+    WHEN c = 'BK' AND v >= 1 THEN
+      IF vh.service_statutaire AND vh.structure_code IS NOT NULL 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;
+
+
+
+    -- BL=SI(BL$15>0;BK20/BL$15;0)
+    WHEN c = 'BL' AND v >= 1 THEN
+      IF cell('BL15') > 0 THEN
+        RETURN cell('BK',l) / cell('BL15');
+      ELSE
+        RETURN 0;
+      END IF;
+
+
+
+    -- BM=BL$16*BL20
+    WHEN c = 'BM' AND v >= 1 THEN
+      RETURN cell('BL16') * cell('BL',l);
+
+
+
+    -- BN=SI(BL$17=0;(BK20-BM20)/$AD20;0)
+    WHEN c = 'BN' AND v >= 1 THEN
+      IF cell('BL17') = 0 THEN
+        RETURN (cell('BK',l) - cell('BM',l)) / cell('AD',l);
+      ELSE
+        RETURN 0;
+      END IF;
+
+
+
+    -- BO=SI(i_depassement_service_du_sans_hc="Non";BN20*$AE20;0)
+    WHEN c = 'BO' AND v >= 1 THEN
+      IF NOT i.depassement_service_du_sans_hc THEN
+        RETURN cell('BN',l) * cell('AE',l);
+      ELSE
+        RETURN 0;
+      END IF;
+
+
+
+    -- BQ=SI(ET($D20="Oui";$N20<>"Oui";$H20="Référentiel";$A20=i_structure_code;GAUCHE($O20;3)<>"RP_");$M20*$AD20;0)
+    WHEN c = 'BQ' AND v >= 1 THEN
+      IF vh.service_statutaire AND vh.structure_code IS NOT NULL AND vh.volume_horaire_ref_id IS NOT NULL AND vh.structure_is_affectation AND vh.param_2 NOT LIKE 'RP_%' THEN
+        RETURN vh.heures * cell('AD',l);
+      ELSE
+        RETURN 0;
+      END IF;
+
+
+
+    -- BR=SI(BR$15>0;BQ20/BR$15;0)
+    WHEN c = 'BR' AND v >= 1 THEN
+      IF cell('BR15') > 0 THEN
+        RETURN cell('BQ',l) / cell('BR15');
+      ELSE
+        RETURN 0;
+      END IF;
+
+
+
+    -- BS=BR$16*BR20
+    WHEN c = 'BS' AND v >= 1 THEN
+      RETURN cell('BR16') * cell('BR',l);
+
+
+
+    -- BT=SI(BR$17=0;(BQ20-BS20)/$AD20;0)
+    WHEN c = 'BT' AND v >= 1 THEN
+      IF cell('BR17') = 0 THEN
+        RETURN (cell('BQ',l) - cell('BS',l)) / cell('AD',l);
+      ELSE
+        RETURN 0;
+      END IF;
+
+
+
+    -- BU=SI(i_depassement_service_du_sans_hc="Non";BT20*$AE20;0)
+    WHEN c = 'BU' AND v >= 1 THEN
+      IF NOT i.depassement_service_du_sans_hc THEN
+        RETURN cell('BT',l) * cell('AE',l);
+      ELSE
+        RETURN 0;
+      END IF;
+
+
+
+    -- BW=SI(ET($D20="Oui";$N20<>"Oui";$H20="Référentiel";$A20<>i_structure_code;GAUCHE($O20;3)<>"RP_");$M20*$AD20;0)
+    WHEN c = 'BW' AND v >= 1 THEN
+      IF vh.service_statutaire AND vh.structure_code IS NOT NULL AND vh.volume_horaire_ref_id IS NOT NULL AND NOT vh.structure_is_affectation AND vh.param_2 NOT LIKE 'RP_%' THEN
+        RETURN vh.heures * cell('AD',l);
+      ELSE
+        RETURN 0;
+      END IF;
+
+
+
+    -- BX=SI(BX$15>0;BW20/BX$15;0)
+    WHEN c = 'BX' AND v >= 1 THEN
+      IF cell('BX15') > 0 THEN
+        RETURN cell('BW',l) / cell('BX15');
+      ELSE
+        RETURN 0;
+      END IF;
+
+
+
+    -- BY=BX$16*BX20
+    WHEN c = 'BY' AND v >= 1 THEN
+      RETURN cell('BX16') * cell('BX',l);
+
+
+
+    -- BZ=SI(BX$17=0;(BW20-BY20)/$AD20;0)
+    WHEN c = 'BZ' AND v >= 1 THEN
+      IF cell('BX17') = 0 THEN
+        RETURN (cell('BW',l) - cell('BY',l)) / cell('AD',l);
+      ELSE
+        RETURN 0;
+      END IF;
+
+
+
+    -- CA=SI(i_depassement_service_du_sans_hc="Non";BZ20*$AE20;0)
+    WHEN c = 'CA' AND v >= 1 THEN
+      IF NOT i.depassement_service_du_sans_hc THEN
+        RETURN cell('BZ',l) * cell('AE',l);
+      ELSE
+        RETURN 0;
+      END IF;
+
+
+
+    -- CC=SI(ET($D20="Oui";$N20<>"Oui";$H20="Référentiel";$A20=i_structure_code;GAUCHE($O20;3)="RP_");$M20*$AD20;0)
+    WHEN c = 'CC' AND v >= 1 THEN
+      IF vh.service_statutaire AND vh.structure_code IS NOT NULL AND vh.volume_horaire_ref_id IS NOT NULL AND vh.structure_is_affectation AND vh.param_2 LIKE 'RP_%' THEN
+        RETURN vh.heures * cell('AD',l);
+      ELSE
+        RETURN 0;
+      END IF;
+
+
+
+    -- CD=SI(CD$15>0;CC20/CD$15;0)
+    WHEN c = 'CD' AND v >= 1 THEN
+      IF cell('CD15') > 0 THEN
+        RETURN cell('CC',l) / cell('CD15');
+      ELSE
+        RETURN 0;
+      END IF;
+
+
+
+    -- CE=CD$16*CD20
+    WHEN c = 'CE' AND v >= 1 THEN
+      RETURN cell('CD16') * cell('CD',l);
+
+
+
+    -- CF=SI(CD$17=0;(CC20-CE20)/$AD20;0)
+    WHEN c = 'CF' AND v >= 1 THEN
+      IF cell('CD17') = 0 THEN
+        RETURN (cell('CC',l) - cell('CE',l)) / cell('AD',l);
+      ELSE
+        RETURN 0;
+      END IF;
+
+
+
+    -- CG=SI(i_depassement_service_du_sans_hc="Non";CF20*$AE20;0)
+    WHEN c = 'CG' AND v >= 1 THEN
+      IF NOT i.depassement_service_du_sans_hc THEN
+        RETURN cell('CF',l) * cell('AE',l);
+      ELSE
+        RETURN 0;
+      END IF;
+
+
+
+    -- CI=SI(ET($D20="Oui";$N20<>"Oui";$H20="Référentiel";$A20<>i_structure_code;GAUCHE($O20;3)="RP_");$M20*$AD20;0)
+    WHEN c = 'CI' AND v >= 1 THEN
+      IF vh.service_statutaire AND vh.structure_code IS NOT NULL AND vh.volume_horaire_ref_id IS NOT NULL AND NOT vh.structure_is_affectation AND vh.param_2 LIKE 'RP_%' THEN
+        RETURN vh.heures * cell('AD',l);
+      ELSE
+        RETURN 0;
+      END IF;
+
+
+
+    -- CJ=SI(CJ$15>0;CI20/CJ$15;0)
+    WHEN c = 'CJ' AND v >= 1 THEN
+      IF cell('CJ15') > 0 THEN
+        RETURN cell('CI',l) / cell('CJ15');
+      ELSE
+        RETURN 0;
+      END IF;
+
+
+
+    -- CK=CJ$16*CJ20
+    WHEN c = 'CK' AND v >= 1 THEN
+      RETURN cell('CJ16') * cell('CJ',l);
+
+
+
+    -- CL=SI(CJ$17=0;(CI20-CK20)/$AD20;0)
+    WHEN c = 'CL' AND v >= 1 THEN
+      IF cell('CJ17') = 0 THEN
+        RETURN (cell('CI',l) - cell('CK',l)) / cell('AD',l);
+      ELSE
+        RETURN 0;
+      END IF;
+
+
+
+    -- CM=SI(i_depassement_service_du_sans_hc="Non";CL20*$AE20;0)
+    WHEN c = 'CM' AND v >= 1 THEN
+      IF NOT i.depassement_service_du_sans_hc THEN
+        RETURN cell('CL',l) * cell('AE',l);
+      ELSE
+        RETURN 0;
+      END IF;
+
+
+
+    -- CO=SI(ET($D20="Oui";$N20="Oui");$M20*$AD20;0)
+    WHEN c = 'CO' AND v >= 1 THEN
+      IF vh.service_statutaire AND vh.structure_code IS NULL THEN
+        RETURN vh.heures * cell('AD',l);
+      ELSE
+        RETURN 0;
+      END IF;
+
+
+
+    -- CP=SI(CP$15>0;CO20/CP$15;0)
+    WHEN c = 'CP' AND v >= 1 THEN
+      IF cell('CP15') > 0 THEN
+        RETURN cell('CO',l) / cell('CP15');
+      ELSE
+        RETURN 0;
+      END IF;
+
+
+
+    -- CQ=CP$16*CP20
+    WHEN c = 'CQ' AND v >= 1 THEN
+      RETURN cell('CP16') * cell('CP',l);
+
+
+
+    -- CR=SI(CP$17=0;(CO20-CQ20)/$AD20;0)
+    WHEN c = 'CR' AND v >= 1 THEN
+      IF cell('CP17') = 0 THEN
+        RETURN (cell('CO',l) - cell('CQ',l)) / cell('AD',l);
+      ELSE
+        RETURN 0;
+      END IF;
+
+
+
+    -- CS=SI(i_depassement_service_du_sans_hc="Non";CR20*$AE20;0)
+    WHEN c = 'CS' AND v >= 1 THEN
+      IF NOT i.depassement_service_du_sans_hc THEN
+        RETURN cell('CR',l) * cell('AE',l);
+      ELSE
+        RETURN 0;
+      END IF;
+
+
+
+    -- AH15=SOMME(AG:AG)
+    WHEN c = 'AH15' AND v >= 1 THEN
+      RETURN calcFnc('total', 'AG');
+
+
+
+    -- AH16=MIN(AH15;i_service_du)
+    WHEN c = 'AH16' AND v >= 1 THEN
+      RETURN LEAST(cell('AH15'), i.service_du);
+
+
+
+    -- AH17=i_service_du-AH16
+    WHEN c = 'AH17' AND v >= 1 THEN
+      RETURN i.service_du - cell('AH16');
+
+
+
+    -- AN15=SOMME(AM:AM)
+    WHEN c = 'AN15' AND v >= 1 THEN
+      RETURN calcFnc('total', 'AM');
+
+
+
+    -- AN16=MIN(AN15;AH17)
+    WHEN c = 'AN16' AND v >= 1 THEN
+      RETURN LEAST(cell('AN15'), cell('AH17'));
+
+
+
+    -- AN17=AH17-AN16
+    WHEN c = 'AN17' AND v >= 1 THEN
+      RETURN cell('AH17') - cell('AN16');
+
+
+
+    -- AT15=SOMME(AS:AS)
+    WHEN c = 'AT15' AND v >= 1 THEN
+      RETURN calcFnc('total', 'AS');
+
+
+
+    -- AT16=MIN(AT15;AN17)
+    WHEN c = 'AT16' AND v >= 1 THEN
+      RETURN LEAST(cell('AT15'), cell('AN17'));
+
+
+
+    -- AT17=AN17-AT16
+    WHEN c = 'AT17' AND v >= 1 THEN
+      RETURN cell('AN17') - cell('AT16');
+
+
+
+    -- AZ15=SOMME(AY:AY)
+    WHEN c = 'AZ15' AND v >= 1 THEN
+      RETURN calcFnc('total', 'AY');
+
+
+
+    -- AZ16=MIN(AZ15;AT17)
+    WHEN c = 'AZ16' AND v >= 1 THEN
+      RETURN LEAST(cell('AZ15'), cell('AT17'));
+
+
+
+    -- AZ17=AT17-AZ16
+    WHEN c = 'AZ17' AND v >= 1 THEN
+      RETURN cell('AT17') - cell('AZ16');
+
+
+
+    -- BF15=SOMME(BE:BE)
+    WHEN c = 'BF15' AND v >= 1 THEN
+      RETURN calcFnc('total', 'BE');
+
+
+
+    -- BF16=MIN(BF15;AZ17)
+    WHEN c = 'BF16' AND v >= 1 THEN
+      RETURN LEAST(cell('BF15'), cell('AZ17'));
+
+
+
+    -- BF17=AZ17-BF16
+    WHEN c = 'BF17' AND v >= 1 THEN
+      RETURN cell('AZ17') - cell('BF16');
+
+
+
+    -- BL15=SOMME(BK:BK)
+    WHEN c = 'BL15' AND v >= 1 THEN
+      RETURN calcFnc('total', 'BK');
+
+
+
+    -- BL16=MIN(BL15;BF17)
+    WHEN c = 'BL16' AND v >= 1 THEN
+      RETURN LEAST(cell('BL15'), cell('BF17'));
+
+
+
+    -- BL17=BF17-BL16
+    WHEN c = 'BL17' AND v >= 1 THEN
+      RETURN cell('BF17') - cell('BL16');
+
+
+
+    -- BR15=SOMME(BQ:BQ)
+    WHEN c = 'BR15' AND v >= 1 THEN
+      RETURN calcFnc('total', 'BQ');
+
+
+
+    -- BR16=MIN(BR15;BL17)
+    WHEN c = 'BR16' AND v >= 1 THEN
+      RETURN LEAST(cell('BR15'), cell('BL17'));
+
+
+
+    -- BR17=BL17-BR16
+    WHEN c = 'BR17' AND v >= 1 THEN
+      RETURN cell('BL17') - cell('BR16');
+
+
+
+    -- BX15=SOMME(BW:BW)
+    WHEN c = 'BX15' AND v >= 1 THEN
+      RETURN calcFnc('total', 'BW');
+
+
+
+    -- BX16=MIN(BX15;BR17)
+    WHEN c = 'BX16' AND v >= 1 THEN
+      RETURN LEAST(cell('BX15'), cell('BR17'));
+
+
+
+    -- BX17=BR17-BX16
+    WHEN c = 'BX17' AND v >= 1 THEN
+      RETURN cell('BR17') - cell('BX16');
+
+
+
+    -- CD15=SOMME(CC:CC)
+    WHEN c = 'CD15' AND v >= 1 THEN
+      RETURN calcFnc('total', 'CC');
+
+
+
+    -- CD16=MIN(CD15;BX17)
+    WHEN c = 'CD16' AND v >= 1 THEN
+      RETURN LEAST(cell('CD15'), cell('BX17'));
+
+
+
+    -- CD17=BX17-CD16
+    WHEN c = 'CD17' AND v >= 1 THEN
+      RETURN cell('BX17') - cell('CD16');
+
+
+
+    -- CJ15=SOMME(CI:CI)
+    WHEN c = 'CJ15' AND v >= 1 THEN
+      RETURN calcFnc('total', 'CI');
+
+
+
+    -- CJ16=MIN(CJ15;CD17)
+    WHEN c = 'CJ16' AND v >= 1 THEN
+      RETURN LEAST(cell('CJ15'), cell('CD17'));
+
+
+
+    -- CJ17=CD17-CJ16
+    WHEN c = 'CJ17' AND v >= 1 THEN
+      RETURN cell('CD17') - cell('CJ16');
+
+
+
+    -- CP15=SOMME(CO:CO)
+    WHEN c = 'CP15' AND v >= 1 THEN
+      RETURN calcFnc('total', 'CO');
+
+
+
+    -- CP16=MIN(CP15;CJ17)
+    WHEN c = 'CP16' AND v >= 1 THEN
+      RETURN LEAST(cell('CP15'), cell('CJ17'));
+
+
+
+    -- CP17=CJ17-CP16
+    WHEN c = 'CP17' AND v >= 1 THEN
+      RETURN cell('CJ17') - cell('CP16');
+
+
+
+
+
+    ELSE
+      OSE_TEST.echo(c);
+      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
+      JOIN intervenant i ON i.id = fi.intervenant_id
+      JOIN statut_intervenant si ON si.id = i.statut_id
+    ';
+  END;
+
+
+
+  FUNCTION VOLUME_HORAIRE_QUERY RETURN CLOB IS
+  BEGIN
+    RETURN '
+    SELECT
+      fvh.*,
+      NULL param_1,
+      fr.code param_2,
+      NULL param_3,
+      NULL param_4,
+      NULL param_5
+    FROM
+      v_formule_volume_horaire fvh
+      LEFT JOIN service_referentiel sr ON sr.id = fvh.service_referentiel_id
+      LEFT JOIN fonction_referentiel fr ON fr.id = sr.fonction_id
+    ORDER BY
+      ordre';
+  END;
+
+END FORMULE_LILLE;
\ No newline at end of file

data/ddl/package/FORMULE_LILLE/definition.sql

+CREATE OR REPLACE PACKAGE FORMULE_LILLE 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_LILLE;
\ No newline at end of file

data/nomenclatures.php

@@ -200,6 +200,11 @@ return [
             'LIBELLE'      => 'Université de Paris',
             'PACKAGE_NAME' => 'FORMULE_PARIS',
         ],
+        16 => [
+            'LIBELLE'            => 'Université de Lille',
+            'PACKAGE_NAME'       => 'FORMULE_LILLE',
+            'VH_PARAM_2_LIBELLE' => 'Code fonction Référentiel',
+        ],
     ],
 
     'MODELE_CONTRAT' => [