FSN#27051: SLA uitvoertijd in dagen en uren nog aanscherpen.

svn path=/Database/trunk/; revision=22712

FAC/FAC_PAC.SRC

@@ -438,7 +438,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS
        END IF;
      ELSIF v_day_from = 7 THEN            /* FROM is saturday */
        IF v_day_to != 7 THEN              /* TO is not saturday */
-         v_mod := v_mod - 1;              /* exclude sunday succeding FROM-saturday */
+         v_mod := v_mod - 1;              /* exclude sunday succeeding FROM-saturday */
        END IF;
      ELSE                                 /* FROM is workday */
        IF v_day_to = 7 THEN               /* TO is saturday */
@@ -448,6 +448,15 @@ CREATE OR REPLACE PACKAGE BODY fac AS
        END IF;
      END IF;
 
+     --SELECT COUNT(*)
+     --  INTO v_extra_day
+     --  FROM DUAL
+     -- WHERE v_time_to > v_time_from
+     --   AND v_day_to NOT IN (1, 7)
+     --   AND NOT EXISTS
+     --         (SELECT 1
+     --            FROM MLD_VRIJE_DAGEN
+     --           WHERE TRUNC (MLD_VRIJE_DAGEN_DATUM) = v_date_to);
      v_extra_day := 0;
      IF pInclTime THEN
        IF v_time_to > v_time_from THEN
@@ -519,6 +528,9 @@ CREATE OR REPLACE PACKAGE BODY fac AS
       extradag          NUMBER;
 
     BEGIN
+      -- We ondersteunen ook D/U
+      uitvoertijdtype := DECODE(uitvoertijdtype, 'D', 'DAGEN', 'U', 'UREN', uitvoertijdtype); -- D en U worden ook ondersteund
+
       --veronderstelt NLS_TERRITORY='AMERICA'
       IF uitvoertijd IS NOT NULL AND begindatum IS NOT NULL AND uitvoertijdtype = 'DAGEN'
       THEN
@@ -724,6 +736,8 @@ CREATE OR REPLACE PACKAGE BODY fac AS
                                             pEindWerkUur,
                                             palleenWerkdagen);
        END IF;
+      -- We ondersteunen ook D/U
+       uitvoertijdtype := DECODE(uitvoertijdtype, 'D' , 'DAGEN', 'U', 'UREN', uitvoertijdtype); -- D en U worden ook ondersteund
 
        IF uitvoertijdtype = 'DAGEN' -- Logisch zo?
        THEN