1641 lines
62 KiB
Plaintext
1641 lines
62 KiB
Plaintext
SPOOL 120to121
|
|
|
|
/*
|
|
* [V:\SQL\_UPDATE]
|
|
*
|
|
* Update script van versie 01.20 naar 01.21
|
|
*
|
|
* Dit script wordt geprecompileerd dus is het mogelijk (verplicht)
|
|
* om #ifdef's te gebruiken voor de diverse modules.
|
|
*
|
|
* History:
|
|
*
|
|
* 06-11-96 KTH (hoort bij 01.21, was vergeten?!:)
|
|
* - INS_DEEL_REALISATIE toegevoegd
|
|
* - INS_SRTDEEL_PRIJS en INS_SRTDEEL_EENHEID toegevoegd
|
|
* ------ 01.21 -----
|
|
* 31-10-96 AH LOG#952: ALG_M0193 toegevoegd
|
|
* 31-10-96 AH LOG#917 en #944: BEB_MI.. aangepast en PRS_M095 toegevoegd
|
|
* 30-10-96 AH LOG#933, #942: ALG_M192 en PRS_M094 toegevoegd
|
|
* 30-10-96 AH LOG#944: PRS_M019 aangepast
|
|
* 30-10-96 AH LOG#938 en #940: BCO_M097, BCO_M131 en BCO_M56 aangepast
|
|
* 29-10-96 AH LOG#923: BEV_M011 toegevoegd
|
|
* 29-10-96 AH LOG#924: INS_M111 - 112 teogevoegd
|
|
* 29-10-96 AH LOG#920: ALG_M188 - 191 toegevoegd
|
|
* 29-10-96 AH LOG#919: INS_M110 en BEB_MI4 aangepast
|
|
* 29-10-96 AH LOG#918: INS_M107 aangepast. BEV_PRINT_TOTAAL en .._VERSIE toegevoegd
|
|
* 29-10-96 AH LOG#917: 'Wlke' typ-fout
|
|
* 29-10-96 AH LOG#916: Klantindeling -> NATCO-indeling;
|
|
* 29-10-96 AH LOG#915: Terreinsector vervangen door Terrein/Werk voor BEB
|
|
* 28-10-96 AH LOG#913: PROCEDURE Kopieer_deel aangepast voor BCO, PRS_M093
|
|
* toegevoegd
|
|
* 28-10-96 AH LOG#913: PRS_BESTEK_DOCUMENTATIE en INS_DEEL_DOCUMENTATIE aangepast
|
|
* naar VARCHAR2(255).
|
|
* 28-10-96 AH LOG#914: PRS_T_PRS_LOCATIEBESTEK_B_D toegevoegd en PRS_M092
|
|
* 28-10-96 AH LOG#912: PRS_V_MLD_BESTEK_GERAAMD en PRS_V_BCP_BESTEK_GERAAMD
|
|
* aangepast.
|
|
* 28-10-96 AH LOG#910: PRS_T_PRS_PERSLID_B_IU aangepast.
|
|
* 25-10-96 AH LOG#906: PRS_M091 toegevoegd
|
|
* 25-10-96 AH NUMBER_VELDEN: Message ALG_M105 aangepast
|
|
* 25-10-96 AH LOG#900: ALG_M187 toegevoegd
|
|
* 24-10-96 AH LOG#890: INS_M017 en INS_M018 verwijderd
|
|
* 24-10-96 AH LOG#887: unique op bcp_meterstand aangepast
|
|
* 24-10-96 AH LOG#884: BCP_M046 aangepast.
|
|
* 24-10-96 AH LOG#877: BCP_M099 toegevoegd voor trigger-melding.
|
|
* BCP_T_BCP_VERZAMEL_B_IU aangepast.
|
|
* BCP_T_BCP_TAAK_B_IU aangepast
|
|
* BCP_METING aangepast REFERENCE ON DELETE CASCADE.
|
|
* 23-10-96 AH LOG#858: BCO_M131 toegevoegd, BCO_T_BCO_MAATREGEL_B_IU angepast.
|
|
* 22-10-96 AH LOG#864: ALG_108 aangepast, Datum-format foutmelding krijgt
|
|
* argumenten mee.
|
|
* 22-10-96 AH LOG#853: BCO_M55 en BCO_M56 aangepast
|
|
* 22-10-96 AH LOG#867: BCO_M54 en BCO_M59aangepast
|
|
* 21-10-96 AH LOG#845: ALG_M186 INS_DEEL_REALISATIE en FAC_FORM INS125 toegevoegd
|
|
* 21-10-96 AH LOG#842: ALG_triggers aangepast
|
|
* 18-10-96 AH LOG#839: ALG-entities en messages toegevoegd
|
|
* 18-10-96 AH LOG#838:Alg IND, SEQ, TAB, VIE, TRI aangepast
|
|
* 18-10-96 AH LOG#836 BEB = 30 toegevoegd en nieuwe forms INS124, INS213, INS214
|
|
* BEB011, BEB111
|
|
* 18-10-96 KTH LOG#834: REFERENCE naar bco_locatiegroep in prs_perslid
|
|
* 18-10-96 AH LOG#835: toevoegen van BEB-entities en messages
|
|
* 17-10-96 KTH LOG#806: verwijder veld in constraint van BCP_VERZAMEL
|
|
* 16-10-96 KTH Include modules.h
|
|
* 09-10-96 AH INS_SRTDEEL_VOLGNR aan INS_SRTDEEL toegevoegd, INS_SRTDEEL-
|
|
* Views worden gereplaced.
|
|
* 04-10-96 AH INS023 en INS123 in module 'INS' toegevoegd
|
|
* 04-10-96 AH BEV-entities en -messages toegevoegd
|
|
* 04-10-96 AH INS_V_ALGONROERENDGOED en ALL_V_AANWEZIGDEEL toegevoegd
|
|
* 02-10-96 AH PRS_M089 en PRS_M090 toegevoegd
|
|
* 02-10-96 AH Aan FAC_FORM SLE015 en SLE115 toegevoegd
|
|
* 02-10-96 AH View SLE_V_SLEUTEL_PERSLID_GEGEVENS toegevoegd
|
|
* 01-10-96 KTH Trigger prs_t_prs_werkplek_B_IU gaf mutating table prs_werkplek
|
|
* bij verwijderen van werkplekken (aangemeld door RHY, 01.17)
|
|
* 24-09-96 AH View INS_V_ALG_ONROERENDGOED toegevoegd
|
|
* 24-09-96 KTH Created
|
|
*/
|
|
|
|
#include <modules.h>
|
|
PROMPT Upgrading van versie 120 naar 121...
|
|
|
|
#ifdef PRR
|
|
PROMPT Dropping old trigger prs_t_prs_werkplek_B_IU...
|
|
|
|
DROP TRIGGER prs_t_prs_werkplek_B_IU;
|
|
|
|
PROMPT Creating new trigger prs_t_prs_werkplek_B_IU...
|
|
|
|
CREATE TRIGGER prs_t_prs_werkplek_B_IU
|
|
BEFORE INSERT OR UPDATE ON prs_werkplek
|
|
FOR EACH ROW
|
|
BEGIN
|
|
UPDATE_PRIMARY_KEY(prs_werkplek_key, prs_s_prs_werkplek_key);
|
|
/* Een werkplek mag niet verwijderd worden als er nog personen
|
|
* aan gekoppeld zijn.
|
|
*/
|
|
IF :new.prs_werkplek_module = 'PRR'
|
|
THEN
|
|
/* 01-10-96/KTH
|
|
* prs_v_aanwezigperslidwerkplek wordt prs_perslidwerkplek ivm.
|
|
* mutating table prs_werkplek bij verwijderen werkplekken (RHY)
|
|
*/
|
|
CHECK_NOG_REFERENCES(prs_werkplek, prs_werkplek_verwijder,
|
|
prs_perslidwerkplek, prs_werkplek_key, 'prs_m016');
|
|
#ifdef HUI
|
|
ELSIF :new.prs_werkplek_module = 'HUI'
|
|
AND :new.prs_werkplek_verwijder IS NOT NULL
|
|
THEN
|
|
/* Een slaapplaats mag niet verwijderd worden als er nog
|
|
* lopende overnachtingen zijn, dus met hui_status 'geReserveerd' of
|
|
* 'Bezet'
|
|
*/
|
|
DECLARE
|
|
dummy CHAR;
|
|
BEGIN
|
|
SELECT 'x'
|
|
INTO dummy
|
|
FROM prs_perslidwerkplek PRS_PW
|
|
WHERE PRS_PW.hui_status <> 'V'
|
|
AND PRS_PW.prs_perslidwerkplek_verwijder IS NULL
|
|
AND PRS_PW.hui_einddatum >= :new.prs_werkplek_verwijder
|
|
AND PRS_PW.prs_werkplek_key = :new.prs_werkplek_key;
|
|
APPLICATION_ERROR(-20000, 'prs_m054');
|
|
EXCEPTION
|
|
WHEN NO_DATA_FOUND
|
|
THEN NULL;
|
|
WHEN TOO_MANY_ROWS
|
|
THEN APPLICATION_ERROR(-20000, 'prs_m054');
|
|
END;
|
|
#endif
|
|
END IF;
|
|
#if 0
|
|
/* Dit mag niet worden uitgevoegd, omdat anders via CASCADE verwijderen
|
|
* de error 'ORA-4091 ALG_RUIMTE is mutating' komt. Het veld
|
|
* PRS_DWGUPTODATE kan dus niet bijgewerkt worden.
|
|
* Dit wordt nu geregeld in de forms PRS014 (verwijderen werkplek) en PRS114
|
|
* (toevoegen of wijzigen).
|
|
*/
|
|
|
|
/* Bij toevoegen verwijderen of verplaatsen van een
|
|
* werkplek moeten van de bijbehorende tekeningen de PRS_UPTODATE-velden
|
|
* aangepast worden.
|
|
*/
|
|
IF :old.prs_alg_ruimte_key <> :new.prs_alg_ruimte_key
|
|
OR :old.prs_alg_ruimte_key IS NULL
|
|
OR :new.prs_werkplek_verwijder IS NOT NULL
|
|
THEN
|
|
IF :old.prs_alg_ruimte_key IS NOT NULL
|
|
THEN
|
|
SET_DWGUPTODATE(alg_verdieping, alg_verdieping_key,
|
|
(SELECT alg_verdieping_key
|
|
FROM alg_ruimte
|
|
WHERE alg_ruimte_key = :old.prs_alg_ruimte_key),
|
|
prs_dwguptodate);
|
|
END IF;
|
|
SET_DWGUPTODATE(alg_verdieping, alg_verdieping_key,
|
|
(SELECT alg_verdieping_key
|
|
FROM alg_ruimte
|
|
WHERE alg_ruimte_key = :new.prs_alg_ruimte_key),
|
|
prs_dwguptodate);
|
|
END IF;
|
|
#endif
|
|
#ifdef INV
|
|
IF :new.prs_werkplek_verwijder IS NOT NULL
|
|
THEN
|
|
DECLARE
|
|
dummy CHAR;
|
|
BEGIN
|
|
SELECT 'x'
|
|
INTO dummy
|
|
FROM inv_v_aanwezigdeel
|
|
WHERE ins_alg_ruimte_key = :new.prs_werkplek_key
|
|
AND ins_alg_ruimte_type = 'W';
|
|
APPLICATION_ERROR(-20000, 'prs_m055');
|
|
EXCEPTION
|
|
WHEN NO_DATA_FOUND
|
|
THEN NULL;
|
|
WHEN TOO_MANY_ROWS
|
|
THEN APPLICATION_ERROR(-20000, 'prs_m055');
|
|
END;
|
|
END IF;
|
|
#endif
|
|
END;
|
|
/
|
|
|
|
#endif // PRR
|
|
|
|
#ifdef INS
|
|
CREATE_VIEW(ins_v_alg_onroerendgoed, NORMAAL_PRIVILEGE)
|
|
(alg_onrgoed_keys,
|
|
alg_onrgoed_type,
|
|
alg_locatie_key,
|
|
alg_geb_ter_key,
|
|
alg_geb_ter_omschrijving,
|
|
alg_geb_ter_upper,
|
|
alg_verdieping_key,
|
|
alg_ruimte_key,
|
|
alg_ruimte_nr,
|
|
alg_ruimte_upper_nr)
|
|
AS
|
|
SELECT alg_gebouw_key,
|
|
'G',
|
|
alg_locatie_key,
|
|
alg_gebouw_key,
|
|
alg_gebouw_omschrijving,
|
|
alg_gebouw_upper,
|
|
TO_NUMBER(NULL),
|
|
TO_NUMBER(NULL),
|
|
NULL,
|
|
NULL
|
|
FROM alg_v_aanweziggebouw
|
|
UNION
|
|
SELECT ALG_R.alg_ruimte_key,
|
|
'R',
|
|
ALG_G.alg_locatie_key,
|
|
ALG_G.alg_gebouw_key,
|
|
ALG_G.alg_gebouw_omschrijving,
|
|
ALG_G.alg_gebouw_upper,
|
|
ALG_V.alg_verdieping_key,
|
|
ALG_R.alg_ruimte_key,
|
|
ALG_R.alg_ruimte_nr,
|
|
ALG_R.alg_ruimte_upper_nr
|
|
FROM alg_v_aanwezigruimte ALG_R, alg_verdieping ALG_V,
|
|
alg_gebouw ALG_G
|
|
WHERE ALG_G.alg_gebouw_key = ALG_V.alg_gebouw_key
|
|
AND ALG_V.alg_verdieping_key = ALG_R.alg_verdieping_key
|
|
UNION
|
|
SELECT alg_terreinsector_key,
|
|
'T',
|
|
alg_locatie_key,
|
|
alg_terreinsector_key,
|
|
alg_terreinsector_omschrijving,
|
|
alg_terreinsector_upper,
|
|
TO_NUMBER(NULL),
|
|
TO_NUMBER(NULL),
|
|
NULL,
|
|
NULL
|
|
FROM alg_v_aanwezigterreinsector;
|
|
#endif
|
|
#ifdef SLE
|
|
CREATE_VIEW(sle_v_sleutel_perslid_gegevens, NORMAAL_PRIVILEGE)
|
|
(sle_sleutel_perslid_key,
|
|
prs_perslid_key,
|
|
prs_perslid_naam,
|
|
prs_perslid_upper,
|
|
sle_sleutel_key,
|
|
sle_sleutel_omschrijving,
|
|
sle_sleutel_upper)
|
|
AS
|
|
SELECT SLE_SP.sle_sleutel_perslid_key,
|
|
PRS_P.prs_perslid_key,
|
|
PRS_P.prs_perslid_naam||' '||PRS_P.prs_perslid_voorletters,
|
|
PRS_P.prs_perslid_upper||' '||PRS_P.prs_perslid_voorletters,
|
|
SLE_SP.sle_sleutel_key,
|
|
SLE_S.sle_sleutel_omschrijving,
|
|
SLE_S.sle_sleutel_upper
|
|
FROM sle_sleutel_perslid SLE_SP, prs_perslid PRS_P,
|
|
sle_sleutel SLE_S
|
|
WHERE PRS_P.prs_perslid_key = SLE_SP.sle_prs_perslid_key
|
|
AND SLE_S.sle_sleutel_key = SLE_SP.sle_sleutel_key;
|
|
|
|
|
|
DEF_FAC_FORM('SLE015', NULL, NULL ,'270150','SLE_SLE015', 'Overzichtscherm Sleutelbezit (vanuit Perslid)');
|
|
DEF_FAC_FORM('SLE115', NULL, NULL ,'271150','SLE_SLE115', 'Mutatiescherm Sleutelbezit');
|
|
#endif
|
|
|
|
DEF_FAC_MESSAGE ('PRS_M089', 'Beperkt rapport');
|
|
DEF_FAC_MESSAGE ('PRS_M090', 'Uitgebreid rapport');
|
|
|
|
#ifdef INS
|
|
DEFINIEER_VIEW_AANWEZIG(ins_deel, ins_deel_verwijder,
|
|
all_v_aanwezigdeel,NORMAAL_PRIVILEGE);
|
|
|
|
CREATE_VIEW(ins_v_alg_onroerendgoed, NORMAAL_PRIVILEGE)
|
|
(ins_v_module,
|
|
alg_onrgoed_keys,
|
|
alg_onrgoed_type,
|
|
alg_locatie_key,
|
|
alg_geb_ter_key,
|
|
alg_geb_ter_omschrijving,
|
|
alg_geb_ter_upper,
|
|
alg_verdieping_key,
|
|
alg_ruimte_key,
|
|
alg_ruimte_nr,
|
|
alg_ruimte_upper_nr)
|
|
AS
|
|
SELECT 'ALL',
|
|
alg_gebouw_key,
|
|
'G',
|
|
alg_locatie_key,
|
|
alg_gebouw_key,
|
|
alg_gebouw_omschrijving,
|
|
alg_gebouw_upper,
|
|
TO_NUMBER(NULL),
|
|
TO_NUMBER(NULL),
|
|
NULL,
|
|
NULL
|
|
FROM alg_v_aanweziggebouw
|
|
UNION
|
|
SELECT 'ALL',
|
|
ALG_R.alg_ruimte_key,
|
|
'R',
|
|
ALG_G.alg_locatie_key,
|
|
ALG_G.alg_gebouw_key,
|
|
ALG_G.alg_gebouw_omschrijving,
|
|
ALG_G.alg_gebouw_upper,
|
|
ALG_V.alg_verdieping_key,
|
|
ALG_R.alg_ruimte_key,
|
|
ALG_R.alg_ruimte_nr,
|
|
ALG_R.alg_ruimte_upper_nr
|
|
FROM alg_v_aanwezigruimte ALG_R, alg_verdieping ALG_V,
|
|
alg_gebouw ALG_G
|
|
WHERE ALG_G.alg_gebouw_key = ALG_V.alg_gebouw_key
|
|
AND ALG_V.alg_verdieping_key = ALG_R.alg_verdieping_key
|
|
UNION
|
|
SELECT 'INS',
|
|
alg_terreinsector_key,
|
|
'T',
|
|
alg_locatie_key,
|
|
alg_terreinsector_key,
|
|
alg_terreinsector_omschrijving,
|
|
alg_terreinsector_upper,
|
|
TO_NUMBER(NULL),
|
|
TO_NUMBER(NULL),
|
|
NULL,
|
|
NULL
|
|
FROM alg_v_aanwezigterreinsector;
|
|
#endif // INS
|
|
|
|
INSERT INTO fac_entity_name VALUES('BEV_VOORZIENINGEN', 'Voorzieningen', 'Voorzieningen', 'de');
|
|
INSERT INTO fac_entity_name VALUES('BEV_LEGENDA_KOLOM_NR', 'Kolom', 'Kolommen', 'de');
|
|
INSERT INTO fac_entity_name VALUES('BEV_INVENTARISATIE', 'Inventarisatie', NULL, NULL);
|
|
INSERT INTO fac_entity_name VALUES('BEV_DETAIL', 'Detail', NULL, NULL);
|
|
INSERT INTO fac_entity_name VALUES('BEV_INVULLEN', 'Invullen', NULL, NULL);
|
|
|
|
INSERT INTO fac_entity_name VALUES('BEV_DISCIPLINE', 'Discipline', 'Disciplines', 'de');
|
|
INSERT INTO fac_entity_name VALUES('BEV_DISCIPLINE_OMSCHRIJVING', 'Omschrijving', NULL, 'de');
|
|
INSERT INTO fac_entity_name VALUES('BEV_SRTGROEP', 'Groepsoort', 'Groepsoorten', 'de');
|
|
INSERT INTO fac_entity_name VALUES('BEV_SRTGROEP_OMSCHRIJVING', 'Omschrijving', NULL, 'de');
|
|
INSERT INTO fac_entity_name VALUES('BEV_SRTDEEL', 'Deelsoort', 'Deelsoorten', 'de');
|
|
INSERT INTO fac_entity_name VALUES('BEV_SRTDEEL_OMSCHRIJVING', 'Omschrijving', NULL, 'de');
|
|
INSERT INTO fac_entity_name VALUES('BEV_SRTDEEL_VOLGNR', 'Volgnr.', NULL, 'het');
|
|
INSERT INTO fac_entity_name VALUES('BEV_PRINT_PAGINA', 'Pagina', 'Pagina''s', 'de');
|
|
INSERT INTO fac_entity_name VALUES('BEV_PRINT_VERSIE', 'Versie', 'Versies', 'de');
|
|
INSERT INTO fac_entity_name VALUES('BEV_PRINT_DATUM', 'Datum', 'Data', 'de');
|
|
INSERT INTO fac_entity_name VALUES('BEV_PRINT_TOTAAL', 'TOTAAL', NULL, NULL);
|
|
INSERT INTO fac_entity_name VALUES('BEV_VULLING_VERSIE', 'REGIS 1.00', NULL, NULL);
|
|
|
|
INSERT INTO fac_message VALUES('BEV_M001', 'Matrixoverzicht installaties');
|
|
INSERT INTO fac_message VALUES('BEV_M002', 'Inventarisatie deel');
|
|
INSERT INTO fac_message VALUES('BEV_M003', 'Gebouw of terreinsector moet ingevuld worden.');
|
|
INSERT INTO fac_message VALUES('BEV_M004', 'Groepsoort moet ingevuld worden.');
|
|
INSERT INTO fac_message VALUES('BEV_M005', 'Directie Gelderland');
|
|
INSERT INTO fac_message VALUES('BEV_M006', 'DGW'||CHR(38)||'T');
|
|
INSERT INTO fac_message VALUES('BEV_M007', 'STD_CONFIDENTIEEL');
|
|
|
|
#ifdef INR
|
|
DEF_FAC_FORM('INS023', NULL, 'MODULE' ,'170230','INS_INS023','Matrixoverzicht installaties');
|
|
DEF_FAC_FORM('INS123', NULL, 'MODULE' ,'171230','INS_INS123','Wijzigen installaties');
|
|
#endif // INR
|
|
|
|
#ifdef INS
|
|
ALTER TABLE ins_srtdeel
|
|
ADD
|
|
(
|
|
ins_srtdeel_volgnr
|
|
NUMBER(3),
|
|
ins_srtdeel_prijs
|
|
NUMBER(8,2),
|
|
ins_srtdeel_eenheid
|
|
VARCHAR2(15)
|
|
);
|
|
|
|
DEFINIEER_VIEW_AANWEZIG(ins_srtdeel, ins_srtdeel_verwijder,
|
|
ins_v_aanwezigsrtdeel,BIBLIOTHEEK_PRIVILEGE) AND
|
|
ins_srtdeel_module = 'INS';
|
|
|
|
DEFINIEER_VIEW_AANWEZIG(ins_srtdeel, ins_srtdeel_verwijder,
|
|
all_v_aanwezigsrtdeel,BIBLIOTHEEK_PRIVILEGE);
|
|
|
|
#endif
|
|
|
|
#ifdef FAC
|
|
DEF_FAC_FORM('ALG021', NULL, NULL ,'110210','ALG_ALG021','Overzichtscherm Objectdeel');
|
|
DEF_FAC_FORM('ALG022', NULL, NULL ,'110220','ALG_ALG022','Overzichtscherm Systeemcluster');
|
|
DEF_FAC_FORM('ALG023', NULL, NULL ,'110230','ALG_ALG023','Overzichtscherm Bouwdeel');
|
|
DEF_FAC_FORM('ALG024', NULL, NULL ,'110240','ALG_ALG024','Overzichtscherm Gebouw/Terreinsector bij systeemcluster');
|
|
DEF_FAC_FORM('ALG025', NULL, NULL ,'110250','ALG_ALG025','Overzichtscherm Verdieping bij bouwdeel');
|
|
DEF_FAC_FORM('ALG026', NULL, NULL ,'110260','ALG_ALG026','Overzichtscherm Object bij garnizioen');
|
|
DEF_FAC_FORM('ALG121', NULL, NULL ,'111210','ALG_ALG121','Mutatiescherm Objectdeel');
|
|
DEF_FAC_FORM('ALG122', NULL, NULL ,'111220','ALG_ALG122','Mutatiescherm Systeemcluster');
|
|
DEF_FAC_FORM('ALG123', NULL, NULL ,'111230','ALG_ALG123','Mutatiescherm Bouwdeel');
|
|
DEF_FAC_FORM('ALG124', NULL, NULL ,'111240','ALG_ALG124','Mutatiescherm Gebouw/Terreinsector bij systeemcluster');
|
|
DEF_FAC_FORM('ALG125', NULL, NULL ,'111250','ALG_ALG125','Mutatiescherm Verdieping bij bouwdeel');
|
|
DEF_FAC_FORM('ALG126', NULL, NULL ,'111260','ALG_ALG126','Mutatiescherm Object bij garnizoen');
|
|
#endif
|
|
|
|
#ifdef BCP
|
|
PROMPT Dropping constraint BCP_VERZAMEL_PROFILE from BCP_VERZAMEL...
|
|
ALTER TABLE bcp_verzamel
|
|
DROP CONSTRAINT bcp_verzamel_profile;
|
|
|
|
PROMPT Creating new constraint BCP_VERZAMEL_PROFILE to BCP_VERZAMEL...
|
|
ALTER TABLE bcp_verzamel
|
|
ADD CONSTRAINT bcp_verzamel_profile
|
|
UNIQUE(bcp_ins_srtdeel_key, bcp_frequentie_key,
|
|
bcp_urgentie_key, bcp_verzamel_verwijder);
|
|
#endif // BCP
|
|
|
|
DELETE FROM fac_message
|
|
WHERE fac_message_code = 'BEV_M007';
|
|
DEF_FAC_MESSAGE ('BEV_M007', 'STG-CONFIDENTIEEL');
|
|
DEF_FAC_MESSAGE ('BEV_M008', 'Zie kantlijn');
|
|
DEF_FAC_MESSAGE ('BEV_M009', 'Verwijderen categorie ');
|
|
DEF_FAC_MESSAGE ('BEV_M010', 'De code voor de categorie is niet ingevuld.');
|
|
|
|
-- BEB_I-messages voor meldingsysteem
|
|
DEF_FAC_MESSAGE ('BEB_MI1', '1. Nadere inlichtingen');
|
|
DEF_FAC_MESSAGE ('BEB_MI2', ' - Naam');
|
|
DEF_FAC_MESSAGE ('BEB_MI3', ' - Mil. telefoonnummer');
|
|
DEF_FAC_MESSAGE ('BEB_MI4', '2. Informatie meldingssysteem');
|
|
DEF_FAC_MESSAGE ('BEB_MI5', 'a. Doel van meldsysteem');
|
|
DEF_FAC_MESSAGE ('BEB_MI6', ' - Inbraak');
|
|
DEF_FAC_MESSAGE ('BEB_MI7', ' - Brand melding/ontruiming');
|
|
DEF_FAC_MESSAGE ('BEB_MI8', ' - Brandblusinstallatie/soort');
|
|
DEF_FAC_MESSAGE ('BEB_MI9', ' - Toegangscontrole en leesprincipe');
|
|
DEF_FAC_MESSAGE ('BEB_MI10', ' - Camera');
|
|
DEF_FAC_MESSAGE ('BEB_MI11', ' - Gebouw beheersysteem (GBS)');
|
|
DEF_FAC_MESSAGE ('BEB_MI12', ' - Installatie beheersysteem');
|
|
DEF_FAC_MESSAGE ('BEB_MI13', ' - Storingsmelding');
|
|
DEF_FAC_MESSAGE ('BEB_MI14', ' - Verlichting tbv. bewaking');
|
|
DEF_FAC_MESSAGE ('BEB_MI15', ' - Anders ...');
|
|
DEF_FAC_MESSAGE ('BEB_MI16', 'b. Aansluiting op systeem');
|
|
DEF_FAC_MESSAGE ('BEB_MI17', ' - Welke gebouwen zijn aangesloten');
|
|
DEF_FAC_MESSAGE ('BEB_MI18', ' - Waar is het centrale doormeldpunt');
|
|
DEF_FAC_MESSAGE ('BEB_MI19', 'c. Langs wlke weg wordt gemeld');
|
|
DEF_FAC_MESSAGE ('BEB_MI20', ' - Openbare tel./plaatselijke net/mil.verb.net');
|
|
DEF_FAC_MESSAGE ('BEB_MI21', 'd. Soort verbinding');
|
|
DEF_FAC_MESSAGE ('BEB_MI22', ' - Koper/glasvezel/draadloos');
|
|
DEF_FAC_MESSAGE ('BEB_MI23', 'e. Wat is soort/fabrikaat/type');
|
|
DEF_FAC_MESSAGE ('BEB_MI24', ' - Meldsysteem');
|
|
DEF_FAC_MESSAGE ('BEB_MI25', ' - Software');
|
|
DEF_FAC_MESSAGE ('BEB_MI26', ' - Meldingspaneel');
|
|
DEF_FAC_MESSAGE ('BEB_MI27', 'f. Eigendom/licentierechten hard- en software');
|
|
DEF_FAC_MESSAGE ('BEB_MI28', ' - Eventuele afkoop/licentiekosten');
|
|
DEF_FAC_MESSAGE ('BEB_MI29', 'g. Leeftijd systeem');
|
|
DEF_FAC_MESSAGE ('BEB_MI30', ' - Wlke jaar werd het systeem aangebracht');
|
|
DEF_FAC_MESSAGE ('BEB_MI31', ' - Wlke jaar laatste renovatie verricht');
|
|
DEF_FAC_MESSAGE ('BEB_MI32', 'h. Geschatte tehnische levensduur vanvaf 1995');
|
|
DEF_FAC_MESSAGE ('BEB_MI33', 'i. Zijn er onderhoudscontracten afgesoten');
|
|
DEF_FAC_MESSAGE ('BEB_MI34', ' - Met welk bedrijf');
|
|
DEF_FAC_MESSAGE ('BEB_MI35', ' - Indien onderhoudscontract, welk mil.obj.');
|
|
DEF_FAC_MESSAGE ('BEB_MI36', ' - Wanneer kan dit contract worden beeindigd');
|
|
DEF_FAC_MESSAGE ('BEB_MI37', 'j. Melding gekoppeld aan geautom.regsys.');
|
|
DEF_FAC_MESSAGE ('BEB_MI38', ' - Met welke software');
|
|
DEF_FAC_ENTITY ('BEV_PRINT_KOSTEN', 'TOTAAL BEDRAG', NULL, NULL);
|
|
DEF_FAC_ENTITY ('BEV_PRINT_SOM_KOSTEN', 'SOM TOTAAL', NULL, NULL);
|
|
DEF_FAC_ENTITY ('BEV_PRINT_OPMERKING', 'Opmerking', NULL, NULL);
|
|
DEF_FAC_ENTITY ('INS_SRTDEEL_PRIJS', 'Prijs', NULL, NULL);
|
|
DEF_FAC_ENTITY ('INS_SRTDEEL_EENHEID', 'Eenheid', NULL, NULL);
|
|
|
|
DEF_FAC_MESSAGE ('INS_M100', 'Actuele situatie');
|
|
DEF_FAC_MESSAGE ('INS_M101', 'Geplande situatie');
|
|
DEF_FAC_MESSAGE ('INS_M102', 'Verschil');
|
|
DEF_FAC_MESSAGE ('INS_M103', 'Alleen totalen');
|
|
DEF_FAC_MESSAGE ('INS_M104', 'Kosten');
|
|
DEF_FAC_MESSAGE ('INS_M105', 'Rapportage installaties');
|
|
DEF_FAC_MESSAGE ('INS_M106', 'Opmerkingen');
|
|
DEF_FAC_MESSAGE ('INS_M107', 'Alleen records met installaties');
|
|
DEF_FAC_MESSAGE ('INS_M108', 'Regio moet ingevuld zijn.');
|
|
DEF_FAC_MESSAGE ('INS_M109', 'Discipline moet ingevuld zijn.');
|
|
DEF_FAC_MESSAGE ('INS_M110', 'Inventarisatie Meldingssystemen');
|
|
|
|
#ifdef BCO
|
|
PROMPT De reference naar BCO_LOCATIEGROEP moet nog in PRS_PERSLID gelegd worden!
|
|
PROMPT Het is niet in het UPDATE-SCRIPT opgenomen.
|
|
#endif //BCO
|
|
|
|
#ifdef BEB
|
|
DEF_FAC_FORM('INS124', NULL, 'MODULE' ,'171240','INS124','Wijzigen meldingssysteem');
|
|
DEF_FAC_FORM('INS213', NULL, 'MODULE' ,'172130','INS213','Matrixrapport');
|
|
DEF_FAC_FORM('INS214', NULL, 'MODULE' ,'172140','INS214','Rapport meldingssysteem');
|
|
#endif // INR
|
|
#ifdef BEB
|
|
DEF_FAC_FORM('BEB011', NULL, NULL,'300110','BEB_BEB011','Overzichtscherm Categorie');
|
|
DEF_FAC_FORM('BEB111', NULL, NULL,'301110','BEB_BEB111','Mutatiescherm Categorie');
|
|
#endif
|
|
|
|
#ifdef ALG
|
|
|
|
ALTER TABLE alg_regio
|
|
ADD
|
|
(
|
|
alg_regio_module
|
|
VARCHAR2(3)
|
|
);
|
|
|
|
ALTER TABLE alg_regio
|
|
DROP UNIQUE(alg_regio_upper, alg_regio_verwijder);
|
|
|
|
ALTER TABLE alg_regio
|
|
ADD UNIQUE(alg_regio_upper, alg_regio_module, alg_regio_verwijder);
|
|
|
|
ALTER TABLE alg_district
|
|
ADD
|
|
(
|
|
alg_district_module
|
|
VARCHAR2(3)
|
|
);
|
|
|
|
ALTER TABLE alg_district
|
|
DROP UNIQUE(alg_regio_key, alg_district_upper,alg_district_verwijder);
|
|
|
|
ALTER TABLE alg_district
|
|
ADD UNIQUE(alg_regio_key, alg_district_upper, alg_district_module, alg_district_verwijder);
|
|
|
|
ALTER TABLE alg_locatie
|
|
ADD
|
|
(
|
|
alg_district_key_2
|
|
NUMBER(10)
|
|
REFERENCES alg_district(alg_district_key)
|
|
);
|
|
|
|
CREATE TABLE alg_objectdeel
|
|
(
|
|
alg_objectdeel_key
|
|
NUMBER(10)
|
|
PRIMARY KEY,
|
|
alg_locatie_key
|
|
NUMBER(10)
|
|
REFERENCES alg_locatie(alg_locatie_key),
|
|
alg_objectdeel_omschrijving
|
|
VARCHAR2(30)
|
|
NOT NULL,
|
|
alg_objectdeel_upper
|
|
VARCHAR2(30)
|
|
NOT NULL,
|
|
alg_objectdeel_aanmaak
|
|
DATE
|
|
DEFAULT SYSDATE
|
|
NOT NULL,
|
|
alg_objectdeel_verwijder
|
|
DATE
|
|
DEFAULT NULL,
|
|
UNIQUE(alg_locatie_key, alg_objectdeel_upper, alg_objectdeel_verwijder)
|
|
);
|
|
|
|
CREATE TABLE alg_systeemcluster
|
|
(
|
|
alg_systeemcluster_key
|
|
NUMBER(10)
|
|
PRIMARY KEY,
|
|
alg_objectdeel_key
|
|
NUMBER(10)
|
|
REFERENCES alg_objectdeel(alg_objectdeel_key),
|
|
alg_systeemclust_omschrijving
|
|
VARCHAR2(30)
|
|
NOT NULL,
|
|
alg_systeemcluster_upper
|
|
VARCHAR2(30)
|
|
NOT NULL,
|
|
alg_systeemcluster_aanmaak
|
|
DATE
|
|
DEFAULT SYSDATE
|
|
NOT NULL,
|
|
alg_systeemcluster_verwijder
|
|
DATE
|
|
DEFAULT NULL,
|
|
UNIQUE(alg_objectdeel_key, alg_systeemcluster_upper, alg_systeemcluster_verwijder)
|
|
);
|
|
|
|
ALTER TABLE alg_gebouw
|
|
ADD
|
|
(
|
|
alg_systeemcluster_key
|
|
NUMBER(10)
|
|
REFERENCES alg_systeemcluster(alg_systeemcluster_key)
|
|
);
|
|
|
|
ALTER TABLE alg_terreinsector
|
|
ADD
|
|
(
|
|
alg_systeemcluster_key
|
|
NUMBER(10)
|
|
REFERENCES alg_systeemcluster(alg_systeemcluster_key)
|
|
);
|
|
|
|
CREATE TABLE alg_bouwdeel
|
|
(
|
|
alg_bouwdeel_key
|
|
NUMBER(10)
|
|
PRIMARY KEY,
|
|
alg_gebouw_key
|
|
NUMBER(10)
|
|
REFERENCES alg_gebouw(alg_gebouw_key),
|
|
alg_bouwdeel_omschrijving
|
|
VARCHAR2(30)
|
|
NOT NULL,
|
|
alg_bouwdeel_upper
|
|
VARCHAR2(30)
|
|
NOT NULL,
|
|
alg_bouwdeel_aanmaak
|
|
DATE
|
|
DEFAULT SYSDATE
|
|
NOT NULL,
|
|
alg_bouwdeel_verwijder
|
|
DATE
|
|
DEFAULT NULL,
|
|
UNIQUE(alg_gebouw_key, alg_bouwdeel_upper, alg_bouwdeel_verwijder)
|
|
);
|
|
|
|
ALTER TABLE alg_verdieping
|
|
ADD
|
|
(
|
|
alg_bouwdeel_key
|
|
NUMBER(10)
|
|
REFERENCES alg_bouwdeel(alg_bouwdeel_key)
|
|
);
|
|
|
|
CREATE OR REPLACE VIEW alg_v_aanwezigobjectdeel
|
|
AS
|
|
SELECT * FROM alg_objectdeel
|
|
WHERE alg_objectdeel_verwijder IS NULL;
|
|
|
|
CREATE OR REPLACE VIEW alg_v_aanwezigsysteemclust
|
|
AS
|
|
SELECT * FROM alg_systeemcluster
|
|
WHERE alg_systeemcluster_verwijder IS NULL;
|
|
|
|
CREATE OR REPLACE VIEW alg_v_aanwezigbouwdeel
|
|
AS
|
|
SELECT * FROM alg_bouwdeel
|
|
WHERE alg_bouwdeel_verwijder IS NULL;
|
|
|
|
CREATE SEQUENCE alg_s_alg_objectdeel_key MINVALUE 1;
|
|
CREATE SEQUENCE alg_s_alg_systeemcluster_key MINVALUE 1;
|
|
CREATE SEQUENCE alg_s_alg_bouwdeel_key MINVALUE 1;
|
|
|
|
CREATE INDEX alg_i_alg_objectdeel1 ON alg_objectdeel(alg_locatie_key);
|
|
CREATE INDEX alg_i_alg_systeemcluster1 ON alg_systeemcluster(alg_objectdeel_key);
|
|
CREATE INDEX alg_i_alg_gebouw3 ON alg_gebouw(alg_systeemcluster_key);
|
|
CREATE INDEX alg_i_alg_terreinsector2 ON alg_terreinsector(alg_systeemcluster_key);
|
|
CREATE INDEX alg_i_alg_bouwdeel1 ON alg_bouwdeel(alg_gebouw_key);
|
|
CREATE INDEX alg_i_alg_verdieping2 ON alg_verdieping(alg_bouwdeel_key);
|
|
|
|
|
|
CREATE TRIGGER alg_t_alg_objectdeel_B_IU
|
|
BEFORE INSERT OR UPDATE ON alg_objectdeel
|
|
FOR EACH ROW
|
|
BEGIN
|
|
UPDATE_PRIMARY_KEY(alg_objectdeel_key, alg_s_alg_objectdeel_key);
|
|
UPDATE_UPPER(alg_objectdeel_omschrijving, alg_objectdeel_upper);
|
|
// Restricted/Cascade
|
|
// CHECK_REFERENCES(alg_locatie, alg_district_key, alg_district_verwijder, alg_locatie_verwijder);
|
|
END;
|
|
/
|
|
|
|
CREATE TRIGGER alg_t_alg_systeemcluster_B_IU
|
|
BEFORE INSERT OR UPDATE ON alg_systeemcluster
|
|
FOR EACH ROW
|
|
BEGIN
|
|
UPDATE_PRIMARY_KEY(alg_systeemcluster_key, alg_s_alg_systeemcluster_key);
|
|
UPDATE_UPPER(alg_systeemclust_omschrijving, alg_systeemcluster_upper);
|
|
// Restricted/Cascade
|
|
// CHECK_REFERENCES(alg_locatie, alg_district_key, alg_district_verwijder, alg_locatie_verwijder);
|
|
END;
|
|
/
|
|
|
|
CREATE TRIGGER alg_t_alg_bouwdeel_B_IU
|
|
BEFORE INSERT OR UPDATE ON alg_bouwdeel
|
|
FOR EACH ROW
|
|
BEGIN
|
|
UPDATE_PRIMARY_KEY(alg_bouwdeel_key, alg_s_alg_bouwdeel_key);
|
|
UPDATE_UPPER(alg_bouwdeel_omschrijving, alg_bouwdeel_upper);
|
|
// Restricted/Cascade
|
|
// CHECK_REFERENCES(alg_locatie, alg_district_key, alg_district_verwijder, alg_locatie_verwijder);
|
|
END;
|
|
/
|
|
#endif
|
|
|
|
INSERT INTO fac_entity_name VALUES('ALG_OBJECTDEEL', 'Objectdeel', 'Objectdelen', 'het');
|
|
INSERT INTO fac_entity_name VALUES('ALG_OBJECTDEEL_OMSCHRIJVING', 'Omschrijving', 'Omschrijvingen', 'de');
|
|
INSERT INTO fac_entity_name VALUES('ALG_SYSTEEMCLUSTER', 'Syst.cluster', 'Syst.clusters', 'de');
|
|
INSERT INTO fac_entity_name VALUES('ALG_SYSTEEMCLUST_OMSCHRIJVING', 'Omschrijving', 'Omschrinvingen', 'de');
|
|
INSERT INTO fac_entity_name VALUES('ALG_BOUWDEEL', 'Bouwdeel', 'Bouwdelen', 'het');
|
|
INSERT INTO fac_entity_name VALUES('ALG_BOUWDEEL_OMSCHRIJVING', 'Omshrijving', 'Omschrijvingen', 'de');
|
|
INSERT INTO fac_entity_name VALUES('RMC_ALG_REGIO', 'RMC', 'RMC''s', 'de');
|
|
INSERT INTO fac_entity_name VALUES('RMC_ALG_DISTRICT', 'Garnizoen', 'Garnizoenen', 'het');
|
|
INSERT INTO fac_entity_name VALUES('RMC_ALG_REGIO', 'RMC', 'RMC''s', 'de');
|
|
INSERT INTO fac_entity_name VALUES('RMC_ALG_DISTRICT', 'Garnizoen', 'Garnizoenen', 'het');
|
|
INSERT INTO fac_entity_name VALUES('RMC_MENU_LABEL', 'Klantindeling', NULL, 'de');
|
|
|
|
|
|
INSERT INTO fac_message VALUES('ALG_M162', 'Verwijderen objectdeel ');
|
|
INSERT INTO fac_message VALUES('ALG_M163', 'Verwijderen systeemcluster ');
|
|
INSERT INTO fac_message VALUES('ALG_M164', 'Gebouw/Terreinsector bij systeemcluster');
|
|
INSERT INTO fac_message VALUES('ALG_M165', 'Verwijderen gebouw/terreinsector bij systeemcluster ');
|
|
INSERT INTO fac_message VALUES('ALG_M166', 'Bouwlaag bij bouwdeel');
|
|
INSERT INTO fac_message VALUES('ALG_M167', 'Verwijderen bouwlaag bij bouwdeel ');
|
|
INSERT INTO fac_message VALUES('ALG_M168', 'De omschrijving van het objectdeel is niet ingevuld.');
|
|
INSERT INTO fac_message VALUES('ALG_M169', 'Het objectdeel is niet ingevuld.');
|
|
INSERT INTO fac_message VALUES('ALG_M170', 'De omschrijving van de systeemcluster is niet ingevuld.');
|
|
INSERT INTO fac_message VALUES('ALG_M171', 'Het gebouw is niet ingevuld.');
|
|
INSERT INTO fac_message VALUES('ALG_M172', 'De omschrijving van het bouwdeel is niet ingevuld.');
|
|
INSERT INTO fac_message VALUES('ALG_M173', 'De systeemcluster is niet ingevuld.');
|
|
INSERT INTO fac_message VALUES('ALG_M174', 'Gebouw of terreinsector is niet ingevuld.');
|
|
INSERT INTO fac_message VALUES('ALG_M175', 'Gebouw en terreinsector kunnen niet beide ingevuld worden.');
|
|
INSERT INTO fac_message VALUES('ALG_M176', 'Bouwdeel is niet ingevuld.');
|
|
INSERT INTO fac_message VALUES('ALG_M177', 'Bouwlaag is niet ingevuld.');
|
|
INSERT INTO fac_message VALUES('ALG_M178', 'Verwijderen bouwdeel ');
|
|
INSERT INTO fac_message VALUES('ALG_M179', 'De RMC is niet ingevuld.');
|
|
INSERT INTO fac_message VALUES('ALG_M180', 'Object bij garnizoen');
|
|
INSERT INTO fac_message VALUES('ALG_M181', 'Verwijderen object bij garnizoen ');
|
|
|
|
INSERT INTO fac_message VALUES('RMC_M001', 'Verwijderen RMC ');
|
|
INSERT INTO fac_message VALUES('RMC_M002', 'Verwijderen Garnizoen ');
|
|
INSERT INTO fac_message VALUES('RMC_M003', 'De omschrijving voor de RMC is niet ingevuld.');
|
|
INSERT INTO fac_message VALUES('RMC_M004', 'De RMC is niet ingevuld.');
|
|
INSERT INTO fac_message VALUES('RMC_M005', 'De omschrijving voor het garnizoen is niet ingevuld.');
|
|
|
|
#ifdef ALG
|
|
|
|
CREATE TRIGGER alg_t_alg_locatie_B_IU
|
|
BEFORE INSERT OR UPDATE ON alg_locatie
|
|
FOR EACH ROW
|
|
BEGIN
|
|
UPDATE_PRIMARY_KEY(alg_locatie_key, alg_s_alg_locatie_key);
|
|
UPDATE_UPPER(alg_locatie_code, alg_locatie_code);
|
|
UPDATE_UPPER(alg_locatie_omschrijving, alg_locatie_upper);
|
|
CHECK_NOG_REFERENCES(alg_locatie, alg_locatie_verwijder, alg_v_aanwezigobjectdeel,
|
|
alg_locatie_key, 'alg_m185');
|
|
END;
|
|
/
|
|
|
|
CREATE TRIGGER alg_t_alg_objectdeel_B_IU
|
|
BEFORE INSERT OR UPDATE ON alg_objectdeel
|
|
FOR EACH ROW
|
|
BEGIN
|
|
UPDATE_PRIMARY_KEY(alg_objectdeel_key, alg_s_alg_objectdeel_key);
|
|
UPDATE_UPPER(alg_objectdeel_omschrijving, alg_objectdeel_upper);
|
|
SET_VERWIJDER_CHILDREN(alg_systeemcluster, alg_objectdeel_key, alg_objectdeel_verwijder,
|
|
alg_systeemcluster_verwijder);
|
|
END;
|
|
/
|
|
|
|
CREATE TRIGGER alg_t_alg_systeemcluster_B_IU
|
|
BEFORE INSERT OR UPDATE ON alg_systeemcluster
|
|
FOR EACH ROW
|
|
BEGIN
|
|
UPDATE_PRIMARY_KEY(alg_systeemcluster_key, alg_s_alg_systeemcluster_key);
|
|
UPDATE_UPPER(alg_systeemclust_omschrijving, alg_systeemcluster_upper);
|
|
CHECK_NOG_REFERENCES(alg_systeemcluster, alg_systeemcluster_verwijder,
|
|
alg_v_aanweziggebouw, alg_systeemcluster_key, 'alg_m182');
|
|
END;
|
|
/
|
|
|
|
CREATE TRIGGER alg_t_alg_bouwdeel_B_IU
|
|
BEFORE INSERT OR UPDATE ON alg_bouwdeel
|
|
FOR EACH ROW
|
|
BEGIN
|
|
UPDATE_PRIMARY_KEY(alg_bouwdeel_key, alg_s_alg_bouwdeel_key);
|
|
UPDATE_UPPER(alg_bouwdeel_omschrijving, alg_bouwdeel_upper);
|
|
CHECK_NOG_REFERENCES(alg_bouwdeel, alg_bouwdeel_verwijder,
|
|
alg_v_aanwezigverdieping, alg_bouwdeel_key, 'alg_m183');
|
|
END;
|
|
/
|
|
|
|
CREATE TRIGGER alg_t_alg_gebouw_B_IU
|
|
BEFORE INSERT OR UPDATE ON alg_gebouw
|
|
FOR EACH ROW
|
|
BEGIN
|
|
UPDATE_PRIMARY_KEY(alg_gebouw_key, alg_s_alg_onroerendgoed_keys);
|
|
UPDATE_UPPER(alg_gebouw_code, alg_gebouw_upper);
|
|
:new.alg_gebouw_omschrijving := SUBSTRB(:new.alg_gebouw_code ||' - '|| :new.alg_gebouw_naam,1,30);
|
|
CHECK_NOG_REFERENCES(alg_gebouw, alg_gebouw_verwijder, alg_v_aanwezigbouwdeel,
|
|
alg_gebouw_key, 'alg_m184');
|
|
LAAT_VERDIEPING_VERVALLEN_VOOR_GEBOUW('alg_m54');
|
|
#ifdef MRA
|
|
IF :new.alg_gebouw_verwijder IS NOT NULL
|
|
THEN
|
|
DELETE FROM mra_onrgoedvoorschr
|
|
WHERE mra_onroerendgoed_keys = :old.alg_gebouw_key;
|
|
DELETE FROM mra_onrgoedbestemming
|
|
WHERE mra_onroerendgoed_keys = :old.alg_gebouw_key;
|
|
END IF;
|
|
IF :new.alg_srtgebouw_key <> :old.alg_srtgebouw_key
|
|
THEN
|
|
DELETE FROM mra_onrgoedvoorschr
|
|
WHERE mra_onroerendgoed_keys = :old.alg_gebouw_key AND
|
|
mra_voorschrift_key IN (SELECT mra_voorschrift_key
|
|
FROM mra_srtgebouwvoorschr
|
|
WHERE mra_srtgebouw_key = :old.alg_srtgebouw_key)
|
|
AND mra_onrgoedvoorschr_type = 'G';
|
|
|
|
END IF;
|
|
#endif // MRA
|
|
#ifdef INS
|
|
SET_VERWIJDER_CHILDREN_DEEL(ins_deel, alg_gebouw_key,
|
|
alg_gebouw_verwijder, ins_deel_verwijder, ins_alg_ruimte_key);
|
|
#endif // INS
|
|
END;
|
|
/
|
|
|
|
#endif // ALG
|
|
|
|
INSERT INTO fac_message VALUES('ALG_M182', 'Er zijn nog gebouw gekoppeld aan het systeemcluster.');
|
|
INSERT INTO fac_message VALUES('ALG_M183', 'Er zijn nog bouwlagen gekoppeld aan het bouwdeel.');
|
|
INSERT INTO fac_message VALUES('ALG_M184', 'Er zijn nog bouwdelen gekoppeld aan het gebouw.');
|
|
INSERT INTO fac_message VALUES('ALG_M185', 'Er zijn nog objectdelen gekoppeld aan het object.');
|
|
|
|
DEF_FAC_ENTITY ('INS_DEEL_REALISATIE', 'Realisatie', NULL, NULL);
|
|
DEF_FAC_MESSAGE ('ALG_M186', 'Het veld moet van formaat MMJJJJ zijn.');
|
|
|
|
#ifdef BEB
|
|
DEF_FAC_FORM('INS125', NULL, 'MODULE ,'171250','INS_INS125','Mutatiescherm Deel (BEB)');
|
|
#endif
|
|
DELETE FROM fac_message
|
|
WHERE fac_message_code = 'BCO_M54'
|
|
OR fac_message_code = 'BCO_M59';
|
|
DEF_FAC_MESSAGE ('BCO_M54', 'Het jaar of de week is niet correct ingevuld.');
|
|
DEF_FAC_MESSAGE ('BCO_M59', 'Het jaar of de week is niet correct ingevuld.');
|
|
|
|
DELETE FROM fac_message
|
|
WHERE fac_message_code = 'BCO_M55'
|
|
OR fac_message_code = 'BCO_M56'
|
|
OR fac_message_code = 'ALG_M108';
|
|
INSERT INTO FAC_MESSAGE VALUES('BCO_M55', 'Verwijderen record');
|
|
INSERT INTO FAC_MESSAGE VALUES('BCO_M56', 'Verwijderen record jaarweek %1% van persoon %2%');
|
|
INSERT INTO FAC_MESSAGE VALUES('ALG_M108', 'Datum %1% moet van formaat %2% zijn.');
|
|
|
|
DEF_FAC_MESSAGE ('BCO_M131', 'De maatregel wordt nog gebruikt een opdracht.');
|
|
|
|
#ifdef BCO
|
|
CREATE TRIGGER bco_t_bco_maatregel_B_IU
|
|
BEFORE INSERT OR UPDATE ON bco_maatregel
|
|
FOR EACH ROW
|
|
BEGIN
|
|
UPDATE_PRIMARY_KEY(bco_maatregel_key, bco_s_bco_maatregel_key);
|
|
UPDATE_UPPER(bco_maatregel_afk, bco_maatregel_afk_upper);
|
|
/* BCO_MAATREGEL_WERKOPDR: 1 maatregel mag niet gekoppeld worden
|
|
* aan een defectsrtinst.
|
|
* IS NULL, maatregel mag gekoppeld worden
|
|
* aan een defectsrtinst.
|
|
*/
|
|
IF (:old.bco_maatregel_werkopdr IS NULL
|
|
AND :new.bco_maatregel_werkopdr = 1)
|
|
THEN
|
|
DECLARE
|
|
dummy VARCHAR2(1);
|
|
BEGIN
|
|
SELECT 'X'
|
|
INTO dummy
|
|
FROM bco_defectsrtinst
|
|
WHERE bco_maatregel_key = :new.bco_maatregel_key;
|
|
APPLICATION_ERROR(-20000,'bco_m097');
|
|
EXCEPTION
|
|
WHEN NO_DATA_FOUND THEN NULL;
|
|
END;
|
|
ELSIF (:old.bco_maatregel_werkopdr = 1
|
|
AND :new.bco_maatregel_werkopdr IS NULL)
|
|
THEN
|
|
DECLARE
|
|
dummy VARCHAR2(1);
|
|
BEGIN
|
|
SELECT 'X'
|
|
INTO dummy
|
|
FROM mld_opdr
|
|
WHERE bco_maatregel_key = :new.bco_maatregel_key;
|
|
APPLICATION_ERROR(-20000,'bco_m131');
|
|
EXCEPTION
|
|
WHEN NO_DATA_FOUND THEN NULL;
|
|
END;
|
|
END IF;
|
|
IF :new.bco_maatregel_verwijder IS NOT NULL
|
|
THEN
|
|
NULL;
|
|
-- APPLICATION_ERROR(-20000, 'bco_m109');
|
|
END IF;
|
|
SET_VERWIJDER_CHILDREN(bco_defectsrtinst, bco_maatregel_key,
|
|
bco_maatregel_verwijder, bco_defectsrtinst_verwijder);
|
|
END;
|
|
/
|
|
#endif // BCO
|
|
|
|
INSERT INTO fac_message VALUES('BCP_M099', 'Er zijn nog lopende preventieve opdrachten.');
|
|
|
|
#ifdef BCP
|
|
DROP TRIGGER bcp_t_bcp_verzamel_B_IU;
|
|
CREATE TRIGGER bcp_t_bcp_verzamel_B_IU
|
|
BEFORE INSERT OR UPDATE ON bcp_verzamel
|
|
FOR EACH ROW
|
|
BEGIN
|
|
UPDATE_PRIMARY_KEY(bcp_verzamel_key, bcp_s_bcp_verzamel_key);
|
|
UPDATE_UPPER(bcp_verzamel_omschrijving, bcp_verzamel_upper);
|
|
// LOG#877
|
|
//CHECK_NOG_REFERENCES(bcp_verzamel, bcp_verzamel_verwijder,
|
|
// bcp_v_aanwezigtaak, bcp_verzamel_key, 'bcp_m051');
|
|
//CHECK_NOG_REFERENCES(bcp_verzamel, bcp_verzamel_verwijder,
|
|
// bcp_v_aanwezigdeelopdr, bcp_verzamel_key, 'bcp_m052');
|
|
SET_VERWIJDER_CHILDREN(bcp_taak, bcp_verzamel_key, bcp_verzamel_verwijder,
|
|
bcp_taak_verwijder);
|
|
SET_VERWIJDER_CHILDREN(bcp_deelopdr, bcp_verzamel_key, bcp_verzamel_verwijder,
|
|
bcp_deelopdr_verwijder);
|
|
// Meetrapporten worden nu in BCP013 verwijderd.
|
|
// Alternatief staat in LOG#886
|
|
END;
|
|
/
|
|
|
|
DROP TRIGGER bcp_t_bcp_taak_B_IU;
|
|
CREATE TRIGGER bcp_t_bcp_taak_B_IU
|
|
BEFORE INSERT OR UPDATE ON bcp_taak
|
|
FOR EACH ROW
|
|
BEGIN
|
|
UPDATE_PRIMARY_KEY(bcp_taak_key, bcp_s_bcp_taak_key);
|
|
// LOG#877, Een taak mag alleen verwijderd worden als de bijbehorende
|
|
// BCP_PREVOPDR's de status 'Verwerkt' hebben.
|
|
IF :new.bcp_taak_verwijder IS NOT NULL
|
|
THEN
|
|
DECLARE
|
|
dummy CHAR;
|
|
BEGIN
|
|
SELECT 'X'
|
|
INTO dummy
|
|
FROM bcp_prevopdr BCP_P, mld_statusopdr MLD_S
|
|
WHERE (MLD_S.mld_statusopdr_upper = 'BCP_INGEPLAND'
|
|
OR MLD_S.mld_statusopdr_upper = 'BCP_UITGEGEVEN'
|
|
OR MLD_S.mld_statusopdr_upper = 'BCP_AFGEMELD')
|
|
AND MLD_S.mld_statusopdr_key = BCP_P.bcp_mld_statusopdr_key
|
|
AND BCP_P.bcp_taak_key = :new.bcp_taak_key;
|
|
APPLICATION_ERROR(-20000, 'bcp_m099');
|
|
EXCEPTION
|
|
WHEN NO_DATA_FOUND
|
|
THEN NULL;
|
|
WHEN TOO_MANY_ROWS
|
|
THEN APPLICATION_ERROR(-20000, 'bcp_m099');
|
|
END;
|
|
END IF;
|
|
END;
|
|
/
|
|
// Update ON DELETE CASCADE van Meting
|
|
CREATE TABLE OLD_bcp_meetrapport
|
|
AS SELECT * FROM bcp_meetrapport;
|
|
|
|
CREATE TABLE OLD_bcp_meting
|
|
AS SELECT * FROM bcp_meting;
|
|
|
|
DROP TABLE bcp_meting;
|
|
DROP TABLE bcp_meetrapport;
|
|
|
|
CREATE TABLE bcp_meetrapport
|
|
(
|
|
bcp_meetrapport_key
|
|
NUMBER(10)
|
|
PRIMARY KEY,
|
|
bcp_verzamel_key
|
|
NUMBER(10)
|
|
NOT NULL
|
|
REFERENCES bcp_verzamel,
|
|
bcp_meetrapport_omschrijving
|
|
VARCHAR2(30)
|
|
NOT NULL,
|
|
bcp_meetrapport_upper
|
|
VARCHAR2(30)
|
|
NOT NULL,
|
|
bcp_meetrapport_kolom1
|
|
VARCHAR2(20),
|
|
bcp_meetrapport_kolom2
|
|
VARCHAR2(20),
|
|
bcp_meetrapport_kolom3
|
|
VARCHAR2(20),
|
|
UNIQUE(bcp_verzamel_key, bcp_meetrapport_upper)
|
|
);
|
|
|
|
CREATE TABLE bcp_meting
|
|
(
|
|
bcp_meting_key
|
|
NUMBER(10)
|
|
PRIMARY KEY,
|
|
bcp_meetrapport_key
|
|
NUMBER(10)
|
|
NOT NULL
|
|
REFERENCES bcp_meetrapport ON DELETE CASCADE,
|
|
bcp_ins_srtinst_keys
|
|
NUMBER(10)
|
|
NOT NULL,
|
|
bcp_meting_omschrijving
|
|
VARCHAR2(30)
|
|
NOT NULL,
|
|
bcp_meting_upper
|
|
VARCHAR2(30)
|
|
NOT NULL,
|
|
bcp_meting_eenheid
|
|
VARCHAR2(15),
|
|
UNIQUE(bcp_meetrapport_key,bcp_meting_upper)
|
|
);
|
|
|
|
CREATE TRIGGER bcp_t_bcp_meetrapport_B_IU
|
|
BEFORE INSERT OR UPDATE ON bcp_meetrapport
|
|
FOR EACH ROW
|
|
BEGIN
|
|
IF :new.bcp_meetrapport_key IS NULL THEN SELECT bcp_s_bcp_meetrapport_key.nextval INTO :new.bcp_meetrapport_key FROM DUAL; END IF;
|
|
:new.bcp_meetrapport_upper := UPPER(:new.bcp_meetrapport_omschrijving);
|
|
END;
|
|
/
|
|
|
|
CREATE TRIGGER bcp_t_bcp_meting_B_IU
|
|
BEFORE INSERT OR UPDATE ON bcp_meting
|
|
FOR EACH ROW
|
|
BEGIN
|
|
IF :new.bcp_meting_key IS NULL THEN SELECT bcp_s_bcp_meting_key.nextval INTO :new.bcp_meting_key FROM DUAL; END IF;
|
|
:new.bcp_meting_upper := UPPER(:new.bcp_meting_omschrijving);
|
|
DECLARE dummy CHAR; BEGIN SELECT 'X' INTO dummy FROM ins_v_aanwezigsrtdeel WHERE ins_srtdeel_key = :new.bcp_ins_srtinst_keys; EXCEPTION WHEN NO_DATA_FOUND THEN BEGIN SELECT 'X' INTO dummy FROM ins_v_aanwezigsrtonderdeel WHERE ins_srtonderdeel_key = :new.bcp_ins_srtinst_keys; EXCEPTION WHEN NO_DATA_FOUND THEN BEGIN SELECT 'X' INTO dummy FROM ins_v_aanwezigsrtelement WHERE ins_srtelement_key = :new.bcp_ins_srtinst_keys; EXCEPTION WHEN NO_DATA_FOUND THEN raise_application_error(-20000, 'ins_m21'); END; END; END;
|
|
END;
|
|
/
|
|
|
|
INSERT INTO bcp_meetrapport
|
|
SELECT * FROM old_bcp_meetrapport;
|
|
|
|
INSERT INTO bcp_meting
|
|
SELECT * FROM old_bcp_meting;
|
|
|
|
DROP TABLE old_bcp_meting;
|
|
DROP TABLE old_bcp_meetrapport;
|
|
|
|
#endif // BCP
|
|
|
|
DEF_FAC_MESSAGE ('bcp_m046','Aantal weken moet tussen 1 en 480 liggen');
|
|
|
|
#ifdef BCP
|
|
ALTER TABLE bcp_meterstand
|
|
DROP UNIQUE(bcp_prevopdr_key, bcp_ins_inst_keys);
|
|
|
|
ALTER TABLE bcp_meterstand
|
|
ADD UNIQUE(bcp_prevopdr_key, bcp_deelopdr_key, bcp_ins_inst_keys);
|
|
#endif // BCP
|
|
|
|
DELETE FROM fac_message
|
|
WHERE fac_message_code = 'INS_M017'
|
|
OR fac_message_code = 'INS_M018';
|
|
|
|
DEF_FAC_MESSAGE ('ALG_M187', 'De waarde mag niet gewijzigd worden.');
|
|
DEF_FAC_MESSAGE ('ALG_M105', 'Waarde %1% voldoen niet aan formaat %2%.');
|
|
DEF_FAC_MESSAGE ('PRS_M091', 'Er zijn nog personen bij deze functie, wijzigen van bedrijf kan niet.');
|
|
|
|
#ifdef PRS
|
|
DROP TRIGGER prs_t_prs_srtperslid_B_IU;
|
|
CREATE TRIGGER prs_t_prs_srtperslid_B_IU
|
|
BEFORE INSERT OR UPDATE ON prs_srtperslid
|
|
FOR EACH ROW
|
|
BEGIN
|
|
UPDATE_PRIMARY_KEY(prs_srtperslid_key, prs_s_prs_alluitvoerende_keys);
|
|
UPDATE_UPPER(prs_srtperslid_omschrijving, prs_srtperslid_upper);
|
|
CHECK_NOG_REFERENCES(prs_perslid, prs_srtperslid_verwijder,
|
|
prs_v_aanwezigperslid, prs_srtperslid_key, 'prs_m014');
|
|
#ifdef BCO
|
|
// Niet verwijderen als nog aangegeven als default uitvoerende
|
|
IF :new.prs_srtperslid_verwijder IS NOT NULLDATUM THEN
|
|
DECLARE
|
|
dummy CHAR(1);
|
|
BEGIN
|
|
SELECT 'X'
|
|
INTO dummy
|
|
FROM ins_v_aanwezigsrtdeel
|
|
WHERE bco_defaultuitv_keys = :new.prs_srtperslid_key;
|
|
APPLICATION_ERROR(-20000, 'prs_m059');
|
|
EXCEPTION
|
|
WHEN no_data_found
|
|
THEN NULL;
|
|
WHEN TOO_MANY_ROWS
|
|
THEN APPLICATION_ERROR(-20000, 'prs_m059');
|
|
END;
|
|
END IF;
|
|
// 25-10-96 AH LOG#906
|
|
// Als er personen bij deze functie zijn en er wordt geprobeerd de functie
|
|
// extern te maken, dan mogen er geen personen bij deze functie zijn.
|
|
IF :new.prs_bedrijf_key IS NOT NULL
|
|
AND :old.prs_bedrijf_key IS NULL
|
|
THEN
|
|
DECLARE
|
|
dummy CHAR;
|
|
BEGIN
|
|
SELECT 'X'
|
|
INTO dummy
|
|
FROM prs_v_aanwezigperslid
|
|
WHERE prs_srtperslid_key = :new.prs_srtperslid_key;
|
|
APPLICATION_ERROR(-20000, 'prs_m091');
|
|
EXCEPTION
|
|
WHEN NO_DATA_FOUND
|
|
THEN NULL;
|
|
WHEN TOO_MANY_ROWS
|
|
THEN APPLICATION_ERROR(-20000, 'prs_m091');
|
|
END;
|
|
END IF;
|
|
#endif // BCO
|
|
#ifdef MLD
|
|
// Niet verwijderen als nog MLD_OPDR's zijn met status 'Uitgegeven' en
|
|
// uitvoerende deze SRTPERSLID.
|
|
IF :new.prs_srtperslid_verwijder IS NOT NULLDATUM
|
|
THEN
|
|
DECLARE
|
|
dummy CHAR;
|
|
BEGIN
|
|
SELECT 'X'
|
|
INTO dummy
|
|
FROM mld_opdr MLD_O, mld_statusopdr MLD_S
|
|
WHERE MLD_O.mld_statusopdr_key = MLD_S.mld_statusopdr_key
|
|
AND MLD_S.mld_statusopdr_omschrijving = 'Uitgegeven'
|
|
AND MLD_O.mld_uitvoerende_keys = :new.prs_srtperslid_key;
|
|
APPLICATION_ERROR(-20000, 'prs_m084');
|
|
EXCEPTION
|
|
WHEN NO_DATA_FOUND
|
|
THEN NULL;
|
|
WHEN TOO_MANY_ROWS
|
|
THEN APPLICATION_ERROR(-20000, 'prs_m084');
|
|
END;
|
|
END IF;
|
|
#endif // MLD
|
|
#ifdef BCP
|
|
// Niet verwijderen als nog BCP_PREVOPDR's zijn met status 'Uitgegeven' en
|
|
// uitvoerende deze SRTPERSLID.
|
|
IF :new.prs_srtperslid_verwijder IS NOT NULLDATUM
|
|
THEN
|
|
DECLARE
|
|
dummy CHAR;
|
|
BEGIN
|
|
SELECT 'X'
|
|
INTO dummy
|
|
FROM bcp_prevopdr BCP_P, mld_statusopdr MLD_S
|
|
WHERE BCP_P.bcp_mld_statusopdr_key = MLD_S.mld_statusopdr_key
|
|
AND MLD_S.mld_statusopdr_omschrijving = 'Uitgegeven'
|
|
AND BCP_P.bcp_mld_uitvoerende_keys = :new.prs_srtperslid_key;
|
|
APPLICATION_ERROR(-20000, 'prs_m084');
|
|
EXCEPTION
|
|
WHEN NO_DATA_FOUND
|
|
THEN NULL;
|
|
WHEN TOO_MANY_ROWS
|
|
THEN APPLICATION_ERROR(-20000, 'prs_m084');
|
|
END;
|
|
END IF;
|
|
#endif // BCP
|
|
END;
|
|
/
|
|
|
|
DROP TRIGGER prs_t_prs_perslid_B_IU;
|
|
CREATE TRIGGER prs_t_prs_perslid_B_IU
|
|
BEFORE INSERT OR UPDATE ON prs_perslid
|
|
FOR EACH ROW
|
|
BEGIN
|
|
UPDATE_PRIMARY_KEY(prs_perslid_key, prs_s_prs_alluitvoerende_keys);
|
|
UPDATE_UPPER(prs_perslid_naam, prs_perslid_upper);
|
|
SET_VERWIJDER_CHILDREN(prs_perslidwerkplek, prs_perslid_key,
|
|
prs_perslid_verwijder, prs_perslidwerkplek_verwijder);
|
|
#ifdef INV
|
|
/* Ontkoppel de artikelen van de te verwijderen persoon.
|
|
* De artikelen kunnen gekoppeld zijn aan een ruimte, werkplek of
|
|
* slaapplaats:
|
|
* - Als dit zo is, dan kan er een ander artikel al op die
|
|
* plek staan. Het artikel moet dan gemerged worden.
|
|
* - Als er geen ander artikel is dan kan gewoon PRS_BEZIT_KEY leeg gemaakt
|
|
* worden.
|
|
*/
|
|
IF :new.prs_perslid_verwijder IS NOT NULL
|
|
THEN
|
|
DECLARE
|
|
CURSOR Cur1(perslid_key IN NUMBER) IS (SELECT ins_deel_key,
|
|
ins_srtdeel_key,
|
|
ins_deel_omschrijving,
|
|
ins_alg_ruimte_key,
|
|
ins_alg_ruimte_type,
|
|
ins_prs_bezit_key,
|
|
ins_deel_aantal
|
|
FROM inv_v_aanwezigdeel
|
|
WHERE ins_prs_bezit_key = perslid_key
|
|
AND ins_prs_bezit_type = 'P');
|
|
Cur_rec Cur1%ROWTYPE;
|
|
deel_key NUMBER(10);
|
|
deel_omschrijving VARCHAR2(50);
|
|
ruimte_key NUMBER(10);
|
|
ruimte_type VARCHAR2(1);
|
|
BEGIN
|
|
/* Doorloop alle inventaris van de verwijderde persoon */
|
|
FOR Cur_rec IN Cur1(:old.prs_perslid_key)
|
|
LOOP
|
|
BEGIN
|
|
/* Als er een koppeling met ruimte, werkplek of slaapplaats is
|
|
* dan mergen (aantal van INS_DEEL ophogen).
|
|
*/
|
|
SELECT ins_deel_key,
|
|
ins_alg_ruimte_key,
|
|
ins_alg_ruimte_type
|
|
INTO deel_key,
|
|
ruimte_key,
|
|
ruimte_type
|
|
FROM inv_v_aanwezigdeel
|
|
WHERE ins_srtdeel_key = Cur_rec.ins_srtdeel_key
|
|
AND NVL(ins_deel_omschrijving, ' ') = NVL(Cur_rec.ins_deel_omschrijving, ' ')
|
|
AND NVL(ins_alg_ruimte_key, -1) = NVL(Cur_rec.ins_alg_ruimte_key, -1)
|
|
AND NVL(ins_alg_ruimte_type, ' ') = NVL(Cur_rec.ins_alg_ruimte_type, ' ')
|
|
AND ins_prs_bezit_key IS NULL
|
|
AND ins_prs_bezit_type IS NULL;
|
|
UPDATE ins_deel
|
|
SET ins_deel_aantal = ins_deel_aantal + Cur_rec.ins_deel_aantal
|
|
WHERE ins_deel_key = deel_key;
|
|
UPDATE ins_deel
|
|
SET ins_deel_verwijder = SYSDATE
|
|
WHERE ins_deel_key = Cur_rec.ins_deel_key;
|
|
EXCEPTION
|
|
/* Ander kan gewoon PRS_BEZIT_KEY leeg gemaakt worden. */
|
|
WHEN NO_DATA_FOUND
|
|
THEN UPDATE ins_deel
|
|
SET ins_prs_bezit_key = NULL,
|
|
ins_prs_bezit_type = NULL
|
|
WHERE ins_deel_key = Cur_rec.ins_deel_key;
|
|
END;
|
|
END LOOP;
|
|
END;
|
|
END IF;
|
|
#endif // INV
|
|
#ifdef MLD
|
|
// Niet verwijderen als nog MLD_OPDR's zijn met status 'Uitgegeven' en
|
|
// uitvoerende deze PERSLID.
|
|
IF :new.prs_perslid_verwijder IS NOT NULLDATUM
|
|
THEN
|
|
DECLARE
|
|
dummy CHAR;
|
|
BEGIN
|
|
SELECT 'X'
|
|
INTO dummy
|
|
FROM mld_opdr MLD_O, mld_statusopdr MLD_S
|
|
WHERE MLD_O.mld_statusopdr_key = MLD_S.mld_statusopdr_key
|
|
AND MLD_S.mld_statusopdr_omschrijving = 'Uitgegeven'
|
|
AND MLD_O.mld_uitvoerende_keys = :new.prs_perslid_key;
|
|
APPLICATION_ERROR(-20000, 'prs_m085');
|
|
EXCEPTION
|
|
WHEN NO_DATA_FOUND
|
|
THEN NULL;
|
|
WHEN TOO_MANY_ROWS
|
|
THEN APPLICATION_ERROR(-20000, 'prs_m085');
|
|
END;
|
|
END IF;
|
|
#endif // MLD
|
|
#ifdef BCP
|
|
// Niet verwijderen als nog BCP_PREVOPDR's zijn met status 'Uitgegeven' en
|
|
// uitvoerende deze PERSLID.
|
|
IF :new.prs_perslid_verwijder IS NOT NULLDATUM
|
|
THEN
|
|
DECLARE
|
|
dummy CHAR;
|
|
BEGIN
|
|
SELECT 'X'
|
|
INTO dummy
|
|
FROM bcp_prevopdr BCP_P, mld_statusopdr MLD_S
|
|
WHERE BCP_P.bcp_mld_statusopdr_key = MLD_S.mld_statusopdr_key
|
|
AND MLD_S.mld_statusopdr_omschrijving = 'Uitgegeven'
|
|
AND BCP_P.bcp_mld_uitvoerende_keys = :new.prs_perslid_key;
|
|
APPLICATION_ERROR(-20000, 'prs_m085');
|
|
EXCEPTION
|
|
WHEN NO_DATA_FOUND
|
|
THEN NULL;
|
|
WHEN TOO_MANY_ROWS
|
|
THEN APPLICATION_ERROR(-20000, 'prs_m085');
|
|
END;
|
|
END IF;
|
|
#endif // BCP
|
|
// 28-10-96/AH #910
|
|
#if 0 //def BCO
|
|
// Verwijder ook de BCO_NIETBESCHIK van deze PERSLID
|
|
IF :new.prs_perslid_verwijder IS NOT NULLDATUM
|
|
THEN
|
|
DELETE FROM bco_nietbeschik
|
|
WHERE bco_prs_perslid_key = :new.prs_perslid_key;
|
|
END IF;
|
|
#endif // BCO
|
|
END;
|
|
/
|
|
|
|
#endif // PRS
|
|
|
|
#ifdef MLD
|
|
CREATE_VIEW(prs_v_mld_bestek_geraamd, NORMAAL_PRIVILEGE)
|
|
(prs_bestek_key,
|
|
prs_bestek_geraamd
|
|
) AS
|
|
SELECT PRS_B.prs_bestek_key,
|
|
SUM(NVL(MLD_O.mld_opdr_materiaal, 0))
|
|
FROM prs_bestek PRS_B, prs_disciplinebestek PRS_DB,
|
|
mld_opdr MLD_O, mld_statusopdr MLD_S
|
|
WHERE MLD_O.mld_statusopdr_key = MLD_S.mld_statusopdr_key
|
|
AND (MLD_S.mld_statusopdr_omschrijving = 'Uitgegeven'
|
|
OR MLD_S.mld_statusopdr_omschrijving = 'Afgemeld')
|
|
AND PRS_B.prs_bestek_key = PRS_DB.prs_bestek_key
|
|
AND PRS_DB.prs_disciplinebestek_key = MLD_O.mld_uitvoerende_keys
|
|
GROUP BY PRS_B.prs_bestek_key;
|
|
#endif // MLD
|
|
|
|
#ifdef BCP
|
|
CREATE_VIEW(prs_v_bcp_bestek_geraamd, NORMAAL_PRIVILEGE)
|
|
(prs_bestek_key,
|
|
prs_bestek_geraamd
|
|
) AS
|
|
SELECT PRS_B.prs_bestek_key,
|
|
SUM(NVL(BCP_P.bcp_prevopdr_materiaal, 0))
|
|
FROM prs_bestek PRS_B, prs_disciplinebestek PRS_DB, bcp_prevopdr BCP_P,
|
|
mld_statusopdr MLD_S
|
|
WHERE BCP_P.bcp_mld_statusopdr_key = MLD_S.mld_statusopdr_key
|
|
AND (MLD_S.mld_statusopdr_omschrijving = 'Uitgegeven'
|
|
OR MLD_S.mld_statusopdr_omschrijving = 'Afgemeld')
|
|
AND PRS_B.prs_bestek_key = PRS_DB.prs_bestek_key
|
|
AND PRS_DB.prs_disciplinebestek_key = BCP_P.bcp_mld_uitvoerende_keys
|
|
AND BCP_P.bcp_prevopdr_verwijder IS NULL
|
|
GROUP BY PRS_B.prs_bestek_key;
|
|
#endif // BCP
|
|
|
|
#ifdef INS
|
|
CREATE_VIEW(prs_v_prs_bestek_gegevens, NORMAAL_PRIVILEGE)
|
|
(prs_bestek_key,
|
|
prs_bestek_nr,
|
|
prs_bestek_upper_nr,
|
|
prs_bestek_omschrijving,
|
|
prs_bestek_materiaalpost,
|
|
prs_bestek_materiaalbesteed,
|
|
prs_bestek_materiaalgeraamd,
|
|
prs_bestek_begindatum,
|
|
prs_bestek_einddatum) AS
|
|
SELECT PRS_B.prs_bestek_key,
|
|
PRS_B.prs_bestek_nr,
|
|
PRS_B.prs_bestek_upper_nr,
|
|
PRS_B.prs_bestek_omschrijving,
|
|
PRS_B.prs_bestek_materiaalpost,
|
|
PRS_B.prs_bestek_materiaalbesteed,
|
|
SUM(
|
|
#ifdef MLD
|
|
NVL(MLD_B.prs_bestek_geraamd, 0)
|
|
#else
|
|
0
|
|
#endif
|
|
+
|
|
#ifdef BCP
|
|
NVL(BCP_B.prs_bestek_geraamd, 0)
|
|
#else
|
|
0
|
|
#endif
|
|
),
|
|
PRS_B.prs_bestek_begindatum,
|
|
PRS_B.prs_bestek_einddatum
|
|
FROM prs_bestek PRS_B
|
|
#ifdef MLD
|
|
, prs_v_mld_bestek_geraamd MLD_B
|
|
#endif
|
|
#ifdef BCP
|
|
, prs_v_bcp_bestek_geraamd BCP_B
|
|
#endif
|
|
WHERE PRS_B.prs_bestek_key IS NOT NULL
|
|
#ifdef MLD
|
|
AND MLD_B.prs_bestek_key (+) = PRS_B.prs_bestek_key
|
|
#endif
|
|
#ifdef BCP
|
|
AND BCP_B.prs_bestek_key (+) = PRS_B.prs_bestek_key
|
|
#endif
|
|
GROUP BY PRS_B.prs_bestek_key,
|
|
PRS_B.prs_bestek_nr,
|
|
PRS_B.prs_bestek_upper_nr,
|
|
PRS_B.prs_bestek_omschrijving,
|
|
PRS_B.prs_bestek_materiaalpost,
|
|
PRS_B.prs_bestek_materiaalbesteed,
|
|
PRS_B.prs_bestek_begindatum,
|
|
PRS_B.prs_bestek_einddatum;
|
|
#endif // INS
|
|
|
|
#ifdef BCO
|
|
DEF_FAC_MESSAGE ('PRS_M092', 'Er zijn nog opdrachten bij dit object.');
|
|
#else
|
|
DEF_FAC_MESSAGE ('PRS_M092', 'Er zijn nog opdrachten bij deze locatie.');
|
|
#endif
|
|
|
|
#ifdef PRS
|
|
CREATE TRIGGER prs_t_prs_locatiebestek_B_D
|
|
BEFORE DELETE ON prs_locatiebestek
|
|
FOR EACH ROW
|
|
BEGIN
|
|
#ifdef MLD
|
|
DECLARE
|
|
dummy CHAR;
|
|
BEGIN
|
|
SELECT 'X'
|
|
INTO dummy
|
|
FROM prs_disciplinebestek PRS_DB, mld_opdr MLD_O,
|
|
mld_melding MLD_M, mld_v_onroerendgoed_locatie MLD_OL,
|
|
mld_statusopdr MLD_S
|
|
WHERE MLD_M.mld_alg_onroerendgoed_keys = MLD_OL.alg_onroerendgoed_keys
|
|
AND MLD_OL.alg_locatie_key = :old.alg_locatie_key
|
|
AND MLD_O.mld_melding_key = MLD_M.mld_melding_key
|
|
AND MLD_S.mld_statusopdr_key = MLD_O.mld_statusopdr_key
|
|
AND MLD_S.mld_statusopdr_omschrijving = 'Uitgegeven'
|
|
AND PRS_DB.prs_disciplinebestek_key = MLD_O.mld_uitvoerende_keys
|
|
AND PRS_DB.prs_bestek_key = :old.prs_bestek_key;
|
|
APPLICATION_ERROR(-20002, 'prs_m092');
|
|
EXCEPTION
|
|
WHEN NO_DATA_FOUND
|
|
THEN NULL;
|
|
WHEN TOO_MANY_ROWS
|
|
THEN APPLICATION_ERROR(-20002, 'prs_m092');
|
|
END;
|
|
#endif
|
|
#ifdef BCP
|
|
DECLARE
|
|
dummy CHAR;
|
|
BEGIN
|
|
SELECT 'X'
|
|
INTO dummy
|
|
FROM prs_disciplinebestek PRS_DB, bcp_prevopdr BCP_P,
|
|
bcp_taak BCP_T, mld_v_onroerendgoed_locatie MLD_OL,
|
|
mld_statusopdr MLD_S
|
|
WHERE BCP_T.bcp_alg_gebouw_key = MLD_OL.alg_onroerendgoed_keys
|
|
AND MLD_OL.alg_locatie_key = :old.alg_locatie_key
|
|
AND BCP_P.bcp_taak_key = BCP_T.bcp_taak_key
|
|
AND MLD_S.mld_statusopdr_key = BCP_P.bcp_mld_statusopdr_key
|
|
AND MLD_S.mld_statusopdr_omschrijving = 'Uitgegeven'
|
|
AND PRS_DB.prs_disciplinebestek_key = BCP_P.bcp_mld_uitvoerende_keys
|
|
AND PRS_DB.prs_bestek_key = :old.prs_bestek_key;
|
|
APPLICATION_ERROR(-20002, 'prs_m092');
|
|
EXCEPTION
|
|
WHEN NO_DATA_FOUND
|
|
THEN NULL;
|
|
WHEN TOO_MANY_ROWS
|
|
THEN APPLICATION_ERROR(-20002, 'prs_m092');
|
|
END;
|
|
#endif
|
|
#if !defined(MLD) && !defined(BCP)
|
|
NULL;
|
|
#endif
|
|
END;
|
|
/
|
|
#endif
|
|
|
|
#ifdef PRS
|
|
UPDATE prs_bestek
|
|
SET prs_bestek_documentatie = NULL;
|
|
|
|
ALTER TABLE prs_bestek
|
|
MODIFY
|
|
(
|
|
prs_bestek_documentatie
|
|
VARCHAR2(255)
|
|
);
|
|
#endif
|
|
#ifdef INS
|
|
UPDATE ins_deel
|
|
SET bco_deel_documentatie = NULL;
|
|
|
|
ALTER TABLE ins_deel
|
|
MODIFY
|
|
(
|
|
bco_deel_documentatie
|
|
VARCHAR2(255)
|
|
);
|
|
|
|
REM 06-11-96/KTH achteraf toegevoegd, bleek vergeten door AH?!
|
|
ALTER TABLE ins_deel
|
|
ADD
|
|
(
|
|
ins_deel_realisatie
|
|
VARCHAR2(6)
|
|
);
|
|
|
|
#endif
|
|
#ifdef BCO
|
|
DROP PROCEDURE kopieer_deel;
|
|
CREATE PROCEDURE kopieer_deel (deel_key NUMBER,
|
|
nieuw_deel_key NUMBER,
|
|
plaats_key NUMBER,
|
|
plaats_type VARCHAR2) AS
|
|
documentatie_veld ins_deel.bco_deel_documentatie%TYPE;
|
|
BEGIN
|
|
|
|
SELECT bco_deel_documentatie INTO documentatie_veld
|
|
FROM ins_deel WHERE ins_deel_key = deel_key;
|
|
|
|
INSERT INTO ins_deel (ins_deel_key,
|
|
ins_deel_module,
|
|
ins_srtdeel_key,
|
|
ins_alg_ruimte_key,
|
|
ins_alg_ruimte_type,
|
|
ins_deel_aantal,
|
|
ins_deel_omschrijving,
|
|
ins_deel_fabrikaat,
|
|
ins_deel_type,
|
|
ins_deel_serienr,
|
|
ins_deel_bouwjaar,
|
|
ins_deel_capaciteit,
|
|
ins_deel_prijs,
|
|
ins_deel_levensduur,
|
|
ins_deel_opmerking,
|
|
bco_deel_prevprint,
|
|
bco_deel_documentatie)
|
|
SELECT nieuw_deel_key,
|
|
ins_deel_module,
|
|
ins_srtdeel_key,
|
|
plaats_key,
|
|
plaats_type,
|
|
ins_deel_aantal,
|
|
ins_deel_omschrijving,
|
|
ins_deel_fabrikaat,
|
|
ins_deel_type,
|
|
ins_deel_serienr,
|
|
ins_deel_bouwjaar,
|
|
ins_deel_capaciteit,
|
|
ins_deel_prijs,
|
|
ins_deel_levensduur,
|
|
ins_deel_opmerking,
|
|
bco_deel_prevprint,
|
|
documentatie_veld
|
|
FROM ins_deel
|
|
WHERE ins_deel_key = deel_key;
|
|
END;
|
|
/
|
|
#endif // BCO
|
|
DEF_FAC_MESSAGE ('PRS_M093', 'File %1% bestaat niet.');
|
|
|
|
#ifdef BEB
|
|
|
|
DELETE FROM fac_entity_name
|
|
WHERE fac_entity_system_name in
|
|
('ALG_TERREINSECTOR',
|
|
'ALG_TERREINSECTOR_B',
|
|
'ALG_TERREINSECTOR_CODE',
|
|
'ALG_TERREINSECTOR_NAAM');
|
|
|
|
INSERT INTO FAC_ENTITY_NAME VALUES('ALG_TERREINSECTOR', 'Terrein/Werk', 'Terreinen/Werken', 'het');
|
|
INSERT INTO FAC_ENTITY_NAME VALUES('ALG_TERREINSECTOR_B', 'Terrein/Werk', 'Terreinen/Werken', 'het');
|
|
INSERT INTO FAC_ENTITY_NAME VALUES('ALG_TERREINSECTOR_CODE','Terreincode', 'Terreincodes', 'de');
|
|
INSERT INTO FAC_ENTITY_NAME VALUES('ALG_TERREINSECTOR_NAAM','Terreinnaam', 'Terreinnamen', 'de');
|
|
|
|
DELETE FROM fac_message
|
|
WHERE fac_message_code IN
|
|
('ALG_M090',
|
|
'ALG_M125',
|
|
'ALG_M126',
|
|
'ALG_M164',
|
|
'ALG_M165',
|
|
'ALG_M175',
|
|
'ALG_M174',
|
|
'BCP_M054',
|
|
'BCP_M078',
|
|
'INS_M83',
|
|
'INS_M095',
|
|
'BEV_M003',
|
|
'MLD_M40',
|
|
'MLD_M44',
|
|
'MLD_M53',
|
|
'MRA_M017',
|
|
'MRA_M018',
|
|
'MRA_M023',
|
|
'MRA_BEST_T',
|
|
'SLE_M3');
|
|
|
|
|
|
|
|
INSERT INTO FAC_MESSAGE VALUES('ALG_M090', 'Het gebouw, de bouwlaag, de ruimte of het terrein/werk bestaat niet.');
|
|
INSERT INTO FAC_MESSAGE VALUES('ALG_M125', 'Omschrijving voor het terrein/werk is niet ingevuld.' );
|
|
INSERT INTO FAC_MESSAGE VALUES('ALG_M126', 'Omschrijving voor het terrein/werk bestaat al.');
|
|
INSERT INTO FAC_MESSAGE VALUES('ALG_M164', 'Gebouw/Terrein/Werk bij systeemcluster');
|
|
INSERT INTO FAC_MESSAGE VALUES('ALG_M165', 'Verwijderen gebouw/terrein/werk bij systeemcluster ');
|
|
INSERT INTO FAC_MESSAGE VALUES('ALG_M175', 'Gebouw en terrein/werk kunnen niet beide ingevuld worden.');
|
|
INSERT INTO FAC_MESSAGE VALUES('ALG_M174', 'Gebouw of terrein/werk is niet ingevuld.');
|
|
INSERT INTO FAC_MESSAGE VALUES('BCP_M054','Installatiewaarde per gebouw/terrein/werk');
|
|
INSERT INTO FAC_MESSAGE VALUES('BCP_M078', 'Aantal extra taken aangemaakt voor Terreinen/Werken: %1%');
|
|
INSERT INTO FAC_MESSAGE VALUES('INS_M83', 'De ruimte of het terrein/werk bestaat niet.');
|
|
INSERT INTO FAC_MESSAGE VALUES('INS_M095', 'Terrein/Werk bestaat niet.');
|
|
INSERT INTO FAC_MESSAGE VALUES('BEV_M003', 'Gebouw of terrein/werk moet ingevuld worden.');
|
|
INSERT INTO FAC_MESSAGE VALUES('MLD_M40', 'Gebouw of terrein/werk is niet ingevuld.');
|
|
INSERT INTO FAC_MESSAGE VALUES('MLD_M44', 'Gebouw, bouwlaag, ruimte of terrein/werk is niet ingevuld.');
|
|
INSERT INTO FAC_MESSAGE VALUES('MLD_M53', 'Gebouw, bouwlaag of ruimte en terrein/werk zijn beide ingevuld.');
|
|
INSERT INTO FAC_MESSAGE VALUES('MRA_M017','Verwijderen terrein/werk ');
|
|
INSERT INTO FAC_MESSAGE VALUES('MRA_M018','Omschrijving terrein/werk is niet ingevuld');
|
|
INSERT INTO FAC_MESSAGE VALUES('MRA_M023','De omschrijving van de terrein/werk bestaat al');
|
|
INSERT INTO FAC_MESSAGE VALUES('MRA_BEST_T', 'Bestemming bij terrein/werk');
|
|
INSERT INTO FAC_MESSAGE VALUES('SLE_M3', 'Het gebouw, de bouwlaag, de ruimte of de terrein/werk is niet ingevuld.');
|
|
#endif
|
|
|
|
DELETE FROM fac_entity_name
|
|
WHERE fac_entity_system_name = 'RMC_MENU_LABEL';
|
|
INSERT INTO FAC_ENTITY_NAME VALUES('RMC_MENU_LABEL', 'NATCO-indeling', NULL, 'de');
|
|
|
|
DELETE FROM fac_message
|
|
WHERE fac_message_code IN ('BEB_MI19',
|
|
'BEB_MI30',
|
|
'BEB_MI31');
|
|
|
|
INSERT INTO FAC_MESSAGE VALUES('BEB_MI19', 'c. Langs welke weg wordt gemeld');
|
|
INSERT INTO FAC_MESSAGE VALUES('BEB_MI30', ' - Welke jaar werd het systeem aangebracht');
|
|
INSERT INTO FAC_MESSAGE VALUES('BEB_MI31', ' - Welke jaar laatste renovatie verricht');
|
|
|
|
DELETE FROM fac_message
|
|
WHERE fac_message_code IN ('INS_M107');
|
|
|
|
INSERT INTO FAC_MESSAGE VALUES('INS_M107', 'Alle plaatsen afdrukken');
|
|
INSERT INTO FAC_ENTITY_NAME VALUES('BEV_PRINT_TOTAAL', 'TOTAAL', NULL, NULL);
|
|
INSERT INTO FAC_ENTITY_NAME VALUES('BEV_VULLING_VERSIE', 'REGIS 1.00', NULL, NULL);
|
|
|
|
DELETE FROM fac_message
|
|
WHERE fac_message_code IN ('INS_M110', 'BEB_MI4');
|
|
|
|
INSERT INTO FAC_MESSAGE VALUES('INS_M110', 'Inventarisatie Meldingsystemen');
|
|
INSERT INTO FAC_MESSAGE VALUES('BEB_MI4', '2. Informatie meldingsysteem');
|
|
|
|
DEF_FAC_MESSAGE ('ALG_M188', 'Object %1% behoort nu tot garnizoen %2%. Doorgaan?');
|
|
DEF_FAC_MESSAGE ('ALG_M189', 'Gebouw %1% behoort nu tot systeemcluster %2%. Doorgaan?');
|
|
DEF_FAC_MESSAGE ('ALG_M190', 'Terrein/Werk %1% behoort nu tot systeemcluster %2%. Doorgaan?');
|
|
DEF_FAC_MESSAGE ('ALG_M191', 'Bouwlaag %1% behoort nu tot bouwdeel %2%. Doorgaan?');
|
|
INSERT INTO FAC_MESSAGE VALUES('INS_M111', 'Pagina %1% geprint.');
|
|
INSERT INTO FAC_MESSAGE VALUES('INS_M112', 'Voorbereiden pagina %1%.');
|
|
INSERT INTO FAC_MESSAGE VALUES('BEV_M011', 'Bouwlaag is wel ingevuld en ruimte niet.');
|
|
|
|
DELETE FROM fac_message
|
|
WHERE fac_message_code in ('BCO_M131',
|
|
'BCO_M097', 'BCO_M56');
|
|
|
|
INSERT INTO FAC_MESSAGE VALUES('BCO_M131', 'De maatregel wordt nog gebruikt in opdrachten.');
|
|
INSERT INTO FAC_MESSAGE VALUES('BCO_M097', 'De maatregel wordt nog gebruikt bij defecten.');
|
|
INSERT INTO FAC_MESSAGE VALUES('BCO_M56', 'Verwijderen jaarweek %1% van persoon %2%?');
|
|
|
|
DELETE FROM fac_message
|
|
WHERE fac_message_code in ('PRS_M019');
|
|
|
|
|
|
INSERT INTO FAC_MESSAGE VALUES('PRS_M019', 'Verwijderen persoon ');
|
|
|
|
DEF_FAC_MESSAGE ('PRS_M094', '%1% kan niet gestart worden.');
|
|
DEF_FAC_MESSAGE ('ALG_M192', 'Het huidge record is gewijzigd door iemand anders');
|
|
|
|
DELETE FROM fac_message
|
|
WHERE fac_message_code in ('BEB_MI30', BEB_MI31', 'BEB_MI32');
|
|
|
|
INSERT INTO FAC_MESSAGE VALUES('BEB_MI30', ' - Welk jaar werd het systeem aangebracht');
|
|
INSERT INTO FAC_MESSAGE VALUES('BEB_MI31', ' - Welk jaar laatste renovatie verricht');
|
|
INSERT INTO FAC_MESSAGE VALUES('BEB_MI32', 'h. Geschatte technische levensduur vanvaf 1995');
|
|
INSERT INTO FAC_MESSAGE VALUES('PRS_M095', 'Verwijderen afdeling/persoon ');
|
|
INSERT INTO FAC_MESSAGE VALUES('ALG_M193', 'Het garnizoen is niet ingevuld.');
|
|
|
|
PROMPT Vergeet niet te committen!
|