ZLMV#76512 -- Inrichting ZLM Verzekeringen

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

ZLMV/ZLMV.sql

@@ -0,0 +1,111 @@
+--
+-- $Id$
+--
+-- Script containing customer specific sql statements for the FACILITOR database
+-- 
+-- 
+-- 
+-- 
+-- 
+
+
+DEFINE thisfile = 'ZLMV.SQL'
+DEFINE dbuser   = 'ZLMV'
+
+SET ECHO ON
+SET DEFINE ON
+COLUMN fcltlogfile NEW_VALUE fcltlogfile NOPRINT;
+COLUMN fcltcusttxt NEW_VALUE fcltcusttxt NOPRINT;
+WHENEVER SQLERROR CONTINUE;
+SELECT adm.getscriptspoolfile('&thisfile') AS fcltlogfile FROM DUAL;
+SPOOL &fcltlogfile
+WHENEVER SQLERROR EXIT;
+SELECT adm.checkscriptcust('&dbuser') AS fcltcusttxt FROM DUAL;
+WHENEVER SQLERROR CONTINUE;
+---------------------------------------
+PROMPT &fcltcusttxt
+---------------------------------------
+SET DEFINE OFF
+
+------ payload begin ------
+
+CREATE OR REPLACE PROCEDURE ZLMV_IMPORT_IMPPERSLID(p_import_key IN NUMBER)
+AS
+  CURSOR c1 is
+      SELECT fac_imp_csv_col01  prs_voornaam,
+             fac_imp_csv_col02  prs_tussenvoegsel,
+             fac_imp_csv_col03  prs_achternaam,
+             fac_imp_csv_col04  prs_email,
+             fac_imp_csv_col05  prs_titel,
+             fac_imp_csv_col06  prs_afdeling
+      FROM fac_imp_csv
+      WHERE fac_import_key=p_import_key
+   ORDER BY fac_imp_csv_key;
+   
+   v_header   NUMBER:=0;
+   v_afdeling_code  VARCHAR2(15);
+BEGIN
+      v_header :=0;
+      DELETE FROM fac_imp_perslid;
+      DELETE FROM fac_imp_organisatie;
+      
+      -- Eerst de csv inlezen naar standaard csv imp tabel
+      fac_import_genericcsv(p_import_key);
+      FOR rec in C1 
+      LOOP
+        IF rec.prs_voornaam='GivenName' AND v_header=0
+        THEN 
+          v_header:=1;
+        ELSE
+             BEGIN
+              SELECT prs_afdeling_naam 
+                INTO v_afdeling_code 
+                FROM prs_afdeling 
+               WHERE UPPER(prs_afdeling_omschrijving)=UPPER(rec.prs_afdeling);             
+             EXCEPTION
+             WHEN NO_DATA_FOUND THEN
+              v_afdeling_code:='Onbekend';
+              
+             END;
+             INSERT INTO fac_imp_perslid(fac_import_key,
+                                         prs_afdeling_naam,
+                                         prs_perslid_voornaam,
+                                         prs_perslid_tussenvoegsel,
+                                         prs_perslid_naam,
+                                         prs_perslid_email,
+                                         prs_srtperslid_omschrijving,
+                                         prs_perslid_oslogin)
+                                  VALUES(p_import_key,
+                                         v_afdeling_code,
+                                         rec.prs_achternaam,
+                                         rec.prs_tussenvoegsel,
+                                         rec.prs_voornaam,
+                                         rec.prs_email,
+                                         rec.prs_titel,
+                                         rec.prs_email);
+        END IF;
+      END LOOP;
+  
+END;
+/
+
+
+CREATE OR REPLACE PROCEDURE ZLMV_UPDATE_IMPPERSLID(p_import_key IN NUMBER)
+AS
+  v_date DATE;
+BEGIN
+  prs.update_perslid (p_import_key, 'EMAIL', 'A', 1);
+END;
+/
+
+------ payload end   ------
+
+SET DEFINE OFF
+BEGIN adm.systrackscriptId ('$Id$', 0); END;
+/
+
+COMMIT;
+SET ECHO OFF
+SPOOL OFF
+SET DEFINE ON
+PROMPT Logfile of this upgrade is: &fcltlogfile