admin/Customer
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

FCLT#66105 -- Omzetten kenmerken email, telefoon en kenteken naar bez_bezoeker tabel

Browse Source 
svn path=/Customer/; revision=50736
This commit is contained in:
Norbert Wassink
2021-04-12 06:45:40 +00:00
parent 97a8654e4b
commit 6b502e8ef8
1 changed files with 100 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

100
onces/YKPN/YKPN#66105.sql Normal file
View File

@@ -0,0 +1,100 @@
--
-- $Id$
--
-- Korte beschrijving wat het script doet
-- Voor dbuser invullen: - indien script voor 1 klant is: 'AADS' (de klantcode, zoals vermeld in fac_version_cust)
-- - script is voor meerdere klanten: 'AAXX' (de groepcode, zoals vermeld in fac_version_group)
-- - script is voor meerdere klanten met naam volgens een bepaald patroon: '^AA|^ASMS|^GULU|^NMMS|^RABO|^ZKHM'
--
DEFINE thisfile = 'YKPN#66105'
DEFINE dbuser = 'YKPN'
SET ECHO ON
SET DEFINE ON
SET serveroutput 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
CURSOR c_email IS
SELECT bez.bez_bezoekers_key, COALESCE(bez.bez_bezoekers_email,'LEEG') bez_email, COALESCE(knw.bez_kenmerkwaarde_waarde, 'LEEG') ken_email
FROM bez_bezoekers bez, bez_kenmerkwaarde knw
WHERE knw.bez_bezoekers_key = bez.bez_bezoekers_key
AND knw.bez_kenmerk_key = 1000
AND TO_CHAR(bez.bez_bezoekers_aanmaak,'YYYY')='2021';
CURSOR c_telefoon IS
SELECT bez.bez_bezoekers_key, COALESCE(bez.bez_bezoekers_telefoon,'LEEG') bez_telefoon, COALESCE(knw.bez_kenmerkwaarde_waarde, 'LEEG') ken_telefoon
FROM bez_bezoekers bez, bez_kenmerkwaarde knw
WHERE knw.bez_bezoekers_key = bez.bez_bezoekers_key
AND knw.bez_kenmerk_key = 1001
AND TO_CHAR(bez.bez_bezoekers_aanmaak,'YYYY')='2021'; -- migreren alleen bezoekers met aanmaak 2021
CURSOR c_kenteken IS
SELECT bez.bez_bezoekers_key, COALESCE(bez.bez_bezoekers_kenteken,'LEEG') bez_kenteken, COALESCE(knw.bez_kenmerkwaarde_waarde, 'LEEG') ken_kenteken
FROM bez_bezoekers bez, bez_kenmerkwaarde knw
WHERE knw.bez_bezoekers_key = bez.bez_bezoekers_key
AND knw.bez_kenmerk_key = 1080
AND TO_CHAR(bez.bez_bezoekers_aanmaak,'YYYY')='2021'; -- migreren alleen bezoekers met aanmaak 2021
v_hint VARCHAR2 (200);
naam bez_bezoekers.bez_afspraak_naam%TYPE;
BEGIN
FOR rec in c_email
LOOP
BEGIN
IF rec.bez_email <> rec.ken_email
THEN
v_hint:='Aanpassen email bezoerks email adres '|| rec.bez_bezoekers_key;
UPDATE bez_bezoekers SET bez_bezoekers_email = rec.ken_email WHERE bez_bezoekers_key=rec.bez_bezoekers_key;
END IF;
END;
END LOOP;
FOR rec in c_telefoon
LOOP
BEGIN
IF rec.bez_telefoon <> rec.ken_telefoon
THEN
v_hint:='Aanpassen telefoon bezoerks telefoon '|| rec.bez_bezoekers_key;
UPDATE bez_bezoekers SET bez_bezoekers_telefoon = rec.ken_telefoon WHERE bez_bezoekers_key=rec.bez_bezoekers_key;
END IF;
END;
END LOOP;
FOR rec in c_kenteken
LOOP
BEGIN
IF rec.bez_kenteken <> rec.ken_kenteken
THEN
v_hint:='Aanpassen kenteken bezoerkes kenteken '|| rec.bez_bezoekers_key;
UPDATE bez_bezoekers SET bez_bezoekers_kenteken = rec.ken_kenteken WHERE bez_bezoekers_key=rec.bez_bezoekers_key;
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