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

IMPU#75441 -- Verbetering spoedindicatie interne opdrachten - uitrol PROD

Browse Source 
svn path=/Customer/trunk/; revision=58110
This commit is contained in:
Jos Migo
2022-11-24 09:37:25 +00:00
parent 65f2ff6d98
commit aa92545801
1 changed files with 23 additions and 134 deletions
Download Patch File Download Diff File Expand all files Collapse all files

157
IMPU/impu.sql
View File

@@ -23,121 +23,6 @@ SET DEFINE OFF
------ payload begin ------
CREATE OR REPLACE FUNCTION impu_get_kenmerkwaarde (
p_kenmerk_type VARCHAR2,
p_kenmerkdomein_key NUMBER,
p_kenmerk_waarde VARCHAR2)
RETURN VARCHAR2
AS
v_result VARCHAR2(4000);
BEGIN
IF p_kenmerk_type = 'R' OR p_kenmerk_type = 'S' THEN
v_result := fac.getdomeinwaarde (p_kenmerkdomein_key,
p_kenmerk_waarde);
ELSIF p_kenmerk_type = 'D' THEN
v_result := TO_CHAR (fac.safe_to_date (p_kenmerk_waarde, 'dd-mm-yyyy'), 'yyyy-mm-dd');
ELSE
v_result := p_kenmerk_waarde;
END IF;
return v_result;
END;
/
CREATE OR REPLACE FUNCTION impu_get_kenmerk (p_module IN VARCHAR2,
p_kenmerk_key IN NUMBER,
p_link_key IN NUMBER)
RETURN VARCHAR2
AS
v_kenmerk_type mld_srtkenmerk.mld_srtkenmerk_kenmerktype%TYPE;
v_kenmerk_waarde mld_kenmerkmelding.mld_kenmerkmelding_waarde%TYPE;
v_kenmerkdomein_key fac_kenmerkdomein.fac_kenmerkdomein_key%TYPE;
v_kenmerk_niveau ins_kenmerk.ins_kenmerk_niveau%TYPE;
BEGIN
CASE p_module
WHEN 'MLD'
THEN
SELECT mld_srtkenmerk_kenmerktype,
sk.fac_kenmerkdomein_key,
km.mld_kenmerkmelding_waarde
INTO v_kenmerk_type,
v_kenmerkdomein_key,
v_kenmerk_waarde
FROM mld_v_aanwezigkenmerkmelding km,
mld_kenmerk k,
mld_srtkenmerk sk
WHERE km.mld_melding_key = p_link_key
AND km.mld_kenmerk_key = p_kenmerk_key
AND km.mld_kenmerk_key = k.mld_kenmerk_key
AND k.mld_srtkenmerk_key = sk.mld_srtkenmerk_key;
WHEN 'CNT'
THEN
SELECT cnt_srtkenmerk_kenmerktype,
sk.fac_kenmerkdomein_key,
kc.cnt_kenmerkcontract_waarde
INTO v_kenmerk_type,
v_kenmerkdomein_key,
v_kenmerk_waarde
FROM cnt_kenmerkcontract kc,
cnt_kenmerk k,
cnt_srtkenmerk sk
WHERE kc.cnt_contract_key = p_link_key
AND kc.cnt_kenmerk_key = p_kenmerk_key
AND kc.cnt_kenmerk_key = k.cnt_kenmerk_key
AND k.cnt_srtkenmerk_key = sk.cnt_srtkenmerk_key;
WHEN 'ALG'
THEN
SELECT alg_kenmerk_kenmerktype,
k.fac_kenmerkdomein_key,
aogk.alg_onrgoedkenmerk_waarde
INTO v_kenmerk_type,
v_kenmerkdomein_key,
v_kenmerk_waarde
FROM alg_onrgoedkenmerk aogk, alg_kenmerk k
WHERE aogk.alg_onrgoed_key = p_link_key
AND aogk.alg_kenmerk_key = p_kenmerk_key
AND aogk.alg_kenmerk_key = k.alg_kenmerk_key;
WHEN 'INS'
THEN
SELECT k.ins_kenmerk_niveau
INTO v_kenmerk_niveau
FROM ins_kenmerk k
WHERE ins_kenmerk_key = p_kenmerk_key;
IF v_kenmerk_niveau = 'C' THEN
SELECT sk.ins_srtkenmerk_kenmerktype,
sk.fac_kenmerkdomein_key,
ikds.ins_kmdeelsrtcontr_waarde
INTO v_kenmerk_type,
v_kenmerkdomein_key,
v_kenmerk_waarde
FROM ins_kmdeelsrtcontr ikds, ins_kenmerk k, ins_srtkenmerk sk
WHERE ikds.ins_deelsrtcontrole_key = p_link_key
AND ikds.ins_kmdeelsrtcontr_verwijder IS NULL
AND ikds.ins_kenmerk_key = p_kenmerk_key
AND ikds.ins_kenmerk_key = k.ins_kenmerk_key
AND k.ins_srtkenmerk_key = sk.ins_srtkenmerk_key;
ELSE
SELECT sk.ins_srtkenmerk_kenmerktype,
sk.fac_kenmerkdomein_key,
ikd.ins_kenmerkdeel_waarde
INTO v_kenmerk_type,
v_kenmerkdomein_key,
v_kenmerk_waarde
FROM ins_kenmerkdeel ikd, ins_kenmerk k, ins_srtkenmerk sk
WHERE ikd.ins_deel_key = p_link_key
AND ikd.ins_kenmerkdeel_verwijder IS NULL
AND ikd.ins_kenmerk_key = p_kenmerk_key
AND ikd.ins_kenmerk_key = k.ins_kenmerk_key
AND k.ins_srtkenmerk_key = sk.ins_srtkenmerk_key;
END IF;
END CASE;
RETURN impu_get_kenmerkwaarde (v_kenmerk_type,
v_kenmerkdomein_key,
v_kenmerk_waarde);
END;
/
-------------------------------
--- DOMEIN-VIEWS --------------
-------------------------------
@@ -846,7 +731,7 @@ CREATE OR REPLACE VIEW impu_v_ict_nummers_man
AS
SELECT
nr.ins_deel_upper,
impu_get_kenmerk('INS',42, nr.ins_deel_key) provider,
flx.getdomeinwaarde(21,flx.getflex('INS', 42, nr.ins_deel_key)) provider,
CASE WHEN d.ins_deel_upper IS NOT NULL THEN 'Gekoppeld' ELSE 'Vrij' END
status,
d.ins_deel_upper,
@@ -945,22 +830,22 @@ AS
v.alg_ruimte_omschrijving,
sr.alg_srtruimte_omschrijving,
r.alg_ruimte_bruto_vloeropp,
impu_get_kenmerk('ALG',1040, r.alg_ruimte_key) vloersoort
flx.getdomeinwaarde(25, flx.getflex('ALG', 1040, r.alg_ruimte_key, 'R')) vloersoort
FROM alg_v_onroerendgoed_gegevens v,
alg_locatie l,
alg_district d,
(SELECT l.alg_locatie_key,
impu_get_kenmerk('ALG',1016, l.alg_locatie_key) locatiemanager,
impu_get_kenmerk('ALG',1018, l.alg_locatie_key) regiomanager,
impu_get_kenmerk('ALG',1019, l.alg_locatie_key) contact_toelichting,
impu_get_kenmerk('ALG',1005, l.alg_locatie_key) gebruiksrecht,
impu_get_kenmerk('ALG',1007, l.alg_locatie_key) dienst_afval,
impu_get_kenmerk('ALG',1008, l.alg_locatie_key) dienst_schoonmaak,
impu_get_kenmerk('ALG',1009, l.alg_locatie_key) dienst_telefonie,
impu_get_kenmerk('ALG',1011, l.alg_locatie_key) eigenaarschap_toelichting,
impu_get_kenmerk('ALG',1001, l.alg_locatie_key) KDV,
impu_get_kenmerk('ALG',1002, l.alg_locatie_key) VO,
impu_get_kenmerk('ALG',1003, l.alg_locatie_key) BSO
flx.getdomeinwaarde(2, flx.getflex('ALG',1016, l.alg_locatie_key,'L')) locatiemanager,
flx.getdomeinwaarde(2, flx.getflex('ALG',1018, l.alg_locatie_key,'L')) regiomanager,
flx.getflex('ALG',1019, l.alg_locatie_key,'L') contact_toelichting,
flx.getdomeinwaarde(1,flx.getflex('ALG',1005, l.alg_locatie_key,'L')) gebruiksrecht,
flx.getflex('ALG',1007, l.alg_locatie_key,'L') dienst_afval,
flx.getflex('ALG',1008, l.alg_locatie_key,'L') dienst_schoonmaak,
flx.getflex('ALG',1009, l.alg_locatie_key,'L') dienst_telefonie,
flx.getflex('ALG',1011, l.alg_locatie_key,'L') eigenaarschap_toelichting,
flx.getflex('ALG',1001, l.alg_locatie_key,'L') KDV,
flx.getflex('ALG',1002, l.alg_locatie_key,'L') VO,
flx.getflex('ALG',1003, l.alg_locatie_key,'L') BSO
FROM alg_locatie l ) km,
alg_ruimte r,
alg_srtruimte sr
@@ -992,9 +877,9 @@ CREATE OR REPLACE VIEW impu_v_rap_opdrachten_intern
AFMELD_DATUM,
OPDRACHT_TYPE,
TD_NAAM,
FILTERSTATUS,
FILTERSTATUS, -- Bolletje
FILTERSTATUS_TD,
SORTERING
FILTERSTATUS_BO
)
AS
SELECT CASE
@@ -1051,10 +936,10 @@ AS
WHEN mu.TYPE = 'P' THEN mu.naam
ELSE '<?>'
END TD_NAAM,
(CASE
CASE
WHEN o.mld_opdr_flag>0 THEN Lcl.L('lcl_opdr_flag' || o.mld_opdr_flag)
ELSE ''
END) filterstatus,
END filterstatus,
(SELECT ud.fac_usrdata_omschr
FROM mld_kenmerkopdr ko, mld_kenmerk km, fac_usrdata ud
WHERE ko.mld_opdr_key = o.mld_opdr_key
@@ -1063,8 +948,12 @@ AS
AND ud.fac_usrtab_key = 22 -- domeinview filterstatus
AND ko.mld_kenmerk_key = 11) -- filterstatus TD
filterstatus_td,
DECODE(o.mld_opdr_flag, 2, 1, NULL) -- markering SPOED
sortering
(SELECT DECODE(mld_kenmerkopdr_waarde, '1', 'SPOED', NULL)
FROM mld_kenmerkopdr ko, mld_kenmerk km
WHERE ko.mld_opdr_key = o.mld_opdr_key
AND ko.mld_kenmerk_key = km.mld_kenmerk_key
AND km.mld_srtkenmerk_key = 101) -- spoedindicatie door backoffice
filterstatus_bo
FROM mld_opdr o,
mld_melding m,
mld_typeopdr ot,