AAIT#36483 Mails via enveloppe meteen kunnen versturen

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

FAC/FAC_PAC.SRC

@@ -1768,6 +1768,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS
       lphone       fac_notificatie.fac_notificatie_receiver_phone%TYPE;
       llang        prs_perslid.prs_perslid_lang%TYPE;
       lsysteem     prs_perslid.prs_perslid_systeemadres%TYPE;
+      immediate    NUMBER(1);
    BEGIN
       IF pcode IS NOT NULL
       THEN
@@ -1804,13 +1805,16 @@ CREATE OR REPLACE PACKAGE BODY fac AS
                         NULL;
                   END;
                END IF;
+               immediate := 0;
             ELSE
                -- Wel status meegegeven; die is dan vast
+               -- Als status=2 en pcode=xxxMAI, dan moet de mail altijd vertuurd worden.
                smode := poptstatus;
 
                SELECT lcl.x('fac_srtnotificatie_oms', sn.fac_srtnotificatie_key, sn.fac_srtnotificatie_oms),
-                      sn.fac_srtnotificatie_key
-                 INTO soms, skey
+                      sn.fac_srtnotificatie_key,
+                      DECODE(SUBSTR(pcode, -3), 'MAI', DECODE(poptstatus, 2, 1, 0), 0)
+                 INTO soms, skey, immediate
                  FROM fac_srtnotificatie sn
                 WHERE sn.fac_srtnotificatie_code = pcode;
             END IF;
@@ -1888,7 +1892,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS
          -- Voorkom e-mail/sms van deze zwakkere *UPD als de *NEW nog niet eens de deur uit is door Putorders
          -- of meer algemeen: elke e-mail/sms die nog niet de deur is.
          -- Je wilt wel op alle gedefinieerde kanalen precies een bericht houden
-         IF BITAND (smode, 2 + 4) <> 0
+         IF ((BITAND (smode, 2 + 4) <> 0) AND (immediate = 0))
          THEN
             -- Zoek de lmode van een al/nog aanwezige fac_notificatie die over hetzelfde gaat
             BEGIN