svn path=/Customer/trunk/; revision=14826
This commit is contained in:
Maarten van der Heide
@@ -1,8 +1,8 @@
|
||||
-- Customer specific once-script CONN44.
|
||||
--
|
||||
-- (c) 2011 SG|facilitor bv
|
||||
-- $Revision: 1 $
|
||||
-- $Modtime: 1-06-11 16:26 $
|
||||
-- $Revision: 2 $
|
||||
-- $Modtime: 7-06-11 14:40 $
|
||||
--
|
||||
-- Support: +31 53 4800700
|
||||
SET ECHO ON
|
||||
@@ -87,19 +87,39 @@ INSERT INTO fac_usrrap (fac_usrrap_omschrijving,
|
||||
0);
|
||||
|
||||
-- reanimeer oude huur/verhuurcontracten omdat de einddatum nooit aangepast is.
|
||||
-- WHERE ins_discipline_key IN (1564, 1565) betreft: inhuur en verhuurcontracten
|
||||
UPDATE cnt_contract
|
||||
SET cnt_contract_looptijd_tot = TO_DATE ('20200101', 'yyyymmdd')
|
||||
WHERE ins_discipline_key IN (1564, 1565) -- inhuur en verhuurcontracten
|
||||
WHERE ins_discipline_key IN (1564, 1565)
|
||||
AND cnt_contract_looptijd_tot < SYSDATE;
|
||||
|
||||
COMMIT;
|
||||
|
||||
-- Converteer last/next keurdatum
|
||||
/* Formatted on 1-6-2011 16:10:30 (QP5 v5.115.810.9015) */
|
||||
-- verwijder ooit eens achtergebleven contract-object-koppeling!
|
||||
-- WHERE cnt_ins_srtdeel_key = 27846 betreft: objectsoort '.'
|
||||
UPDATE cnt_contract_object
|
||||
SET cnt_contract_object_verwijder = SYSDATE
|
||||
WHERE cnt_ins_srtdeel_key = 27846
|
||||
AND cnt_contract_object_verwijder IS NULL;
|
||||
|
||||
-- verwijder deel-onderdeel-koppeling!
|
||||
-- WHERE ins_deel_key = 93556 betreft: object 'OVERIG001'
|
||||
UPDATE ins_deel
|
||||
SET ins_deel_verwijder = SYSDATE
|
||||
WHERE ins_deel_key = 93556
|
||||
AND ins_deel_verwijder IS NULL;
|
||||
|
||||
COMMIT;
|
||||
|
||||
-- Converteer Datum gekeurd, Datum volgende keuring en - voor objectsoort
|
||||
-- 27844='Slipvangers en OBAS' - Bouwjaar
|
||||
/* Formatted on 7-6-2011 10:32:16 (QP5 v5.115.810.9015) */
|
||||
DECLARE
|
||||
v_errormsg VARCHAR2 (1024);
|
||||
c_controle_soort VARCHAR2 (60) := '_DEFAULT';
|
||||
c_controle_periode NUMBER (10) := 360;
|
||||
c_controle_periode_1 NUMBER (10) := 365;
|
||||
--XXc_controle_periode_5 NUMBER (10) := 1826;
|
||||
c_controle_periode_15 NUMBER (10) := 5478;
|
||||
v_srtcontrole_id VARCHAR2 (20);
|
||||
v_controlemode_key NUMBER (10);
|
||||
laatste DATE;
|
||||
@@ -124,30 +144,39 @@ BEGIN
|
||||
z1.next_keur,
|
||||
fac.safe_to_date (z3.waarde, 'dd-mm-yyyy') b,
|
||||
z1.keuringsinstantie,
|
||||
z6.waarde e
|
||||
FROM (SELECT l.alg_locatie_omschrijving werkplaats,
|
||||
td.ins_discipline_omschrijving discipline,
|
||||
z6.waarde e,
|
||||
z1.bouwjaar,
|
||||
fac.safe_to_number (z7.waarde) f
|
||||
FROM (SELECT td.ins_discipline_omschrijving
|
||||
discipline,
|
||||
td.ins_discipline_key discipline_key,
|
||||
sg.ins_srtgroep_omschrijving groep,
|
||||
sg.ins_srtgroep_key groep_key,
|
||||
sd.ins_srtdeel_code objectsoortcode,
|
||||
sd.ins_srtdeel_omschrijving objectsoort,
|
||||
sd.ins_srtdeel_omschrijving
|
||||
objectsoort,
|
||||
sd.ins_srtdeel_key objectsoort_key,
|
||||
d.ins_deel_key,
|
||||
d.ins_deel_omschrijving,
|
||||
d.ins_deel_verwijder,
|
||||
l.alg_locatie_key,
|
||||
y.keur_datum,
|
||||
y.next_keur,
|
||||
y.keuringsinstantie
|
||||
y.keuringsinstantie,
|
||||
y.bouwjaar
|
||||
FROM ( SELECT DISTINCT
|
||||
x.ins_srtdeel_key,
|
||||
MAX (x.k2) keur_datum,
|
||||
MAX (x.k3) next_keur,
|
||||
MAX (x.k6) keuringsinstantie
|
||||
MAX (x.k6)
|
||||
keuringsinstantie,
|
||||
MAX (x.k7) bouwjaar
|
||||
FROM (SELECT sd.ins_srtdeel_key,
|
||||
k.ins_kenmerk_key k2,
|
||||
k.ins_kenmerk_key
|
||||
k2,
|
||||
NULL k3,
|
||||
NULL k6
|
||||
NULL k6,
|
||||
NULL k7
|
||||
FROM ins_v_aanwezigsrtkenmerk sk,
|
||||
ins_v_aanwezigkenmerk k,
|
||||
ins_srtgroep sg,
|
||||
@@ -164,9 +193,11 @@ BEGIN
|
||||
sd.ins_srtgroep_key
|
||||
UNION ALL
|
||||
SELECT sd.ins_srtdeel_key,
|
||||
k.ins_kenmerk_key k2,
|
||||
k.ins_kenmerk_key
|
||||
k2,
|
||||
NULL k3,
|
||||
NULL k6
|
||||
NULL k6,
|
||||
NULL k7
|
||||
FROM ins_v_aanwezigsrtkenmerk sk,
|
||||
ins_v_aanwezigkenmerk k,
|
||||
ins_srtgroep sg,
|
||||
@@ -183,9 +214,11 @@ BEGIN
|
||||
sd.ins_srtgroep_key
|
||||
UNION ALL
|
||||
SELECT sd.ins_srtdeel_key,
|
||||
k.ins_kenmerk_key k2,
|
||||
k.ins_kenmerk_key
|
||||
k2,
|
||||
NULL k3,
|
||||
NULL k6
|
||||
NULL k6,
|
||||
NULL k7
|
||||
FROM ins_v_aanwezigsrtkenmerk sk,
|
||||
ins_v_aanwezigkenmerk k,
|
||||
ins_srtdeel sd
|
||||
@@ -200,8 +233,10 @@ BEGIN
|
||||
UNION ALL -- Datum volgende keuring
|
||||
SELECT sd.ins_srtdeel_key,
|
||||
NULL k2,
|
||||
k.ins_kenmerk_key k3,
|
||||
NULL k6
|
||||
k.ins_kenmerk_key
|
||||
k3,
|
||||
NULL k6,
|
||||
NULL k7
|
||||
FROM ins_v_aanwezigsrtkenmerk sk,
|
||||
ins_v_aanwezigkenmerk k,
|
||||
ins_srtgroep sg,
|
||||
@@ -219,8 +254,10 @@ BEGIN
|
||||
UNION ALL
|
||||
SELECT sd.ins_srtdeel_key,
|
||||
NULL k2,
|
||||
k.ins_kenmerk_key k3,
|
||||
NULL k6
|
||||
k.ins_kenmerk_key
|
||||
k3,
|
||||
NULL k6,
|
||||
NULL k7
|
||||
FROM ins_v_aanwezigsrtkenmerk sk,
|
||||
ins_v_aanwezigkenmerk k,
|
||||
ins_srtgroep sg,
|
||||
@@ -238,8 +275,10 @@ BEGIN
|
||||
UNION ALL
|
||||
SELECT sd.ins_srtdeel_key,
|
||||
NULL k2,
|
||||
k.ins_kenmerk_key k3,
|
||||
NULL k6
|
||||
k.ins_kenmerk_key
|
||||
k3,
|
||||
NULL k6,
|
||||
NULL k7
|
||||
FROM ins_v_aanwezigsrtkenmerk sk,
|
||||
ins_v_aanwezigkenmerk k,
|
||||
ins_srtdeel sd
|
||||
@@ -255,13 +294,16 @@ BEGIN
|
||||
SELECT sd.ins_srtdeel_key,
|
||||
NULL k2,
|
||||
NULL k3,
|
||||
k.ins_kenmerk_key k6
|
||||
k.ins_kenmerk_key
|
||||
k6,
|
||||
NULL k7
|
||||
FROM ins_v_aanwezigsrtkenmerk sk,
|
||||
ins_v_aanwezigkenmerk k,
|
||||
ins_srtgroep sg,
|
||||
ins_srtdeel sd
|
||||
WHERE sk.ins_srtkenmerk_key IN
|
||||
(1153, 1325) -- Keuringsinstantie/discipline
|
||||
(1153,
|
||||
1325) -- Keuringsinstantie/discipline
|
||||
AND sk.ins_srtkenmerk_key =
|
||||
k.ins_srtkenmerk_key
|
||||
AND k.ins_kenmerk_niveau =
|
||||
@@ -274,13 +316,16 @@ BEGIN
|
||||
SELECT sd.ins_srtdeel_key,
|
||||
NULL k2,
|
||||
NULL k3,
|
||||
k.ins_kenmerk_key k6
|
||||
k.ins_kenmerk_key
|
||||
k6,
|
||||
NULL k7
|
||||
FROM ins_v_aanwezigsrtkenmerk sk,
|
||||
ins_v_aanwezigkenmerk k,
|
||||
ins_srtgroep sg,
|
||||
ins_srtdeel sd
|
||||
WHERE sk.ins_srtkenmerk_key IN
|
||||
(1153, 1325) -- Keuringsinstantie/groep
|
||||
(1153,
|
||||
1325) -- Keuringsinstantie/groep
|
||||
AND sk.ins_srtkenmerk_key =
|
||||
k.ins_srtkenmerk_key
|
||||
AND k.ins_kenmerk_niveau =
|
||||
@@ -293,33 +338,98 @@ BEGIN
|
||||
SELECT sd.ins_srtdeel_key,
|
||||
NULL k2,
|
||||
NULL k3,
|
||||
k.ins_kenmerk_key k6
|
||||
k.ins_kenmerk_key
|
||||
k6,
|
||||
NULL k7
|
||||
FROM ins_v_aanwezigsrtkenmerk sk,
|
||||
ins_v_aanwezigkenmerk k,
|
||||
ins_srtdeel sd
|
||||
WHERE sk.ins_srtkenmerk_key IN
|
||||
(1153, 1325) -- Keuringsinstantie/soort
|
||||
(1153,
|
||||
1325) -- Keuringsinstantie/soort
|
||||
AND sk.ins_srtkenmerk_key =
|
||||
k.ins_srtkenmerk_key
|
||||
AND k.ins_kenmerk_niveau =
|
||||
'S'
|
||||
AND k.ins_srtinstallatie_key =
|
||||
sd.ins_srtdeel_key)
|
||||
x
|
||||
sd.ins_srtdeel_key
|
||||
UNION ALL -- Bouwjaar
|
||||
SELECT sd.ins_srtdeel_key,
|
||||
NULL k2,
|
||||
NULL k3,
|
||||
NULL k6,
|
||||
k.ins_kenmerk_key
|
||||
k7
|
||||
FROM ins_v_aanwezigsrtkenmerk sk,
|
||||
ins_v_aanwezigkenmerk k,
|
||||
ins_srtdeel sd
|
||||
WHERE sk.ins_srtkenmerk_key =
|
||||
44 -- Bouwjaar/soort
|
||||
AND sk.ins_srtkenmerk_key =
|
||||
k.ins_srtkenmerk_key
|
||||
AND k.ins_kenmerk_niveau =
|
||||
'S'
|
||||
AND k.ins_srtinstallatie_key =
|
||||
sd.ins_srtdeel_key
|
||||
AND sd.ins_srtdeel_key =
|
||||
27844) x
|
||||
GROUP BY x.ins_srtdeel_key) y,
|
||||
ins_deel d,
|
||||
ins_srtdeel sd,
|
||||
ins_srtgroep sg,
|
||||
ins_tab_discipline td,
|
||||
alg_locatie l
|
||||
WHERE y.ins_srtdeel_key = d.ins_srtdeel_key
|
||||
AND d.ins_srtdeel_key = sd.ins_srtdeel_key
|
||||
alg_v_aanweziglocatie l
|
||||
WHERE y.ins_srtdeel_key NOT IN
|
||||
(27846, 37101) -- . en Afvalverwerking
|
||||
AND y.ins_srtdeel_key =
|
||||
d.ins_srtdeel_key
|
||||
AND 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(+)) z1
|
||||
l.alg_locatie_key(+)
|
||||
UNION ALL
|
||||
SELECT td.ins_discipline_omschrijving
|
||||
discipline,
|
||||
td.ins_discipline_key discipline_key,
|
||||
sg.ins_srtgroep_omschrijving groep,
|
||||
sg.ins_srtgroep_key groep_key,
|
||||
sd.ins_srtdeel_code objectsoortcode,
|
||||
sd.ins_srtdeel_omschrijving
|
||||
objectsoort,
|
||||
sd.ins_srtdeel_key objectsoort_key,
|
||||
NULL,
|
||||
NULL,
|
||||
NULL,
|
||||
NULL,
|
||||
NULL,
|
||||
NULL,
|
||||
NULL,
|
||||
NULL
|
||||
FROM ins_srtdeel sd,
|
||||
ins_srtgroep sg,
|
||||
ins_tab_discipline td
|
||||
WHERE sd.ins_srtdeel_key IN
|
||||
(27829, 27841, 37082)
|
||||
AND sd.ins_srtgroep_key =
|
||||
sg.ins_srtgroep_key
|
||||
AND sg.ins_discipline_key =
|
||||
td.ins_discipline_key) z1
|
||||
LEFT JOIN
|
||||
(SELECT ok.alg_onrgoed_key,
|
||||
fac.safe_to_date (
|
||||
ok.alg_onrgoedkenmerk_waarde,
|
||||
'dd-mm-yyyy'
|
||||
)
|
||||
datum
|
||||
FROM alg_v_aanwezigonrgoedkenmerk ok
|
||||
WHERE ok.alg_kenmerk_key = 22 -- Uit beheer
|
||||
AND ok.alg_onrgoed_niveau = 'L')
|
||||
uitbeheer
|
||||
ON z1.alg_locatie_key = uitbeheer.alg_onrgoed_key
|
||||
LEFT JOIN
|
||||
(SELECT kd.ins_deel_key,
|
||||
kd.ins_kenmerk_key,
|
||||
@@ -341,7 +451,14 @@ BEGIN
|
||||
FROM ins_v_aanwezigkenmerkdeel kd) z6
|
||||
ON z1.ins_deel_key = z6.ins_deel_key
|
||||
AND z1.keuringsinstantie = z6.ins_kenmerk_key
|
||||
WHERE z1.ins_deel_verwijder IS NULL
|
||||
LEFT JOIN
|
||||
(SELECT kd.ins_deel_key,
|
||||
kd.ins_kenmerk_key,
|
||||
kd.ins_kenmerkdeel_waarde waarde
|
||||
FROM ins_v_aanwezigkenmerkdeel kd) z7
|
||||
ON z1.ins_deel_key = z7.ins_deel_key
|
||||
AND z1.bouwjaar = z7.ins_kenmerk_key
|
||||
WHERE z1.ins_deel_verwijder IS NULL AND uitbeheer.datum IS NULL
|
||||
ORDER BY 1,
|
||||
2,
|
||||
3,
|
||||
@@ -400,7 +517,12 @@ BEGIN
|
||||
1,
|
||||
60
|
||||
),
|
||||
c_controle_periode -- Default een jaar!
|
||||
DECODE (rc.objectsoort_key,
|
||||
27844, -- Objectsoort 'Slipvangers en OBAS'
|
||||
c_controle_periode_15, -- 15 jaar!
|
||||
--XX97781, -- Objectsoort 'Tank'
|
||||
--XX c_controle_periode_5, -- 5 jaar!
|
||||
c_controle_periode_1) -- Default 1 jaar
|
||||
)
|
||||
RETURNING ins_srtcontrole_key INTO v_srtcontrole_id;
|
||||
|
||||
@@ -443,14 +565,34 @@ BEGIN
|
||||
AND sc.ins_srtcontrole_niveau = 'D'));
|
||||
END IF;
|
||||
|
||||
-- Als volgende in toekomst, dan laatste=volgende - 1 jaar; anders is laatste=laatste
|
||||
--XX Als volgende in toekomst, dan laatste=volgende - 1 jaar (behalve voor
|
||||
--XX objectsoort 'Tank', waarvoor geldt laatste=volgende - 5 jaar); anders
|
||||
--XX is laatste=laatste (behalve voor objectsoort 'Slipvangers en OBAS' met
|
||||
--XX een bouwjaar >15 jaar oud, waarvoor geldt laatste=bouwjaar + 15 jaar)!
|
||||
-- Als volgende in toekomst, dan laatste=volgende - 1 jaar; anders is
|
||||
-- laatste=laatste (behalve voor objectsoort 'Slipvangers en OBAS' met
|
||||
-- een bouwjaar >15 jaar oud, waarvoor geldt laatste=bouwjaar + 15)!
|
||||
IF rc.b > SYSDATE
|
||||
THEN
|
||||
laatste :=
|
||||
TO_DATE (TO_CHAR (rc.b, 'dd-mm') || '-2010', 'dd-mm-yyyy');
|
||||
--XXIF rc.objectsoort_key = 97781 -- Objectsoort 'Tank'
|
||||
--XXTHEN
|
||||
--XX laatste :=
|
||||
--XX TO_DATE (TO_CHAR (rc.b, 'dd-mm') || '-2010', 'dd-mm-yyyy');
|
||||
--XXELSE
|
||||
--XX laatste :=
|
||||
--XX TO_DATE (TO_CHAR (rc.b, 'dd-mm') || '-2010', 'dd-mm-yyyy');
|
||||
--XXEND IF;
|
||||
ELSE -- b <= SYSDATE
|
||||
IF rc.f + 15 < 2011 -- Alleen objectsoort 27844='Slipvangers en OBAS'
|
||||
THEN
|
||||
laatste :=
|
||||
TO_DATE ('01-01-' || TO_CHAR (rc.f + 15), 'dd-mm-yyyy');
|
||||
ELSE
|
||||
laatste := rc.a;
|
||||
END IF;
|
||||
END IF;
|
||||
|
||||
IF (laatste IS NOT NULL)
|
||||
THEN
|
||||
@@ -522,7 +664,7 @@ BEGIN
|
||||
END;
|
||||
/
|
||||
|
||||
BEGIN adm.systrackscript('$Workfile: CONN44.sql $', '$Revision: 1 $', 1); END;
|
||||
BEGIN adm.systrackscript('$Workfile: CONN44.sql $', '$Revision: 2 $', 1); END;
|
||||
/
|
||||
|
||||
SPOOL OFF
|
||||
|
||||
Reference in New Issue
Block a user