TAYL#78713 -- Implementatie Facilitor bij Taylor en Wessing - once aanvullen kenmerkvelden op personenkaart

svn path=/Customer/; revision=62107
2023-10-08 18:38:14 +00:00
parent 2f5c8b1739
commit 3782deded9
1 changed files with 112 additions and 0 deletions
--- a/onces/TAYL/TAYL#78713_toegangspassen.sql
+++ b/onces/TAYL/TAYL#78713_toegangspassen.sql
@@ -0,0 +1,112 @@
+-- $Id$
+--
+-- Script om toegangspassen EHV, AMS, BRU te registreren in Facilitor (op personenkaart)
+-- 
+--
+DEFINE thisfile = 'TAYL#78713_toegangspassen.SQL'
+DEFINE dbuser   = '^TAYL'
+
+SET ECHO ON
+SET DEFINE ON
+COLUMN fcltlogfile NEW_VALUE fcltlogfile NOPRINT;
+COLUMN fcltcusterr NEW_VALUE fcltcusterr NOPRINT;
+WHENEVER SQLERROR CONTINUE;
+SELECT adm.getscriptspoolfile('&thisfile') AS fcltlogfile FROM DUAL;
+SPOOL &fcltlogfile
+WHENEVER SQLERROR EXIT;
+SELECT adm.checkscriptcust('&dbuser') AS fcltcusterr FROM DUAL;
+WHENEVER SQLERROR CONTINUE;
+PROMPT &fcltcusterr
+SET DEFINE OFF
+
+------ payload begin ------
+
+DECLARE
+    v_errormsg       VARCHAR (200);
+    v_errorhint      VARCHAR (200);
+    oracle_err_num   NUMBER;
+    oracle_err_mes   VARCHAR2 (150);
+    currentversion   fac_module.fac_module_version%TYPE;
+    v_aanduiding     VARCHAR (100);
+    v_count          NUMBER;
+    v_alg_verdieping_key  NUMBER;
+    v_prs_perslid_key NUMBER;
+
+
+    CURSOR C  -- alle togangspasgegevens per persoon
+    IS
+        SELECT *
+            FROM fac_imp_csv
+           WHERE fac_import_key = (SELECT max(fac_import_key) FROM fac_import WHERE fac_import_app_key = 32 AND fac_import_datum_verwerkt IS NULL)  --  GENERIC_CSV - FIP: Generieke CSV import
+                 AND fac_imp_csv_index > 1 ;
+
+        
+BEGIN
+    FOR rec IN c
+    LOOP
+        BEGIN
+            v_errorhint := 'kenmerkvelden in prs vullen';
+            
+            -- eerst prs_perslid_key erbij zoeken...
+            SELECT max(p.prs_perslid_key)
+              INTO v_prs_perslid_key
+              FROM prs_perslid p
+             WHERE p.prs_perslid_oslogin = rec.fac_imp_csv_col02 ;
+            
+            IF v_prs_perslid_key IS NOT NULL
+            THEN
+            
+            -- amsterdam
+            INSERT INTO prs_kenmerklink(prs_link_key,prs_kenmerk_key,prs_kenmerklink_waarde,prs_kenmerklink_niveau) VALUES (v_prs_perslid_key, 1023, rec.fac_imp_csv_col03, 'P') ;
+            
+            -- brussel
+            INSERT INTO prs_kenmerklink(prs_link_key,prs_kenmerk_key,prs_kenmerklink_waarde,prs_kenmerklink_niveau) VALUES (v_prs_perslid_key, 1024, rec.fac_imp_csv_col04, 'P') ;
+            
+                IF rec.fac_imp_csv_col04 = '1' AND rec.fac_imp_csv_col05 IS NOT NULL
+                THEN
+                
+                   -- code pas brussel 
+                   INSERT INTO prs_kenmerklink(prs_link_key,prs_kenmerk_key,prs_kenmerklink_waarde,prs_kenmerklink_niveau) VALUES (v_prs_perslid_key, 1027, rec.fac_imp_csv_col05 ,'P') ;
+                
+                END IF;
+
+            -- eindhoven TWE
+            INSERT INTO prs_kenmerklink(prs_link_key,prs_kenmerk_key,prs_kenmerklink_waarde,prs_kenmerklink_niveau) VALUES (v_prs_perslid_key, 1025, rec.fac_imp_csv_col06 ,'P') ;
+            
+            -- eindhoven KBC
+            INSERT INTO prs_kenmerklink(prs_link_key,prs_kenmerk_key,prs_kenmerklink_waarde,prs_kenmerklink_niveau) VALUES (v_prs_perslid_key, 1026, rec.fac_imp_csv_col07, 'P') ;
+            
+                IF rec.fac_imp_csv_col07 = '1' AND rec.fac_imp_csv_col08 IS NOT NULL
+                THEN
+                
+                   -- code pas KBC 
+                   INSERT INTO prs_kenmerklink(prs_link_key,prs_kenmerk_key,prs_kenmerklink_waarde,prs_kenmerklink_niveau) VALUES (v_prs_perslid_key, 1028, rec.fac_imp_csv_col08 ,'P') ;
+                
+                END IF;
+                
+                
+            BEGIN 
+            	fac.trackaction('PRSUPD', v_prs_perslid_key, 3, NULL, 'Toegangspassen geregistreerd t.b.v. implementatie Facilitor - lijst Kim 6-10-2023');
+            END;
+             
+            
+            END IF;
+
+        END;
+    END LOOP;
+END;
+/
+
+
+
+------ payload end   ------
+
+SET DEFINE OFF
+BEGIN adm.systrackscriptId ('$Id$', 1); END;
+/
+
+COMMIT;
+SET ECHO OFF
+SPOOL OFF
+SET DEFINE ON
+PROMPT Logfile of this upgrade is: &fcltlogfile