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

CONN#19238+CONN#20803

Browse Source 
svn path=/Customer/trunk/; revision=14833
This commit is contained in:
Maarten van der Heide
2011-06-09 15:47:42 +00:00
parent f953d9a8d5
commit 93f2749fbe
2 changed files with 598 additions and 225 deletions
Download Patch File Download Diff File Expand all files Collapse all files

124
CONN/Once/CONN44.sql
View File

@@ -1,8 +1,8 @@
-- Customer specific once-script CONN44. -- Customer specific once-script CONN44.
-- --
-- (c) 2011 SG|facilitor bv -- (c) 2011 SG|facilitor bv
-- $Revision: 2 $ -- $Revision: 3 $
-- $Modtime: 7-06-11 14:40 $ -- $Modtime: 9-06-11 14:50 $
-- --
-- Support: +31 53 4800700 -- Support: +31 53 4800700
SET ECHO ON SET ECHO ON
@@ -26,6 +26,7 @@ CREATE TABLE conn_imp_inspectieobj
bereik VARCHAR2 (60), -- C60 bereik VARCHAR2 (60), -- C60
voltage VARCHAR2 (60), -- C60 voltage VARCHAR2 (60), -- C60
apkplicht VARCHAR2 (60), -- C60 apkplicht VARCHAR2 (60), -- C60
categorie VARCHAR2 (60), -- C60
prs_bedrijf_naam VARCHAR2 (60), -- C60 prs_bedrijf_naam VARCHAR2 (60), -- C60
ins_srtcontrole_omschrijving VARCHAR2 (60), -- C60 ins_srtcontrole_omschrijving VARCHAR2 (60), -- C60
--periode NUMBER(4), -- N4 --periode NUMBER(4), -- N4
@@ -111,14 +112,37 @@ UPDATE ins_deel
COMMIT; COMMIT;
-- CONN#20803
INSERT INTO fac_srtnotificatie
(fac_srtnotificatie_code, fac_srtnotificatie_mode,
fac_srtnotificatie_oms, fac_srtnotificatie_xmlnode,
fac_srtnotificatie_groep
)
VALUES ('CUST01', 2,
'Reminder: Object(en) 4-5 weken voor keuringsdatum (##SRTGROEP##)', 'object',
0
);
INSERT INTO fac_srtnotificatie
(fac_srtnotificatie_code, fac_srtnotificatie_mode,
fac_srtnotificatie_oms, fac_srtnotificatie_xmlnode,
fac_srtnotificatie_groep
)
VALUES ('CUST02', 2,
'LET OP: Keuringdatum van object(en) is verstreken (##SRTGROEP##)', 'object',
0
);
COMMIT;
-- Converteer Datum gekeurd, Datum volgende keuring en - voor objectsoort -- Converteer Datum gekeurd, Datum volgende keuring en - voor objectsoort
-- 27844='Slipvangers en OBAS' - Bouwjaar -- 27844='Slipvangers en OBAS' - Bouwjaar
/* Formatted on 7-6-2011 10:32:16 (QP5 v5.115.810.9015) */ /* Formatted on 9-6-2011 12:34:56 (QP5 v5.115.810.9015) */
DECLARE DECLARE
v_errormsg VARCHAR2 (1024); v_errormsg VARCHAR2 (1024);
c_controle_soort VARCHAR2 (60) := '_DEFAULT'; c_controle_soort VARCHAR2 (60) := '_DEFAULT';
c_controle_periode_1 NUMBER (10) := 365; c_controle_periode_1 NUMBER (10) := 365;
--XXc_controle_periode_5 NUMBER (10) := 1826; c_controle_periode_4 NUMBER (10) := 1461;
c_controle_periode_15 NUMBER (10) := 5478; c_controle_periode_15 NUMBER (10) := 5478;
v_srtcontrole_id VARCHAR2 (20); v_srtcontrole_id VARCHAR2 (20);
v_controlemode_key NUMBER (10); v_controlemode_key NUMBER (10);
@@ -389,6 +413,7 @@ BEGIN
sg.ins_srtgroep_key sg.ins_srtgroep_key
AND sg.ins_discipline_key = AND sg.ins_discipline_key =
td.ins_discipline_key td.ins_discipline_key
AND d.ins_deel_parent_key IS NULL
AND d.ins_alg_locatie_key = AND d.ins_alg_locatie_key =
l.alg_locatie_key(+) l.alg_locatie_key(+)
UNION ALL UNION ALL
@@ -479,6 +504,7 @@ BEGIN
-- Toevoegen controle; gebruik [a] de meest specifieke soort en -- Toevoegen controle; gebruik [a] de meest specifieke soort en
-- [b] de minst recente mode! -- [b] de minst recente mode!
-- Indien soort controle nog niet bestaat, dan toevoegen!
v_errormsg := 'Fout bij bepalen soort controle'; v_errormsg := 'Fout bij bepalen soort controle';
SELECT COUNT ( * ) SELECT COUNT ( * )
@@ -518,10 +544,12 @@ BEGIN
60 60
), ),
DECODE (rc.objectsoort_key, DECODE (rc.objectsoort_key,
27844, -- Objectsoort 'Slipvangers en OBAS' 27821, -- Objectsoort 'Gasgestookte inst.'
c_controle_periode_4, -- 4 jaar!
27844, -- Objectsoort 'Slipvangers + OBAS'
c_controle_periode_15, -- 15 jaar!
97781, -- Objectsoort 'Tank'
c_controle_periode_15, -- 15 jaar! c_controle_periode_15, -- 15 jaar!
--XX97781, -- Objectsoort 'Tank'
--XX c_controle_periode_5, -- 5 jaar!
c_controle_periode_1) -- Default 1 jaar c_controle_periode_1) -- Default 1 jaar
) )
RETURNING ins_srtcontrole_key INTO v_srtcontrole_id; RETURNING ins_srtcontrole_key INTO v_srtcontrole_id;
@@ -565,43 +593,58 @@ BEGIN
AND sc.ins_srtcontrole_niveau = 'D')); AND sc.ins_srtcontrole_niveau = 'D'));
END IF; END IF;
--XX Als volgende in toekomst, dan laatste=volgende - 1 jaar (behalve voor
--XX objectsoort 'Tank', waarvoor geldt laatste=volgende - 5 jaar); anders -- Indien controle mode nog niet bestaat (geen enkele), dan toevoegen!
--XX is laatste=laatste (behalve voor objectsoort 'Slipvangers en OBAS' met v_errormsg := 'Fout bij bepalen controle mode';
--XX een bouwjaar >15 jaar oud, waarvoor geldt laatste=bouwjaar + 15 jaar)!
-- Als volgende in toekomst, dan laatste=volgende - 1 jaar; anders is SELECT COUNT ( * ) INTO ccount FROM ins_controlemode;
-- laatste=laatste (behalve voor objectsoort 'Slipvangers en OBAS' met
-- een bouwjaar >15 jaar oud, waarvoor geldt laatste=bouwjaar + 15)! IF ccount = 0
IF rc.b > SYSDATE
THEN THEN
laatste := v_errormsg := 'Fout bij toevoegen controle mode';
TO_DATE (TO_CHAR (rc.b, 'dd-mm') || '-2010', 'dd-mm-yyyy');
--XXIF rc.objectsoort_key = 97781 -- Objectsoort 'Tank' INSERT INTO ins_controlemode (ins_controlemode_oms)
--XXTHEN VALUES ('Regulier')
--XX laatste := RETURNING ins_controlemode_key INTO v_controlemode_key;
--XX TO_DATE (TO_CHAR (rc.b, 'dd-mm') || '-2010', 'dd-mm-yyyy'); ELSE
--XXELSE SELECT MIN (ins_controlemode_key)
--XX laatste := INTO v_controlemode_key
--XX TO_DATE (TO_CHAR (rc.b, 'dd-mm') || '-2010', 'dd-mm-yyyy'); FROM ins_controlemode;
--XXEND IF; END IF;
ELSE -- b <= SYSDATE
IF rc.f + 15 < 2011 -- Alleen objectsoort 27844='Slipvangers en OBAS' IF rc.objectsoort_key = 27821 -- Objectsoort 'Gasgestooke inst.'
AND rc.b IS NOT NULL
THEN
laatste := rc.b - c_controle_periode_4; -- 4 jaar terug!
ELSIF rc.objectsoort_key = 27844 -- Objectsoort 'Slipvangers en OBAS'
AND rc.f IS NOT NULL
THEN
IF rc.f + 15 < 2011
THEN THEN
laatste := laatste :=
TO_DATE ('01-01-' || TO_CHAR (rc.f + 15), 'dd-mm-yyyy'); TO_DATE ('01-01-' || TO_CHAR (rc.f + 15), 'dd-mm-yyyy');
ELSE ELSE
laatste := TO_DATE ('01-01-' || TO_CHAR (rc.f), 'dd-mm-yyyy');
END IF;
ELSIF rc.objectsoort_key = 97781 -- Objectsoort 'Tank'
AND rc.b IS NOT NULL
THEN
laatste := rc.b - c_controle_periode_15; -- 15 jaar terug!
ELSE
-- Voor alle overige objectsoorten (anders dan hierboven) geldt:
-- als volgende in toekomst, dan laatste=volgende/dd-mm in 2010;
-- anders laatste=laatste!
IF rc.b > SYSDATE
THEN
laatste :=
TO_DATE (TO_CHAR (rc.b, 'dd-mm') || '-2010', 'dd-mm-yyyy');
ELSE -- b <= SYSDATE
laatste := rc.a; laatste := rc.a;
END IF; END IF;
END IF; END IF;
IF (laatste IS NOT NULL) IF (laatste IS NOT NULL) -- Geen conversie als laatste ongedefinieerd!
THEN THEN
v_errormsg := 'Fout bij bepalen controle mode';
SELECT MIN (ins_controlemode_key)
INTO v_controlemode_key
FROM ins_controlemode;
v_errormsg := 'Fout bij toevoegen controle'; v_errormsg := 'Fout bij toevoegen controle';
INSERT INTO ins_deelsrtcontrole (ins_deel_key, INSERT INTO ins_deelsrtcontrole (ins_deel_key,
@@ -664,7 +707,18 @@ BEGIN
END; END;
/ /
BEGIN adm.systrackscript('$Workfile: CONN44.sql $', '$Revision: 2 $', 1); END; INSERT INTO fac_menu (fac_menu_volgnr,
fac_menu_altlabel,
fac_menu_alturl,
fac_menu_altgroep,
fac_functie_key)
VALUES (6752,
'Keuringen',
'appl/ins/ins_search.asp?urole=bo&inspect=1',
1,
242);
BEGIN adm.systrackscript('$Workfile: CONN44.sql $', '$Revision: 3 $', 1); END;
/ /
SPOOL OFF SPOOL OFF

699
CONN/conn.sql
View File

@@ -1,7 +1,7 @@
-- Script containing customer specific configuration sql statements for CONN: Connexxion -- Script containing customer specific configuration sql statements for CONN: Connexxion
-- (c) 2005-2010 SG|facilitor bv -- (c) 2005-2010 SG|facilitor bv
-- $Revision: 166 $ -- $Revision: 167 $
-- $Modtime: 8-06-11 13:29 $ -- $Modtime: 9-06-11 17:45 $
-- --
-- Support: +31 53 4800710 -- Support: +31 53 4800710
@@ -6647,41 +6647,12 @@ SELECT l.alg_locatie_code fclt_f_locatiecode, l.alg_locatie_plaats fclt_f_plaats
/ /
-- persoon met key 104383 is de backoffice facilities -- Bevat CUST01- en CUST02-reminder naar beheerder verantwoordelijk voor de
-- kenmerksoort_key 75 is datum volgende keuring -- keuring van betreffende objecten (Gebouwobjecten vs. Gereedschappen).
-- kenmerksoort_key 1122 is datum volgend onderhoud -- CUST01: wekelijks mbt. over 4 tot 5 weken te keuren objecten!
-- CUST02: wekelijks mbt. objecten waarvan keuringsdatum is verstreken!
/* Formatted on 9-6-2011 13:58:58 (QP5 v5.115.810.9015) */
CREATE OR REPLACE VIEW CONN_V_NOTI_KEURINGREMINDER CREATE OR REPLACE VIEW CONN_V_NOTI_KEURINGREMINDER
(CODE, SENDER, RECEIVER, TEXT, KEY,
XKEY)
AS
SELECT NULL,
NULL,
104383,
'De uiterste keurings/onderhouds datum van '
|| isd.ins_srtdeel_omschrijving || ' '
|| ID.ins_deel_omschrijving || ' '
|| 'is verstreken.',
id.ins_deel_key,
NULL
FROM ins_v_aanwezigdeel ID,
ins_kenmerkdeel ikd,
ins_kenmerk ik,
ins_srtdeel isd
WHERE ID.ins_srtdeel_key = isd.ins_srtdeel_key
AND ikd.ins_deel_key = ID.ins_deel_key
AND ikd.ins_kenmerk_key = ik.ins_kenmerk_key
AND ik.ins_srtkenmerk_key IN (
SELECT ins_srtkenmerk_key
FROM ins_srtkenmerk
WHERE ins_srtkenmerk_key IN (75, 1122))
AND FAC.SAFE_TO_DATE (ikd.ins_kenmerkdeel_waarde, 'dd-mm-yyyy') < SYSDATE
;
-- Bevat CUST10-reminder naar LFM-er verantwoordelijk voor betreffende locatie
-- bij aanmaken/uitgeven specifieke opdracht op Intern:LFM.
-- Periodiciteit: elk uur (mbt. in het voorgaande uur aangemaakte opdrachten)!
/* Formatted on 8-4-2011 12:58:24 (QP5 v5.115.810.9015) */
/*
CREATE OR REPLACE VIEW conn_v_noti_inspectieobj
( (
code, code,
sender, sender,
@@ -6693,35 +6664,252 @@ CREATE OR REPLACE VIEW conn_v_noti_inspectieobj
xkey xkey
) )
AS AS
SELECT sn.fac_srtnotificatie_code, SELECT sn.fac_srtnotificatie_code code,
NULL sender,
fac.safe_to_number (ok.alg_onrgoedkenmerk_waarde) receiver,
REPLACE (
sn.fac_srtnotificatie_oms,
'##SRTGROEP##',
DECODE (x.min_srtgroep_oms,
x.max_srtgroep_oms, x.min_srtgroep_oms,
x.min_srtgroep_oms || ', ...')
)
subject,
-1, -- Dummy key!!!
NULL, NULL,
fac.safe_to_number (ok.alg_onrgoedkenmerk_waarde),
REPLACE (sn.fac_srtnotificatie_oms,
'##STDM##',
sm.mld_stdmelding_omschrijving),
o.mld_opdr_key,
sm.mld_stdmelding_omschrijving,
NULL, NULL,
NULL NULL
FROM mld_opdr o, FROM ( SELECT o.alg_locatie_key,
mld_melding m, DECODE (o.ins_discipline_key,
101, 1320, -- Gebouwobjecten -> 1320-verantw.
341, 1320, -- Gebouwobjecten -> 1320-verantw.
1841, 1320, -- Gebouwobjecten -> 1320-verantw.
1881, 1320, -- Gebouwobjecten -> 1320-verantw.
1340) -- Gereedschappen -> 1340-verantw.
verantwoordelijke,
MIN (o.ins_srtgroep_omschrijving) min_srtgroep_oms,
MAX (o.ins_srtgroep_omschrijving) max_srtgroep_oms,
COUNT ( * )
FROM (SELECT scs.ins_srtinstallatie_key
ins_srtdeel_key,
scs.ins_srtcontrole_key,
scs.ins_srtcontrole_omschrijving,
scs.ins_srtcontrole_periode
FROM ins_srtcontrole scs
WHERE scs.ins_srtcontrole_niveau = 'S'
UNION ALL
SELECT sd.ins_srtdeel_key,
scg.ins_srtcontrole_key,
scg.ins_srtcontrole_omschrijving,
scg.ins_srtcontrole_periode
FROM ins_srtcontrole scg, ins_srtdeel sd
WHERE scg.ins_srtcontrole_niveau = 'G'
AND scg.ins_srtinstallatie_key =
sd.ins_srtgroep_key
UNION ALL
SELECT sd.ins_srtdeel_key,
scd.ins_srtcontrole_key,
scd.ins_srtcontrole_omschrijving,
scd.ins_srtcontrole_periode
FROM ins_srtcontrole scd,
ins_srtgroep sg,
ins_srtdeel sd
WHERE scd.ins_srtcontrole_niveau = 'D'
AND scd.ins_srtinstallatie_key =
sg.ins_discipline_key
AND sg.ins_srtgroep_key =
sd.ins_srtgroep_key) cso -- ControleSoortObjecten
LEFT JOIN
(SELECT d.ins_deel_key,
d.ins_deel_aanmaak,
sd.ins_srtdeel_key,
sg.ins_srtgroep_omschrijving,
td.ins_discipline_key,
td.ins_discipline_omschrijving,
l.alg_locatie_key
FROM ins_v_aanwezigdeel d,
ins_srtdeel sd,
ins_srtgroep sg,
ins_tab_discipline td,
alg_locatie l
WHERE d.ins_srtdeel_key =
sd.ins_srtdeel_key
AND sd.ins_srtgroep_key =
sg.ins_srtgroep_key
AND sg.ins_discipline_key =
td.ins_discipline_key
AND d.ins_alg_locatie_key =
l.alg_locatie_key(+)) o -- Objecten
ON cso.ins_srtdeel_key = o.ins_srtdeel_key
LEFT JOIN
(SELECT ins_deel_key,
ins_kenmerkdeel_waarde afgekeurd
FROM ins_v_aanwezigkenmerkdeel kd,
ins_kenmerk k
WHERE kd.ins_kenmerk_key = k.ins_kenmerk_key
AND k.ins_srtkenmerk_key = 1466) oa -- ObjectAfgekeurd
ON o.ins_deel_key = oa.ins_deel_key
LEFT JOIN
(SELECT dsc.ins_deel_key,
dsc.ins_srtcontrole_key,
dsc.ins_deelsrtcontrole_datum,
dsc.ins_deelsrtcontrole_opmerking
FROM ins_deelsrtcontrole dsc
WHERE dsc.ins_deelsrtcontrole_datum =
(SELECT MAX (
ins_deelsrtcontrole_datum
)
FROM ins_deelsrtcontrole
WHERE ins_deel_key =
dsc.ins_deel_key
AND ins_srtcontrole_key =
dsc.ins_srtcontrole_key))
olc -- ObjectLaatsteControle
ON o.ins_deel_key = olc.ins_deel_key
AND cso.ins_srtcontrole_key =
olc.ins_srtcontrole_key
WHERE (oa.afgekeurd IS NULL OR oa.afgekeurd = 130) -- 'Nee'
AND COALESCE (olc.ins_deelsrtcontrole_datum,
o.ins_deel_aanmaak)
+ cso.ins_srtcontrole_periode BETWEEN TRUNC(SYSDATE
+ 28)
AND TRUNC(SYSDATE
+ 35)
GROUP BY o.alg_locatie_key,
DECODE (o.ins_discipline_key,
101, 1320, -- Gebouwobjecten -> 1320-verantw.
341, 1320, -- Gebouwobjecten -> 1320-verantw.
1841, 1320, -- Gebouwobjecten -> 1320-verantw.
1881, 1320, -- Gebouwobjecten -> 1320-verantw.
1340)) x, -- Gereedschappen -> 1340-verantw.
alg_v_aanwezigonrgoedkenmerk ok, alg_v_aanwezigonrgoedkenmerk ok,
mld_stdmelding sm,
fac_srtnotificatie sn fac_srtnotificatie sn
WHERE o.mld_statusopdr_key IN (5, 8) -- Uitgegeven/Geaccepteerd! WHERE x.alg_locatie_key = ok.alg_onrgoed_key
AND o.mld_uitvoerende_keys = 33020 -- Intern:LFM AND x.verantwoordelijke = ok.alg_kenmerk_key
AND TO_NUMBER(TO_CHAR (
fac.gettrackingdate ('ORDNEW', o.mld_opdr_key),
'YYYYMMDDHH24'
))
+ 1 >= TO_NUMBER (TO_CHAR (SYSDATE+1/1440, 'YYYYMMDDHH24'))
AND o.mld_melding_key = m.mld_melding_key
AND m.mld_stdmelding_key = sm.mld_stdmelding_key
AND m.mld_alg_locatie_key = ok.alg_onrgoed_key
AND ok.alg_onrgoed_niveau = 'L' AND ok.alg_onrgoed_niveau = 'L'
AND ok.alg_kenmerk_key = 1020 -- LFM AND sn.fac_srtnotificatie_code = 'CUST01'
AND sn.fac_srtnotificatie_code = 'CUST10'; UNION ALL
*/ SELECT sn.fac_srtnotificatie_code code,
NULL sender,
fac.safe_to_number (ok.alg_onrgoedkenmerk_waarde) receiver,
REPLACE (
sn.fac_srtnotificatie_oms,
'##SRTGROEP##',
DECODE (x.min_srtgroep_oms,
x.max_srtgroep_oms, x.min_srtgroep_oms,
x.min_srtgroep_oms || ', ...')
)
subject,
-1, -- Dummy key!!!
NULL,
NULL,
NULL
FROM ( SELECT o.alg_locatie_key,
DECODE (o.ins_discipline_key,
101, 1320, -- Gebouwobjecten -> 1320-verantw.
341, 1320, -- Gebouwobjecten -> 1320-verantw.
1841, 1320, -- Gebouwobjecten -> 1320-verantw.
1881, 1320, -- Gebouwobjecten -> 1320-verantw.
1340) -- Gereedschappen -> 1340-verantw.
verantwoordelijke,
MIN (o.ins_srtgroep_omschrijving) min_srtgroep_oms,
MAX (o.ins_srtgroep_omschrijving) max_srtgroep_oms,
COUNT ( * )
FROM (SELECT scs.ins_srtinstallatie_key
ins_srtdeel_key,
scs.ins_srtcontrole_key,
scs.ins_srtcontrole_omschrijving,
scs.ins_srtcontrole_periode
FROM ins_srtcontrole scs
WHERE scs.ins_srtcontrole_niveau = 'S'
UNION ALL
SELECT sd.ins_srtdeel_key,
scg.ins_srtcontrole_key,
scg.ins_srtcontrole_omschrijving,
scg.ins_srtcontrole_periode
FROM ins_srtcontrole scg, ins_srtdeel sd
WHERE scg.ins_srtcontrole_niveau = 'G'
AND scg.ins_srtinstallatie_key =
sd.ins_srtgroep_key
UNION ALL
SELECT sd.ins_srtdeel_key,
scd.ins_srtcontrole_key,
scd.ins_srtcontrole_omschrijving,
scd.ins_srtcontrole_periode
FROM ins_srtcontrole scd,
ins_srtgroep sg,
ins_srtdeel sd
WHERE scd.ins_srtcontrole_niveau = 'D'
AND scd.ins_srtinstallatie_key =
sg.ins_discipline_key
AND sg.ins_srtgroep_key =
sd.ins_srtgroep_key) cso -- ControleSoortObjecten
LEFT JOIN
(SELECT d.ins_deel_key,
d.ins_deel_aanmaak,
sd.ins_srtdeel_key,
sg.ins_srtgroep_omschrijving,
td.ins_discipline_key,
td.ins_discipline_omschrijving,
l.alg_locatie_key
FROM ins_v_aanwezigdeel d,
ins_srtdeel sd,
ins_srtgroep sg,
ins_tab_discipline td,
alg_locatie l
WHERE d.ins_srtdeel_key =
sd.ins_srtdeel_key
AND sd.ins_srtgroep_key =
sg.ins_srtgroep_key
AND sg.ins_discipline_key =
td.ins_discipline_key
AND d.ins_alg_locatie_key =
l.alg_locatie_key(+)) o -- Objecten
ON cso.ins_srtdeel_key = o.ins_srtdeel_key
LEFT JOIN
(SELECT ins_deel_key,
ins_kenmerkdeel_waarde afgekeurd
FROM ins_v_aanwezigkenmerkdeel kd,
ins_kenmerk k
WHERE kd.ins_kenmerk_key = k.ins_kenmerk_key
AND k.ins_srtkenmerk_key = 1466) oa -- ObjectAfgekeurd
ON o.ins_deel_key = oa.ins_deel_key
LEFT JOIN
(SELECT dsc.ins_deel_key,
dsc.ins_srtcontrole_key,
dsc.ins_deelsrtcontrole_datum,
dsc.ins_deelsrtcontrole_opmerking
FROM ins_deelsrtcontrole dsc
WHERE dsc.ins_deelsrtcontrole_datum =
(SELECT MAX (
ins_deelsrtcontrole_datum
)
FROM ins_deelsrtcontrole
WHERE ins_deel_key =
dsc.ins_deel_key
AND ins_srtcontrole_key =
dsc.ins_srtcontrole_key))
olc -- ObjectLaatsteControle
ON o.ins_deel_key = olc.ins_deel_key
AND cso.ins_srtcontrole_key =
olc.ins_srtcontrole_key
WHERE (oa.afgekeurd IS NULL OR oa.afgekeurd = 130) -- 'Nee'
AND COALESCE (olc.ins_deelsrtcontrole_datum,
o.ins_deel_aanmaak) < TRUNC (SYSDATE)
GROUP BY o.alg_locatie_key,
DECODE (o.ins_discipline_key,
101, 1320, -- Gebouwobjecten -> 1320-verantw.
341, 1320, -- Gebouwobjecten -> 1320-verantw.
1841, 1320, -- Gebouwobjecten -> 1320-verantw.
1881, 1320, -- Gebouwobjecten -> 1320-verantw.
1340)) x, -- Gereedschappen -> 1340-verantw.
alg_v_aanwezigonrgoedkenmerk ok,
fac_srtnotificatie sn
WHERE x.alg_locatie_key = ok.alg_onrgoed_key
AND x.verantwoordelijke = ok.alg_kenmerk_key
AND ok.alg_onrgoed_niveau = 'L'
AND sn.fac_srtnotificatie_code = 'CUST02';
/* Formatted on 2008/07/09 17:04 (Formatter Plus v4.8.7) */ /* Formatted on 2008/07/09 17:04 (Formatter Plus v4.8.7) */
CREATE OR REPLACE VIEW conn_v_rap_locatie_verpl (fclt_f_locatie_code, CREATE OR REPLACE VIEW conn_v_rap_locatie_verpl (fclt_f_locatie_code,
locatie_adres, locatie_adres,
@@ -8009,7 +8197,7 @@ GROUP BY bd.ins_discipline_omschrijving, pf.prs_perslid_naam_full, fp.fac_prof
ORDER BY 1, 2; ORDER BY 1, 2;
/* Formatted on 1-6-2011 21:22:23 (QP5 v5.115.810.9015) */ /* Formatted on 9-6-2011 12:45:08 (QP5 v5.115.810.9015) */
CREATE OR REPLACE VIEW conn_v_rap_inspectieobj_expimp CREATE OR REPLACE VIEW conn_v_rap_inspectieobj_expimp
( (
fclt_f_locatiecode, fclt_f_locatiecode,
@@ -8026,6 +8214,7 @@ CREATE OR REPLACE VIEW conn_v_rap_inspectieobj_expimp
fclt_f_bereik_nm_bar, fclt_f_bereik_nm_bar,
fclt_f_voltage, fclt_f_voltage,
fclt_f_apkplicht, fclt_f_apkplicht,
fclt_f_keuring_categorie,
fclt_f_leverancier, fclt_f_leverancier,
fclt_f_soortcontrole, fclt_f_soortcontrole,
periode, periode,
@@ -8050,6 +8239,7 @@ AS
k5.bereik, k5.bereik,
k6.voltage, k6.voltage,
k7.apkplicht, k7.apkplicht,
k8.categorie,
COALESCE (lev_onderhd.naam, lev_onderst.naam) leverancier, COALESCE (lev_onderhd.naam, lev_onderst.naam) leverancier,
csd.ins_srtcontrole_omschrijving, csd.ins_srtcontrole_omschrijving,
TO_CHAR (csd.ins_srtcontrole_periode), TO_CHAR (csd.ins_srtcontrole_periode),
@@ -8064,72 +8254,101 @@ AS
y.ins_deelsrtcontrole_datum), y.ins_deelsrtcontrole_datum),
NULL controledatum, NULL controledatum,
NULL controlopmerking, NULL controlopmerking,
k8.afgekeurd k9.afgekeurd
FROM (SELECT scs.ins_srtinstallatie_key FROM (SELECT scs.ins_srtinstallatie_key
ins_srtdeel_key, ins_srtdeel_key,
scs.ins_srtcontrole_key, scs.ins_srtcontrole_key,
scs.ins_srtcontrole_omschrijving, scs.ins_srtcontrole_omschrijving,
scs.ins_srtcontrole_periode scs.ins_srtcontrole_periode
FROM ins_srtcontrole scs FROM ins_srtcontrole scs
WHERE scs.ins_srtcontrole_niveau = WHERE scs.ins_srtcontrole_niveau =
'S' 'S'
UNION ALL UNION ALL
SELECT sd.ins_srtdeel_key, SELECT sd.ins_srtdeel_key,
scg.ins_srtcontrole_key, scg.ins_srtcontrole_key,
scg.ins_srtcontrole_omschrijving, scg.ins_srtcontrole_omschrijving,
scg.ins_srtcontrole_periode scg.ins_srtcontrole_periode
FROM ins_srtcontrole scg, FROM ins_srtcontrole scg,
ins_srtdeel sd ins_srtdeel sd
WHERE scg.ins_srtcontrole_niveau = WHERE scg.ins_srtcontrole_niveau =
'G' 'G'
AND scg.ins_srtinstallatie_key = AND scg.ins_srtinstallatie_key =
sd.ins_srtgroep_key sd.ins_srtgroep_key
UNION ALL UNION ALL
SELECT sd.ins_srtdeel_key, SELECT sd.ins_srtdeel_key,
scd.ins_srtcontrole_key, scd.ins_srtcontrole_key,
scd.ins_srtcontrole_omschrijving, scd.ins_srtcontrole_omschrijving,
scd.ins_srtcontrole_periode scd.ins_srtcontrole_periode
FROM ins_srtcontrole scd, FROM ins_srtcontrole scd,
ins_srtgroep sg, ins_srtgroep sg,
ins_srtdeel sd ins_srtdeel sd
WHERE scd.ins_srtcontrole_niveau = WHERE scd.ins_srtcontrole_niveau =
'D' 'D'
AND scd.ins_srtinstallatie_key = AND scd.ins_srtinstallatie_key =
sg.ins_discipline_key sg.ins_discipline_key
AND sg.ins_srtgroep_key = AND sg.ins_srtgroep_key =
sd.ins_srtgroep_key) sd.ins_srtgroep_key)
csd csd
LEFT JOIN
(SELECT d.ins_deel_key,
d.ins_deel_aanmaak,
d.ins_deel_omschrijving,
d.ins_alg_ruimte_key,
d.ins_alg_ruimte_type,
sd.ins_srtdeel_key,
sd.ins_srtdeel_code,
sd.ins_srtdeel_omschrijving,
sg.ins_srtgroep_omschrijving,
td.ins_discipline_omschrijving,
l.alg_locatie_code
FROM ins_v_aanwezigdeel d,
ins_srtdeel sd,
ins_srtgroep sg,
ins_tab_discipline td,
alg_locatie l
WHERE d.ins_srtdeel_key =
sd.ins_srtdeel_key
AND sd.ins_srtgroep_key =
sg.ins_srtgroep_key
AND sg.ins_discipline_key =
td.ins_discipline_key
AND d.ins_alg_locatie_key =
l.alg_locatie_key(+))
x
ON csd.ins_srtdeel_key =
x.ins_srtdeel_key
LEFT JOIN LEFT JOIN
(SELECT d.ins_deel_key, (SELECT DISTINCT
d.ins_deel_aanmaak, co.cnt_ins_deel_key,
d.ins_deel_omschrijving, b.prs_bedrijf_naam
d.ins_alg_ruimte_key, naam
d.ins_alg_ruimte_type, FROM cnt_contract_object co,
sd.ins_srtdeel_key, cnt_contract c,
sd.ins_srtdeel_code, ins_tab_discipline cd,
sd.ins_srtdeel_omschrijving, prs_bedrijf b
sg.ins_srtgroep_omschrijving, WHERE co.cnt_contract_object_verwijder IS NULL
td.ins_discipline_omschrijving, AND co.cnt_ins_deel_key IS NOT NULL
l.alg_locatie_code AND co.cnt_contract_key =
FROM ins_v_aanwezigdeel d, c.cnt_contract_key
ins_srtdeel sd, AND c.cnt_contract_looptijd_tot >=
ins_srtgroep sg, TRUNC (
ins_tab_discipline td, ADD_MONTHS (
alg_locatie l SYSDATE,
WHERE d.ins_srtdeel_key = -12
sd.ins_srtdeel_key ),
AND sd.ins_srtgroep_key = 'YYYY'
sg.ins_srtgroep_key )
AND sg.ins_discipline_key = AND c.ins_discipline_key =
td.ins_discipline_key cd.ins_discipline_key
AND d.ins_alg_locatie_key = AND cd.ins_discipline_verwijder IS NULL
l.alg_locatie_key(+)) AND c.cnt_prs_bedrijf_key =
x b.prs_bedrijf_key)
ON csd.ins_srtdeel_key = lev_onderhd
x.ins_srtdeel_key ON x.ins_deel_key =
lev_onderhd.cnt_ins_deel_key
LEFT JOIN LEFT JOIN
(SELECT DISTINCT (SELECT DISTINCT
co.cnt_ins_deel_key, co.cnt_ins_srtdeel_key,
b.prs_bedrijf_naam b.prs_bedrijf_naam
naam naam
FROM cnt_contract_object co, FROM cnt_contract_object co,
@@ -8137,7 +8356,7 @@ AS
ins_tab_discipline cd, ins_tab_discipline cd,
prs_bedrijf b prs_bedrijf b
WHERE co.cnt_contract_object_verwijder IS NULL WHERE co.cnt_contract_object_verwijder IS NULL
AND co.cnt_ins_deel_key IS NOT NULL AND co.cnt_ins_srtdeel_key IS NOT NULL
AND co.cnt_contract_key = AND co.cnt_contract_key =
c.cnt_contract_key c.cnt_contract_key
AND c.cnt_contract_looptijd_tot >= AND c.cnt_contract_looptijd_tot >=
@@ -8153,116 +8372,104 @@ AS
AND cd.ins_discipline_verwijder IS NULL AND cd.ins_discipline_verwijder IS NULL
AND c.cnt_prs_bedrijf_key = AND c.cnt_prs_bedrijf_key =
b.prs_bedrijf_key) b.prs_bedrijf_key)
lev_onderhd lev_onderst
ON x.ins_deel_key = ON x.ins_srtdeel_key =
lev_onderhd.cnt_ins_deel_key lev_onderst.cnt_ins_srtdeel_key
LEFT JOIN LEFT JOIN
(SELECT DISTINCT (SELECT ins_deel_key,
co.cnt_ins_srtdeel_key, ins_kenmerkdeel_waarde
b.prs_bedrijf_naam merk
naam FROM ins_v_aanwezigkenmerkdeel kd,
FROM cnt_contract_object co, ins_kenmerk k
cnt_contract c, WHERE kd.ins_kenmerk_key =
ins_tab_discipline cd, k.ins_kenmerk_key
prs_bedrijf b AND k.ins_srtkenmerk_key =
WHERE co.cnt_contract_object_verwijder IS NULL 42) k1
AND co.cnt_ins_srtdeel_key IS NOT NULL ON x.ins_deel_key =
AND co.cnt_contract_key = k1.ins_deel_key
c.cnt_contract_key
AND c.cnt_contract_looptijd_tot >=
TRUNC (
ADD_MONTHS (
SYSDATE,
-12
),
'YYYY'
)
AND c.ins_discipline_key =
cd.ins_discipline_key
AND cd.ins_discipline_verwijder IS NULL
AND c.cnt_prs_bedrijf_key =
b.prs_bedrijf_key)
lev_onderst
ON x.ins_srtdeel_key =
lev_onderst.cnt_ins_srtdeel_key
LEFT JOIN LEFT JOIN
(SELECT ins_deel_key, (SELECT ins_deel_key,
ins_kenmerkdeel_waarde ins_kenmerkdeel_waarde
merk TYPE
FROM ins_v_aanwezigkenmerkdeel kd, FROM ins_v_aanwezigkenmerkdeel kd,
ins_kenmerk k ins_kenmerk k
WHERE kd.ins_kenmerk_key = WHERE kd.ins_kenmerk_key =
k.ins_kenmerk_key k.ins_kenmerk_key
AND k.ins_srtkenmerk_key = AND k.ins_srtkenmerk_key =
42) k1 41) k2
ON x.ins_deel_key = k1.ins_deel_key ON x.ins_deel_key = k2.ins_deel_key
LEFT JOIN LEFT JOIN
(SELECT ins_deel_key, (SELECT ins_deel_key,
ins_kenmerkdeel_waarde ins_kenmerkdeel_waarde
TYPE hoogte
FROM ins_v_aanwezigkenmerkdeel kd, FROM ins_v_aanwezigkenmerkdeel kd,
ins_kenmerk k ins_kenmerk k
WHERE kd.ins_kenmerk_key = WHERE kd.ins_kenmerk_key =
k.ins_kenmerk_key k.ins_kenmerk_key
AND k.ins_srtkenmerk_key = AND k.ins_srtkenmerk_key =
41) k2 1461) k3
ON x.ins_deel_key = k2.ins_deel_key ON x.ins_deel_key = k3.ins_deel_key
LEFT JOIN LEFT JOIN
(SELECT ins_deel_key, (SELECT ins_deel_key,
ins_kenmerkdeel_waarde ins_kenmerkdeel_waarde
hoogte belasting
FROM ins_v_aanwezigkenmerkdeel kd, FROM ins_v_aanwezigkenmerkdeel kd,
ins_kenmerk k ins_kenmerk k
WHERE kd.ins_kenmerk_key = WHERE kd.ins_kenmerk_key =
k.ins_kenmerk_key k.ins_kenmerk_key
AND k.ins_srtkenmerk_key = AND k.ins_srtkenmerk_key =
1461) k3 1462) k4
ON x.ins_deel_key = k3.ins_deel_key ON x.ins_deel_key = k4.ins_deel_key
LEFT JOIN LEFT JOIN
(SELECT ins_deel_key, (SELECT ins_deel_key,
ins_kenmerkdeel_waarde ins_kenmerkdeel_waarde bereik
belasting
FROM ins_v_aanwezigkenmerkdeel kd, FROM ins_v_aanwezigkenmerkdeel kd,
ins_kenmerk k ins_kenmerk k
WHERE kd.ins_kenmerk_key = WHERE kd.ins_kenmerk_key =
k.ins_kenmerk_key k.ins_kenmerk_key
AND k.ins_srtkenmerk_key = 1462) AND k.ins_srtkenmerk_key = 1463)
k4 k5
ON x.ins_deel_key = k4.ins_deel_key ON x.ins_deel_key = k5.ins_deel_key
LEFT JOIN LEFT JOIN
(SELECT ins_deel_key, (SELECT ins_deel_key,
ins_kenmerkdeel_waarde bereik ins_kenmerkdeel_waarde voltage
FROM ins_v_aanwezigkenmerkdeel kd, FROM ins_v_aanwezigkenmerkdeel kd,
ins_kenmerk k ins_kenmerk k
WHERE kd.ins_kenmerk_key = WHERE kd.ins_kenmerk_key =
k.ins_kenmerk_key k.ins_kenmerk_key
AND k.ins_srtkenmerk_key = 1463) AND k.ins_srtkenmerk_key = 1464)
k5 k6
ON x.ins_deel_key = k5.ins_deel_key ON x.ins_deel_key = k6.ins_deel_key
LEFT JOIN LEFT JOIN
(SELECT ins_deel_key, (SELECT ins_deel_key,
ins_kenmerkdeel_waarde voltage DECODE (ins_kenmerkdeel_waarde,
'129', 'JA',
'NEE')
apkplicht
FROM ins_v_aanwezigkenmerkdeel kd, FROM ins_v_aanwezigkenmerkdeel kd,
ins_kenmerk k ins_kenmerk k
WHERE kd.ins_kenmerk_key = WHERE kd.ins_kenmerk_key =
k.ins_kenmerk_key k.ins_kenmerk_key
AND k.ins_srtkenmerk_key = 1464) k6 AND k.ins_srtkenmerk_key = 1465) k7
ON x.ins_deel_key = k6.ins_deel_key ON x.ins_deel_key = k7.ins_deel_key
LEFT JOIN LEFT JOIN
(SELECT ins_deel_key, (SELECT ins_deel_key,
ins_kenmerkdeel_waarde apkplicht -- TODO: Eigen tabel??? ins_kenmerkdeel_waarde categorie
FROM ins_v_aanwezigkenmerkdeel kd, FROM ins_v_aanwezigkenmerkdeel kd,
ins_kenmerk k ins_kenmerk k
WHERE kd.ins_kenmerk_key = k.ins_kenmerk_key WHERE kd.ins_kenmerk_key = k.ins_kenmerk_key
AND k.ins_srtkenmerk_key = 1465) k7 AND k.ins_srtkenmerk_key = 1467) k8
ON x.ins_deel_key = k7.ins_deel_key ON x.ins_deel_key = k8.ins_deel_key
LEFT JOIN LEFT JOIN
(SELECT ins_deel_key, (SELECT ins_deel_key,
ins_kenmerkdeel_waarde afgekeurd -- TODO: Eigen tabel??? DECODE (ins_kenmerkdeel_waarde,
'129', 'JA',
'NEE')
afgekeurd
FROM ins_v_aanwezigkenmerkdeel kd, ins_kenmerk k FROM ins_v_aanwezigkenmerkdeel kd, ins_kenmerk k
WHERE kd.ins_kenmerk_key = k.ins_kenmerk_key WHERE kd.ins_kenmerk_key = k.ins_kenmerk_key
AND k.ins_srtkenmerk_key = 1466) k8 AND k.ins_srtkenmerk_key = 1466) k9
ON x.ins_deel_key = k8.ins_deel_key ON x.ins_deel_key = k9.ins_deel_key
LEFT JOIN LEFT JOIN
(SELECT dsc.ins_deel_key, (SELECT dsc.ins_deel_key,
dsc.ins_srtcontrole_key, dsc.ins_srtcontrole_key,
@@ -8327,6 +8534,7 @@ IS
v_bereik VARCHAR2 (255); -- C60 v_bereik VARCHAR2 (255); -- C60
v_voltage VARCHAR2 (255); -- C60 v_voltage VARCHAR2 (255); -- C60
v_apkplicht VARCHAR2 (255); -- C60 v_apkplicht VARCHAR2 (255); -- C60
v_categorie VARCHAR2 (255); -- C60
v_prs_bedrijf_naam VARCHAR2 (255); -- C60 v_prs_bedrijf_naam VARCHAR2 (255); -- C60
v_ins_srtcontrole_oms VARCHAR2 (255); -- C60 v_ins_srtcontrole_oms VARCHAR2 (255); -- C60
x_periode VARCHAR2 (255); -- N4 x_periode VARCHAR2 (255); -- N4
@@ -8379,6 +8587,7 @@ BEGIN
fac.imp_getfield (v_newline, c_delim, v_bereik); fac.imp_getfield (v_newline, c_delim, v_bereik);
fac.imp_getfield (v_newline, c_delim, v_voltage); fac.imp_getfield (v_newline, c_delim, v_voltage);
fac.imp_getfield (v_newline, c_delim, v_apkplicht); fac.imp_getfield (v_newline, c_delim, v_apkplicht);
fac.imp_getfield (v_newline, c_delim, v_categorie);
fac.imp_getfield (v_newline, c_delim, v_prs_bedrijf_naam); fac.imp_getfield (v_newline, c_delim, v_prs_bedrijf_naam);
fac.imp_getfield (v_newline, c_delim, v_ins_srtcontrole_oms); fac.imp_getfield (v_newline, c_delim, v_ins_srtcontrole_oms);
fac.imp_getfield (v_newline, c_delim, x_periode); fac.imp_getfield (v_newline, c_delim, x_periode);
@@ -8420,6 +8629,7 @@ BEGIN
AND UPPER (v_bereik) = 'BEREIK_NM_BAR' AND UPPER (v_bereik) = 'BEREIK_NM_BAR'
AND UPPER (v_voltage) = 'VOLTAGE' AND UPPER (v_voltage) = 'VOLTAGE'
AND UPPER (v_apkplicht) = 'APKPLICHT' AND UPPER (v_apkplicht) = 'APKPLICHT'
AND UPPER (v_categorie) = 'KEURING_CATEGORIE'
AND UPPER (v_prs_bedrijf_naam) = 'LEVERANCIER' AND UPPER (v_prs_bedrijf_naam) = 'LEVERANCIER'
AND UPPER (v_ins_srtcontrole_oms) = 'SOORTCONTROLE' AND UPPER (v_ins_srtcontrole_oms) = 'SOORTCONTROLE'
AND UPPER (x_periode) = 'PERIODE' AND UPPER (x_periode) = 'PERIODE'
@@ -8674,6 +8884,22 @@ BEGIN
); );
END IF; END IF;
--
v_errormsg := 'Categorie ongeldig';
v_categorie := TRIM (v_categorie);
IF LENGTH (v_categorie) > 60
THEN
v_categorie := SUBSTR (v_categorie, 1, 60);
fac.imp_writelog (
p_applname,
p_applrun,
'W',
v_aanduiding || v_errormsg,
'Categorie wordt afgebroken tot [' || v_categorie || ']'
);
END IF;
-- --
v_errormsg := 'Leverancier ongeldig'; v_errormsg := 'Leverancier ongeldig';
v_prs_bedrijf_naam := TRIM (v_prs_bedrijf_naam); v_prs_bedrijf_naam := TRIM (v_prs_bedrijf_naam);
@@ -8787,6 +9013,7 @@ BEGIN
bereik, bereik,
voltage, voltage,
apkplicht, apkplicht,
categorie,
prs_bedrijf_naam, prs_bedrijf_naam,
ins_srtcontrole_omschrijving, ins_srtcontrole_omschrijving,
ins_deelsrtcontrole_datum, ins_deelsrtcontrole_datum,
@@ -8807,6 +9034,7 @@ BEGIN
v_bereik, v_bereik,
v_voltage, v_voltage,
v_apkplicht, v_apkplicht,
v_categorie,
v_prs_bedrijf_naam, v_prs_bedrijf_naam,
v_ins_srtcontrole_oms, v_ins_srtcontrole_oms,
v_ins_controle_datum, v_ins_controle_datum,
@@ -8887,7 +9115,7 @@ EXCEPTION
END conn_import_inspectieobj; END conn_import_inspectieobj;
/ /
/* Formatted on 7-6-2011 18:08:08 (QP5 v5.115.810.9015) */ /* Formatted on 9-6-2011 15:04:20 (QP5 v5.115.810.9015) */
CREATE OR REPLACE PROCEDURE conn_update_inspectieobj ( CREATE OR REPLACE PROCEDURE conn_update_inspectieobj (
p_applname IN VARCHAR2, p_applname IN VARCHAR2,
p_applrun IN VARCHAR2 p_applrun IN VARCHAR2
@@ -9261,16 +9489,22 @@ AS
'NEE', 130, 'NEE', 130,
apkplicht) apkplicht)
apkplicht, apkplicht,
categorie,
alg_locatie_code, alg_locatie_code,
alg_ruimte_nr, -- Wordt nog niets mee gedaan! alg_ruimte_nr, -- Wordt nog niets mee gedaan!
prs_bedrijf_naam, -- Wordt nog niets mee gedaan! prs_bedrijf_naam, -- Wordt nog niets mee gedaan!
ins_srtcontrole_omschrijving, ins_srtcontrole_omschrijving,
ins_deelsrtcontrole_datum, ins_deelsrtcontrole_datum,
prs_bedrijf_naam DECODE (
|| ':' prs_bedrijf_naam,
|| CHR (13) NULL,
|| CHR (10) ins_deelsrtcontrole_opmerking,
|| COALESCE (ins_deelsrtcontrole_opmerking, '-') prs_bedrijf_naam
|| ':'
|| CHR (13)
|| CHR (10)
|| COALESCE (ins_deelsrtcontrole_opmerking, '-')
)
ins_deelsrtcontrole_opmerking, ins_deelsrtcontrole_opmerking,
DECODE (UPPER (afgekeurd), DECODE (UPPER (afgekeurd),
'JA', 129, 'JA', 129,
@@ -9289,6 +9523,7 @@ AS
c_bereik_srtkey NUMBER (10) := 1463; c_bereik_srtkey NUMBER (10) := 1463;
c_voltage_srtkey NUMBER (10) := 1464; c_voltage_srtkey NUMBER (10) := 1464;
c_apkplicht_srtkey NUMBER (10) := 1465; c_apkplicht_srtkey NUMBER (10) := 1465;
c_categorie_srtkey NUMBER (10) := 1467;
c_afgekeurd_srtkey NUMBER (10) := 1466; c_afgekeurd_srtkey NUMBER (10) := 1466;
c_controle_periode NUMBER (10) := 365; c_controle_periode NUMBER (10) := 365;
v_discipline_key NUMBER (10); v_discipline_key NUMBER (10);
@@ -10076,6 +10311,90 @@ AS
END IF; END IF;
END IF; END IF;
-- CATEGORIE toevoegen; huidige waarde NOOIT gewijzigd via import!
IF rec.categorie IS NOT NULL AND UPPER (rec.categorie) != 'NVT'
THEN
v_errormsg := 'Fout bij bepalen categorie-kenmerk';
SELECT COUNT ( * )
INTO ccount
FROM ins_v_aanwezigkenmerk k
WHERE k.ins_srtkenmerk_key = c_categorie_srtkey
AND ( (k.ins_srtinstallatie_key = v_srtdeel_key
AND k.ins_kenmerk_niveau = 'S')
OR (k.ins_srtinstallatie_key = v_srtgroep_key
AND k.ins_kenmerk_niveau = 'G')
OR (k.ins_srtinstallatie_key = v_discipline_key
AND k.ins_kenmerk_niveau = 'D'));
IF ccount = 0 -- Kenmerk bestaat niet; dan aanmaken!
THEN
v_errormsg := 'Fout bij toevoegen categorie-kenmerk';
INSERT INTO ins_kenmerk (ins_srtkenmerk_key,
ins_srtinstallatie_key,
ins_kenmerk_niveau,
ins_kenmerk_volgnummer)
VALUES (c_categorie_srtkey,
v_srtdeel_key,
'S',
120)
RETURNING ins_kenmerk_key INTO v_kenmerk_key;
fac.imp_writelog (
p_applname,
p_applrun,
'I',
'INS-Objecten/Categorie-kenmerk toegevoegd voor: '
|| rec.ins_srtdeel_omschrijving,
''
);
COMMIT;
ELSE
SELECT k.ins_kenmerk_key
INTO v_kenmerk_key
FROM ins_v_aanwezigkenmerk k
WHERE k.ins_srtkenmerk_key = c_categorie_srtkey
AND ( (k.ins_srtinstallatie_key = v_srtdeel_key
AND k.ins_kenmerk_niveau = 'S')
OR (k.ins_srtinstallatie_key = v_srtgroep_key
AND k.ins_kenmerk_niveau = 'G')
OR (k.ins_srtinstallatie_key =
v_discipline_key
AND k.ins_kenmerk_niveau = 'D'));
END IF;
v_errormsg := 'Fout bij bepalen huidige categorie';
SELECT COUNT ( * ), MAX (ins_kenmerkdeel_key)
INTO ccount, v_kenmerkdeel_key
FROM ins_v_aanwezigkenmerkdeel
WHERE ins_deel_key = v_deel_key
AND ins_kenmerk_key = v_kenmerk_key;
IF ccount = 0
THEN
v_errormsg := 'Fout bij toevoegen categorie';
INSERT INTO ins_kenmerkdeel (
ins_deel_key,
ins_kenmerk_key,
ins_kenmerkdeel_waarde
)
VALUES (v_deel_key, v_kenmerk_key, rec.categorie);
COMMIT;
--ELSE
-- v_errormsg := 'Fout bij wijzigen categorie';
-- UPDATE ins_kenmerkdeel
-- SET ins_kenmerkdeel_waarde = rec.categorie
-- WHERE ins_kenmerkdeel_key = v_kenmerkdeel_key;
-- COMMIT;
END IF;
END IF;
-- AFGEKEURD toevoegen; huidige waarde NOOIT gewijzigd via import! -- AFGEKEURD toevoegen; huidige waarde NOOIT gewijzigd via import!
IF rec.afgekeurd IS NOT NULL AND UPPER (rec.afgekeurd) != 'NVT' IF rec.afgekeurd IS NOT NULL AND UPPER (rec.afgekeurd) != 'NVT'
THEN THEN
@@ -10103,7 +10422,7 @@ AS
VALUES (c_afgekeurd_srtkey, VALUES (c_afgekeurd_srtkey,
v_srtdeel_key, v_srtdeel_key,
'S', 'S',
120) 122)
RETURNING ins_kenmerk_key INTO v_kenmerk_key; RETURNING ins_kenmerk_key INTO v_kenmerk_key;
fac.imp_writelog ( fac.imp_writelog (
@@ -10318,7 +10637,7 @@ END conn_update_inspectieobj;
BEGIN fac.registercustversion('CONN', 44); END; BEGIN fac.registercustversion('CONN', 44); END;
/ /
BEGIN adm.systrackscript('$Workfile: conn.sql $', '$Revision: 166 $', 0); END; BEGIN adm.systrackscript('$Workfile: conn.sql $', '$Revision: 167 $', 0); END;
/ /
COMMIT; COMMIT;