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

WDKA#68779 -- Inrichten Wedeka

Browse Source 
svn path=/Customer/trunk/; revision=57895
This commit is contained in:
Norbert Wassink
2022-11-07 11:47:24 +00:00
parent 2fc2c60ea1
commit ecc94c4302
1 changed files with 73 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

81
WDKA/WDKA.sql
View File

@@ -30,6 +30,8 @@ SET DEFINE OFF
CREATE OR REPLACE PACKAGE WDKA
AS
PROCEDURE insert_object(p_objectNr IN VARCHAR2, p_mld_melding_key IN NUMBER);
PROCEDURE insert_ctr_kenmerk (p_srtcontrole_key IN NUMBER);
PROCEDURE setKenmerkObject(p_ins_key IN NUMBER, p_ins_srtinstallatie_key IN NUMBER, p_kenmerk_omschrijving IN VARCHAR2, p_kenmerk_waarde IN VARCHAR2);
@@ -44,6 +46,68 @@ END;
CREATE OR REPLACE PACKAGE BODY WDKA
AS
PROCEDURE insert_object(p_objectNr IN VARCHAR2, p_mld_melding_key IN NUMBER)
AS
v_objectNr VARCHAR2(20):='';
v_objectSoortKey VARCHAR2(10):='';
v_aanmaak VARCHAR2(10):='';
v_alg_ruimte_key NUMBER:=0;
v_aanwezig NUMBER:=0;
v_ins_deel_key NUMBER:=0;
BEGIN
-- We halen eerts de object identiofocatio op
v_objectNr := p_objectNr;
--SELECT mkm.mld_kenmerkmelding_waarde INTO v_objectNr from mld_melding m, mld_kenmerkmelding mkm where m.mld_melding_key=p_mld_melding_key AND mkm.mld_melding_key=m.mld_melding_key AND mkm.mld_kenmerk_key=41;
-- Welk objectsoort is er gekozen
SELECT mkm.mld_kenmerkmelding_waarde
INTO v_objectSoortKey
FROM mld_melding m, mld_kenmerkmelding mkm
WHERE m.mld_melding_key=p_mld_melding_key
AND mkm.mld_melding_key=m.mld_melding_key
AND mkm.mld_kenmerk_key=2; -- D=2, A=201
-- Moeten we een object aanmaken
SELECT mkm.mld_kenmerkmelding_waarde
INTO v_aanmaak
FROM mld_melding m, mld_kenmerkmelding mkm
WHERE m.mld_melding_key=p_mld_melding_key
AND mkm.mld_melding_key=m.mld_melding_key
AND mkm.mld_kenmerk_key=3; -- D=3, A=181
-- We halen de alg_ruimte_key op van de locatie Onbekend/ ruimte 999999
SELECT alg_ruimte_key
INTO v_alg_ruimte_key
FROM ALG_V_ALLONRGOED_GEGEVENS
WHERE alg_ruimte_nr='999999'
AND alg_gebouw_code='99.9';
SELECT count(*) into v_aanwezig
FROm ins_deel
WHERE ins_deel_omschrijving=v_objectNr
AND ins_deel_verwijder IS NULL;
IF (v_aanwezig = 0 AND v_aanmaak='82') THEN -- D=82, A=1501
INSERT INTO ins_deel(ins_deel_omschrijving, ins_deel_aanmaak, ins_srtdeel_key, ins_deel_actief, ins_alg_ruimte_key, ins_alg_ruimte_type)
VALUES(v_objectNr, SYSDATE, v_objectSoortKey, 0, v_alg_ruimte_key ,'R')
RETURNING ins_deel_key
INTO v_ins_deel_key;
fac.trackaction ('INSNEW', v_ins_deel_key, 3, SYSDATE,
'Object '||v_objectNr||' geregistreerd uit melding '||p_mld_melding_key||'.');
IF (v_ins_deel_key>0) THEN
INSERT INTO mld_melding_object(ins_deel_key, mld_melding_key, mld_melding_object_aanmaak)
VALUES(v_ins_deel_key, p_mld_melding_key, SYSDATE);
END IF;
fac.trackaction ('MLDUPD', p_mld_melding_key, 3, SYSDATE,
'Object '||v_objectNr||' toegevoegd aan melding.');
END IF;
EXCEPTION WHEN NO_DATA_FOUND THEN
fac.trackaction ('MLDUPD', p_mld_melding_key, 3, SYSDATE,
'Fout bij aanmaken object '||v_objectNr);
END;
-- Aanmaken van resultaat kenmerken bij periodiek taak
PROCEDURE insert_ctr_kenmerk (p_srtcontrole_key IN NUMBER)
AS
@@ -1859,17 +1923,18 @@ END;
/
-- Domein-view tbv. Aanvraag ARBO-middelen!
CREATE OR REPLACE VIEW WDKA_V_UITVOERENDELEV
-- kenmkerdomein-view tbv. Aanvraag Objectensoort!
CREATE OR REPLACE VIEW WDKA_V_INS_SRT
(
fac_usrdata_key,
omschrijving,
vervaldatum
FAC_USRDATA_KEY,
FAC_USRDATA_OMSCHR
)
AS
SELECT prs_bedrijf_key,prs_bedrijf_naam,NULL
FROM prs_bedrijf
WHERE prs_bedrijf_uitvoerende=1 AND prs_bedrijf_verwijder IS NULL;
SELECT isd.ins_srtdeel_key, ig.ins_srtgroep_omschrijving||'>'||isd.ins_srtdeel_omschrijving
FROM ins_srtdeel isd, ins_srtgroep ig
WHERE ig.ins_srtgroep_key=isd.ins_srtgroep_key
ORDER BY ig.ins_srtgroep_omschrijving, isd.ins_srtdeel_omschrijving;
CREATE OR REPLACE VIEW WDKA_V_INS_LEVERANCIER
(