256 lines
11 KiB
SQL
256 lines
11 KiB
SQL
-- Van Wall naar JcDecauX
|
|
UPDATE INS_KENMERKDEEL
|
|
SET ins_kenmerkdeel_waarde = '48122'
|
|
WHERE 1=1
|
|
AND ins_kenmerk_key IN (581,529)
|
|
AND ins_kenmerkdeel_waarde = '48126'
|
|
AND ins_deel_key IN
|
|
(SELECT ins_deel_key
|
|
FROM (SELECT g.plaats, g.eigenaar, g.soort, g.ins_deel_omschrijving,
|
|
g.ins_deel_key, g.ins_srtdeel_key, g.ins_deel_getekend,
|
|
g.discf, g.ins_discipline_key, g.ins_alg_ruimte_type,
|
|
g.prs_perslid_key, g.prs_afdeling_key, g.district,
|
|
g.ins_srtgroep_key, g.ins_deel_upper
|
|
FROM (SELECT TO_CHAR (NULL) plaats,
|
|
CASE g.ins_alg_ruimte_type
|
|
WHEN 'A'
|
|
THEN d.prs_afdeling_naam1
|
|
WHEN 'P'
|
|
THEN p.prs_perslid_naam
|
|
|| DECODE
|
|
(NVL (p.prs_perslid_voorletters,
|
|
''
|
|
),
|
|
'', '',
|
|
', '
|
|
|| p.prs_perslid_voorletters
|
|
)
|
|
|| DECODE
|
|
(NVL (p.prs_perslid_tussenvoegsel,
|
|
''
|
|
),
|
|
'', '',
|
|
' ' || p.prs_perslid_tussenvoegsel
|
|
)
|
|
|| DECODE (NVL (p.prs_perslid_voornaam,
|
|
''),
|
|
'', '',
|
|
' ('
|
|
|| p.prs_perslid_voornaam
|
|
|| ')'
|
|
)
|
|
END eigenaar,
|
|
s.ins_srtdeel_code
|
|
|| ' - '
|
|
|| s.ins_srtdeel_omschrijving soort,
|
|
g.ins_deel_omschrijving, ins_deel_key,
|
|
s.ins_srtdeel_key, g.ins_deel_getekend, -1 discf,
|
|
g.ins_discipline_key, g.ins_alg_ruimte_type,
|
|
CASE g.ins_alg_ruimte_type
|
|
WHEN 'P'
|
|
THEN g.ins_alg_ruimte_key
|
|
WHEN 'A'
|
|
THEN NULL
|
|
END prs_perslid_key,
|
|
CASE g.ins_alg_ruimte_type
|
|
WHEN 'A'
|
|
THEN g.ins_alg_ruimte_key
|
|
WHEN 'P'
|
|
THEN d.prs_afdeling_key
|
|
END prs_afdeling_key,
|
|
-1 district, ins_srtgroep_key,
|
|
ins_deel_upper
|
|
FROM INS_DEEL g,
|
|
INS_SRTDEEL s,
|
|
prs_v_afdeling d,
|
|
PRS_PERSLID p,
|
|
prs_v_afdeling_boom b
|
|
WHERE s.ins_srtdeel_key = g.ins_srtdeel_key
|
|
AND b.prs_afdeling_key = d.prs_afdeling_key
|
|
AND g.ins_deel_verwijder IS NULL
|
|
AND g.ins_deel_module = 'INS'
|
|
AND g.ins_deel_parent_key IS NULL
|
|
AND g.ins_alg_ruimte_type = 'A'
|
|
AND g.ins_alg_ruimte_key = d.prs_afdeling_key
|
|
AND p.prs_perslid_key = 1042
|
|
UNION
|
|
SELECT TO_CHAR (NULL) plaats,
|
|
CASE g.ins_alg_ruimte_type
|
|
WHEN 'A'
|
|
THEN d.prs_afdeling_naam1
|
|
WHEN 'P'
|
|
THEN p.prs_perslid_naam
|
|
|| DECODE
|
|
(NVL (p.prs_perslid_voorletters,
|
|
''
|
|
),
|
|
'', '',
|
|
', '
|
|
|| p.prs_perslid_voorletters
|
|
)
|
|
|| DECODE
|
|
(NVL (p.prs_perslid_tussenvoegsel,
|
|
''
|
|
),
|
|
'', '',
|
|
' ' || p.prs_perslid_tussenvoegsel
|
|
)
|
|
|| DECODE (NVL (p.prs_perslid_voornaam,
|
|
''),
|
|
'', '',
|
|
' ('
|
|
|| p.prs_perslid_voornaam
|
|
|| ')'
|
|
)
|
|
END eigenaar,
|
|
s.ins_srtdeel_code
|
|
|| ' - '
|
|
|| s.ins_srtdeel_omschrijving soort,
|
|
g.ins_deel_omschrijving, ins_deel_key,
|
|
s.ins_srtdeel_key, g.ins_deel_getekend, -1 discf,
|
|
g.ins_discipline_key, g.ins_alg_ruimte_type,
|
|
CASE g.ins_alg_ruimte_type
|
|
WHEN 'P'
|
|
THEN g.ins_alg_ruimte_key
|
|
WHEN 'A'
|
|
THEN NULL
|
|
END prs_perslid_key,
|
|
CASE g.ins_alg_ruimte_type
|
|
WHEN 'A'
|
|
THEN g.ins_alg_ruimte_key
|
|
WHEN 'P'
|
|
THEN d.prs_afdeling_key
|
|
END prs_afdeling_key,
|
|
-1 district, ins_srtgroep_key,
|
|
ins_deel_upper
|
|
FROM INS_DEEL g,
|
|
INS_SRTDEEL s,
|
|
prs_v_afdeling d,
|
|
PRS_PERSLID p,
|
|
prs_v_afdeling_boom b
|
|
WHERE s.ins_srtdeel_key = g.ins_srtdeel_key
|
|
AND b.prs_afdeling_key = d.prs_afdeling_key
|
|
AND g.ins_deel_verwijder IS NULL
|
|
AND g.ins_deel_module = 'INS'
|
|
AND g.ins_deel_parent_key IS NULL
|
|
AND g.ins_alg_ruimte_type = 'P'
|
|
AND d.prs_afdeling_key = p.prs_afdeling_key
|
|
AND g.ins_alg_ruimte_key = p.prs_perslid_key) g,
|
|
prs_v_afdeling_boom b
|
|
WHERE b.prs_afdeling_key = g.prs_afdeling_key
|
|
AND g.ins_srtdeel_key IN (43401)
|
|
AND g.ins_deel_key IN (
|
|
SELECT ins_deel_key
|
|
FROM INS_KENMERKDEEL
|
|
WHERE ins_kenmerk_key = 529
|
|
AND ins_kenmerkdeel_waarde = '48126'
|
|
AND ins_kenmerkdeel_verwijder IS NULL)
|
|
AND g.ins_deel_key IN (
|
|
SELECT ins_deel_key
|
|
FROM INS_KENMERKDEEL
|
|
WHERE ins_kenmerk_key = 581
|
|
AND ins_kenmerkdeel_waarde = '48126'
|
|
AND ins_kenmerkdeel_verwijder IS NULL)
|
|
AND g.ins_discipline_key IN (1001)
|
|
UNION ALL
|
|
SELECT o.alg_plaatsaanduiding plaats, NULL eigenaar,
|
|
s.ins_srtdeel_code
|
|
|| ' - '
|
|
|| s.ins_srtdeel_omschrijving soort,
|
|
g.ins_deel_omschrijving, g.ins_deel_key, s.ins_srtdeel_key,
|
|
g.ins_deel_getekend, g.ins_discipline_key discf,
|
|
g.ins_discipline_key, g.ins_alg_ruimte_type,
|
|
g.ins_alg_ruimte_key, 0 dummy2, l.alg_district_key,
|
|
ins_srtgroep_key, ins_deel_upper
|
|
FROM INS_DEEL g,
|
|
ins_v_alg_overzicht o,
|
|
INS_SRTDEEL s,
|
|
ALG_LOCATIE l
|
|
WHERE g.ins_deel_verwijder IS NULL
|
|
AND g.ins_deel_module = 'INS'
|
|
AND g.ins_deel_parent_key IS NULL
|
|
AND o.alg_onroerendgoed_keys = g.ins_alg_ruimte_key
|
|
AND o.alg_onroerendgoed_type = g.ins_alg_ruimte_type
|
|
AND g.ins_alg_ruimte_type IN ('T', 'R', 'W')
|
|
AND o.alg_locatie_key = g.ins_alg_locatie_key
|
|
AND o.alg_locatie_key = l.alg_locatie_key
|
|
AND s.ins_srtdeel_key = g.ins_srtdeel_key
|
|
AND g.ins_srtdeel_key IN (43401)
|
|
AND g.ins_deel_key IN (
|
|
SELECT ins_deel_key
|
|
FROM INS_KENMERKDEEL
|
|
WHERE ins_kenmerk_key = 529
|
|
AND ins_kenmerkdeel_waarde = '48126'
|
|
AND ins_kenmerkdeel_verwijder IS NULL)
|
|
AND g.ins_deel_key IN (
|
|
SELECT ins_deel_key
|
|
FROM INS_KENMERKDEEL
|
|
WHERE ins_kenmerk_key = 581
|
|
AND ins_kenmerkdeel_waarde = '48126'
|
|
AND ins_kenmerkdeel_verwijder IS NULL)
|
|
AND g.ins_discipline_key IN (1001)) xx);
|
|
|
|
commit;
|
|
|
|
|
|
-- Default voor 'Infotin aanwezig' op 'Nee'
|
|
DECLARE
|
|
CURSOR c1 IS
|
|
SELECT d.ins_deel_key
|
|
FROM INS_DEEL d
|
|
WHERE d.ins_srtdeel_key IN (43401)
|
|
AND 1=1
|
|
AND ins_deel_verwijder IS NULL
|
|
AND NOT EXISTS (
|
|
SELECT 'x'
|
|
FROM INS_KENMERKDEEL kd
|
|
WHERE kd.ins_kenmerk_key = 921
|
|
AND d.ins_deel_key = kd.ins_deel_key
|
|
AND ins_kenmerkdeel_verwijder IS NULL);
|
|
rec c1%rowtype;
|
|
teller integer;
|
|
BEGIN
|
|
|
|
OPEN c1;
|
|
IF c1%ISOPEN THEN
|
|
|
|
teller := 0;
|
|
|
|
LOOP
|
|
BEGIN
|
|
|
|
FETCH c1 INTO rec;
|
|
EXIT WHEN c1%NOTFOUND;
|
|
teller := teller + 1;
|
|
|
|
INSERT INTO INS_KENMERKDEEL
|
|
(ins_kenmerk_key, ins_deel_key, ins_kenmerkdeel_waarde)
|
|
VALUES
|
|
(921, rec.ins_deel_key, '130');
|
|
|
|
IF ((teller mod 100) = 0) THEN
|
|
commit;
|
|
END IF;
|
|
|
|
END;
|
|
END LOOP;
|
|
|
|
END IF;
|
|
|
|
CLOSE c1;
|
|
|
|
commit;
|
|
END;
|
|
/
|
|
|
|
|
|
UPDATE PRS_BEDRIJF
|
|
SET prs_bedrijf_verwijder = SYSDATE
|
|
WHERE prs_bedrijf_key = 48126;
|
|
|
|
|
|
commit;
|
|
|
|
|
|
|