Commit 26b4572e authored by Laurent Lecluse's avatar Laurent Lecluse
Browse files

Béta2 de la 8.1 (suite pb de publication de la formule de Montpellier)

parent 3ae4c350
Loading
Loading
Loading
Loading
+6 −6
Original line number Diff line number Diff line
@@ -8498,9 +8498,7 @@ CREATE OR REPLACE PACKAGE BODY "FORMULE_MONTPELLIER" AS
  PROCEDURE dbgDump( val CLOB ) IS
  BEGIN
    dbg('
' || val || '
');
    dbg('<div class="dbg-dump">' || val || '</div>');
  END;
  PROCEDURE dbgCell( c VARCHAR2, l NUMERIC, val FLOAT ) IS
@@ -8640,7 +8638,8 @@ CREATE OR REPLACE PACKAGE BODY "FORMULE_MONTPELLIER" AS
    -- m = SI(J21>0;SI(L20+K21= 1 THEN
    -- m = SI(J21>0;SI(L20+K21<service_du;0;((L20+K21)-service_du)/J21);0)
    WHEN c = 'm' AND v >= 1 THEN
      IF cell('j',l) > 0 THEN
        IF cell('l',l-1) + cell('k',l) < ose_formule.intervenant.service_du THEN
          RETURN 0;
@@ -8659,7 +8658,7 @@ CREATE OR REPLACE PACKAGE BODY "FORMULE_MONTPELLIER" AS
    -- o = SI(OU(service_realise"Oui");0;(M21+SI(H21<>"Oui";I21;0))*N21)
    -- o = SI(OU(service_realise<service_du;HC_autorisees<>"Oui");0;(M21+SI(H21<>"Oui";I21;0))*N21)
    -- service_realise = MAX($L$21:$L$50)
    -- service_du = ose_formule.intervenant.service_du
    -- HC_autorisees = ose_formule.intervenant.depassement_service_du_sans_hc = false
@@ -8731,7 +8730,8 @@ CREATE OR REPLACE PACKAGE BODY "FORMULE_MONTPELLIER" AS
    -- s53 =SI(OU(HC=0;R53= 1 THEN
    -- s53 =SI(OU(HC=0;R53<service_du);0;R53-service_du)
    WHEN c = 's53' AND v >= 1 THEN
      IF calcFnc('total','o') = 0 OR cell('r53') < ose_formule.intervenant.service_du THEN
        RETURN 0;
      ELSE