admin/Customer
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
802b054f5e819cfea14444917f179ae5e0d45b31
Customer/TDNL/TDNL.sql
Norbert Wassink f1aa0df698 TDNL#86074 -- Ondersteuning bij ZE laadpaalobjecten en storingsmeldingen voor Transdev 
svn path=/Customer/trunk/; revision=68410
2025-03-14 14:32:39 +00:00

4801 lines
215 KiB
MySQL
Raw Blame History

--
-- $$Id$
--
-- Script containing customer specific sql statements for the FACILITOR database
-- 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'
-- Ook als het script gedraaid wordt voor de verkeerde cust wordt er een logfile gemaakt.
-- (dit in tegenstelling tot sample_xxxx.sql)
DEFINE thisfile = 'TDNL.SQL'
DEFINE dbuser = 'TDNL'
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 PACKAGE TDNL
AS
FUNCTION getemaillist(contract_key IN NUMBER) RETURN varchar2;
FUNCTION get_flex_value (pmodule IN VARCHAR2,
p_kenmerk_key IN NUMBER,
p_ref_key IN NUMBER,
p_kenmerkdomein_key IN NUMBER,
p_niveau IN VARCHAR2 DEFAULT NULL)
RETURN VARCHAR2;
END;
/
CREATE OR REPLACE PACKAGE BODY TDNL AS
-- functie voor het opahlen van email adressen bi contract die plaats egnodnen zijn
-- email adressen zijn van de kenmerken concessie diecteir, operationeel manager en locatie manager
FUNCTION getemaillist(contract_key IN NUMBER) RETURN varchar2
AS
v_count NUMBER;
v_alg_plaats_key cnt_contract_plaats.cnt_alg_plaats_key%TYPE;
v_alg_plaats_code cnt_contract_plaats.cnt_alg_plaats_code%TYPE;
v_emails VARCHAR2(2000);
BEGIN
SELECT COUNT(*) INTo v_count
from cnt_contract_plaats
where cnt_contract_key=contract_key AND cnt_contract_plaats_verwijder IS NULL;
IF v_count=1 THEN
-- Ophalen welke locatie/plaats het betreft
SELECT cnt_alg_plaats_key, cnt_alg_plaats_code
INTO v_alg_plaats_key, v_alg_plaats_code
FROM cnt_contract_plaats
WHERE cnt_contract_key=contract_key;
-- Gaan we kijken of we een concessie directeur kunnen vinden
SELECT LISTAGG(email,';') WITHIN GROUP (ORDER BY email)
INTO v_emails
FROM (
SELECT
(SELECT p.prs_perslid_email
FROM prs_perslid p
WHERE p.prs_perslid_key=aok.alg_onrgoedkenmerk_waarde
AND p.prs_perslid_verwijder IS NULL) email
FROM alg_onrgoedkenmerk aok,
alg_kenmerk ak
WHERE aok.alg_onrgoed_key=v_alg_plaats_key
AND aok.alg_onrgoed_niveau='D'
AND UPPER(ak.alg_kenmerk_omschrijving)='CONCESSIE DIRECTEUR'
AND aok.alg_kenmerk_key = ak.alg_kenmerk_key
UNION
SELECT
(SELECT p.prs_perslid_email
FROM prs_perslid p
WHERE p.prs_perslid_key=aok.alg_onrgoedkenmerk_waarde
AND p.prs_perslid_verwijder IS NULL) email
FROM alg_onrgoedkenmerk aok,
alg_kenmerk ak
WHERE aok.alg_onrgoed_key=v_alg_plaats_key
AND aok.alg_onrgoed_niveau='D'
AND UPPER(ak.alg_kenmerk_omschrijving)='OPERATIONEEL MANAGER'
AND aok.alg_kenmerk_key = ak.alg_kenmerk_key
UNION
SELECT
(SELECT p.prs_perslid_email
FROM prs_perslid p
WHERE p.prs_perslid_key=aok.alg_onrgoedkenmerk_waarde
AND p.prs_perslid_verwijder IS NULL) email
FROM alg_onrgoedkenmerk aok,
alg_kenmerk ak
WHERE aok.alg_onrgoed_key=v_alg_plaats_key
AND aok.alg_onrgoed_niveau='L'
AND UPPER(ak.alg_kenmerk_omschrijving)='LOCATIE MANAGER'
AND aok.alg_kenmerk_key = ak.alg_kenmerk_key
UNION
SELECT
(SELECT p.prs_perslid_email
FROM prs_perslid p
WHERE p.prs_perslid_key=aok.alg_onrgoedkenmerk_waarde
AND p.prs_perslid_verwijder IS NULL) email
FROM alg_onrgoedkenmerk aok,
alg_kenmerk ak
WHERE aok.alg_onrgoed_key=v_alg_plaats_key
AND aok.alg_onrgoed_niveau='D'
AND UPPER(ak.alg_kenmerk_omschrijving)='MANAGER FACILITAIR'
AND aok.alg_kenmerk_key = ak.alg_kenmerk_key
UNION
SELECT
(SELECT p.prs_perslid_email
FROM prs_perslid p
WHERE p.prs_perslid_key=aok.alg_onrgoedkenmerk_waarde
AND p.prs_perslid_verwijder IS NULL) email
FROM alg_onrgoedkenmerk aok,
alg_kenmerk ak
WHERE aok.alg_onrgoed_key=v_alg_plaats_key
AND aok.alg_onrgoed_niveau='D'
AND UPPER(ak.alg_kenmerk_omschrijving)='MANAGER VASTGOED'
AND aok.alg_kenmerk_key = ak.alg_kenmerk_key
UNION
SELECT p.prs_perslid_email
FROM prs_perslid p,
cnt_contract c
WHERE c.cnt_contract_key=contract_key
AND p.prs_perslid_key = c.prs_perslid_key_beh
);
END IF;
RETURN v_emails;
END;
FUNCTION get_flex_value (
pmodule IN VARCHAR2,
p_kenmerk_key IN NUMBER,
p_ref_key IN NUMBER,
p_kenmerkdomein_key IN NUMBER,
p_niveau IN VARCHAR2 DEFAULT NULL)
RETURN VARCHAR2
AS
v_value VARCHAR2 (4000);
v_kenmerkdomein_key NUMBER (10);
BEGIN
v_value :=
flx.getflex (pmodule,
p_kenmerk_key,
p_ref_key,
p_niveau);
IF p_kenmerkdomein_key IS NOT NULL
THEN
v_value := flx.getdomeinwaarde (p_kenmerkdomein_key, v_value);
END IF;
RETURN v_value;
END;
END;
/
-- IMPORTS
CREATE OR REPLACE PROCEDURE TDNL_IMPORT_PERSLID_WP(p_import_key IN NUMBER)
AS
BEGIN
fac_import_perslid(p_import_key);
END;
/
CREATE OR REPLACE PROCEDURE TDNL_UPDATE_PERSLID_WP(p_import_key IN NUMBER)
AS
BEGIN
prs.update_perslid (p_import_key, 'NR', 'G', 1);
END;
/
-- Import KPN aan gebouw koppelen
CREATE OR REPLACE PROCEDURE TDNL_IMPORT_GEBOUW_KPN(p_import_key IN NUMBER)
AS
BEGIN
NULL;
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 of uitbeheer';
SELECT l.alg_locatie_key
INTO v_alg_locatie_key
FROM alg_locatie l
WHERE l.alg_locatie_code=rec.locatie_code
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;
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
CREATE OR REPLACE PROCEDURE TDNL_IMPORT_VERBRUIKSOBJ (p_import_key IN NUMBER)
AS
CURSOR c
IS
SELECT fac_imp_csv_key fac_imp_csv_key,
fac_imp_csv_col01 ins_deel_key_org,
fac_imp_csv_col02 ins_discipline_omschrijving,
fac_imp_csv_col03 ins_kostenplaats,
fac_imp_csv_col04 ins_srtgroep_omschrijving,
fac_imp_csv_col05 ins_srtdeel_code,
fac_imp_csv_col06 ins_srtdeel_omschrijving,
fac_imp_csv_col07 ins_deel_omschrijving,
fac_imp_csv_col08 ins_deel_opmerking,
fac_imp_csv_col09 ins_deel_resreveerbaar,
fac_imp_csv_col10 ins_deel_eenheid,
fac_imp_csv_col11 prijs,
fac_imp_csv_col12 alg_locatie_code,
fac_imp_csv_col13 alg_gebouw_code,
fac_imp_csv_col14 alg_verdipeing_nr,
fac_imp_csv_col15 alg_ruimte_nr,
fac_imp_csv_col22 ins_deel_aanmaak,
fac_imp_csv_col23 ins_deel_vervaldatum,
fac_imp_csv_col24 ins_deel_aantal
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_alg_gebouw_key NUMBER;
v_alg_verdieping_key NUMBER;
v_alg_ruimte_key NUMBER;
BEGIN
FOR rec IN C
LOOP
v_errorhint:='Locatie niet gevonden';
v_error:=1;
SELECT l.alg_locatie_key INTO v_alg_locatie_key
FROM alg_locatie l
WHERE l.alg_locatie_code =rec.alg_locatie_code
AND l.alg_locatie_verwijder IS NULL;
v_errorhint:='Gebouw niet gevonden';
v_error:=2;
SELECT g.alg_gebouw_key INTO v_alg_gebouw_key
FROM alg_gebouw g
WHERE g.alg_gebouw_code=rec.alg_locatie_code
AND g.alg_locatie_key = v_alg_locatie_key
AND g.alg_gebouw_verwijder IS NULL;
v_errorhint:='Verdieping niet gevonden';
v_error:=3;
BEGIN
SELECT v.alg_verdieping_key INTO v_alg_verdieping_key
FROM alg_verdieping v
WHERE v.alg_verdieping_volgnr=0 -- we willen een verdpeing 0 hebben onafhanleijk wat in de csv staat.
AND v.alg_gebouw_key=v_alg_gebouw_key
AND v.alg_verdieping_verwijder IS NULL;
EXCEPTION WHEN NO_DATA_FOUND THEN
INSERT INTO alg_verdieping (alg_gebouw_key,
alg_verdieping_code,
alg_verdieping_omschrijving,
alg_verdieping_volgnr,
alg_verdieping_aanmaak)
VALUES (v_alg_gebouw_key,
'00',
'Verdieping 0',
0,
SYSDATE)
RETURN alg_verdieping_key INTO v_alg_verdieping_key; -- Gaan we v_error op 4 zetten want als er geen verdieping si moet er ook een ruimte worden aangemaakt.
UPDATE fac_imp_csv
SET fac_imp_csv_col14 = '0'
WHERE fac_imp_csv_key = rec.fac_imp_csv_key;
END;
v_errorhint:='Ruimte niet gevonden';
v_error:=4;
BEGIN
SELECT r.alg_ruimte_key INTO v_alg_ruimte_key
FROM alg_ruimte r
WHERE r.alg_ruimte_nr='0.00'
AND r.alg_verdieping_key=v_alg_verdieping_key
AND r.alg_ruimte_verwijder IS NULL;
EXCEPTION WHEN NO_DATA_FOUND THEN
v_errorhint:='Fout bij aanmkaken ruimte';
INSERT INTO alg_ruimte (alg_verdieping_key,
alg_ruimte_nr,
alg_ruimte_upper_nr,
alg_ruimte_omschrijving,
alg_ruimte_aanmaak)
VALUES (v_alg_verdieping_key,
'0.00',
UPPER ('0.00'),
'Gehele gebouw',
SYSDATE);
UPDATE fac_imp_csv
SET fac_imp_csv_col15 = '0.00'
WHERE fac_imp_csv_key = rec.fac_imp_csv_key; -- Gaan we de imp_+cscv aanpassen zodat dit nieuw aangemaakt ruimteNr gebruikt wordt
END;
END LOOP;
-- eerste even opschonen
DELETE FROM fac_imp_ins;
-- Gaan we nu de fac_imp_ins vullen
INSERT INTO fac_imp_ins
(ins_discipline_omschrijving,
ins_srtgroep_omschrijving,
ins_srtdeel_code,
ins_srtdeel_omschrijving,
ins_deel_omschrijving,
ins_deel_opmerking,
alg_locatie_code,
alg_gebouw_code,
alg_verdieping_volgnr,
alg_ruimte_nr,
ins_deel_AANMAAK,
ins_deel_vervaldatum,
ins_deel_aantal)
SELECT fac_imp_csv_col02,
fac_imp_csv_col04,
fac_imp_csv_col05,
fac_imp_csv_col06,
fac_imp_csv_col07,
fac_imp_csv_col08,
fac_imp_csv_col12,
fac_imp_csv_col12,
'0',
'0.00',
TO_DATE(fac_imp_csv_col22,'DD-MM-YYYY'),
TO_DATE(fac_imp_csv_col23,'DD-MM-YYYY'),
fac_imp_csv_col24
FROM fac_imp_csv
WHERE fac_import_key = p_import_key;
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;
/
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;
/
CREATE OR REPLACE PROCEDURE TDNL_IMPORT_VERBRUIKSWAARDES (p_import_key IN NUMBER)
AS
BEGIN
NULL;
END;
/
CREATE OR REPLACE PROCEDURE TDNL_UPDATE_VERBRUIKSWAARDES (p_import_key IN NUMBER)
AS
CURSOR c
IS
SELECT fac_imp_csv_key fac_imp_csv_key,
fac_imp_csv_col01 ins_deel_omschrijving,
fac_imp_csv_col02 kenmerk_waarde,
fac_imp_csv_col03 kenmerk_aanmaakdatum,
fac_imp_csv_col04 kenmerk_verwijderdatum,
fac_imp_csv_col05 ins_srtdeel
from fac_imp_csv
WHERE fac_import_key = p_import_key
ORDER BY fac_imp_csv_index;
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_counter NUMBER;
v_records NUMBER;
v_ins_kenmerk_key NUMBER;
v_ins_deel_key NUMBER;
v_kenmerk_aanmaakdatum DATE;
v_kenmerk_verwijderdatum DATE;
BEGIN
v_records:=0;
v_counter:=0;
v_aanduiding := 'Kenmerk key voor Meterstand niet gevonden';
SELECT ins_kenmerk_key INTO v_ins_kenmerk_key
FROM ins_kenmerk ik
WHERE ik.ins_kenmerk_code='METERSTAND' AND ik.ins_kenmerk_verwijder IS NULL;
IF v_ins_kenmerk_key>0 THEN
FOR rec IN c
LOOP
IF v_counter>0 THEN --- De header lezen we niet in
BEGIN -- gaan we eerst het object opzoeken als de ins_deel_omschrijving anders dan de vorige
v_aanduiding:= 'Object met omschrijving '||rec.ins_deel_omschrijving||' is niet gevonden';
SELECT i.ins_deel_key INTO v_ins_deel_key
FROM ins_deel i
WHERE i.ins_deel_omschrijving=rec.ins_deel_omschrijving
AND i.ins_deel_verwijder IS NULL;
--AND sd.INS_SRTDEEL_KEY=i.INS_SRTDEEL_KEY
--AND UPPER(sd.INS_SRTDEEL_OMSCHRIJVING) = UPPER(rec.ins_srtdeel);
v_kenmerk_aanmaakdatum:= fac.safe_to_date(rec.kenmerk_aanmaakdatum,'DD-MM-YYYY HH24:MI:SS');
v_kenmerk_verwijderdatum:=fac.safe_to_date(rec.kenmerk_verwijderdatum,'DD-MM-YYYY HH24:MI:SS');
v_aanduiding:= '1-Fout bij wegschrijven van Meterstand voor object '||rec.ins_deel_omschrijving||'-'||v_ins_deel_key||' met waarde '||rec.kenmerk_waarde;
-- KIJKEN OF ER AL EEN KENMERK IS op de deel_key, kenmerk-key en aanmaak datum en verwijder datum
SELECT COUNT(*) INTO v_count
FROM ins_kenmerkdeel
WHERE ins_deel_key=v_ins_deel_key
AND ins_kenmerk_key=v_ins_kenmerk_key
AND ins_kenmerkdeel_aanmaak = v_kenmerk_aanmaakdatum
-- AND ins_kenmerkdeel_verwijder=v_kenmerk_verwijderdatum
AND ins_kenmerkdeel_waarde=rec.kenmerk_waarde;
IF v_count=0 AND v_ins_deel_key >0 THEN
INSERT INTO ins_kenmerkdeel (ins_deel_key,
ins_kenmerk_key,
ins_kenmerkdeel_aanmaak,
ins_kenmerkdeel_verwijder,
ins_kenmerkdeel_waarde)
VALUES (v_ins_deel_key,
v_ins_kenmerk_key,
v_kenmerk_aanmaakdatum,
v_kenmerk_verwijderdatum,
rec.kenmerk_waarde);
v_records:=v_records+1;
ELSE
fac.imp_writelog (p_import_key,
'W',
'Reeds aanwezig',
v_aanduiding);
END IF;
EXCEPTION
WHEN NO_DATA_FOUND THEN
fac.imp_writelog (p_import_key,
'W',
'Niet gevonden',
v_aanduiding);
WHEN TOO_MANY_ROWS THEN
fac.imp_writelog (p_import_key,
'W',
'Vaker gevonden',
v_aanduiding);
END;
ELSE
v_counter:=v_counter+1;
END IF;
END LOOP;
END IF;
fac.imp_writelog (p_import_key,
'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
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;
/
-- Import meldingen uit CONN omgeveing
CREATE OR REPLACE PROCEDURE TDNL_IMPORT_MELDINGEN(p_import_key IN NUMBER)
AS
BEGIN
NULL;
END;
/
CREATE OR REPLACE PROCEDURE TDNL_UPDATE_MELDINGEN(p_import_key IN NUMBER)
AS
CURSOR sel
IS
SELECT fac_imp_csv_col01 mld_org_melding_key,
fac_imp_csv_col02 alg_onrgoed_niveau,
fac_imp_csv_col03 alg_locatie_code,
fac_imp_csv_col03 alg_gebouw_code, -- DIT DIEN WE EXTRA OMDAT DE locatie_code in de oude omgeviung voor oude gebouw en niet goed is.
fac_imp_csv_col05 alg_verdieping_code,
fac_imp_csv_col06 alg_ruimte_nr,
fac_imp_csv_col07 mld_stdmelding_key,
fac_imp_csv_col08 mld_melding_datum,
fac_imp_csv_col09 mld_melding_afmelddatum,
fac_imp_csv_col10 mld_melding_onderwerp,
fac_imp_csv_col11 mld_melding_status,
COALESCE(fac_imp_csv_col12,'migratie@transdev.nl') prs_aanvrager_oslogin,
fac_imp_csv_col13 prs_aanvrager_naam,
COALESCE(fac_imp_csv_col14,'migratie@transdev.nl') prs_behandelaar_oslogin,
fac_imp_csv_col15 prs_behandelaar_naam,
fac_imp_csv_col16 prs_kostenplaats_code,
fac_imp_csv_col17 mld_melding_kenmerken,
fac_imp_csv_col19 mld_melding_omschrijving
FROm fac_imp_csv
WHERE fac_import_key = p_import_key
ORDER BY fac_imp_csv_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_onrgoed_niveau VARCHAR2(10);
v_alg_locatie_key NUMBER;
v_alg_gebouw_key NUMBER;
v_alg_ruimte_key NUMBER;
v_alg_onrgoed_key NUMBER;
v_prs_aanvrager_key NUMBER;
v_naam_aanvrager VARCHAR2(100);
v_naam_behandelaar VARCHAR2(100);
v_prs_behandelaar_key NUMBER;
v_stdmelding_key NUMBER;
v_kostenplaats_key NUMBER;
v_mld_meldbron_key NUMBER;
v_mldkey NUMBER;
v_aantal NUMBER;
v_migratie NUMBER;
v_aanvrager VARCHAR2(100);
v_behandelaar VARCHAR2(100);
v_kenmerk_key NUMBER;
BEGIN
v_stdmelding_key := 1; -- standaard worden alle migratie meldingen op de stdmelding overig gezet
v_mld_meldbron_key :=5;
v_aanduiding :='Ophalen melding kenmerk key met code=CONN_MLD_KEY is muslukt';
SELECT mld_kenmerk_key
INTO v_kenmerk_key
FROM mld_kenmerk
WHERE mld_kenmerk_code='CONN_MLD_KEY';
FOR rec IN sel
LOOP
v_error:=0;
v_migratie :=0;
v_count:=0;
v_aanduiding :='De melding met nr : '||rec.mld_org_melding_key||' is reeds bekend';
SELECT COUNT(*)
INTO v_count
FROM mld_melding
WHERE mld_melding_externnr=rec.mld_org_melding_key;
IF v_count=0
THEN
BEGIN
v_aanduiding:='Ophalen std melding gaat fout :'|| rec.mld_stdmelding_key;
SELECT alg_onrgoed_niveau, mld_stdmelding_key
INTO v_alg_onrgoed_niveau, v_stdmelding_key
FROM mld_stdmelding ms
WHERE ms.mld_stdmelding_key=rec.mld_stdmelding_key;
EXCEPTION
WHEN NO_DATA_FOUND
THEN
SELECT alg_onrgoed_niveau, mld_stdmelding_key
INTO v_alg_onrgoed_niveau, v_stdmelding_key
FROM mld_stdmelding ms
WHERE ms.mld_stdmelding_code='MIGRATIE';
END;
BEGIN
v_aanduiding:='Ophalen locatie gaat fout :'|| rec.alg_locatie_code;
SELECT l.alg_locatie_key, g.alg_gebouw_key
INTO v_alg_locatie_key, v_alg_gebouw_key
FROM alg_gebouw g, alg_locatie l
WHERE g.alg_gebouw_code=rec.alg_gebouw_code
AND (g.ALG_GEBOUW_VERWIJDER IS NULL OR g.ALG_GEBOUW_VERVALDATUM> SYSDATE)
AND l.ALG_LOCATIE_KEY = g.ALG_LOCATIE_KEY
AND l.alg_locatie_code=rec.alg_locatie_code
AND (l.ALG_locatie_VERWIJDER IS NULL OR l.ALG_locatie_VERVALDATUM> SYSDATE);
EXCEPTION
WHEN NO_DATA_FOUND
THEN
SELECT l.alg_locatie_key, g.alg_gebouw_key
INTO v_alg_locatie_key, v_alg_gebouw_key
FROM alg_gebouw g, alg_locatie l
WHERE g.alg_gebouw_code='0000'
AND l.ALG_LOCATIE_KEY = g.ALG_LOCATIE_KEY
AND l.alg_locatie_code='0000';
v_migratie:=1;
END;
IF v_alg_onrgoed_niveau='G'
THEN
v_alg_onrgoed_key:=v_alg_gebouw_key;
ELSE
v_alg_onrgoed_key:=v_alg_locatie_key;
END IF;
-- Ophalen aanvrager
v_aanduiding:='Ophalen aanvrager op oslogin gaat fout :'|| rec.prs_aanvrager_oslogin;
v_error:=0;
SELECT COUNT(*), MAX(prs_perslid_key)
INTO v_aantal, v_prs_aanvrager_key
FROM prs_perslid p
WHERE UPPER(prs_perslid_oslogin)=UPPER(rec.prs_aanvrager_oslogin);
v_error:=0;
IF v_aantal=0
THEN
BEGIN
v_aanduiding:='Ophalen aanvrager op naam gaat fout :'|| rec.prs_aanvrager_oslogin;
IF INSTR(rec.prs_aanvrager_oslogin,'@') >0 THEN
v_aanvrager:=UPPER(SUBSTR(rec.prs_aanvrager_oslogin,0,INSTR(rec.prs_aanvrager_oslogin,'@')-1));
ELSE
v_aanvrager:=UPPER(rec.prs_aanvrager_oslogin);
END IF;
SELECT prs_perslid_key
INTO v_prs_aanvrager_key
FROM prs_perslid p
WHERE UPPER(prs_perslid_oslogin) LIKE v_aanvrager||'%';
EXCEPTION
WHEN NO_DATA_FOUND
THEN
SELECT prs_perslid_key
INTO v_prs_aanvrager_key
FROM prs_perslid p
WHERE UPPER(prs_perslid_oslogin)= '_MIGRATIE';
END;
END IF;
v_aanduiding:='Ophalen behandelaar op oslogin gaat fout :'|| rec.prs_behandelaar_oslogin;
v_naam_behandelaar := SUBSTR(rec.prs_behandelaar_oslogin,0, INSTR(rec.prs_behandelaar_oslogin,'@')-1);
SELECT COUNT(*), MAX(prs_perslid_key)
INTO v_aantal, v_prs_behandelaar_key
FROM prs_perslid p
WHERE UPPER(prs_perslid_oslogin)=UPPER(rec.prs_behandelaar_oslogin);
IF v_aantal =0
THEN
BEGIN
v_aanduiding:='Ophalen behandelaar op naam gaat fout :'|| rec.prs_behandelaar_oslogin;
IF INSTR(rec.prs_behandelaar_oslogin,'@') >0 THEN
v_behandelaar:=UPPER(SUBSTR(rec.prs_behandelaar_oslogin,0,INSTR(rec.prs_behandelaar_oslogin,'@')-1));
ELSE
v_behandelaar:=UPPER(rec.prs_behandelaar_oslogin);
END IF;
SELECT prs_perslid_key
INTO v_prs_aanvrager_key
FROM prs_perslid p
WHERE UPPER(prs_perslid_email) LIKE v_behandelaar||'%';
EXCEPTION
WHEN NO_DATA_FOUND
THEN
-- v_prs_behandelaar_key:=3; -- Nader te bepalen nu even facilitor
SELECT prs_perslid_key
INTO v_prs_behandelaar_key
FROM prs_perslid p
WHERE UPPER(prs_perslid_oslogin)= '_MIGRATIE_BEHANDELAAR';
END;
END IF;
-- Ophalen kostenplaats
BEGIN
v_aanduiding:='Ophalen kostenplaats gaat fout :'|| rec.prs_kostenplaats_code;
SELECT prs_kostenplaats_key
INTO v_kostenplaats_key
FROM prs_kostenplaats
WHERE prs_kostenplaats_nr = rec.prs_kostenplaats_code
AND prs_kostenplaats_verwijder IS NULL;
EXCEPTION
WHEN NO_DATA_FOUND
THEN
v_kostenplaats_key:=NULL;
END;
-- gaan we nu verwerken
IF v_error=0
THEN
-- fac.imp_writelog (p_import_key,'I','stdmelding_key',v_stdmelding_key);
-- fac.imp_writelog (p_import_key,'I','Locatie_key',v_alg_locatie_key);
-- fac.imp_writelog (p_import_key,'I','Onrgd_key',v_alg_onrgoed_key);
-- fac.imp_writelog (p_import_key,'I','behandelaar_key',v_prs_behandelaar_key);
-- fac.imp_writelog (p_import_key,'I','aanvrager_key',v_prs_aanvrager_key);
-- fac.imp_writelog (p_import_key,'I','meld datum',rec.mld_melding_datum);
v_aanduiding:='Toevoegen melding gaat fout :'|| rec.mld_org_melding_key;
INSERT INTO mld_melding (mld_melding_module,
mld_meldbron_key,
mld_alg_locatie_key,
mld_alg_onroerendgoed_keys,
mld_melding_datum,
mld_melding_onderwerp,
mld_melding_omschrijving,
mld_melding_behandelaar_key,
mld_melding_behandelaar2_key,
mld_ins_discipline_key,
mld_stdmelding_key,
mld_melding_t_uitvoertijd,
mld_melding_einddatum,
prs_perslid_key,
prs_perslid_key_voor,
mld_melding_status,
mld_melding_spoed,
MLD_MELDING_EXTERNNR)
VALUES ('MLD',
v_mld_meldbron_key,
v_alg_locatie_key,
v_alg_onrgoed_key,
fac.safe_to_date(rec.mld_melding_datum,'DD-MM-YYYY HH24:MI.SS'),
rec.mld_melding_onderwerp,
rec.mld_melding_omschrijving,
v_prs_behandelaar_key, -- mld_melding_behandelaar_key
TO_NUMBER(NULL), -- mld_melding_behandelaar2_key
TO_NUMBER(NULL),
v_stdmelding_key,
NULL,
fac.safe_to_date(rec.mld_melding_afmelddatum,'DD-MM-YYYY HH24:MI.SS'),
v_prs_aanvrager_key,
v_prs_aanvrager_key,
rec.mld_melding_status,
3,
rec.mld_org_melding_key
)
RETURNING mld_melding_key
INTO v_mldkey;
v_aanduiding:='Aanmaken kenmerk CONN meldingsNr is mislukt.';
flx.setflex('MLD',v_kenmerk_key,v_mldkey,rec.mld_org_melding_key);
v_aanduiding := 'Toevoegen notities bij melding '||rec.mld_org_melding_key|| 'gaat fout';
INSERT INTO mld_melding_note (mld_melding_key,
mld_melding_note_aanmaak,
mld_melding_note_wijzigdatum,
prs_perslid_key,
mld_melding_note_omschrijving,
mld_melding_note_flag)
VALUES (v_mldkey,
fac.safe_to_date(rec.mld_melding_datum,'DD-MM-YYYY HH24:MI.SS'),
SYSDATE,
3, -- Facilitor
'Migratie melding CONN melding: ' || rec.mld_org_melding_key||CHR(10)||'Aanvrager: '|| rec.prs_aanvrager_naam,
0);
IF rec.mld_melding_kenmerken IS NOT NULL
THEN
INSERT INTO mld_melding_note (mld_melding_key,
mld_melding_note_aanmaak,
mld_melding_note_wijzigdatum,
prs_perslid_key,
mld_melding_note_omschrijving,
mld_melding_note_flag)
VALUES (v_mldkey,
fac.safe_to_date(rec.mld_melding_datum,'DD-MM-YYYY HH24:MI.SS'),
SYSDATE,
3, -- Facilitor
'Kenmerken :' ||CHR(10)|| REPLACE(rec.mld_melding_kenmerken,';',CHR(10)),
0);
END IF;
fac.imp_writelog (p_import_key,
'I',
'Melding toegevoegd',
'melding '|| v_mldkey||' aangemaakt voor migratie melding :'||rec.mld_org_melding_key);
ELSE
fac.imp_writelog (p_import_key,
'E',
'Niet gevonden',
v_aanduiding);
END IF;
ELSE
fac.imp_writelog (p_import_key,
'E',
'Reeds aanwezig',
v_aanduiding);
END IF;
END LOOP;
COMMIT;
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;
/
-- EINDE meldingen import
-- Import opdrachten
CREATE OR REPLACE PROCEDURE TDNL_IMPORT_OPDRACHTEN(p_import_key IN NUMBER)
AS
BEGIN
NULL;
END;
/
CREATE OR REPLACE PROCEDURE TDNL_UPDATE_OPDRACHTEN(p_import_key IN NUMBER)
AS
CURSOR sel
IS
SELECT fac_imp_csv.FAC_IMP_CSV_INDEX regel,
fac_imp_csv_col01 mld_org_melding_key,
fac_imp_csv_col02 mld_opdr_volgnr,
fac_imp_csv_col03 mld_statusopdr_key,
fac_imp_csv_col04 mld_opdrtype,
fac_imp_csv_col05 mld_opdr_discipline_key,
fac_imp_csv_col06 prs_leverancier_nr,
fac_imp_csv_col07 mld_opdr_omschrijving,
fac_imp_csv_col08 mld_opdr_begindatum,
fac_imp_csv_col09 mld_opdr_einddatum,
fac_imp_csv_col10 prs_kostenplaats_nr,
fac_imp_csv_col11 mld_opdr_kosten,
fac_imp_csv_col12 prs_perslid_oslogin,
fac_imp_csv_col13 prs_leverancier_naam,
fac_imp_csv_col14 mld_org_opdr_key,
fac_imp_csv_col15 ken_coupa_onderwerp,
fac_imp_csv_col16 ken_coupa_id,
fac_imp_csv_col17 ken_coupa_inkoopnr
FROM fac_imp_csv
WHERE fac_import_key = p_import_key
ORDER BY fac_imp_csv_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_regel NUMBER;
v_melding_key NUMBER;
v_mld_opdr_key NUMBER;
v_prs_kostenplaats_key NUMBER;
v_mld_ins_discipline_key NUMBER;
v_mld_typeopdr_key NUMBER;
v_prs_perslid_key NUMBER;
v_uitvoerende_key NUMBER;
v_coupa_onderwerp_key NUMBER;
v_coupa_id_key NUMBER;
v_coupa_inkoopnr_key NUMBER;
v_opdr_status_key NUMBER;
v_mld_status_key NUMBER;
v_conn_opdr_nr NUMBER;
v_mld_datum DATE;
BEGIN
v_error:=0;
FOR rec in sel
LOOP
v_regel:=rec.regel;
v_error:=0;
v_count:=0;
v_aanduiding:='Ophalen kenmerk COUPA ONDERWERP is mislukt';
BEGIN
SELECT mld_kenmerk_key
INTO v_coupa_onderwerp_key
FROM mld_kenmerk k
WHERE UPPER(k.MLD_KENMERK_OMSCHRIJVING)='COUPA ONDERWERP'
AND k.MLD_KENMERK_NIVEAU='O';
EXCEPTION
WHEN NO_DATA_FOUND
THEN
v_error:=1;
END;
v_aanduiding:='Ophalen kenmerk AANVRAAGNR is mislukt';
BEGIN
SELECT mld_kenmerk_key
INTO v_coupa_id_key
FROM mld_kenmerk k
WHERE UPPER(k.MLD_KENMERK_OMSCHRIJVING)='AANVRAAGNR'
AND k.MLD_KENMERK_NIVEAU='O';
EXCEPTION
WHEN NO_DATA_FOUND
THEN
v_error:=1;
END;
v_aanduiding:='Ophalen kenmerk INKOOPNR is mislukt';
BEGIN
SELECT mld_kenmerk_key
INTO v_coupa_inkoopnr_key
FROM mld_kenmerk k
WHERE UPPER(k.MLD_KENMERK_OMSCHRIJVING)='INKOOPNR'
AND k.MLD_KENMERK_NIVEAU='O';
EXCEPTION
WHEN NO_DATA_FOUND
THEN
v_error:=1;
END;
v_aanduiding:='Ophalen kenmerk CONN OPDRACHTNR is mislukt';
BEGIN
SELECT mld_kenmerk_key
INTO v_conn_opdr_nr
FROM mld_kenmerk k
WHERE UPPER(k.MLD_KENMERK_OMSCHRIJVING)='CONN OPDRACHTNR'
AND k.MLD_KENMERK_NIVEAU='O';
EXCEPTION
WHEN NO_DATA_FOUND
THEN
v_error:=1;
END;
-- Wat is het m,elding_key van dze opdracht,
-- Wat is d eins_discipine van deze melding , nodig bij opdarcht insert
-- Welke relatie is het verstuurd, haal die op en anders fall back leverancier
--
v_aanduiding:='Ophalen van meldning met nr:'||rec.mld_org_melding_key||' is mislukt';
BEGIN
SELECT m.mld_melding_key , msm.mld_ins_discipline_key, mld_melding_status, mld_melding_datum
INTO v_melding_key, v_mld_ins_discipline_key, v_mld_status_key, v_mld_datum
FROM mld_melding m, mld_stdmelding msm
WHERE m.mld_melding_externnr=rec.mld_org_melding_key
AND msm.mld_stdmelding_key = m.mld_stdmelding_key;
EXCEPTION
WHEN NO_DATA_FOUND
THEN
v_error:=1;
END;
IF v_melding_key>0 AND v_error=0 AND rec.mld_opdr_volgnr=1
THEN
IF v_mld_status_key=5 OR v_mld_status_key=6
THEN
fac.trackaction('#MLDTRK',v_melding_key,NULL, v_mld_datum,'Migratie melding aangemaakt');
ELSE
fac.trackaction('#MLDNEW',v_melding_key,NULL, v_mld_datum,'Migratie melding aangemaakt');
END IF;
END IF;
IF v_error=0 THEN
v_aanduiding:='Opdracht is al bekend :'||v_melding_key||'/'||rec.mld_opdr_volgnr ||'(regel: '||v_regel||')';
SELECT COUNT(*)
INTO v_count
FROM mld_opdr o
WHERE o.mld_melding_key=v_melding_key
AND o.mld_opdr_bedrijfopdr_volgnr=rec.mld_opdr_volgnr;
IF v_count>0 THEN
v_error:=1;
END IF;
END IF;
IF v_error=0 THEN
BEGIN
v_aanduiding:='Ophalen van kostenplaats nr :'||rec.prs_kostenplaats_nr||' is mislukt.';
SELECT p.prs_kostenplaats_key
INTO v_prs_kostenplaats_key
FROM prs_kostenplaats p
WHERE p.prs_kostenplaats_nr=rec.prs_kostenplaats_nr
AND p.prs_kostenplaats_verwijder IS NULL;
EXCEPTION
WHEN NO_DATA_FOUND
THEN
SELECT p.prs_kostenplaats_key
INTO v_prs_kostenplaats_key
FROM prs_kostenplaats p
WHERE p.prs_kostenplaats_nr='1000'
AND p.prs_kostenplaats_verwijder IS NULL;
END;
BEGIN
v_aanduiding:='Ophalen van opdracht type is mislukt.';
SELECT mld_typeopdr_key
INTO v_mld_typeopdr_key
FROM mld_typeopdr o
WHERE UPPER(o.mld_typeopdr_omschrijving)='UITVOERINGSOPDRACHT';
EXCEPTION
WHEN NO_DATA_FOUND
THEN
v_error:=1;
END;
END IF;
IF v_error=0 THEN
v_aanduiding:='Ophalen van perslid.';
BEGIN
SELECT p.prs_perslid_key
INTO v_prs_perslid_key
from prs_perslid p
WHERE UPPER(p.prs_perslid_oslogin)=UPPER(rec.prs_perslid_oslogin);
EXCEPTION
WHEN NO_DATA_FOUND THEN
-- v_prs_behandelaar_key:=3; -- Nader te bepalen nu even facilitor
SELECT prs_perslid_key
INTO v_prs_perslid_key
FROM prs_perslid p
WHERE UPPER(prs_perslid_oslogin)= '_MIGRATIE_BEHANDELAAR';
END;
END IF;
IF v_error=0 THEN
v_aanduiding:='Ophalen van leverenacier '||rec.prs_leverancier_nr||' is mislukt.';
BEGIN
SElECT prs_bedrijf_key
INTO v_uitvoerende_key
FROM prs_bedrijf p
WHERE UPPER(p.prs_leverancier_nr)=UPPER(rec.prs_leverancier_nr)
AND p.prs_bedrijf_verwijder IS NULL;
EXCEPTION
WHEN NO_DATA_FOUND
THEN
v_aanduiding:='Ophalen van Fall Back leverenacier '||rec.prs_leverancier_nr||' is mislukt.';
SElECT prs_bedrijf_key
INTO v_uitvoerende_key
FROM prs_bedrijf p
WHERE p.prs_leverancier_nr='999999'
AND p.prs_bedrijf_verwijder IS NULL;
END;
END IF;
IF v_error=0 AND v_count=0
THEN
IF v_mld_status_key=5 OR v_mld_status_key=6 THEN
v_opdr_status_key:=6;
ELSE
v_opdr_status_key:=rec.mld_statusopdr_key;
END IF;
v_aanduiding:='Aanmaken opdarcht is mislukt.';
INSERT INTO mld_opdr (mld_melding_key,
prs_kostenplaats_key,
mld_statusopdr_key,
mld_typeopdr_key,
prs_perslid_key,
mld_uitvoerende_keys,
mld_opdr_discipline_key,
mld_opdr_datumbegin,
mld_opdr_einddatum,
mld_opdr_module,
mld_opdr_omschrijving,
mld_opdr_kosten,
mld_opdr_bedrijfopdr_volgnr,
mld_opdr_externnr)
VALUES( v_melding_key,
v_prs_kostenplaats_key,
v_opdr_status_key,
v_mld_typeopdr_key,
v_prs_perslid_key,
v_uitvoerende_key,
v_mld_ins_discipline_key,
fac.safe_to_date(rec.mld_opdr_begindatum,'DD-MM-YYYY HH24:MI.SS'),
fac.safe_to_date(rec.mld_opdr_einddatum,'DD-MM-YYYY HH24:MI.SS'),
'MLD',
rec.mld_opdr_omschrijving,
fac.safe_to_number(rec.mld_opdr_kosten),
rec.mld_opdr_volgnr,
rec.mld_org_opdr_key)
RETURNING mld_opdr_key
INTO v_mld_opdr_key;
IF v_opdr_status_key = 6 THEN
fac.trackaction('#ORDTRK',v_mld_opdr_key,NULL, NULL,'Migratie opdracht aangemaakt');
ELSE
fac.trackaction('#ORDNEW',v_mld_opdr_key,NULL, SYSDATE,'Migratie opdracht aangemaakt');
END IF;
INSERT INTO mld_opdr_note (mld_opdr_key,
mld_opdr_note_aanmaak,
mld_opdr_note_wijzigdatum,
prs_perslid_key,
mld_opdr_note_omschrijving,
mld_opdr_note_flag)
VALUES (v_mld_opdr_key,
fac.safe_to_date(rec.mld_opdr_begindatum,'DD-MM-YYYY HH24:MI.SS'),
SYSDATE,
3, -- Facilitor
'Migratie opdracht CONN melding: ' || rec.mld_org_melding_key||CHR(10)||' leverancier :'|| rec.prs_leverancier_naam,
0);
fac.imp_writelog (p_import_key,
'I',
'Opdacht aangemaakt',
'Opdracht '||v_melding_key||'/'||rec.mld_opdr_volgnr||'('||v_mld_opdr_key||') is aangemaakt.');
v_aanduiding:='Aanmaken kenmerk CONN OPdr Nr is mislukt.';
flx.setflex('OPD',v_conn_opdr_nr,v_mld_opdr_key,rec.mld_org_melding_key||'/'||rec.mld_opdr_volgnr);
IF LENGTH(rec.ken_coupa_onderwerp)>0
THEN
v_aanduiding:='Aanmaken kenmerk coupa onderwerp is mislukt.';
flx.setflex('OPD',v_coupa_onderwerp_key,v_mld_opdr_key,rec.ken_coupa_onderwerp);
END IF;
IF LENGTH(rec.ken_coupa_id)>0
THEN
v_aanduiding:='Aanmaken coupa ID is mislukt.';
flx.setflex('OPD',v_coupa_id_key,v_mld_opdr_key,rec.ken_coupa_id);
END IF;
IF LENGTH(rec.ken_coupa_inkoopnr)>0
THEN
v_aanduiding:='Aanmaken inkoopnr is mislukt.';
flx.setflex('OPD',v_coupa_inkoopnr_key,v_mld_opdr_key,rec.ken_coupa_inkoopnr);
END IF;
ELSE
fac.imp_writelog (p_import_key,
'E',
'Niet gevonden',
v_aanduiding);
END IF;
END LOOP;
EXCEPTION
WHEN OTHERS
THEN
v_errorhint := v_errormsg || ' - ' || v_aanduiding||'('||v_regel||')';
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;
/
-- Einden import opdrachten
-- Import tracking
CREATE OR REPLACE PROCEDURE TDNL_IMPORT_TRACKING(p_import_key IN NUMBER)
AS
BEGIN
NULL;
END;
/
CREATE OR REPLACE PROCEDURE TDNL_UPDATE_TRACKING(p_import_key IN NUMBER)
AS
CURSOR c
IS
SELECT fac_imp_csv_col01 module,
fac_imp_csv_col02 entity_id,
fac_imp_csv_col03 fac_tracking_oms,
fac_imp_csv_col04 fac_srtnotificatie_key,
fac_imp_csv_col05 fac_tracking_datum,
fac_imp_csv_col06 prs_perslid_email,
fac_imp_csv_col07 prs_perslid_oslogin
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_entity_key NUMBER;
v_prs_perslid_key NUMBER;
BEGIN
FOR rec in c
LOOP
BEGIN
v_errormsg:='Ophalen van '||rec.module||' met key '||rec.entity_id||' is mislukt';
IF rec.module='CNT'
THEN
SElect cnt_contract_key into v_entity_key
FROM cnt_contract c
where c.cnt_contract_nummer=rec.entity_id
AND c.cnt_contract_verwijder IS NULL;
ELSIF rec.module='INS'
THEN
SELECT ins_deel_key
INTO v_entity_key
FROM ins_deel i
WHERE i.ins_deel_omschrijving=rec.entity_id
AND i.ins_deel_verwijder IS NULL;
END IF;
v_errormsg:='Ophalen van '||rec.prs_perslid_email||'/'||rec.prs_perslid_oslogin||' is mislukt';
SELECT prs_perslid_key
into v_prs_perslid_key
FROM prs_perslid p
where p.prs_perslid_email=rec.prs_perslid_email
OR p.prs_perslid_oslogin=rec.prs_perslid_oslogin;
INSERT INTO fac_tracking( fac_tracking_refkey,
fac_tracking_oms,
fac_srtnotificatie_key,
fac_tracking_datum,
prs_perslid_key)
VALUES( v_entity_key,
rec.fac_tracking_oms,
rec.fac_srtnotificatie_key,
rec.fac_tracking_datum,
v_prs_perslid_key);
EXCEPTION
WHEN NO_DATA_FOUND THEN
v_error:=1;
fac.imp_writelog (p_import_key,
'E',
v_errormsg,
v_errorhint);
END;
END LOOP;
END;
/
-- EINDE IMPORT MELDINGEN
-- IMPORT Notities
CREATE OR REPLACE PROCEDURE TDNL_IMPORT_NOTITIES(p_import_key IN NUMBER)
AS
BEGIN
NULL;
END;
/
CREATE OR REPLACE PROCEDURE TDNL_UPDATE_NOTITIES(p_import_key IN NUMBER)
AS
CURSOR c
IS
SELECT fac_imp_csv.FAC_IMP_CSV_INDEX regel,
fac_imp_csv_col01 module_key,
fac_imp_csv_col02 module,
fac_imp_csv_col03 deel,
fac_imp_csv_col04 prs_perslid_oslogin,
fac_imp_csv_col05 notitie,
fac_imp_csv_col06 notitie_datum,
fac_imp_csv_col07 volgnr
from fac_imp_csv
WHERE fac_import_key = p_import_key
ORDER BY fac_imp_csv_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_entity_key NUMBER;
v_prs_perslid_key NUMBER;
v_mld_counter NUMBER;
v_opdr_counter NUMBER;
v_cnt_counter NUMBER;
v_melding_key NUMBER;
v_opdr_key NUMBER;
v_regel NUMBER;
v_module_key NUMBER;
v_note_key NUMBER;
BEGIN
v_mld_counter:=0;
v_opdr_counter:=0;
v_cnt_counter:=0;
v_count:=0;
FOR rec IN C
LOOP
v_regel:=rec.regel;
v_count:=v_count+1;
v_error:=0;
BEGIN
SELECT prs_perslid_key
INTO v_prs_perslid_key
FROM prs_perslid p
WHERE p.prs_perslid_oslogin=COALESCE(rec.prs_perslid_oslogin,'_MIGRATIE');
EXCEPTION
WHEN NO_DATA_FOUND
THEN
v_prs_perslid_key:=3;
END;
IF rec.module='MLD'
THEN
v_aanduiding:='Melding met nr '||rec.module_key||' is niet gevonden, regel wordt overgeslagen';
BEGIN
SELECT mld_melding_key
INTO v_module_key
FROM mld_melding
WHERE mld_melding_externnr=rec.module_key;
EXCEPTION
WHEN NO_DATA_FOUND
THEN
v_error:=1;
END;
ELSIF rec.module='OPD'
THEN
v_aanduiding:='Opdracht met nr '||rec.module_key||'/'||rec.volgnr||' is niet gevonden, regel wordt overgeslagen';
BEGIN
SELECT o.mld_opdr_key
INTO v_module_key
FROM mld_opdr o, mld_kenmerkopdr mko, mld_kenmerk mk
WHERE mko.mld_kenmerkopdr_waarde=(rec.module_key||'/'||rec.volgnr)
AND mk.mld_kenmerk_key = mko.mld_kenmerk_key
AND UPPER(mk.mld_kenmerk_omschrijving)='CONN OPDRACHTNR'
AND mk.mld_kenmerk_niveau='O'
AND o.mld_opdr_key = mko.mld_opdr_key;
EXCEPTION
WHEN NO_DATA_FOUND
THEN
v_error:=1;
END;
ELSIF rec.module='CNT'
THEN
v_aanduiding:='contract met nr '||rec.module_key||' is niet gevonden, regel wordt overgeslagen';
BEGIN
SELECT cnt_contract_key
INTO v_module_key
FROM cnt_contract
where cnt_contract_nummer_intern=rec.module_key
AND cnt_contract_verwijder IS NULL;
EXCEPTION
WHEN NO_DATA_FOUND
THEN
v_error:=1;
END;
END IF;
IF v_error=0 THEN
IF rec.module='MLD' THEN
BEGIN
SELECT mld_melding_note_key INTO v_note_key
FROM mld_melding_note
WHERE mld_melding_key = v_module_key
AND mld_melding_note_aanmaak=fac.safe_to_date(rec.notitie_datum,'DD-MM-YYYY HH24:MI.SS')
AND prs_perslid_key=v_prs_perslid_key
AND mld_melding_note_omschrijving = rec.notitie
AND mld_melding_note_flag=0;
EXCEPTION
WHEN NO_DATA_FOUND
THEN
INSERT INTO mld_melding_note (mld_melding_key,
mld_melding_note_aanmaak,
mld_melding_note_wijzigdatum,
prs_perslid_key,
mld_melding_note_omschrijving,
mld_melding_note_flag)
VALUES (v_module_key,
fac.safe_to_date(rec.notitie_datum,'DD-MM-YYYY HH24:MI.SS'),
SYSDATE,
v_prs_perslid_key,
rec.notitie,
0);
v_mld_counter:=v_mld_counter+1;
END;
ELSIF rec.module='OPD' THEN
BEGIN
SELECT mld_opdr_note_key INTO v_note_key
FROM mld_opdr_note
WHERE mld_opdr_key = v_module_key
AND mld_opdr_note_aanmaak=fac.safe_to_date(rec.notitie_datum,'DD-MM-YYYY HH24:MI.SS')
AND prs_perslid_key=v_prs_perslid_key
AND mld_opdr_note_omschrijving = rec.notitie
AND mld_opdr_note_flag=0;
EXCEPTION
WHEN NO_DATA_FOUND
THEN
INSERT INTO mld_opdr_note (mld_opdr_key,
mld_opdr_note_aanmaak,
mld_opdr_note_wijzigdatum,
prs_perslid_key,
mld_opdr_note_omschrijving,
mld_opdr_note_flag)
VALUES (v_module_key,
fac.safe_to_date(rec.notitie_datum,'DD-MM-YYYY HH24:MI.SS'),
SYSDATE,
v_prs_perslid_key,
rec.notitie,
0);
v_opdr_counter:=v_opdr_counter+1;
END;
ELSIF rec.module='CNT' THEN
BEGIN
SELECT cnt_contract_note_key
INTO v_note_key
FROM cnt_contract_note
WHERE cnt_contract_key = v_module_key
AND cnt_contract_note_aanmaak=fac.safe_to_date(rec.notitie_datum,'DD-MM-YYYY HH24:MI.SS')
AND prs_perslid_key=v_prs_perslid_key
AND cnt_contract_note_omschrijving = rec.notitie;
EXCEPTION
WHEN NO_DATA_FOUND
THEN
INSERT INTO cnt_contract_note (cnt_contract_key,
cnt_contract_note_aanmaak,
prs_perslid_key,
cnt_contract_note_omschrijving)
VALUES (v_module_key,
fac.safe_to_date(rec.notitie_datum,'DD-MM-YYYY HH24:MI.SS'),
v_prs_perslid_key,
rec.notitie);
v_cnt_counter:=v_cnt_counter+1;
END;
END IF;
ELSE
fac.imp_writelog (p_import_key,
'E',
'Niet gevonden',
v_aanduiding);
END If;
END LOOP;
fac.imp_writelog (p_import_key,
'I',
'Melding Notie',
v_mld_counter||'/'||v_count||' Melding notities aangemaakt.');
fac.imp_writelog (p_import_key,
'I',
'Opdracht Notie',
v_opdr_counter||'/'||v_count||' Opdracht notities aangemaakt.');
fac.imp_writelog (p_import_key,
'I',
'Contract Notie',
v_cnt_counter||'/'||v_count||' Contract notities aangemaakt.');
EXCEPTION
WHEN OTHERS
THEN
v_errorhint := v_errormsg || ' - ' || v_aanduiding||'('||v_regel||')';
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;
/
CREATE OR REPLACE PROCEDURE TDNL_IMPORT_KENMERK_BIJLAGES(p_import_key IN NUMBER)
AS
BEGIN
NULL;
-- Lezen standaard CSV in bestaat uit.
-- module;key;kenmerk_key; path old;filenaam; digest; size
--
END;
/
CREATE OR REPLACE PROCEDURE TDNL_UPDATE_KENMERK_BIJLAGES(p_import_key IN NUMBER)
AS
CURSOR sel
IS
SELECT f.fac_imp_csv_key fac_imp_csv_key,
f.fac_imp_csv_col01 module,
f.fac_imp_csv_col02 master_key,
f.fac_imp_csv_col03 master_volgnr,
f.fac_imp_csv_col04 kenmerk_key,
f.fac_imp_csv_col05 path_old,
f.fac_imp_csv_col06 filenaam,
f.fac_imp_csv_col07 digest,
f.fac_imp_csv_col08 file_size
FROM fac_imp_csv f
WHERE f.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_regel NUMBER;
v_count NUMBER;
v_ref_key NUMBER;
v_kenmerk_key NUMBER;
v_fac_bijlagen_key NUMBER;
v_path VARCHAR2(1000);
v_copy VARCHAR2(1000);
BEGIN
v_regel:=0;
FOR rec in sel
LOOP
v_regel:=v_regel+1;
-- eerst de master key ophalen
BEGIN
IF rec.module = 'CNT'
THEN
v_aanduiding := 'Ophalen van het contract gaat fout ('||rec.master_key||')' ;
SELECT cnt_contract_key
INTO v_ref_key
FROM cnt_contract
WHERE cnt_contract_nummer_intern=rec.master_key;
v_aanduiding:='Ophalen van het contractkenmerk gaat fout';
SELECT cnt_kenmerk_key
INTO v_kenmerk_key
FROM cnt_kenmerk
WHERE cnt_kenmerk_key=rec.kenmerk_key
AND cnt_kenmerk_verwijder IS NULL;
v_path:=rec.module||'/'||SUBSTR(rec.module,1,1)||RPAD(LPAD(SUBSTR(v_ref_key,1,2),4,0),7,'_')||'/'||SUBSTR(rec.module,1,1)||v_ref_key||'/'|| v_kenmerk_key;
ELSIF rec.module='MLD'
THEN
IF rec.path_old LIKE 'MLD/M%'
THEN
v_aanduiding := 'Ophalen van het melding gaat fout ('||rec.master_key||')' ;
SELECT mld_melding_key
INTO v_ref_key
FROM mld_melding
WHERE mld_melding_externnr=rec.master_key;
v_aanduiding:='Ophalen van het meldingkenmerk '||rec.kenmerk_key||' gaat fout';
SELECT mld_kenmerk_key
INTO v_kenmerk_key
FROM mld_kenmerk
WHERE mld_kenmerk_key=rec.kenmerk_key
AND mld_kenmerk_verwijder IS NULL;
v_path:=rec.module||'/'||SUBSTR(rec.module,1,1)||RPAD(LPAD(SUBSTR(v_ref_key,1,2),4,0),7,'_')||'/'||SUBSTR(rec.module,1,1)||v_ref_key||'/'|| v_kenmerk_key;
ELSE
v_aanduiding := 'Ophalen van het opdracht gaat fout ('||rec.master_key||'/'||rec.master_volgnr||')' ;
SELECT mld_opdr_key
INTO v_ref_key
FROM mld_opdr
WHERE mld_opdr_externnr=rec.master_key||'/'||rec.master_volgnr;
v_aanduiding:='Ophalen van het opdracht kenmerk '||rec.kenmerk_key||' gaat fout';
SELECT mld_kenmerk_key
INTO v_kenmerk_key
FROM mld_kenmerk
WHERE mld_kenmerk_key=rec.kenmerk_key
AND mld_kenmerk_verwijder IS NULL;
v_path:=rec.module||'/'||SUBSTR(rec.module,1,1)||RPAD(LPAD(SUBSTR(v_ref_key,1,2),4,0),7,'_')||'/'||SUBSTR('O',1,1)||v_ref_key||'/'|| v_kenmerk_key;
END IF;
END IF;
v_aanduiding := 'Bijlage '||rec.filenaam||' is al ingelezen bij '||rec.module||' '||v_ref_key||'('||rec.master_key||')';
SELECT COUNT(*)
INTO v_count
from fac_bijlagen
where fac_bijlagen_module=rec.module
AND fac_bijlagen_refkey=v_ref_key
AND fac_bijlagen_kenmerk_key=v_kenmerk_key
AND fac_bijlagen_disk_directory=v_path
AND fac_bijlagen_filename=rec.filenaam;
IF v_count=0 AND v_ref_key >0 AND v_kenmerk_key>0
THEN
-- Gaanw we nu de key ophalen voor de nieuwe bijlage
SELECT fac_s_fac_bijlagen_key.nextval
INTO v_fac_bijlagen_key
FROM DUAL;
INSERT INTO fac_bijlagen( fac_bijlagen_key,
fac_bijlagen_module,
fac_bijlagen_refkey,
fac_bijlagen_kenmerk_key,
fac_bijlagen_disk_directory,
fac_bijlagen_filename,
fac_bijlagen_digest,
fac_bijlagen_file_size,
fac_bijlagen_root_key)
VALUES( v_fac_bijlagen_key,
rec.module,
v_ref_key,
v_kenmerk_key,
v_path,
rec.filenaam,
rec.digest,
rec.file_size,
v_fac_bijlagen_key);
v_copy:= 'xcopy /I "'||REPLACE(rec.path_old,CHR(47),CHR(92))||CHR(92)||rec.filenaam||'" e:'||CHR(92)||'temp'||CHR(92)||REPLACE(v_path, chr(47), chr(92))||CHR(92);
fac.imp_writelog(p_import_key, 'I', 'COPY',v_copy);
ELSE
fac.imp_writelog(p_import_key, 'W', 'al bekend',v_aanduiding);
END IF;
UPDATE fac_imp_csv
set fac_imp_csv_col10=v_path, fac_imp_csv_col11=v_copy, fac_imp_csv_col12=v_fac_bijlagen_key
WHERE fac_imp_csv_key = rec.fac_imp_csv_key;
COMMIT;
EXCEPTION
WHEN NO_DATA_FOUND THEN
v_error:=1;
fac.imp_writelog (p_import_key,
'E',
v_errormsg,
v_aanduiding);
END;
END LOOP;
EXCEPTION
WHEN OTHERS
THEN
v_errorhint := v_errormsg || ' - ' || v_aanduiding||'('||v_regel||')';
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;
/
CREATE OR REPLACE PROCEDURE TDNL_IMPORT_WPRESERVERING(p_import_key IN NUMBER)
AS
BEGIN
NULL;
END;
/
CREATE OR REPLACE PROCEDURE TDNL_UPDATE_WPRESERVERING(p_import_key IN NUMBER)
AS
CURSOR sel
IS
SELECT f.fac_imp_csv_key fac_imp_csv_key,
f.fac_imp_csv_col01 reservering_key,
f.fac_imp_csv_col02 res_van,
f.fac_imp_csv_col03 res_tot,
f.fac_imp_csv_col04 res_aanmaak,
f.fac_imp_csv_col05 kostenplaats_nr,
f.fac_imp_csv_col06 contact_login,
f.fac_imp_csv_col07 contact_email,
f.fac_imp_csv_col08 CVAB_mode,
f.fac_imp_csv_col09 alg_ruimte_nr,
f.fac_imp_csv_col10 alg_gebouw_code,
f.fac_imp_csv_col11 activiteit,
f.fac_imp_csv_col12 werkplek,
f.fac_imp_csv_col13 res_volgnr
FROM fac_imp_csv f
WHERE f.fac_import_key = p_import_key
ORDER BY f.fac_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_regel NUMBER;
v_count NUMBER;
v_reservering_key NUMBER;
v_rsv_ruimte_key NUMBER;
v_res_activiteit_key NUMBER;
v_kenmerk_key NUMBER;
v_prs_perslid_key NUMBER;
v_res_deel_key NUMBER;
v_alg_ruimte_key NUMBER;
v_prs_kostenplaats_key NUMBER;
v_status_fo NUMBER;
v_status_bo NUMBER;
v_no_show NUMBER;
v_datumaanmaak DATE;
v_datum_van DATE;
v_datum_tot DATE;
BEGIN
v_regel:=0;
v_aanduiding:='Ophalen kenmerk key voor kenmerk CONN_RESNR is mislukt';
SELECT res_kenmerk_key
INTO v_kenmerk_key
FROM res_kenmerk
WHERE res_kenmerk_code='CONN_RESNR';
FOR rec IN sel
LOOP
v_error:=0;
v_count:=0;
SELECT count(*)
INTO v_count
FROM res_rsv_ruimte r, res_kenmerkwaarde rk
where rk.res_kenmerkreservering_waarde= rec.reservering_key||'/'|| rec.res_volgnr
AND rk.RES_KENMERK_KEY=v_kenmerk_key
AND r.res_rsv_ruimte_key = rk.res_rsv_ruimte_key
AND r.res_rsv_ruimte_verwijder IS NULL;
IF v_count=0
THEN
-- haal de werkplek op , biij niet gevionden skip record,
BEGIN
v_aanduiding:='Ophalen werkplek '||rec.werkplek||' is mislukt.';
SELECT res_deel_key
INTO v_res_deel_key
FROM res_deel r
WHERE UPPER(r.res_deel_omschrijving)=UPPER(rec.werkplek)
AND r.res_deel_verwijder IS NULL;
EXCEPTION
WHEN NO_DATA_FOUND
THEN
fac.imp_writelog (p_import_key, 'W', 'WP niet gevonden'|| rec.werkplek,'');
v_error :=1 ;
END;
-- haal alg_ruimte key op op bais van alg_ruimte nr en gebouw_code,
BEGIN
v_aanduiding:='Ophalen ruimte'||rec.alg_ruimte_nr||'-'||rec.alg_gebouw_code||' is mislukt.';
SELECT alg_ruimte_key
INTO v_alg_ruimte_key
FROM alg_v_allonrgoed_gegevens a
WHERE UPPER(a.alg_ruimte_nr)=UPPER(rec.alg_ruimte_nr)
AND UPPER(a.alg_gebouw_code) = UPPER(rec.alg_gebouw_code);
EXCEPTION
WHEN NO_DATA_FOUND
THEN
v_error :=1 ;
fac.imp_writelog (p_import_key, 'W', 'ALG RUIMTE niet gevonden'|| rec.alg_ruimte_nr||'-'||rec.alg_gebouw_code,'');
END;
BEGIN
v_aanduiding:='Ophalen activiteit '||rec.activiteit||' is mislukt.';
SELECT res_activiteit_key
INTO v_res_activiteit_key
FROM res_activiteit
WHERE UPPER(res_activiteit_omschrijving)=UPPER(rec.activiteit)
AND res_activiteit_verwijder IS NULL;
EXCEPTION
WHEN NO_DATA_FOUND
THEN
v_error:=1;
fac.imp_writelog (p_import_key, 'W', 'Activiteit niet gevonden'|| rec.activiteit,'');
END;
v_aanduiding:='Ophalen persoon '||rec.contact_login||'op bais van oslogin is mislukt.';
BEGIN
SELECT p.prs_perslid_key
INTO v_prs_perslid_key
FROM prs_perslid p
WHERE p.prs_perslid_oslogin=rec.contact_login
AND p.prs_perslid_verwijder IS NULL;
EXCEPTION
WHEN NO_DATA_FOUND
THEN
v_error:=1;
fac.imp_writelog (p_import_key, 'W', 'Persoon niet gevonden : '|| rec.contact_login,'');
END;
IF v_error=0
THEN
-- haal kostenplaats op als deze er is,
BEGIN
v_aanduiding:='Ophalen kostenplaats '||rec.kostenplaats_nr||' is mislukt.';
SELECT prs_kostenplaats_key
INTO v_prs_kostenplaats_key
FROM prs_kostenplaats
WHERE UPPER(prs_kostenplaats_nr)=UPPER(rec.kostenplaats_nr)
AND prs_kostenplaats_verwijder IS NULL;
EXCEPTION
WHEN NO_DATA_FOUND
THEN
v_prs_kostenplaats_key:=NULL;
END;
-- haal kostenplaats op als deze er is,
v_status_bo := 2; -- Alles op Geregistreerd (want alleen lopende reserveringen)
v_status_fo := 2; -- Alles op Definitief (want alleen lopende reserveringen)
v_no_show := TO_NUMBER (NULL);
v_datumaanmaak:= fac.safe_to_date(rec.res_aanmaak,'DD-MM-YYYY HH24:MI:SS');
v_datum_van:= fac.safe_to_date(rec.res_van,'DD-MM-YYYY HH24:MI:SS');
v_datum_tot:= fac.safe_to_date(rec.res_tot,'DD-MM-YYYY HH24:MI:SS');
SELECT count(*) INTO v_count
FROM res_rsv_ruimte rrr,
res_rsv_deel rd
WHERE rrr.res_rsv_ruimte_van =v_datum_van
AND rrr.res_rsv_ruimte_tot = v_datum_tot
AND rd.res_rsv_ruimte_key= rrr.res_rsv_ruimte_key
AND rd.res_deel_key=v_res_deel_key
AND rrr.res_rsv_ruimte_verwijder IS NULL;
IF v_count=0
THEN
v_regel:=v_regel+1;
v_errormsg := 'Fout toevoegen res_reservering';
INSERT INTO res_reservering (res_reservering_verwijder)
VALUES (NULL)
RETURNING res_reservering_key
INTO v_reservering_key;
v_errormsg := 'Fout toevoegen res_rsv_ruimte.';
INSERT INTO res_rsv_ruimte (res_reservering_key,
res_rsv_ruimte_volgnr,
res_rsv_ruimte_opmerking,
res_rsv_ruimte_omschrijving,
prs_kostenplaats_key,
res_rsv_ruimte_contact_key,
res_rsv_ruimte_host_key,
alg_ruimte_key,
--res_ruimte_opstel_key,
res_rsv_ruimte_cvab_mode,
res_activiteit_key,
res_rsv_ruimte_van,
res_rsv_ruimte_tot,
res_rsv_ruimte_bezoekers,
res_rsv_ruimte_bezoekers_shown,
res_status_bo_key,
res_status_fo_key,
res_rsv_ruimte_noshow,
res_rsv_ruimte_externnr)
VALUES (v_reservering_key,
1,
NULL,
NULL,
TO_NUMBER (NULL),
v_prs_perslid_key,
v_prs_perslid_key,
v_alg_ruimte_key,
2, -- CVAB-mode op Afhalen!
v_res_activiteit_key,
v_datum_van,
v_datum_tot,
TO_NUMBER (NULL),
v_no_show,
TO_NUMBER (NULL),
v_status_fo,
v_no_show,
NULL) -- Externnr moet uniek zijn en TD-nr is dat niet!
RETURNING res_rsv_ruimte_key
INTO v_rsv_ruimte_key;
v_errormsg := 'Fout toevoegen res_rsv_deel.';
INSERT INTO res_rsv_deel (res_deel_key,
res_rsv_deel_aantal,
res_status_bo_key,
res_rsv_ruimte_key,
res_rsv_deel_van,
res_rsv_deel_tot)
VALUES (v_res_deel_key,
1,
v_status_bo,
v_rsv_ruimte_key,
v_datum_van,
v_datum_tot);
-- Toevoegen Reserveringsnummer TOPdesk
v_errormsg := 'Fout toevoegen Reserveringsnummer TOPdesk';
flx.setflex('RES',v_kenmerk_key,v_rsv_ruimte_key,rec.reservering_key||'/1');
fac.trackaction ('RESNEW', v_rsv_ruimte_key, NULL, SYSDATE, 'Gemigreerd vanuit CONN');
ELSE
fac.imp_writelog (p_import_key, 'W', ' WP '|| rec.werkplek||' is al bezet op '||TO_CHAR(v_datum_van,'DD-MM-YYYY HH24:MI:SS')||'.','');
END IF;
ELSE
fac.imp_writelog (p_import_key, 'W', ' WP reserveringen '|| rec.reservering_key||' niet verwerkt','');
END IF;
ELSE
fac.imp_writelog (p_import_key, 'W', ' WP reserveringen '|| rec.reservering_key||'/'||rec.res_volgnr||' is al bekend.','');
END IF;
END LOOP;
fac.imp_writelog (p_import_key, 'S', v_regel||' WP reserveringen toegevoegd: ' || TO_CHAR (SYSDATE, 'DD-MM-YYYY HH24:MI:SS'), '');
EXCEPTION
WHEN OTHERS
THEN
v_errorhint := v_errormsg || ' - ' || v_aanduiding||'('||v_regel||')';
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;
/
CREATE OR REPLACE PROCEDURE TDNL_IMPORT_LAADINFRA(p_import_key in NUMBER)
AS
BEGIN
fac_import_ins(p_import_key);
END;
/
CREATE OR REPLACE PROCEDURE TDNL_UPDATE_LAADINFRA(p_import_key in NUMBER)
AS
CURSOR sel
IS
SELECT ins_srtdeel_code,
ins_deel_omschrijving,
INS_KENMERKWAARDE19 ins_srtdeel_parent,
INS_KENMERKWAARDE20 ins_deel_parent,
INS_KENMERKWAARDE16 ins_deel_breedte,
INS_KENMERKWAARDE17 ins_deel_lengte
FROM fac_imp_ins
WHERE INS_KENMERKWAARDE19 IS NOT NULL
AND INS_KENMERKWAARDE20 IS NOT NULL;
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_regel NUMBER;
v_ins_deel_key NUMBER;
v_ins_deel_parent_key NUMBER;
v_ins_deelkoppeling_count NUMBER;
BEGIN
fac_update_ins(p_import_key);
commit;
FOR rec in sel
LOOP
v_ins_deel_key:=0;
v_ins_deel_parent_key:=0;
BEGIN
v_errormsg := 'Object '||rec.ins_deel_omschrijving||' niet gevonden, regel wordt overgeslagen.';
SELECT ins_deel_key
INTO v_ins_deel_key
FROM ins_v_aanwezigdeel i , ins_srtdeel id
WHERE UPPER(i.ins_deel_omschrijving)=UPPER(rec.ins_deel_omschrijving)
AND id.ins_srtdeel_code=UPPER(rec.ins_srtdeel_code)
AND i.ins_srtdeel_key=id.ins_srtdeel_key;
v_errormsg := 'Parent Object '||rec.ins_deel_parent||' ('||rec.ins_srtdeel_parent||') niet gevonden, regel wordt overgeslagen.-'||v_ins_deel_key;
SELECT ins_deel_key
INTO v_ins_deel_parent_key
FROM ins_v_aanwezigdeel i, ins_srtdeel id
WHERE UPPER(i.ins_deel_omschrijving)=UPPER(rec.ins_deel_parent)
AND id.ins_srtdeel_upper=UPPER(rec.ins_srtdeel_parent)
AND i.ins_srtdeel_key=id.ins_srtdeel_key
AND id.ins_srtdeel_verwijder IS NULL
AND id.ins_srtdeel_module = 'INS';
EXCEPTION
WHEN NO_DATA_FOUND
THEN
fac.imp_writelog(p_import_key, 'E',v_errormsg,'Fout ophalen object');
END;
v_errormsg := 'Object '||v_ins_deel_key||' updaten gaat fout met '||rec.ins_deel_breedte|| '-'||rec.ins_deel_lengte;
IF v_ins_deel_key> 0 AND LENGTH(rec.ins_deel_breedte)>1 AND LENGTH(rec.ins_deel_lengte)>1
THEN
UPDATE ins_deel
SET ins_deel_x=fac.safe_to_number(rec.ins_deel_breedte), ins_deel_y=fac.safe_to_number(rec.ins_deel_lengte)
WHERE ins_deel_key=v_ins_deel_key;
END IF;
IF v_ins_deel_key>0 AND v_ins_deel_parent_key>0
THEN
SELECT COUNT(*)
INTO v_ins_deelkoppeling_count
from ins_deelkoppeling
where ins_deelkoppeling_van_key=v_ins_deel_parent_key
AND ins_deelkoppeling_naar_key=v_ins_deel_key
AND ins_deelkoppeling_verwijder IS NULL;
IF v_ins_deelkoppeling_count =0
THEN
INSERT INTO ins_deelkoppeling(ins_deelkoppeling_van_key, ins_deelkoppeling_naar_key, ins_deelkoppeling_aanmaak)
VALUES(v_ins_deel_parent_key, v_ins_deel_key,SYSDATE);
fac.imp_writelog(p_import_key,'I','Objecten '||rec.ins_deel_omschrijving||' is gekoppeld aan '||rec.ins_deel_parent,'GEKOPPELD');
COMMIT;
END IF;
END IF;
END LOOP;
EXCEPTION
WHEN OTHERS
THEN
v_errorhint := v_errormsg || ' - ' || v_aanduiding||'('||v_regel||')';
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;
/
-- Import taken uit CONN omgeving
--CREATE OR REPLACE PROCEDURE TDNL_IMPORT_TAKEN(p_import_key IN NUMBER)
--AS
--BEGIN
-- NULL;
--END;
--/
--CREATE OR REPLACE PROCEDURE TDNL_UPDATE_TAKEN(p_import_key IN NUMBER)
--AS
-- CURSOR c
-- IS
-- SELECT fac_imp_csv_col02 ins_deel_omschrijving,
-- fac_imp_csv_col03 ins_deel_aanmtal,
-- fac_imp_csv_col04 ins_deel_aanmaak,
-- fac_imp_csv_col05 ins_discipline,
-- fac_imp_csv_col06 ins_groep,
-- fac_imp_csv_col07 ins_srtdeel_code,
-- fac_imp_csv_col08 ins_srtdeel,
-- fac_imp_csv_col09 ins_srtcontrole_key,
-- fac_imp_csv_col10 ins_srtcontrole_omschrijving,
-- fac_imp_csv_col11 ins_srtcontrole_niveau,
-- fac_imp_csv_col13 ctr_disipline_omschrijving,
-- fac_imp_csv_col14 ins_srtcontrole_cyclus,
-- fac_imp_csv_col15 ins_srtcontrole_eenheid,
-- fac_imp_csv_col16 ins_srtcontrole_eenheid_key,
-- fac_imp_csv_col17 ins_deelsrtcontrole_key,
-- fac_imp_csv_col18 ins_deelsrtcotrole_datum,
-- fac_imp_csv_col20 ins_deelsrtcotrole_nextdatum,
-- fac_imp_csv_col21 ins_deelsrtcotrole_status_key,
-- fac_imp_csv_col23 ins_deelsrtcontrole_opm,
-- fac_imp_csv_col24 prs_perslid_oslogin,
-- fac_imp_csv_col25 prs_perslid_email
-- 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_ins_deel_key NUMBER;
-- v_ins_srtdeel_key NUMBER;
-- v_ins_srtcontrole_key NUMBER;
-- v_srtcontrole_level NUMBER;
-- v_srtcontrole_percentage NUMBER;
-- v_srtcontrole_omschrijving VARCHAR2(60);
-- v_taak_cyclus NUMBER;
-- v_taak_eenheid NUMBER;
-- v_taakcat_key NUMBER;
-- v_taak_datum DATE;
-- v_prs_perslid_key NUMBER;
--
--BEGIN
-- v_count:=0;
--
--
--
-- FOR rec IN c
-- LOOP
-- v_error:=0;
-- v_count:=v_count+1;
-- v_errormsg:='Object '||rec.ins_deel_omschrijving|| ' niet gevonden.';
-- BEGIN
-- SELECT i.ins_deel_key, i.ins_srtdeel_key
-- INTO v_ins_deel_key, v_ins_srtdeel_key
-- FROM ins_deel i
-- WHERE i.ins_deel_omschrijving=rec.ins_deel_omschrijving;
-- EXCEPTION
-- WHEN NO_DATA_FOUND THEN
-- v_error:=1;
-- fac.imp_writelog (p_import_key,
-- 'E',
-- v_errormsg,
-- v_errorhint);
-- END;
--
--
-- v_errormsg:='Taak categorie '||rec.ctr_disipline_omschrijving|| ' niet gevonden.';
-- BEGIN
-- SELECT ins_discipline_key
-- INTO v_taakcat_key
-- FROM ctr_v_aanwezigdiscipline
-- WHERE UPPER(ins_discipline_omschrijving) = UPPER(rec.ctr_disipline_omschrijving)
-- AND ins_discipline_module='CTR'
-- AND ins_discipline_verwijder IS NULL;
-- EXCEPTION
-- WHEN NO_DATA_FOUND THEN
-- v_error:=1;
-- fac.imp_writelog (p_import_key,
-- 'E',
-- v_errormsg,
-- v_errorhint);
-- END;
--
-- v_errormsg:='Persoon '||rec.prs_perslid_email||'/'||rec.prs_perslid_oslogin||' niet gevonden.';
-- BEGIN
-- SELECT p.prs_perslid_key
-- INTO v_prs_perslid_key
-- FROM prs_perslid p
-- WHERE p.prs_perslid_email = rec.prs_perslid_email
-- OR p.prs_perslid_oslogin= rec.prs_perslid_oslogin;
-- EXCEPTION
-- WHEN NO_DATA_FOUND THEN
-- v_error:=1;
-- fac.imp_writelog (p_import_key,
-- 'E',
-- v_errormsg,
-- v_errorhint);
-- END;
--
-- IF (v_error=0)
-- THEN
-- v_srtcontrole_level := 10;
-- v_srtcontrole_percentage:=0;
-- v_srtcontrole_omschrijving:= rec.ins_srtcontrole_omschrijving;
-- v_taak_cyclus := fac.safe_to_number(rec.ins_srtcontrole_cyclus);
-- v_taak_eenheid := fac.safe_to_number(rec.ins_srtcontrole_eenheid_key);
-- IF INSTR(rec.ins_deelsrtcotrole_datum,':') > 0
-- THEN
-- v_taak_datum := fac.safe_to_date(rec.ins_deelsrtcotrole_datum,'DD-MM-YYYY HH24:MI');
-- ELSE
-- v_taak_datum := fac.safe_to_date(rec.ins_deelsrtcotrole_datum,'DD-MM-YYYY');
-- END IF;
--
-- IF v_taak_cyclus=0 THEN
-- v_taak_cyclus:=99;
-- END IF;
--
--
-- v_errormsg:= 'Soorttaak is niet gevonden';
--
-- -- Hebben we al een srtcontrole onder dit objectsoort en deze omschrijving ?
-- BEGIN
-- SELECT isc.ins_srtcontrole_key
-- INTO v_ins_srtcontrole_key
-- FROM ins_srtcontrole isc
-- WHERE isc.ins_srtcontrole_omschrijving = rec.ins_srtcontrole_omschrijving
-- AND isc.ins_Srtcontrole_periode = v_taak_cyclus
-- AND ins_srtcontrole_eenheid = v_taak_eenheid
-- AND ins_srtcontrole_level=v_srtcontrole_level
-- AND isc.ins_srtcontrole_niveau='S';
--
-- INSERT INTO ins_deelsrtcontrole(
-- ins_deel_key,
-- ins_srtcontrole_key,
-- ins_deelsrtcontrole_datum,
-- ins_deelsrtcontrole_datum_org,
-- ins_controlemode_key,
-- prs_perslid_key,
-- ins_deelsrtcontrole_status,
-- ins_scenario_key,
-- ins_deelsrtcontrole_opmerking)
-- VALUES(
-- v_ins_deel_key,
-- v_ins_srtcontrole_key,
-- v_taak_datum,
-- v_taak_datum,
-- 10,
-- v_prs_perslid_key,
-- 6,
-- 1,
-- rec.ins_deelsrtcontrole_opm);
-- EXCEPTION
-- WHEN NO_DATA_FOUND
-- THEN
--
-- v_errorhint := 'Aanmaken srtcontrole';
-- fac.imp_writelog (p_import_key,
-- 'W',
-- v_count||'-'||v_taak_cyclus,
-- v_errorhint);
--
-- -- nu moet we een ins_srtcontrole aanmaken
--
-- INSERT INTO ins_srtcontrole (
-- ins_srtinstallatie_key,
-- ins_srtcontrole_niveau,
-- ins_srtcontrole_omschrijving,
-- ctr_discipline_key,
-- ins_Srtcontrole_periode,
-- ins_srtcontrole_eenheid,
-- ins_srtcontrole_level
-- )
-- VALUES (
-- v_ins_srtdeel_key,
-- 'S',
-- v_srtcontrole_omschrijving,
-- v_taakcat_key,
-- v_taak_cyclus,
-- v_taak_eenheid,
-- v_srtcontrole_level
-- )
-- RETURNING ins_srtcontrole_key INTO v_ins_srtcontrole_key;
--
--
-- INSERT INTO ins_deelsrtcontrole(
-- ins_deel_key,
-- ins_srtcontrole_key,
-- ins_deelsrtcontrole_datum,
-- ins_deelsrtcontrole_datum_org,
-- ins_controlemode_key,
-- prs_perslid_key,
-- ins_deelsrtcontrole_status,
-- ins_scenario_key,
-- ins_deelsrtcontrole_opmerking)
-- VALUES(
-- v_ins_deel_key,
-- v_ins_srtcontrole_key,
-- v_taak_datum,
-- v_taak_datum,
-- 10,
-- v_prs_perslid_key,
-- 6,
-- 1,
-- rec.ins_deelsrtcontrole_opm);
-- 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;
-- 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;
--/
-- Oprognose import MJOB
--CREATE OR REPLACE PROCEDURE TDNL_IMPORT_ASSETS_INI(p_import_key IN NUMBER)
--AS
-- c_fielddelimitor VARCHAR2 (1) := ';';
-- v_newline VARCHAR2 (4000); -- Input line
-- v_errormsg VARCHAR2 (1000);
-- v_errorhint VARCHAR2 (1000);
-- oracle_err_num NUMBER;
-- oracle_err_mes VARCHAR2 (200);
-- header_is_valid NUMBER;
-- v_count NUMBER;
-- v_ongeldig NUMBER (1);
-- v_mode NUMBER (1);
-- v_aanduiding VARCHAR2 (200);
-- v_all_null BOOLEAN;
-- v_count_error NUMBER (10);
-- v_count_tot NUMBER (10);
-- v_count_import NUMBER (10);
--
-- -- De importvelden:
-- v_alg_ruimte_nr VARCHAR2(100);
--
-- v_gebouw_code VARCHAR2(100);
--
-- v_ins_discipline_txt VARCHAR2(100);
--
-- v_ins_discipline_omschrijving VARCHAR2(100);
-- d_ins_discipline_omschrijving VARCHAR2(100);
--
-- v_ins_srtgroep_code VARCHAR2(100);
-- v_ins_srtgroep_omschrijving VARCHAR2(100);
-- d_ins_srtgroep_omschrijving VARCHAR2(100);
--
-- v_ins_srtdeel_code VARCHAR2(100);
-- v_ins_srtdeel_omschrijving VARCHAR2(100);
-- d_ins_srtdeel_omschrijving VARCHAR2(100);
--
-- v_ins_deel_txt VARCHAR2(100);
-- v_ins_deel_code VARCHAR2(100);
-- v_ins_deel_eenheid VARCHAR2(100);
-- v_ins_deel_omschrijving VARCHAR2(100);
-- v_ins_deel_opmerking VARCHAR2(1000);
-- v_ins_deel_component VARCHAR2(1000);
-- v_ins_srtcontrole_periode_txt VARCHAR2(100);
-- v_ins_srtcontrole_prijs_txt VARCHAR2(100);
--
-- v_ins_deel_percentage NUMBER;
-- v_ins_srtcontrole_periode NUMBER;
-- v_kenmerk1 VARCHAR2(1000);
-- v_kenmerk2 VARCHAR2(1000);
-- v_kenmerk3 VARCHAR2(1000);
-- v_kenmerk4 VARCHAR2(1000);
-- v_kenmerk5 VARCHAR2(1000);
-- v_kenmerk6 VARCHAR2(1000);
-- v_kenmerk7 VARCHAR2(1000);
-- v_kenmerk8 VARCHAR2(1000);
-- v_kenmerk9 VARCHAR2(1000);
-- v_kenmerk10 VARCHAR2(1000);
-- v_kenmerk11 VARCHAR2(1000);
-- v_kenmerk12 VARCHAR2(1000);
-- v_kenmerk13 VARCHAR2(1000);
-- v_kenmerk14 VARCHAR2(1000);
-- v_kenmerk15 VARCHAR2(1000);
-- v_kenmerk16 VARCHAR2(1000);
-- v_kenmerk17 VARCHAR2(1000);
-- v_kenmerk18 VARCHAR2(1000);
-- v_kenmerk19 VARCHAR2(1000);
-- v_dumm NUMBER (10,2);
-- v_ins_deel_aanmaak_text VARCHAR2(10);
-- v_ins_deel_aanmaak DATE;
-- v_ins_deel_startjaar DATE;
-- v_ins_deel_aantal_text VARCHAR2(20);
-- v_ins_deel_aantal NUMBER;
-- v_ins_srtcontrole_prijs NUMBER(10,2);
-- v_alg_locatie_code VARCHAR2(20);
-- v_alg_gebouw_code VARCHAR2(20);
-- v_alg_verdieping_volgnr NUMBER;
-- v_srtk_code_rvb_key NUMBER;
-- v_srtk_opm_key NUMBER;
-- v_srtk_merk_key NUMBER;
-- v_discipline_key NUMBER;
-- v_srtgroep_key NUMBER;
--
-- v_startjaar NUMBER;
-- v_cyclus NUMBER;
-- v_error NUMBER:=0;
-- v_objectcount NUMBER:=0;
-- v_volgnr VARCHAR2(5);
--
--
-- CURSOR c
-- IS
-- SELECT *
-- FROM fac_imp_file
-- WHERE fac_import_key = p_import_key
-- ORDER BY fac_imp_file_index;
--
-- CURSOR nlsfb_dis
-- IS
-- SELECT '1-Onderbouw' ins_omsch FROM DUAL
-- UNION
-- SELECT '2-Ruwbouw' ins_omsch FROM DUAL
-- UNION
-- SELECT '3-Afbouw' ins_omsch FROM DUAL
-- UNION
-- SELECT '4-Afwerkingen' ins_omsch FROM DUAL
-- UNION
-- SELECT '5-Installaties werktuigbouwkundig' ins_omsch FROM DUAL
-- UNION
-- SELECT '6-Installaties elektrotechnisch' ins_omsch FROM DUAL
-- UNION
-- SELECT '7-Vaste voorzieningen' ins_omsch FROM DUAL
-- UNION
-- SELECT '8-Losse gebruiks inventaris' ins_omsch FROM DUAL
-- UNION
-- SELECT '9-Terrein' AS ins_omsch FROM DUAL
-- UNION
-- SELECT '0-Indirecte projectvoorzieningen' AS ins_omsch FROM DUAL;
--
--
--
-- CURSOR nlsfb_grp
-- IS
-- SELECT '11-bodemvoorzieningen' groep FROM DUAL
-- UNION
-- SELECT '13-vloeren op grondslag' groep FROM DUAL
-- UNION
-- SELECT '16-funderingsconstructie' groep FROM DUAL
-- UNION
-- SELECT '17-paalfundering' groep FROM DUAL
-- UNION
-- SELECT '19-onderhoud algemeen' groep FROM DUAL
-- UNION
-- SELECT '21-buitenwanden' groep FROM DUAL
-- UNION
-- SELECT '22-binnenwanden' FROM DUAL
-- UNION
-- SELECT '23-vloeren, galerijen' FROM DUAL
-- UNION
-- SELECT '24-trappen en hellingen' FROM DUAL
-- UNION
-- SELECT '25-binnenzijde gevelconstructie' FROM DUAL
-- UNION
-- SELECT '26-vloerconstructie' FROM DUAL
-- UNION
-- SELECT '27-daken' FROM DUAL
-- UNION
-- SELECT '28-hoofddraagkonstrukties' FROM DUAL
-- UNION
-- SELECT '29-draagconstructie' FROM DUAL
-- UNION
-- SELECT '31-buitenwandopeningen' FROM DUAL
-- UNION
-- SELECT '32-binnenwandopeningen' FROM DUAL
-- UNION
-- SELECT '33-vloeropeningen' FROM DUAL
-- UNION
-- SELECT '34-balustrades en leuningen' FROM DUAL
-- UNION
-- SELECT '35-plafonds' FROM DUAL
-- UNION
-- SELECT '37-dakopeningen' FROM DUAL
-- UNION
-- SELECT '38-inbouwpakketten' FROM DUAL
-- UNION
-- SELECT '39-afbouw' FROM DUAL
-- UNION
-- SELECT '41-buitenwandafwerkingen' FROM DUAL
-- UNION
-- SELECT '42-binnenwandafwerkingen' FROM DUAL
-- UNION
-- SELECT '43-vloerafwerkingen' FROM DUAL
-- UNION
-- SELECT '44-trap- en hellingafwerkingen' FROM DUAL
-- UNION
-- SELECT '45-plafondafwerkingen' FROM DUAL
-- UNION
-- SELECT '46-schilderwerk' FROM DUAL
-- UNION
-- SELECT '47-dakafwerkingen' FROM DUAL
-- UNION
-- SELECT '48-afwerkingspakketten' FROM DUAL
-- UNION
-- SELECT '49-afwerking algemeen' FROM DUAL
-- UNION
-- SELECT '51-warmte-opwekking' FROM DUAL
-- UNION
-- SELECT '52-afvoeren' FROM DUAL
-- UNION
-- SELECT '53-water' FROM DUAL
-- UNION
-- SELECT '54-gas' FROM DUAL
-- UNION
-- SELECT '55-koude-opwekking' FROM DUAL
-- UNION
-- SELECT '56-warmtedistributie' FROM DUAL
-- UNION
-- SELECT '57-luchtbehandeling' FROM DUAL
-- UNION
-- SELECT '58-regeling klimaat en sanitair' FROM DUAL
-- UNION
-- SELECT '59-mechanische installaties' FROM DUAL
-- UNION
-- SELECT '61-centrale elektrotechnische voorzieningen' FROM DUAL
-- UNION
-- SELECT '62-kracht' FROM DUAL
-- UNION
-- SELECT '63-verlichting' FROM DUAL
-- UNION
-- SELECT '64-communicatie' FROM DUAL
-- UNION
-- SELECT '65-beveiliging' FROM DUAL
-- UNION
-- SELECT '66-transport' FROM DUAL
-- UNION
-- SELECT '67-gebouwbeheersysteem' FROM DUAL
-- UNION
-- SELECT '69-electrische installaties algemeen' FROM DUAL
-- UNION
-- SELECT '71-vaste verkeersvoorzieningen' FROM DUAL
-- UNION
-- SELECT '72-vaste gebruikersvoorzieningen' FROM DUAL
-- UNION
-- SELECT '73-vaste keukenvoorzieningen' FROM DUAL
-- UNION
-- SELECT '74-vaste sanitaire voorzieningen' FROM DUAL
-- UNION
-- SELECT '75-vaste onderhoudsvoorzieningen' FROM DUAL
-- UNION
-- SELECT '76-vaste opslagvoorzieningen' FROM DUAL
-- UNION
-- SELECT '79-vaste inrichtingen' FROM DUAL
-- UNION
-- SELECT '80-losse inrichting' FROM DUAL
-- UNION
-- SELECT '81-losse inventaris voor verkeersruimten' FROM DUAL
-- UNION
-- SELECT '82-losse inventaris voor gebruiksruimten' FROM DUAL
-- UNION
-- SELECT '83-losse keukeninventaris' FROM DUAL
-- UNION
-- SELECT '84-losse sanitaire inventaris' FROM DUAL
-- UNION
-- SELECT '85-losse schoonmaakinventaris' FROM DUAL
-- UNION
-- SELECT '86-losse opberginventaris' FROM DUAL
-- UNION
-- SELECT '89-losse inventaris' FROM DUAL
-- UNION
-- SELECT '90-terrein' FROM DUAL
-- UNION
-- SELECT '91-grondvoorzieningen' FROM DUAL
-- UNION
-- SELECT '92-opstallen' FROM DUAL
-- UNION
-- SELECT '93-omeheiningen' FROM DUAL
-- UNION
-- SELECT '94-terreinafwerking' FROM DUAL
-- UNION
-- SELECT '95-terreininstallaties, werktuigkundig' FROM DUAL
-- UNION
-- SELECT '96-terreininstallaties, elektrotechnisch' FROM DUAL
-- UNION
-- SELECT '97-terreininrichting standaard' FROM DUAL
-- UNION
-- SELECT '98-terreininrichting bijzonder' FROM DUAL
-- UNION
-- SELECT '99-terrein algemeen' FROM DUAL
-- UNION
-- SELECT '00-indirecte projectvoorzieningen' FROM DUAL;
--
--
--
--BEGIN
-- v_count_error := 0;
-- header_is_valid := 0;
-- v_count_tot := 0;
-- v_count_import := 0;
-- v_errormsg := 'Eerts fac_imp_ins opschonen';
--
-- DELETE fac_imp_ins;
-- COMMIT;
--
--
-- v_errormsg := 'Hebben we al NL_SFB disciplines ';
-- SELECT COUNT(*) into v_count FROM ins_discipline where ins_discipline_omschrijving IN ('0-Algemeen','3-Afbouw');
--
-- IF v_count=0 THEN
-- v_errormsg := 'NLFSB structuur aanlegen';
-- FOR rec_dis IN nlsfb_dis
-- LOOP
-- BEGIN
-- SELECT ins_discipline_key INTO v_discipline_key FROM ins_discipline where UPPER(ins_discipline_omschrijving)=UPPER(rec_dis.ins_omsch);
-- EXCEPTION
-- WHEN NO_DATA_FOUND THEN
-- INSERT INTO ins_tab_discipline (ins_discipline_omschrijving,
-- ins_discipline_min_level)
-- VALUES (rec_dis.ins_omsch, 1)
-- RETURNING ins_discipline_key
-- INTO v_discipline_key;
--
-- INSERT INTO ins_disc_params (ins_discipline_key,
-- ins_disc_params_autonum)
-- VALUES (v_discipline_key, 2);
--
--
-- END;
-- END LOOP;
-- END IF;
-- FOR rec_grp IN nlsfb_grp
-- LOOP
-- SELECT ins_discipline_key
-- INTO v_discipline_key
-- FROM ins_tab_discipline
-- WHERE SUBSTR (ins_discipline_omschrijving, 1, 2) =
-- SUBSTR (rec_grp.groep, 1, 1) || '-';
--
-- BEGIN
-- SELECT ins_srtgroep_key
-- INTO v_srtgroep_key
-- FROM ins_srtgroep
-- WHERE UPPER (ins_srtgroep_omschrijving) = UPPER (rec_grp.groep)
-- AND ins_discipline_key = v_discipline_key;
-- EXCEPTION
-- WHEN NO_DATA_FOUND
-- THEN
-- INSERT INTO ins_srtgroep (ins_discipline_key,
-- ins_srtgroep_omschrijving)
-- VALUES (v_discipline_key, rec_grp.groep);
-- END;
-- END LOOP;
--
--
--
--
--
-- FOR rec IN c
-- LOOP
-- BEGIN
-- V_count_import := v_count_import +1;
-- v_errormsg := 'Fout FETCH te importeren rij '||v_count_import;
-- v_error:=0;
-- v_newline := rec.fac_imp_file_line;
-- IF v_count_import >1 THEN
-- v_errormsg := 'Fout opvragen K1 te importeren rij '||v_count_import;
-- v_aanduiding := '';
-- v_gebouw_code:='';
-- -- Lees alle veldwaarden
-- fac.imp_getfield_nr (v_newline, c_fielddelimitor, 1, v_gebouw_code);
-- v_errormsg := 'Fout opvragen K3 te importeren rij '||v_count_import;
-- fac.imp_getfield_nr (v_newline, c_fielddelimitor, 3, v_ins_srtdeel_code);
-- v_errormsg := 'Fout opvragen K4 te importeren rij '||v_count_import;
-- fac.imp_getfield_nr (v_newline, c_fielddelimitor, 4, v_ins_deel_opmerking);
-- v_errormsg := 'Fout opvragen K6 te importeren rij '||v_count_import;
-- fac.imp_getfield_nr (v_newline, c_fielddelimitor, 6, v_kenmerk1); -- Taak omschrijving
-- v_errormsg := 'Fout opvragen K8 te importeren rij '||v_count_import;
-- fac.imp_getfield_nr (v_newline, c_fielddelimitor, 8, v_ins_deel_aantal_text);
-- v_errormsg := 'Fout opvragen K9 te importeren rij '||v_count_import;
-- fac.imp_getfield_nr (v_newline, c_fielddelimitor, 9, v_kenmerk2); -- eenheid
-- v_errormsg := 'Fout opvragen K10 te importeren rij '||v_count_import;
-- fac.imp_getfield_nr (v_newline, c_fielddelimitor, 10, v_kenmerk3); -- kosten
-- v_errormsg := 'Fout opvragen K16 te importeren rij '||v_count_import;
-- fac.imp_getfield_nr (v_newline, c_fielddelimitor, 16, v_kenmerk4); -- startjaar
-- v_errormsg := 'Fout opvragen K11 te importeren rij '||v_count_import;
-- fac.imp_getfield_nr (v_newline, c_fielddelimitor, 11, v_kenmerk5); -- cyclus
--
-- IF LENGTH(v_gebouw_code) > 0 -- AND UPPER(v_kenmerk1) NOT LIKE 'HERSTELLEN%'
-- THEN
-- v_errormsg := 'vervangen , door . '||v_count_import;
-- v_ins_srtdeel_code := REPLACE(v_ins_srtdeel_code,',','.');
-- v_errormsg := 'Tekens uit prijs verwijderen '||v_count_import;
-- v_kenmerk3 := REPLACE(v_kenmerk3,'<27> ',''); -- euro teken van prijs halen
-- v_kenmerk3 := REPLACE(v_kenmerk3,'.',''); -- duizentallen verwijderen
-- v_kenmerk3 := REPLACE(v_kenmerk3,',','.'); -- , omzetten naar .
--
--
-- -- v_aanduiding := v_ins_deel_omschrijving || '|' || v_kenmerk4;
--
-- v_count_tot := v_count_tot + 1;
--
-- v_errormsg := 'Fout bij toevoegen te impoteren v_ins_discipline_omschrijving: ' || v_ins_srtdeel_code;
-- BEGIN
-- SELECT d.ins_discipline_omschrijving,ins_discipline_key
-- INTO d_ins_discipline_omschrijving, v_discipline_key
-- FROM ins_discipline d
-- WHERE SUBSTR (d.ins_discipline_omschrijving, 1, 1) = SUBSTR (v_ins_srtdeel_code, 1, 1) AND d.ins_discipline_verwijder IS NULL;
-- EXCEPTION
-- WHEN NO_DATA_FOUND THEN
-- v_errormsg:='Fout bij achterhalen discipline';
-- v_error:=1;
-- --d_ins_discipline_omschrijving := SUBSTR (v_ins_srtdeel_code, 1, 1) || '-'|| v_ins_discipline_omschrijving;
-- END;
--
-- v_errormsg := 'Fout bij toevoegen te impoteren v_ins_srtgroep_omschrijving: ' || v_ins_srtdeel_code;
-- d_ins_srtgroep_omschrijving:='';
-- BEGIN
-- SELECT sg.ins_srtgroep_omschrijving,ins_srtgroep_key
-- INTO d_ins_srtgroep_omschrijving,v_srtgroep_key
-- FROM ins_srtgroep sg
-- WHERE SUBSTR (sg.ins_srtgroep_omschrijving, 1, 2) = SUBSTR (v_ins_srtdeel_code, 1, 2);
-- EXCEPTION
-- WHEN NO_DATA_FOUND THEN
-- v_errormsg:='Fout bij achterhalen srtgroep';
-- v_error :=1;
--
-- END;
--
-- v_errormsg := 'Fout bij toevoegen te impoteren v_ins_srtdeel_omschrijving: ' || v_ins_srtdeel_code ||'('||v_count_import||')';
-- d_ins_srtdeel_omschrijving:='';
--
-- SELECT TRIM(omsch) INTO v_ins_srtdeel_omschrijving FROM tdnl_v_select_nlsfb_grpsoort WHERE code=v_ins_srtdeel_code;
--
--
-- BEGIN
-- SELECT sd.ins_srtdeel_omschrijving
-- INTO d_ins_srtdeel_omschrijving
-- FROM ins_srtdeel sd
-- WHERE sd.ins_srtdeel_code = v_ins_srtdeel_code
-- AND sd.ins_srtdeel_verwijder IS NULL;
-- EXCEPTION
-- WHEN NO_DATA_FOUND THEN
-- d_ins_srtdeel_omschrijving := v_ins_srtdeel_omschrijving;
-- END;
--
-- v_errormsg := 'Fout bij toevoegen te impoteren v_alg_ruimte_nr: ' || v_alg_ruimte_nr;
--
-- BEGIN
--
-- SELECT alg_locatie_code, alg_gebouw_upper, alg_verdieping_code, alg_ruimte_nr
-- INTO v_alg_locatie_code,v_alg_gebouw_code, v_alg_verdieping_volgnr, v_alg_ruimte_nr
-- FROM alg_v_ruimte_gegevens where alg_locatie_code=SUBSTR(v_gebouw_code,3,6) AND alg_verdieping_upper='VERDIEPING 0' AND alg_ruimte_nr='_001';
-- EXCEPTION
-- WHEN NO_DATA_FOUND
-- THEN
-- v_errormsg:= 'Locatie/Gebouw heet geen "Verdieping 0" en RuimteNr "_001"';
-- v_error:=1;
-- END;
--
--
--
-- v_errormsg := '1 Fout bij toevoegen te impoteren startjaar('||v_ins_deel_omschrijving||'): ' || v_kenmerk15;
-- v_ins_deel_aanmaak := SYSDATE;
--
--
-- v_errormsg := 'Fout bij toevoegen te impoteren v_ins_deel_aantal_txt: ' || v_ins_deel_aantal;
-- IF v_ins_deel_aantal_text IS NOT NULL
-- THEN
-- v_ins_deel_aantal_text := REPLACE(v_ins_deel_aantal_text,'.','');
-- v_ins_deel_aantal_text := REPLACE(v_ins_deel_aantal_text,',','.');
-- v_ins_deel_aantal := to_number(v_ins_deel_aantal_text);
-- ELSE
-- v_ins_deel_aantal := 1;
-- END IF;
-- v_errormsg := '1 Fout bij ophalen ins_deel : '||v_ins_deel_opmerking;
-- v_ins_deel_omschrijving:='';
-- v_volgnr:=0;
-- v_objectcount:=0;
-- BEGIN
-- v_errormsg := '2 Fout bij ophalen ins_deel : '||v_ins_deel_opmerking;
-- SELECT DISTINCT (ins_deel_omschrijving) INTO v_ins_deel_omschrijving
-- FROM FAC_IMP_INS
-- WHERE UPPER(ins_deel_opmerking) = UPPER(v_ins_deel_opmerking)
-- AND alg_locatie_code=SUBSTR(v_gebouw_code,3,6)
-- AND INS_SRTDEEL_CODE=v_ins_srtdeel_code;
--
-- EXCEPTION
-- WHEN NO_DATA_FOUND THEN
-- v_errormsg := '3 Fout bij ophalen ins_deel : '||v_ins_deel_opmerking;
-- SELECT COUNT(*) INTO v_objectCount
-- FROM (SELECT DISTINCT (ins_deel_omschrijving) FROM FAC_IMP_INS
-- WHERE alg_locatie_code=SUBSTR(v_gebouw_code,3,6)
-- AND INS_SRTDEEL_CODE=v_ins_srtdeel_code);
-- v_volgnr:=v_objectcount+1;
-- v_ins_deel_omschrijving := SUBSTR(v_gebouw_code,3,6)||'-'||v_ins_srtdeel_code||'-'||v_volgnr;
-- v_error:=0;
-- END;
--
-- v_errormsg:=' Fout bij toevoegen in fac_imp_ins : '||v_count ;
-- IF v_error=0 THEN
-- INSERT INTO fac_imp_ins (ins_discipline_omschrijving,
-- ins_srtgroep_omschrijving,
-- ins_srtdeel_code,
-- ins_srtdeel_omschrijving,
-- ins_deel_omschrijving,
-- ins_deel_opmerking,
-- alg_locatie_code,
-- alg_gebouw_code,
-- alg_verdieping_volgnr,
-- alg_ruimte_nr,
-- ins_deel_aanmaak,
-- ins_deel_aantal,
-- ins_kenmerkwaarde1, -- Taak omschrijving
-- ins_kenmerkwaarde2, -- eenheid ?
-- ins_kenmerkwaarde3, -- kosten ?
-- ins_kenmerkwaarde4, -- startjaar
-- ins_kenmerkwaarde5,
-- ins_kenmerkwaarde6) -- cyclus
-- VALUES (SUBSTR(d_ins_discipline_omschrijving, 1,60),
-- SUBSTR(d_ins_srtgroep_omschrijving, 1, 60),
-- SUBSTR(v_ins_srtdeel_code,1,10),
-- SUBSTR(v_ins_srtdeel_omschrijving, 1, 100),
-- v_ins_deel_omschrijving,
-- SUBSTR(v_ins_deel_opmerking, 1, 320),
-- SUBSTR(v_gebouw_code,3,6),
-- SUBSTR(v_alg_gebouw_code, 1, 12),
-- v_alg_verdieping_volgnr,
-- SUBSTR(v_alg_ruimte_nr,1,20),
-- v_ins_deel_aanmaak,
-- to_number(v_ins_deel_aantal),
-- v_kenmerk1,
-- v_kenmerk2,
-- v_kenmerk3,
-- v_kenmerk4,
-- v_kenmerk5,
-- v_count_import);
--
-- COMMIT;
-- ELSE
-- fac.imp_writelog (p_import_key,
-- 'W',
-- v_errormsg,
-- v_errorhint);
-- END IF;
-- ELSE
-- v_errormsg := 'Locatie code '||v_gebouw_code||'-'||v_count_import;
-- fac.imp_writelog (p_import_key,
-- 'W',
-- v_errormsg,
-- v_errorhint);
-- END IF;
-- END IF;
-- 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;
--
--
--
-- END LOOP;
--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;
--/
--
--CREATE OR REPLACE PROCEDURE TDNL_UPDATE_ASSETS_INI(p_import_key IN NUMBER)
--AS
-- CURSOR sel IS
-- SELECT * FROM fac_imp_ins;
--
-- oracle_err_num NUMBER;
-- oracle_err_mes VARCHAR2 (200);
-- v_errormsg VARCHAR2 (200);
-- v_errorhint VARCHAR2 (200);
-- v_aanduiding VARCHAR2 (100);
-- v_deel_key NUMBER;
-- v_srtdeel_key NUMBER;
-- v_srtcontrole_key NUMBER;
-- v_srtcontroledl_xcp_key NUMBER;
--
-- v_taakcat_key NUMBER;
-- v_srtcontrole_omschrijving INS_SRTCONTROLE.INS_SRTCONTROLE_OMSCHRIJVING%TYPE;
-- v_srtcontrole_periode INS_SRTCONTROLE.INS_SRTCONTROLE_PERIODE%TYPE;
-- v_srtcontrole_materiaal INS_SRTCONTROLE.INS_SRTCONTROLE_MATERIAAL%TYPE;
-- v_srtcontrole_percentage INS_SRTCONTROLE.INS_SRTCONTROLE_PERCENTAGE%TYPE;
-- v_srtcontrole_level INS_SRTCONTROLE.INS_SRTCONTROLE_LEVEL%TYPE;
-- v_percentage NUMBER;
-- v_materiaal INS_SRTCONTROLEDL_XCP.INS_SRTCONTROLEDL_XCP_MATERIA%TYPE;
--
-- ins_deel_key NUMBER;
-- ins_srtdeel_key NUMBER;
-- v_count NUMBER;
-- v_error NUMBER;
-- v_taak_cyclus NUMBER;
-- v_taak_afmeld_date DATE;
-- v_taak_afmeld_jaar NUMBER;
-- v_taak_nextyear NUMBER;
-- v_xcprecords NUMBER;
--
--
--BEGIN
--
-- fac_update_ins(p_import_key);
--
-- v_count:=0;
--
-- -- LOOP Over alle geimporteerde objecten
-- FOR rec IN sel
-- LOOP
-- v_error:=0;
-- BEGIN
--
-- v_count:=v_count+1;
-- -- volgens mij is deze niet meer nodig
-- v_materiaal := FAC.safe_to_number (rec.INS_KENMERKWAARDE3);
--
-- -- Haal het object op
-- v_errorhint := 'Zoek object';
-- SELECT ins_deel_key, ins_srtdeel_key
-- INTO v_deel_key, v_srtdeel_key
-- FROM ins_deel
-- WHERE ins_deel_omschrijving = rec.ins_deel_omschrijving
-- AND ins_deel_verwijder IS NULL;
--
-- --Haal de taakgroep op
-- v_errorhint := 'Problemen bij ophalen taakcategorie';
-- SELECT ins_discipline_key
-- INTO v_taakcat_key
-- FROM INS_TAB_DISCIPLINE
-- WHERE UPPER(ins_discipline_omschrijving) = 'MJOB'
-- AND ins_discipline_module='CTR'
-- AND ins_discipline_verwijder IS NULL;
--
--
-- --v_taakcat_key:=2621; -- MJOB
--
--
--
-- v_taak_cyclus := TO_NUMBER(COALESCE(rec.ins_kenmerkwaarde5,0));
-- v_taak_nextyear := TO_NUMBER(rec.ins_kenmerkwaarde4);
--
-- IF (v_taak_cyclus=0 AND v_taak_nextyear>=2022)
-- OR (v_taak_cyclus <> 0 AND v_taak_nextyear <> 0)
-- THEN
-- BEGIN
-- IF v_taak_cyclus=1 AND v_taak_nextyear <=2022 THEN
-- v_taak_afmeld_jaar := 2022;
-- ELSE
-- --v_taak_afmeld_jaar := v_taak_nextyear - v_taak_cyclus;
-- v_taak_afmeld_jaar := v_taak_nextyear;
-- END IF;
-- v_taak_afmeld_date := TO_DATE('0101'||v_taak_afmeld_jaar,'ddmmyyyy');
--
-- --v_srtcontrole_omschrijving:='';
-- v_srtcontrole_omschrijving:= SUBSTR(rec.ins_kenmerkwaarde1,0,50);
--
-- v_srtcontrole_omschrijving:=v_srtcontrole_omschrijving || '-'|| rec.ins_srtdeel_code;
-- -- Heb ik deze srtcontrole al
-- SELECT ins_srtcontrole_key,
-- ins_srtcontrole_periode,
-- ins_srtcontrole_materiaal,
-- ins_srtcontrole_percentage
-- INTO v_srtcontrole_key,
-- v_srtcontrole_periode,
-- v_srtcontrole_materiaal,
-- v_srtcontrole_percentage
-- FROM ins_srtcontrole
-- WHERE ins_srtinstallatie_key = v_srtdeel_key
-- AND ins_srtcontrole_niveau = 'S'
-- AND ctr_discipline_key = v_taakcat_key
-- AND ins_srtcontrole_omschrijving=v_srtcontrole_omschrijving;
--
-- IF v_taak_cyclus=0 THEN
-- v_taak_cyclus:=99;
-- END IF;
--
-- -- Controle of er al een xcp record vor dit ins_del srtcontrole al aanwezig is.
-- SELECT COUNT(*)
-- INTO v_xcprecords
-- FROM ins_srtcontroledl_xcp
-- WHERE ins_srtcontrole_key=v_srtcontrole_key
-- AND ins_deel_key=v_deel_key;
--
-- IF v_xcprecords=0 THEN
--
-- INSERT INTO ins_srtcontroledl_xcp
-- (ins_srtcontrole_key,
-- ins_deel_key,
-- ins_srtcontroledl_xcp_aantal,
-- ins_srtcontroledl_xcp_eenheid,
-- ins_srtcontroledl_xcp_periode,
-- ins_srtcontroledl_xcp_materia,
-- ins_srtcontroledl_xcp_startdat,
-- ins_srtcontroledl_xcp_aanteh)
-- VALUES (v_srtcontrole_key,
-- v_deel_key,
-- rec.ins_deel_aantal,
-- 4,
-- v_taak_cyclus,
-- v_materiaal,
-- v_taak_afmeld_date,
-- rec.ins_kenmerkwaarde2);
-- END IF;
--
--
--
-- EXCEPTION
-- WHEN NO_DATA_FOUND THEN
-- v_errorhint := 'Bepalen level';
-- v_srtcontrole_level := 10;
-- v_srtcontrole_percentage:=0;
-- v_srtcontrole_omschrijving:= SUBSTR(rec.ins_kenmerkwaarde1,0,50);
--
-- v_srtcontrole_omschrijving:=v_srtcontrole_omschrijving || '-'|| rec.ins_srtdeel_code;
--
-- IF v_taak_cyclus=0 THEN
-- v_taak_cyclus:=99;
-- END IF;
--
-- v_errorhint := 'Aanmaken srtcontrole';
-- fac.imp_writelog (p_import_key,
-- 'W',
-- v_count||'-'||v_taak_cyclus||-v_taak_nextyear,
-- v_errorhint);
--
-- -- nu moet we een ins_srtcontrole aanmaken
--
-- INSERT INTO ins_srtcontrole (
-- ins_srtinstallatie_key,
-- ins_srtcontrole_niveau,
-- ins_srtcontrole_omschrijving,
-- ctr_discipline_key,
-- ins_Srtcontrole_periode,
-- ins_srtcontrole_eenheid,
-- ins_srtcontrole_level
-- )
-- VALUES (
-- v_srtdeel_key,
-- 'S',
-- v_srtcontrole_omschrijving,
-- v_taakcat_key,
-- 0,
-- 4, -- Jaarlijks
-- v_srtcontrole_level
-- )
-- RETURNING ins_srtcontrole_key INTO v_srtcontrole_key;
--
--
-- INSERT INTO ins_srtcontroledl_xcp (
-- ins_srtcontrole_key,
-- ins_srtcontroledl_xcp_materia,
-- ins_srtcontroledl_xcp_periode,
-- ins_srtcontroledl_xcp_eenheid,
-- ins_srtcontroledl_xcp_aantal,
-- ins_deel_key,
-- ins_srtcontroledl_xcp_startdat,
-- ins_srtcontroledl_xcp_aanteh)
-- VALUES (v_srtcontrole_key,
-- v_materiaal,
-- v_taak_cyclus,
-- 4,
-- rec.ins_deel_aantal,
-- v_deel_key,
-- v_taak_afmeld_date,
-- rec.ins_kenmerkwaarde2)
-- RETURNING ins_srtcontroledl_xcp_key
-- INTO v_srtcontroledl_xcp_key;
--
--
-- COMMIT;
-- 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_count||'-'||rec.ins_deel_omschrijving||'-'||v_errormsg,
-- v_errorhint);
-- END;
--
-- END IF;
-- 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_count||'-'||v_errormsg,
-- v_errorhint);
-- END;
-- END LOOP;
--
--END;
--/
-- Einde CONN_UPDATE_ASSETS
-- EINDE IMPORTS
-- VIEWS
-- View met alle NL SFB groepen tbv van OPrognose assets import
--CREATE OR REPLACE FORCE VIEW TDNL_V_SELECT_NLSFB_GRPSOORT
--(
-- code,
-- omsch)
--AS
-- SELECT '1110' code,'grond, algemeen (verzamelniveau)' omsch FROM DUAL UNION
-- SELECT '1111','grond, ontgravingen' FROM DUAL UNION
-- SELECT '1112','grond, aanvullingen' FROM DUAL UNION
-- SELECT '1113','grond, sloop- en rooiwerkzaamheden' FROM DUAL UNION
-- SELECT '1115','grond, damwanden' FROM DUAL UNION
-- SELECT '1120','water, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '1124','water, bemalingen' FROM DUAL UNION
-- SELECT '1125','water, damwanden' FROM DUAL UNION
-- SELECT '1310','niet constructief, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '1311','niet constructief, bodemafsluitingen' FROM DUAL UNION
-- SELECT '1312','niet constructief, vloeren als gebouwonderdeel' FROM DUAL UNION
-- SELECT '1313','niet constructief, vloeren als bestrating' FROM DUAL UNION
-- SELECT '1320','constructief, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '1321','constructief, bodemafsluitingen' FROM DUAL UNION
-- SELECT '1322','constructief, vloeren als gebouwonderdeel' FROM DUAL UNION
-- SELECT '1325','constructief, grondverbeteringen' FROM DUAL UNION
-- SELECT '1610','voeten en balken, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '1611','voeten en balken, fundatie voeten' FROM DUAL UNION
-- SELECT '1612','voeten en balken, fundatie balken' FROM DUAL UNION
-- SELECT '1613','voeten en balken, fundatie poeren' FROM DUAL UNION
-- SELECT '1614','voeten en balken, gevelwanden (-200)' FROM DUAL UNION
-- SELECT '1615','voeten en balken, grondverbeteringen' FROM DUAL UNION
-- SELECT '1620','keerwanden, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '1621','keerwanden, grondkerende wanden' FROM DUAL UNION
-- SELECT '1622','keerwanden, waterkerende wanden' FROM DUAL UNION
-- SELECT '1623','keerwanden, gevelwanden (-200)' FROM DUAL UNION
-- SELECT '1625','keerwanden, grondverbeteringen' FROM DUAL UNION
-- SELECT '1710','niet geheid, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '1711','niet geheid, dragend palen geboord' FROM DUAL UNION
-- SELECT '1712','niet geheid, dragende palen geschroefd' FROM DUAL UNION
-- SELECT '1713','niet geheid, trekverankeringen' FROM DUAL UNION
-- SELECT '1714','niet geheid, pijler-putring-funderingen' FROM DUAL UNION
-- SELECT '1715','niet geheid, bodeminjecties' FROM DUAL UNION
-- SELECT '1720','geheid, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '1721','geheid, dragende palen' FROM DUAL UNION
-- SELECT '1722','geheid, palen ingeheide bekisting' FROM DUAL UNION
-- SELECT '1723','geheid, trekverankeringen' FROM DUAL UNION
-- SELECT '1725','geheid, damwanden-funderingen' FROM DUAL UNION
-- SELECT '2110','niet constructief, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '2111','niet constructief, massieve wanden' FROM DUAL UNION
-- SELECT '2112','niet constructief, spouwwanden' FROM DUAL UNION
-- SELECT '2113','niet constructief, systeemwanden' FROM DUAL UNION
-- SELECT '2114','niet constructief, vlieswanden' FROM DUAL UNION
-- SELECT '2115','niet constructief, borstweringen' FROM DUAL UNION
-- SELECT '2116','niet constructief, boeiboorden' FROM DUAL UNION
-- SELECT '2120','constructief, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '2121','constructief, massieve wanden' FROM DUAL UNION
-- SELECT '2122','constructief, spouwwanden' FROM DUAL UNION
-- SELECT '2123','constructief, systeemwanden' FROM DUAL UNION
-- SELECT '2125','constructief, borstweringen' FROM DUAL UNION
-- SELECT '2210','niet constructief, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '2211','niet constructief, massieve wanden' FROM DUAL UNION
-- SELECT '2212','niet constructief, spouwwanden' FROM DUAL UNION
-- SELECT '2213','niet constructief, systeemwanden vast' FROM DUAL UNION
-- SELECT '2214','niet constructief, systeemwanden verplaatsbaar' FROM DUAL UNION
-- SELECT '2220','constructief, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '2221','constructief, massieve wanden' FROM DUAL UNION
-- SELECT '2222','constructief, spouwwanden' FROM DUAL UNION
-- SELECT '2223','constructief, systeemwanden vast' FROM DUAL UNION
-- SELECT '2310','niet constructief, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '2311','niet constructief, vrijdragende vloeren' FROM DUAL UNION
-- SELECT '2312','niet constructief, balkons' FROM DUAL UNION
-- SELECT '2313','niet constructief, galerijen' FROM DUAL UNION
-- SELECT '2314','niet constructief, bordessen' FROM DUAL UNION
-- SELECT '2315','niet constructief, vloeren t.b.v. technische voorzieningen' FROM DUAL UNION
-- SELECT '2320','constructief, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '2321','constructief, vrijdragende vloeren' FROM DUAL UNION
-- SELECT '2322','constructief, balkons' FROM DUAL UNION
-- SELECT '2323','constructief, galerijen' FROM DUAL UNION
-- SELECT '2324','constructief, bordessen' FROM DUAL UNION
-- SELECT '2325','constructief, vloeren t.b.v. technische voorzieningen' FROM DUAL UNION
-- SELECT '2410','trappen, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '2411','trappen, rechte steektrappen' FROM DUAL UNION
-- SELECT '2412','trappen, niet-rechte steektrappen' FROM DUAL UNION
-- SELECT '2413','trappen, spiltrappen' FROM DUAL UNION
-- SELECT '2415','trappen, bordessen' FROM DUAL UNION
-- SELECT '2420','hellingen, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '2421','hellingen, beloopbare hellingen' FROM DUAL UNION
-- SELECT '2422','hellingen, berijdbare hellingen' FROM DUAL UNION
-- SELECT '2425','hellingen, bordessen' FROM DUAL UNION
-- SELECT '2430','ladders en klimijzers, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '2431','ladders en klimijzers, ladders' FROM DUAL UNION
-- SELECT '2432','ladders en klimijzers, klimijzers' FROM DUAL UNION
-- SELECT '2435','ladders en klimijzers, bordessen' FROM DUAL UNION
-- SELECT '2710','niet constructief, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '2711','niet constructief, vlakke daken' FROM DUAL UNION
-- SELECT '2712','niet constructief, hellende daken' FROM DUAL UNION
-- SELECT '2713','niet constructief, luifels' FROM DUAL UNION
-- SELECT '2714','niet constructief, overkappingen' FROM DUAL UNION
-- SELECT '2716','niet constructief, gootconstructies' FROM DUAL UNION
-- SELECT '2720','constructief, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '2721','constructief, vlakke daken' FROM DUAL UNION
-- SELECT '2722','constructief, hellende daken' FROM DUAL UNION
-- SELECT '2723','constructief, luifels' FROM DUAL UNION
-- SELECT '2724','constructief, overkappingen' FROM DUAL UNION
-- SELECT '2726','constructief, gootconstructies' FROM DUAL UNION
-- SELECT '2810','kolommen en liggers, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '2811','kolommen en liggers, kolom-/liggerconstructies' FROM DUAL UNION
-- SELECT '2812','kolommen en liggers, spanten' FROM DUAL UNION
-- SELECT '2820','wanden en vloeren, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '2821','wanden en vloeren, wand-/vloerconstructies' FROM DUAL UNION
-- SELECT '2830','ruimte-eenheden, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '2831','ruimte-eenheden, doosconstructies' FROM DUAL UNION
-- SELECT '3110','niet gevuld, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '3111','niet gevuld, daglichtopeningen' FROM DUAL UNION
-- SELECT '3112','niet gevuld, buitenluchtopeningen' FROM DUAL UNION
-- SELECT '3120','gevuld met ramen, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '3121','gevuld met ramen, gesloten ramen' FROM DUAL UNION
-- SELECT '3122','gevuld met ramen, ramen draaiend aan een kant' FROM DUAL UNION
-- SELECT '3123','gevuld met ramen, schuiframen' FROM DUAL UNION
-- SELECT '3124','gevuld met ramen, ramen draaiend op verticale of horizontale as' FROM DUAL UNION
-- SELECT '3125','gevuld met ramen, combinatieramen' FROM DUAL UNION
-- SELECT '3130','gevuld met deuren, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '3131','gevuld met deuren, draaideuren' FROM DUAL UNION
-- SELECT '3132','gevuld met deuren, schuifdeuren' FROM DUAL UNION
-- SELECT '3133','gevuld met deuren, tuimeldeuren' FROM DUAL UNION
-- SELECT '3134','gevuld met deuren, tourniqets' FROM DUAL UNION
-- SELECT '3140','gevuld met puien, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '3141','gevuld met puien, gesloten puien' FROM DUAL UNION
-- SELECT '3210','niet gevuld, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '3211','niet gevuld, openingen als doorgang' FROM DUAL UNION
-- SELECT '3212','niet gevuld, openingen als doorzicht' FROM DUAL UNION
-- SELECT '3220','gevuld met ramen, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '3221','gevuld met ramen, gesloten ramen' FROM DUAL UNION
-- SELECT '3222','gevuld met ramen, ramen draaiend aan een kant' FROM DUAL UNION
-- SELECT '3223','gevuld met ramen, schuiframen' FROM DUAL UNION
-- SELECT '3224','gevuld met ramen, ramen draaiend op verticale of horizontale as' FROM DUAL UNION
-- SELECT '3225','gevuld met ramen, combinatieramen' FROM DUAL UNION
-- SELECT '3230','gevuld met deuren, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '3231','gevuld met deuren, draaideuren' FROM DUAL UNION
-- SELECT '3232','gevuld met deuren, schuifdeuren' FROM DUAL UNION
-- SELECT '3233','gevuld met deuren, tuimeldeuren' FROM DUAL UNION
-- SELECT '3234','gevuld met deuren, tourniqets' FROM DUAL UNION
-- SELECT '3240','gevuld met puien, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '3241','gevuld met puien, gesloten puien' FROM DUAL UNION
-- SELECT '3310','niet gevuld, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '3311','niet gevuld, openingen als doorgang' FROM DUAL UNION
-- SELECT '3312','niet gevuld, openingen als doorzicht' FROM DUAL UNION
-- SELECT '3320','gevuld, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '3321','gevuld, beloopbare vullingen' FROM DUAL UNION
-- SELECT '3322','gevuld, niet-beloopbare vullingen' FROM DUAL UNION
-- SELECT '3410','balustrades, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '3411','balustrades, binnenbalustrades' FROM DUAL UNION
-- SELECT '3412','balustrades, buitenbalustrades' FROM DUAL UNION
-- SELECT '3420','leuningen, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '3421','leuningen, binnenleuningen' FROM DUAL UNION
-- SELECT '3422','leuningen, buitenleuningen' FROM DUAL UNION
-- SELECT '3431','leuningen, binnentrapleuning hout' FROM DUAL UNION
-- SELECT '3710','niet gevuld, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '3711','niet gevuld, daglichtopeningen' FROM DUAL UNION
-- SELECT '3712','niet gevuld, buitenluchtopeningen' FROM DUAL UNION
-- SELECT '3720','gevuld, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '3721','gevuld, gesloten ramen' FROM DUAL UNION
-- SELECT '3722','gevuld, ramen draaiend aan <20><>n kant' FROM DUAL UNION
-- SELECT '3723','gevuld, schuiframen' FROM DUAL UNION
-- SELECT '3724','gevuld, ramen draaiend op een as' FROM DUAL UNION
-- SELECT '3725','gevuld, combinatieramen' FROM DUAL UNION
-- SELECT '3810','algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '3811','inbouwpakketten met te openen delen' FROM DUAL UNION
-- SELECT '3812','inbouwpakketten met gesloten delen' FROM DUAL UNION
-- SELECT '4110','algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '4111','afwerklagen' FROM DUAL UNION
-- SELECT '4112','bekledingen' FROM DUAL UNION
-- SELECT '4113','voorzetwanden' FROM DUAL UNION
-- SELECT '4210','algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '4211','afwerklagen' FROM DUAL UNION
-- SELECT '4212','bekledingen' FROM DUAL UNION
-- SELECT '4310','verhoogd, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '4311','verhoogd, podiums' FROM DUAL UNION
-- SELECT '4312','verhoogd, installatievloeren' FROM DUAL UNION
-- SELECT '4320','niet verhoogd, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '4321','niet verhoogd, afwerklagen' FROM DUAL UNION
-- SELECT '4322','niet verhoogd, bekledingen' FROM DUAL UNION
-- SELECT '4323','niet verhoogd, systeemvloerafwerkingen' FROM DUAL UNION
-- SELECT '4410','trapafwerkingen, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '4411','trapafwerkingen, afwerklagen' FROM DUAL UNION
-- SELECT '4412','trapafwerkingen, bekledingen' FROM DUAL UNION
-- SELECT '4413','trapafwerkingen, systeemafwerkingen' FROM DUAL UNION
-- SELECT '4420','hellingafwerkingen, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '4421','hellingafwerkingen, afwerklagen' FROM DUAL UNION
-- SELECT '4422','hellingafwerkingen, bekledingen' FROM DUAL UNION
-- SELECT '4423','hellingafwerkingen, systeemafwerkingen' FROM DUAL UNION
-- SELECT '4510','verlaagd, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '4511','verlaagd, verlaagde plafonds' FROM DUAL UNION
-- SELECT '4512','verlaagd, systeem plafonds' FROM DUAL UNION
-- SELECT '4514','verlaagd, koofconstructies' FROM DUAL UNION
-- SELECT '4515','verlaagd, gordijnplanken' FROM DUAL UNION
-- SELECT '4520','niet verlaagd, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '4521','niet verlaagd, afwerkingen' FROM DUAL UNION
-- SELECT '4522','niet verlaagd, bekledingen' FROM DUAL UNION
-- SELECT '4523','niet verlaagd, systeemafwerkingen' FROM DUAL UNION
-- SELECT '4524','niet verlaagd, koofconstructies' FROM DUAL UNION
-- SELECT '4525','niet verlaagd, gordijnplanken' FROM DUAL UNION
-- SELECT '4621','buitenschilderwerk, hout' FROM DUAL UNION
-- SELECT '4622','binnenschilderwerk, spuitwerk' FROM DUAL UNION
-- SELECT '4624','binnenschilderwerk, trap hout transparant' FROM DUAL UNION
-- SELECT '4628','binnenschilderwerk, betoncontructie' FROM DUAL UNION
-- SELECT '4631','buitenschilderwerk, kozijn en raam hout dekkend' FROM DUAL UNION
-- SELECT '4632','binnenschilderwerk, kozijn en raam staal' FROM DUAL UNION
-- SELECT '4645','buitenschilderwerk, plafond hout dekkend' FROM DUAL UNION
-- SELECT '4710','afwerkingen, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '4711','afwerkingen, vlakke dakafwerkingen' FROM DUAL UNION
-- SELECT '4712','afwerkingen, hellende dakafwerkingen' FROM DUAL UNION
-- SELECT '4713','afwerkingen, luifel afwerkingen' FROM DUAL UNION
-- SELECT '4714','afwerkingen, overkappings afwerkingen' FROM DUAL UNION
-- SELECT '4715','afwerkingen, beloopbare dakafwerkingen' FROM DUAL UNION
-- SELECT '4716','afwerkingen, berijdbare dakafwerkingen' FROM DUAL UNION
-- SELECT '4720','bekledingen, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '4721','bekledingen, vlakke bekledingen' FROM DUAL UNION
-- SELECT '4722','bekledingen, hellende bekledingen' FROM DUAL UNION
-- SELECT '4723','bekledingen, luifel bekledingen' FROM DUAL UNION
-- SELECT '4724','bekledingen, overkapping bekledingen' FROM DUAL UNION
-- SELECT '4725','bekledingen, beloopbare dak bekledingen' FROM DUAL UNION
-- SELECT '4726','bekledingen, berijdbare dak bekledingen' FROM DUAL UNION
-- SELECT '4810','algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '4811','naadloze afwerkingen' FROM DUAL UNION
-- SELECT '4812','overige afwerkingen' FROM DUAL UNION
-- SELECT '5110','lokaal, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '5111','lokaal, gasvormige brandstoffen' FROM DUAL UNION
-- SELECT '5112','lokaal, vloeibare brandstoffen' FROM DUAL UNION
-- SELECT '5113','lokaal, vaste brandstoffen' FROM DUAL UNION
-- SELECT '5114','lokaal, schoorstenen/kanalen (niet bouwkundig)' FROM DUAL UNION
-- SELECT '5116','lokaal, gecombineerde tapwaterverwarming' FROM DUAL UNION
-- SELECT '5119','lokaal, brandstoffenopslag' FROM DUAL UNION
-- SELECT '5120','centraal, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '5121','centraal, gasvormige brandstoffen' FROM DUAL UNION
-- SELECT '5122','centraal, vloeibare brandstoffen' FROM DUAL UNION
-- SELECT '5123','centraal, vaste brandstoffen' FROM DUAL UNION
-- SELECT '5124','centraal, schoorstenen/kanalen (niet bouwkundig)' FROM DUAL UNION
-- SELECT '5126','centraal, gecombineerde tapwater verwarming' FROM DUAL UNION
-- SELECT '5129','centraal, brandstoffenopslag' FROM DUAL UNION
-- SELECT '5130','toegeleverde warmte, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '5131','toegeleverde warmte, water tot 140<34> C.' FROM DUAL UNION
-- SELECT '5132','toegeleverde warmte, water boven 140<34> C.' FROM DUAL UNION
-- SELECT '5133','toegeleverde warmte, stoom' FROM DUAL UNION
-- SELECT '5136','toegeleverde warmte, gecombineerde tapwaterverwarming' FROM DUAL UNION
-- SELECT '5140','warmte-krachtkoppeling, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '5141','warmte-krachtkoppeling, total-energy' FROM DUAL UNION
-- SELECT '5144','warmte-krachtkoppeling, schoorstenen/kanalen (niet bouwkundig)' FROM DUAL UNION
-- SELECT '5146','warmte-krachtkoppeling, gecombineerde tapwaterverwarming' FROM DUAL UNION
-- SELECT '5149','warmte-krachtkoppeling, brandstoffenopslag' FROM DUAL UNION
-- SELECT '5150','bijzonder, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '5151','bijzonder, warmtepomp' FROM DUAL UNION
-- SELECT '5152','bijzonder, zonnecollectoren' FROM DUAL UNION
-- SELECT '5153','bijzonder, accumulatie' FROM DUAL UNION
-- SELECT '5154','bijzonder, aardwarmte' FROM DUAL UNION
-- SELECT '5155','bijzonder, kernenergie' FROM DUAL UNION
-- SELECT '5210','regenwater, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '5211','regenwater, afvoerinstallatie in het gebouw' FROM DUAL UNION
-- SELECT '5212','regenwater, afvoerinstallatie buiten het gebouw' FROM DUAL UNION
-- SELECT '5216','regenwater, pompsysteem' FROM DUAL UNION
-- SELECT '5220','fecali<6C>n, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '5221','fecali<6C>n, standaard systeem' FROM DUAL UNION
-- SELECT '5222','fecali<6C>n, vacu<63>msysteem' FROM DUAL UNION
-- SELECT '5223','fecali<6C>n, overdruksysteem' FROM DUAL UNION
-- SELECT '5226','fecali<6C>n, pompsysteem' FROM DUAL UNION
-- SELECT '5230','afvalwater, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '5231','afvalwater, huishoudelijk afval' FROM DUAL UNION
-- SELECT '5232','afvalwater, bedrijfsafval' FROM DUAL UNION
-- SELECT '5236','afvalwater, pompsysteem' FROM DUAL UNION
-- SELECT '5240','gecombineerd, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '5241','gecombineerd, ge<67>ntegreerd systeem' FROM DUAL UNION
-- SELECT '5246','gecombineerd, pompsysteem' FROM DUAL UNION
-- SELECT '5250','speciaal, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '5251','speciaal, chemisch verontreinigd afvalwater' FROM DUAL UNION
-- SELECT '5252','speciaal, biologisch besmet afvalwater' FROM DUAL UNION
-- SELECT '5253','speciaal, radioactief besmet afvalwater' FROM DUAL UNION
-- SELECT '5256','speciaal, pompsysteem' FROM DUAL UNION
-- SELECT '5260','vast vuil, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '5261','vast vuil, stortkokers' FROM DUAL UNION
-- SELECT '5262','vast vuil, vacu<63>msysteem' FROM DUAL UNION
-- SELECT '5263','vast vuil, persluchtsysteem' FROM DUAL UNION
-- SELECT '5264','vast vuil, verdichtingssysteem' FROM DUAL UNION
-- SELECT '5265','vast vuil, verbrandingssysteem' FROM DUAL UNION
-- SELECT '5310','drinkwater, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '5311','drinkwater, netaansluiting' FROM DUAL UNION
-- SELECT '5312','drinkwater, bronaansluiting' FROM DUAL UNION
-- SELECT '5313','drinkwater, reinwaterkelderaansluiting' FROM DUAL UNION
-- SELECT '5314','drinkwater, drukverhoging' FROM DUAL UNION
-- SELECT '5319','drinkwater, opslagtanks' FROM DUAL UNION
-- SELECT '5320','verwarmd tapwater, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '5321','verwarmd tapwater, direct verwarmd met voorraad' FROM DUAL UNION
-- SELECT '5322','verwarmd tapwater, indirect verwarmd met voorraad' FROM DUAL UNION
-- SELECT '5323','verwarmd tapwater, doorstroom direct verwarmd' FROM DUAL UNION
-- SELECT '5324','verwarmd tapwater, doorstroom indirect verwarmd' FROM DUAL UNION
-- SELECT '5330','bedrijfswater, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '5331','bedrijfswater, onthard-watersysteem' FROM DUAL UNION
-- SELECT '5332','bedrijfswater, demi-watersysteem' FROM DUAL UNION
-- SELECT '5333','bedrijfswater, gedistilleerd-watersysteem' FROM DUAL UNION
-- SELECT '5334','bedrijfswater, zwembad-watersysteem' FROM DUAL UNION
-- SELECT '5340','gebruiksstoom en condens, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '5341','gebruiksstoom en condens, lage-druk stoomsysteem' FROM DUAL UNION
-- SELECT '5342','gebruiksstoom en condens, hoge-druk stoomsysteem' FROM DUAL UNION
-- SELECT '5344','gebruiksstoom en condens, condens verzamelsysteem' FROM DUAL UNION
-- SELECT '5350','waterbehandeling, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '5351','waterbehandeling, filtratiesysteem' FROM DUAL UNION
-- SELECT '5352','waterbehandeling, absorptiesysteem' FROM DUAL UNION
-- SELECT '5353','waterbehandeling, ontgassingsysteem' FROM DUAL UNION
-- SELECT '5354','waterbehandeling, destillatiesysteem' FROM DUAL UNION
-- SELECT '5410','brandstof, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '5411','brandstof, aardgasvoorziening' FROM DUAL UNION
-- SELECT '5412','brandstof, butaanvoorziening' FROM DUAL UNION
-- SELECT '5413','brandstof, propaanvoorziening' FROM DUAL UNION
-- SELECT '5414','brandstof, LPG-voorziening' FROM DUAL UNION
-- SELECT '5420','perslucht en vacu<63>m, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '5421','perslucht en vacu<63>m, persluchtvoorziening' FROM DUAL UNION
-- SELECT '5422','perslucht en vacu<63>m, vacu<63>mvoorziening' FROM DUAL UNION
-- SELECT '5430','medisch, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '5431','medisch, zuurstofvoorziening' FROM DUAL UNION
-- SELECT '5432','medisch, carbogeenvoorziening' FROM DUAL UNION
-- SELECT '5433','medisch, lachgasvoorziening' FROM DUAL UNION
-- SELECT '5434','medisch, koolzuurvoorziening' FROM DUAL UNION
-- SELECT '5435','medisch, medische luchtvoorziening' FROM DUAL UNION
-- SELECT '5440','technisch, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '5441','technisch, stikstofvoorziening' FROM DUAL UNION
-- SELECT '5442','technisch, waterstofvoorziening' FROM DUAL UNION
-- SELECT '5443','technisch, argonvoorziening' FROM DUAL UNION
-- SELECT '5444','technisch, heliumvoorziening' FROM DUAL UNION
-- SELECT '5445','technisch, acetyleenvoorziening' FROM DUAL UNION
-- SELECT '5446','technisch, propaanvoorziening' FROM DUAL UNION
-- SELECT '5447','technisch, koolzuurvoorziening' FROM DUAL UNION
-- SELECT '5450','bijzonder, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '5451','bijzonder, voorziening zuivere gassen' FROM DUAL UNION
-- SELECT '5452','bijzonder, voorziening menggassen' FROM DUAL UNION
-- SELECT '5510','lokaal, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '5511','lokaal, raamkoelers' FROM DUAL UNION
-- SELECT '5512','lokaal, splitsystemen' FROM DUAL UNION
-- SELECT '5513','lokaal, compactsystemen' FROM DUAL UNION
-- SELECT '5520','centraal, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '5521','centraal, compressorensystemen' FROM DUAL UNION
-- SELECT '5522','centraal, absorptiesystemen' FROM DUAL UNION
-- SELECT '5523','centraal, grondwatersystemen' FROM DUAL UNION
-- SELECT '5524','centraal, oppervlaktewatersystemen' FROM DUAL UNION
-- SELECT '5530','distributie, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '5531','distributie, distributiesystemen' FROM DUAL UNION
-- SELECT '5610','water, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '5611','water, radiatorsystemen' FROM DUAL UNION
-- SELECT '5612','water, convectorsystemen' FROM DUAL UNION
-- SELECT '5613','water, vloerverwarmingssystemen' FROM DUAL UNION
-- SELECT '5620','stoom, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '5621','stoom, radiatorsystemen' FROM DUAL UNION
-- SELECT '5622','stoom, convectorsystemen' FROM DUAL UNION
-- SELECT '5624','stoom, stralingspanelen' FROM DUAL UNION
-- SELECT '5630','lucht, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '5631','lucht, directe distributiesysteem' FROM DUAL UNION
-- SELECT '5632','lucht, systeem met stralingsoverdracht' FROM DUAL UNION
-- SELECT '5640','bijzonder, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '5641','bijzonder, zonnewarmtesystemen' FROM DUAL UNION
-- SELECT '5642','bijzonder, aardwarmtesystemen' FROM DUAL UNION
-- SELECT '5643','bijzonder, centraal warmtepompsysteem' FROM DUAL UNION
-- SELECT '5710','natuurlijke ventilatie, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '5711','natuurlijke ventilatie, voorzieningen regelbaar' FROM DUAL UNION
-- SELECT '5712','natuurlijke ventilatie, voorzieningen niet regelbaar' FROM DUAL UNION
-- SELECT '5720','lokale mechanische afzuiging, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '5721','lokale mechanische afzuiging, afzuiginstallatie' FROM DUAL UNION
-- SELECT '5730','centrale mechanische afzuiging, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '5731','centrale mechanische afzuiging, afzuiginstallatie' FROM DUAL UNION
-- SELECT '5740','lokale mechanische ventilatie, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '5741','lokale mechanische ventilatie, ventilatie-installatie' FROM DUAL UNION
-- SELECT '5750','centrale mechanische ventilatie, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '5751','centrale mechanische ventilatie, ventilatie-installatie' FROM DUAL UNION
-- SELECT '5752','centrale mechanische ventilatie, ventilatie-installatie met warmteterugwinning' FROM DUAL UNION
-- SELECT '5760','lokaal, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '5761','lokaal, luchtbehandelingsinstallatie' FROM DUAL UNION
-- SELECT '5770','centraal, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '5771','centraal, luchtbehandelingsinstallatie' FROM DUAL UNION
-- SELECT '5810','specifieke regelingen, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '5811','specifieke regelingen, specifieke regeling' FROM DUAL UNION
-- SELECT '5812','specifieke regelingen, gecombineerde regeling' FROM DUAL UNION
-- SELECT '5820','centrale melding, meting en sturing, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '5821','centrale melding, meting en sturing, specifieke regeling' FROM DUAL UNION
-- SELECT '5822','centrale melding, meting en sturing, gecombineerde regeling' FROM DUAL UNION
-- SELECT '6110','energie, noodstroom, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '6111','energie, noodstroom, eigen energieopwekking' FROM DUAL UNION
-- SELECT '6120','aarding, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '6121','aarding, veiligheidsaarding' FROM DUAL UNION
-- SELECT '6122','aarding, medische aarding' FROM DUAL UNION
-- SELECT '6123','aarding, speciale aarding' FROM DUAL UNION
-- SELECT '6124','aarding, statische elektriciteit' FROM DUAL UNION
-- SELECT '6125','aarding, bliksemafleiding' FROM DUAL UNION
-- SELECT '6126','aarding, potentiaalvereffening' FROM DUAL UNION
-- SELECT '6130','kanalisatie, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '6131','kanalisatie, t.b.v. installaties voor hoge spanning' FROM DUAL UNION
-- SELECT '6132','kanalisatie, t.b.v. installaties voor lage spanning' FROM DUAL UNION
-- SELECT '6133','kanalisatie, t.b.v. installaties voor communicatie of beveiliging' FROM DUAL UNION
-- SELECT '6140','energie, hoogspanning, algemeen' FROM DUAL UNION
-- SELECT '6141','energie, hoogspanning, 1 Kv en hoger' FROM DUAL UNION
-- SELECT '6150','energie, laagspanning, algemeen' FROM DUAL UNION
-- SELECT '6151','energie, laagspanning, lager dan 1 Kv en hoger dan 100 V' FROM DUAL UNION
-- SELECT '6160','energie, zeer lage spanning, algemeen' FROM DUAL UNION
-- SELECT '6161','energie, zeer lage spanning, lager dan 100 V' FROM DUAL UNION
-- SELECT '6170','bliksemafleiding, algemeen' FROM DUAL UNION
-- SELECT '6171','bliksemafleiding' FROM DUAL UNION
-- SELECT '6210','hoogspanning, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '6211','hoogspanning, 1 t/m 3 Kv' FROM DUAL UNION
-- SELECT '6212','hoogspanning, boven 3 Kv' FROM DUAL UNION
-- SELECT '6220','laagspanning, onbewaakt, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '6221','laagspanning, onbewaakt, 220/230 V - 380 V' FROM DUAL UNION
-- SELECT '6222','laagspanning, onbewaakt, 380 V - 660 V' FROM DUAL UNION
-- SELECT '6223','laagspanning, onbewaakt, 660 V - 1 Kv' FROM DUAL UNION
-- SELECT '6230','laagspanning, bewaakt, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '6231','laagspanning, bewaakt, 220/230 V - 380 V' FROM DUAL UNION
-- SELECT '6232','laagspanning, bewaakt, 380 V - 660 V' FROM DUAL UNION
-- SELECT '6233','laagspanning, bewaakt, 660 V - 1 kV' FROM DUAL UNION
-- SELECT '6240','laagspanning, gestabiliseerd, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '6241','laagspanning, gestabiliseerd, 220/230 V - 380 V' FROM DUAL UNION
-- SELECT '6242','laagspanning, gestabiliseerd, 380 V - 660 V' FROM DUAL UNION
-- SELECT '6243','laagspanning, gestabiliseerd, 660 V - 1 Kv' FROM DUAL UNION
-- SELECT '6250','laagspanning, gecompenseerd, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '6251','laagspanning, gecompenseerd, 220/230 V - 380 V' FROM DUAL UNION
-- SELECT '6252','laagspanning, gecompenseerd, 380 V - 660 V' FROM DUAL UNION
-- SELECT '6253','laagspanning, gecompenseerd, 660 V - 1 Kv' FROM DUAL UNION
-- SELECT '6310','standaard, onbewaakt, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '6311','standaard, onbewaakt, 220/230 V' FROM DUAL UNION
-- SELECT '6312','standaard, onbewaakt, 115 V' FROM DUAL UNION
-- SELECT '6313','standaard, onbewaakt, 42 V' FROM DUAL UNION
-- SELECT '6314','standaard, onbewaakt, 24 V' FROM DUAL UNION
-- SELECT '6320','calamiteiten, decentraal gevoed, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '6323','calamiteiten, decentraal gevoed, 42 V' FROM DUAL UNION
-- SELECT '6324','calamiteiten, decentraal gevoed, 24 V' FROM DUAL UNION
-- SELECT '6330','bijzonder, onbewaakt, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '6331','bijzonder, onbewaakt, 220/230 V' FROM DUAL UNION
-- SELECT '6332','bijzonder, onbewaakt, 115 V' FROM DUAL UNION
-- SELECT '6333','bijzonder, onbewaakt, 42 V' FROM DUAL UNION
-- SELECT '6334','bijzonder, onbewaakt, 24 V' FROM DUAL UNION
-- SELECT '6340','standaard, bewaakt, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '6341','standaard, bewaakt, 220/230 V' FROM DUAL UNION
-- SELECT '6342','standaard, bewaakt, 115 V' FROM DUAL UNION
-- SELECT '6343','standaard, bewaakt, 42 V' FROM DUAL UNION
-- SELECT '6344','standaard, bewaakt, 24 V' FROM DUAL UNION
-- SELECT '6350','calamiteiten, centraal gevoed, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '6351','calamiteiten, centraal gevoed, 220/230 V' FROM DUAL UNION
-- SELECT '6352','calamiteiten, centraal gevoed, 115 V' FROM DUAL UNION
-- SELECT '6353','calamiteiten, centraal gevoed, 42 V' FROM DUAL UNION
-- SELECT '6354','calamiteiten, centraal gevoed, 24 V' FROM DUAL UNION
-- SELECT '6360','bijzonder, bewaakt, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '6361','bijzonder, bewaakt, 220/230 V' FROM DUAL UNION
-- SELECT '6362','bijzonder, bewaakt, 115 V' FROM DUAL UNION
-- SELECT '6363','bijzonder, bewaakt, 42 V' FROM DUAL UNION
-- SELECT '6364','bijzonder, bewaakt, 24 V' FROM DUAL UNION
-- SELECT '6370','reclame, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '6371','reclame, 220/230 V' FROM DUAL UNION
-- SELECT '6372','reclame, 115 V' FROM DUAL UNION
-- SELECT '6373','reclame, 42 V' FROM DUAL UNION
-- SELECT '6374','reclame, 24 V' FROM DUAL UNION
-- SELECT '6375','reclame, 1 Kv en hoger' FROM DUAL UNION
-- SELECT '6410','overdracht van signalen, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '6411','overdracht van signalen, algemene signaleringen' FROM DUAL UNION
-- SELECT '6412','overdracht van signalen, algemene personenoproep' FROM DUAL UNION
-- SELECT '6413','overdracht van signalen, tijdsignalering' FROM DUAL UNION
-- SELECT '6414','overdracht van signalen, aanwezigheid-/beletsignalering' FROM DUAL UNION
-- SELECT '6420','overdracht van geluid/spraak, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '6421','overdracht van geluid/spraak, telefoon' FROM DUAL UNION
-- SELECT '6422','overdracht van geluid/spraak, intercom' FROM DUAL UNION
-- SELECT '6423','overdracht van geluid/spraak, radio/mobilofoon' FROM DUAL UNION
-- SELECT '6424','overdracht van geluid/spraak, geluidsdistributie' FROM DUAL UNION
-- SELECT '6425','overdracht van geluid/spraak, vertaalsystemen' FROM DUAL UNION
-- SELECT '6426','overdracht van geluid/spraak, conferentiesystemen' FROM DUAL UNION
-- SELECT '6430','overdracht van beelden, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '6431','overdracht van beelden, gesloten televisiecircuits' FROM DUAL UNION
-- SELECT '6432','overdracht van beelden, beeldreproductie' FROM DUAL UNION
-- SELECT '6433','overdracht van beelden, film/dia/overhead' FROM DUAL UNION
-- SELECT '6440','overdracht van data, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '6441','overdracht van data, gesloten datanet' FROM DUAL UNION
-- SELECT '6442','overdracht van data, openbaar datanet' FROM DUAL UNION
-- SELECT '6450','ge<67>ntegreerde systemen, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '6451','ge<67>ntegreerde systemen, gesloten netwerken' FROM DUAL UNION
-- SELECT '6452','ge<67>ntegreerde systemen, openbare netwerken' FROM DUAL UNION
-- SELECT '6460','antenne-inrichtingen, algemeen' FROM DUAL UNION
-- SELECT '6510','brand, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '6511','brand, detectie en alarmering' FROM DUAL UNION
-- SELECT '6512','brand, deurvergrendelingen en -ontgrendelingen' FROM DUAL UNION
-- SELECT '6513','brand, brandbestrijding' FROM DUAL UNION
-- SELECT '6520','braak, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '6521','braak, detectie en alarmering' FROM DUAL UNION
-- SELECT '6522','braak, toegangscontrole' FROM DUAL UNION
-- SELECT '6530','overlast, detectie en alarmering, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '6531','overlast, detectie en alarmering, zonweringsinstallatie' FROM DUAL UNION
-- SELECT '6532','overlast, detectie en alarmering, elektromagnetische voorzieningen' FROM DUAL UNION
-- SELECT '6533','overlast, detectie en alarmering, elektromagnetische voorzieningen' FROM DUAL UNION
-- SELECT '6534','overlast, detectie en alarmering, overspanningsbeveiliging' FROM DUAL UNION
-- SELECT '6535','overlast, detectie en alarmering, gassenbeveiliging' FROM DUAL UNION
-- SELECT '6536','overlast, detectie en alarmering, vloeistofbeveiliging' FROM DUAL UNION
-- SELECT '6537','overlast, detectie en alarmering, stralingsbeveiliging' FROM DUAL UNION
-- SELECT '6539','overlast, detectie en alarmering, overige beveiligingen' FROM DUAL UNION
-- SELECT '6540','sociale alarmering, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '6541','sociale alarmering, nooddetectie gesloten systemen' FROM DUAL UNION
-- SELECT '6542','sociale alarmering, nooddetectie open systemen' FROM DUAL UNION
-- SELECT '6550','milieu-overlast, detectie en alarmering, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '6610','liften en heftableaus, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '6611','liften en heftableaus, elektrische liften' FROM DUAL UNION
-- SELECT '6612','liften en heftableaus, hydraulische liften' FROM DUAL UNION
-- SELECT '6613','liften en heftableaus, trapliften' FROM DUAL UNION
-- SELECT '6614','liften en heftableaus, heftableaus' FROM DUAL UNION
-- SELECT '6620','roltrappen en rolpaden, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '6621','roltrappen en rolpaden, roltrappen' FROM DUAL UNION
-- SELECT '6622','roltrappen en rolpaden, rolpaden' FROM DUAL UNION
-- SELECT '6630','goederen, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '6631','goederen, goederenliften' FROM DUAL UNION
-- SELECT '6632','goederen, goederenheffers' FROM DUAL UNION
-- SELECT '6633','goederen, baantransportmiddelen' FROM DUAL UNION
-- SELECT '6634','goederen, bandtransportmiddelen' FROM DUAL UNION
-- SELECT '6635','goederen, baktransportmiddelen' FROM DUAL UNION
-- SELECT '6636','goederen, hijswerktuigen' FROM DUAL UNION
-- SELECT '6637','goederen, vrije-baan-transportvoertuigen' FROM DUAL UNION
-- SELECT '6640','documenten, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '6641','documenten, buizenpost' FROM DUAL UNION
-- SELECT '6642','documenten, railcontainer banen' FROM DUAL UNION
-- SELECT '6644','documenten, bandtransportmiddelen' FROM DUAL UNION
-- SELECT '6710','bediening en signalering, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '6711','bediening en signalering, elektrotechnische systemen' FROM DUAL UNION
-- SELECT '6712','bediening en signalering, optische systemen' FROM DUAL UNION
-- SELECT '6713','bediening en signalering, pneumatische systemen' FROM DUAL UNION
-- SELECT '6714','bediening en signalering, ge<67>ntegreerde systemen' FROM DUAL UNION
-- SELECT '6720','gebouwautomatisering, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '6721','gebouwautomatisering, elektrotechnische systemen' FROM DUAL UNION
-- SELECT '6722','gebouwautomatisering, optische systemen' FROM DUAL UNION
-- SELECT '6723','gebouwautomatisering, pneumatische systemen' FROM DUAL UNION
-- SELECT '6724','gebouwautomatisering, ge<67>ntegreerde systemen' FROM DUAL UNION
-- SELECT '6730','regelinstallaties klimaat en sanitair (op afstand), algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '6731','regelinstallaties klimaat en sanitair (op afstand), elektrotechnische systemen' FROM DUAL UNION
-- SELECT '6732','regelinstallaties klimaat en sanitair (op afstand), optische systemen' FROM DUAL UNION
-- SELECT '6733','regelinstallaties klimaat en sanitair (op afstand), pneumatische systemen' FROM DUAL UNION
-- SELECT '6734','regelinstallaties klimaat en sanitair (op afstand), ge<67>ntegreerde systemen' FROM DUAL UNION
-- SELECT '7110','standaard, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '7111','standaard, meubileringen' FROM DUAL UNION
-- SELECT '7112','standaard, bewegwijzeringen' FROM DUAL UNION
-- SELECT '7113','standaard, kunstwerken' FROM DUAL UNION
-- SELECT '7114','standaard, decoraties e.d.' FROM DUAL UNION
-- SELECT '7120','bijzonder, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '7121','bijzonder, meubileringen' FROM DUAL UNION
-- SELECT '7122','bijzonder, bewegwijzeringen' FROM DUAL UNION
-- SELECT '7123','bijzonder, specifieke voorz. (o.a. loopleuningen)' FROM DUAL UNION
-- SELECT '7210','standaard, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '7211','standaard, meubilering' FROM DUAL UNION
-- SELECT '7212','standaard, lichtweringen' FROM DUAL UNION
-- SELECT '7213','standaard, gordijnvoorzieningen' FROM DUAL UNION
-- SELECT '7214','standaard, beschermende voorzieningen' FROM DUAL UNION
-- SELECT '7220','bijzonder, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '7221','bijzonder, meubilering voor specifieke functiedoeleinden' FROM DUAL UNION
-- SELECT '7222','bijzonder, instrumenten/apparatuur' FROM DUAL UNION
-- SELECT '7310','standaard, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '7311','standaard, keukenmeubilering' FROM DUAL UNION
-- SELECT '7312','standaard, keukenapparatuur' FROM DUAL UNION
-- SELECT '7320','bijzonder, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '7321','bijzonder, keukenmeubilering' FROM DUAL UNION
-- SELECT '7322','bijzonder, keukenapparatuur' FROM DUAL UNION
-- SELECT '7410','standaard, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '7411','standaard, sanitaire toestellen normaal' FROM DUAL UNION
-- SELECT '7412','standaard, sanitaire toestellen aangepast' FROM DUAL UNION
-- SELECT '7413','standaard, accessoires' FROM DUAL UNION
-- SELECT '7420','bijzonder, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '7421','bijzonder, sanitaire toestellen voor bijzondere toepassing' FROM DUAL UNION
-- SELECT '7422','bijzonder, ingebouwde sanitaire voorzieningen' FROM DUAL UNION
-- SELECT '7510','standaard, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '7511','standaard, gebouwonderhoudsvoorzieningen' FROM DUAL UNION
-- SELECT '7512','standaard, interieur onderhoudsvoorzieningen' FROM DUAL UNION
-- SELECT '7513','standaard, gevelonderhoudsvoorzieningen' FROM DUAL UNION
-- SELECT '7520','bijzonder, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '7521','bijzonder, gebouwonderhoudsvoorzieningen' FROM DUAL UNION
-- SELECT '7522','bijzonder, interieur onderhoudsvoorzieningen' FROM DUAL UNION
-- SELECT '7523','bijzonder, gemechaniseerde gevelonderhoudsvoorzieningen' FROM DUAL UNION
-- SELECT '7610','standaard, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '7611','standaard, meubileringen' FROM DUAL UNION
-- SELECT '7620','bijzonder, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '7621','bijzonder, gemechaniseerde voorzieningen' FROM DUAL UNION
-- SELECT '7622','bijzonder, specifieke voorzieningen' FROM DUAL UNION
-- SELECT '8110','standaard, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '8111','standaard, meubilering' FROM DUAL UNION
-- SELECT '8112','standaard, bewegwijzering' FROM DUAL UNION
-- SELECT '8113','standaard, kunstwerken' FROM DUAL UNION
-- SELECT '8114','standaard, decoraties e.d.' FROM DUAL UNION
-- SELECT '8120','bijzonder, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '8121','bijzonder, meubilering' FROM DUAL UNION
-- SELECT '8122','bijzonder, bewegwijzering' FROM DUAL UNION
-- SELECT '8123','bijzonder, specifieke voorzieningen (o.a. afvalbakken)' FROM DUAL UNION
-- SELECT '8210','standaard, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '8211','standaard, meubilering' FROM DUAL UNION
-- SELECT '8212','standaard, lichtweringen/verduisteringen' FROM DUAL UNION
-- SELECT '8213','standaard, stofferingen' FROM DUAL UNION
-- SELECT '8220','bijzonder, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '8221','bijzonder, meubilering voor specifieke functiedoeleinden' FROM DUAL UNION
-- SELECT '8222','bijzonder, instrumenten/apparatuur' FROM DUAL UNION
-- SELECT '8310','standaard, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '8311','standaard, keukenmeubilering' FROM DUAL UNION
-- SELECT '8312','standaard, keukenapparatuur' FROM DUAL UNION
-- SELECT '8313','standaard, kleine keukeninventaris' FROM DUAL UNION
-- SELECT '8320','bijzonder, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '8321','bijzonder, keukeninrichting' FROM DUAL UNION
-- SELECT '8322','bijzonder, keukenapparatuur' FROM DUAL UNION
-- SELECT '8323','bijzonder, kleine keukeninventaris' FROM DUAL UNION
-- SELECT '8324','bijzonder, transportmiddelen' FROM DUAL UNION
-- SELECT '8410','standaard, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '8411','standaard, afvalvoorzieningen' FROM DUAL UNION
-- SELECT '8412','standaard, voorzieningen t.b.v. hygi<67>ne' FROM DUAL UNION
-- SELECT '8413','standaard, accessoires' FROM DUAL UNION
-- SELECT '8420','bijzonder, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '8421','bijzonder, sanitaire toestellen voor bijzondere toepassing' FROM DUAL UNION
-- SELECT '8510','standaard, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '8511','standaard, schoonmaakapparatuur' FROM DUAL UNION
-- SELECT '8512','standaard, vuilopslag' FROM DUAL UNION
-- SELECT '8513','standaard, vuiltransport' FROM DUAL UNION
-- SELECT '8520','bijzonder, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '8521','bijzonder, schoonmaakapparatuur' FROM DUAL UNION
-- SELECT '8522','bijzonder, vuilopslag' FROM DUAL UNION
-- SELECT '8523','bijzonder, vuiltransport' FROM DUAL UNION
-- SELECT '8610','standaard, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '8611','standaard, meubileringen' FROM DUAL UNION
-- SELECT '8620','bijzonder, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '8621','bijzonder, gemechaniseerde voorzieningen' FROM DUAL UNION
-- SELECT '8622','bijzonder, specifieke voorzieningen' FROM DUAL UNION
-- SELECT '9010','grondvoorzieningen, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '9011','grondvoorzieningen, verwijderen obstakels' FROM DUAL UNION
-- SELECT '9012','grondvoorzieningen, grondwaterverlagingen' FROM DUAL UNION
-- SELECT '9013','grondvoorzieningen, drainagevoorzieningen' FROM DUAL UNION
-- SELECT '9020','opstallen, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '9021','opstallen, gebouwtjes met speciale functie' FROM DUAL UNION
-- SELECT '9022','opstallen, overkappingen' FROM DUAL UNION
-- SELECT '9030','omheiningen, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '9031','omheiningen, muren' FROM DUAL UNION
-- SELECT '9032','omheiningen, hekwerken' FROM DUAL UNION
-- SELECT '9033','omheiningen, overige afscheidingen' FROM DUAL UNION
-- SELECT '9034','omheiningen, toegangen' FROM DUAL UNION
-- SELECT '9040','terreinafwerkingen, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '9041','terreinafwerkingen, verhardingen' FROM DUAL UNION
-- SELECT '9042','terreinafwerkingen, beplantingen' FROM DUAL UNION
-- SELECT '9043','terreinafwerkingen, waterpartijen' FROM DUAL UNION
-- SELECT '9044','terreinafwerkingen, keerwanden en balustrades' FROM DUAL UNION
-- SELECT '9045','terreinafwerkingen, pergolas' FROM DUAL UNION
-- SELECT '9050','terreinvoorzieningen, werktuigbouwkundig, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '9051','terreinvoorzieningen, werktuigbouwkundig, verwarmingsvoorzieningen' FROM DUAL UNION
-- SELECT '9052','terreinvoorzieningen, werktuigbouwkundig, afvoervoorzieningen' FROM DUAL UNION
-- SELECT '9053','terreinvoorzieningen, werktuigbouwkundig, watervoorzieningen' FROM DUAL UNION
-- SELECT '9054','terreinvoorzieningen, werktuigbouwkundig, gasvoorzieningen' FROM DUAL UNION
-- SELECT '9055','terreinvoorzieningen, werktuigbouwkundig, koudeopwekkingsvoorzieningen' FROM DUAL UNION
-- SELECT '9056','terreinvoorzieningen, werktuigbouwkundig, warmtedistributievoorzieningen' FROM DUAL UNION
-- SELECT '9057','terreinvoorzieningen, werktuigbouwkundig, luchtbehandelingsvoorzieningen' FROM DUAL UNION
-- SELECT '9058','terreinvoorzieningen, werktuigbouwkundig, regelingvoorzieningen' FROM DUAL UNION
-- SELECT '9060','terreinvoorzieningen, elektrotechnisch, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '9061','terreinvoorzieningen, elektrotechnisch, elektrotechnische en aardingsvoorzieningen' FROM DUAL UNION
-- SELECT '9062','terreinvoorzieningen, elektrotechnisch, krachtvoorzieningen' FROM DUAL UNION
-- SELECT '9063','terreinvoorzieningen, elektrotechnisch, lichtvoorzieningen' FROM DUAL UNION
-- SELECT '9064','terreinvoorzieningen, elektrotechnisch, communicatievoorzieningen' FROM DUAL UNION
-- SELECT '9065','terreinvoorzieningen, elektrotechnisch, beveiligingsvoorzieningen' FROM DUAL UNION
-- SELECT '9066','terreinvoorzieningen, elektrotechnisch, transportvoorzieningen' FROM DUAL UNION
-- SELECT '9067','terreinvoorzieningen, elektrotechnisch, beheervoorzieningen' FROM DUAL UNION
-- SELECT '9070','terreininrichtingen, standaard, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '9071','terreininrichtingen, standaard, terreinmeubilering' FROM DUAL UNION
-- SELECT '9072','terreininrichtingen, standaard, bewegwijzering' FROM DUAL UNION
-- SELECT '9073','terreininrichtingen, standaard, kunstwerken' FROM DUAL UNION
-- SELECT '9074','terreininrichtingen, standaard, decoraties e.d.' FROM DUAL UNION
-- SELECT '9080','terreininrichtingen, bijzonder, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '9081','terreininrichtingen, bijzonder, terreinmeubilering' FROM DUAL UNION
-- SELECT '9082','terreininrichtingen, bijzonder, specifieke voorzieningen' FROM DUAL UNION
-- SELECT '9083','terreininrichtingen, bijzonder, bijzondere verhardingen' FROM DUAL UNION
-- SELECT '0010','werkterreininrichting, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '0011','werkterreininrichting, bijkomende werken' FROM DUAL UNION
-- SELECT '0012','werkterreininrichting, personen/materiaalvoorzieningen' FROM DUAL UNION
-- SELECT '0013','werkterreininrichting, energievoorzieningen' FROM DUAL UNION
-- SELECT '0014','werkterreininrichting, beveiligingsvoorzieningen' FROM DUAL UNION
-- SELECT '0015','werkterreininrichting, doorwerkvoorzieningen' FROM DUAL UNION
-- SELECT '0016','werkterreininrichting, voorzieningen belendende percelen' FROM DUAL UNION
-- SELECT '0017','werkterreininrichting, onderhoudsvoorzieningen' FROM DUAL UNION
-- SELECT '0020','materieelvoorzieningen, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '0021','materieelvoorzieningen, transport' FROM DUAL UNION
-- SELECT '0022','materieelvoorzieningen, gereedschappen' FROM DUAL UNION
-- SELECT '0030','risicodekking, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '0031','risicodekking, verzekeringen' FROM DUAL UNION
-- SELECT '0032','risicodekking, waarborgen' FROM DUAL UNION
-- SELECT '0033','risicodekking, prijsstijgingen' FROM DUAL UNION
-- SELECT '0040','projectorganisatie, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '0041','projectorganisatie, administratie' FROM DUAL UNION
-- SELECT '0042','projectorganisatie, uitvoering' FROM DUAL UNION
-- SELECT '0043','projectorganisatie, documentatie' FROM DUAL UNION
-- SELECT '0050','bedrijfsorganisatie, algemeen (verzamelniveau)' FROM DUAL UNION
-- SELECT '0051','bedrijfsorganisatie, bestuur en directie' FROM DUAL UNION
-- SELECT '0052','bedrijfsorganisatie, winstregelingen' FROM DUAL;
CREATE OR REPLACE VIEW tdnl_v_gebouw_xy
(
id,
coordx,
coordy,
waarde,
title,
regio,
consessie,
color
)
AS
SELECT l.alg_locatie_key id,
l.alg_locatie_x coordx,
l.alg_locatie_y coordy,
l.alg_locatie_code waarde,
l.ALG_LOCATIE_OMSCHRIJVING title,
rg.alg_regio_omschrijving regio,
d.alg_district_omschrijving concessie,
COALESCE((SELECT fud.fac_usrdata_omschr
FROM fac_usrtab fut,
fac_usrdata fud
WHERE UPPER(fut.fac_usrtab_naam)=UPPER('ProdLijnKleur')
AND fud.fac_usrtab_key = fut.fac_usrtab_key
AND UPPER(fud.fac_usrdata_code)=UPPER(SUBSTR(rg.alg_regio_upper,1,2))),'#A3CAB8') color
FROM alg_v_aanweziglocatie l,
alg_v_aanwezigdistrict d,
alg_v_aanwezigregio rg
WHERE l.alg_locatie_x IS NOT NULL
AND l.alg_locatie_y IS NOT NULL
AND d.alg_district_key = l.alg_district_key
AND rg.alg_regio_key = d.alg_regio_key;
CREATE OR REPLACE VIEW tdnl_v_gebouw_rap
(
alg_productlijn,
alg_regio,
alg_locatie_code,
alg_locatie,
alg_locatie_x,
alg_locatie_y,
alg_gebouw_code,
alg_gebouw,
alg_gebouw_x,
alg_gebouw_y,
kenmerk,
kenmerkwaarde
)
AS
SELECT r.alg_regio_omschrijving,
d.alg_district_omschrijving,
l.alg_locatie_code,
l.alg_locatie_omschrijving,
l.alg_locatie_x,
l.alg_locatie_y,
g.alg_gebouw_code,
g.alg_gebouw_omschrijving,
g.alg_gebouw_x,
g.alg_gebouw_y,
ak.alg_kenmerk_omschrijving kenmerk,
tdnl.get_flex_value ('ALG',
ak.alg_kenmerk_key,
g.alg_gebouw_key,
fkd.fac_kenmerkdomein_key,
'G')
kenmerkwaarde
FROM alg_regio r,
alg_district d,
alg_locatie l,
alg_gebouw g,
alg_kenmerk ak,
alg_onrgoedkenmerk ao,
fac_kenmerkdomein fkd
WHERE l.alg_locatie_key = g.alg_locatie_key
and d.alg_district_key = l.alg_district_key
and r.alg_regio_key = d.alg_regio_key
AND ao.alg_kenmerk_key = ak.alg_kenmerk_key
AND ao.alg_onrgoed_key = g.alg_gebouw_key
AND fkd.fac_kenmerkdomein_key(+) = ak.fac_kenmerkdomein_key
AND ao.alg_onrgoed_niveau = 'G';
CREATE OR REPLACE VIEW tdnl_v_concessie_locatie_matrix
(
concessie_key,
Concessie,
locatie_key,
locatie,
concessie_directeur_key,
concessie_directeur,
operationeel_manager_key,
operationeel_manager,
locatie_manager_key,
locatie_manager
)
AS
SELECT c.alg_district_key concessie_key,
c .alg_district_omschrijving Concessie,
l.alg_locatie_key locatie_key,
l.alg_locatie_omschrijving locatie,
(SELECT p.prs_perslid_key
FROM alg_onrgoedkenmerk ok, prs_v_perslid_fullnames p
WHERE ok.alg_onrgoed_key = c.alg_district_key
AND ok.alg_kenmerk_key = 1001
AND ok.alg_onrgoed_niveau = 'D'
AND p.prs_perslid_key =
FAC.SAFE_TO_NUMBER (ok.alg_onrgoedkenmerk_waarde))
concessie_directeur_key,
(SELECT p.prs_perslid_naam_full
FROM alg_onrgoedkenmerk ok, prs_v_perslid_fullnames p
WHERE ok.alg_onrgoed_key = c.alg_district_key
AND ok.alg_kenmerk_key = 1001
AND ok.alg_onrgoed_niveau = 'D'
AND p.prs_perslid_key =
FAC.SAFE_TO_NUMBER (ok.alg_onrgoedkenmerk_waarde))
concessie_directeur,
(SELECT p.prs_perslid_key
FROM alg_onrgoedkenmerk ok, prs_v_perslid_fullnames p
WHERE ok.alg_onrgoed_key = c.alg_district_key
AND ok.alg_kenmerk_key = 1002
AND ok.alg_onrgoed_niveau = 'D'
AND p.prs_perslid_key =
FAC.SAFE_TO_NUMBER (ok.alg_onrgoedkenmerk_waarde))
operationeel_manager_key,
(SELECT p.prs_perslid_naam_full
FROM alg_onrgoedkenmerk ok, prs_v_perslid_fullnames p
WHERE ok.alg_onrgoed_key = c.alg_district_key
AND ok.alg_kenmerk_key = 1002
AND ok.alg_onrgoed_niveau = 'D'
AND p.prs_perslid_key =
FAC.SAFE_TO_NUMBER (ok.alg_onrgoedkenmerk_waarde))
operationeel_manager,
(SELECT p.prs_perslid_key
FROM alg_onrgoedkenmerk ok, prs_v_perslid_fullnames p
WHERE ok.alg_onrgoed_key = c.alg_district_key
AND ok.alg_kenmerk_key = 1003
AND ok.alg_onrgoed_niveau = 'L'
AND p.prs_perslid_key =
FAC.SAFE_TO_NUMBER (ok.alg_onrgoedkenmerk_waarde))
locatie_manager_key,
(SELECT p.prs_perslid_naam_full
FROM alg_onrgoedkenmerk ok, prs_v_perslid_fullnames p
WHERE ok.alg_onrgoed_key = c.alg_district_key
AND ok.alg_kenmerk_key = 1003
AND ok.alg_onrgoed_niveau = 'L'
AND p.prs_perslid_key =
FAC.SAFE_TO_NUMBER (ok.alg_onrgoedkenmerk_waarde))
locatie_manager
FROM alg_district c,
alg_locatie l
WHERE l.alg_district_key = c.alg_district_key;
CREATE OR REPLACE VIEW TDN_V_MLD_LAADPALEN
(
locatie_code,
locatie_omschrijving,
mld_status,
aantal
)
AS
SELECT l.alg_locatie_code,
l.alg_locatie_omschrijving,
mstat.mld_statuses_omschrijving,
COUNT (*)
FROM mld_melding m,
mld_stdmelding sm,
mld_statuses mstat,
alg_locatie l
WHERE m.mld_stdmelding_key = sm.mld_stdmelding_key
AND sm.mld_stdmelding_code = 'LAADPAALSTORING'
AND l.alg_locatie_key = m.mld_alg_locatie_key
AND m.mld_melding_status = mstat.mld_statuses_key
AND mstat.mld_statuses_omschrijving IN
('Nieuw', 'Te accepteren', 'Uitgegeven',' In behandeling','Afgemeld')
GROUP BY l.alg_locatie_code, l.alg_locatie_omschrijving,mstat.mld_statuses_omschrijving;
CREATE OR REPLACE VIEW TDNL_V_CONCESSIEDIRECTEUREN
(
PRS_PERSLID_KEY,
PRS_PERSLID_NAAM
)
AS
SELECT pf.prs_perslid_key,
pf.prs_perslid_naam_friendly
FROM prs_perslid p,
prs_v_perslid_fullnames pf,
prs_kenmerk pk,
prs_kenmerklink pkl
WHERE UPPER (pk.prs_kenmerk_omschrijving) = 'IS CONCESSIE DIRECTEUR'
AND pkl.prs_kenmerk_key = pk.prs_kenmerk_key
AND pkl.prs_kenmerklink_waarde = '1'
AND p.prs_perslid_key = pkl.prs_link_key
AND p.prs_perslid_verwijder IS NULL
AND pf.prs_perslid_key = p.prs_perslid_key;
CREATE OR REPLACE VIEW TDNL_V_OPERATMANAGER
(
PRS_PERSLID_KEY,
PRS_PERSLID_NAAM
)
AS
SELECT pf.prs_perslid_key,
pf.prs_perslid_naam_friendly
FROM prs_perslid p,
prs_v_perslid_fullnames pf,
prs_kenmerk pk,
prs_kenmerklink pkl
WHERE UPPER (pk.prs_kenmerk_omschrijving) = 'IS OPERATIONAAL MANAGER'
AND pkl.prs_kenmerk_key = pk.prs_kenmerk_key
AND pkl.prs_kenmerklink_waarde = '1'
AND p.prs_perslid_key = pkl.prs_link_key
AND p.prs_perslid_verwijder IS NULL
AND pf.prs_perslid_key = p.prs_perslid_key;
CREATE OR REPLACE VIEW TDNL_V_LOCATIEMANAGER
(
PRS_PERSLID_KEY,
PRS_PERSLID_NAAM
)
AS
SELECT pf.prs_perslid_key,
pf.prs_perslid_naam_friendly
FROM prs_perslid p,
prs_v_perslid_fullnames pf,
prs_kenmerk pk,
prs_kenmerklink pkl
WHERE UPPER (pk.prs_kenmerk_omschrijving) = 'IS LOCATIE MANAGER'
AND pkl.prs_kenmerk_key = pk.prs_kenmerk_key
AND pkl.prs_kenmerklink_waarde = '1'
AND p.prs_perslid_key = pkl.prs_link_key
AND p.prs_perslid_verwijder IS NULL
AND pf.prs_perslid_key = p.prs_perslid_key;
CREATE OR REPLACE VIEW TDNL_V_FACILITAIRMANAGER
(
PRS_PERSLID_KEY,
PRS_PERSLID_NAAM
)
AS
SELECT pf.prs_perslid_key,
pf.prs_perslid_naam_friendly
FROM prs_perslid p,
prs_v_perslid_fullnames pf,
prs_kenmerk pk,
prs_kenmerklink pkl
WHERE UPPER (pk.prs_kenmerk_omschrijving) = 'IS MANAGER FACILITAIR'
AND pkl.prs_kenmerk_key = pk.prs_kenmerk_key
AND pkl.prs_kenmerklink_waarde = '1'
AND p.prs_perslid_key = pkl.prs_link_key
AND p.prs_perslid_verwijder IS NULL
AND pf.prs_perslid_key = p.prs_perslid_key;
CREATE OR REPLACE VIEW TDNL_V_FACILITAIRAANSP
(
PRS_PERSLID_KEY,
PRS_PERSLID_NAAM
)
AS
SELECT pf.prs_perslid_key,
pf.prs_perslid_naam_friendly
FROM prs_perslid p,
prs_v_perslid_fullnames pf,
prs_kenmerk pk,
prs_kenmerklink pkl
WHERE UPPER (pk.prs_kenmerk_omschrijving) = 'IS FACILITAIR AANSPREEKPUNT'
AND pkl.prs_kenmerk_key = pk.prs_kenmerk_key
AND pkl.prs_kenmerklink_waarde = '1'
AND p.prs_perslid_key = pkl.prs_link_key
AND p.prs_perslid_verwijder IS NULL
AND pf.prs_perslid_key = p.prs_perslid_key;
CREATE OR REPLACE VIEW TDNL_V_VASTGOEDMANAGER
(
PRS_PERSLID_KEY,
PRS_PERSLID_NAAM
)
AS
SELECT pf.prs_perslid_key,
pf.prs_perslid_naam_friendly
FROM prs_perslid p,
prs_v_perslid_fullnames pf,
prs_kenmerk pk,
prs_kenmerklink pkl
WHERE UPPER (pk.prs_kenmerk_omschrijving) = 'IS MANAGER VASTGOED'
AND pkl.prs_kenmerk_key = pk.prs_kenmerk_key
AND pkl.prs_kenmerklink_waarde = '1'
AND p.prs_perslid_key = pkl.prs_link_key
AND p.prs_perslid_verwijder IS NULL
AND pf.prs_perslid_key = p.prs_perslid_key;
CREATE OR REPLACE VIEW TDNL_V_WERKPLAATSMANAGER
(
PRS_PERSLID_KEY,
PRS_PERSLID_NAAM
)
AS
SELECT pf.prs_perslid_key,
pf.prs_perslid_naam_friendly
FROM prs_perslid p,
prs_v_perslid_fullnames pf,
prs_kenmerk pk,
prs_kenmerklink pkl
WHERE UPPER (pk.prs_kenmerk_omschrijving) = 'IS MANAGER WERKPLAATS'
AND pkl.prs_kenmerk_key = pk.prs_kenmerk_key
AND pkl.prs_kenmerklink_waarde = '1'
AND p.prs_perslid_key = pkl.prs_link_key
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 = 33
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;
CREATE OR REPLACE VIEW tdnl_v_coupa_exp_error
( opdr_key,
melding,
melder,
omschrijving,
track_datum,
opdr_datum)
AS
SELECT DISTINCT o.mld_opdr_key,
o.mld_melding_key||'/'||o.mld_opdr_bedrijfopdr_volgnr,
(SELECT p.prs_perslid_naam_friendly
FROM prs_v_perslid_fullnames p
WHERE p.prs_perslid_key=o.prs_perslid_key) aanvrager,
ft.fac_tracking_oms,
ft.fac_tracking_datum,
o.mld_opdr_datumbegin
FROM mld_opdr o, fac_tracking ft, fac_srtnotificatie fs
WHERE ft.fac_tracking_refkey=o.mld_opdr_key
AND fs.fac_srtnotificatie_code='ORDSNX'
AND ft.fac_srtnotificatie_key=fs.fac_srtnotificatie_key
AND (upper(ft.fac_tracking_oms) like 'COUPA_FAIL%' OR upper(ft.fac_tracking_oms) like '%COUPA ERROR%');
-- View die voor die opdrachten die gereed gezet zijn voor export naar coupa
-- met aanvraagnr en InkoopNr.
CREATE OR REPLACE VIEW tdnl_v_coupa_rapport
AS
SELECT o.mld_melding_key opdrachtnr,
o.mld_opdr_bedrijfopdr_volgnr volgnr,
o.mld_opdr_key opdr_key,
(SELECT p.prs_perslid_naam_friendly
FROM prs_v_perslid_fullnames p
WHERE p.prs_perslid_key=o.prs_perslid_key) aanvrager,
(SELECT ko2.mld_kenmerkopdr_waarde
FROM mld_kenmerkopdr ko2
WHERE ko2.mld_opdr_key = o.mld_opdr_key
AND ko2.mld_kenmerk_key=84) aanvraagnr,
(SELECT ko1.mld_kenmerkopdr_waarde
FROM mld_kenmerkopdr ko1
WHERE ko1.mld_opdr_key = o.mld_opdr_key
AND ko1.mld_kenmerk_key=85) inkoopnr,
o.mld_opdr_datumbegin opd_datumbegin,
(SELECT ft.fac_tracking_datum
FROM fac_tracking ft
WHERE ft.fac_srtnotificatie_key=92 -- ORDSNT
AND lower(ft.fac_tracking_oms)='opdracht in bestand klaargezet'
AND ft.fac_tracking_refkey=o.mld_opdr_key) datum_verstuurd
FROM mld_opdr o, mld_kenmerkopdr ko
WHERE o.mld_statusopdr_key=5
AND ko.mld_opdr_key = o.mld_opdr_key
AND ko.mld_kenmerk_key=84
AND ko.mld_kenmerkopdr_waarde IS NOT NULL;
CREATE OR REPLACE VIEW TDNL_V_OVERZICHTTAKEN
AS
SELECT x.*,
CASE
WHEN TRUNC(x.taak_datum)-TRUNC(SYSDATE)>=30 THEN
'Volgende maand'
WHEN TRUNC(x.taak_datum)-TRUNC(SYSDATE)>=14 AND TRUNC(x.taak_datum)-TRUNC(SYSDATE)<30 THEN
'Deze maand'
WHEN TRUNC(x.taak_datum)-TRUNC(SYSDATE)>=7 AND TRUNC(x.taak_datum)-TRUNC(SYSDATE)<14 THEN
'Komende week'
WHEN TRUNC(x.taak_datum)-TRUNC(SYSDATE)>=0 AND TRUNC(x.taak_datum)-TRUNC(SYSDATE)<7 THEN
'Deze week'
ELSE
'Te laat'
END taak_status,
TRUNC(taak_datum)-TRUNC(SYSDATE) dagen_tot
FROM (
SELECT i.ins_deel_key,
i.ins_deel_omschrijving,
id.ins_discipline_omschrijving,
isg.ins_srtgroep_omschrijving,
isd.ins_srtdeel_omschrijving,
l.alg_locatie_code,
l.ALG_LOCATIE_OMSCHRIJVING,
r.alg_regio_omschrijving,
d.alg_district_omschrijving,
isc.ins_srtcontrole_omschrijving,
INS.NEXTCYCLUSDATE(
i.ins_deel_key,
isc.ins_srtcontrole_key,
1,
0
) taak_datum,
(SELECT MAX(idsc.ins_deelsrtcontrole_datum)
FROM ins_deelsrtcontrole idsc
WHERE idsc.ins_deel_key=i.ins_deel_key
AND idsc.ins_srtcontrole_key=isc.ins_srtcontrole_key) laatste_taakdatum,
(SELECT MAX(idsc.ins_deelsrtcontrole_plandatum)
from ins_deelsrtcontrole idsc
WHERE idsc.ins_deel_key=i.ins_deel_key
AND idsc.ins_srtcontrole_key=isc.ins_srtcontrole_key
AND idsc.ins_deelsrtcontrole_status=0 ) plan_taakdatum
FROM ins_deel i,
ins_srtdeel isd,
ins_discipline id,
ins_srtgroep isg,
ins_srtcontrole isc,
alg_v_allonrgoed_gegevens a,
alg_district d,
alg_regio r,
alg_locatie l
WHERE isd.ins_srtdeel_key = i.ins_srtdeel_key
AND isg.ins_srtgroep_key = isd.ins_srtgroep_key
AND id.ins_discipline_key = isg.ins_discipline_key
AND isc.ins_srtinstallatie_key = isd.ins_srtdeel_key
AND i.ins_alg_ruimte_key = a.alg_ruimte_key
AND a.alg_locatie_key = l.alg_locatie_key
AND l.alg_district_key = d.alg_district_key
AND ( TRUNC(l.alg_locatie_vervaldatum) > TRUNC(sysdate)
OR l.alg_locatie_vervaldatum IS NULL )
AND d.alg_regio_key = r.alg_regio_key) x;
--AND i.ins_deel_omschrijving='BR_Blsr0034') x;
CREATE OR REPLACE VIEW TDNL_V_OVERZICHTTAKEN_2
AS
SELECT x.*,
CASE
WHEN TRUNC(x.taak_datum)-TRUNC(SYSDATE)>=30 THEN
1
ELSE
0
END volgende_maand,
CASE
WHEN TRUNC(x.taak_datum)-TRUNC(SYSDATE)>=14 AND TRUNC(x.taak_datum)-TRUNC(SYSDATE)<30 THEN
1
ELSE
0
END Deze_maand,
CASE
WHEN TRUNC(x.taak_datum)-TRUNC(SYSDATE)>=7 AND TRUNC(x.taak_datum)-TRUNC(SYSDATE)<14 THEN
1
ELSE
0
END komende_week,
CASE
WHEN TRUNC(x.taak_datum)-TRUNC(SYSDATE)>=0 AND TRUNC(x.taak_datum)-TRUNC(SYSDATE)<7 THEN
1
ELSE
0
END Deze_week,
CASE
WHEN TRUNC(x.taak_datum)-TRUNC(SYSDATE)<0 THEN
1
ELSE
0
END Te_laat,
TRUNC(taak_datum)-TRUNC(SYSDATE) dagen_tot
FROM (
SELECT i.ins_deel_key,
i.ins_deel_omschrijving,
id.ins_discipline_omschrijving,
isg.ins_srtgroep_omschrijving,
isd.ins_srtdeel_omschrijving,
l.alg_locatie_code,
l.ALG_LOCATIE_OMSCHRIJVING,
l.alg_locatie_key,
r.alg_regio_omschrijving,
d.alg_district_omschrijving,
d.ALG_DISTRICT_KEY,
isc.ins_srtcontrole_omschrijving,
INS.NEXTCYCLUSDATE(
i.ins_deel_key,
isc.ins_srtcontrole_key,
1,
0
) taak_datum,
(SELECT MAX(idsc.ins_deelsrtcontrole_datum)
FROM ins_deelsrtcontrole idsc
WHERE idsc.ins_deel_key=i.ins_deel_key
AND idsc.ins_srtcontrole_key=isc.ins_srtcontrole_key) laatste_taakdatum,
(SELECT MAX(idsc.ins_deelsrtcontrole_plandatum)
from ins_deelsrtcontrole idsc
WHERE idsc.ins_deel_key=i.ins_deel_key
AND idsc.ins_srtcontrole_key=isc.ins_srtcontrole_key
AND idsc.ins_deelsrtcontrole_status=0 ) plan_taakdatum
FROM ins_deel i,
ins_srtdeel isd,
ins_discipline id,
ins_srtgroep isg,
ins_srtcontrole isc,
alg_v_allonrgoed_gegevens a,
alg_district d,
alg_regio r,
alg_locatie l
WHERE isd.ins_srtdeel_key = i.ins_srtdeel_key
AND isg.ins_srtgroep_key = isd.ins_srtgroep_key
AND id.ins_discipline_key = isg.ins_discipline_key
AND isc.ins_srtinstallatie_key = isd.ins_srtdeel_key
AND i.ins_alg_ruimte_key = a.alg_ruimte_key
AND a.alg_locatie_key = l.alg_locatie_key
AND l.alg_district_key = d.alg_district_key
AND ( TRUNC(l.alg_locatie_vervaldatum) > TRUNC(sysdate)
OR l.alg_locatie_vervaldatum IS NULL )
AND d.alg_regio_key = r.alg_regio_key) x;
CREATE OR REPLACE VIEW TDNL_V_MLD_ACCEPTATIE_UREN
AS
SELECT vakgroeptype,
mld_melding_key,
CASE
WHEN ROUND ((accept_datum - gevalideerde_datum) * 24, 2) < 0
THEN
0
ELSE
ROUND ((accept_datum - gevalideerde_datum) * 24, 2)
END
AS accept_uren,
accept_datum,
gevalideerde_datum,
mld_melding_datum,
mld_melding_behandelaar_key
FROM (SELECT m.mld_melding_key,
id.ins_srtdiscipline_omschrijving
vakgroeptype,
md.ins_discipline_omschrijving
vakgroep,
sm.mld_stdmelding_omschrijving
stdmelding,
m.mld_melding_datum,
fac.gettrackingdate ('MLDACP', m.mld_melding_key)
accept_datum,
CASE
WHEN TO_CHAR (m.mld_melding_datum, 'HH24:MI') < '08:00'
THEN
TO_DATE (
TO_CHAR (m.mld_melding_datum, 'YYYY-MM-DD')
|| ' 08:00',
'YYYY-MM-DD HH24:MI')
WHEN TO_CHAR (m.mld_melding_datum, 'HH24:MI') > '17:00'
THEN
TO_DATE (
TO_CHAR (m.mld_melding_datum + 1, 'YYYY-MM-DD')
|| ' 08:00',
'YYYY-MM-DD HH24:MI')
ELSE
m.mld_melding_datum
END
AS gevalideerde_datum,
m.mld_melding_behandelaar_key
FROM mld_melding m,
mld_stdmelding sm,
mld_discipline md,
ins_srtdiscipline id
WHERE sm.mld_stdmelding_key = m.mld_stdmelding_key
AND md.ins_discipline_key = sm.mld_ins_discipline_key
AND id.ins_srtdiscipline_key = md.ins_srtdiscipline_key
AND TO_CHAR (m.mld_melding_datum, 'YYYY') = '2025')
WHERE accept_datum IS NOT NULL;
-- EINDE VIEWS
-- COUPA EXPORT VIEWS/PROCEDURES
-- Bijlage view tbv export naar coupa
CREATE OR REPLACE VIEW tdnl_v_coupa_bijlages
AS
SELECT o.mld_opdr_key,
o.mld_opdr_externsyncdate extern_syncdate,
(SELECT ko.mld_kenmerkopdr_waarde
FROM mld_kenmerkopdr ko
WHERE ko.mld_opdr_key = o.mld_opdr_key
AND ko.mld_kenmerk_key=84 -- A=62 P=204
AND ko.mld_kenmerkopdr_waarde IS NOT NULL) coupa_id,
fb.fac_bijlagen_filename bestand,
fb.fac_bijlagen_disk_directory path,
fb.fac_bijlagen_aanmaak bijlage_aanmaak
FROM mld_opdr o, fac_v_bijlagen fb
WHERE fb.fac_bijlagen_refkey=o.mld_opdr_key
AND o.mld_statusopdr_key IN (4,5)
AND fb.fac_bijlagen_kenmerk_key=83 -- A=64 P=97
AND fb.fac_bijlagen_module='MLD';
-- NOTIFICATIE JOBS
-- Notificatie tbv rappeltermijn conrtracten
CREATE OR REPLACE VIEW TDNL_V_NOTI_CNTRAPPEL
(
code,
sender,
receiver,
text,
key,
par1,
par2,
xkey,
xemail,
xmobile,
fac_srtnotificatie_key,
attachments,
xsender,
prs_bedrijfadres_key
)
AS
SELECT 'CUST01',
'',
c.prs_perslid_key_beh,
'Rappel: Contract '
|| c.cnt_contract_nummer_intern||DECODE(cnt_contract_versie, NULL, '', '.'||cnt_contract_versie)
|| ' ('
|| c.cnt_contract_omschrijving
|| ' '
|| b.prs_bedrijf_naam
|| ')'
|| ' moet uiterlijk per '
|| TO_CHAR (cnt.cnt_getopzegdatum (c.cnt_contract_key), 'DD-MM-YYYY')
|| ' worden verlengd of opgezegd.',
c.cnt_contract_key,
c.cnt_contract_nummer_intern,
cnt.cnt_getopzegdatum (c.cnt_contract_key),
NULL,
TDNL.getemaillist(c.cnt_contract_key) xemail,
NULL xmobile,
NULL fac_srtnotificatie_key,
NULL attachments,
NULL xsender,
NULL prs_bedrijfadres_key
FROM cnt_v_aanwezigcontract c, prs_bedrijf b
WHERE b.prs_bedrijf_key = c.cnt_prs_bedrijf_key
AND cnt_contract_verwijder IS NULL
AND cnt_contract_status = 0 /* actief */
AND (SYSDATE BETWEEN cnt.cnt_getrappeldatum (c.cnt_contract_key) AND cnt.cnt_getopzegdatum (c.cnt_contract_key))
AND cnt.getnieuwsteversiekey(c.cnt_contract_key) = c.cnt_contract_key;
-- Notificatie naar bezoekers op de dag van het bezoek
CREATE OR REPLACE VIEW tdnl_v_noti_bezoeker
(
sender,
receiver,
text,
code,
key,
xkey,
xemail,
xmobile,
par1
)
AS
SELECT NULL sender,
NULL receiver,
'Uw bezoek aan Transdev op '
|| TO_CHAR (bez_afspraak_datum, 'DD-MM-YYYY')
|| ' , '
|| TO_CHAR (bez_afspraak_datum, 'HH24:MI') text,
'CUST03' code,
a.bez_afspraak_key key,
bez_bezoekers_key xkey,
bez_bezoekers_email xemail,
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)
AND b.bez_bezoekers_email IS NOT NULL
AND NOT EXISTS
(SELECT 1
FROM fac_tracking t
WHERE t.fac_srtnotificatie_key =209
AND t.fac_tracking_refkey = a.bez_afspraak_key
AND t.fac_tracking_oms LIKE '%CUST03%');
-- Notificatie op dag van aanmaak van de afspraak
CREATE OR REPLACE VIEW TDNL_V_NOTI_BEZ_AANMAAK
(
sender,
receiver,
text,
code,
key,
xkey,
xemail,
xmobile,
par1
)
AS
SELECT NULL sender,
NULL receiver,
'Uw bezoek aan Transdev op '
|| TO_CHAR (bez_afspraak_datum, 'DD-MM-YYYY')
|| ' , '
|| TO_CHAR (bez_afspraak_datum, 'HH24:MI') text,
'CUST02' code,
a.bez_afspraak_key key,
bez_bezoekers_key xkey,
bez_bezoekers_email xemail,
NULL xmobile,
a.bez_afspraak_datum
FROM bez_afspraak a, bez_bezoekers b, fac_notificatie_job f
WHERE a.bez_afspraak_key = b.bez_afspraak_key
AND f.fac_notificatie_job_view='TDNL_V_NOTI_BEZ_AANMAAK'
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 = 209
AND t.fac_tracking_refkey = a.bez_afspraak_key
AND t.fac_tracking_oms LIKE '%CUST02%');
-- EIND NOTIFICATIE JOBS
------ 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
Reference in New Issue View Git Blame Copy Permalink