1123 lines
51 KiB
SQL
1123 lines
51 KiB
SQL
--
|
|
-- $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 = 'KW1C.SQL'
|
|
DEFINE dbuser = 'KW1C'
|
|
|
|
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 KW1C
|
|
IS
|
|
PROCEDURE VERWERKEN_RUIMTEKAART;
|
|
END;
|
|
/
|
|
|
|
CREATE OR REPLACE PACKAGE BODY KW1C
|
|
IS
|
|
PROCEDURE VERWERKEN_RUIMTEKAART
|
|
AS
|
|
v_errormsg VARCHAR2 (1000);
|
|
oracle_err_num NUMBER;
|
|
oracle_err_mes VARCHAR2 (200);
|
|
|
|
-- stap 1: bepalen of er per vandaag een mutatie is voor cat/type
|
|
-- nog te doen: wat als er nog geen categorie en type is?
|
|
CURSOR CAT IS
|
|
SELECT r.alg_ruimte_key,
|
|
r.alg_ruimte_nr,
|
|
mutatiedatum.mutatiedatum,
|
|
ruimtetype.alg_kenmerk_key_type, ---> dit is de kenmerkkey voor deze nieuwe waarde
|
|
ruimtetype.huidig_type, --> ter info de oude waarde
|
|
ruimtetype.new_type_kenmerkwaarde, ---> dit is de key van nieuwe waarde
|
|
ruimtetype.nieuw_type_omschrijving, ---> dit is de nieuwe waarde
|
|
categorie.alg_kenmerk_key_categorie, ---> dit is de kenmerkkey voor deze nieuwe waarde
|
|
categorie.huidige_categorie, --> ter info de oude waarde
|
|
categorie.new_categorie_kenmerkwaarde, ---> dit is de key van nieuwe waarde
|
|
categorie.nieuwe_categorie_omschrijving, ---> dit is de nieuwe waarde
|
|
ruimtetype.onrgoedkenmerk_to_delete_type, --> deze mag weg als alles is opgeschoond
|
|
ruimtetype.onrgoedkenmerk_to_archive_type, --> deze mag een einddatum krijgen vandaag - 1
|
|
mutatiedatum.onrgoedkenmerk_to_delete_mutatiedat, --> deze mag weg als alles is opgeschoond
|
|
categorie.onrgoedkenmerk_to_archive_categorie, --> deze mag een einddatum krijgen vandaag - 1
|
|
categorie.onrgoedkenmerk_to_delete_categorie --> deze mag weg als alles is opgeschoond
|
|
FROM alg_ruimte r,
|
|
(SELECT fac.safe_to_date (kw.alg_onrgoedkenmerk_waarde, 'dd-mm-yyyy')
|
|
mutatiedatum,
|
|
kw.alg_onrgoedkenmerk_key
|
|
onrgoedkenmerk_to_delete_mutatiedat,
|
|
kw.alg_onrgoed_key
|
|
ruimte_key
|
|
FROM alg_kenmerk k, alg_onrgoedkenmerk kw
|
|
WHERE k.alg_kenmerk_key = 1082
|
|
AND kw.alg_kenmerk_key = k.alg_kenmerk_key
|
|
AND kw.alg_onrgoed_niveau = 'R') mutatiedatum,
|
|
(SELECT r.alg_ruimte_key ruimte_key,
|
|
huidig.omschrijving huidig_type,
|
|
nieuw.omschrijving nieuw_type_omschrijving,
|
|
huidig.alg_kenmerk_key alg_kenmerk_key_type,
|
|
typen.fac_usrdata_key new_type_kenmerkwaarde,
|
|
huidig.alg_onrgoedkenmerk_key onrgoedkenmerk_to_archive_type,
|
|
nieuw.alg_onrgoedkenmerk_key onrgoedkenmerk_to_delete_type
|
|
FROM (SELECT kw.alg_onrgoedkenmerk_key,
|
|
kw.alg_onrgoed_key,
|
|
k.alg_kenmerk_key,
|
|
type_new.fac_usrdata_omschr omschrijving
|
|
FROM alg_kenmerk k, alg_onrgoedkenmerk kw, fac_usrdata type_new
|
|
WHERE k.alg_kenmerk_key = 1081
|
|
AND kw.alg_kenmerk_key = k.alg_kenmerk_key
|
|
AND fac.safe_to_number (kw.alg_onrgoedkenmerk_waarde) =
|
|
type_new.fac_usrdata_key
|
|
AND type_new.fac_usrtab_key = 41 -- keuzelijst nieuwe type
|
|
AND kw.alg_onrgoedkenmerk_verwijder IS NULL
|
|
AND kw.alg_onrgoed_niveau = 'R') nieuw,
|
|
(SELECT kw.alg_onrgoedkenmerk_key,
|
|
kw.alg_onrgoed_key,
|
|
k.alg_kenmerk_key,
|
|
type_new.fac_usrdata_omschr omschrijving
|
|
FROM alg_kenmerk k, alg_onrgoedkenmerk kw, fac_usrdata type_new
|
|
WHERE k.alg_kenmerk_key = 1008
|
|
AND kw.alg_kenmerk_key = k.alg_kenmerk_key
|
|
AND fac.safe_to_number (kw.alg_onrgoedkenmerk_waarde) =
|
|
type_new.fac_usrdata_key
|
|
AND type_new.fac_usrtab_key = 3 -- keuzelijst type
|
|
AND kw.alg_onrgoedkenmerk_verwijder IS NULL
|
|
AND kw.alg_onrgoed_niveau = 'R') huidig,
|
|
alg_ruimte r,
|
|
fac_usrdata typen
|
|
WHERE typen.fac_usrtab_key = 3 -- keuzelijst typen
|
|
AND UPPER (nieuw.omschrijving) = UPPER (typen.fac_usrdata_omschr) --- op basis van de omschrijvingen kan de juiste key bepaald worden
|
|
AND r.alg_ruimte_key = nieuw.alg_onrgoed_key
|
|
AND r.alg_ruimte_key = huidig.alg_onrgoed_key(+)) ruimtetype,
|
|
(SELECT r.alg_ruimte_key ruimte_key,
|
|
huidig.omschrijving huidige_categorie,
|
|
nieuw.omschrijving nieuwe_categorie_omschrijving,
|
|
huidig.alg_kenmerk_key alg_kenmerk_key_categorie,
|
|
categorie.fac_usrdata_key new_categorie_kenmerkwaarde,
|
|
huidig.alg_onrgoedkenmerk_key onrgoedkenmerk_to_archive_categorie,
|
|
nieuw.alg_onrgoedkenmerk_key onrgoedkenmerk_to_delete_categorie
|
|
FROM (SELECT kw.alg_onrgoedkenmerk_key,
|
|
kw.alg_onrgoed_key,
|
|
k.alg_kenmerk_key,
|
|
categorie_new.fac_usrdata_omschr omschrijving
|
|
FROM alg_kenmerk k, alg_onrgoedkenmerk kw, fac_usrdata categorie_new
|
|
WHERE k.alg_kenmerk_key = 1080
|
|
AND kw.alg_kenmerk_key = k.alg_kenmerk_key
|
|
AND fac.safe_to_number (kw.alg_onrgoedkenmerk_waarde) =
|
|
categorie_new.fac_usrdata_key
|
|
AND categorie_new.fac_usrtab_key = 42 -- keuzelijst nieuwe categorieen
|
|
AND kw.alg_onrgoedkenmerk_verwijder IS NULL
|
|
AND kw.alg_onrgoed_niveau = 'R') nieuw,
|
|
(SELECT kw.alg_onrgoedkenmerk_key,
|
|
kw.alg_onrgoed_key,
|
|
k.alg_kenmerk_key,
|
|
categorie.fac_usrdata_omschr omschrijving
|
|
FROM alg_kenmerk k, alg_onrgoedkenmerk kw, fac_usrdata categorie
|
|
WHERE k.alg_kenmerk_key = 1060
|
|
AND kw.alg_kenmerk_key = k.alg_kenmerk_key
|
|
AND fac.safe_to_number (kw.alg_onrgoedkenmerk_waarde) =
|
|
categorie.fac_usrdata_key
|
|
AND categorie.fac_usrtab_key = 21 -- keuzelijst categorie
|
|
AND kw.alg_onrgoedkenmerk_verwijder IS NULL
|
|
AND kw.alg_onrgoed_niveau = 'R') huidig,
|
|
alg_ruimte r,
|
|
fac_usrdata categorie
|
|
WHERE categorie.fac_usrtab_key = 21 -- keuzelijst categorie
|
|
AND UPPER (nieuw.omschrijving) = UPPER (categorie.fac_usrdata_omschr) --- op basis van de omschrijvingen kan de juiste key bepaald worden
|
|
AND r.alg_ruimte_key = nieuw.alg_onrgoed_key
|
|
AND r.alg_ruimte_key = huidig.alg_onrgoed_key(+)) categorie
|
|
WHERE mutatiedatum.ruimte_key = r.alg_ruimte_key
|
|
AND ruimtetype.ruimte_key(+) = r.alg_ruimte_key
|
|
AND categorie.ruimte_key(+) = r.alg_ruimte_key
|
|
AND mutatiedatum.mutatiedatum < TRUNC (SYSDATE + 1);
|
|
|
|
-- stap 1: bepalen of er per vandaag een mutatie is voor vloer
|
|
CURSOR VLOER IS
|
|
SELECT r.alg_ruimte_key,
|
|
r.alg_ruimte_nr,
|
|
mutatiedatum.mutatiedatum,
|
|
mutatiedatum.onrgoedkenmerk_to_delete_mutatiedat, --> deze mag weg als alles is opgeschoond
|
|
vloer.alg_kenmerk_key_vloer, ---> dit is de kenmerkkey voor de nieuwe waarde
|
|
vloer.huidige_vloer, ---> ter info de oude waarde
|
|
vloer.to_archive_vloer, ---> deze mag een einddatum krijgen vandaag - 1,
|
|
vloer_new.nieuwe_vloer_key, ---> dit is de key van nieuwe waarde
|
|
vloer_new.nieuwe_vloer_omschr, ---> dit is de nieuwe waarde
|
|
vloer_new.to_delete_vloer --> deze mag weg als alles is opgeschoond
|
|
FROM alg_ruimte r,
|
|
(SELECT fac.safe_to_date (kw.alg_onrgoedkenmerk_waarde, 'dd-mm-yyyy')
|
|
mutatiedatum,
|
|
kw.alg_onrgoedkenmerk_key
|
|
onrgoedkenmerk_to_delete_mutatiedat,
|
|
kw.alg_onrgoed_key
|
|
ruimte_key
|
|
FROM alg_kenmerk k, alg_onrgoedkenmerk kw
|
|
WHERE k.alg_kenmerk_key = 1084
|
|
AND kw.alg_kenmerk_key = k.alg_kenmerk_key
|
|
AND kw.alg_onrgoed_niveau = 'R') mutatiedatum,
|
|
(SELECT kw.alg_onrgoed_key ruimte_key,
|
|
kw.alg_kenmerk_key alg_kenmerk_key_vloer,
|
|
kw.alg_onrgoedkenmerk_key to_archive_vloer,
|
|
ud.fac_usrdata_omschr huidige_vloer
|
|
FROM alg_kenmerk k, alg_onrgoedkenmerk kw, fac_usrdata ud
|
|
WHERE k.alg_kenmerk_key = 1009
|
|
AND k.alg_kenmerk_key = kw.alg_kenmerk_key
|
|
AND fac.safe_to_number (kw.alg_onrgoedkenmerk_waarde) =
|
|
ud.fac_usrdata_key
|
|
AND kw.alg_onrgoed_niveau = 'R'
|
|
AND kw.alg_onrgoedkenmerk_verwijder IS NULL) vloer,
|
|
(SELECT kw.alg_onrgoed_key ruimte_key,
|
|
kw.alg_onrgoedkenmerk_key to_delete_vloer,
|
|
ud.fac_usrdata_key nieuwe_vloer_key,
|
|
ud.fac_usrdata_omschr nieuwe_vloer_omschr
|
|
FROM alg_kenmerk k, alg_onrgoedkenmerk kw, fac_usrdata ud
|
|
WHERE k.alg_kenmerk_key = 1083
|
|
AND k.alg_kenmerk_key = kw.alg_kenmerk_key
|
|
AND fac.safe_to_number (kw.alg_onrgoedkenmerk_waarde) =
|
|
ud.fac_usrdata_key
|
|
AND kw.alg_onrgoed_niveau = 'R'
|
|
AND kw.alg_onrgoedkenmerk_verwijder IS NULL) vloer_new
|
|
WHERE r.alg_ruimte_key = vloer.ruimte_key(+) --- (+) outer join, voor als er nog geen waarde is
|
|
AND r.alg_ruimte_key = vloer_new.ruimte_key
|
|
AND r.alg_ruimte_key = mutatiedatum.ruimte_key
|
|
AND mutatiedatum.mutatiedatum < TRUNC (SYSDATE + 1);
|
|
BEGIN
|
|
-- kenmerken die zijn leeggehaald krijgen geen einddatum maar een NULL waarde
|
|
-- om problemen te voorkomen met dubbele waarden geven we die eerst een einddatum
|
|
UPDATE alg_onrgoedkenmerk ok
|
|
SET ok.alg_onrgoedkenmerk_verwijder = SYSDATE
|
|
WHERE ok.alg_onrgoedkenmerk_waarde IS NULL
|
|
AND ok.alg_onrgoedkenmerk_verwijder IS NULL;
|
|
|
|
FOR rec IN CAT
|
|
LOOP
|
|
IF rec.onrgoedkenmerk_to_archive_categorie IS NOT NULL
|
|
THEN
|
|
-- de oude waarden (categorie archiveren) geven we een verwijderdatum vandaag-1
|
|
UPDATE alg_onrgoedkenmerk ok
|
|
SET ok.alg_onrgoedkenmerk_verwijder = SYSDATE - 1
|
|
WHERE ok.alg_onrgoedkenmerk_key =
|
|
fac.safe_to_number (rec.onrgoedkenmerk_to_archive_categorie);
|
|
|
|
fac.trackaction ('ALGRUP',
|
|
rec.alg_ruimte_key,
|
|
3,
|
|
SYSDATE,
|
|
'Categorie ' || rec.huidige_categorie || ' gearchiveerd');
|
|
|
|
COMMIT;
|
|
|
|
END IF;
|
|
|
|
IF rec.onrgoedkenmerk_to_archive_type IS NOT NULL
|
|
THEN
|
|
-- de oude waarden (type archiveren) geven we een verwijderdatum vandaag-1
|
|
UPDATE alg_onrgoedkenmerk ok
|
|
SET ok.alg_onrgoedkenmerk_verwijder = SYSDATE - 1
|
|
WHERE ok.alg_onrgoedkenmerk_key =
|
|
fac.safe_to_number (rec.onrgoedkenmerk_to_archive_type);
|
|
|
|
fac.trackaction ('ALGRUP',
|
|
rec.alg_ruimte_key,
|
|
3,
|
|
SYSDATE,
|
|
'Type ' || rec.huidig_type || ' gearchiveerd');
|
|
|
|
COMMIT;
|
|
|
|
END IF;
|
|
|
|
IF rec.new_categorie_kenmerkwaarde IS NOT NULL
|
|
AND rec.new_type_kenmerkwaarde IS NOT NULL
|
|
THEN
|
|
-- de nieuwe waarde voor categorie voegen we toe
|
|
INSERT INTO alg_onrgoedkenmerk (alg_onrgoed_key,
|
|
alg_onrgoed_niveau,
|
|
alg_kenmerk_key,
|
|
alg_onrgoedkenmerk_waarde)
|
|
VALUES (rec.alg_ruimte_key,
|
|
'R',
|
|
1060,
|
|
fac.safe_to_number (rec.new_categorie_kenmerkwaarde));
|
|
|
|
-- de nieuwe waarde voor type voegen we toe
|
|
INSERT INTO alg_onrgoedkenmerk (alg_onrgoed_key,
|
|
alg_onrgoed_niveau,
|
|
alg_kenmerk_key,
|
|
alg_onrgoedkenmerk_waarde)
|
|
VALUES (rec.alg_ruimte_key,
|
|
'R',
|
|
1008,
|
|
fac.safe_to_number (rec.new_type_kenmerkwaarde));
|
|
|
|
fac.trackaction (
|
|
'ALGRUP',
|
|
rec.alg_ruimte_key,
|
|
3,
|
|
SYSDATE,
|
|
'Categorie en type omgezet naar : '
|
|
|| rec.nieuwe_categorie_omschrijving
|
|
|| ' - '
|
|
|| rec.nieuw_type_omschrijving);
|
|
|
|
-- de mutatie velden --> die moeten weer leeggemaakt worden voor een volgende mutatie
|
|
DELETE alg_onrgoedkenmerk ok
|
|
WHERE ok.alg_onrgoedkenmerk_key =
|
|
fac.safe_to_number (rec.onrgoedkenmerk_to_delete_type)
|
|
OR ok.alg_onrgoedkenmerk_key =
|
|
fac.safe_to_number (rec.onrgoedkenmerk_to_delete_mutatiedat)
|
|
OR ok.alg_onrgoedkenmerk_key =
|
|
fac.safe_to_number (rec.onrgoedkenmerk_to_delete_categorie);
|
|
|
|
fac.trackaction ('ALGRUP',
|
|
rec.alg_ruimte_key,
|
|
3,
|
|
SYSDATE,
|
|
'Mutatievelden categorie en type opgeschoond');
|
|
COMMIT;
|
|
END IF;
|
|
END LOOP;
|
|
|
|
FOR rec IN VLOER
|
|
LOOP
|
|
-- de oude waarden (categorie en type archiveren) geven we een verwijderdatum vandaag-1
|
|
IF rec.huidige_vloer IS NOT NULL
|
|
THEN
|
|
UPDATE alg_onrgoedkenmerk ok
|
|
SET ok.alg_onrgoedkenmerk_verwijder = SYSDATE - 1
|
|
WHERE ok.alg_onrgoedkenmerk_key = fac.safe_to_number (rec.to_archive_vloer);
|
|
|
|
fac.trackaction ('ALGRUP',
|
|
rec.alg_ruimte_key,
|
|
3,
|
|
SYSDATE,
|
|
'Vloerafwerking ' || rec.huidige_vloer || ' gearchiveerd');
|
|
|
|
COMMIT;
|
|
|
|
END IF;
|
|
|
|
-- de nieuwe waarde voor categorie voegen we toe
|
|
IF rec.nieuwe_vloer_key IS NOT NULL
|
|
THEN
|
|
INSERT INTO alg_onrgoedkenmerk (alg_onrgoed_key,
|
|
alg_onrgoed_niveau,
|
|
alg_kenmerk_key,
|
|
alg_onrgoedkenmerk_waarde)
|
|
VALUES (rec.alg_ruimte_key,
|
|
'R',
|
|
1009,
|
|
fac.safe_to_number (rec.nieuwe_vloer_key));
|
|
|
|
fac.trackaction ('ALGRUP',
|
|
rec.alg_ruimte_key,
|
|
3,
|
|
SYSDATE,
|
|
'Vloerafwerking omgezet naar : ' || rec.nieuwe_vloer_omschr);
|
|
|
|
-- de mutatie velden --> die moeten weer leeggemaakt worden voor een volgende mutatie
|
|
DELETE alg_onrgoedkenmerk ok
|
|
WHERE ok.alg_onrgoedkenmerk_key = fac.safe_to_number (rec.to_delete_vloer)
|
|
OR ok.alg_onrgoedkenmerk_key =
|
|
fac.safe_to_number (rec.onrgoedkenmerk_to_delete_mutatiedat);
|
|
|
|
fac.trackaction ('ALGRUP',
|
|
rec.alg_ruimte_key,
|
|
3,
|
|
SYSDATE,
|
|
'Mutatievelden vloerafwerking opgeschoond');
|
|
COMMIT;
|
|
END IF;
|
|
END LOOP;
|
|
|
|
END VERWERKEN_RUIMTEKAART;
|
|
END;
|
|
/
|
|
|
|
CREATE OR REPLACE PROCEDURE KW1C_DAILY
|
|
AS
|
|
v_errormsg VARCHAR2 (1000);
|
|
oracle_err_num NUMBER;
|
|
oracle_err_mes VARCHAR2 (200);
|
|
BEGIN
|
|
KW1C.VERWERKEN_RUIMTEKAART;
|
|
EXCEPTION
|
|
WHEN OTHERS
|
|
THEN
|
|
oracle_err_num := SQLCODE;
|
|
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
|
|
v_errormsg := 'ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
|
|
fac.writelog ('DAILY',
|
|
'E',
|
|
'Proces afgebroken!',
|
|
v_errormsg);
|
|
END KW1C_DAILY;
|
|
/
|
|
|
|
CREATE OR REPLACE VIEW KW1C_V_SYNC_ALG_RUIMTE
|
|
(
|
|
ALG_RUIMTE_KEY,
|
|
ALG_VERDIEPING_KEY,
|
|
CADLABEL
|
|
)
|
|
AS
|
|
SELECT r.alg_ruimte_key, v.alg_verdieping_key, LOWER (r.alg_ruimte_nr) cadlabel
|
|
FROM alg_ruimte r,
|
|
alg_verdieping v,
|
|
alg_gebouw g,
|
|
alg_locatie l
|
|
WHERE r.alg_verdieping_key = v.alg_verdieping_key
|
|
AND v.alg_gebouw_key = g.alg_gebouw_key
|
|
AND g.alg_locatie_key = l.alg_locatie_key
|
|
AND (r.alg_srtruimte_key NOT IN (81)
|
|
OR r.alg_srtruimte_key IS NULL);
|
|
|
|
-- Sleepbaar thema vloerafwerking
|
|
|
|
CREATE OR REPLACE VIEW KW1C_V_CAD_THEMA_VLOERAFW
|
|
(
|
|
ALG_RUIMTE_KEY,
|
|
WAARDE,
|
|
WAARDE_KEY
|
|
)
|
|
AS
|
|
SELECT r.alg_ruimte_key,
|
|
COALESCE (gf.fac_usrdata_omschr, 'Onbekend'),
|
|
COALESCE (gf.fac_usrdata_key, 161)
|
|
FROM alg_ruimte r,
|
|
(SELECT rr.alg_ruimte_key, ud.fac_usrdata_omschr, ud.fac_usrdata_key
|
|
FROM alg_onrgoedkenmerk ok,
|
|
fac_usrdata ud,
|
|
fac_kenmerkdomein rk,
|
|
alg_kenmerk k,
|
|
alg_v_aanwezigruimte rr
|
|
WHERE rk.fac_usrtab_key = ud.fac_usrtab_key
|
|
AND k.fac_kenmerkdomein_key = rk.fac_kenmerkdomein_key
|
|
AND TO_CHAR (ud.fac_usrdata_key) = ok.alg_onrgoedkenmerk_waarde
|
|
AND ok.alg_onrgoedkenmerk_verwijder IS NULL
|
|
AND k.alg_kenmerk_key = 1009
|
|
AND rr.alg_ruimte_key = ok.alg_onrgoed_key) gf
|
|
WHERE gf.alg_ruimte_key(+) = r.alg_ruimte_key
|
|
AND (r.alg_srtruimte_key NOT IN (81)
|
|
OR r.alg_srtruimte_key IS NULL);
|
|
|
|
CREATE OR REPLACE TRIGGER kw1c_t_thema_vloerafw_i_iu
|
|
INSTEAD OF INSERT OR UPDATE
|
|
ON KW1C_V_CAD_THEMA_VLOERAFW
|
|
FOR EACH ROW
|
|
BEGIN
|
|
--- kenmerk bijwerken, let op: de nieuwe waarde is de key en dus niet de omschrijving
|
|
alg.upsertkenmerk (1009, :new.alg_ruimte_key, :new.waarde_key);
|
|
END;
|
|
/
|
|
|
|
CREATE OR REPLACE VIEW KW1C_V_CAD_THEMA_RUIMTEGEBR
|
|
(
|
|
ALG_RUIMTE_KEY,
|
|
WAARDE,
|
|
WAARDE_KEY
|
|
)
|
|
AS
|
|
SELECT r.alg_ruimte_key,
|
|
a.prs_afdeling_naam || ' - ' || a.prs_afdeling_omschrijving waarde,
|
|
a.prs_afdeling_key afdeling_key
|
|
FROM alg_ruimte r, prs_ruimteafdeling ra, prs_afdeling a
|
|
WHERE r.alg_ruimte_key = ra.alg_ruimte_key
|
|
AND a.prs_afdeling_key = ra.prs_afdeling_key
|
|
AND ra.prs_ruimteafdeling_verwijder IS NULL
|
|
AND SYSDATE BETWEEN ra.prs_ruimteafdeling_ingangsdatum
|
|
AND COALESCE (ra.prs_ruimteafdeling_einddatum, TRUNC (SYSDATE) + 1);
|
|
|
|
CREATE OR REPLACE PROCEDURE kw1c_import_historie (p_import_key IN NUMBER)
|
|
AS
|
|
BEGIN
|
|
NULL;
|
|
END kw1c_import_historie;
|
|
/
|
|
|
|
CREATE OR REPLACE PROCEDURE kw1c_update_historie (p_import_key IN NUMBER)
|
|
IS
|
|
v_aanduiding VARCHAR2 (200);
|
|
v_errorhint VARCHAR2 (1000);
|
|
v_errormsg VARCHAR2 (1000);
|
|
oracle_err_num NUMBER;
|
|
oracle_err_mes VARCHAR2 (200);
|
|
v_count NUMBER;
|
|
|
|
CURSOR vloer IS
|
|
SELECT UPPER (i.fac_imp_csv_col02) ruimtenr_oud,
|
|
i.fac_imp_csv_col03 vloertypecode,
|
|
i.fac_imp_csv_col04 vloertypenaam,
|
|
fac.safe_to_date (i.fac_imp_csv_col05, 'dd-mm-yyyy') begindatum,
|
|
fac.safe_to_date (i.fac_imp_csv_col06, 'dd-mm-yyyy') einddatum,
|
|
v.fac_usrdata_key vloertype_key,
|
|
rn.alg_ruimte_key,
|
|
rn.alg_ruimte_nr
|
|
FROM fac_imp_csv i,
|
|
(SELECT r.alg_ruimte_key,
|
|
UPPER (rk.alg_onrgoedkenmerk_waarde) ruimte_nr_oud,
|
|
r.alg_ruimte_nr
|
|
FROM alg_kenmerk k, alg_onrgoedkenmerk rk, alg_ruimte r
|
|
WHERE k.alg_kenmerk_key = rk.alg_kenmerk_key
|
|
AND k.alg_kenmerk_key = 1062
|
|
AND rk.alg_onrgoed_niveau = 'R'
|
|
AND r.alg_ruimte_key = rk.alg_onrgoed_key) rn,
|
|
(SELECT d.fac_usrdata_key, d.fac_usrdata_code, d.fac_usrdata_upper
|
|
FROM fac_usrtab t, fac_usrdata d
|
|
WHERE t.fac_usrtab_key = 4 AND d.fac_usrtab_key = t.fac_usrtab_key) v
|
|
WHERE UPPER (i.fac_imp_csv_col01) = 'VLOERAFWERKING'
|
|
AND v.fac_usrdata_code = i.fac_imp_csv_col03
|
|
AND rn.ruimte_nr_oud = UPPER (i.fac_imp_csv_col02)
|
|
--- AND i.fac_imp_csv_col06 IS NOT NULL hiermee nemen we alleen verwijderde datums op, maar kunnen we verschillen in de huidige situatie niet vinden
|
|
AND NOT EXISTS --- het huidige vloertype laten we buiten beschouwing
|
|
(SELECT r.alg_ruimte_key, rk.alg_onrgoedkenmerk_waarde vloerafwerking_key
|
|
FROM alg_kenmerk k, alg_onrgoedkenmerk rk, alg_ruimte r
|
|
WHERE k.alg_kenmerk_key = rk.alg_kenmerk_key
|
|
AND k.alg_kenmerk_key = 1009
|
|
AND rk.alg_onrgoed_niveau = 'R'
|
|
AND r.alg_ruimte_key = rk.alg_onrgoed_key
|
|
AND rk.alg_onrgoedkenmerk_verwijder IS NULL
|
|
AND r.alg_ruimte_key = rn.alg_ruimte_key
|
|
AND rk.alg_onrgoedkenmerk_waarde = v.fac_usrdata_key);
|
|
|
|
CURSOR org IS
|
|
SELECT UPPER (i.fac_imp_csv_col02) ruimtenr_oud,
|
|
i.fac_imp_csv_col03 oe,
|
|
fac.safe_to_date (SUBSTR (i.fac_imp_csv_col04, 1, 10), 'dd-mm-yyyy') begindatum,
|
|
fac.safe_to_date (SUBSTR (i.fac_imp_csv_col05, 1, 10), 'dd-mm-yyyy') einddatum,
|
|
rn.alg_ruimte_key,
|
|
rn.alg_ruimte_nr,
|
|
a.prs_afdeling_key,
|
|
a.prs_afdeling_naam
|
|
FROM fac_imp_csv i,
|
|
prs_afdeling a,
|
|
(SELECT r.alg_ruimte_key,
|
|
UPPER (rk.alg_onrgoedkenmerk_waarde) ruimte_nr_oud,
|
|
r.alg_ruimte_nr
|
|
FROM alg_kenmerk k, alg_onrgoedkenmerk rk, alg_ruimte r
|
|
WHERE k.alg_kenmerk_key = rk.alg_kenmerk_key
|
|
AND k.alg_kenmerk_key = 1062
|
|
AND rk.alg_onrgoed_niveau = 'R'
|
|
AND r.alg_ruimte_key = rk.alg_onrgoed_key) rn
|
|
WHERE UPPER (i.fac_imp_csv_col01) = 'ORGANISATIE'
|
|
AND rn.ruimte_nr_oud = UPPER (i.fac_imp_csv_col02)
|
|
AND a.prs_afdeling_naam = i.fac_imp_csv_col03
|
|
AND a.prs_afdeling_verwijder IS NULL;
|
|
|
|
CURSOR ruimtedetails IS
|
|
SELECT UPPER (i.fac_imp_csv_col02) ruimtenr_oud,
|
|
i.fac_imp_csv_col03 ruimtecategorie,
|
|
c.categorie categorie_omschrijving,
|
|
i.fac_imp_csv_col04 ruimtetype,
|
|
t.ruimtetype ruimtetype_omschrijving,
|
|
fac.safe_to_date (i.fac_imp_csv_col05, 'dd-mm-yyyy') begindatum,
|
|
fac.safe_to_date (i.fac_imp_csv_col06, 'dd-mm-yyyy') einddatum,
|
|
c.fac_usrdata_key categorie_key,
|
|
t.fac_usrdata_key type_key,
|
|
rn.alg_ruimte_key,
|
|
rn.alg_ruimte_nr
|
|
FROM fac_imp_csv i,
|
|
(SELECT r.alg_ruimte_key,
|
|
UPPER (rk.alg_onrgoedkenmerk_waarde) ruimte_nr_oud,
|
|
r.alg_ruimte_nr
|
|
FROM alg_kenmerk k, alg_onrgoedkenmerk rk, alg_ruimte r
|
|
WHERE k.alg_kenmerk_key = rk.alg_kenmerk_key
|
|
AND k.alg_kenmerk_key = 1062
|
|
AND rk.alg_onrgoed_niveau = 'R'
|
|
AND r.alg_ruimte_key = rk.alg_onrgoed_key) rn,
|
|
(SELECT d.fac_usrdata_key,
|
|
d.fac_usrdata_code,
|
|
d.fac_usrdata_upper || ' ' || d.fac_usrdata_omschr categorie
|
|
FROM fac_usrtab t, fac_usrdata d
|
|
WHERE t.fac_usrtab_key = 21 AND d.fac_usrtab_key = t.fac_usrtab_key) c,
|
|
(SELECT d.fac_usrdata_key,
|
|
d.fac_usrdata_code,
|
|
fac_usrdata_upper || ' ' || d.fac_usrdata_omschr ruimtetype
|
|
FROM fac_usrtab t, fac_usrdata d
|
|
WHERE t.fac_usrtab_key = 3 AND d.fac_usrtab_key = t.fac_usrtab_key) t
|
|
WHERE UPPER (i.fac_imp_csv_col01) = 'TYPE'
|
|
AND TO_CHAR (c.fac_usrdata_code) = TO_CHAR (i.fac_imp_csv_col03)
|
|
AND t.fac_usrdata_code = i.fac_imp_csv_col04
|
|
AND rn.ruimte_nr_oud = UPPER (i.fac_imp_csv_col02)
|
|
AND NOT EXISTS --- de huidge ruimtecategorie laten we buiten beschouwing
|
|
(SELECT r.alg_ruimte_key, rk.alg_onrgoedkenmerk_waarde ruimtecategorie
|
|
FROM alg_kenmerk k, alg_onrgoedkenmerk rk, alg_ruimte r
|
|
WHERE k.alg_kenmerk_key = rk.alg_kenmerk_key
|
|
AND k.alg_kenmerk_key = 1060
|
|
AND rk.alg_onrgoed_niveau = 'R'
|
|
AND r.alg_ruimte_key = rk.alg_onrgoed_key
|
|
AND rk.alg_onrgoedkenmerk_verwijder IS NULL
|
|
AND r.alg_ruimte_key = rn.alg_ruimte_key
|
|
AND rk.alg_onrgoedkenmerk_waarde = c.fac_usrdata_key)
|
|
AND NOT EXISTS --- het huidige ruimtetype laten we buiten beschouwing
|
|
(SELECT r.alg_ruimte_key, rk.alg_onrgoedkenmerk_waarde ruimtetype
|
|
FROM alg_kenmerk k, alg_onrgoedkenmerk rk, alg_ruimte r
|
|
WHERE k.alg_kenmerk_key = rk.alg_kenmerk_key
|
|
AND k.alg_kenmerk_key = 1008
|
|
AND rk.alg_onrgoed_niveau = 'R'
|
|
AND r.alg_ruimte_key = rk.alg_onrgoed_key
|
|
AND rk.alg_onrgoedkenmerk_verwijder IS NULL
|
|
AND r.alg_ruimte_key = rn.alg_ruimte_key
|
|
AND rk.alg_onrgoedkenmerk_waarde = t.fac_usrdata_key);
|
|
BEGIN
|
|
FOR rec IN vloer
|
|
LOOP
|
|
BEGIN
|
|
--- om de historie te vullen vullen we de tabel alg_onrgoedkenmerk met 'vervallen' waarden
|
|
INSERT INTO alg_onrgoedkenmerk (alg_onrgoed_key,
|
|
alg_onrgoed_niveau,
|
|
alg_kenmerk_key,
|
|
alg_onrgoedkenmerk_waarde,
|
|
alg_onrgoedkenmerk_aanmaak,
|
|
alg_onrgoedkenmerk_verwijder)
|
|
VALUES (rec.alg_ruimte_key,
|
|
'R',
|
|
1009,
|
|
rec.vloertype_key,
|
|
rec.begindatum,
|
|
rec.einddatum);
|
|
|
|
IF (rec.einddatum IS NOT NULL)
|
|
THEN
|
|
fac.trackaction (
|
|
'ALGRUP',
|
|
rec.alg_ruimte_key,
|
|
3,
|
|
rec.einddatum,
|
|
'Vloerafwerking ' || rec.vloertypenaam || ' opgenomen in het archief');
|
|
END IF;
|
|
EXCEPTION
|
|
WHEN OTHERS
|
|
THEN
|
|
oracle_err_num := SQLCODE;
|
|
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
|
|
v_errormsg :=
|
|
v_errorhint
|
|
|| ' ORACLE (error '
|
|
|| oracle_err_num
|
|
|| '/'
|
|
|| oracle_err_mes
|
|
|| ')';
|
|
fac.imp_writelog (
|
|
p_import_key,
|
|
'W',
|
|
v_aanduiding || v_errormsg,
|
|
'Historie ruimte ' || rec.alg_ruimte_nr || ' kan niet worden gevuld');
|
|
COMMIT;
|
|
END;
|
|
END LOOP;
|
|
|
|
FOR rec IN org
|
|
LOOP
|
|
BEGIN
|
|
INSERT INTO prs_ruimteafdeling (prs_afdeling_key,
|
|
alg_ruimte_key,
|
|
prs_ruimteafdeling_bezetting,
|
|
prs_ruimteafdeling_ingangsdatum,
|
|
prs_ruimteafdeling_einddatum)
|
|
VALUES (rec.prs_afdeling_key,
|
|
rec.alg_ruimte_key,
|
|
'100',
|
|
rec.begindatum,
|
|
rec.einddatum);
|
|
|
|
IF (rec.einddatum IS NOT NULL)
|
|
THEN
|
|
fac.trackaction (
|
|
'ALGRUP',
|
|
rec.alg_ruimte_key,
|
|
3,
|
|
rec.einddatum,
|
|
'Ruimtegebruiker ' || rec.prs_afdeling_naam || ' opgenomen in het archief');
|
|
END IF;
|
|
EXCEPTION
|
|
WHEN OTHERS
|
|
THEN
|
|
oracle_err_num := SQLCODE;
|
|
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
|
|
v_errormsg :=
|
|
v_errorhint
|
|
|| ' ORACLE (error '
|
|
|| oracle_err_num
|
|
|| '/'
|
|
|| oracle_err_mes
|
|
|| ')';
|
|
fac.imp_writelog (
|
|
p_import_key,
|
|
'W',
|
|
v_aanduiding || v_errormsg,
|
|
'Historie ruimte ' || rec.alg_ruimte_nr || ' kan niet worden gevuld');
|
|
COMMIT;
|
|
END;
|
|
END LOOP;
|
|
|
|
FOR rec IN ruimtedetails
|
|
LOOP
|
|
BEGIN
|
|
--- om de historie te vullen vullen we de tabel alg_onrgoedkenmerk met 'vervallen' waarden
|
|
INSERT INTO alg_onrgoedkenmerk (alg_onrgoed_key,
|
|
alg_onrgoed_niveau,
|
|
alg_kenmerk_key,
|
|
alg_onrgoedkenmerk_waarde,
|
|
alg_onrgoedkenmerk_aanmaak,
|
|
alg_onrgoedkenmerk_verwijder)
|
|
VALUES (rec.alg_ruimte_key,
|
|
'R',
|
|
1060,
|
|
rec.categorie_key,
|
|
rec.begindatum,
|
|
rec.einddatum);
|
|
|
|
IF (rec.einddatum IS NOT NULL)
|
|
THEN
|
|
fac.trackaction (
|
|
'ALGRUP',
|
|
rec.alg_ruimte_key,
|
|
3,
|
|
rec.einddatum,
|
|
'Categorie ' || rec.categorie_omschrijving || ' opgenomen in het archief');
|
|
END IF;
|
|
|
|
INSERT INTO alg_onrgoedkenmerk (alg_onrgoed_key,
|
|
alg_onrgoed_niveau,
|
|
alg_kenmerk_key,
|
|
alg_onrgoedkenmerk_waarde,
|
|
alg_onrgoedkenmerk_aanmaak,
|
|
alg_onrgoedkenmerk_verwijder)
|
|
VALUES (rec.alg_ruimte_key,
|
|
'R',
|
|
1008,
|
|
rec.type_key,
|
|
rec.begindatum,
|
|
rec.einddatum);
|
|
|
|
IF (rec.einddatum IS NOT NULL)
|
|
THEN
|
|
fac.trackaction (
|
|
'ALGRUP',
|
|
rec.alg_ruimte_key,
|
|
3,
|
|
rec.einddatum,
|
|
'Ruimtetype ' || rec.ruimtetype_omschrijving || ' opgenomen in het archief');
|
|
END IF;
|
|
EXCEPTION
|
|
WHEN OTHERS
|
|
THEN
|
|
oracle_err_num := SQLCODE;
|
|
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
|
|
v_errormsg :=
|
|
v_errorhint
|
|
|| ' ORACLE (error '
|
|
|| oracle_err_num
|
|
|| '/'
|
|
|| oracle_err_mes
|
|
|| ')';
|
|
fac.imp_writelog (
|
|
p_import_key,
|
|
'W',
|
|
v_aanduiding || v_errormsg,
|
|
'Historie ruimte ' || rec.alg_ruimte_nr || ' kan niet worden gevuld');
|
|
COMMIT;
|
|
END;
|
|
END LOOP;
|
|
|
|
|
|
-- we ruimen de import tabel direct weer netjes op aangezien dit een generieke importtabel is
|
|
DELETE FAC_IMP_CSV i
|
|
WHERE i.fac_import_key = p_import_key;
|
|
END kw1c_update_historie;
|
|
/
|
|
|
|
CREATE OR REPLACE VIEW kw1c_export_gebouw
|
|
(
|
|
LocatieCode,
|
|
GebouwCode,
|
|
GebouwNaam,
|
|
Adres,
|
|
Postcode,
|
|
Plaats,
|
|
Begindatum,
|
|
Einddatum,
|
|
Breedtegraad,
|
|
Lengtegraad
|
|
)
|
|
AS
|
|
SELECT l.alg_locatie_code,
|
|
g.alg_gebouw_code,
|
|
g.alg_gebouw_naam,
|
|
l.alg_locatie_adres,
|
|
l.alg_locatie_postcode,
|
|
l.alg_locatie_plaats,
|
|
ind.ingangsdatum,
|
|
uitd.einddatum,
|
|
g.alg_gebouw_x,
|
|
g.alg_gebouw_y
|
|
FROM alg_locatie l,
|
|
alg_gebouw g,
|
|
(SELECT ok.alg_onrgoed_key,
|
|
fac.safe_to_date (ok.alg_onrgoedkenmerk_waarde, 'DD-MM-YYYY') ingangsdatum
|
|
FROM alg_onrgoedkenmerk ok, alg_kenmerk k
|
|
WHERE k.alg_kenmerk_key = ok.alg_kenmerk_key
|
|
AND ok.alg_onrgoed_niveau = 'G'
|
|
AND k.alg_kenmerk_key = 1001
|
|
AND ok.alg_onrgoedkenmerk_verwijder IS NULL) ind,
|
|
(SELECT ok.alg_onrgoed_key,
|
|
fac.safe_to_date (ok.alg_onrgoedkenmerk_waarde, 'DD-MM-YYYY') einddatum
|
|
FROM alg_onrgoedkenmerk ok, alg_kenmerk k
|
|
WHERE k.alg_kenmerk_key = ok.alg_kenmerk_key
|
|
AND ok.alg_onrgoed_niveau = 'G'
|
|
AND k.alg_kenmerk_key = 1160
|
|
AND ok.alg_onrgoedkenmerk_verwijder IS NULL) uitd
|
|
WHERE l.alg_locatie_key = g.alg_locatie_key
|
|
AND ind.alg_onrgoed_key(+) = g.alg_gebouw_key
|
|
AND uitd.alg_onrgoed_key(+) = g.alg_gebouw_key
|
|
AND g.alg_srtgebouw_key NOT IN (61);
|
|
|
|
CREATE OR REPLACE VIEW kw1c_export_locatie
|
|
(
|
|
Code,
|
|
Naam,
|
|
NaamVolledig,
|
|
Adres,
|
|
Postcode,
|
|
Plaats,
|
|
Breedtegraad,
|
|
Lengtegraad,
|
|
Begindatum,
|
|
Einddatum
|
|
)
|
|
AS
|
|
SELECT l.alg_locatie_code,
|
|
l.alg_locatie_omschrijving,
|
|
NULL,
|
|
l.alg_locatie_adres,
|
|
l.alg_locatie_postcode,
|
|
l.alg_locatie_plaats,
|
|
l.alg_locatie_x,
|
|
l.alg_locatie_y,
|
|
ind.ingangsdatum,
|
|
uitd.einddatum
|
|
FROM alg_locatie l,
|
|
(SELECT ok.alg_onrgoed_key,
|
|
fac.safe_to_date (ok.alg_onrgoedkenmerk_waarde, 'DD-MM-YYYY') ingangsdatum
|
|
FROM alg_onrgoedkenmerk ok, alg_kenmerk k
|
|
WHERE k.alg_kenmerk_key = ok.alg_kenmerk_key
|
|
AND ok.alg_onrgoed_niveau = 'L'
|
|
AND k.alg_kenmerk_key = 1120
|
|
AND ok.alg_onrgoedkenmerk_verwijder IS NULL) ind,
|
|
(SELECT ok.alg_onrgoed_key,
|
|
fac.safe_to_date (ok.alg_onrgoedkenmerk_waarde, 'DD-MM-YYYY') einddatum
|
|
FROM alg_onrgoedkenmerk ok, alg_kenmerk k
|
|
WHERE k.alg_kenmerk_key = ok.alg_kenmerk_key
|
|
AND ok.alg_onrgoed_niveau = 'L'
|
|
AND k.alg_kenmerk_key = 1200
|
|
AND ok.alg_onrgoedkenmerk_verwijder IS NULL) uitd
|
|
WHERE l.alg_locatie_key = ind.alg_onrgoed_key(+)
|
|
AND l.alg_locatie_key = uitd.alg_onrgoed_key(+);
|
|
|
|
CREATE OR REPLACE VIEW kw1c_export_ruimtecategorien
|
|
(
|
|
RuimteCategorieCode,
|
|
RuimteCategorieNaam
|
|
)
|
|
AS
|
|
SELECT d.fac_usrdata_code, d.fac_usrdata_omschr
|
|
FROM fac_usrtab t, fac_usrdata d
|
|
WHERE t.fac_usrtab_key = 21
|
|
AND t.fac_usrtab_key = d.fac_usrtab_key
|
|
AND d.fac_usrdata_verwijder IS NULL
|
|
AND (d.fac_usrdata_vervaldatum IS NULL OR d.fac_usrdata_vervaldatum > TRUNC(SYSDATE));
|
|
|
|
CREATE OR REPLACE VIEW kw1c_export_ruimtedetails
|
|
(
|
|
ruimtecode,
|
|
oppervlakte,
|
|
aantalwerkplekken,
|
|
ruimtecategoriecode,
|
|
ruimtetypecode,
|
|
begindatum,
|
|
einddatum
|
|
)
|
|
AS
|
|
SELECT r.alg_ruimte_nr,
|
|
r.alg_ruimte_bruto_vloeropp,
|
|
wp.aantal_wp,
|
|
cat.cat_code,
|
|
t.type_code,
|
|
t.startdatum begindatum,
|
|
t.vervaldatum einddatum
|
|
FROM alg_ruimte r,
|
|
(SELECT ok.alg_onrgoed_key, fac.safe_to_number (ok.alg_onrgoedkenmerk_waarde) aantal_wp
|
|
FROM alg_onrgoedkenmerk ok, alg_kenmerk k
|
|
WHERE k.alg_kenmerk_key = ok.alg_kenmerk_key
|
|
AND ok.alg_onrgoed_niveau = 'R'
|
|
AND k.alg_kenmerk_key = 1006
|
|
AND ok.alg_onrgoedkenmerk_verwijder IS NULL) wp,
|
|
(SELECT ok.alg_onrgoed_key, d.fac_usrdata_code cat_code, d.fac_usrdata_key
|
|
FROM alg_onrgoedkenmerk ok,
|
|
alg_kenmerk k,
|
|
fac_usrdata d,
|
|
fac_usrtab t
|
|
WHERE k.alg_kenmerk_key = ok.alg_kenmerk_key
|
|
AND ok.alg_onrgoed_niveau = 'R'
|
|
AND k.alg_kenmerk_key = 1060
|
|
AND d.fac_usrdata_key = ok.alg_onrgoedkenmerk_waarde
|
|
AND t.fac_usrtab_key = d.fac_usrtab_key
|
|
AND ok.alg_onrgoedkenmerk_verwijder IS NULL
|
|
AND t.fac_usrtab_key = 21) cat,
|
|
(SELECT ok.alg_onrgoed_key,
|
|
d.fac_usrdata_code type_code,
|
|
ok.alg_onrgoedkenmerk_verwijder vervaldatum,
|
|
ok.alg_onrgoedkenmerk_aanmaak startdatum,
|
|
d.fac_usrdata_parentkey
|
|
FROM alg_onrgoedkenmerk ok,
|
|
alg_kenmerk k,
|
|
fac_usrdata d,
|
|
fac_usrtab t
|
|
WHERE k.alg_kenmerk_key = ok.alg_kenmerk_key
|
|
AND ok.alg_onrgoed_niveau = 'R'
|
|
AND k.alg_kenmerk_key = 1008
|
|
AND d.fac_usrdata_key = ok.alg_onrgoedkenmerk_waarde
|
|
AND t.fac_usrtab_key = d.fac_usrtab_key
|
|
AND t.fac_usrtab_key = 3) t
|
|
WHERE wp.alg_onrgoed_key(+) = r.alg_ruimte_key
|
|
AND cat.alg_onrgoed_key = r.alg_ruimte_key
|
|
AND t.alg_onrgoed_key = r.alg_ruimte_key
|
|
AND cat.fac_usrdata_key = t.fac_usrdata_parentkey
|
|
AND (r.alg_srtruimte_key NOT IN (81)
|
|
OR r.alg_srtruimte_key IS NULL);
|
|
|
|
CREATE OR REPLACE VIEW kw1c_export_ruimtegebruik
|
|
(
|
|
RuimteCode,
|
|
OrganisatieEenheidCode,
|
|
Begindatum,
|
|
Einddatum,
|
|
Status
|
|
)
|
|
AS
|
|
SELECT r.alg_ruimte_nr,
|
|
rg.prs_afdeling_naam,
|
|
rg.prs_ruimteafdeling_ingangsdatum,
|
|
rg.prs_ruimteafdeling_einddatum,
|
|
CASE WHEN rg.prs_afdeling_naam = '002' THEN 'Buiten gebruik' ELSE 'In gebruik' END status
|
|
FROM alg_ruimte r,
|
|
(SELECT ra.alg_ruimte_key,
|
|
a.prs_afdeling_naam,
|
|
ra.prs_ruimteafdeling_ingangsdatum,
|
|
ra.prs_ruimteafdeling_einddatum
|
|
FROM prs_afdeling a, prs_ruimteafdeling ra
|
|
WHERE a.prs_afdeling_key = ra.prs_afdeling_key) rg
|
|
WHERE rg.alg_ruimte_key = r.alg_ruimte_key
|
|
AND (r.alg_srtruimte_key NOT IN (81)
|
|
OR r.alg_srtruimte_key IS NULL);
|
|
|
|
CREATE OR REPLACE VIEW kw1c_export_ruimtes
|
|
(
|
|
Code,
|
|
Naam,
|
|
GebouwCode,
|
|
LocatieCode,
|
|
Actief,
|
|
VerdiepingCode,
|
|
VerdiepingNaam,
|
|
Virtueel
|
|
)
|
|
AS
|
|
SELECT r.alg_ruimte_nr,
|
|
r.alg_ruimte_omschrijving,
|
|
g.alg_gebouw_code,
|
|
l.alg_locatie_code,
|
|
CASE
|
|
WHEN (ind.ingangsdatum < SYSDATE OR ind.ingangsdatum IS NULL)
|
|
AND (uitd.einddatum > SYSDATE OR uitd.einddatum IS NULL)
|
|
THEN
|
|
'Ja'
|
|
ELSE
|
|
'Nee'
|
|
END actief,
|
|
v.alg_verdieping_code,
|
|
v.alg_verdieping_omschrijving,
|
|
CASE
|
|
WHEN l.alg_locatie_upper LIKE '%EXTERN%'
|
|
OR UPPER (v.alg_verdieping_omschrijving) LIKE '%TERREIN%'
|
|
THEN
|
|
'Ja'
|
|
ELSE
|
|
'Nee'
|
|
END virtueel
|
|
FROM alg_ruimte r,
|
|
alg_verdieping v,
|
|
alg_gebouw g,
|
|
alg_locatie l,
|
|
(SELECT fac.safe_to_date (ok.alg_onrgoedkenmerk_waarde, 'dd-mm-yyyy') ingangsdatum,
|
|
ok.alg_onrgoed_key ruimte_key
|
|
FROM alg_kenmerk k, alg_onrgoedkenmerk ok
|
|
WHERE k.alg_kenmerk_key = ok.alg_kenmerk_key
|
|
AND ok.alg_onrgoedkenmerk_verwijder IS NULL
|
|
AND k.alg_kenmerk_key = 1220) ind,
|
|
(SELECT fac.safe_to_date (ok.alg_onrgoedkenmerk_waarde, 'dd-mm-yyyy') einddatum,
|
|
ok.alg_onrgoed_key ruimte_key
|
|
FROM alg_kenmerk k, alg_onrgoedkenmerk ok
|
|
WHERE k.alg_kenmerk_key = ok.alg_kenmerk_key
|
|
AND ok.alg_onrgoedkenmerk_verwijder IS NULL
|
|
AND k.alg_kenmerk_key = 1221) uitd
|
|
WHERE r.alg_verdieping_key = v.alg_verdieping_key
|
|
AND v.alg_gebouw_key = g.alg_gebouw_key
|
|
AND g.alg_locatie_key = l.alg_locatie_key
|
|
AND ind.ruimte_key(+) = r.alg_ruimte_key
|
|
AND uitd.ruimte_key(+) = r.alg_ruimte_key
|
|
AND (r.alg_srtruimte_key NOT IN (81)
|
|
OR r.alg_srtruimte_key IS NULL);
|
|
|
|
CREATE OR REPLACE VIEW kw1c_export_ruimtetype
|
|
(
|
|
RuimtetypeCode,
|
|
RuimtetypeNaam
|
|
)
|
|
AS
|
|
SELECT ud.fac_usrdata_code, ud.fac_usrdata_omschr
|
|
FROM fac_usrdata ud, fac_usrtab ut
|
|
WHERE ut.fac_usrtab_key = ud.fac_usrtab_key AND ut.fac_usrtab_key = 3
|
|
AND ud.fac_usrdata_verwijder IS NULL
|
|
AND (ud.fac_usrdata_vervaldatum IS NULL OR ud.fac_usrdata_vervaldatum > TRUNC(SYSDATE));
|
|
|
|
CREATE OR REPLACE VIEW kw1c_export_vloerafw
|
|
(
|
|
ruimtecode,
|
|
vloertypecode,
|
|
vloertypenaam,
|
|
begindatum,
|
|
einddatum
|
|
)
|
|
AS
|
|
SELECT r.alg_ruimte_nr,
|
|
ud.fac_usrdata_code,
|
|
ud.fac_usrdata_omschr,
|
|
ok.alg_onrgoedkenmerk_aanmaak,
|
|
ok.alg_onrgoedkenmerk_verwijder
|
|
FROM fac_usrdata ud,
|
|
fac_usrtab ut,
|
|
alg_onrgoedkenmerk ok,
|
|
alg_kenmerk k,
|
|
alg_ruimte r
|
|
WHERE ut.fac_usrtab_key = ud.fac_usrtab_key
|
|
AND ut.fac_usrtab_key = 4
|
|
AND k.alg_kenmerk_key = ok.alg_kenmerk_key
|
|
AND k.alg_kenmerk_key = 1009
|
|
AND ok.alg_onrgoed_niveau = 'R'
|
|
AND ok.alg_onrgoed_key = r.alg_ruimte_key
|
|
AND fac.safe_to_number (ok.alg_onrgoedkenmerk_waarde) = ud.fac_usrdata_key
|
|
AND (r.alg_srtruimte_key NOT IN (81)
|
|
OR r.alg_srtruimte_key IS NULL);
|
|
|
|
CREATE OR REPLACE VIEW kw1c_export_vloerafw_types
|
|
(
|
|
referentie,
|
|
naam,
|
|
omschrijving,
|
|
hardheid
|
|
)
|
|
AS
|
|
SELECT ud.fac_usrdata_code,
|
|
ud.fac_usrdata_omschr,
|
|
NULL,
|
|
ud.fac_usrdata_omschr2
|
|
FROM fac_usrdata ud, fac_usrtab ut
|
|
WHERE ut.fac_usrtab_key = ud.fac_usrtab_key AND ut.fac_usrtab_key = 4
|
|
AND ud.fac_usrdata_verwijder IS NULL
|
|
AND (ud.fac_usrdata_vervaldatum IS NULL OR ud.fac_usrdata_vervaldatum > TRUNC(SYSDATE));
|
|
|
|
CREATE OR REPLACE PROCEDURE kw1c_export_mail_acp (p_applname IN VARCHAR2,
|
|
p_applrun IN VARCHAR2,
|
|
p_filedir IN VARCHAR2,
|
|
p_filename IN VARCHAR2)
|
|
AS
|
|
v_aanduiding VARCHAR2 (200);
|
|
v_errorhint VARCHAR2 (1000);
|
|
v_errormsg VARCHAR2 (1000);
|
|
oracle_err_num NUMBER;
|
|
oracle_err_mes VARCHAR2 (200);
|
|
|
|
|
|
CURSOR mail IS
|
|
SELECT p.prs_perslid_email, p.prs_perslid_key
|
|
FROM prs_perslid p
|
|
WHERE p.prs_perslid_verwijder IS NULL
|
|
AND p.prs_perslid_inactief IS NULL
|
|
AND UPPER (p.prs_perslid_email) LIKE '%@KW1C.NL';
|
|
BEGIN
|
|
v_aanduiding := 'Init';
|
|
v_errormsg := 'Init';
|
|
|
|
FOR rec IN mail
|
|
LOOP
|
|
BEGIN
|
|
UPDATE prs_perslid p
|
|
SET p.prs_perslid_email =
|
|
REPLACE (UPPER (p.prs_perslid_email), '@KW1C.NL', '@takw1c.nl')
|
|
WHERE p.prs_perslid_key = rec.prs_perslid_key;
|
|
|
|
fac.trackaction ('PRSUPD',
|
|
rec.prs_perslid_key,
|
|
3,
|
|
SYSDATE,
|
|
'Mailadres omgezet naar @takw1c.nl');
|
|
EXCEPTION
|
|
WHEN OTHERS
|
|
THEN
|
|
oracle_err_num := SQLCODE;
|
|
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
|
|
v_errormsg :=
|
|
v_errorhint
|
|
|| ' ORACLE (error '
|
|
|| oracle_err_num
|
|
|| '/'
|
|
|| oracle_err_mes
|
|
|| ')';
|
|
fac.writelog (p_applname,
|
|
'E',
|
|
v_aanduiding || v_errormsg,
|
|
'Onbekende fout!');
|
|
END;
|
|
END LOOP;
|
|
END kw1c_export_mail_acp;
|
|
/
|
|
|
|
------ 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 |