ZGTW#89613 Implementatie ZGT

Herzien inzicht: niet enkel key-users, maar toch alle gebruikers moeten gemandateerd worden voor alle kostenplaatsen.

svn path=/Customer/trunk/; revision=70191

ZGTW/ZGTW.sql

@@ -901,6 +901,44 @@ AS
            prs_bedrijf_verwijder
       FROM prs_bedrijf;                
 
+--Herziend standpunt: alle gebruikers moeten gemandateerd worden voor alle kostenplaatsen
+CREATE OR REPLACE PROCEDURE zgtw_daily
+AS
+    CURSOR c_perslid IS
+        SELECT p.prs_perslid_key
+          FROM prs_v_aanwezigperslid p
+         WHERE NOT EXISTS
+                   (SELECT 1
+                      FROM prs_perslidkostenplaats x
+                     WHERE prs_kostenplaats_key IS NULL
+                       AND x.prs_perslid_key = p.prs_perslid_key);
+BEGIN
+    FOR rec IN c_perslid
+    LOOP
+        BEGIN
+            INSERT INTO prs_perslidkostenplaats (
+                            prs_perslid_key,
+                            prs_kostenplaats_key,
+                            prs_perslidkostenplaats_boeken,
+                            prs_perslidkostenplaats_inzage)
+                 VALUES (rec.prs_perslid_key,
+                         NULL,
+                         1,
+                         0);
+        EXCEPTION
+            WHEN OTHERS
+            THEN
+                fac.writelog (
+                    'MANDATERING    ',
+                    'I',
+                       'Mandatering niet gelukt voor p_key: '
+                    || rec.prs_perslid_key,
+                    '');
+        END;
+    END LOOP;
+END;
+/
+
 ------ payload end   ------
 
 SET DEFINE OFF