Commit 91e288aa authored by Laurent Lecluse's avatar Laurent Lecluse
Browse files

Correctif formule Paris8

parent 4246e3c1

data/ddl/package/FORMULE_PARIS8/body.sql

+6 −2
Original line number Diff line number Diff line
@@ -638,16 +638,20 @@ CREATE OR REPLACE PACKAGE BODY FORMULE_PARIS8 AS 






      -- BS=IF([.$BS$15]<=i_service_du;0;IF(OR(MID([.$A20];1;25)="20595";MID([.$A20];1;25)="40");[.$M20]*[.$AE20];0))

      -- BS=IF([.$BS$15]<=i_service_du;0;IF(OR(MID([.$A20];1;25)="20595";MID([.$A20];1;25)="40");IF(i_depassement_service_du_sans_hc="Non";[.$M20]*[.$AE20];0);0))

      WHEN 'BS' THEN

        IF cell('BS15') <= i.service_du THEN

          RETURN 0;

        ELSE

          IF COALESCE(SUBSTR(vh.structure_code, 1, 25),' ') = '20595' OR COALESCE(SUBSTR(vh.structure_code, 1, 25),' ') = '40' THEN

            IF NOT i.depassement_service_du_sans_hc THEN

              RETURN vh.heures * cell('AE',l);

            ELSE

              RETURN 0;

            END IF;

          ELSE

            RETURN 0;

          END IF;

        END IF;