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

svn path=/Customer/trunk/; revision=13325

Browse Source
This commit is contained in:
Richard Derks
2007-08-20 10:11:08 +00:00
parent d65e5c114b
commit 871c1edefe
1 changed files with 255 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

255
CONN/Once/conn#13084.sql Normal file
View File

@@ -0,0 +1,255 @@
-- 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_deel_x, 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, g.ins_deel_x, 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, g.ins_deel_x, 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,
g.ins_deel_x, 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;