Correction formule Picardie

(cherry picked from commit 8957b3fa)

data/ddl/package/FORMULE_PICARDIE/body.sql

@@ -284,13 +284,17 @@ CREATE OR REPLACE PACKAGE BODY FORMULE_PICARDIE AS
 
 
 
-      -- AJ=IF([.AI20]<[.AG20];([.AG20]-[.AI20])/[.$AD20];0)
+      -- AJ=IF([.AI20]<[.AG20];([.AG20]-[.AI20])/[.$AD20];IF([.AG20]<0;[.AG20]/[.$AD20];0))
       WHEN 'AJ' THEN
         IF cell('AI',l) < cell('AG',l) THEN
           RETURN (cell('AG',l) - cell('AI',l)) / cell('AD',l);
+        ELSE
+          IF cell('AG',l) < 0 THEN
+            RETURN cell('AG',l) / cell('AD',l);
           ELSE
             RETURN 0;
           END IF;
+        END IF;
 
 
 
@@ -354,13 +358,17 @@ CREATE OR REPLACE PACKAGE BODY FORMULE_PICARDIE AS
 
 
 
-      -- AP=IF([.AO20]<[.AM20];([.AM20]-[.AO20])/[.$AD20];0)
+      -- AP=IF([.AO20]<[.AM20];([.AM20]-[.AO20])/[.$AD20];IF([.AM20]<0;[.AM20]/[.$AD20];0))
       WHEN 'AP' THEN
         IF cell('AO',l) < cell('AM',l) THEN
           RETURN (cell('AM',l) - cell('AO',l)) / cell('AD',l);
+        ELSE
+          IF cell('AM',l) < 0 THEN
+            RETURN cell('AM',l) / cell('AD',l);
           ELSE
             RETURN 0;
           END IF;
+        END IF;
 
 
 
@@ -418,13 +426,17 @@ CREATE OR REPLACE PACKAGE BODY FORMULE_PICARDIE AS
 
 
 
-      -- AV=IF([.AU20]<[.AS20];([.AS20]-[.AU20])/[.$AD20];0)
+      -- AV=IF([.AU20]<[.AS20];([.AS20]-[.AU20])/[.$AD20];IF([.AS20]<20;[.AS20]/[.$AD20];0))
       WHEN 'AV' THEN
         IF cell('AU',l) < cell('AS',l) THEN
           RETURN (cell('AS',l) - cell('AU',l)) / cell('AD',l);
+        ELSE
+          IF cell('AS',l) < 20 THEN
+            RETURN cell('AS',l) / cell('AD',l);
           ELSE
             RETURN 0;
           END IF;
+        END IF;
 
 
 
@@ -488,13 +500,17 @@ CREATE OR REPLACE PACKAGE BODY FORMULE_PICARDIE AS
 
 
 
-      -- BB=IF([.BA20]<[.AY20];([.AY20]-[.BA20])/[.$AD20];0)
+      -- BB=IF([.BA20]<[.AY20];([.AY20]-[.BA20])/[.$AD20];IF([.AY20]<0;[.AY20]/[.$AD20];0))
       WHEN 'BB' THEN
         IF cell('BA',l) < cell('AY',l) THEN
           RETURN (cell('AY',l) - cell('BA',l)) / cell('AD',l);
+        ELSE
+          IF cell('AY',l) < 0 THEN
+            RETURN cell('AY',l) / cell('AD',l);
           ELSE
             RETURN 0;
           END IF;
+        END IF;
 
 
 
@@ -552,13 +568,17 @@ CREATE OR REPLACE PACKAGE BODY FORMULE_PICARDIE AS
 
 
 
-      -- BH=IF([.BG20]<[.BE20];([.BE20]-[.BG20])/[.$AD20];0)
+      -- BH=IF([.BG20]<[.BE20];([.BE20]-[.BG20])/[.$AD20];IF([.BE20]<0;[.BE20]/[.$AD20];0))
       WHEN 'BH' THEN
         IF cell('BG',l) < cell('BE',l) THEN
           RETURN (cell('BE',l) - cell('BG',l)) / cell('AD',l);
+        ELSE
+          IF cell('BE',l) < 0 THEN
+            RETURN cell('BE',l) / cell('AD',l);
           ELSE
             RETURN 0;
           END IF;
+        END IF;
 
 
 
@@ -616,13 +636,17 @@ CREATE OR REPLACE PACKAGE BODY FORMULE_PICARDIE AS
 
 
 
-      -- BN=IF([.BM20]<[.BK20];([.BK20]-[.BM20])/[.$AD20];0)
+      -- BN=IF([.BM20]<[.BK20];([.BK20]-[.BM20])/[.$AD20];IF([.BK20]<0;[.BK20]/[.$AD20];0))
       WHEN 'BN' THEN
         IF cell('BM',l) < cell('BK',l) THEN
           RETURN (cell('BK',l) - cell('BM',l)) / cell('AD',l);
+        ELSE
+          IF cell('BK',l) < 0 THEN
+            RETURN cell('BK',l) / cell('AD',l);
           ELSE
             RETURN 0;
           END IF;
+        END IF;