UWVA#35128 notificatie naar alle gastheren van poolreservering

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

RES/RES_PAC.SRC

@@ -1678,6 +1678,7 @@ AS
       lreceivers1    fac_srtnotificatie.fac_srtnotificatie_oms%TYPE;
       lbericht       fac_srtnotificatie.fac_srtnotificatie_oms%TYPE;
       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
    BEGIN
       IF (pcode = 'BEZDON' OR pcode = 'BEZUNI') THEN
@@ -1715,6 +1716,15 @@ 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,
@@ -1725,7 +1735,7 @@ AS
                                         NULL,
                                         NULL,
                                         NULL,
-                                        NULL
+                                        lmailfrom
                                        );
             SELECT prs_perslid_naam_friendly
               INTO lreceivers1