KW1C#81204 implementatie FMIS (gebouwbeheer) KW1C

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

KW1C/KW1C.sql

@@ -2379,6 +2379,66 @@ AS
       FROM fac_usrdata ud, fac_usrtab ut
      WHERE ut.fac_usrtab_key = ud.fac_usrtab_key AND ut.fac_usrtab_key = 4;
 
+CREATE OR REPLACE PROCEDURE kw1c_export_mail_acp (p_applname   IN VARCHAR2,
+                                                  p_applrun    IN VARCHAR2,
+                                                  p_filedir    IN VARCHAR2,
+                                                  p_filename   IN VARCHAR2)
+AS
+    v_aanduiding     VARCHAR2 (200);
+    v_errorhint      VARCHAR2 (1000);
+    v_errormsg       VARCHAR2 (1000);
+    oracle_err_num   NUMBER;
+    oracle_err_mes   VARCHAR2 (200);
+
+
+    CURSOR mail IS
+        SELECT p.prs_perslid_email, p.prs_perslid_key
+          FROM prs_perslid p
+         WHERE     p.prs_perslid_verwijder IS NULL
+               AND p.prs_perslid_inactief IS NULL
+               AND UPPER (p.prs_perslid_email) LIKE '%@KW1C.NL';
+BEGIN
+    v_aanduiding := 'Init';
+    v_errormsg := 'Init';
+
+    FOR rec IN mail
+    LOOP
+        BEGIN
+            UPDATE prs_perslid p
+               SET p.prs_perslid_email =
+                       REPLACE (UPPER (p.prs_perslid_email), '@KW1C.NL', '@takw1c.nl')
+             WHERE p.prs_perslid_key = rec.prs_perslid_key;
+
+            fac.trackaction ('PRSUPD',
+                             rec.prs_perslid_key,
+                             3,
+                             SYSDATE,
+                             'Mailadres omgezet naar @takw1c.nl');
+            
+        EXCEPTION
+            WHEN OTHERS
+            THEN
+                oracle_err_num := SQLCODE;
+                oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
+                v_errormsg :=
+                       v_errorhint
+                    || ' ORACLE (error '
+                    || oracle_err_num
+                    || '/'
+                    || oracle_err_mes
+                    || ')';
+                fac.writelog (p_applname,
+                              'E',
+                              v_aanduiding || v_errormsg,
+                              'Onbekende fout!');
+    
+        END;
+
+    END LOOP;
+    
+END kw1c_export_mail_acp;
+/
+
 ------ payload end   ------
 
 SET DEFINE OFF