FCLT#85890 noti_delay_mode om immediate gedrag van bedrijfadres notificaties aan te sturen

svn path=/Database/branches/DB50/; revision=68256

FAC/FAC_PAC.SRC

@@ -4975,6 +4975,8 @@ CREATE OR REPLACE PACKAGE BODY fac AS
       nn_noti            NUMBER (10);
       aantal             NUMBER (10);
       dummy              VARCHAR2 (1);
+      notbefore          fac_notificatie.fac_notificatie_notbefore%TYPE;
+      delaymode          NUMBER;
 
    BEGIN
       IF ptrackingkey IS NULL
@@ -5109,6 +5111,15 @@ CREATE OR REPLACE PACKAGE BODY fac AS
 
       -- Ok, het technisch adres luistert naar onze notificatie!
       -- Geen putnotificationsrtprio. Die is veel te agressief met ontdubbelen
+      notbefore := SYSDATE;
+      delaymode := fac.safe_to_number(fac.getsetting('noti_delay_mode'));
+      IF delaymode = 1 -- default uit, naar technische adres zonder vertraging
+      THEN
+         notbefore := notbefore + NVL(l_srtnoti_delay/ 60/ 60/ 24, 0);
+      ELSIF delaymode > 1 -- fixed delay
+      THEN
+         notbefore := notbefore + delaymode / 60/ 60/ 24;
+      END IF;
       INSERT INTO fac_notificatie (fac_srtnotificatie_key,
                                     fac_notificatie_oms,
                                     fac_notificatie_refkey,
@@ -5126,7 +5137,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS
                      psender,
                      0,
                      l_bdradr_key,
-                     SYSDATE); -- nooit delay, we ontdubbelen toch niet? + NVL(l_srtnoti_delay/ 60/ 60/ 24, 0));
+                     notbefore);
    END;
 
     -- Levert de (nieuwste) datum op van een getrackt event op key