UWVA#36449 Branch DB28b

svn path=/Database/branches/DB28/; revision=29512

FAC/FAC_PAC.SRC

@@ -2863,6 +2863,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS
         lmldbehandelaar          mld_melding.mld_melding_behandelaar_key%TYPE;
         lafs_key                 bez_afspraak.bez_afspraak_key%TYPE;
         lins_deel_ley            ins_deel.ins_deel_key%TYPE;
+        lpoolnotified            NUMBER;
     BEGIN
         -- Het gaat om een notificatie bij een entiteit prefkey,
         -- waarvan het type alleen nog moet worden bepaald via
@@ -2884,6 +2885,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS
 
         lrefkey := prefkey;                            -- dan kunnen we bij reservering nog wijzigen
         bericht := ptracking_oms;                                  -- als die leeg is zoeken we zelf
+        lpoolnotified := 0;
 
         -- welk type?
         SELECT fac_srtnotificatie_xmlnode,
@@ -3444,11 +3446,13 @@ CREATE OR REPLACE PACKAGE BODY fac AS
                 -- De normale notificatie gaat naar de contact (UWVA#19008)
                 -- Moeten dus kijken of psrtnotificatiekey naar BEZDON of BEZOUT wijst
                 -- Dan moeten we ook BEZDO2 of BEZOU2 versturen naar de host.
-                IF (lcode = 'BEZDON' OR lcode = 'BEZUNI')
+               IF lcode = 'BEZDON'
+                THEN
+                    lcode2 := 'BEZDO2';
+                    lpoolnotified := res.notifypool(prefkey, lcode2);
+                ELSIF lcode = 'BEZUNI'
                 THEN
                     lcode2 := 'BEZDO2';
-                    res.notifypool(prefkey, lcode);
-                    lcode := 'BEZDON'; -- Ook undo-checkin behandelen als checkin.
                 ELSIF lcode = 'BEZOUT'
                 THEN
                     lcode2 := 'BEZOU2';
@@ -3643,17 +3647,19 @@ CREATE OR REPLACE PACKAGE BODY fac AS
 
         IF lcode2 IS NOT NULL AND lreceiver2 IS NOT NULL
         THEN
-            fac.putnotificationsrtprio (pperslid_key,
-                                        lreceiver2,
-                                        lcode2,
-                                        lrefkey,
-                                        bericht2,
-                                        NULL,
-                                        lemail,
-                                        lphone,
-                                        lxrefkey,
-                                        2,
-                                        lsender);
+            IF lpoolnotified = 0 THEN
+                fac.putnotificationsrtprio (pperslid_key,
+                                            lreceiver2,
+                                            lcode2,
+                                            lrefkey,
+                                            bericht2,
+                                            NULL,
+                                            lemail,
+                                            lphone,
+                                            lxrefkey,
+                                            2,
+                                            lsender);
+            END IF;
         END IF;
 
         IF lemail3 IS NOT NULL

FCLT.NMK

@@ -62,7 +62,7 @@ PROJEXE=z:\Project\FACILITOR\BUILD
 ##
 CURRENTVERSION=27
 NEXTVERSION=28
-FILEVERSION=a
+FILEVERSION=b
 NEXTCAREVERSION=32
 NEXTROOT=DB$(NEXTVERSION)$(FILEVERSION)
 CURRENTUPDATE=DB$(CURRENTVERSION)to$(NEXTVERSION)

RES/RES_PAC.SRC

@@ -32,7 +32,7 @@ CREATE OR REPLACE PACKAGE res AS
    FUNCTION getartikelprijs (pres_rsv_artikel_key IN NUMBER)  RETURN NUMBER;
    FUNCTION getdeelresprijs (pres_rsv_ruimte_key IN NUMBER)  RETURN NUMBER;
    FUNCTION sprintf (ps IN VARCHAR2 , pres_rsv_ruimte_key IN NUMBER) RETURN VARCHAR2;
-   PROCEDURE notifypool (pbez_bezoeker_key IN NUMBER, pcode IN VARCHAR2);
+   FUNCTION notifypool (pbez_bezoeker_key IN NUMBER, pcode IN VARCHAR2) RETURN NUMBER;
 END res;
 /
 
@@ -1701,7 +1701,8 @@ AS
       s :=  REPLACE (s, ' ()', '');
       RETURN s;
    END;
-   PROCEDURE notifypool (pbez_bezoeker_key IN NUMBER, pcode IN VARCHAR2) AS
+   FUNCTION notifypool (pbez_bezoeker_key IN NUMBER, pcode IN VARCHAR2)
+      RETURN NUMBER IS
       lnrreceivers   NUMBER;
       lcode          fac_srtnotificatie.fac_srtnotificatie_code%TYPE;
       lreceivers     fac_srtnotificatie.fac_srtnotificatie_oms%TYPE;
@@ -1710,14 +1711,16 @@ AS
       lbezoeker      bez_bezoekers.bez_afspraak_naam%TYPE;
       lmailfrom      alg_locatie.alg_locatie_email%TYPE;
       ltracking      VARCHAR2(4000);  -- moet tijdelijk groter dan fac_srtnotificatie.fac_srtnotificatie_oms%TYPE kunnen zijn
+      s              NUMBER;
    BEGIN
-      IF (pcode = 'BEZDON' OR pcode = 'BEZUNI') THEN
+      s := 0;
+      IF (pcode = 'BEZDO2' OR pcode = 'BEZUNI') THEN
          SELECT bez_afspraak_naam
            INTO lbezoeker
            FROM bez_bezoekers
           WHERE bez_bezoekers_key = pbez_bezoeker_key;
 
-         IF pcode = 'BEZDON' THEN
+         IF pcode = 'BEZDO2' THEN
             lbericht := lcl.l('lcl_bez_is_in_1') || lbezoeker || lcl.l('lcl_bez_is_in_2');
          ELSIF pcode = 'BEZUNI' THEN
             lbericht := lcl.l('lcl_bez_is_in_1') || lbezoeker || lcl.l('lcl_bez_is_in_3');
@@ -1725,10 +1728,19 @@ AS
          --   lbericht := lcl.l('lcl_bez_is_out_1') || lbezoeker || lcl.l('lcl_bez_is_out_2');
          END IF;
 
-         lcode := 'BEZDON'; -- Behandel undo_checkin als srtnotificatie checkin.
+         lcode := 'BEZDO2'; -- Behandel undo_checkin als srtnotificatie checkin.
          lnrreceivers := 0;
          lreceivers := '';
 
+         SELECT l.alg_locatie_email
+           INTO lmailfrom
+           FROM bez_bezoekers b
+              , bez_afspraak a
+              , alg_locatie l
+          WHERE b.bez_afspraak_key = a.bez_afspraak_key
+            AND a.alg_locatie_key = l.alg_locatie_key
+            AND b.bez_bezoekers_key = pbez_bezoeker_key;
+
          FOR hosts IN (SELECT DISTINCT k.res_rsv_ruimte_host_key
                          FROM res_rsv_ruimte k
                         WHERE k.res_reservering_key =
@@ -1746,15 +1758,6 @@ AS
                           AND k.res_rsv_ruimte_verwijder IS NULL
                       )
          LOOP
-            SELECT l.alg_locatie_email
-              INTO lmailfrom
-              FROM bez_bezoekers b
-                 , bez_afspraak a
-                 , alg_locatie l
-             WHERE b.bez_afspraak_key = a.bez_afspraak_key
-               AND a.alg_locatie_key = l.alg_locatie_key
-               AND b.bez_bezoekers_key = pbez_bezoeker_key;
-
             fac.putnotificationsrtprio (NULL,
                                         hosts.res_rsv_ruimte_host_key,
                                         lcode,
@@ -1778,6 +1781,7 @@ AS
                lreceivers := lreceivers||', '||lreceivers1;
             END IF;
             lnrreceivers := lnrreceivers+1;
+            s := 1;
          END LOOP;
 
          IF lnrreceivers > 0 THEN
@@ -1787,9 +1791,10 @@ AS
             ltracking := REPLACE (ltracking, '{0}', lbericht);
             ltracking := REPLACE (ltracking, '{1}', lreceivers);
             DBMS_OUTPUT.PUT_LINE(ltracking);
-            fac.trackaction ('#BEZDON', pbez_bezoeker_key, NULL, NULL, SUBSTR(ltracking,1,2048));  -- maxlengte van fac_srtnotificatie_oms
+            fac.trackaction ('#BEZDO2', pbez_bezoeker_key, NULL, NULL, SUBSTR(ltracking,1,2048));  -- maxlengte van fac_srtnotificatie_oms
          END IF;
       END IF;
+      RETURN s;
    END;
 
 END res;