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

KW1C#81204 implementatie FMIS (gebouwbeheer) KW1C

Browse Source 
svn path=/Customer/trunk/; revision=64236
This commit is contained in:
Suzan Wiegerinck
2024-04-14 13:33:04 +00:00
parent 6dc02d9434
commit 0eadc421b0
1 changed files with 140 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

145
KW1C/KW1C.sql
View File

@@ -1,4 +1,4 @@
/* Formatted on 13/3/2024 11:16:23 (QP5 v5.336) */
/* Formatted on 8-4-2024 15:27:41 (QP5 v5.336) */
--
-- $Id$
--
@@ -1137,7 +1137,6 @@ AS
v_count_taak NUMBER := 0;
v_count_taakobject NUMBER := 0;
-- Velden
v_taakomschrijving VARCHAR2 (1000);
v_ins_srtdeel_code VARCHAR2 (10);
@@ -1154,6 +1153,7 @@ AS
v_startjaar DATE;
v_eindjaar DATE;
v_materiaalkosten NUMBER (10);
BEGIN
v_ongeldig := 0;
@@ -1932,6 +1932,61 @@ IS
AND rn.ruimte_nr_oud = UPPER (i.fac_imp_csv_col02)
AND a.prs_afdeling_naam = i.fac_imp_csv_col03;
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
@@ -2017,10 +2072,75 @@ BEGIN
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);
fac.trackaction (
'ALGRUP',
rec.alg_ruimte_key,
3,
SYSDATE,
'Categorie ' || rec.categorie_omschrijving || ' opgenomen in het archief');
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);
fac.trackaction (
'ALGRUP',
rec.alg_ruimte_key,
3,
SYSDATE,
'Ruimtetype ' || rec.ruimtetype_omschrijving || ' opgenomen in het archief');
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;
/
@@ -2121,8 +2241,8 @@ AS
wp.aantal_wp,
cat.cat_code,
t.type_code,
NULL begindatum,
NULL einddatum
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
@@ -2130,7 +2250,7 @@ AS
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
(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,
@@ -2138,11 +2258,14 @@ AS
WHERE k.alg_kenmerk_key = ok.alg_kenmerk_key
AND ok.alg_onrgoed_niveau = 'R'
AND k.alg_kenmerk_key = 1060
AND ok.alg_onrgoedkenmerk_verwijder IS NULL
AND d.fac_usrdata_key = ok.alg_onrgoedkenmerk_waarde
AND t.fac_usrtab_key = d.fac_usrtab_key
AND t.fac_usrtab_key = 21) cat,
(SELECT ok.alg_onrgoed_key, d.fac_usrdata_code type_code
(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,
@@ -2150,13 +2273,13 @@ AS
WHERE k.alg_kenmerk_key = ok.alg_kenmerk_key
AND ok.alg_onrgoed_niveau = 'R'
AND k.alg_kenmerk_key = 1008
AND ok.alg_onrgoedkenmerk_verwijder IS NULL
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.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;
CREATE OR REPLACE VIEW kw1c_export_ruimtegebruik
(