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

TDNL#80795 -- Migratie CONN omgeving naar TDNL omgeving

Browse Source 
svn path=/Customer/trunk/; revision=64658
This commit is contained in:
Norbert Wassink
2024-05-15 06:37:48 +00:00
parent bac15fe578
commit 68952be03c
1 changed files with 302 additions and 43 deletions
Download Patch File Download Diff File Expand all files Collapse all files

345
TDNL/TDNL.sql
View File

@@ -165,6 +165,106 @@ END;
-- IMPORTS
-- Import KPN aan gebouw koppelen
CREATE OR REPLACE PROCEDURE TDNL_IMPORT_GEBOUW_KPN(p_import_key IN NUMBER)
AS
BEGIN
fac_import_genericcsv(p_import_key);
END;
/
CREATE OR REPLACE PROCEDURE TDNL_UPDATE_GEBOUW_KPN(p_import_key IN NUMBER)
AS
CURSOR c
IS
SELECT fac_imp_csv_key fac_imp_csv_key,
fac_imp_csv_col02 locatie_code,
fac_imp_csv_col07 KPN_nr
FROM fac_imp_csv
WHERE fac_import_key = p_import_key;
v_errormsg VARCHAR2 (1000);
v_errorhint VARCHAR2 (1000);
v_aanduiding VARCHAR2 (1000);
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
v_error NUMBER;
v_count NUMBER;
v_alg_locatie_key NUMBER;
v_kostenplaats_key NUMBER;
BEGIN
v_count:=0;
FOR rec IN C
LOOP
IF LOWER(rec.locatie_code) <>'locatiecode'
AND LOWER(rec.kpn_nr) <> 'kostenplaats'
THEN
BEGIN
v_aanduiding:='Locatie met code :'||rec.locatie_code||' niet gevonden';
SELECT l.alg_locatie_key
INTO v_alg_locatie_key
FROM alg_locatie l
WHERE l.alg_locatie_code='3549'
AND l.alg_locatie_verwijder IS NULL
AND (l.alg_locatie_vervaldatum IS NULL
OR l.alg_locatie_vervaldatum > SYSDATE);
v_aanduiding:='Kostenplaats met code :'||rec.KPN_NR||' niet gevonden';
SELECT k.prs_kostenplaats_key
INTO v_kostenplaats_key
FROM prs_kostenplaats k
WHERE k.prs_kostenplaats_nr=rec.KPN_nr
AND k.prs_kostenplaats_verwijder IS NULL;
UPDATE alg_gebouw g
SET g.prs_kostenplaats_key=v_kostenplaats_key
WHERE g.alg_locatie_key=v_alg_locatie_key
AND g.alg_gebouw_verwijder IS NULL
AND (g.alg_gebouw_vervaldatum IS NULL
OR g.alg_gebouw_vervaldatum > SYSDATE);
v_count:=v_count+1;
EXCEPTION
WHEN NO_DATA_FOUND
THEN
v_errorhint := v_errormsg || ' - ' || v_aanduiding;
fac.imp_writelog (p_import_key,
'W',
v_errormsg,
v_errorhint);
END;
END IF;
END LOOP;
DELETE FROM fac_imp_csv
WHERE fac_import_key = p_import_key;
fac.imp_writelog (p_import_key,
'I',
'Succes',
'Er zijn '||v_count||' locaties voorzien van een kostenplaats');
EXCEPTION
WHEN OTHERS THEN
v_errorhint := v_errormsg || ' - ' || v_aanduiding;
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
v_errormsg := 'error ' || oracle_err_num || '/' || oracle_err_mes;
fac.imp_writelog (p_import_key,
'E',
v_errormsg,
v_errorhint);
END;
/
-- Imports verbruiks objecten met evt niet aanweizge ruimtes
@@ -205,13 +305,7 @@ AS
v_alg_verdieping_key NUMBER;
v_alg_ruimte_key NUMBER;
BEGIN
DELETE
FROM fac_imp_csv
WHERE fac_import_key = (SELECT MAX(fac_import_key)
FROM fac_import_app fa,
fac_import fi
WHERE fa.fac_import_app_code='VERBRUIKSOBJ'
AND fi.fac_import_app_key=fa.fac_import_app_key);
fac_import_genericcsv(p_import_key);
FOR rec IN C
LOOP
@@ -288,7 +382,7 @@ BEGIN
END LOOP;
-- eerste even opschonen
delete from fac_imp_ins;
DELETE FROM fac_imp_ins;
-- Gaan we nu de fac_imp_ins vullen
INSERT INTO fac_imp_ins
(ins_discipline_omschrijving,
@@ -337,6 +431,11 @@ CREATE OR REPLACE PROCEDURE TDNL_UPDATE_VERBRUIKSOBJ (p_import_key IN NUMBER)
AS
BEGIN
fac_update_ins(p_import_key);
-- De csv tabel opruimen
DELETE
FROM fac_imp_csv
WHERE fac_import_key = p_import_key;
END;
/
@@ -346,9 +445,6 @@ CREATE OR REPLACE PROCEDURE TDNL_IMPORT_VERBRUIKSWAARDES (p_import_key IN NUMBER
AS
BEGIN
DELETE
FROM fac_imp_csv;
fac_import_genericcsv(p_import_key);
@@ -446,6 +542,8 @@ BEGIN
'S',
'Er zijn '||v_records||' regels aan ins_Kenmerkdeel toegeovegd',
'');
-- Nu de csv data weer verwijderen
DELETE FROM fac_imp_csv
WHERE fac_import_key = p_import_key;
EXCEPTION
@@ -465,14 +563,7 @@ END;
-- Import meldingen uit CONN omgeveing
CREATE OR REPLACE PROCEDURE TDNL_IMPORT_MELDINGEN(p_import_key IN NUMBER)
AS
BEGIN
DELETE
FROM fac_imp_csv
WHERE fac_import_key = (SELECT MAX(fac_import_key)
FROM fac_import_app fa,
fac_import fi
WHERE fa.fac_import_app_code='MELDINGEN'
AND fi.fac_import_app_key=fa.fac_import_app_key);
BEGIN
fac_import_genericcsv(p_import_key);
END;
@@ -635,7 +726,10 @@ BEGIN
END LOOP;
-- Nu de csv data weer verwijderen
DELETE
FROM fac_imp_csv
WHERE fac_import_key = p_import_key;
END;
/
@@ -645,14 +739,7 @@ END;
CREATE OR REPLACE PROCEDURE TDNL_IMPORT_TRACKING(p_import_key IN NUMBER)
AS
BEGIN
DELETE
FROM fac_imp_csv
WHERE fac_import_key = (SELECT MAX(fac_import_key)
FROM fac_import_app fa,
fac_import fi
where fa.fac_import_app_code='TRACKING'
AND fi.fac_import_app_key=fa.fac_import_app_key);
fac_import_genericcsv(p_import_key);
END;
/
@@ -731,6 +818,11 @@ BEGIN
END;
END LOOP;
-- Nu de csv data weer verwijderen
DELETE
FROM fac_imp_csv
WHERE fac_import_key = p_import_key;
END;
/
-- EINDE IMPORT MELDINGEN
@@ -740,14 +832,7 @@ END;
CREATE OR REPLACE PROCEDURE TDNL_IMPORT_OPDRACHTEN(p_import_key IN NUMBER)
AS
BEGIN
DELETE
FROM fac_imp_csv
WHERE fac_import_key = (SELECT MAX(fac_import_key)
FROM fac_import_app fa,
fac_import fi
WHERE fa.fac_import_app_code='OPDRACHT'
AND fi.fac_import_app_key=fa.fac_import_app_key);
COMMIT;
fac_import_genericcsv(p_import_key);
END;
/
@@ -769,6 +854,13 @@ BEGIN
-- Wat is de discipline key van de Overig vakgroep (mld_opdr_discipline_key)
SELECT SYSDATE INTO v_date FROM DUAL;
-- Nu de csv data weer verwijderen
DELETE FROM fac_imp_csv
WHERE fac_import_key = p_import_key;
END;
/
@@ -782,8 +874,7 @@ END;
CREATE OR REPLACE PROCEDURE TDNL_IMPORT_TAKEN(p_import_key IN NUMBER)
AS
BEGIN
DELETE FROM fac_imp_csv WHERE fac_import_key = (SELECT MAX(fac_import_key) FROM fac_import_app fa, fac_import fi where fa.fac_import_app_code='TAKEN' AND fi.fac_import_app_key=fa.fac_import_app_key);
COMMIT;
fac_import_genericcsv(p_import_key);
END;
/
@@ -1003,6 +1094,11 @@ BEGIN
END;
END IF;
END LOOP;
-- Nu de csv data weer verwijderen
DELETE FROM fac_imp_csv
WHERE fac_import_key = p_import_key;
EXCEPTION
WHEN OTHERS THEN
v_errorhint := v_errormsg || ' - ' || v_aanduiding;
@@ -1815,6 +1911,10 @@ END;
/
-- Einde CONN_UPDATE_ASSETS
-- EINDE IMPORTS
@@ -2821,7 +2921,166 @@ AS
AND p.prs_perslid_verwijder IS NULL
AND pf.prs_perslid_key = p.prs_perslid_key;
CREATE OR REPLACE VIEW TDNL_V_SChOONMAAKRONDES
(
melding_key,
melding_datum,
melding_status,
melding_melder,
locatie_code,
locatie_omschrijving,
damestoilet,
damestoiet_opm,
herentoilet,
herentoilet_opm,
middelen,
middelen_opm,
vloer,
vloer_opm,
gang,
gang_opm,
bureau,
bureau_opm,
werkkast,
werkkast_opm,
trap,
trap_opm,
glasbewassing,
glasbewassing_opm
)
AS
SELECT m.mld_melding_key,
TRUNC (m.MLD_MELDING_DATUM)
melding_datum,
stat.mld_statuses_omschrijving status,
p.prs_perslid_naam_friendly melder,
l.alg_locatie_code,
l.alg_locatie_omschrijving,
(SELECT fud.fac_usrdata_omschr
FROM mld_kenmerk k, mld_kenmerkmelding mkm, fac_usrdata fud
WHERE mkm.mld_melding_key = m.mld_melding_key
AND k.mld_kenmerk_key = mkm.mld_kenmerk_key
AND k.mld_kenmerk_code = 'DAMESTOILET'
AND fud.fac_usrdata_key = mkm.mld_kenmerkmelding_waarde)
damestoilet,
(SELECT mkm.mld_kenmerkmelding_waarde
FROM mld_kenmerk k, mld_kenmerkmelding mkm
WHERE mkm.mld_melding_key = m.mld_melding_key
AND k.mld_kenmerk_key = mkm.mld_kenmerk_key
AND k.mld_kenmerk_code = 'DAMESTOILET_OPM')
damestoilet_opm,
(SELECT fud.fac_usrdata_omschr
FROM mld_kenmerk k, mld_kenmerkmelding mkm, fac_usrdata fud
WHERE mkm.mld_melding_key = m.mld_melding_key
AND k.mld_kenmerk_key = mkm.mld_kenmerk_key
AND k.mld_kenmerk_code = 'HERENTOILET'
AND fud.fac_usrdata_key = mkm.mld_kenmerkmelding_waarde)
herentoilet,
(SELECT mkm.mld_kenmerkmelding_waarde
FROM mld_kenmerk k, mld_kenmerkmelding mkm
WHERE mkm.mld_melding_key = m.mld_melding_key
AND k.mld_kenmerk_key = mkm.mld_kenmerk_key
AND k.mld_kenmerk_code = 'HERENTOILET_OPM')
herentoilet_opm,
(SELECT fud.fac_usrdata_omschr
FROM mld_kenmerk k, mld_kenmerkmelding mkm, fac_usrdata fud
WHERE mkm.mld_melding_key = m.mld_melding_key
AND k.mld_kenmerk_key = mkm.mld_kenmerk_key
AND k.mld_kenmerk_code = 'MIDDELEN'
AND fud.fac_usrdata_key = mkm.mld_kenmerkmelding_waarde)
middelen,
(SELECT mkm.mld_kenmerkmelding_waarde
FROM mld_kenmerk k, mld_kenmerkmelding mkm
WHERE mkm.mld_melding_key = m.mld_melding_key
AND k.mld_kenmerk_key = mkm.mld_kenmerk_key
AND k.mld_kenmerk_code = 'MIDDELEN_OPM')
middelen_opm,
(SELECT fud.fac_usrdata_omschr
FROM mld_kenmerk k, mld_kenmerkmelding mkm, fac_usrdata fud
WHERE mkm.mld_melding_key = m.mld_melding_key
AND k.mld_kenmerk_key = mkm.mld_kenmerk_key
AND k.mld_kenmerk_code = 'VLOER'
AND fud.fac_usrdata_key = mkm.mld_kenmerkmelding_waarde)
vloer,
(SELECT mkm.mld_kenmerkmelding_waarde
FROM mld_kenmerk k, mld_kenmerkmelding mkm
WHERE mkm.mld_melding_key = m.mld_melding_key
AND k.mld_kenmerk_key = mkm.mld_kenmerk_key
AND k.mld_kenmerk_code = 'VLOER_OPM')
vloer_opm,
(SELECT fud.fac_usrdata_omschr
FROM mld_kenmerk k, mld_kenmerkmelding mkm, fac_usrdata fud
WHERE mkm.mld_melding_key = m.mld_melding_key
AND k.mld_kenmerk_key = mkm.mld_kenmerk_key
AND k.mld_kenmerk_code = 'GANG'
AND fud.fac_usrdata_key = mkm.mld_kenmerkmelding_waarde)
gang,
(SELECT mkm.mld_kenmerkmelding_waarde
FROM mld_kenmerk k, mld_kenmerkmelding mkm
WHERE mkm.mld_melding_key = m.mld_melding_key
AND k.mld_kenmerk_key = mkm.mld_kenmerk_key
AND k.mld_kenmerk_code = 'GANG_OPM')
gang_opm,
(SELECT fud.fac_usrdata_omschr
FROM mld_kenmerk k, mld_kenmerkmelding mkm, fac_usrdata fud
WHERE mkm.mld_melding_key = m.mld_melding_key
AND k.mld_kenmerk_key = mkm.mld_kenmerk_key
AND k.mld_kenmerk_code = 'BUREAU'
AND fud.fac_usrdata_key = mkm.mld_kenmerkmelding_waarde)
bureau,
(SELECT mkm.mld_kenmerkmelding_waarde
FROM mld_kenmerk k, mld_kenmerkmelding mkm
WHERE mkm.mld_melding_key = m.mld_melding_key
AND k.mld_kenmerk_key = mkm.mld_kenmerk_key
AND k.mld_kenmerk_code = 'BUREAU_OPM')
bureau_opm,
(SELECT fud.fac_usrdata_omschr
FROM mld_kenmerk k, mld_kenmerkmelding mkm, fac_usrdata fud
WHERE mkm.mld_melding_key = m.mld_melding_key
AND k.mld_kenmerk_key = mkm.mld_kenmerk_key
AND k.mld_kenmerk_code = 'WERKKAST'
AND fud.fac_usrdata_key = mkm.mld_kenmerkmelding_waarde)
werkkast,
(SELECT mkm.mld_kenmerkmelding_waarde
FROM mld_kenmerk k, mld_kenmerkmelding mkm
WHERE mkm.mld_melding_key = m.mld_melding_key
AND k.mld_kenmerk_key = mkm.mld_kenmerk_key
AND k.mld_kenmerk_code = 'WERKKAST_OPM')
werkkast_opm,
(SELECT fud.fac_usrdata_omschr
FROM mld_kenmerk k, mld_kenmerkmelding mkm, fac_usrdata fud
WHERE mkm.mld_melding_key = m.mld_melding_key
AND k.mld_kenmerk_key = mkm.mld_kenmerk_key
AND k.mld_kenmerk_code = 'TRAP'
AND fud.fac_usrdata_key = mkm.mld_kenmerkmelding_waarde)
trap,
(SELECT mkm.mld_kenmerkmelding_waarde
FROM mld_kenmerk k, mld_kenmerkmelding mkm
WHERE mkm.mld_melding_key = m.mld_melding_key
AND k.mld_kenmerk_key = mkm.mld_kenmerk_key
AND k.mld_kenmerk_code = 'TRAP_OPM')
trap_opm,
(SELECT fud.fac_usrdata_omschr
FROM mld_kenmerk k, mld_kenmerkmelding mkm, fac_usrdata fud
WHERE mkm.mld_melding_key = m.mld_melding_key
AND k.mld_kenmerk_key = mkm.mld_kenmerk_key
AND k.mld_kenmerk_code = 'GLASBEWAS'
AND fud.fac_usrdata_key = mkm.mld_kenmerkmelding_waarde)
glasbewassing,
(SELECT mkm.mld_kenmerkmelding_waarde
FROM mld_kenmerk k, mld_kenmerkmelding mkm
WHERE mkm.mld_melding_key = m.mld_melding_key
AND k.mld_kenmerk_key = mkm.mld_kenmerk_key
AND k.mld_kenmerk_code = 'GLASBEWAS_OPM')
glasbewassing_opm
FROM mld_melding m,
prs_v_perslid_fullnames_all p,
mld_statuses stat,
alg_v_aanweziglocatie l
WHERE m.mld_stdmelding_key = 63
AND stat.mld_statuses_key = m.mld_melding_status
AND p.prs_perslid_key = m.prs_perslid_key
AND l.alg_locatie_key = m.mld_alg_locatie_key;
@@ -2935,7 +3194,7 @@ AS
FROM fac_tracking t
WHERE t.fac_srtnotificatie_key =405
AND t.fac_tracking_refkey = a.bez_afspraak_key
AND t.fac_tracking_oms LIKE '%CUST04%');
AND t.fac_tracking_oms LIKE '%CUST03%');
-- Notificatie op dag van aanmaak van de afspraak
CREATE OR REPLACE VIEW tdnl_v_noti_bez_aanmaak
@@ -2964,15 +3223,15 @@ AS
NULL xmobile,
a.bez_afspraak_datum
FROM bez_afspraak a, bez_bezoekers b
WHERE a.bez_afspraak_key = b.bez_afspraak_key
AND TRUNC(a.bez_afspraak_datum) = TRUNC(SYSDATE)
WHERE a.bez_afspraak_key = b.bez_afspraak_key
AND a.bez_afspraak_aanmaak BETWEEN f.fac_notificatie_job_lastrun AND f.fac_notificatie_job_nextrun
AND b.bez_bezoekers_email IS NOT NULL
AND NOT EXISTS
(SELECT 1
FROM fac_tracking t
WHERE t.fac_srtnotificatie_key = 405
AND t.fac_tracking_refkey = a.bez_afspraak_key
AND t.fac_tracking_oms LIKE '%CUST03%');
AND t.fac_tracking_oms LIKE '%CUST02%');
-- EIND NOTIFICATIE JOBS