NYBU#28784 RES: ondersteunen 'wachtrij' of 'opties'

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

RES/RES_PAC.SRC

@@ -438,6 +438,9 @@ AS
    -- checkdate is op zich redundant maar heel goed voor de performance
    PROCEDURE set_ruimtes_clean (checkdate IN DATE)
    AS
+      res_key     res_rsv_ruimte.res_reservering_key%TYPE;
+      dirtlevel   res_rsv_ruimte.res_rsv_ruimte_dirtlevel%TYPE;
+      contact_key res_rsv_ruimte.res_rsv_ruimte_contact_key%TYPE;
    BEGIN
       FOR prsv_ruimte
       IN (SELECT   res_rsv_ruimte_key
@@ -446,6 +449,20 @@ AS
                    AND res_rsv_ruimte_van BETWEEN TRUNC (checkdate) AND TRUNC (checkdate + 1))
       loop
          set_ruimte_dirty (prsv_ruimte.res_rsv_ruimte_key);
+         --
+         SELECT res_reservering_key,
+                res_rsv_ruimte_dirtlevel,
+                res_rsv_ruimte_contact_key
+           INTO res_key,
+                dirtlevel,
+                contact_key
+           FROM res_rsv_ruimte
+          WHERE res_rsv_ruimte_key = prsv_ruimte.res_rsv_ruimte_key;
+         --
+         IF dirtlevel = 0 THEN
+           fac.putnotificationsrtprio (NULL, contact_key, 'RESCLN', res_key,
+                                       NULL, NULL, NULL, NULL, NULL, 2, NULL);
+         END IF;
       -- TODO: Alle ruimtes met Dirty-bitje bekijken
       end loop;
    END;