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

This commit is contained in:
Peter Feij
2014-03-31 15:12:41 +00:00
parent 12d6787530
commit b1de62366f
498 changed files with 0 additions and 123852 deletions

View File

@@ -1,44 +0,0 @@
DECLARE
BEGIN
FOR rec
IN (SELECT p.prs_perslid_email,
i.prs_perslid_oslogin,
p.prs_perslid_key
FROM prs_perslid p, fac_imp_perslid i
WHERE p.prs_perslid_email = i.prs_perslid_email
AND p.prs_perslid_verwijder IS NULL)
LOOP
BEGIN
UPDATE prs_perslid
SET prs_perslid_oslogin = rec.prs_perslid_oslogin
WHERE prs_perslid_key = rec.prs_perslid_key;
EXCEPTION
WHEN OTHERS
THEN
DBMS_OUTPUT.put_line (
rec.prs_perslid_email || '-' || rec.prs_perslid_oslogin);
END;
END LOOP;
COMMIT;
END;
/
-- verwijder de personen die al voorkomen zodat de anderen geimporteerd kunnen worden
DELETE fac_imp_perslid
WHERE prs_perslid_nr NOT IN
(SELECT prs_perslid_nr
FROM fac_imp_perslid i
WHERE NOT EXISTS
(SELECT prs_perslid_key
FROM prs_perslid p
WHERE i.prs_perslid_email = p.prs_perslid_email))
-- nieuwe personen komen onder de afdeling import
UPDATE fac_imp_perslid
SET alg_locatie_code = NULL,
alg_gebouw_code = NULL,
alg_verdieping_volgnr = NULL,
alg_ruimte_nr = NULL,
prs_werkplek_volgnr = NULL,
prs_werkplek_omschrijving = NULL,
prs_afdeling_naam = 'Import';

View File

@@ -1,701 +0,0 @@
SET ECHO ON
SPOOL xAAAR#28375.lst
BEGIN fac.initsession('NL'); END;
/
CREATE TABLE tmp_imp_cnt
(
co VARCHAR2 (10),
van NUMBER (10, 2),
naar NUMBER (10, 2)
);
SET define off;
SET SERVEROUTPUT ON;
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO1001.1', 1000, 1500);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO1007.1', 8000, 3000);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO1008.1', 32500, 64000);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO1011.1', 39.08, 40.3);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO11.1', 98, 196);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO180.1', 1400, 1000);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO181.1', 1500, 821);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO182.1', 3200, 3000);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO184.1', 2000, 1000);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO186.1', 4500, 4000);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO19.1', 297.64, 0);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO190.1', 51000, 60000);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO192.1', 12500, 3242.86);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO193.1', 11500, 10000);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO195.1', 7000, 8000);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO20.1', 420.17, 439.5);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO21.1', 375, 384.38);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO220.1', 12490.43, 16459.2);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO222.1', 32116.68, 33366);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO246.1', 1, 3032.26);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO247.1', 1, 3026.42);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO248.1', 1, 10470.9);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO249.1', 1, 1765.64);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO250.1', 1, 3352.78);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO26.1', 4200, 3200);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO264.1', 17500, 20000);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO266.1', 14000, 20000);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO27.1', 1782, 990);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO28.1', 8032.68, 6844.95);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO285.1', 850, 1400);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO286.1', 10205.96, 5103.02);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO287.1', 871.6, 753.64);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO29.1', 12011.01, 14571.77);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO290.1', 1505.2, 448.56);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO291.1', 794.76, 397.34);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO292.1', 1076.08, 570.76);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO293.1', 318, 813.21);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO294.1', 1335.6, 669.5);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO297.1', 1290.47, 1566);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO298.1', 2123.05, 353.92);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO303.1', 257.06, 475.8);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO304.1', 1093.79, 301.4);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO31.1', 6040.95, 5440.92);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO32.1', 1456, 501);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO350.1', 12324, 7189);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO350.2', 12324, 0);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO352.1', 12324, 14362.2);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO355.1', 42504.76, 17697.1);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO356.1', 43019.15, 42985.32);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO358.1', 43019.15, 42985.32);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO362.1', 2185.14, 0);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO363.1', 4370.28, 367.35);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO364.1', 4370.28, 0);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO365.1', 4370.28, 0);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO366.1', 4370.28, 699.15);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO416.0', 25000, 20000);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO417.0', 23000, 20000);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO418.0', 6500, 5500);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO419.0', 9000, 10500);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO420.0', 32000, 9636.97);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO421.0', 7500, 6500);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO423.0', 6000, 7000);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO43.1', 2454.24, 822.08);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO44.1', 165.61, 139.12);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO468.0', 134.21, 0);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO470.0', 2988.99, 3146.28);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO471.0', 1494.49, 1542.36);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO472.0', 1494.49, 1542.36);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO473.0', 5977.97, 6292.44);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO474.0', 4782.37, 5034);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO475.0', 4782.37, 5034);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO476.0', 4782.37, 1919.57);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO477.0', 5260.61, 5537.4);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO478.0', 6456.2, 8218);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO479.0', 102, 107.34);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO480.0', 102, 107.34);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO481.0', 204, 214.74);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO482.0', 204, 214.74);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO483.0', 204, 214.74);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO486.0', 214.78, 0);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO487.0', 214.78, 268.42);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO495.0', 2500, 2000);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO497.0', 500, 800);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO498.0', 500, 145.83);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO510.0', 792.54, 198.13);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO517.0', 17583.3, 7033.32);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO517.1', 17583.3, 0);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO518.0', 19297.2, 46313.23);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO518.1', 19297.2, 0);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO519.1', 8279.95, 0);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO520.1', 3498, 0);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO521.1', 19794.3, 0);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO522.1', 3751.35, 0);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO523.0', 11874.25, 8309.88);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO523.1', 11874.25, 0);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO524.0', 45002.45, 108005.89);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO524.1', 64080.8, 0);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO534.0', 1174.15, 2817.97);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO534.1', 1174.15, 0);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO535.0', 3123.65, 4072.75);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO535.1', 3123.65, 0);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO536.0', 7187.75, 2228.4);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO536.1', 2994.9, 0);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO537.0', 10994.3, 26386.13);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO537.1', 10994.3, 0);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO545.0', 666.1, 466.27);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO545.1', 666.1, 0);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO548.0', 4310, 10344);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO548.1', 4310, 0);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO549.0', 7910.75, 18985.76);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO549.1', 7910.75, 0);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO55.1', 800, 0);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO552.0', 2435.05, 5844.11);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO552.1', 2435.05, 0);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO553.0', 4263.5, 10438.92);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO553.1', 4263.5, 0);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO556.0', 1932.4, 772.96);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO556.1', 1932.4, 0);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO557.0', 1379.7, 3311.23);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO557.1', 1379.7, 0);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO558.0', 2916.25, 4421);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO558.1', 2916.25, 0);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO559.1', 64.8, 0);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO560.1', 1343.95, 0);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO561.1', 385.5, 0);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO562.1', 426.1, 0);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO563.0', 1572.1, 3772.98);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO563.1', 1572.1, 0);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO573.0', 721, 1730.43);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO573.1', 721, 0);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO574.0', 304.85, 731.65);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO574.1', 304.85, 0);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO577.0', 5833.95, 2287.84);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO577.1', 5833.95, 0);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO578.0', 1454.7, 3422.88);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO578.1', 1454.7, 0);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO579.0', 4586.78, 4496.88);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO579.1', 1911.15, 0);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO580.0', 1817.79, 1782.12);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO580.1', 757.4, 0);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO581.0', 11359.68, 11087);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO581.1', 4264.85, 0);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO582.0', 3483.05, 3363.36);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO582.1', 3483.05, 0);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO583.0', 10949.05, 25762.44);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO583.1', 10949.05, 0);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO591.0', 500, 1200);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO591.1', 500, 0);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO593.0', 3147.21, 0);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO601.0', 780.95, 1380.84);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO601.1', 780.95, 13.02);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO603.1', 1750, 0);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO605.1', 500, 0);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO607.0', 569.45, 1339.92);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO607.1', 569.45, 0);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO608.0', 1228.95, 2889.48);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO608.1', 1228.95, 0);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO671.0', 660, 200);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO674.0', 13000, 4137.31);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO675.0', 13000, 22000);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO676.0', 11000, 14000);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO677.0', 20000, 11767.84);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO679.0', 10000, 15537.28);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO681.0', 7000, 6350.15);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO683.0', 3000, 705.17);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO708.0', 26500, 30000);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO739.0', 45.23, 56.54);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO767.0', 100, 0);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO8.1', 862.26, 1142.28);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO9.1', 563.04, 572.04);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO517.2', 17583.3, 30374.7);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO556.2', 1932.4, 3099.9);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO577.2', 5833.95, 10594.2);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO738.0', 1000, 3000);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO752.0', 82.74, 0);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO731.0', 2831.58, 3356);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO732.0', 214.74, 1000);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO747.0', 18.49, 5135);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO736.0', 21333.36, 15000);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO753.0', 700, 1800);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO754.0', 2000, 0);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO757.0', 9.26, 6000);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO355.2', 42504.76, 14865.56);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO741.0', 16.11, 0);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO741.0', 120.55, 0);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO741.0', 143.2, 0);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO741.0', 224.68, 0);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO741.0', 383.39, 0);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO741.0', 385.56, 0);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO741.0', 497.6, 0);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO741.0', 627.7, 0);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO741.0', 651.76, 0);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO741.0', 714.85, 0);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO741.0', 1912.49, 0);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO788.0', 5500, 7000);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO282.3', 77100.9, 69601);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO284.3', 22770.72, 23139);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO286.2', 10205.96, 5140.48);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO287.2', 871.6, 630.2);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO289.2', 2120.52, 700.3);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO290.2', 1505.2, 448.56);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO291.2', 794.76, 407.6);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO292.2', 1076.08, 857.61);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO294.2', 1335.6, 668.95);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO351.2', 25854, 26500);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO362.2', 2185.14, 1000);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO365.2', 4370.28, 0);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO677.1', 20000, 0);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO786.0', 18.76, 0);
INSERT INTO tmp_imp_cnt (co, van, naar)
VALUES ('CO790.0', 1140, 245.5);
COMMIT;
DECLARE
CURSOR c
IS
SELECT DISTINCT co, naar FROM tmp_imp_cnt;
contract_key NUMBER (10);
BEGIN
FOR rec IN c
LOOP
BEGIN
SELECT cnt_contract_key
INTO contract_key
FROM cnt_contract
WHERE rec.co =
'CO'
|| cnt_contract_nummer_intern
|| '.'
|| cnt_contract_versie;
UPDATE cnt_contract
SET cnt_contract_kosten = rec.naar
WHERE cnt_contract_key = contract_key;
UPDATE cnt_contract_plaats
SET cnt_contract_plaats_gewicht = rec.naar
WHERE cnt_contract_key = contract_key;
INSERT INTO fac_tracking (fac_tracking_refkey,
fac_srtnotificatie_key,
fac_tracking_oms)
VALUES (contract_key,
77,
'Contractbedrag op verzoek van AAFM aangepast');
DBMS_OUTPUT.put_line ('contract gevonden: ' || rec.co);
EXCEPTION
WHEN NO_DATA_FOUND
THEN
DBMS_OUTPUT.put_line ('contract NIET gevonden: ' || rec.co);
END;
END LOOP;
END;
/
DROP TABLE tmp_imp_cnt;
COMMIT;
BEGIN adm.systrackscriptId('$Id: '); END;
/
SPOOL OFF
SET ECHO OFF

View File

@@ -1,51 +0,0 @@
SET ECHO ON
SPOOL xAAAR#28541.lst
BEGIN fac.initsession('NL'); END;
/
--247.1 -3026.42
update cnt_contract_plaats cp set cnt_contract_plaats_gewicht = -3032.26 where exists (select cnt_contract_key from cnt_contract c where c.cnt_contract_key = cp.cnt_contract_key and cnt_contract_nummer || '.' || cnt_contract_versie = '246.1');
update cnt_contract set cnt_contract_kosten = -3032.26 where cnt_contract_nummer || '.' || cnt_contract_versie = '246.1';
--247.1 -3026.42
update cnt_contract_plaats cp set cnt_contract_plaats_gewicht = -3026.42 where exists (select cnt_contract_key from cnt_contract c where c.cnt_contract_key = cp.cnt_contract_key and cnt_contract_nummer || '.' || cnt_contract_versie = '247.1');
update cnt_contract set cnt_contract_kosten = -3026.42 where cnt_contract_nummer || '.' || cnt_contract_versie = '247.1';
--248.1 -10470.90
update cnt_contract_plaats cp set cnt_contract_plaats_gewicht = -10470.90 where exists (select cnt_contract_key from cnt_contract c where c.cnt_contract_key = cp.cnt_contract_key and cnt_contract_nummer || '.' || cnt_contract_versie = '248.1');
update cnt_contract set cnt_contract_kosten = -10470.90 where cnt_contract_nummer || '.' || cnt_contract_versie = '248.1';
--249.1 -1765.64
update cnt_contract_plaats cp set cnt_contract_plaats_gewicht = -1765.64 where exists (select cnt_contract_key from cnt_contract c where c.cnt_contract_key = cp.cnt_contract_key and cnt_contract_nummer || '.' || cnt_contract_versie = '249.1');
update cnt_contract set cnt_contract_kosten = -1765.64 where cnt_contract_nummer || '.' || cnt_contract_versie = '249.1';
--250.1 -3352.78
update cnt_contract_plaats cp set cnt_contract_plaats_gewicht = -3352.78 where exists (select cnt_contract_key from cnt_contract c where c.cnt_contract_key = cp.cnt_contract_key and cnt_contract_nummer || '.' || cnt_contract_versie = '250.1');
update cnt_contract set cnt_contract_kosten = -3352.78 where cnt_contract_nummer || '.' || cnt_contract_versie = '250.1';
--262.0 -4398.28
update cnt_contract_plaats cp set cnt_contract_plaats_gewicht = -4398.28 where exists (select cnt_contract_key from cnt_contract c where c.cnt_contract_key = cp.cnt_contract_key and cnt_contract_nummer || '.' || cnt_contract_versie = '262.0');
update cnt_contract set cnt_contract_kosten = -4398.28 where cnt_contract_nummer || '.' || cnt_contract_versie = '262.0';
--271.0 -76.84
update cnt_contract_plaats cp set cnt_contract_plaats_gewicht = -76.84 where exists (select cnt_contract_key from cnt_contract c where c.cnt_contract_key = cp.cnt_contract_key and cnt_contract_nummer || '.' || cnt_contract_versie = '271.0');
update cnt_contract set cnt_contract_kosten = -76.84 where cnt_contract_nummer || '.' || cnt_contract_versie = '271.0';
--278.0 -62.11
update cnt_contract_plaats cp set cnt_contract_plaats_gewicht = -62.11 where exists (select cnt_contract_key from cnt_contract c where c.cnt_contract_key = cp.cnt_contract_key and cnt_contract_nummer || '.' || cnt_contract_versie = '278.0');
update cnt_contract set cnt_contract_kosten = -62.11 where cnt_contract_nummer || '.' || cnt_contract_versie = '278.0';
--279.0 -28.44
update cnt_contract_plaats cp set cnt_contract_plaats_gewicht = -28.44 where exists (select cnt_contract_key from cnt_contract c where c.cnt_contract_key = cp.cnt_contract_key and cnt_contract_nummer || '.' || cnt_contract_versie = '279.0');
update cnt_contract set cnt_contract_kosten = -28.44 where cnt_contract_nummer || '.' || cnt_contract_versie = '279.0';
COMMIT;
BEGIN adm.systrackscriptId('$Id$'); END;
/
SPOOL OFF
SET ECHO OFF

View File

@@ -1,54 +0,0 @@
-- Customer specific once-script AAAR5.
--
-- (c) 2011 SG|facilitor bv
-- $Revision$
-- $Id$
--
-- Support: +31 53 4800700
SET ECHO ON
SPOOL xaaar5.lst
SET DEFINE OFF
INSERT INTO prs_perslid (prs_perslid_key,
prs_perslid_module,
prs_srtperslid_key,
prs_afdeling_key,
prs_perslid_naam,
prs_perslid_oslogin)
VALUES (5,
'PRS',
1,
1,
'Infobord',
'_INFOBORD');
Insert into FAC_USRRAP
(FAC_USRRAP_OMSCHRIJVING, FAC_USRRAP_VIEW_NAME, FAC_USRRAP_AANMAAK, FAC_USRRAP_VRAAGBEGINDATUM, FAC_USRRAP_VRAAGEINDDATUM, FAC_USRRAP_FUNCTIE, FAC_USRRAP_AUTOREFRESH)
Values
('Nieuw overzicht bezoekers', 'AAAR_V_RAP_BEZOEKERS', SYSDATE,
0, 0, 1, 0);
Insert into FAC_API
(FAC_API_NAME, FAC_API_APIKEY, FAC_API_NO_SESSION, FAC_API_FILEPATH, PRS_PERSLID_KEY)
Values
('BEZOEKERS_INFO', 'sYcSrmoCzVMTbxhy',
1, 'cust/aaar/infobord/bezoekers_info.asp', 5);
Insert into FAC_BOOKMARK
(FAC_BOOKMARK_ID, FAC_BOOKMARK_NAAM, FAC_BOOKMARK_PATH, FAC_BOOKMARK_QUERY, FAC_BOOKMARK_AANMAAK, PRS_PERSLID_KEY, PRS_PERSLID_KEY_AUTH)
Values
('RAimXMOogAZGeRdW', 'Info bezoekers Mercator', 'default.asp', 'API=BEZOEKERS_INFO&APIKEY=sYcSrmoCzVMTbxhy&gebouw=MERC&refreshrate=300', SYSDATE,
4, 5);
COMMIT;
BEGIN adm.systrackscript('$Workfile: aait34.sql $', '$Revision$', 1); END;
/
@@aait.sql
SPOOL OFF

View File

@@ -1,19 +0,0 @@
ALTER TABLE aaxx_verkoopbuffer ADD groepering VARCHAR2(12);
IF aaxx_get_user = 'DSM THEN
UPDATE aaxx_verkoopbuffer
SET groepering =
(SELECT fac_usrdata_omschr
FROM alg_onrgoedkenmerk, alg_gebouw g, fac_usrdata ud
WHERE alg_onrgoed_key = g.alg_gebouw_key
AND g.alg_gebouw_code = exact_code_gebouw
AND alg_kenmerk_key = 1060
AND ud.fac_usrdata_key =
fac.safe_to_number (alg_onrgoedkenmerk_waarde))
WHERE prs_kostensoort_oms LIKE 'ST ONDH%'
OR prs_kostensoort_oms LIKE 'STB ONDH%';
END IF;
commit;

View File

@@ -1,66 +0,0 @@
-- Customer specific once-script AAEN22801.sql create report geautoriseerde bestellers. View also added to AADS.sql
--
-- (c) 2012 SG|facilitor bv
-- $Revision$
-- $Id$
-- Keys: DSM Eindgebruiker kosten (=2), DSM Budgethouder (=621) en DSM Gedelegeerd Budgethouder (=681)
-- Support: +31 53 4800700
SET ECHO ON
SPOOL xAADS#22801.lst
SET DEFINE OFF
CREATE OR REPLACE VIEW AADS_V_RAP_AUTH_BESTELLERS
(
FCLT_F_NAAM,
FCLT_F_PROFIEL,
FCLT_F_AFDELING,
FCLT_F_KOSTENPLAATS
)
AS
SELECT prs_perslid_naam_full Naam,
g.fac_groep_omschrijving Profiel,
prs_afdeling_omschrijving Afdeling,
prs_kostenplaats_nr || ' ' || prs_kostenplaats_omschrijving
Kostenplaats
FROM prs_v_perslid_fullnames pf,
fac_gebruikersgroep fg,
fac_groep g,
prs_perslid p,
prs_afdeling a,
prs_kostenplaats k
WHERE pf.prs_perslid_key = fg.prs_perslid_key
AND pf.prs_perslid_key = p.prs_perslid_key
AND a.prs_afdeling_key = p.prs_afdeling_key
AND a.prs_kostenplaats_key = k.prs_kostenplaats_key
AND g.fac_groep_key = fg.fac_groep_key
AND fg.fac_groep_key IN (621, 681, 2)
AND p.prs_perslid_upper NOT LIKE 'ARCHIVE%'
ORDER BY 2, 1, 3;
INSERT INTO FAC_USRRAP (fac_usrrap_omschrijving,
fac_usrrap_view_name,
fac_usrrap_in_huidige_locatie,
fac_usrrap_template,
fac_usrrap_macro,
fac_usrrap_vraagbegindatum,
fac_usrrap_vraageinddatum,
fac_usrrap_functie,
fac_usrrap_info,
fac_functie_key,
fac_usrrap_autorefresh)
VALUES ('Geautoriseerde bestellers',
'AADS_V_RAP_AUTH_BESTELLERS',
NULL,
NULL,
NULL,
0,
0,
0,
'Geautoriseerde bestellers',
NULL,
0);
COMMIT;
SPOOL OFF

View File

@@ -1,48 +0,0 @@
-- (c) 2009 SG|facilitor
-- $Revision$
-- $Id$
--
-- Support: +31 53 4800710
CREATE TABLE AAXX_IMP_FACTUUR
(
ORDERNR VARCHAR2(15 BYTE),
LEVERANCIERNR VARCHAR2(20 BYTE),
FACTUURNR VARCHAR2(30 BYTE),
FACTUURDATUM VARCHAR2(10 BYTE),
AANTAL VARCHAR2(10 BYTE),
KOSTPRIJS VARCHAR2(15 BYTE),
BTW VARCHAR2(2 BYTE),
DEBITEURNR VARCHAR2(30 BYTE),
LOCATIE VARCHAR2(10 BYTE),
AFLEVERDATUM VARCHAR2(10 BYTE),
BTW_BEDRAG VARCHAR2(15 BYTE),
DOCID VARCHAR2(255 BYTE),
OMSCHRIJVING VARCHAR2(60 BYTE),
OPMERKING VARCHAR2(250 BYTE),
BTW_VERLEGD VARCHAR2(3 BYTE),
KENMERK1 VARCHAR2(250),
KENMERK2 VARCHAR2(250),
KENMERK3 VARCHAR2(250),
KENMERK4 VARCHAR2(250),
KENMERK5 VARCHAR2(250),
FAC_IMPORT_KEY NUMBER(10),
FAC_IMP_FILE_INDEX NUMBER(10),
FIN_FACTUUR_KEY NUMBER(10),
FIN_FACTUURREGEL_KEY NUMBER(10)
);
UPDATE fac_import_app
SET fac_import_app_prefix = 'AAXX'
WHERE fac_import_app_code = 'FACTUUR'
AND fac_import_app_prefix IS NULL;
BEGIN adm.systrackscript('$Workfile: AADS#23185.sql $', '$Revision$', 1); END;
/
@@aa_temp_factuur.sql;
COMMIT;

View File

@@ -1,21 +0,0 @@
SET ECHO ON
SPOOL xAAIT23644.lst
PROMPT $Revision$
CREATE TABLE aaxx_exp_uren
(
mld_opdr_uren_key NUMBER,
administratie VARCHAR2 (30)
);
/
BEGIN adm.systrackscript('$Workfile: AADS#23644.sql $', '$Revision$', 1); END;
/
COMMIT;
@aaxx
SET ECHO OFF
SPOOL OFF

View File

@@ -1,34 +0,0 @@
-- Customer specific once-script AAES#24665.
--
-- (c) 2012 SG|facilitor bv
-- $Revision$
-- $Id$
--
-- Support: +31 53 4800700
SET ECHO ON
SPOOL xaaxx24665.lst
SET DEFINE OFF
/* Formatted on 9-11-2012 13:50:40 (QP5 v5.115.810.9015) */
INSERT INTO fac_usrrap (fac_usrrap_omschrijving,
fac_usrrap_view_name,
fac_usrrap_functie,
fac_usrrap_info,
fac_functie_key,
fac_usrrap_vraagbegindatum,
fac_usrrap_vraageinddatum)
SELECT 'QRC: Genereren QR-codes voor object-meldingen',
'aaxx_v_rap_mld_qrc',
1,
'QR-codes per object op basis van pda/melding-bookmark(s)',
fac_functie_key,
0,
0
FROM fac_functie
WHERE fac_functie_code = 'WEB_PRSSYS';
COMMIT;
BEGIN adm.systrackscript('$Workfile: AAES#24665.sql $', '$Revision$', 1); END;
/
SPOOL OFF
@aaxx.sql

View File

@@ -1,33 +0,0 @@
SET ECHO ON
SPOOL xAAFM6to7.lst
PROMPT $Revision$
UPDATE prs_contactpersoon cp
SET (prs_contactpersoon_naam,
prs_contactpersoon_tussenv,
prs_contactpersoon_voorletters,
prs_contactpersoon_voornaam,
prs_contactpersoon_telefoon_1,
prs_contactpersoon_telefoon_2,
prs_contactpersoon_email
) =
(SELECT prs_perslid_naam,
prs_perslid_tussenvoegsel,
prs_perslid_voorletters,
prs_perslid_voornaam,
prs_perslid_telefoonnr,
prs_perslid_mobiel,
prs_perslid_email
FROM prs_perslid p
WHERE p.prs_perslid_key = cp.prs_perslid_key)
WHERE cp.prs_perslid_key IS NOT NULL;
BEGIN adm.systrackscript('$Workfile: AAFM6to7.sql $', '$Revision$', 1); END;
/
COMMIT;
SPOOL OFF

View File

@@ -1,24 +0,0 @@
SET ECHO ON
SPOOL xAAFM7to8.lst
PROMPT $Revision$
UPDATE fin_btwtabelwaarde SET fin_btwtabelwaarde_code = '4' WHERE fin_btwtabelwaarde_perc = 19;
UPDATE fin_btwtabelwaarde SET fin_btwtabelwaarde_code = '2' WHERE fin_btwtabelwaarde_perc = 6;
UPDATE fin_btwtabelwaarde SET fin_btwtabelwaarde_code = '0' WHERE fin_btwtabelwaarde_perc = 0;
ALTER TABLE aaxx_verkoopbuffer ADD fin_btwtabelwaarde_code VARCHAR2(10);
UPDATE aaxx_verkoopbuffer
SET fin_btwtabelwaarde_code =
(SELECT fin_btwtabelwaarde_code
FROM fin_btwtabelwaarde
WHERE fin_btwtabelwaarde_perc = btw);
BEGIN adm.systrackscript('$Workfile: AAFM7to8.sql $', '$Revision$', 1); END;
/
COMMIT;
SPOOL OFF

View File

@@ -1,378 +0,0 @@
SET ECHO ON
SPOOL xAAIT22483.lst
PROMPT $Revision$
-- Overzichtsrapportage projecturen
INSERT INTO fac_usrrap (fac_functie_key,
fac_usrrap_omschrijving,
fac_usrrap_info,
fac_usrrap_view_name,
fac_usrrap_functie)
VALUES ( (SELECT fac_functie_key
FROM fac_functie
WHERE fac_functie_code = 'WEB_MLDBOF'),
'PROJECT: Overzicht opdrachturen',
'Overzicht projectmeldingen en -opdrachten, met urenbesteding.',
'aaxx_v_rap_projectboom',
1);
-- TYPEOPDR
INSERT INTO mld_typeopdr
(mld_typeopdr_key,
mld_typeopdr_omschrijving,
mld_typeopdr_module,
mld_typeopdr_decentraal,
mld_typeopdr_matchtype,
mld_typeopdr_afmeldmarge,
mld_typeopdr_zichtbaarfe)
VALUES
(7, '(Project) uren', 'MLD', 1, 3, 15, 1);
-- TYPEOPDR_SRTDISCIPLINE
INSERT INTO mld_typeopdr_srtdiscipline
(mld_typeopdr_key,
ins_srtdiscipline_key)
VALUES
(7, (SELECT ins_srtdiscipline_key FROM ins_srtdiscipline
WHERE ins_srtdiscipline_omschrijving = 'Project') );
-- MLD_DISCIPLINE
INSERT INTO ins_tab_discipline (ins_discipline_module,
ins_discipline_omschrijving,
ins_discipline_aanmaak,
ins_discipline_kpnverplicht,
ins_srtdiscipline_key,
ins_discipline_btw)
SELECT 'MLD',
'Interne projecten',
SYSDATE,
1,
ins_srtdiscipline_key,
1
FROM ins_srtdiscipline
WHERE ins_srtdiscipline_omschrijving = 'Project';
INSERT INTO mld_disc_params (mld_ins_discipline_key,
mld_disc_params_opdr_kosten,
mld_disc_params_directklaar,
mld_disc_params_frontendprio,
mld_disc_params_startdatum,
mld_disc_params_factmatchmode,
mld_disc_params_bestellimiet)
SELECT ins_discipline_key,
0,
0,
0,
0,
3,
500
FROM mld_discipline
WHERE ins_discipline_omschrijving = 'Interne projecten';
-- MLD_STDMELDING
INSERT INTO mld_stdmelding (mld_stdmelding_key,
mld_ins_discipline_key,
mld_stdmelding_omschrijving,
mld_stdmelding_urgentie,
mld_stdmelding_uitvoertijd,
alg_onrgoed_niveau,
mld_stdmelding_groep,
mld_stdmelding_hint,
mld_typeopdr_key)
SELECT 469,
ins_discipline_key,
'Uren',
4,
10,
'G',
'Add._Eenmalig',
'no kostensoort, no costs, only RFQ for HRS. VR.',
(SELECT mld_typeopdr_key FROM mld_typeopdr WHERE mld_typeopdr_omschrijving = 'RFQ')
FROM mld_discipline
WHERE ins_discipline_omschrijving = 'Interne projecten';
-- Sequence 'op peil' brengen:
-- Als de net toegevoegde key de hoogste in de tabel is, dan is de sequence dus lager dan die key.
-- In dat geval net zolang nextval, totdat de sequence even hoog is als de huidige key.
DECLARE
v_dummy NUMBER;
BEGIN
-- (min <20><>n, omdat hieronder op kleiner-dan gecheckt wordt!)
SELECT MAX(mld_stdmelding_key)-1
INTO v_dummy
FROM mld_stdmelding;
WHILE v_dummy < 469 LOOP
SELECT mld_s_mld_stdmelding_key.NEXTVAL
INTO v_dummy
FROM DUAL;
END LOOP;
END;
/
-- USRTABS
INSERT INTO fac_usrtab
(fac_usrtab_key,
fac_usrtab_naam,
fac_usrtab_object,
fac_usrtab_omschrijving,
fac_usrtab_view,
fac_usrtab_aanmaak)
( SELECT 14, 'Type Project', 'USR_TYPE PROJECT', 'Type Project', 'T', SYSDATE FROM DUAL
UNION SELECT 15, 'Rek. Courant', 'USR_REK. COURANT', 'Rekening courant', 'T', SYSDATE FROM DUAL);
DECLARE
v_dummy NUMBER;
BEGIN
-- (min <20><>n, omdat hieronder op kleiner-dan gecheckt wordt!)
SELECT MAX(fac_usrtab_key)-1
INTO v_dummy
FROM fac_usrtab;
WHILE v_dummy < 15 LOOP
SELECT fac_s_fac_usrtab_key.NEXTVAL
INTO v_dummy
FROM DUAL;
END LOOP;
END;
/
-- USRDATA
INSERT INTO fac_usrdata
(fac_usrtab_key,
fac_usrdata_code,
fac_usrdata_omschr,
fac_usrdata_aanmaak)
( SELECT 14, '4130990', 'Eigen Account', SYSDATE FROM DUAL
UNION SELECT 14, '4130993', 'Niet Eigen Account', SYSDATE FROM DUAL);
-- KENMERKDOMEINEN
INSERT INTO fac_kenmerkdomein
(fac_kenmerkdomein_key,
fac_kenmerkdomein_module,
fac_kenmerkdomein_omschrijving,
fac_kenmerkdomein_objectnaam,
fac_kenmerkdomein_kolomnaam,
fac_kenmerkdomein_kolomtxt,
fac_usrtab_key,
fac_kenmerkdomein_aanmaak)
( SELECT 83, 'MLD', 'Type Project', 'FAC_USRDATA', 'FAC_USRDATA_KEY', 'FAC_USRDATA_OMSCHR', 14, SYSDATE FROM DUAL
UNION SELECT 84, 'MLD', 'Rekening courant', 'FAC_USRDATA', 'FAC_USRDATA_KEY', 'FAC_USRDATA_OMSCHR', 15, SYSDATE FROM DUAL);
DECLARE
v_dummy NUMBER;
BEGIN
-- (min <20><>n, omdat hieronder op kleiner-dan gecheckt wordt!)
SELECT MAX(fac_kenmerkdomein_key)-1
INTO v_dummy
FROM fac_kenmerkdomein;
WHILE v_dummy < 84 LOOP
SELECT fac_s_fac_kenmerkdomein_key.NEXTVAL
INTO v_dummy
FROM DUAL;
END LOOP;
END;
/
-- MLD_SRTKENMERKEN
INSERT INTO mld_srtkenmerk
(mld_srtkenmerk_key,
mld_srtkenmerk_omschrijving,
mld_srtkenmerk_kenmerktype,
mld_srtkenmerk_lengte,
mld_srtkenmerk_aanmaak,
fac_kenmerkdomein_key)
( SELECT 51, 'Type project', 'R', NULL, SYSDATE, 83 FROM DUAL
UNION SELECT 52, 'Verrekenen met (Rek. Courant)', 'S', NULL, SYSDATE, 84 FROM DUAL
UNION SELECT 53, '(Uur)tarief', 'N', 5, SYSDATE, NULL FROM DUAL
UNION SELECT 54, 'Kostenplaats uit AD', 'C', 30, SYSDATE, NULL FROM DUAL
UNION SELECT 55, 'Projectnaam', 'C', 30, SYSDATE, NULL FROM DUAL);
DECLARE
v_dummy NUMBER;
BEGIN
-- (min <20><>n, omdat hieronder op kleiner-dan gecheckt wordt!)
SELECT MAX(mld_srtkenmerk_key)-1
INTO v_dummy
FROM mld_srtkenmerk;
WHILE v_dummy < 55 LOOP
SELECT mld_s_mld_srtkenmerk_key.NEXTVAL
INTO v_dummy
FROM DUAL;
END LOOP;
END;
/
-- MLD_KENMERKEN
INSERT INTO mld_kenmerk
(mld_kenmerk_key,
mld_srtkenmerk_key,
mld_stdmelding_key,
mld_kenmerk_niveau,
mld_kenmerk_verplicht,
mld_kenmerk_toonbaar,
mld_kenmerk_volgnummer,
mld_kenmerk_aanmaak,
mld_typeopdr_key,
mld_kenmerk_default)
( SELECT 186, 51, NULL,
'O', 1, NULL, 10, SYSDATE, 7,
NULL
FROM DUAL
UNION SELECT 187, 52, NULL,
'O', 1, NULL, 15, SYSDATE, 7,
(SELECT fac_usrdata_key FROM fac_usrdata WHERE fac_usrdata_upper = '4130991')
FROM DUAL
UNION SELECT 188, 53, NULL,
'O', 1, 1, 20, SYSDATE, 7,
NULL
FROM DUAL
UNION SELECT 189, 54, NULL,
'O', 0, 1, 25, SYSDATE, 7,
NULL
FROM DUAL
UNION SELECT 190, 55, 469,
'S', 1, NULL, 100, SYSDATE, NULL,
NULL
FROM DUAL);
-- Improductieve uren
INSERT INTO mld_impropdr
(mld_impropdr_code,
mld_impropdr_omschrijving)
( SELECT 'A', '(tand) Arts' FROM DUAL
UNION SELECT 'O', 'Opleiding' FROM DUAL
UNION SELECT 'K', 'Kantoor/Overleg' FROM DUAL
UNION SELECT 'V', 'Verlof' FROM DUAL
UNION SELECT 'Z', 'Ziekte' FROM DUAL);
-- PRS_KENMERKEN
INSERT INTO prs_kenmerk (prs_kenmerk_key,
prs_kenmerk_niveau,
prs_kenmerk_volgnr,
prs_kenmerk_omschrijving,
prs_kenmerk_kenmerktype,
prs_kenmerk_lengte)
VALUES (2,
'P',
98,
'Kostenplaats uit AD',
'C',
30);
INSERT INTO prs_kenmerk (prs_kenmerk_key,
prs_kenmerk_niveau,
prs_kenmerk_volgnr,
prs_kenmerk_omschrijving,
prs_kenmerk_kenmerktype,
prs_kenmerk_lengte)
VALUES (3,
'P',
99,
'Personeelsnummer AAFM',
'C',
30);
-- Importfunctie om personen vanuit de AAIT database in te lezen.
INSERT INTO fac_import_app (fac_import_app_code,
fac_import_app_oms,
fac_functie_key,
fac_import_app_prefix,
fac_import_app_folder,
fac_import_app_files)
SELECT 'AAFM_MEDEWERKERS',
'Importeren AAFM medewerkers vanuit AAIT',
fac_functie_key,
'AAXX',
'.',
'aaxx_imp.csv'
FROM fac_functie
WHERE fac_functie_code = 'WEB_PRSSYS';
-- Importeren eigen tabellen (transport)
CREATE TABLE aaxx_imp_usrdata (
fac_usrtab_naam VARCHAR2 (16),
fac_usrdata_code VARCHAR2 (40),
fac_usrdata_omschr VARCHAR2 (60),
fac_usrdata_volgnr NUMBER (3),
fac_usrdata_prijs NUMBER (8,2)
);
INSERT INTO fac_import_app
(fac_import_app_code,
fac_import_app_oms,
fac_import_app_prefix,
fac_functie_key)
SELECT 'USRDATA',
'FIP: Aanmaken/bijwerken eigen tabel',
'AAXX',
fac_functie_key
FROM fac_functie
WHERE fac_functie_code = 'WEB_PRSSYS';
-- Menu-items exports
INSERT INTO fac_menu
(fac_menu_volgnr,
fac_menu_altlabel,
fac_menu_alturl,
fac_menu_altgroep,
fac_functie_key)
VALUES
(10500,
'Exact projecturen',
'Appl/Shared/export.asp?name=EXACT_UREN',
1,
(SELECT fac_functie_key FROM fac_functie WHERE fac_functie_code = 'WEB_USER05') );
INSERT INTO fac_menu
(fac_menu_volgnr,
fac_menu_altlabel,
fac_menu_alturl,
fac_menu_altgroep,
fac_functie_key)
VALUES
(10501,
'Exact doorvoeren projecturen',
'Appl/Shared/export.asp?name=VERWERK_EXACT_UREN',
1,
(SELECT fac_functie_key FROM fac_functie WHERE fac_functie_code = 'WEB_USER05') );
INSERT INTO fac_menu (fac_menu_volgnr,
fac_menuitems_key,
fac_menu_altgroep)
SELECT 1500,
fac_menuitems_key,
0
FROM fac_menuitems
WHERE fac_menuitems_label = 'lcl_menu_mld_uren_fe';
INSERT INTO fac_menu (fac_menu_volgnr,
fac_menuitems_key,
fac_menu_altgroep)
SELECT 1510,
fac_menuitems_key,
0
FROM fac_menuitems
WHERE fac_menuitems_label = 'lcl_menu_mld_uren_bo';
BEGIN adm.systrackscript('$Workfile: AAIT#22483.sql $', '$Revision$', 1); END;
/
COMMIT;
SET ECHO OFF
SPOOL OFF

View File

@@ -1,26 +0,0 @@
SET ECHO ON
SPOOL xAAIT#22529.lst
PROMPT $Revision$
INSERT INTO fac_usrrap (fac_usrrap_omschrijving,
fac_usrrap_view_name,
fac_usrrap_vraagbegindatum,
fac_usrrap_vraageinddatum,
fac_usrrap_functie,
fac_functie_key)
SELECT 'BEHEER: Kostenoverzicht BT',
'aaxx_rap.kostenoverzicht',
1,
1,
2,
fac_functie_key
FROM fac_functie
WHERE fac_functie_code = 'WEB_PRSSYS';
BEGIN adm.systrackscript('$Workfile: AAIT#22529.sql $', '$Revision$', 1); END;
/
COMMIT;
SPOOL OFF

View File

@@ -1,37 +0,0 @@
-- (c) 2009 SG|facilitor
-- $Revision$
-- $Id$
--
-- Support: +31 53 4800710
drop view aaxx_v_export_dwh_prs_bedrijf;
drop view aaxx_v_export_dwh_prs_afdeling;
drop view aaxx_v_export_dwh_prs_perslid;
drop view aaxx_v_export_dwh_prs_kostenpl;
drop view aaxx_v_export_dwh_prs_kostensr;
drop view aaxx_v_export_dwh_cnt_algemeen;
drop view aaxx_v_export_dwh_fin_factuur;
drop view aaxx_v_mld_algemeen;
drop view aaxx_v_export_dwh_mld_algemeen;
drop view aaxx_v_export_dwh_mld_kenm_mld;
drop view aaxx_v_export_dwh_mld_kenm_opd;
drop view aaxx_v_res_algemeen;
drop view aaxx_v_export_dwh_res_algemeen;
drop view aaxx_v_export_dwh_res_kenmerk;
drop view aaxx_v_export_dwh_bes_algemeen;
drop view aaxx_v_export_dwh_bes_kenmerk;
drop view aaxx_v_export_dwh_alg_onrgoed;
drop view aaxx_v_export_dwh_alg_kenmerk;
drop view aaxx_v_export_dwh_uren;
drop view aaxx_v_export_dwh_uren_improd;
BEGIN adm.systrackscript('$Workfile: AAIT#23973.sql $', '$Revision$', 1); END;
/
COMMIT;

View File

@@ -1,20 +0,0 @@
-- Customer specific once-script related to logcenter call: AAIT#24371!
--
-- (c) 2012 SG|facilitor bv
-- $Revision$
-- $Id$
--
-- Support: +31 53 4800700
ALTER TABLE aaxx_imp_contract ADD contractmanager VARCHAR2(100);
ALTER TABLE
aaxx_imp_contract
RENAME COLUMN
contractbeheerder
TO
gewijzigddoor;
@aaxx.sql

View File

@@ -1,38 +0,0 @@
-- Customer specific once-script related to logcenter call: AAIT#25027
--
-- (c) 2012 SG|facilitor bv
-- $Revision$
-- $Id$
--
-- Support: +31 53 4800700
SET ECHO ON
SPOOL xAAIT#25027.lst
SET DEFINE OFF
alter session set nls_territory = 'America';
DECLARE
BEGIN
FOR c2 IN (SELECT mld_melding_key
FROM mld_melding
WHERE mld_melding_status = 6)
LOOP
BEGIN
DBMS_OUTPUT.put_line (c2.mld_melding_key);
UPDATE mld_melding
SET mld_melding_status = 5
WHERE mld_melding_key = c2.mld_melding_key;
END;
END LOOP;
COMMIT;
END;
/
COMMIT;
SPOOL OFF

View File

@@ -1,13 +0,0 @@
-- Customer specific once-script related to logcenter call: AALB#24265!
--
-- (c) 2012 SG|facilitor bv
-- $Revision$
-- $Id$
--
-- Support: +31 53 4800700
ALTER TABLE aaxx_verkoopbuffer ADD (subregelvolgorde VARCHAR2(100));
@aaxx.sql

View File

@@ -1,14 +0,0 @@
PROMPT $Revision$
-- Overzichtsrapportage projecturen
ALTER TABLE aaxx_imp_contract ADD termijnbedrag NUMBER(11,2);
BEGIN adm.systrackscript('$Workfile: AASA#22933.sql $', '$Revision$', 1); END;
/
COMMIT;
@aaxx.sql

View File

@@ -1,26 +0,0 @@
-- Customer specific once-script related to logcenter call: AASA#24917!
--
-- (c) 2012 SG|facilitor bv
-- $Revision$
-- $Id$
--
-- Support: +31 53 4800700
ALTER TABLE aaxx_verkoopbuffer ADD (debiteur VARCHAR2(100));
UPDATE aaxx_verkoopbuffer SET debiteur = prs_kostenplaats_nr;
DROP VIEW aaxx_v_export_exact;
DROP FUNCTION aaxx_get_dep_oms;
DROP FUNCTION aaxx_get_top_dep_oms;
BEGIN adm.systrackscript('$Workfile: AASA#24917 $', '$Revision$', 1); END;
/
@aaxx.sql
COMMIT;

View File

@@ -1,17 +0,0 @@
SET ECHO ON
SPOOL xAAXX15.lst
PROMPT $Revision$
ALTER TABLE aaxx_verkoopbuffer ADD opdr_jaar VARCHAR2(4);
UPDATE aaxx_verkoopbuffer SET opdr_jaar = '2010';
BEGIN adm.systrackscript('$Workfile: AAXX15.sql $', '$Revision$', 1); END;
/
COMMIT;
SET ECHO OFF
SPOOL OFF

View File

@@ -1,31 +0,0 @@
SET ECHO ON
SPOOL xAAXX17.lst
PROMPT $Revision$
CREATE TABLE AAXX_IMP_CONTRACT
(
GEBOUW_CODE VARCHAR2 (100),
LEVERANCIER VARCHAR2 (100),
BESCHRIJVING VARCHAR2 (100),
PAKKET VARCHAR2 (100),
VAN DATE,
TOT DATE,
OMSCHRIJVING VARCHAR2 (2000),
BEDRAG NUMBER (10, 2),
BTW VARCHAR2 (100),
GROOTBOEKREK VARCHAR2 (100),
CONTRACTSOORT VARCHAR2 (100),
CONTRACTCODE VARCHAR2 (100),
VOLGNUMMER NUMBER (10),
LEVERANCIERNUMMER VARCHAR2 (100)
);
BEGIN adm.systrackscript('$Workfile: AAXX17.sql $', '$Revision$', 1); END;
/
COMMIT;
SET ECHO OFF
SPOOL OFF

View File

@@ -1,17 +0,0 @@
SET ECHO ON
SPOOL xAAXX18.lst
PROMPT $Revision$
ALTER TABLE aaxx_exp_factuur ADD administratie VARCHAR2(30);
BEGIN adm.systrackscript('$Workfile: AAXX18.sql $', '$Revision$', 1); END;
/
COMMIT;
SET ECHO OFF
SPOOL OFF
@aaxx.sql

View File

@@ -1,38 +0,0 @@
SET ECHO ON
SPOOL xAAXX20.lst
PROMPT $Revision$
-- correctiescript om opdrachten met status kostentechnisch verwerkt naar verwerkt
-- te zetten als de factuur al wel verwerkt is. (WTCA#20794)
DECLARE
CURSOR c
IS
SELECT DISTINCT o.mld_opdr_key
FROM mld_opdr o, fin_factuur f
WHERE mld_statusopdr_key = 9 -- kostentechnisch verwerkt
AND o.mld_opdr_key = f.mld_opdr_key
AND f.fin_factuur_statuses_key = 7; -- verwerkt
v_aanvrager NUMBER (10);
BEGIN
SELECT prs_perslid_key
INTO v_aanvrager
FROM prs_perslid
WHERE prs_perslid_oslogin = '_FACILITOR';
FOR rec IN c
LOOP
mld.setopdrachtstatus (rec.mld_opdr_key, 7, v_aanvrager); -- AV
END LOOP;
END;
/
BEGIN adm.systrackscript('$Workfile: AAXX20.sql $', '$Revision$', 1); END;
/
COMMIT;
SET ECHO OFF
SPOOL OFF

View File

@@ -1,42 +0,0 @@
SET ECHO ON
SPOOL xAAXX21.lst
PROMPT $Revision$
-- correctiescript om meldingen en opdrachten die aangemaakt zijn na de overgang
-- naar 5.1.1 aan te passen waarbij de einddatum van de melding en opdracht
-- opnieuw berekend wordt.
alter session set nls_territory = 'America'
UPDATE mld_melding m
SET (mld_melding_uitvoertijd,mld_melding_einddatum) = (SELECT
std.mld_stdmelding_uitvoertijd,
fac.DATUMTIJDPLUSUITVOERTIJD (mld_melding_datum,
std.mld_stdmelding_uitvoertijd,
'DAGEN')
FROM mld_stdmelding std
WHERE m.mld_stdmelding_key = std.mld_stdmelding_key)
WHERE mld_melding_datum > TO_DATE ('21062011', 'DDMMYYYY')
AND mld_melding_uitvoertijd = 0;
UPDATE mld_opdr o
SET mld_opdr_einddatum =
(SELECT TRUNC (mld_melding_einddatum)
FROM mld_melding m
WHERE o.mld_melding_key = m.mld_melding_key)
WHERE EXISTS
(SELECT m.mld_melding_key
FROM mld_melding m
WHERE m.mld_melding_key = o.mld_melding_key
AND mld_melding_datum > TO_DATE ('21062011', 'DDMMYYYY')
AND mld_opdr_einddatum <> TRUNC (mld_melding_einddatum));
BEGIN adm.systrackscript('$Workfile: AAXX21.sql $', '$Revision$', 1); END;
/
COMMIT;
SET ECHO OFF
SPOOL OFF

View File

@@ -1,21 +0,0 @@
SET DEFINE OFF
SPOOL xfsn22700.lst
SET ECHO ON
UPDATE fac_locale_xsl SET fac_locale_xsl_cust = 'Upload' WHERE fac_locale_xsl_label = 'lcl_do_upload_image' AND fac_locale_xsl_lang = 'EN';
UPDATE fac_locale_xsl SET fac_locale_xsl_cust = 'Sum above (ex.VAT)' WHERE fac_locale_xsl_label = 'lcl_fin_bedrag_boven' AND fac_locale_xsl_lang = 'EN';
UPDATE fac_locale_xsl SET fac_locale_xsl_cust = 'Sum below (ex.VAT)' WHERE fac_locale_xsl_label = 'lcl_fin_bedrag_onder' AND fac_locale_xsl_lang = 'EN';
UPDATE fac_locale_xsl SET fac_locale_xsl_cust = '&lt;more...&gt; ' WHERE fac_locale_xsl_label = 'lcl_suminfo_incomplete' AND fac_locale_xsl_lang = 'EN';
UPDATE fac_locale_xsl SET fac_locale_xsl_cust = 'Close financially' WHERE fac_locale_xsl_label = 'lcl_opdr_closekosten' AND fac_locale_xsl_lang = 'EN';
UPDATE fac_locale_xsl SET fac_locale_xsl_cust = 'Upload' WHERE fac_locale_xsl_label = 'lcl_do_upload_image' AND fac_locale_xsl_lang = 'DE';
UPDATE fac_locale_xsl SET fac_locale_xsl_cust = '&lt;Mehr...&gt; ' WHERE fac_locale_xsl_label = 'lcl_suminfo_incomplete' AND fac_locale_xsl_lang = 'DE';
COMMIT;
SET ECHO OFF
SPOOL OFF
QUIT

View File

@@ -1,20 +0,0 @@
-- Customer specific once-script related to database-change: db15to16!
--
-- (c) 2012 SG|facilitor bv
-- $Revision$
-- $Id$
--
-- Support: +31 53 4800700
SET ECHO ON
SPOOL xaaxx15to16.lst
SET DEFINE OFF
-- Per 5.2.2 USRDATA-importfunctie standaard FIP!
DROP PROCEDURE AAXX_IMPORT_USRDATA;
DROP PROCEDURE AAXX_UPDATE_USRDATA;
DROP TABLE AAXX_IMP_USRDATA;
BEGIN adm.systrackscript('$Workfile: aa15to16.sql $', '$Revision$', 1); END;
/
SPOOL OFF

View File

@@ -1,53 +0,0 @@
-- general
UPDATE fac_srtnotificatie
SET fac_srtnotificatie_oms = SUBSTR (fac_srtnotificatie_oms, 5, 50)
WHERE fac_srtnotificatie_oms LIKE 'SGF:%';
delete fac_tracking;
delete fac_notificatie;
delete web_user_messages;
-- fin
delete fin_kenmerkfactuur;
delete fin_factuurregel;
delete fin_factuur;
DROP SEQUENCE fin_s_fin_factuur_key;
CREATE SEQUENCE fin_s_fin_factuur_key MINVALUE 100000 NOCACHE;
-- bes
delete fac_tracking;
delete fac_notificatie;
delete bes_kenmerkbestell;
delete bes_kenmerkbesteli;
delete bes_bestelling_item;
delete bes_bestelopdr_item;
delete bes_bestelopdr;
delete bes_bestelling;
DROP SEQUENCE BES_S_BES_BESTELLING_KEY;
CREATE SEQUENCE bes_s_bes_bestelling_key MINVALUE 100000 NOCACHE;
-- mld
delete mld_kenmerkopdr;
delete mld_kenmerkmelding;
delete mld_opdr;
delete mld_melding_note;
delete mld_melding_object;
delete mld_melding;
DROP SEQUENCE MLD_S_MLD_MELDING_KEY;
CREATE SEQUENCE mld_s_mld_melding_key MINVALUE 100000 NOCACHE;
-- bez/res
delete res_rsv_deel;
delete res_rsv_artikel;
delete bez_kenmerkwaarde;
delete bez_bezoekers;
delete bez_afspraak;
delete res_kenmerkwaarde;
delete res_rsv_ruimte;
delete res_reservering;
DROP SEQUENCE bez_s_bez_afspraak_key;
CREATE SEQUENCE bez_s_bez_afspraak_key MINVALUE 100000 NOCACHE;
DROP SEQUENCE res_s_res_reservering_key;
CREATE SEQUENCE res_s_res_reservering_key MINVALUE 100000 NOCACHE;

View File

@@ -1,61 +0,0 @@
-- Customer specific once-script fsn#24056.
--
-- (c) 2012 SG|facilitor bv
-- $Revision$
-- $Id$
--
-- Support: +31 53 4800700
SET ECHO ON
SPOOL xfsn24056.lst
SET DEFINE OFF
-- Eerst upgraden naar DB17!
-- Run as SYSTEM
-- Prefix voor alle omgevingen instellen.
-- Analyzer voor alle omgevingen aanzetten, muv AAFR en AAXX
UPDATE AAAR.fac_setting SET fac_setting_pvalue = '1' WHERE fac_setting_name = 'qvw_enabled';
UPDATE AAAR.fac_setting SET fac_setting_pvalue = 'AAXX' WHERE fac_setting_name = 'qv_ticket_prefix';
UPDATE AABT.fac_setting SET fac_setting_pvalue = '1' WHERE fac_setting_name = 'qvw_enabled';
UPDATE AABT.fac_setting SET fac_setting_pvalue = 'AAXX' WHERE fac_setting_name = 'qv_ticket_prefix';
UPDATE AACE.fac_setting SET fac_setting_pvalue = '1' WHERE fac_setting_name = 'qvw_enabled';
UPDATE AACE.fac_setting SET fac_setting_pvalue = 'AAXX' WHERE fac_setting_name = 'qv_ticket_prefix';
UPDATE AADO.fac_setting SET fac_setting_pvalue = '1' WHERE fac_setting_name = 'qvw_enabled';
UPDATE AADO.fac_setting SET fac_setting_pvalue = 'AAXX' WHERE fac_setting_name = 'qv_ticket_prefix';
UPDATE AADS.fac_setting SET fac_setting_pvalue = '1' WHERE fac_setting_name = 'qvw_enabled';
UPDATE AADS.fac_setting SET fac_setting_pvalue = 'AAXX' WHERE fac_setting_name = 'qv_ticket_prefix';
UPDATE AAEN.fac_setting SET fac_setting_pvalue = '1' WHERE fac_setting_name = 'qvw_enabled';
UPDATE AAEN.fac_setting SET fac_setting_pvalue = 'AAXX' WHERE fac_setting_name = 'qv_ticket_prefix';
UPDATE AAES.fac_setting SET fac_setting_pvalue = '1' WHERE fac_setting_name = 'qvw_enabled';
UPDATE AAES.fac_setting SET fac_setting_pvalue = 'AAXX' WHERE fac_setting_name = 'qv_ticket_prefix';
UPDATE AAFP.fac_setting SET fac_setting_pvalue = '1' WHERE fac_setting_name = 'qvw_enabled';
UPDATE AAFP.fac_setting SET fac_setting_pvalue = 'AAXX' WHERE fac_setting_name = 'qv_ticket_prefix';
UPDATE AAFR.fac_setting SET fac_setting_pvalue = 'AAXX' WHERE fac_setting_name = 'qv_ticket_prefix';
UPDATE AAHU.fac_setting SET fac_setting_pvalue = '1' WHERE fac_setting_name = 'qvw_enabled';
UPDATE AAHU.fac_setting SET fac_setting_pvalue = 'AAXX' WHERE fac_setting_name = 'qv_ticket_prefix';
UPDATE AAIT.fac_setting SET fac_setting_pvalue = '1' WHERE fac_setting_name = 'qvw_enabled';
UPDATE AAIT.fac_setting SET fac_setting_pvalue = 'AAXX' WHERE fac_setting_name = 'qv_ticket_prefix';
UPDATE AALB.fac_setting SET fac_setting_pvalue = '1' WHERE fac_setting_name = 'qvw_enabled';
UPDATE AALB.fac_setting SET fac_setting_pvalue = 'AAXX' WHERE fac_setting_name = 'qv_ticket_prefix';
UPDATE AAME.fac_setting SET fac_setting_pvalue = '1' WHERE fac_setting_name = 'qvw_enabled';
UPDATE AAME.fac_setting SET fac_setting_pvalue = 'AAXX' WHERE fac_setting_name = 'qv_ticket_prefix';
UPDATE AANS.fac_setting SET fac_setting_pvalue = '1' WHERE fac_setting_name = 'qvw_enabled';
UPDATE AANS.fac_setting SET fac_setting_pvalue = 'AAXX' WHERE fac_setting_name = 'qv_ticket_prefix';
UPDATE AANX.fac_setting SET fac_setting_pvalue = '1' WHERE fac_setting_name = 'qvw_enabled';
UPDATE AANX.fac_setting SET fac_setting_pvalue = 'AAXX' WHERE fac_setting_name = 'qv_ticket_prefix';
UPDATE AARW.fac_setting SET fac_setting_pvalue = '1' WHERE fac_setting_name = 'qvw_enabled';
UPDATE AARW.fac_setting SET fac_setting_pvalue = 'AAXX' WHERE fac_setting_name = 'qv_ticket_prefix';
UPDATE AASA.fac_setting SET fac_setting_pvalue = '1' WHERE fac_setting_name = 'qvw_enabled';
UPDATE AASA.fac_setting SET fac_setting_pvalue = 'AAXX' WHERE fac_setting_name = 'qv_ticket_prefix';
UPDATE AAVL.fac_setting SET fac_setting_pvalue = '1' WHERE fac_setting_name = 'qvw_enabled';
UPDATE AAVL.fac_setting SET fac_setting_pvalue = 'AAXX' WHERE fac_setting_name = 'qv_ticket_prefix';
UPDATE AAXX.fac_setting SET fac_setting_pvalue = 'AAXX' WHERE fac_setting_name = 'qv_ticket_prefix';
UPDATE AAZC.fac_setting SET fac_setting_pvalue = '1' WHERE fac_setting_name = 'qvw_enabled';
UPDATE AAZC.fac_setting SET fac_setting_pvalue = 'AAXX' WHERE fac_setting_name = 'qv_ticket_prefix';
UPDATE ASMS.fac_setting SET fac_setting_pvalue = '1' WHERE fac_setting_name = 'qvw_enabled';
UPDATE ASMS.fac_setting SET fac_setting_pvalue = 'AAXX' WHERE fac_setting_name = 'qv_ticket_prefix';
COMMIT;
BEGIN adm.systrackscript('$Workfile: fsn#24056.sql $', '$Revision$', 1); END;
/
SPOOL OFF

View File

@@ -1,28 +0,0 @@
-- Script containing customer specific table definitions. These tables are used in the common AAFM aaxx.sql file.
-- (c) 2005-2007 Dijkoraad IT bv
-- $Revision$
-- $Id$
--
-- Support: +31 53 4800700
SPOOL strukton.lst
SET ECHO ON
CREATE TABLE aaxx_imp_opdrstat_strukton
(
mld_opdr_key NUMBER (10),
extern_nummer VARCHAR2 (100),
status NUMBER (10),
datumtijd DATE,
opmerking VARCHAR2 (1000)
);
BEGIN adm.systrackscript('$Workfile: strukton.sql $', '$Revision$', 1); END;
/
COMMIT;
SPOOL OFF

View File

@@ -1,123 +0,0 @@
CREATE OR REPLACE FORCE VIEW AKZA_V_RAP_BHV
(FCLT_F_NAAM, TELEFOON, FCLT_F_AFDELING, FCLT_F_GEBOUW, VERDIEPING, RUIMTE,
FCLT_F_LAATSTE_INSTRUCTIE_KB, FCLT_F_LAATSTE_INSTRUCTIE_EHBO, FCLT_F_EHBO_TOT, FCLT_F_LAATSTE_INSTRUCTIE_AED, FCLT_F_LAATSTE_INSTRUCTIE_OCP,
FCLT_F_ACTIEF_OCP, FCLT_F_ACTIEF_EHBO, FCLT_F_ACTIEF_BHV)
AS
SELECT pf.prs_perslid_naam_full fclt_f_naam,
p.prs_perslid_telefoonnr telefoon, d.prs_afdeling_naam afdeling,
w.alg_gebouw_code gebouw,
w.alg_verdieping_code, w.alg_ruimte_nr ruimte,
(SELECT kl.prs_kenmerklink_waarde
FROM prs_kenmerklink kl
WHERE kl.prs_link_key = p.prs_perslid_key
AND kl.prs_kenmerk_key = 1166) laatste_instructie_kb,
(SELECT kl.prs_kenmerklink_waarde
FROM prs_kenmerklink kl
WHERE kl.prs_link_key =
p.prs_perslid_key
AND kl.prs_kenmerk_key = 1165) laatste_instructie_ehbo,
(SELECT kl.prs_kenmerklink_waarde
FROM prs_kenmerklink kl
WHERE kl.prs_link_key = p.prs_perslid_key
AND kl.prs_kenmerk_key = 1168) ehbo_tot,
(SELECT kl.prs_kenmerklink_waarde
FROM prs_kenmerklink kl
WHERE kl.prs_link_key =
p.prs_perslid_key
AND kl.prs_kenmerk_key = 1164) laatste_instructie_aed,
(SELECT kl.prs_kenmerklink_waarde
FROM prs_kenmerklink kl
WHERE kl.prs_link_key =
p.prs_perslid_key
AND kl.prs_kenmerk_key = 1167) laatste_instructie_ocp,
(SELECT fac_usrdata_omschr
FROM prs_kenmerklink kl, fac_usrdata
WHERE kl.prs_link_key = p.prs_perslid_key
AND kl.prs_kenmerk_key = 1162
AND prs_kenmerklink_waarde = fac_usrdata_key) actief_ocp,
(SELECT fac_usrdata_omschr
FROM prs_kenmerklink kl, fac_usrdata
WHERE kl.prs_link_key = p.prs_perslid_key
AND kl.prs_kenmerk_key = 1161
AND prs_kenmerklink_waarde = fac_usrdata_key) actief_ehbo,
(SELECT fac_usrdata_omschr
FROM prs_kenmerklink kl, fac_usrdata
WHERE kl.prs_link_key = p.prs_perslid_key
AND kl.prs_kenmerk_key = 1160
AND prs_kenmerklink_waarde = fac_usrdata_key) actief_bhv
FROM prs_perslid p,
prs_v_perslid_fullnames pf,
prs_v_werkplek_gegevens w,
prs_v_aanwezigperslidwerkplek pw,
prs_afdeling d
WHERE p.prs_afdeling_key = d.prs_afdeling_key
AND p.prs_perslid_key = pf.prs_perslid_key
AND w.prs_werkplek_key = pw.prs_werkplek_key
AND p.prs_perslid_key = pw.prs_perslid_key
AND prs_perslid_upper NOT LIKE '[%'
AND prs_perslid_upper NOT LIKE 'LEEG [%'
AND EXISTS (
SELECT *
FROM PRS_KENMERKLINK kl
WHERE kl.prs_link_key = p.prs_perslid_key
AND kl.prs_kenmerk_key IN -- Zie AKZA_V_RAP_BHV_ALL voor betekenis
(1166, 1165, 1168, 1164, 1167, 1162, 1161, 1160))
ORDER BY 1
/
CREATE OR REPLACE FORCE VIEW AKZA_V_RAP_BHV_ALL
(FCLT_F_NAAM, TELEFOON, FCLT_F_AFDELING, FCLT_F_GEBOUW, VERDIEPING,
RUIMTE, FCLT_F_LAATSTE_INSTRUCTIE_KB, FCLT_F_LAATSTE_INSTRUCTIE_EHBO, FCLT_F_EHBO_TOT, FCLT_F_LAATSTE_INSTRUCTIE_AED,
FCLT_F_LAATSTE_INSTRUCTIE_OCP, FCLT_F_ACTIEF_OCP, FCLT_F_ACTIEF_EHBO, FCLT_F_ACTIEF_BHV)
AS
SELECT pf.prs_perslid_naam_full fclt_f_naam,
p.prs_perslid_telefoonnr telefoon, d.prs_afdeling_naam afdeling,
w.alg_gebouw_code gebouw, w.alg_verdieping_code,
w.alg_ruimte_nr ruimte,
NVL((SELECT kl.prs_kenmerklink_waarde
FROM PRS_KENMERKLINK kl
WHERE kl.prs_link_key = p.prs_perslid_key
AND kl.prs_kenmerk_key = 1166),'Nooit') laatste_instructie_kb,
NVL((SELECT kl.prs_kenmerklink_waarde
FROM PRS_KENMERKLINK kl
WHERE kl.prs_link_key = p.prs_perslid_key
AND kl.prs_kenmerk_key = 1165),'Nooit') laatste_instructie_ehbo,
NVL((SELECT kl.prs_kenmerklink_waarde
FROM PRS_KENMERKLINK kl
WHERE kl.prs_link_key = p.prs_perslid_key
AND kl.prs_kenmerk_key = 1168),'Nooit') ehbo_tot,
NVL((SELECT kl.prs_kenmerklink_waarde
FROM PRS_KENMERKLINK kl
WHERE kl.prs_link_key = p.prs_perslid_key
AND kl.prs_kenmerk_key = 1164),'Nooit') laatste_instructie_aed,
NVL((SELECT kl.prs_kenmerklink_waarde
FROM PRS_KENMERKLINK kl
WHERE kl.prs_link_key = p.prs_perslid_key
AND kl.prs_kenmerk_key = 1167),'Nooit') laatste_instructie_ocp,
NVL((SELECT fac_usrdata_omschr
FROM PRS_KENMERKLINK kl, FAC_USRDATA
WHERE kl.prs_link_key = p.prs_perslid_key
AND kl.prs_kenmerk_key = 1162
AND prs_kenmerklink_waarde = fac_usrdata_key), 'Onbekend') actief_ocp,
NVL((SELECT fac_usrdata_omschr
FROM PRS_KENMERKLINK kl, FAC_USRDATA
WHERE kl.prs_link_key = p.prs_perslid_key
AND kl.prs_kenmerk_key = 1161
AND prs_kenmerklink_waarde = fac_usrdata_key), 'Onbekend') actief_ehbo,
NVL((SELECT fac_usrdata_omschr
FROM PRS_KENMERKLINK kl, FAC_USRDATA
WHERE kl.prs_link_key = p.prs_perslid_key
AND kl.prs_kenmerk_key = 1160
AND prs_kenmerklink_waarde = fac_usrdata_key), 'Onbekend') actief_bhv
FROM PRS_PERSLID p,
prs_v_perslid_fullnames pf,
prs_v_werkplek_gegevens w,
prs_v_aanwezigperslidwerkplek pw,
PRS_AFDELING d
WHERE p.prs_afdeling_key = d.prs_afdeling_key
AND p.prs_perslid_key = pf.prs_perslid_key
AND w.prs_werkplek_key = pw.prs_werkplek_key
AND p.prs_perslid_key = pw.prs_perslid_key
AND prs_perslid_upper NOT LIKE '[%'
AND prs_perslid_upper NOT LIKE 'LEEG [%'
ORDER BY 1

View File

@@ -1,19 +0,0 @@
alter trigger alg_t_alg_onrgoedkenmerk_b_iu disable;
UPDATE alg_onrgoedkenmerk aok
SET alg_onrgoedkenmerk_waarde =
'\KENMERKDOCS\ARNHEM\' || SUBSTR (alg_onrgoedkenmerk_waarde, 14)
WHERE ( UPPER (alg_onrgoedkenmerk_waarde) LIKE '\KENMERKDOCS\%'
OR UPPER (alg_onrgoedkenmerk_waarde) LIKE '/KENMERKDOCS/%'
);
alter trigger alg_t_alg_onrgoedkenmerk_b_iu enable;
alter trigger ins_t_ins_kenmerkdeel_b_iu disable;
UPDATE ins_kenmerkdeel idk
SET ins_kenmerkdeel_waarde =
'\KENMERKDOCS\ARNHEM\' || SUBSTR (ins_kenmerkdeel_waarde, 14)
WHERE ( UPPER (ins_kenmerkdeel_waarde) LIKE '\KENMERKDOCS\%'
OR UPPER (ins_kenmerkdeel_waarde) LIKE '/KENMERKDOCS/%'
);
alter trigger ins_t_ins_kenmerkdeel_b_iu enable;

File diff suppressed because it is too large Load Diff

View File

@@ -1,10 +0,0 @@
SET ECHO ON
SPOOL xakza15078.lst
PROMPT $Revision$
--///////////////////////////////////////////////////////////////////////////////////////////////// AKZA#15078
DROP PROCEDURE akza_export_res_sap;
DROP PROCEDURE akza_select_res_sap;
SPOOL OFF
@akza.sql

View File

@@ -1,198 +0,0 @@
QUIT
-- NIET ZO MAAR UITVOEREN. Alleen ter registratie gearchiveerd
CREATE OR REPLACE FUNCTION forcegetruimteprijs (pres_rsv_ruimte_key IN NUMBER
)
RETURN NUMBER
IS
room_price res_ruimte.res_ruimte_prijs%TYPE;
room_price_fixed res_ruimte.res_ruimte_prijs_vast%TYPE;
price_morning res_ruimte.res_ruimte_prijs_ochtend%TYPE;
price_afternoon res_ruimte.res_ruimte_prijs_middag%TYPE;
price_evening res_ruimte.res_ruimte_prijs_avond%TYPE;
room_price_total res_rsv_ruimte.res_rsv_ruimte_prijs%TYPE;
res_ruimte_length NUMBER;
res_ruimte_begin NUMBER;
res_ruimte_end NUMBER;
res_length_morning NUMBER;
res_length_afternoon NUMBER;
res_length_evening NUMBER;
lres_t_middag NUMBER;
lres_t_avond NUMBER;
BEGIN
/* -- Als Uitgevoerd/verwerkt, dan is de prijs al geregistreerd en bekend
BEGIN
SELECT res_rsv_ruimte_prijs
INTO room_price
FROM res_rsv_ruimte
WHERE res_rsv_ruimte_key = pres_rsv_ruimte_key
AND res_status_bo_key in (5,6);
RETURN room_price;
EXCEPTION
WHEN OTHERS THEN NULL;
END;
*/
lres_t_middag := fac.safe_to_number (fac.getsetting ('res_t_middag'));
lres_t_avond := fac.safe_to_number (fac.getsetting ('res_t_avond'));
SELECT COALESCE (ru.res_ruimte_prijs, 0),
COALESCE (ru.res_ruimte_prijs_vast, 0),
COALESCE (ru.res_ruimte_prijs_ochtend, 0),
COALESCE (ru.res_ruimte_prijs_middag, 0),
ru.res_ruimte_prijs_avond,
fac.safe_to_number (
TO_CHAR (rr.res_rsv_ruimte_tot - rr.res_rsv_ruimte_van)
)
* 24,
fac.safe_to_number (TO_CHAR (rr.res_rsv_ruimte_van, 'HH24'))
+ fac.safe_to_number (TO_CHAR (rr.res_rsv_ruimte_van, 'MI')) / 60,
fac.safe_to_number (TO_CHAR (rr.res_rsv_ruimte_tot, 'HH24'))
+ fac.safe_to_number (TO_CHAR (rr.res_rsv_ruimte_tot, 'MI')) / 60
INTO room_price,
room_price_fixed,
price_morning,
price_afternoon,
price_evening,
res_ruimte_length,
res_ruimte_begin,
res_ruimte_end
FROM res_rsv_ruimte rr, res_ruimte_opstelling ro, res_ruimte ru
WHERE rr.res_ruimte_opstel_key = ro.res_ruimte_opstel_key
AND ro.res_ruimte_key = ru.res_ruimte_key
AND rr.res_rsv_ruimte_key = pres_rsv_ruimte_key;
IF (lres_t_middag > 0
AND lres_t_middag < 24
AND lres_t_avond > 0
AND lres_t_avond < 24)
THEN -- Prijsbepaling per dagdeel?
-- Uren dagdeel ochtend: [0 - lres_t_middag]
res_length_morning :=
LEAST (res_ruimte_end, lres_t_middag) - res_ruimte_begin;
IF res_length_morning < 0
THEN
res_length_morning := 0;
END IF;
-- Uren dagdeel middag: [lres_t_middag - lres_t_avond]
res_length_afternoon :=
LEAST (res_ruimte_end, lres_t_avond)
- GREATEST (res_ruimte_begin, lres_t_middag);
IF res_length_afternoon < 0
THEN
res_length_afternoon := 0;
END IF;
-- Uren dagdeel avond: [lres_t_avond - 24]
res_length_evening :=
res_ruimte_end - GREATEST (res_ruimte_begin, lres_t_avond);
IF res_length_evening < 0
THEN
res_length_evening := 0;
END IF;
IF room_price_fixed = 1
THEN
IF res_length_morning > 0
THEN
res_length_morning := 1;
END IF;
IF res_length_afternoon > 0
THEN
res_length_afternoon := 1;
END IF;
IF res_length_evening > 0
THEN
res_length_evening := 1;
END IF;
END IF;
room_price_total :=
price_morning * res_length_morning
+ price_afternoon * res_length_afternoon
+ price_evening * res_length_evening;
ELSE -- Prijsbepaling per dag
IF room_price_fixed = 1
THEN
res_ruimte_length := 1;
END IF;
room_price_total := room_price * res_ruimte_length;
END IF;
RETURN room_price_total;
END;
SELECT *
FROM res_rsv_ruimte
WHERE TRUNC (res_rsv_ruimte_verwerkt) =
TO_DATE ('2009-01-16', 'YYYY-MM-DD');
UPDATE fac_version
SET fac_version_otap = 'P';
ALTER TRIGGER res_t_res_rsv_ruimte_b_iu DISABLE;
ALTER TRIGGER res_t_notificatie_rsv_ruimte DISABLE;
CREATE TABLE jgl
AS
SELECT res_rsv_ruimte_key,
forcegetruimteprijs (res_rsv_ruimte_key) prijs
FROM res_rsv_ruimte
WHERE res_status_bo_key = 5;
UPDATE res_rsv_ruimte
SET res_rsv_ruimte_prijs =
(SELECT prijs
FROM jgl
WHERE jgl.res_rsv_ruimte_key =
res_rsv_ruimte.res_rsv_ruimte_key),
res_status_bo_key = 6
WHERE res_status_bo_key = 5;
-- Die moeten we eerst niet exporteren maar wel alvast herberekenen
CREATE TABLE jgl2
AS
SELECT res_rsv_ruimte_key,
forcegetruimteprijs (res_rsv_ruimte_key) prijs
FROM res_rsv_ruimte
WHERE TRUNC (res_rsv_ruimte_verwerkt) =
TO_DATE ('2009-01-16', 'YYYY-MM-DD');
UPDATE res_rsv_ruimte
SET res_rsv_ruimte_prijs =
(SELECT prijs
FROM jgl2
WHERE jgl2.res_rsv_ruimte_key =
res_rsv_ruimte.res_rsv_ruimte_key),
res_status_bo_key = 5
WHERE TRUNC (res_rsv_ruimte_verwerkt) =
TO_DATE ('2009-01-16', 'YYYY-MM-DD');
-- Nu tusendoor de echte export uitvoeren
ALTER TRIGGER res_t_res_rsv_ruimte_b_iu ENABLE;
ALTER TRIGGER res_t_notificatie_rsv_ruimte ENABLE;
-- Nu nog niet geexporteerde data terugzetten op status 5
-- De wel exporteerde data is wel op door de export op 6 gezet
UPDATE res_rsv_ruimte
SET res_rsv_ruimte_prijs =
(SELECT prijs
FROM jgl
WHERE jgl.res_rsv_ruimte_key =
res_rsv_ruimte.res_rsv_ruimte_key),
res_status_bo_key = 5
WHERE TRUNC (res_rsv_ruimte_verwerkt) = TO_DATE (SYSDATE)
AND res_status_bo_key = 6; -- terugzetten
drop table jgl;
drop table jgl2;
drop function forcegetruimteprijs;

View File

@@ -1,162 +0,0 @@
QUIT
-- NIET ZO MAAR UITVOEREN. Alleen ter registratie gearchiveerd
CREATE OR REPLACE FUNCTION forcegetruimteprijs (pres_rsv_ruimte_key IN NUMBER
)
RETURN NUMBER
IS
room_price res_ruimte.res_ruimte_prijs%TYPE;
room_price_fixed res_ruimte.res_ruimte_prijs_vast%TYPE;
price_morning res_ruimte.res_ruimte_prijs_ochtend%TYPE;
price_afternoon res_ruimte.res_ruimte_prijs_middag%TYPE;
price_evening res_ruimte.res_ruimte_prijs_avond%TYPE;
room_price_total res_rsv_ruimte.res_rsv_ruimte_prijs%TYPE;
res_ruimte_length NUMBER;
res_ruimte_begin NUMBER;
res_ruimte_end NUMBER;
res_length_morning NUMBER;
res_length_afternoon NUMBER;
res_length_evening NUMBER;
lres_t_middag NUMBER;
lres_t_avond NUMBER;
BEGIN
/* -- Als Uitgevoerd/verwerkt, dan is de prijs al geregistreerd en bekend
BEGIN
SELECT res_rsv_ruimte_prijs
INTO room_price
FROM res_rsv_ruimte
WHERE res_rsv_ruimte_key = pres_rsv_ruimte_key
AND res_status_bo_key in (5,6);
RETURN room_price;
EXCEPTION
WHEN OTHERS THEN NULL;
END;
*/
lres_t_middag := fac.safe_to_number (fac.getsetting ('res_t_middag'));
lres_t_avond := fac.safe_to_number (fac.getsetting ('res_t_avond'));
SELECT COALESCE (ru.res_ruimte_prijs, 0),
COALESCE (ru.res_ruimte_prijs_vast, 0),
COALESCE (ru.res_ruimte_prijs_ochtend, 0),
COALESCE (ru.res_ruimte_prijs_middag, 0),
ru.res_ruimte_prijs_avond,
fac.safe_to_number (
TO_CHAR (rr.res_rsv_ruimte_tot - rr.res_rsv_ruimte_van)
)
* 24,
fac.safe_to_number (TO_CHAR (rr.res_rsv_ruimte_van, 'HH24'))
+ fac.safe_to_number (TO_CHAR (rr.res_rsv_ruimte_van, 'MI')) / 60,
fac.safe_to_number (TO_CHAR (rr.res_rsv_ruimte_tot, 'HH24'))
+ fac.safe_to_number (TO_CHAR (rr.res_rsv_ruimte_tot, 'MI')) / 60
INTO room_price,
room_price_fixed,
price_morning,
price_afternoon,
price_evening,
res_ruimte_length,
res_ruimte_begin,
res_ruimte_end
FROM res_rsv_ruimte rr, res_ruimte_opstelling ro, res_ruimte ru
WHERE rr.res_ruimte_opstel_key = ro.res_ruimte_opstel_key
AND ro.res_ruimte_key = ru.res_ruimte_key
AND rr.res_rsv_ruimte_key = pres_rsv_ruimte_key;
IF (lres_t_middag > 0
AND lres_t_middag < 24
AND lres_t_avond > 0
AND lres_t_avond < 24)
THEN -- Prijsbepaling per dagdeel?
-- Uren dagdeel ochtend: [0 - lres_t_middag]
res_length_morning :=
LEAST (res_ruimte_end, lres_t_middag) - res_ruimte_begin;
IF res_length_morning < 0
THEN
res_length_morning := 0;
END IF;
-- Uren dagdeel middag: [lres_t_middag - lres_t_avond]
res_length_afternoon :=
LEAST (res_ruimte_end, lres_t_avond)
- GREATEST (res_ruimte_begin, lres_t_middag);
IF res_length_afternoon < 0
THEN
res_length_afternoon := 0;
END IF;
-- Uren dagdeel avond: [lres_t_avond - 24]
res_length_evening :=
res_ruimte_end - GREATEST (res_ruimte_begin, lres_t_avond);
IF res_length_evening < 0
THEN
res_length_evening := 0;
END IF;
IF room_price_fixed = 1
THEN
IF res_length_morning > 0
THEN
res_length_morning := 1;
END IF;
IF res_length_afternoon > 0
THEN
res_length_afternoon := 1;
END IF;
IF res_length_evening > 0
THEN
res_length_evening := 1;
END IF;
END IF;
room_price_total :=
price_morning * res_length_morning
+ price_afternoon * res_length_afternoon
+ price_evening * res_length_evening;
ELSE -- Prijsbepaling per dag
IF room_price_fixed = 1
THEN
res_ruimte_length := 1;
END IF;
room_price_total := room_price * res_ruimte_length;
END IF;
RETURN room_price_total;
END;
UPDATE fac_version
SET fac_version_otap = 'P';
ALTER TRIGGER res_t_res_rsv_ruimte_b_iu DISABLE;
ALTER TRIGGER res_t_notificatie_rsv_ruimte DISABLE;
CREATE TABLE jgl
AS
SELECT res_rsv_ruimte_key,
forcegetruimteprijs (res_rsv_ruimte_key) prijs
FROM res_rsv_ruimte
WHERE res_status_bo_key = 5 OR TRUNC (res_rsv_ruimte_verwerkt) =
TO_DATE ('2009-01-16', 'YYYY-MM-DD');
UPDATE res_rsv_ruimte
SET res_rsv_ruimte_prijs =
(SELECT prijs
FROM jgl
WHERE jgl.res_rsv_ruimte_key =
res_rsv_ruimte.res_rsv_ruimte_key)
WHERE res_status_bo_key = 5 OR TRUNC (res_rsv_ruimte_verwerkt) =
TO_DATE ('2009-01-16', 'YYYY-MM-DD');
-- Nu tusendoor de echte export uitvoeren
ALTER TRIGGER res_t_res_rsv_ruimte_b_iu ENABLE;
ALTER TRIGGER res_t_notificatie_rsv_ruimte ENABLE;
-- Nu nog niet geexporteerde data terugzetten op status 5
-- De wel exporteerde data is wel op door de export op 6 gezet
drop table jgl;
drop function forcegetruimteprijs;

View File

@@ -1,37 +0,0 @@
/* AKZA#15662
Opschonen prs_perslidafdeling en prs_perslideenheid tabellen
(verwijderde personen uit deze tabellen halen)
*/
SET HEADING OFF
SPOOL xAKZA15662.lst
PROMPT De volgende personen worden als PZ-er opgeschoond
SELECT DISTINCT(prs_perslid_naam)
FROM prs_perslidafdeling ppa, prs_perslid pp
WHERE ppa.prs_perslid_key = pp.prs_perslid_key
AND prs_perslid_verwijder IS NOT NULL
ORDER BY prs_perslid_naam;
DELETE
FROM prs_perslidafdeling ppa
WHERE ppa.prs_perslid_key NOT IN (SELECT prs_perslid_key
FROM prs_v_aanwezigperslid);
PROMPT De volgende personen worden als CP-er opgeschoond
SELECT DISTINCT(prs_perslid_naam)
FROM prs_perslideenheid ppe, prs_perslid pp
WHERE ppe.prs_perslid_key = pp.prs_perslid_key
AND prs_perslid_verwijder IS NOT NULL
ORDER BY prs_perslid_naam;
DELETE
FROM prs_perslideenheid ppe
WHERE ppe.prs_perslid_key NOT IN (SELECT prs_perslid_key
FROM prs_v_aanwezigperslid);
COMMIT;
SPOOL OFF

View File

@@ -1,26 +0,0 @@
SET ECHO ON
SPOOL AKZA#17756.lst
PROMPT $Revision$
SET DEFINE OFF
-- AKZA17756: Toevoegen eindtijd aan geplande ritten raportage
CREATE OR REPLACE FORCE VIEW akza_v_rit_geplande_ritten
as select to_char(datum_van,'dd-mm-yyyy') AS fclt_d_datum,
decode(to_char(datum_van,'D'),1,'Zondag',2,'Maandag',3,'Dinsdag',4,'Woensdag',5,'Donderdag',6,'Vrijdag',7,'Zaterdag','') As Dag,
COALESCE(afwijkend_van_tijd, tijd_van) AS Starttijd,
COALESCE(afwijkend_tot_tijd, tijd_tot) AS Tottijd,
decode (afwijkend_van_plaats || ', ' || afwijkend_van_adres, ', ', standaard_van, afwijkend_van_plaats || ', ' || afwijkend_van_adres) AS Van,
decode(afwijkend_naar_plaats || ', ' || afwijkend_naar_adres, ', ', standaard_naar, afwijkend_naar_plaats || ', ' || afwijkend_naar_adres) AS Naar,
prs_afdeling_naam AS fclt_f_Opdrachtgever,
chauffeur AS fclt_f_chauffeur,
auto AS fclt_f_auto,
opmerking AS Toelichtingen,
res_reservering_key AS hide_f_reserveringkey,
res_rsv_ruimte_volgnr AS hide_f_reserveringvolgnr,
gastheervrouw AS hide_f_gastheervrouw
from akza_v_ritten_rapportage;
commit;
SPOOL OFF

View File

@@ -1,104 +0,0 @@
SET ECHO ON
SPOOL AKZA#18015.lst
PROMPT $Revision$
SET DEFINE OFF
-- ritgegevens nu met verwijderde chaufeurs en auto's
CREATE OR REPLACE FORCE VIEW akza_v_ritten_reservering_geg
as SELECT res.res_reservering_key,
ruim.res_rsv_ruimte_key,
ruim.res_rsv_ruimte_volgnr,
chauf.res_ruimte_nr AS chauffeur,
ruim.res_rsv_ruimte_omschrijving AS omschrijving,
ruim.res_rsv_ruimte_opmerking AS opmerking,
auto.ins_deel_omschrijving AS auto,
ruim.res_rsv_ruimte_van datum_van,
TO_CHAR (ruim.res_rsv_ruimte_van, 'HH24:MI') tijd_van,
ruim.res_rsv_ruimte_tot datum_tot,
TO_CHAR (ruim.res_rsv_ruimte_tot, 'HH24:MI') tijd_tot,
p.prs_perslid_naam
|| DECODE (COALESCE (p.prs_perslid_voorletters, ''),
'', '',
', ' || p.prs_perslid_voorletters)
|| DECODE (COALESCE (p.prs_perslid_tussenvoegsel, ''),
'', '',
' ' || p.prs_perslid_tussenvoegsel)
|| DECODE (COALESCE (p.prs_perslid_voornaam, ''),
'', '',
' (' || p.prs_perslid_voornaam || ')')
gastheervrouw,
p.prs_perslid_key,
afd.prs_afdeling_naam,
kpl.prs_kostenplaats_nr,
kpl.prs_kostenplaats_omschrijving
FROM res_v_aanwezigreservering res,
res_rsv_ruimte ruim,
res_rsv_deel deel,
(SELECT INS_DI.ins_discipline_key,
INS_SG.ins_srtgroep_key,
INS_SD.ins_srtdeel_key,
INS_SD.ins_srtdeel_code
|| ' - '
|| INS_SD.ins_srtdeel_omschrijving,
INS_DE.ins_alg_locatie_key,
INS_AO.alg_gebouw_key,
INS_AO.alg_verdieping_key,
INS_AO.alg_ruimte_key,
INS_AO.prs_werkplek_key,
INS_AO.alg_terreinsector_key,
INS_AO.alg_plaatsaanduiding,
INS_DE.ins_deel_key,
INS_DE.ins_deel_omschrijving,
RES_DE.res_deel_key,
RES_DE.res_deel_eenheid,
RES_DE.res_deel_prijs,
DECODE (RES_DE.res_deel_key, NULL, 0, 1)
FROM ins_v_aanwezigdeel INS_DE,
ins_tab_discipline INS_DI,
ins_v_alg_overzicht INS_AO,
ins_srtdeel INS_SD,
ins_srtgroep INS_SG,
res_deel RES_DE
WHERE INS_DE.ins_deel_key = RES_DE.res_ins_deel_key(+)
AND INS_DE.ins_deel_module = 'INS'
AND INS_DE.ins_deel_parent_key IS NULL
AND INS_AO.alg_onroerendgoed_keys =
INS_DE.ins_alg_ruimte_key
AND INS_AO.alg_onroerendgoed_type =
INS_DE.ins_alg_ruimte_type
AND INS_AO.alg_locatie_key = INS_DE.ins_alg_locatie_key
AND INS_SD.ins_srtdeel_key = INS_DE.ins_srtdeel_key
AND INS_SG.ins_srtgroep_key = INS_SD.ins_srtgroep_key
AND INS_DI.ins_discipline_key =
INS_DE.ins_discipline_key
AND INS_DE.ins_discipline_key IN
(SELECT ins_discipline_key
FROM ins_discipline)) auto,
res_ruimte_opstelling opstel,
res_ruimte chauf,
prs_perslid p,
prs_afdeling afd,
prs_kostenplaats kpl
WHERE res.res_reservering_key = ruim.res_reservering_key
AND ruim.res_rsv_ruimte_key = deel.res_rsv_ruimte_key(+)
AND deel.res_deel_key = auto.res_deel_key(+)
AND ruim.res_ruimte_opstel_key = opstel.res_ruimte_opstel_key
AND opstel.res_ruimte_key = chauf.res_ruimte_key
AND p.prs_perslid_key = ruim.res_rsv_ruimte_host_key
AND p.prs_afdeling_key = afd.prs_afdeling_key
AND ruim.prs_kostenplaats_key = kpl.prs_kostenplaats_key(+)
-- key van activiteit Rit-activiteit uit SYSTEM halen
AND ruim.res_activiteit_key =
(SELECT TO_NUMBER (fac_usrdata_omschr)
FROM fac_usrdata
WHERE fac_usrtab_key =
(SELECT fac_usrtab_key
FROM fac_usrtab
WHERE fac_usrtab_naam = 'SYSTEM')
AND fac_usrdata_code = 'Rit-activiteit'
AND fac_usrdata_verwijder IS NULL);
commit;
SPOOL OFF

View File

@@ -1,104 +0,0 @@
SET ECHO ON
SPOOL AKZA#18015.lst
PROMPT $Revision$
SET DEFINE OFF
-- ritgegevens nu met verwijderde chaufeurs en auto's
CREATE OR REPLACE FORCE VIEW akza_v_ritten_reservering_geg
as SELECT res.res_reservering_key,
ruim.res_rsv_ruimte_key,
ruim.res_rsv_ruimte_volgnr,
chauf.res_ruimte_nr AS chauffeur,
ruim.res_rsv_ruimte_omschrijving AS omschrijving,
ruim.res_rsv_ruimte_opmerking AS opmerking,
auto.ins_deel_omschrijving AS auto,
ruim.res_rsv_ruimte_van datum_van,
TO_CHAR (ruim.res_rsv_ruimte_van, 'HH24:MI') tijd_van,
ruim.res_rsv_ruimte_tot datum_tot,
TO_CHAR (ruim.res_rsv_ruimte_tot, 'HH24:MI') tijd_tot,
p.prs_perslid_naam
|| DECODE (COALESCE (p.prs_perslid_voorletters, ''),
'', '',
', ' || p.prs_perslid_voorletters)
|| DECODE (COALESCE (p.prs_perslid_tussenvoegsel, ''),
'', '',
' ' || p.prs_perslid_tussenvoegsel)
|| DECODE (COALESCE (p.prs_perslid_voornaam, ''),
'', '',
' (' || p.prs_perslid_voornaam || ')')
gastheervrouw,
p.prs_perslid_key,
afd.prs_afdeling_naam,
kpl.prs_kostenplaats_nr,
kpl.prs_kostenplaats_omschrijving
FROM res_v_aanwezigreservering res,
res_rsv_ruimte ruim,
res_v_aanwezigrsv_deel deel,
(SELECT INS_DI.ins_discipline_key,
INS_SG.ins_srtgroep_key,
INS_SD.ins_srtdeel_key,
INS_SD.ins_srtdeel_code
|| ' - '
|| INS_SD.ins_srtdeel_omschrijving,
INS_DE.ins_alg_locatie_key,
INS_AO.alg_gebouw_key,
INS_AO.alg_verdieping_key,
INS_AO.alg_ruimte_key,
INS_AO.prs_werkplek_key,
INS_AO.alg_terreinsector_key,
INS_AO.alg_plaatsaanduiding,
INS_DE.ins_deel_key,
INS_DE.ins_deel_omschrijving,
RES_DE.res_deel_key,
RES_DE.res_deel_eenheid,
RES_DE.res_deel_prijs,
DECODE (RES_DE.res_deel_key, NULL, 0, 1)
FROM ins_v_aanwezigdeel INS_DE,
ins_tab_discipline INS_DI,
ins_v_alg_overzicht INS_AO,
ins_srtdeel INS_SD,
ins_srtgroep INS_SG,
res_v_aanwezigdeel RES_DE
WHERE INS_DE.ins_deel_key = RES_DE.res_ins_deel_key(+)
AND INS_DE.ins_deel_module = 'INS'
AND INS_DE.ins_deel_parent_key IS NULL
AND INS_AO.alg_onroerendgoed_keys =
INS_DE.ins_alg_ruimte_key
AND INS_AO.alg_onroerendgoed_type =
INS_DE.ins_alg_ruimte_type
AND INS_AO.alg_locatie_key = INS_DE.ins_alg_locatie_key
AND INS_SD.ins_srtdeel_key = INS_DE.ins_srtdeel_key
AND INS_SG.ins_srtgroep_key = INS_SD.ins_srtgroep_key
AND INS_DI.ins_discipline_key =
INS_DE.ins_discipline_key
AND INS_DE.ins_discipline_key IN
(SELECT ins_discipline_key
FROM ins_discipline)) auto,
res_ruimte_opstelling opstel,
res_ruimte chauf,
prs_perslid p,
prs_afdeling afd,
prs_kostenplaats kpl
WHERE res.res_reservering_key = ruim.res_reservering_key
AND ruim.res_rsv_ruimte_key = deel.res_rsv_ruimte_key(+)
AND deel.res_deel_key = auto.res_deel_key(+)
AND ruim.res_ruimte_opstel_key = opstel.res_ruimte_opstel_key
AND opstel.res_ruimte_key = chauf.res_ruimte_key
AND p.prs_perslid_key = ruim.res_rsv_ruimte_host_key
AND p.prs_afdeling_key = afd.prs_afdeling_key
AND ruim.prs_kostenplaats_key = kpl.prs_kostenplaats_key(+)
-- key van activiteit Rit-activiteit uit SYSTEM halen
AND ruim.res_activiteit_key =
(SELECT TO_NUMBER (fac_usrdata_omschr)
FROM fac_usrdata
WHERE fac_usrtab_key =
(SELECT fac_usrtab_key
FROM fac_usrtab
WHERE fac_usrtab_naam = 'SYSTEM')
AND fac_usrdata_code = 'Rit-activiteit'
AND fac_usrdata_verwijder IS NULL);
commit;
SPOOL OFF

View File

@@ -1,103 +0,0 @@
SET ECHO ON
SPOOL AKZA#19377.lst
PROMPT $Revision$
SET DEFINE OFF
CREATE OR REPLACE FORCE VIEW akza_v_ritten_reservering_geg
as SELECT res.res_reservering_key,
ruim.res_rsv_ruimte_key,
ruim.res_rsv_ruimte_volgnr,
chauf.res_ruimte_nr AS chauffeur,
ruim.res_rsv_ruimte_omschrijving AS omschrijving,
ruim.res_rsv_ruimte_opmerking AS opmerking,
auto.ins_deel_omschrijving AS auto,
ruim.res_rsv_ruimte_van datum_van,
TO_CHAR (ruim.res_rsv_ruimte_van, 'HH24:MI') tijd_van,
ruim.res_rsv_ruimte_tot datum_tot,
TO_CHAR (ruim.res_rsv_ruimte_tot, 'HH24:MI') tijd_tot,
p.prs_perslid_naam
|| DECODE (COALESCE (p.prs_perslid_voorletters, ''),
'', '',
', ' || p.prs_perslid_voorletters)
|| DECODE (COALESCE (p.prs_perslid_tussenvoegsel, ''),
'', '',
' ' || p.prs_perslid_tussenvoegsel)
|| DECODE (COALESCE (p.prs_perslid_voornaam, ''),
'', '',
' (' || p.prs_perslid_voornaam || ')')
gastheervrouw,
p.prs_perslid_key,
afd.prs_afdeling_naam,
kpl.prs_kostenplaats_nr,
kpl.prs_kostenplaats_omschrijving
FROM res_v_aanwezigreservering res,
res_v_aanwezigrsv_ruimte ruim,
res_v_aanwezigrsv_deel deel,
(SELECT INS_DI.ins_discipline_key,
INS_SG.ins_srtgroep_key,
INS_SD.ins_srtdeel_key,
INS_SD.ins_srtdeel_code
|| ' - '
|| INS_SD.ins_srtdeel_omschrijving,
INS_DE.ins_alg_locatie_key,
INS_AO.alg_gebouw_key,
INS_AO.alg_verdieping_key,
INS_AO.alg_ruimte_key,
INS_AO.prs_werkplek_key,
INS_AO.alg_terreinsector_key,
INS_AO.alg_plaatsaanduiding,
INS_DE.ins_deel_key,
INS_DE.ins_deel_omschrijving,
RES_DE.res_deel_key,
RES_DE.res_deel_eenheid,
RES_DE.res_deel_prijs,
DECODE (RES_DE.res_deel_key, NULL, 0, 1)
FROM ins_v_aanwezigdeel INS_DE,
ins_tab_discipline INS_DI,
ins_v_alg_overzicht INS_AO,
ins_srtdeel INS_SD,
ins_srtgroep INS_SG,
res_v_aanwezigdeel RES_DE
WHERE INS_DE.ins_deel_key = RES_DE.res_ins_deel_key(+)
AND INS_DE.ins_deel_module = 'INS'
AND INS_DE.ins_deel_parent_key IS NULL
AND INS_AO.alg_onroerendgoed_keys =
INS_DE.ins_alg_ruimte_key
AND INS_AO.alg_onroerendgoed_type =
INS_DE.ins_alg_ruimte_type
AND INS_AO.alg_locatie_key = INS_DE.ins_alg_locatie_key
AND INS_SD.ins_srtdeel_key = INS_DE.ins_srtdeel_key
AND INS_SG.ins_srtgroep_key = INS_SD.ins_srtgroep_key
AND INS_DI.ins_discipline_key =
INS_DE.ins_discipline_key
AND INS_DE.ins_discipline_key IN
(SELECT ins_discipline_key
FROM ins_discipline)) auto,
res_ruimte_opstelling opstel,
res_ruimte chauf,
prs_perslid p,
prs_afdeling afd,
prs_kostenplaats kpl
WHERE res.res_reservering_key = ruim.res_reservering_key
AND ruim.res_rsv_ruimte_key = deel.res_rsv_ruimte_key(+)
AND deel.res_deel_key = auto.res_deel_key(+)
AND ruim.res_ruimte_opstel_key = opstel.res_ruimte_opstel_key
AND opstel.res_ruimte_key = chauf.res_ruimte_key
AND p.prs_perslid_key = ruim.res_rsv_ruimte_host_key
AND p.prs_afdeling_key = afd.prs_afdeling_key
AND ruim.prs_kostenplaats_key = kpl.prs_kostenplaats_key(+)
-- key van activiteit Rit-activiteit uit SYSTEM halen
AND ruim.res_activiteit_key =
(SELECT TO_NUMBER (fac_usrdata_omschr)
FROM fac_usrdata
WHERE fac_usrtab_key =
(SELECT fac_usrtab_key
FROM fac_usrtab
WHERE fac_usrtab_naam = 'SYSTEM')
AND fac_usrdata_code = 'Rit-activiteit'
AND fac_usrdata_verwijder IS NULL);
commit;
SPOOL OFF

View File

@@ -1,49 +0,0 @@
SET ECHO ON
SPOOL AKZA#19975.lst
PROMPT $Revision$
SET DEFINE OFF
CREATE OR REPLACE FORCE VIEW akz_schoonmaakrapport (fclt_f_gebouw,
hide_f_verdieping_volgnummer,
verdieping,
ruimte,
omschrijving,
opp,
fclt_f_vloerafwerking,
fclt_f_schoonmaakniveau,
kosten,
fclt_3d_gebouw_key
)
AS
SELECT alg_g.alg_gebouw_omschrijving fclt_f_gebouw,
alg_v.alg_verdieping_volgnr,
alg_v.alg_verdieping_omschrijving verdieping,
'R' || alg_r.alg_ruimte_nr ruimte,
alg_r.alg_ruimte_omschrijving omschrijving,
alg_r.alg_ruimte_bruto_vloeropp opp,
u.fac_usrdata_omschr fclt_f_vloerafwerking,
n.akz_schnivo_omschrijving fclt_f_schoonmaakniveau,
ROUND(n.akz_schnivo_kengetal * alg_r.alg_ruimte_bruto_vloeropp,2) kosten,
alg_g.alg_gebouw_key
FROM alg_v_aanweziggebouw alg_g,
alg_v_aanwezigverdieping alg_v,
alg_v_aanwezigruimte alg_r,
alg_onrgoedkenmerk alg_k1,
alg_onrgoedkenmerk alg_k2,
akz_schnivo n,
fac_usrdata u
WHERE alg_v.alg_gebouw_key = alg_g.alg_gebouw_key
AND alg_v.alg_verdieping_key = alg_r.alg_verdieping_key
AND alg_r.alg_ruimte_key = alg_k1.alg_onrgoed_key(+)
AND alg_k1.alg_kenmerk_key(+) = 1001 --nivo
AND alg_k1.alg_onrgoedkenmerk_waarde = n.akz_schnivo_key
AND alg_r.alg_ruimte_key = alg_k2.alg_onrgoed_key(+)
AND alg_k2.alg_kenmerk_key(+) = 2 -- srtvloer
AND alg_k2.alg_onrgoedkenmerk_waarde = u.fac_usrdata_key(+)
AND u.fac_usrtab_key(+) = 1
ORDER BY alg_v.alg_verdieping_volgnr, alg_r.alg_ruimte_upper_nr;
commit;
SPOOL OFF

View File

@@ -1,25 +0,0 @@
SET ECHO ON
SPOOL AKZA#21071.lst
PROMPT $Revision$
SET DEFINE OFF
-- 004 Uitgegeven aan ALF Elektro uitvoerenden.
CREATE OR REPLACE VIEW akza_v_rap_uitg_electro_alf
AS
SELECT prs_bedrijf_naam fclt_f_uitvoerende,
TO_CHAR (m.mld_melding_key) fclt_f_mldnr,
o.mld_opdr_omschrijving omschrijving,
pf.prs_perslid_naam_full fclt_f_meldernaam,
to_char(o.mld_opdr_datumbegin, 'DD-MM-YYYY') begindatum, TO_CHAR (o.mld_opdr_dagen) dagen,
to_char(m.mld_melding_afgemeld, 'DD-MM-YYYY') afmelddatum
FROM mld_opdr o, prs_bedrijf b, mld_melding m, prs_v_perslid_fullnames_all pf
WHERE o.mld_uitvoerende_keys = b.prs_bedrijf_key
AND o.mld_melding_key = m.mld_melding_key
AND pf.prs_perslid_key = m.prs_perslid_key
AND b.prs_bedrijf_key IN (7667, 7672, 7676, 7683, 7960, 12393)
AND o.mld_statusopdr_key = 5;
commit;
SPOOL OFF

View File

@@ -1,35 +0,0 @@
SET ECHO ON
SPOOL xakza22619.lst
-- Rare res_activiteit met key 0 ververvangen door key 2
INSERT INTO res_activiteit (res_activiteit_key,
res_activiteit_omschrijving,
res_activiteit_aanmaak,
res_srtactiviteit_key,
res_activiteit_omsverplicht,
res_activiteit_aantalverplicht)
SELECT 2, -- 2 is nog vrij
res_activiteit_omschrijving,
res_activiteit_aanmaak,
res_srtactiviteit_key,
res_activiteit_omsverplicht,
res_activiteit_aantalverplicht
FROM res_activiteit
WHERE res_activiteit_key = 0;
UPDATE res_activiteitdiscipline SET res_activiteit_key = 2 WHERE res_activiteit_key = 0;
UPDATE res_kenmerk SET res_activiteit_key = 2 WHERE res_activiteit_key = 0;
ALTER TRIGGER res_t_res_rsv_ruimte_B_IU DISABLE;
UPDATE res_rsv_ruimte SET res_activiteit_key = 2 WHERE res_activiteit_key = 0;
ALTER TRIGGER res_t_res_rsv_ruimte_B_IU ENABLE;
DELETE FROM res_activiteit WHERE res_activiteit_key = 0;
BEGIN adm.systrackscript('$Workfile: AKZA#22619.sql $', '$Revision$', 0); END;
/
COMMIT;
SPOOL OFF
SET ECHO OFF

View File

@@ -1,398 +0,0 @@
/****************************************************************************************
* Update script n.a.v. akzalogs #100 en # 103 : *
* Opnemen v/d naam van de betrokkene in de melding die in het infopoint verschijnt *
* en het verwijderen van de meldingen uit het infopoint van aanmeldingen en verzoeken *
* tot wijzigingen van personeelsgegevens als systeembeheer Facilitor heeft aangegeven *
* dat de aanmelding c.q. het wijzigingsverzoek is afgehandeld. *
* *
* LET OP : voordat dit script gerund wordt moeten eerst de waarden voor aanmeldactkey *
* en wijzigactkey ter plekke bij de AKZO gecontroleerd worden en indien nodig *
* aangepast worden in deze scriptfile. *
****************************************************************************************/
UPDATE WEB_USER_MESS_TEXT
SET WEB_USER_MESS_TEXT_DSC =
'Personeelsfunctionaris heeft een nieuwe medewerker ##NAAM## toegevoegd.'
WHERE WEB_USER_MESS_TEXT_CODE = 'COMPPZ';
UPDATE WEB_USER_MESS_TEXT
SET WEB_USER_MESS_TEXT_DSC =
'Beveiliging heeft gegevens nieuwe medewerker ##NAAM## doorgezonden/goedgekeurd.'
WHERE WEB_USER_MESS_TEXT_CODE = 'COMPSC';
UPDATE WEB_USER_MESS_TEXT
SET WEB_USER_MESS_TEXT_DSC =
'Contactpersoon heeft gegevens nieuwe medewerker ##NAAM## ingevoerd.'
WHERE WEB_USER_MESS_TEXT_CODE = 'COMPCP';
UPDATE WEB_USER_MESS_TEXT
SET WEB_USER_MESS_TEXT_DSC =
'Er zijn Facilities toegekend aan de nieuwe medewerker ##NAAM##.'
WHERE WEB_USER_MESS_TEXT_CODE = 'COMPFC';
UPDATE WEB_USER_MESS_TEXT
SET WEB_USER_MESS_TEXT_DSC =
'Beveiliging heeft gewijzigde persoonlijke gegevens van ##NAAM## goedgekeurd.'
WHERE WEB_USER_MESS_TEXT_CODE = 'WIJZSC';
UPDATE WEB_USER_MESS_TEXT
SET WEB_USER_MESS_TEXT_DSC =
'Uw verzoek tot wijziging persoonlijke gegevens van ##NAAM## is in behandeling.'
WHERE WEB_USER_MESS_TEXT_CODE = 'WIJZNW';
UPDATE WEB_USER_MESS_TEXT
SET WEB_USER_MESS_TEXT_DSC =
'Facilities t.b.v. de nieuwe medewerker ##NAAM## zijn aangepast.'
WHERE WEB_USER_MESS_TEXT_CODE = 'WIJZFC';
UPDATE WEB_USER_MESS_TEXT
SET WEB_USER_MESS_TEXT_DSC =
'Uw verzoek tot wijziging persoonlijke gegevens van ##NAAM## is verwerkt.'
WHERE WEB_USER_MESS_TEXT_CODE = 'WIJZSU';
COMMIT;
-- Aangepaste trigger t.b.v. aanmelden nieuwe medewerkers...
CREATE OR REPLACE TRIGGER PRS_T_PRS_AANMELD_B_IU
BEFORE INSERT OR UPDATE ON prs_aanmeld
FOR EACH ROW
BEGIN
DECLARE mes VARCHAR2(255);
actkey NUMBER;
code VARCHAR2(6);
keepmes NUMBER;
pkey NUMBER;
titel_key NUMBER;
email_key NUMBER;
mphone_key NUMBER;
badgen_key NUMBER;
badges_key NUMBER;
naam VARCHAR2(30);
aanmeldActKey NUMBER;
BEGIN
-- constants
titel_key := 62; -- person titel
email_key := 5; -- email kenmerk key
mphone_key := 1020; -- mobile phone kenmerk key
badgen_key := 1000; -- badge number kenmerk key
badges_key := 1001; -- badge sort kenmerk key
aanmeldactkey:= 3; -- Action : announcement of new personnel
IF :new.prs_aanmeld_key IS NULL THEN SELECT prs_s_prs_aanmeld_key.nextval INTO :new.prs_aanmeld_key FROM DUAL; END IF;
IF :old.Prs_aanmeld_aanmaak IS NULL THEN
BEGIN
-- initial new employee data input
:new.Prs_aanmeld_aanmaak := SYSDATE;
naam := :new.prs_aanmeld_naam;
code := 'COMPPZ';
BEGIN
SELECT WEB_USER_MESS_TEXT_DSC, WEB_USER_MESS_ACTIONS_KEY into mes, actkey
FROM WEB_USER_MESS_TEXT where WEB_USER_MESS_TEXT_CODE = code;
EXCEPTION WHEN NO_DATA_FOUND THEN null;
END;
-- inform security department
IF actkey is not null THEN
INSERT INTO WEB_USER_MESSAGES
SELECT NULL, NULL, PRS_PERSLID_KEY, actkey, REPLACE(mes,'##NAAM##', naam), NULL, 1, :new.prs_aanmeld_key, SYSDATE
FROM PRS_V_AANWEZIGSECURITY;
END IF;
END;
ELSE
naam := :old.prs_aanmeld_naam;
END IF;
IF :old.PRS_AANMELD_SECU_OK is null and :new.PRS_AANMELD_SECU_OK is not null and
:new.PRS_AANMELD_SECU_end is null THEN
BEGIN
:new.PRS_AANMELD_SECU_end := SYSDATE;
END;
END IF;
IF :old.PRS_AANMELD_SECU_end is null and :new.PRS_AANMELD_SECU_end is not null THEN
-- initial security input is completed
BEGIN
code := 'COMPSC';
BEGIN
select WEB_USER_MESS_TEXT_DSC, WEB_USER_MESS_ACTIONS_KEY into mes, actkey
from WEB_USER_MESS_TEXT where WEB_USER_MESS_TEXT_CODE = code;
EXCEPTION WHEN NO_DATA_FOUND THEN null;
END;
IF actkey is not null THEN
-- inform security department staff manager and contact person if it's not one person
IF :new.prs_aanmeld_pz_key is not null THEN
insert into WEB_USER_MESSAGES
select NULL, NULL, :new.prs_aanmeld_pz_key, actkey, REPLACE(mes, '##NAAM##', naam), NULL, 1, :new.prs_aanmeld_key, SYSDATE
FROM dual;
IF :new.prs_aanmeld_pz_key <> :new.prs_aanmeld_contact_key THEN
insert into WEB_USER_MESSAGES
select NULL, NULL, :new.prs_aanmeld_contact_key, actkey, REPLACE(mes,'##NAAM##', naam), NULL, 1, :new.prs_aanmeld_key, SYSDATE
FROM dual;
END IF;
ELSE
insert into WEB_USER_MESSAGES
select NULL, NULL, :new.prs_aanmeld_contact_key, actkey, REPLACE(mes,'##NAAM##', naam), NULL, 1, :new.prs_aanmeld_key, SYSDATE
FROM dual;
END IF;
END IF;
END;
END IF;
IF (:old.PRS_AANMELD_SECU_OK is null and :new.PRS_AANMELD_SECU_OK is not null)
or (:old.PRS_AANMELD_WERKPLEK_OPLOC = 0 and :new.PRS_AANMELD_WERKPLEK_OPLOC = 1
and :new.PRS_AANMELD_SECU_OK is not null )
THEN
-- all security input is complete, copy new person data into prs_perslid ans add reference to it
BEGIN
SELECT prs_s_prs_alluitvoerende_keys.nextval, nvl(FAC_USRDATA_OMSCHR,'')
INTO :new.PRS_PERSLID_KEY, mes FROM fac_usrdata where fac_usrtab_key (+)= titel_key
and :new.Prs_aanmeld_titel_key = FAC_USRDATA_KEY(+);
INSERT INTO PRS_PERSLID
(PRS_PERSLID_KEY, PRS_PERSLID_MODULE, PRS_SRTPERSLID_KEY, PRS_AFDELING_KEY,
PRS_PERSLID_NAAM, PRS_PERSLID_TITEL, PRS_PERSLID_NR, PRS_PERSLID_INGANGSDATUM,
PRS_PERSLID_EINDDATUM, PRS_PERSLID_TELEFOONNR, PRS_PERSLID_AANMAAK) values
(:new.PRS_PERSLID_KEY, 'PRS', 1, :new.Prs_afdeling_key, :new.Prs_aanmeld_naam, mes,
:new.Prs_aanmeld_persnr, :new.prs_aanmeld_datumbadgestart, :new.prs_aanmeld_datumbadgeend,
:new.prs_aanmeld_telintern, :new.Prs_aanmeld_aanmaak);
END;
END IF;
IF :old.PRS_AANMELD_CP_OK is null and :new.PRS_AANMELD_CP_OK is not null THEN
-- contact person's input is completed
BEGIN
code := 'COMPCP';
BEGIN
select WEB_USER_MESS_TEXT_DSC, WEB_USER_MESS_ACTIONS_KEY into mes, actkey
from WEB_USER_MESS_TEXT where WEB_USER_MESS_TEXT_CODE = code;
EXCEPTION WHEN NO_DATA_FOUND THEN null;
END;
-- inform facility manager
IF actkey is not null THEN
insert into WEB_USER_MESSAGES
select NULL, NULL, PRS_PERSLID_KEY, actkey, REPLACE(mes, '##NAAM##', naam), NULL, 1, :new.prs_aanmeld_key, SYSDATE
FROM PRS_V_AANWEZIGFACILITY;
END IF;
END;
END IF;
IF :old.PRS_AANMELD_FACI_OK is null and :new.PRS_AANMELD_FACI_OK is not null THEN
-- facilities input is completed
BEGIN
code := 'COMPFC';
BEGIN
select WEB_USER_MESS_TEXT_DSC, WEB_USER_MESS_ACTIONS_KEY into mes, actkey
from WEB_USER_MESS_TEXT where WEB_USER_MESS_TEXT_CODE = code;
EXCEPTION WHEN NO_DATA_FOUND THEN null;
END;
IF actkey is not null THEN
insert into WEB_USER_MESSAGES
select NULL, NULL, u.PRS_PERSLID_KEY, actkey, REPLACE(mes,'##NAAM##',naam), NULL, 1, :new.prs_aanmeld_key, SYSDATE
FROM FAC_V_WEBGEBRUIKER w,FAC_V_WEBUSER u,FAC_V_WEBFUNCTIE f
WHERE u.PRS_PERSLID_INITIALEN=w.FAC_GEBRUIKER_USERNAME AND
f.FAC_FUNCTIE_KEY=w.FAC_FUNCTIE_KEY AND
f.FAC_FUNCTIE_CODE = 'WEB_PRSSYS';
END IF;
END;
END IF;
IF :old.PRS_AANMELD_SYS_OK is null and :new.PRS_AANMELD_SYS_OK is not null THEN
-- new employee processing is completed
BEGIN
-- refresh prs_perslid table
IF :new.Prs_aanmeld_titel_key IS NOT NULL THEN
SELECT nvl(FAC_USRDATA_OMSCHR,'')INTO mes FROM fac_usrdata
where fac_usrtab_key (+)= titel_key
and :new.Prs_aanmeld_titel_key = FAC_USRDATA_KEY(+);
ELSE
mes := '';
END IF;
update prs_perslid
set PRS_AFDELING_KEY =:new.Prs_afdeling_key,
PRS_PERSLID_NAAM = :new.Prs_aanmeld_naam,
PRS_PERSLID_TITEL = mes,
PRS_PERSLID_NR = :new.Prs_aanmeld_persnr,
PRS_PERSLID_INGANGSDATUM = :new.prs_aanmeld_datumbadgestart,
PRS_PERSLID_EINDDATUM = :new.prs_aanmeld_datumbadgeend,
PRS_PERSLID_TELEFOONNR = :new.prs_aanmeld_telintern,
PRS_PERSLID_AANMAAK = :new.Prs_aanmeld_aanmaak
where prs_perslid_key = :new.prs_perslid_key;
-- copy the rest of data into prs_kenmerk
-- copy email address
mes := null;
IF :new.PRS_AANMELD_EMAIL is not null THEN
BEGIN
select PRS_KENMERKLINK_WAARDE into mes from PRS_KENMERKLINK
where PRS_LINK_KEY = :new.prs_perslid_key and PRS_KENMERK_KEY = email_key;
EXCEPTION WHEN NO_DATA_FOUND THEN null;
END;
IF mes is null THEN
insert into PRS_KENMERKLINK (PRS_KENMERKLINK_KEY,
PRS_LINK_KEY, PRS_KENMERK_KEY, PRS_KENMERKLINK_WAARDE, PRS_KENMERKLINK_NIVEAU )
values( prs_s_prs_kenmerkLink_key.NextVal, :new.prs_perslid_key,
email_key, :new.PRS_AANMELD_EMAIL ,'P');
ELSE
update PRS_KENMERKLINK set PRS_KENMERKLINK_WAARDE = :new.PRS_AANMELD_EMAIL
where PRS_LINK_KEY = :new.prs_perslid_key and PRS_KENMERK_KEY = email_key;
END IF;
END IF;
-- copy mobile phone
mes := null;
IF :new.PRS_AANMELD_MOBIEL is not null THEN
BEGIN
select PRS_KENMERKLINK_WAARDE into mes from PRS_KENMERKLINK
where PRS_LINK_KEY = :new.prs_perslid_key and PRS_KENMERK_KEY = mphone_key;
EXCEPTION WHEN NO_DATA_FOUND THEN null;
END;
IF mes is null THEN
insert into PRS_KENMERKLINK (PRS_KENMERKLINK_KEY,
PRS_LINK_KEY, PRS_KENMERK_KEY, PRS_KENMERKLINK_WAARDE, PRS_KENMERKLINK_NIVEAU )
values( prs_s_prs_kenmerkLink_key.NextVal, :new.prs_perslid_key,
mphone_key, :new.PRS_AANMELD_MOBIEL ,'P');
ELSE
update PRS_KENMERKLINK set PRS_KENMERKLINK_WAARDE = :new.PRS_AANMELD_MOBIEL
where PRS_LINK_KEY = :new.prs_perslid_key and PRS_KENMERK_KEY = mphone_key;
END IF;
END IF;
-- copy badge number
mes := null;
IF :new.PRS_AANMELD_DEFBADGENR is not null THEN
BEGIN
select PRS_KENMERKLINK_WAARDE into mes from PRS_KENMERKLINK
where PRS_LINK_KEY = :new.prs_perslid_key and PRS_KENMERK_KEY = badgen_key;
EXCEPTION WHEN NO_DATA_FOUND THEN null;
END;
IF mes is null THEN
insert into PRS_KENMERKLINK (PRS_KENMERKLINK_KEY,
PRS_LINK_KEY, PRS_KENMERK_KEY, PRS_KENMERKLINK_WAARDE, PRS_KENMERKLINK_NIVEAU )
values( prs_s_prs_kenmerkLink_key.NextVal, :new.prs_perslid_key,
badgen_key, :new.PRS_AANMELD_DEFBADGENR ,'P');
ELSE
update PRS_KENMERKLINK set PRS_KENMERKLINK_WAARDE = :new.PRS_AANMELD_DEFBADGENR
where PRS_LINK_KEY = :new.prs_perslid_key and PRS_KENMERK_KEY = badgen_key;
END IF;
END IF;
-- copy badge sort
mes := null;
IF :new.PRS_AANMELD_BADGESOORT is not null THEN
BEGIN
select PRS_KENMERKLINK_WAARDE into mes from PRS_KENMERKLINK
where PRS_LINK_KEY = :new.prs_perslid_key and PRS_KENMERK_KEY = badges_key;
EXCEPTION WHEN NO_DATA_FOUND THEN null;
END;
IF mes is null THEN
insert into PRS_KENMERKLINK (PRS_KENMERKLINK_KEY,
PRS_LINK_KEY, PRS_KENMERK_KEY, PRS_KENMERKLINK_WAARDE, PRS_KENMERKLINK_NIVEAU )
values( prs_s_prs_kenmerkLink_key.NextVal, :new.prs_perslid_key,
badges_key, :new.PRS_AANMELD_BADGESOORT ,'P');
ELSE
update PRS_KENMERKLINK set PRS_KENMERKLINK_WAARDE = :new.PRS_AANMELD_BADGESOORT
where PRS_LINK_KEY = :new.prs_perslid_key and PRS_KENMERK_KEY = badges_key;
END IF;
END IF;
END;
-- delete messages when sysopr. marks announcement completed
DELETE FROM WEB_USER_MESSAGES
WHERE web_user_mess_actions_key = AanmeldActKey
AND web_user_mess_action_params = :new.prs_aanmeld_key;
END IF;
IF :old.PRS_AANMELD_WERKPLEK_OPLOC = 1 and :new.PRS_AANMELD_WERKPLEK_OPLOC = 0 THEN
-- delete new employee information from the database
delete from prs_kenmerklink where PRS_LINK_KEY = :new.PRS_PERSLID_KEY;
delete from prs_perslidwerkplek where prs_perslid_key = :new.PRS_PERSLID_KEY;
delete from prs_perslid where prs_perslid_key = :new.PRS_PERSLID_KEY;
:new.PRS_PERSLID_KEY := null;
END IF;
keepmes := 7;
delete from WEB_USER_MESSAGES where WEB_USER_MESS_ACTION_DATUM < (SYSDATE - keepmes);
END;
END;
/
-- Aangepaste trigger t.b.v. wijzigingsverzoeken...
CREATE OR REPLACE TRIGGER prs_t_prs_perslid_wijzig_B_IU
BEFORE INSERT OR UPDATE ON prs_perslid_wijziging
FOR EACH ROW
BEGIN
DECLARE mes VARCHAR2(255);
actkey NUMBER;
code VARCHAR2(6);
keepmes NUMBER;
pkey NUMBER;
naam VARCHAR2(30);
wijzigActKey NUMBER := 4;
BEGIN
IF :new.prs_perslid_wijziging_key IS NULL THEN SELECT prs_s_prs_perslid_wijzig_key.nextval INTO :new.prs_perslid_wijziging_key FROM DUAL; END IF;
IF :old.Prs_perslid_wijziging_aanmaak IS NULL THEN
BEGIN :new.Prs_perslid_wijziging_aanmaak := SYSDATE; END;
END IF;
BEGIN
SELECT prs_perslid_naam INTO naam
FROM prs_perslid
WHERE prs_perslid_key = :new.prs_perslid_key;
EXCEPTION
WHEN NO_DATA_FOUND THEN
Naam := '';
END;
IF :old.Prs_perslid_wijziging_aanmaak is null and :new.Prs_perslid_wijziging_aanmaak is not null THEN
BEGIN
code := 'WIJZNW';
BEGIN
select WEB_USER_MESS_TEXT_DSC, WEB_USER_MESS_ACTIONS_KEY into mes, actkey
from WEB_USER_MESS_TEXT where WEB_USER_MESS_TEXT_CODE = code;
EXCEPTION WHEN NO_DATA_FOUND THEN null;
END;
IF actkey is not null THEN
insert into WEB_USER_MESSAGES
select NULL, NULL, PRS_PERSLID_KEY, actkey, REPLACE(mes,'##NAAM##',naam), NULL, 1, :new.prs_perslid_wijziging_key, SYSDATE
FROM PRS_V_AANWEZIGSECURITY;
insert into WEB_USER_MESSAGES
select NULL, NULL, PRS_PERSLID_KEY, actkey, REPLACE(mes,'##NAAM##',naam), NULL, 1, :new.prs_perslid_wijziging_key, SYSDATE
FROM PRS_V_AANWEZIGFACILITY;
insert into WEB_USER_MESSAGES
select NULL, NULL, u.PRS_PERSLID_KEY, actkey, REPLACE(mes,'##NAAM##',naam), NULL, 1, :new.prs_perslid_wijziging_key, SYSDATE
FROM FAC_V_WEBGEBRUIKER w,FAC_V_WEBUSER u,FAC_V_WEBFUNCTIE f
WHERE u.PRS_PERSLID_INITIALEN=w.FAC_GEBRUIKER_USERNAME AND
f.FAC_FUNCTIE_KEY=w.FAC_FUNCTIE_KEY AND
f.FAC_FUNCTIE_CODE = 'WEB_PRSSYS';
END IF;
END;
END IF;
IF :old.Prs_perslid_wijziging_sys_ok IS NULL AND :new.Prs_perslid_wijziging_sys_ok IS NOT NULL THEN
BEGIN
code := 'WIJZSU';
BEGIN
select WEB_USER_MESS_TEXT_DSC, WEB_USER_MESS_ACTIONS_KEY into mes, actkey
from WEB_USER_MESS_TEXT where WEB_USER_MESS_TEXT_CODE = code;
EXCEPTION WHEN NO_DATA_FOUND THEN null;
END;
IF actkey IS NOT NULL THEN
SELECT prs_perslid_naam INTO naam
FROM prs_perslid
WHERE prs_perslid_key = :new.prs_perslid_key;
INSERT INTO WEB_USER_MESSAGES VALUES
(NULL,
NULL,
:new.prs_perslid_wijziging_pz_key,
actkey,
REPLACE(mes,'##NAAM##', naam),
NULL,
1,
:new.prs_perslid_wijziging_key,
SYSDATE );
END IF;
END;
-- delete messages when sysopr. marks change completed (but not the messages to initiator of changes)
DELETE FROM WEB_USER_MESSAGES
WHERE web_user_mess_actions_key = WijzigActKey
AND prs_perslid_key_receiver <> :new.prs_perslid_wijziging_pz_key
AND web_user_mess_action_params = :new.prs_perslid_wijziging_key;
END IF;
keepmes := 7;
delete from WEB_USER_MESSAGES where WEB_USER_MESS_ACTION_DATUM < (SYSDATE - keepmes);
END;
END;
/

View File

@@ -1,66 +0,0 @@
/* Euro.sql
*
* Dit script converteert de Facilitor (GMS3) database van gulden naar EURO.
* De database wordt gemarkeerd middels een rij (EURO,Geconverteerd)in fac_entity_name.
* Bij aantreffen van de markering gaat de conversie niet door! (Deze heeft immers
* al plaats gevonden)
* De fac_message in de titelbalk wordt aangevuld met een melding dat er nu in Euro's wordt gewerkt
* Auteur: abo 14 11 2000 Dijkoraad IT bv 053 4800700
*
* Revisie
*
* 14 11 2000 abo aangemaakt.
* 11 12 2000 abo valutacode voor SAP-export gewijzigd in fac_entity.
*/
set serveroutput on
alter trigger MLD_T_MLD_OPDR_B_IU disable;
declare
cursor c_euro is
select fac_entity_system_name
from fac_entity_name
where fac_entity_system_name='EURO';
euro fac_entity_name.fac_entity_system_name%type;
begin
open c_euro;
fetch c_euro
into euro;
if c_euro%notfound then
update mld_opdr
set mld_opdr_uurloon = round((mld_opdr_uurloon/2.20371),2),
mld_opdr_kosten = round((mld_opdr_kosten/2.20371),2),
mld_opdr_materiaal = round((mld_opdr_materiaal/2.20371),2);
update prs_bedrijf
set prs_bedrijf_uurloon = round((prs_bedrijf_uurloon/2.20371),2);
update prs_srtperslid
set prs_srtperslid_uurloon = round((prs_srtperslid_uurloon/2.20371),2);
update prs_perslid
set prs_perslid_uurloon = round((prs_perslid_uurloon/2.20371),2);
update alg_kostenpost
set alg_kostenpost_budget = round((alg_kostenpost_budget/2.20371),2),
alg_kostenpost_besteed = round((alg_kostenpost_besteed/2.20371),2);
update ins_ol_optie
set ins_ol_optie_prijs = round((ins_ol_optie_prijs/2.20371),2);
update ins_ol_aansluiting
set ins_ol_aansluiting_prijs = round((ins_ol_aansluiting_prijs/2.20371),2);
update ins_ol_netwerk
set ins_ol_netwerk_prijs = round((ins_ol_netwerk_prijs/2.20371),2);
update fac_message
set fac_message_text = fac_message_text||' (Euro geconverteerd !!)'
where fac_message_code='FAC_M002';
update fac_entity_name
set fac_entity_user_name='EUR'
where fac_entity_system_name='FAC_VALUTA_CODE';
insert into fac_entity_name(fac_entity_system_name, fac_entity_user_name)
values
('EURO','Geconverteerd');
-- commit; Hoeft niet meer, want het laatste alter trigger statement impliceert al een commit;
dbms_output.put_line('Euro-conversie succesvol uitgevoerd op deze database');
else
dbms_output.put_line('Euro-conversie is reeds uitgevoerd op deze database');
end if;
close c_euro;
end;
/
alter trigger MLD_T_MLD_OPDR_B_IU enable
/
set serveroutput off

View File

@@ -1,376 +0,0 @@
SPOOL xFSN1185.LST
-------------------- Toevoegen tabellen in fac_usrtab --------------------
-- Toevoegen tabel: Type aansluiting
INSERT INTO fac_usrtab
(fac_usrtab_naam,
fac_usrtab_object,
fac_usrtab_omschrijving,
fac_usrtab_view
)
VALUES ('Aansluittype',
'USR_AANSLUITTYPE',
'Aansluittype',
'T'
);
-- Toevoegen tabel: KamerHUB
INSERT INTO fac_usrtab
(fac_usrtab_naam,
fac_usrtab_object,
fac_usrtab_omschrijving,
fac_usrtab_view
)
VALUES ('KamerHUB',
'USR_KAMERHUB',
'KamerHUB',
'T'
);
-- Toevoegen tabel: Netwerk
INSERT INTO fac_usrtab
(fac_usrtab_naam,
fac_usrtab_object,
fac_usrtab_omschrijving,
fac_usrtab_view
)
VALUES ('Netwerk',
'USR_NETWERK',
'Netwerk',
'T'
);
-- Toevoegen tabel: Optie
INSERT INTO fac_usrtab
(fac_usrtab_naam,
fac_usrtab_object,
fac_usrtab_omschrijving,
fac_usrtab_view
)
VALUES ('Optie',
'USR_OPTIE',
'Optie',
'T'
);
COMMIT;
-------------------- Vind de fac_usr_tab en ins_ol_kenmerk keys --------------------
DECLARE
aansluittype_fut_key NUMBER;
kamerhub_fut_key NUMBER;
netwerk_fut_key NUMBER;
optie_fut_key NUMBER;
ol_aansluittype_kenmerk_key NUMBER;
ol_kamerhub_kenmerk_key NUMBER;
ol_netwerk_kenmerk_key NUMBER;
ol_optie_kenmerk_key NUMBER;
BEGIN
SELECT fac_usrtab_key
INTO aansluittype_fut_key
FROM fac_usrtab
WHERE fac_usrtab_naam = 'Aansluittype';
SELECT fac_usrtab_key
INTO kamerhub_fut_key
FROM fac_usrtab
WHERE fac_usrtab_naam = 'KamerHUB';
SELECT fac_usrtab_key
INTO netwerk_fut_key
FROM fac_usrtab
WHERE fac_usrtab_naam = 'Netwerk';
SELECT fac_usrtab_key
INTO optie_fut_key
FROM fac_usrtab
WHERE fac_usrtab_naam = 'Optie';
SELECT ins_ol_kenmerk_key
INTO ol_aansluittype_kenmerk_key
FROM ins_ol_kenmerk
WHERE ins_ol_kenmerk_naam = 'REF_AANSLUITING';
SELECT ins_ol_kenmerk_key
INTO ol_kamerhub_kenmerk_key
FROM ins_ol_kenmerk
WHERE ins_ol_kenmerk_naam = 'REF_KAMERHUB';
SELECT ins_ol_kenmerk_key
INTO ol_netwerk_kenmerk_key
FROM ins_ol_kenmerk
WHERE ins_ol_kenmerk_naam = 'REF_NETWERK';
SELECT ins_ol_kenmerk_key
INTO ol_optie_kenmerk_key
FROM ins_ol_kenmerk
WHERE ins_ol_kenmerk_naam = 'REF_OPTIES';
COMMIT;
-------------------- Update tabel ins_refsrtkenmerk --------------------
UPDATE ins_refsrtkenmerk
SET ins_refsrtkenmerk_objectnaam = 'FAC_USRDATA',
ins_refsrtkenmerk_kolomnaam = 'FAC_USRDATA_KEY',
ins_refsrtkenmerk_kolomtxt = 'FAC_USRDATA_CODE',
fac_usrtab_key = aansluittype_fut_key
WHERE ins_refsrtkenmerk_key = ol_aansluittype_kenmerk_key;
UPDATE ins_refsrtkenmerk
SET ins_refsrtkenmerk_objectnaam = 'FAC_USRDATA',
ins_refsrtkenmerk_kolomnaam = 'FAC_USRDATA_KEY',
ins_refsrtkenmerk_kolomtxt = 'FAC_USRDATA_CODE',
fac_usrtab_key = kamerhub_fut_key
WHERE ins_refsrtkenmerk_key = ol_kamerhub_kenmerk_key;
UPDATE ins_refsrtkenmerk
SET ins_refsrtkenmerk_objectnaam = 'FAC_USRDATA',
ins_refsrtkenmerk_kolomnaam = 'FAC_USRDATA_KEY',
ins_refsrtkenmerk_kolomtxt = 'FAC_USRDATA_CODE',
fac_usrtab_key = netwerk_fut_key
WHERE ins_refsrtkenmerk_key = ol_netwerk_kenmerk_key;
UPDATE ins_refsrtkenmerk
SET ins_refsrtkenmerk_objectnaam = 'FAC_USRDATA',
ins_refsrtkenmerk_kolomnaam = 'FAC_USRDATA_KEY',
ins_refsrtkenmerk_kolomtxt = 'FAC_USRDATA_CODE',
fac_usrtab_key = optie_fut_key
WHERE ins_refsrtkenmerk_key = ol_optie_kenmerk_key;
COMMIT;
-------------------- Kopieer (insert) data in de tabel fac_usrdata --------------------
INSERT INTO fac_usrdata (fac_usrtab_key,
fac_usrdata_code,
fac_usrdata_upper,
fac_usrdata_omschr,
fac_usrdata_prijs
)
SELECT aansluittype_fut_key,
ins_ol_aansluiting_naam,
ins_ol_aansluiting_upper,
ins_ol_aansluiting_naam,
ins_ol_aansluiting_prijs
FROM ins_v_aanwezigol_aansluiting;
INSERT INTO fac_usrdata (fac_usrtab_key,
fac_usrdata_code,
fac_usrdata_upper,
fac_usrdata_omschr,
fac_usrdata_prijs
)
SELECT kamerhub_fut_key,
ins_ol_kamerhub_naam,
ins_ol_kamerhub_upper,
ins_ol_kamerhub_naam,
ins_ol_kamerhub_prijs
FROM ins_v_aanwezigol_kamerhub;
INSERT INTO fac_usrdata (fac_usrtab_key,
fac_usrdata_code,
fac_usrdata_upper,
fac_usrdata_omschr,
fac_usrdata_prijs
)
SELECT netwerk_fut_key,
ins_ol_netwerk_naam,
ins_ol_netwerk_upper,
ins_ol_netwerk_naam,
ins_ol_netwerk_prijs
FROM ins_v_aanwezigol_netwerk;
INSERT INTO fac_usrdata (fac_usrtab_key,
fac_usrdata_code,
fac_usrdata_upper,
fac_usrdata_omschr,
fac_usrdata_prijs
)
SELECT optie_fut_key,
ins_ol_optie_naam,
ins_ol_optie_upper,
ins_ol_optie_naam,
ins_ol_optie_prijs
FROM ins_v_aanwezigol_optie;
COMMIT;
-------------------- De waarden in de tabel ins_kenmerkdeel aanpassen --------------------
/* UPDATE ins_kenmerkdeel
SET ins_kenmerkdeel_waarde = (NVL((SELECT fud.fac_usrdata_key
FROM fac_usrdata fud,
ins_v_aanwezigol_aansluiting ol_a
WHERE fud.fac_usrtab_key = aansluittype_fut_key
AND fud.fac_usrdata_code = ol_a.ins_ol_aansluiting_naam
AND fud.fac_usrdata_upper = ol_a.ins_ol_aansluiting_upper
AND fud.fac_usrdata_omschr = ol_a.ins_ol_aansluiting_naam
AND fud.fac_usrdata_prijs = ol_a.ins_ol_aansluiting_prijs
AND ol_a.ins_ol_aansluiting_key = ins_kenmerkdeel.ins_kenmerkdeel_waarde),
ins_kenmerkdeel.ins_kenmerkdeel_waarde
)
)
WHERE ins_kenmerkdeel_key IN (SELECT kd.ins_kenmerkdeel_key
FROM ins_srtkenmerk sk,
ins_kenmerk k,
ins_kenmerkdeel kd
WHERE sk.ins_srtkenmerk_key = k.ins_srtkenmerk_key
AND k.ins_kenmerk_key = kd.ins_kenmerk_key
AND sk.ins_refsrtkenmerk_key = ol_aansluittype_kenmerk_key
)
AND ins_kenmerkdeel_key = 694431;
COMMIT;*/
END;
/
-------------------- De waarden in de tabel ins_kenmerkdeel aanpassen --------------------
UPDATE ins_kenmerkdeel
SET ins_kenmerkdeel_waarde = (NVL((SELECT fud.fac_usrdata_key
FROM fac_usrdata fud,
ins_v_aanwezigol_aansluiting ol_a
WHERE fud.fac_usrtab_key = (SELECT fac_usrtab_key
FROM fac_usrtab
WHERE fac_usrtab_naam = 'Aansluittype')
AND fud.fac_usrdata_code = ol_a.ins_ol_aansluiting_naam
AND fud.fac_usrdata_upper = ol_a.ins_ol_aansluiting_upper
AND fud.fac_usrdata_omschr = ol_a.ins_ol_aansluiting_naam
AND fud.fac_usrdata_prijs = ol_a.ins_ol_aansluiting_prijs
AND ol_a.ins_ol_aansluiting_key = ins_kenmerkdeel.ins_kenmerkdeel_waarde),
ins_kenmerkdeel.ins_kenmerkdeel_waarde
)
)
WHERE ins_kenmerkdeel_key IN (SELECT kd.ins_kenmerkdeel_key
FROM ins_srtkenmerk sk,
ins_kenmerk k,
ins_kenmerkdeel kd
WHERE sk.ins_srtkenmerk_key = k.ins_srtkenmerk_key
AND k.ins_kenmerk_key = kd.ins_kenmerk_key
AND sk.ins_refsrtkenmerk_key = (SELECT ins_ol_kenmerk_key
FROM ins_ol_kenmerk
WHERE ins_ol_kenmerk_naam = 'REF_AANSLUITING')
)
-- AND ins_kenmerkdeel_key = 694431;
COMMIT;
UPDATE ins_kenmerkdeel
SET ins_kenmerkdeel_waarde = (NVL((SELECT fud.fac_usrdata_key
FROM fac_usrdata fud,
ins_v_aanwezigol_kamerhub ol_a
WHERE fud.fac_usrtab_key = (SELECT fac_usrtab_key
FROM fac_usrtab
WHERE fac_usrtab_naam = 'KamerHUB')
AND fud.fac_usrdata_code = ol_a.ins_ol_kamerhub_naam
AND fud.fac_usrdata_upper = ol_a.ins_ol_kamerhub_upper
AND fud.fac_usrdata_omschr = ol_a.ins_ol_kamerhub_naam
AND fud.fac_usrdata_prijs = ol_a.ins_ol_kamerhub_prijs
AND ol_a.ins_ol_kamerhub_key = ins_kenmerkdeel.ins_kenmerkdeel_waarde),
ins_kenmerkdeel.ins_kenmerkdeel_waarde
)
)
WHERE ins_kenmerkdeel_key IN (SELECT kd.ins_kenmerkdeel_key
FROM ins_srtkenmerk sk,
ins_kenmerk k,
ins_kenmerkdeel kd
WHERE sk.ins_srtkenmerk_key = k.ins_srtkenmerk_key
AND k.ins_kenmerk_key = kd.ins_kenmerk_key
AND sk.ins_refsrtkenmerk_key = (SELECT ins_ol_kenmerk_key
FROM ins_ol_kenmerk
WHERE ins_ol_kenmerk_naam = 'REF_KAMERHUB')
)
-- AND ins_kenmerkdeel_key = 694426;
COMMIT;
UPDATE ins_kenmerkdeel
SET ins_kenmerkdeel_waarde = (NVL((SELECT fud.fac_usrdata_key
FROM fac_usrdata fud,
ins_v_aanwezigol_netwerk ol_a
WHERE fud.fac_usrtab_key = (SELECT fac_usrtab_key
FROM fac_usrtab
WHERE fac_usrtab_naam = 'Netwerk')
AND fud.fac_usrdata_code = ol_a.ins_ol_netwerk_naam
AND fud.fac_usrdata_upper = ol_a.ins_ol_netwerk_upper
AND fud.fac_usrdata_omschr = ol_a.ins_ol_netwerk_naam
AND fud.fac_usrdata_prijs = ol_a.ins_ol_netwerk_prijs
AND ol_a.ins_ol_netwerk_key = ins_kenmerkdeel.ins_kenmerkdeel_waarde),
ins_kenmerkdeel.ins_kenmerkdeel_waarde
)
)
WHERE ins_kenmerkdeel_key IN (SELECT kd.ins_kenmerkdeel_key
FROM ins_srtkenmerk sk,
ins_kenmerk k,
ins_kenmerkdeel kd
WHERE sk.ins_srtkenmerk_key = k.ins_srtkenmerk_key
AND k.ins_kenmerk_key = kd.ins_kenmerk_key
AND sk.ins_refsrtkenmerk_key = (SELECT ins_ol_kenmerk_key
FROM ins_ol_kenmerk
WHERE ins_ol_kenmerk_naam = 'REF_NETWERK')
)
-- AND ins_kenmerkdeel_key = 694433;
COMMIT;
UPDATE ins_kenmerkdeel
SET ins_kenmerkdeel_waarde = (NVL((SELECT fud.fac_usrdata_key
FROM fac_usrdata fud,
ins_v_aanwezigol_optie ol_a
WHERE fud.fac_usrtab_key = (SELECT fac_usrtab_key
FROM fac_usrtab
WHERE fac_usrtab_naam = 'Optie')
AND fud.fac_usrdata_code = ol_a.ins_ol_optie_naam
AND fud.fac_usrdata_upper = ol_a.ins_ol_optie_upper
AND fud.fac_usrdata_omschr = ol_a.ins_ol_optie_naam
AND fud.fac_usrdata_prijs = ol_a.ins_ol_optie_prijs
AND ol_a.ins_ol_optie_key = ins_kenmerkdeel.ins_kenmerkdeel_waarde),
ins_kenmerkdeel.ins_kenmerkdeel_waarde
)
)
WHERE ins_kenmerkdeel_key IN (SELECT kd.ins_kenmerkdeel_key
FROM ins_srtkenmerk sk,
ins_kenmerk k,
ins_kenmerkdeel kd
WHERE sk.ins_srtkenmerk_key = k.ins_srtkenmerk_key
AND k.ins_kenmerk_key = kd.ins_kenmerk_key
AND sk.ins_refsrtkenmerk_key = (SELECT ins_ol_kenmerk_key
FROM ins_ol_kenmerk
WHERE ins_ol_kenmerk_naam = 'REF_OPTIES')
)
-- AND ins_kenmerkdeel_key = 694429;
COMMIT;
DROP TABLE INS_OL_AANSLUITING;
DROP VIEW INS_V_AANWEZIGOL_AANSLUITING;
DROP TABLE INS_OL_KAMERHUB;
DROP VIEW INS_V_AANWEZIGOL_KAMERHUB;
DROP TABLE INS_OL_NETWERK;
DROP VIEW INS_V_AANWEZIGOL_NETWERK;
DROP TABLE INS_OL_OPTIE;
DROP VIEW INS_V_AANWEZIGOL_OPTIE;
COMMIT;
INSERT INTO fac_usrrap
(fac_usrrap_omschrijving, fac_usrrap_view_name,
fac_usrrap_functie, fac_usrrap_info)
VALUES ('Outlet kostenplaats prijs', 'AKZ_V_OUTLET_PRIJS_KOSTPL', 0,
'Overzicht van doorbelasting per kostenplaats');
INSERT INTO fac_usrrap
(fac_usrrap_omschrijving, fac_usrrap_view_name,
fac_usrrap_functie, fac_usrrap_info)
VALUES ('Wallplate/outlet', 'AKZ_V_WALLPLATE_RAPPORT', 0,
'Overzicht van wallplate/outlet');
COMMIT;
SPOOL OFF

File diff suppressed because it is too large Load Diff

View File

@@ -1,75 +0,0 @@
-- AKZ#456: Tabel PRS_EENHEID niet meer gebruiken
CREATE OR REPLACE FORCE VIEW WEB_V_RUIMTE_EENHEID
(ALG_RUIMTE_KEY, PRS_AFDELING_EENHEID)
AS
SELECT w.PRS_ALG_RUIMTE_KEY "ALG_RUIMTE_KEY",
'NIETVERH' PRS_AFDELING_EENHEID
FROM PRS_PERSLIDWERKPLEK pw, PRS_WERKPLEK w, PRS_AFDELING a, PRS_AFDELING e, PRS_PERSLID p
WHERE a.prs_eenheid_key=e.prs_eenheid_key
AND pw.PRS_PERSLIDWERKPLEK_VERWIJDER IS NULL
AND w.PRS_WERKPLEK_VERWIJDER IS NULL
AND pw.PRS_WERKPLEK_KEY = w.PRS_WERKPLEK_KEY
AND a.PRS_AFDELING_VERWIJDER IS NULL
AND a.prs_afdeling_naam ='NIET VERH'
AND p.prs_perslid_verwijder IS NULL
AND ((pw.PRS_AFDELING_KEY=a.PRS_AFDELING_KEY AND pw.PRS_PERSLID_KEY IS NULL
AND p.PRS_PERSLID_KEY=-1)
OR (pw.PRS_PERSLID_KEY=p.PRS_PERSLID_KEY AND p.prs_afdeling_key=a.prs_afdeling_key))
GROUP BY prs_alg_ruimte_key
UNION
SELECT w.PRS_ALG_RUIMTE_KEY "ALG_RUIMTE_KEY",
MAX(e.PRS_AFDELING_NAAM) PRS_AFDELING_EENHEID
FROM PRS_PERSLIDWERKPLEK pw, PRS_WERKPLEK w, PRS_AFDELING a, PRS_AFDELING e, PRS_PERSLID p
WHERE a.prs_afdeling_parentkey=e.prs_afdeling_key
AND e.prs_afdeling_parentkey IS NULL
AND pw.PRS_PERSLIDWERKPLEK_VERWIJDER IS NULL
AND w.PRS_WERKPLEK_VERWIJDER IS NULL
AND pw.PRS_WERKPLEK_KEY = w.PRS_WERKPLEK_KEY
AND a.PRS_AFDELING_VERWIJDER IS NULL
AND a.prs_afdeling_naam <>'NIET VERH'
AND p.prs_perslid_verwijder IS NULL
AND ((pw.PRS_AFDELING_KEY=a.PRS_AFDELING_KEY AND pw.PRS_PERSLID_KEY IS NULL
AND p.PRS_PERSLID_KEY=-1)
OR (pw.PRS_PERSLID_KEY=p.PRS_PERSLID_KEY AND p.prs_afdeling_key=a.prs_afdeling_key))
GROUP BY prs_alg_ruimte_key;
-- AKZ#431 hide_f_verdieping_volgnr toegevoegd
CREATE OR REPLACE FORCE VIEW akz_schoonmaakrapport (fclt_f_gebouw,
hide_f_verdieping_volgnr,
verdieping,
ruimte,
omschrijving,
opp,
fclt_f_vloerafwerking,
fclt_f_schoonmaakniveau,
uren
)
AS
SELECT alg_g.alg_gebouw_omschrijving fclt_f_gebouw,
alg_v.alg_verdieping_volgnr,
alg_v.alg_verdieping_omschrijving verdieping,
alg_r.alg_ruimte_nr ruimte,
alg_r.alg_ruimte_omschrijving omschrijving,
alg_r.alg_ruimte_bruto_vloeropp opp,
u.fac_usrdata_omschr fclt_f_vloerafwerking,
n.akz_schnivo_omschrijving fclt_f_schoonmaakniveau,
n.akz_schnivo_kengetal * alg_r.alg_ruimte_bruto_vloeropp uren
FROM alg_v_aanweziggebouw alg_g,
alg_v_aanwezigverdieping alg_v,
alg_v_aanwezigruimte alg_r,
alg_onrgoedkenmerk alg_k1,
alg_onrgoedkenmerk alg_k2,
akz_schnivo n,
fac_usrdata u
WHERE alg_v.alg_gebouw_key = alg_g.alg_gebouw_key
AND alg_v.alg_verdieping_key = alg_r.alg_verdieping_key
AND alg_r.alg_ruimte_key = alg_k1.alg_onrgoed_key(+)
AND alg_k1.alg_kenmerk_key(+) = 1001 --nivo
AND alg_k1.alg_onrgoedkenmerk_waarde = n.akz_schnivo_key
AND alg_r.alg_ruimte_key = alg_k2.alg_onrgoed_key(+)
AND alg_k2.alg_kenmerk_key(+) = 2 -- srtvloer
AND alg_k2.alg_onrgoedkenmerk_waarde = u.fac_usrdata_key
AND u.fac_usrtab_key = 1
ORDER BY alg_v.alg_verdieping_volgnr, alg_r.alg_ruimte_upper_nr;

View File

@@ -1,7 +0,0 @@
spool akz446to447.lst
-- GTI WTB
UPDATE prs_bedrijf SET prs_bedrijf_order_adres='mailto:'||prs_bedrijf_email where prs_bedrijf_key=7657;
spool off

File diff suppressed because it is too large Load Diff

View File

@@ -1,9 +0,0 @@
ALTER TRIGGER INS_T_INS_KENMERK_B_IU DISABLE;
UPDATE INS_KENMERK
SET ins_kenmerk_verplicht = 1
WHERE ins_kenmerk_key = 3146;
ALTER TRIGGER INS_T_INS_KENMERK_B_IU ENABLE;
commit;

View File

@@ -1,37 +0,0 @@
;
; AKZA#13284
;
; Verwijder eenmalig alle oude reserveringen (van voor 1-sep-2007)
; Dat waren maar test reserveringen
;
DELETE FROM res_rsv_deel
WHERE res_rsv_ruimte_key IN (
SELECT res_rsv_ruimte_key
FROM res_rsv_ruimte
WHERE res_reservering_key IN (
SELECT res_reservering_key
FROM res_reservering
WHERE res_reservering_aanmaak <
TO_DATE ('01-09-2007', 'DD-MM-YYYY')));
DELETE FROM res_rsv_artikel
WHERE res_rsv_ruimte_key IN (
SELECT res_rsv_ruimte_key
FROM res_rsv_ruimte
WHERE res_reservering_key IN (
SELECT res_reservering_key
FROM res_reservering
WHERE res_reservering_aanmaak <
TO_DATE ('01-09-2007', 'DD-MM-YYYY')));
DELETE FROM res_rsv_ruimte
WHERE res_reservering_key IN (
SELECT res_reservering_key
FROM res_reservering
WHERE res_reservering_aanmaak <
TO_DATE ('01-09-2007', 'DD-MM-YYYY'));
DELETE FROM res_reservering
WHERE res_reservering_aanmaak < TO_DATE ('01-09-2007', 'DD-MM-YYYY');
COMMIT;

View File

@@ -1,70 +0,0 @@
SET ECHO ON
SPOOL xakza22617.lst
-- 74 WEB_MLDBOF
INSERT INTO FAC_USRRAP
(fac_usrrap_omschrijving, fac_usrrap_view_name,
fac_usrrap_in_huidige_locatie,
fac_usrrap_template, fac_usrrap_macro,
fac_usrrap_vraagbegindatum, fac_usrrap_vraageinddatum,
fac_usrrap_functie, fac_usrrap_info,
fac_functie_key, fac_usrrap_autorefresh
)
VALUES ('MLD: Afmelders en kosten', 'akza_v_rap_afmelders_kosten',
NULL,
NULL, NULL,
0, 0,
0, 'Gegevens van meldingen die in een bepaalde periode zijn afgemeld, met bijbehorende opdrachten.',
74, 0
);
-- AKZA#22617: afgemelde meldingen en opdrachten, met kosten.
-- key 18 = MLDAFM, key 26 = ORDAFM
-- 5.2.1 zit in de weg (AKZA nog op 5.1.3), dus de view eenmalig in de once opleveren, totdat AKZA over is.
CREATE OR REPLACE VIEW akza_v_rap_afmelders_kosten
AS
SELECT m.mld_melding_key||'/'||o.mld_opdr_bedrijfopdr_volgnr hide_f_srt
,vg.ins_discipline_key fclt_3d_discipline_key
,m.mld_alg_locatie_key fclt_3d_locatie_key
,TO_CHAR(m.mld_melding_key) meldingnr
,vg.ins_discipline_omschrijving fclt_f_vakgroep
,sm.mld_stdmelding_omschrijving melding
,TO_CHAR(ft.fac_tracking_datum, 'DD-MM-YYYY') fclt_d_afgemeld
,pf.prs_perslid_naam_full door
,CASE
WHEN o.mld_opdr_key IS NULL THEN NULL
ELSE m.mld_melding_key||'/'||o.mld_opdr_bedrijfopdr_volgnr
END
opdracht
,so.mld_statusopdr_omschrijving opdrachtstatus
,(SELECT pf.prs_perslid_naam_full
FROM fac_tracking ft
,prs_v_perslid_fullnames pf
WHERE ft.fac_srtnotificatie_key = 26
AND ft.fac_tracking_refkey = o.mld_opdr_key
AND pf.prs_perslid_key = ft.prs_perslid_key)
afmelder
,o.mld_opdr_kosten kosten
FROM fac_tracking ft
,mld_melding m
,mld_stdmelding sm
,mld_discipline vg
,mld_opdr o
,mld_statusopdr so
,prs_v_perslid_fullnames pf
WHERE ft.fac_srtnotificatie_key = 18
AND pf.prs_perslid_key = ft.prs_perslid_key
AND m.mld_melding_key = ft.fac_tracking_refkey
AND sm.mld_stdmelding_key = m.mld_stdmelding_key
AND vg.ins_discipline_key = sm.mld_ins_discipline_key
AND o.mld_melding_key(+) = m.mld_melding_key
AND so.mld_statusopdr_key(+) = o.mld_statusopdr_key;
BEGIN adm.systrackscript('$Workfile: akza#22617.sql $', '$Revision$', 0); END;
/
COMMIT;
SPOOL OFF
SET ECHO OFF

View File

@@ -1,62 +0,0 @@
SET ECHO ON
SPOOL xakza22941.lst
-- Deze was alleen voor de aanmeldmodule
DROP TABLE akz_titel;
-- Akzo's schoonmaakniveau-tabel past nu prima in een Eigen tabel
--INSERT INTO fac_usrtab
-- (fac_usrtab_key, fac_usrtab_naam, fac_usrtab_omschrijving, fac_usrtab_view)
--VALUES
-- (470, 'SchProg', 'Schoonmaakprogramma', 'T');
INSERT INTO fac_usrdata
(fac_usrtab_key,
fac_usrdata_code,
fac_usrdata_upper,
fac_usrdata_omschr,
fac_usrdata_prijs)
(SELECT 470, -- 'SchProg'
akz_schnivo_code,
akz_schnivo_upper,
akz_schnivo_omschrijving,
akz_schnivo_kengetal
FROM akz_schnivo
WHERE akz_schnivo_verwijder IS NULL);
-- Kenmerkdomein omhangen
UPDATE fac_kenmerkdomein
SET fac_kenmerkdomein_objectnaam = 'FAC_USRDATA',
fac_kenmerkdomein_kolomnaam = 'FAC_USRDATA_KEY',
fac_kenmerkdomein_kolomtxt = 'FAC_USRDATA_OMSCHR',
fac_usrtab_key = 470
WHERE fac_kenmerkdomein_omschrijving = 'Schoonmaak nivo';
-- Kenmerkwaarden omhangen
UPDATE alg_onrgoedkenmerk ok
SET alg_onrgoedkenmerk_waarde =
(SELECT TO_CHAR(ud.fac_usrdata_key)
FROM akz_schnivo sn, fac_usrdata ud
WHERE ud.fac_usrtab_key = 470
AND ud.fac_usrdata_code = sn.akz_schnivo_code
AND sn.akz_schnivo_key = fac.safe_to_number(ok.alg_onrgoedkenmerk_waarde) )
WHERE alg_kenmerk_key = 1001 -- 'Schoonmaakniveau'
AND alg_onrgoed_niveau = 'R'
AND alg_onrgoed_key IN (SELECT alg_ruimte_key FROM alg_ruimte);
-- Niet meer uit een standaardtabel naar een klantspecifieke tabel refereren (foei)
ALTER TABLE alg_ruimte
DROP COLUMN akz_schnivo_key;
-- En weg ermee!
DROP VIEW akz_v_aanwezigschnivo;
DROP TABLE akz_schnivo;
BEGIN adm.systrackscript('$Workfile: akza#22941.sql $', '$Revision$', 0); END;
/
COMMIT;
SPOOL OFF
SET ECHO OFF

View File

@@ -1,81 +0,0 @@
/* Formatted on 2005/04/07 15:45 (Formatter Plus v4.8.5) */
INSERT INTO fac_usrrap
(fac_usrrap_omschrijving, fac_usrrap_view_name,
fac_usrrap_functie, fac_usrrap_info, fac_functie_key)
SELECT 'Uitgegeven aan uitvoerenden: Servicedesk',
'AKZA_V_RAP_UITG_SERVICEDESK', 0, '', fac_functie_key
FROM fac_functie
WHERE fac_functie_code = 'WEB_USER07';
INSERT INTO fac_usrrap
(fac_usrrap_omschrijving, fac_usrrap_view_name,
fac_usrrap_functie, fac_usrrap_info, fac_functie_key)
SELECT 'Uitgegeven aan uitvoerenden: Schoonmaak',
'AKZA_V_RAP_UITG_SCHOONMAAK', 0, '', fac_functie_key
FROM fac_functie
WHERE fac_functie_code = 'WEB_USER07';
INSERT INTO fac_usrrap
(fac_usrrap_omschrijving, fac_usrrap_view_name,
fac_usrrap_functie, fac_usrrap_info, fac_functie_key)
SELECT 'Uitgegeven aan uitvoerenden: Verhuizen '
|| CHR (38)
|| ' Kantoorbeheer',
'AKZA_V_RAP_UITG_KANTOORBEHEER', 0, '', fac_functie_key
FROM fac_functie
WHERE fac_functie_code = 'WEB_USER07';
INSERT INTO fac_usrrap
(fac_usrrap_omschrijving, fac_usrrap_view_name,
fac_usrrap_functie, fac_usrrap_info, fac_functie_key)
SELECT 'Uitgegeven aan ALF Elektro uitvoerenden',
'AKZA_V_RAP_UITG_ELECTRO_ALF', 0, '', fac_functie_key
FROM fac_functie
WHERE fac_functie_code = 'WEB_USER07';
INSERT INTO fac_usrrap
(fac_usrrap_omschrijving, fac_usrrap_view_name,
fac_usrrap_functie, fac_usrrap_info, fac_functie_key)
SELECT 'Uitgegeven aan uitvoerenden: vakgroepbeheer Elektro',
'AKZA_V_RAP_UITG_ELECTRO', 0, 'Uitgegeven op meldernaam Pelgrim',
fac_functie_key
FROM fac_functie
WHERE fac_functie_code = 'WEB_USER07';
INSERT INTO fac_usrrap
(fac_usrrap_omschrijving, fac_usrrap_view_name,
fac_usrrap_functie, fac_usrrap_info, fac_functie_key)
SELECT 'Uitgegeven aan uitvoerenden: acc.manager "Terr.'
|| CHR (38)
|| 'Derden"',
'AKZA_V_RAP_UITG_ACCMAN_TD', 0,
'Uitgegeven op meldernaam "Harry Sweers"', fac_functie_key
FROM fac_functie
WHERE fac_functie_code = 'WEB_USER07';
INSERT INTO fac_usrrap
(fac_usrrap_omschrijving, fac_usrrap_view_name,
fac_usrrap_functie, fac_usrrap_info, fac_functie_key)
SELECT 'Uitgegeven aan uitvoerenden: accountmanager "AHQ"',
'AKZA_V_RAP_UITG_ACCMAN_AHQ', 0,
'Uitgegeven op meldernaam "Jan Rutjes"', fac_functie_key
FROM fac_functie
WHERE fac_functie_code = 'WEB_USER07';
INSERT INTO fac_usrrap
(fac_usrrap_omschrijving, fac_usrrap_view_name,
fac_usrrap_functie, fac_usrrap_info, fac_functie_key)
SELECT 'Kosten op internal- of bewonersordernummer per periode',
'AKZA_V_RAP_KOSTEN_PP', 0, '', fac_functie_key
FROM fac_functie
WHERE fac_functie_code = 'WEB_USER07';
INSERT INTO fac_usrrap
(fac_usrrap_omschrijving, fac_usrrap_view_name,
fac_usrrap_functie, fac_usrrap_info, fac_functie_key)
SELECT 'Uitgegeven aan uitvoerende', 'AKZA_V_RAP_UITG', 0, '',
fac_functie_key
FROM fac_functie
WHERE fac_functie_code = 'WEB_USER07';
INSERT INTO fac_usrrap
(fac_usrrap_omschrijving, fac_usrrap_view_name,
fac_usrrap_functie, fac_usrrap_info, fac_functie_key)
SELECT 'Uitgegeven aan uitvoerenden: vakgroepbeheer Werktuigbouw',
'AKZA_V_RAP_UITG_WTB', 0, 'Uitgegeven op meldernaam Pelgrim',
fac_functie_key
FROM fac_functie
WHERE fac_functie_code = 'WEB_USER07';
DROP VIEW akz_pftomsview;

View File

@@ -1,8 +0,0 @@
INSERT INTO fac_usrrap
(fac_usrrap_omschrijving, fac_usrrap_view_name,
fac_usrrap_functie, fac_usrrap_info, fac_functie_key)
SELECT 'Personenexport tbv Reserveringen', 'AKZA_V_PERSONENVOORPLANON', 0,
'Persoonsgegevens tbv externe reserveringsmodule',
fac_functie_key
FROM fac_functie
WHERE fac_functie_code = 'WEB_PRSSYS';

View File

@@ -1,28 +0,0 @@
CREATE OR REPLACE VIEW tmp_kw
AS
(SELECT SUBSTR (ins_kenmerkdeel_waarde, 7, 4) jaar4,
SUBSTR (ins_kenmerkdeel_waarde, 7, 2) jaar2,
SUBSTR (ins_kenmerkdeel_waarde, 1, 6)
|| '19'
|| SUBSTR (ins_kenmerkdeel_waarde, 9, 2) waarde_new,
kd.*
FROM ins_kenmerkdeel kd,
(SELECT ins_kenmerk_key
FROM ins_srtkenmerk s, ins_kenmerk k
WHERE s.ins_srtkenmerk_kenmerktype = 'D'
AND s.ins_srtkenmerk_key = k.ins_srtkenmerk_key) k
WHERE 1=1
AND kd.ins_kenmerk_key = k.ins_kenmerk_key
AND SUBSTR (ins_kenmerkdeel_waarde, 7, 4) >= '2050');
UPDATE ins_kenmerkdeel kd
SET ins_kenmerkdeel_waarde = (SELECT waarde_new FROM tmp_kw t WHERE t.ins_kenmerkdeel_key = kd.ins_kenmerkdeel_key AND jaar2 = '20')
WHERE EXISTS (SELECT waarde_new FROM tmp_kw t WHERE t.ins_kenmerkdeel_key = kd.ins_kenmerkdeel_key AND jaar2 = '20');
-- Controle
SELECT count(*) FROM ins_kenmerkdeel kd
WHERE EXISTS (SELECT waarde_new FROM tmp_kw t WHERE t.ins_kenmerkdeel_key = kd.ins_kenmerkdeel_key AND jaar2 = '20');
drop view tmp_kw;
commit;

View File

@@ -1,34 +0,0 @@
--
-- AKZA#671.SQL
--
-- Runonce Pre-upgrade script
--
-- Dit script maakt alle kostenplaatsen uniek. In de AKZA situatie komen homonieme kostenplaatsen voor
-- bij verschillende companies. Dit is cruciaal voor de doorbelasting, dus moeten deze ook onderscheidend blijven
-- Het script postfixt de kostenplaatsen met de naam van de company INDIEN deze kostenplaats bij meerdere actieve
-- companies voorkomt. Kostenplaatsen die al uniek waren worden niet aangepast, evenmin als kostenplaatsen die
-- alleen van componie zijn veranderd.
-- Dit script MOET gedraaid worden direct VOOR de upgrade 450to460, daarna is het niet meer mogelijk.
-- Het mag ook niet eerder al in de productieomgeving worden toegepast.
-- De code (m.n. MLD_SAP export) is op dit uitgangspunt aangepast, en exporteert slechts de eerste 10 posities
-- van de kostenplaats, dus zonder de sugffix.
--
-- (c) Dijkoraad IT bv 01-02-2006.
UPDATE prs_afdeling d
SET d.prs_afdeling_kostenplaats =
(SELECT SUBSTR(d1.prs_afdeling_kostenplaats || ' (' || d2.prs_afdeling_naam || ')',1,30)
FROM prs_afdeling d1, prs_afdeling d2
WHERE d1.prs_afdeling_parentkey = d2.prs_afdeling_key
AND d1.prs_afdeling_key = d.prs_afdeling_key
AND d1.prs_afdeling_kostenplaats IS NOT NULL)
WHERE d.prs_afdeling_kostenplaats IN (
SELECT prs_afdeling_kostenplaats
FROM (SELECT d1.prs_afdeling_kostenplaats, COUNT (d2.prs_afdeling_naam)
FROM prs_afdeling d1, prs_afdeling d2
WHERE d1.prs_afdeling_parentkey = d2.prs_afdeling_key
AND d1.prs_afdeling_verwijder IS NULL
AND d2.prs_afdeling_verwijder IS NULL
AND d1.prs_afdeling_kostenplaats IS NOT NULL
GROUP BY d1.prs_afdeling_kostenplaats
HAVING COUNT (d2.prs_afdeling_naam) > 1));

View File

@@ -1,2 +0,0 @@
@fsn#1185.sql
@fsn#559.sql

View File

@@ -1,238 +0,0 @@
SPOOL xakza450to460.lst
/* Formatted on 2005/09/21 15:07 (Formatter Plus v4.8.5) */
INSERT INTO cad_thema (cad_thema_omschrijving, cad_legenda_key, cad_thema_type, cad_thema_view, fac_functie_key)
SELECT 'Bezetting', 1, '1', 'akza_v_cad_ruimte_bezetting', fac_functie_key
FROM fac_functie WHERE fac_functie_code = 'WEB_ALGUSE';
INSERT INTO cad_thema (cad_thema_omschrijving, cad_legenda_key, cad_thema_type, cad_thema_view, fac_functie_key)
SELECT 'Gasflessen', 1, '1', 'akza_v_cad_ruimte_gasfles', fac_functie_key
FROM fac_functie WHERE fac_functie_code = 'WEB_OBJMAN';
INSERT INTO cad_thema (cad_thema_omschrijving, cad_legenda_key, cad_thema_type, cad_thema_view, fac_functie_key)
SELECT 'Vloersoort', 1, '1', 'akza_v_cad_ruimte_gasfles', fac_functie_key
FROM fac_functie WHERE fac_functie_code = 'WEB_ALGUSE';
-- nav UWVA#280 en AKZA#671
--INSERT INTO MLD_SRTKENMERK ( MLD_SRTKENMERK_OMSCHRIJVING, MLD_SRTKENMERK_UPPER,
--MLD_SRTKENMERK_DIMENSIE, MLD_SRTKENMERK_KENMERKTYPE, MLD_SRTKENMERK_SYSTEEM, MLD_SRTKENMERK_LENGTE,
--MLD_SRTKENMERK_DEC, MLD_SRTKENMERK_NMIN, MLD_SRTKENMERK_NMAX, MLD_REFSRTKENMERK_KEY,
--MLD_SRTKENMERK_VERWIJDER ) VALUES (
--'Ordernr', 'ORDERNR', NULL, 'C', NULL, 12, NULL, NULL, NULL, NULL, NULL);
-- nav UWVA#280 en AKZA#671
/* Formatted on 2006/01/17 14:41 (Formatter Plus v4.8.5) */
--DECLARE
-- CURSOR c_insert
-- IS
-- -- Gestripte versie query bij die gebruikt wordt bij vullen combobox vakgroepen bij melding.
-- SELECT ins_discipline_key, ins_discipline_omschrijving
-- FROM mld_discipline
-- WHERE ins_discipline_key IN (SELECT mld_ins_discipline_key
-- FROM mld_stdmelding) AND ins_srtdiscipline_key = 1;
--
-- rec_insert c_insert%ROWTYPE;
-- srtkenmerk_key NUMBER (10);
--BEGIN
-- SELECT mld_srtkenmerk_key
-- INTO srtkenmerk_key
-- FROM mld_srtkenmerk
-- WHERE mld_srtkenmerk_upper = 'ORDERNR';
--
-- FOR rec_insert IN c_insert
-- LOOP
-- BEGIN
-- INSERT INTO mld_kenmerk
-- (mld_srtkenmerk_key, mld_stdmelding_key, mld_kenmerk_niveau, mld_kenmerk_volgnummer
-- )
-- VALUES (srtkenmerk_key, rec_insert.ins_discipline_key, 'D', 1
-- );
-- END;
-- END LOOP;
--END;
--/
--COMMIT;
-- nav UWVA#280
/* Formatted on 2006/01/17 14:23 (Formatter Plus v4.8.5) */
--DECLARE
-- CURSOR c_insert
-- IS
-- SELECT mld_melding_key, mld_melding_ordernr, mld_ins_discipline_key
-- FROM mld_melding
-- WHERE mld_melding_ordernr IS NOT NULL;
--
-- rec_insert c_insert%ROWTYPE;
-- srtkenmerk_key NUMBER (10);
-- kenmerk_key NUMBER (10);
--BEGIN
-- SELECT mld_srtkenmerk_key
-- INTO srtkenmerk_key
-- FROM mld_srtkenmerk
-- WHERE mld_srtkenmerk_upper = 'ORDERNR';
--
-- FOR rec_insert IN c_insert
-- LOOP
-- BEGIN
-- SELECT mld_kenmerk_key
-- INTO kenmerk_key
-- FROM mld_kenmerk
-- WHERE mld_srtkenmerk_key = srtkenmerk_key
-- AND mld_stdmelding_key = rec_insert.mld_ins_discipline_key
-- AND mld_kenmerk_niveau='D';
--
-- INSERT INTO mld_kenmerkmelding
-- (mld_melding_key, mld_kenmerk_key, mld_kenmerkmelding_waarde
-- )
-- VALUES (rec_insert.mld_melding_key, kenmerk_key, rec_insert.mld_melding_ordernr
-- );
-- EXCEPTION WHEN NO_DATA_FOUND THEN NULL;
-- END;
-- END LOOP;
--END;
--/
-- AKZA#573 Aanmeldmodule naar web
INSERT INTO fac_functie
(fac_functie_code, fac_functie_omschrijving, fac_functie_module,
fac_functie_min_level, fac_functie_discipline, fac_functie_info
)
VALUES ('WEB_AKZSEC', 'Beheer:Security', 'PRS',
0, 0, 'Security'
);
-- Geef login 'RECEPTIE' rechten op 'WEB_AKZSEC'
INSERT INTO fac_functie
(fac_functie_code, fac_functie_omschrijving, fac_functie_module,
fac_functie_min_level, fac_functie_discipline, fac_functie_info
)
VALUES ('WEB_AKZFAC', 'Beheer:Facility', 'PRS',
0, 0, 'Facility'
);
-- Geef login 'JANSSER1' rechten op 'WEB_AKZFAC'
-- Geef login 'KERSTENI' rechten op 'WEB_AKZFAC'
-- Oude views hebben veelal al een AKZA_V-variant
DROP VIEW AKZ_V_RAP_KOSTEN_PP;
DROP VIEW AKZ_V_MLD_PERSLID_GEGEVENS;
DROP VIEW AKZ_V_MLD_PERSLID_GEGEVENS0;
DROP VIEW AKZ_V_MLD_OPDRACHTGEPRINT;
DROP VIEW AKZ_V_MLD_MELDINGPRINT;
DROP VIEW AKZA_V_WEB_AUTORISATIE;
commit;
-- AKZA#684: Insert voor alle kostenplaatsen
-- Uiteindelijke query voor 24 personen
INSERT INTO prs_perslidkostenplaats
(prs_perslid_key,
prs_perslidkostenplaats_boeken,
prs_perslidkostenplaats_inzage
)
SELECT prs_perslid_key,
1,
1
FROM prs_perslid
WHERE prs_perslid_key IN (7512,
7523,
7525,
7542,
7557,
7421,
7428,
7430,
7485,
7487,
7489,
7576,
17846,
22909,
7515,
7520,
7526,
7527,
7529,
7544,
7980,
8463,
20766,
27172);
-- AKZA#684: Insert voor een beperkt aantal kostenplaatsen
-- Uiteindelijke query voor 5 personen
INSERT INTO prs_perslidkostenplaats
(prs_kostenplaats_key,
prs_perslid_key,
prs_perslidkostenplaats_boeken,
prs_perslidkostenplaats_inzage
)
SELECT d.prs_kostenplaats_key,
faw.prs_perslid_key,
1,
1
FROM fac_v_my_prs_afdelingen_write faw,
prs_afdeling d
WHERE faw.prs_afdeling_key = d.prs_afdeling_key
AND faw.prs_perslid_key IN (7169, 15626, 24187, 26531, 29046)
AND faw.fac_functie_code = 'WEB_MLDBOF'
AND d.prs_kostenplaats_key IS NOT NULL
UNION
SELECT d.prs_kostenplaats_key,
faw.prs_perslid_key,
1,
1
FROM fac_v_my_prs_afdelingen_write faw,
prs_afdeling d
WHERE faw.prs_afdeling_key = d.prs_afdeling_key
AND faw.prs_perslid_key IN (7169, 15626, 24187, 26531, 29046)
AND faw.fac_functie_code = 'WEB_MLDFOF'
AND d.prs_kostenplaats_key IS NOT NULL;
-- Overvloedige voorloopnullen worden gestript voor de leesbaarheid. SAP verlengt wel weer ;-)
UPDATE prs_kostenplaats
SET prs_kostenplaats_nr=substr(prs_kostenplaats_nr,6);
-- Nu moeten we ook de voormalige uitzonderingssituatie kostenklant=0 regulier maken door dan de kostenplaats van de
-- gebouwen te nemen.
INSERT INTO prs_kostenplaats
(prs_kostenplaats_nr, prs_kostenplaats_omschrijving, prs_kostenplaats_module
)
VALUES ('00000 (080100)', 'Gebouwen', 'ALG'
);
UPDATE alg_gebouw
SET prs_kostenplaats_key = (SELECT prs_kostenplaats_key FROM prs_kostenplaats WHERE prs_kostenplaats_nr='00000 (080100)')
WHERE prs_kostenplaats_key IS NULL;
UPDATE alg_terreinsector
SET prs_kostenplaats_key = (SELECT prs_kostenplaats_key FROM prs_kostenplaats WHERE prs_kostenplaats_nr='00000 (080100)')
WHERE prs_kostenplaats_key IS NULL;
UPDATE mld_melding
SET prs_kostenplaats_key = (SELECT prs_kostenplaats_key FROM prs_kostenplaats WHERE prs_kostenplaats_nr='00000 (080100)')
WHERE mld_kosten_klant IS NULL ;
ALTER TRIGGER MLD_T_MLD_OPDR_B_IU DISABLE;
UPDATE mld_opdr
SET prs_kostenplaats_key = (SELECT prs_kostenplaats_key FROM prs_kostenplaats WHERE prs_kostenplaats_nr='00000 (080100)')
WHERE mld_melding_key IN (SELECT mld_melding_key FROM mld_melding WHERE mld_kosten_klant IS NULL);
ALTER TRIGGER MLD_T_MLD_OPDR_B_IU ENABLE;
-- AKZA#651
INSERT INTO mld_srtkenmerk
(mld_srtkenmerk_key, mld_srtkenmerk_omschrijving, mld_srtkenmerk_dimensie, mld_srtkenmerk_kenmerktype,
mld_srtkenmerk_systeem, mld_srtkenmerk_lengte, mld_srtkenmerk_dec)
VALUES (2, 'Aanneemsom EUR', '', 'N', 1, 8, 2);
INSERT INTO mld_kenmerk (mld_kenmerk_key, mld_srtkenmerk_key, mld_kenmerk_niveau, mld_kenmerk_volgnummer, mld_typeopdr_key)
VALUES (2, 2, 'O', 10, 5);
COMMIT;
SPOOL OFF
@akza.sql

View File

@@ -1,16 +0,0 @@
SET ECHO ON
SPOOL xakza4615to6.lst
PROMPT $Revision$
INSERT INTO prs_kenmerk
(prs_kenmerk_key, prs_kenmerk_omschrijving, prs_kenmerk_niveau, prs_kenmerk_volgnr,
prs_kenmerk_kenmerktype, prs_kenmerk_lengte
)
VALUES (999, 'Interne bedrijfkey', 'P', 60,
'N', 6
);
COMMIT ;
SPOOL OFF

View File

@@ -1,52 +0,0 @@
SET ECHO ON
SPOOL xakza461to470.lst
PROMPT $Revision$
INSERT INTO fac_srtnotificatie (fac_srtnotificatie_code, fac_srtnotificatie_mode, fac_srtnotificatie_oms, fac_srtnotificatie_url, fac_srtnotificatie_groep, fac_srtnotificatie_xmlnode) VALUES ('COMPPZ', 1, 'Personeelsfunctionaris heeft een nieuwe medewerker ##NAAM## toegevoegd', 'prsaan/person.asp?aan_key=', '0', '')
;
INSERT INTO fac_srtnotificatie (fac_srtnotificatie_code, fac_srtnotificatie_mode, fac_srtnotificatie_oms, fac_srtnotificatie_url, fac_srtnotificatie_groep, fac_srtnotificatie_xmlnode) VALUES ('COMPSC', 1, 'Beveiliging heeft gegevens nieuwe medewerker ##NAAM## doorgezonden/goedgekeurd.', 'prsaan/person.asp?aan_key=', '0', '')
;
INSERT INTO fac_srtnotificatie (fac_srtnotificatie_code, fac_srtnotificatie_mode, fac_srtnotificatie_oms, fac_srtnotificatie_url, fac_srtnotificatie_groep, fac_srtnotificatie_xmlnode) VALUES ('COMPCP', 1, 'Contactpersoon heeft gegevens nieuwe medewerker ##NAAM## ingevoerd.', 'prsaan/person.asp?aan_key=', '0', '')
;
INSERT INTO fac_srtnotificatie (fac_srtnotificatie_code, fac_srtnotificatie_mode, fac_srtnotificatie_oms, fac_srtnotificatie_url, fac_srtnotificatie_groep, fac_srtnotificatie_xmlnode) VALUES ('COMPFC', 1, 'Er zijn Facilities toegekend aan de nieuwe medewerker ##NAAM##.', 'prsaan/person.asp?aan_key=', '0', '')
;
INSERT INTO fac_srtnotificatie (fac_srtnotificatie_code, fac_srtnotificatie_mode, fac_srtnotificatie_oms, fac_srtnotificatie_url, fac_srtnotificatie_groep, fac_srtnotificatie_xmlnode) VALUES ('WIJZNW', 1, 'Uw verzoek tot wijziging persoonlijke gegevens ##NAAM## is in behandeling.', 'prsaan/wijzig.asp?w_key=', '0', '')
;
INSERT INTO fac_srtnotificatie (fac_srtnotificatie_code, fac_srtnotificatie_mode, fac_srtnotificatie_oms, fac_srtnotificatie_url, fac_srtnotificatie_groep, fac_srtnotificatie_xmlnode) VALUES ('WIJZSC', 1, 'Beveiliging heeft gewijzigde persoonlijke gegevens van ##NAAM## goedgekeurd.', 'prsaan/wijzig.asp?w_key=', '0', '')
;
INSERT INTO fac_srtnotificatie (fac_srtnotificatie_code, fac_srtnotificatie_mode, fac_srtnotificatie_oms, fac_srtnotificatie_url, fac_srtnotificatie_groep, fac_srtnotificatie_xmlnode) VALUES ('WIJZFC', 1, 'Facilities t.b.v. de nieuwe medewerker ##NAAM## zijn aangepast.', 'prsaan/wijzig.asp?w_key=', '0', '')
;
INSERT INTO fac_srtnotificatie (fac_srtnotificatie_code, fac_srtnotificatie_mode, fac_srtnotificatie_oms, fac_srtnotificatie_url, fac_srtnotificatie_groep, fac_srtnotificatie_xmlnode) VALUES ('WIJZSU', 1, 'Uw verzoek tot wijziging persoonlijke gegevens ##NAAM## is verwerkt.', 'prsaan/wijzig.asp?w_key=', '0', '')
;
--///////////////////////////////////////////////////////////////////////////////////////////////// AKZA#12123
UPDATE fac_functie SET fac_functie_min_level=11 WHERE fac_functie_code='WEB_BEZBOF';
--///////////////////////////////////////////////////////////////////////////////////////////////// FSN#12144
UPDATE prs_perslid p
SET prs_perslid_mobiel =
(SELECT SUBSTR (prs_kenmerklink_waarde, 1, 15)
FROM prs_kenmerklink
WHERE prs_kenmerk_key = 1020
AND prs_link_key = p.prs_perslid_key
AND prs_kenmerklink_verwijder IS NULL
AND prs_kenmerklink_niveau = 'P');
DELETE FROM prs_kenmerklink
WHERE prs_kenmerk_key = 1020
AND prs_kenmerklink_niveau = 'P';
--///////////////////////////////////////////////////////////////////////////////////////////////// FSN#12216
UPDATE prs_kenmerk SET prs_kenmerk_systeem=NULL where prs_kenmerk_key=1020;
DELETE FROM prs_kenmerk WHERE prs_kenmerk_key=1020;
--///////////////////////////////////////////////////////////////////////////////////////////////// AKZA#1760\
ALTER TRIGGER mld_t_notificatie_melding disable;
UPDATE MLD_MELDING
SET mld_alg_onroerendgoed_keys = 4242
WHERE mld_alg_onroerendgoed_keys IN (4708, 4709, 4728)
AND prs_kostenplaats_key = 509;
ALTER TRIGGER mld_t_notificatie_melding enable;
SPOOL OFF
@akza.sql

View File

@@ -1,9 +0,0 @@
SET ECHO ON
SPOOL xakza480to481.lst
PROMPT $Revision$
--///////////////////////////////////////////////////////////////////////////////////////////////// AKZA#13904
UPDATE fac_functie SET fac_functie_min_level = 11 WHERE fac_functie_code = 'WEB_AKZSEC';
SPOOL OFF
@akza.sql

View File

@@ -1,698 +0,0 @@
-- AKZA481to500
SET ECHO ON
SPOOL xAKZA481to500.lst
PROMPT $Revision$
-- PKO: aanmeldmodule gaat eruit.
--UPDATE fac_srtnotificatie SET fac_srtnotificatie_url='../cust/akza/prsaan/aan_edit_person.asp?aan_key=' WHERE fac_srtnotificatie_code LIKE 'COMP%';
-- En volgens mij kunnen deze weg.
--DELETE FROM fac_srtnotificatie WHERE fac_srtnotificatie_code LIKE 'COMP%';
--DELETE FROM fac_srtnotificatie WHERE fac_srtnotificatie_code LIKE 'WIJZ%';
-- AKZA#17693
-- Iedereen met INSMAN ook INSUSE geven
INSERT INTO fac_groeprechten (fac_groep_key,
fac_gebruiker_prs_level_write, fac_gebruiker_prs_level_read,
fac_gebruiker_alg_level_write, fac_gebruiker_alg_level_read,
ins_discipline_key, fac_functie_key
)
SELECT g.fac_groep_key,
g.fac_gebruiker_prs_level_write,
g.fac_gebruiker_prs_level_read,
g.fac_gebruiker_alg_level_write,
g.fac_gebruiker_alg_level_read,
g.ins_discipline_key,
f.fac_functie_key
FROM fac_groeprechten g, fac_functie f
WHERE g.fac_functie_key = (SELECT fac_functie_key
FROM fac_functie
WHERE fac_functie_code = 'WEB_INSMAN')
AND (f.fac_functie_code = 'WEB_INSUSE')
AND (g.fac_groep_key, f.fac_functie_key) NOT IN
(SELECT fac_groep_key, fac_functie_key FROM fac_groeprechten);
-- Ook: Iedereen met PRSMAN ook PRSUSE geven
INSERT INTO fac_groeprechten (fac_groep_key,
fac_gebruiker_prs_level_write, fac_gebruiker_prs_level_read,
fac_gebruiker_alg_level_write, fac_gebruiker_alg_level_read,
ins_discipline_key, fac_functie_key
)
SELECT g.fac_groep_key,
g.fac_gebruiker_prs_level_write,
g.fac_gebruiker_prs_level_read,
g.fac_gebruiker_alg_level_write,
g.fac_gebruiker_alg_level_read,
g.ins_discipline_key,
f.fac_functie_key
FROM fac_groeprechten g, fac_functie f
WHERE g.fac_functie_key = (SELECT fac_functie_key
FROM fac_functie
WHERE fac_functie_code = 'WEB_PRSMAN')
AND (f.fac_functie_code = 'WEB_PRSUSE')
AND (g.fac_groep_key, f.fac_functie_key) NOT IN
(SELECT fac_groep_key, fac_functie_key FROM fac_groeprechten);
-- Alle PZ en CP-ers ook WEB_PRSFOF geven
INSERT INTO fac_groep (fac_groep_omschrijving) VALUES ('Aanmelden nieuwe medewerkers');
INSERT INTO fac_gebruikersgroep (fac_groep_key, prs_perslid_key)
SELECT fac_groep_key, prs_perslid_key
FROM fac_groep,
(SELECT ppa.prs_perslid_key
FROM prs_perslidafdeling ppa
UNION /* GEEN ALL */
SELECT ppa.prs_perslid_key
FROM prs_afdeling pa, prs_perslideenheid ppa
WHERE prs_afdeling_parentkey = ppa.prs_afdeling_key) pzcp
WHERE fac_groep_omschrijving = 'Aanmelden nieuwe medewerkers';
INSERT INTO fac_groeprechten (fac_groep_key,
fac_gebruiker_prs_level_write,
fac_gebruiker_prs_level_read,
fac_gebruiker_alg_level_write,
fac_gebruiker_alg_level_read,
ins_discipline_key,
fac_functie_key)
SELECT g.fac_groep_key,
-1,
-1,
-1,
-1,
NULL,
f.fac_functie_key
FROM fac_functie f, fac_groep g
WHERE f.fac_functie_code = 'WEB_PRSFOF'
AND fac_groep_omschrijving = 'Aanmelden nieuwe medewerkers';
---- PKO: aanmeldmodule gaat eruit.
--INSERT INTO fac_menu (fac_menu_volgnr, fac_menu_altlabel, fac_menu_altgroep, fac_menu_alturl, fac_functie_key)
----VALUES(10201, 'Nieuwe medewerkers', 1, 'cust/akza/prsaan/aan_search_list.asp', 202); -- WEB_PRSFOF
--VALUES(10201, 'Nieuwe medewerkers', 1, '/appl/mld/mld_edit_melding.asp?urole=fo&mld_key=-1&srtdisc=81', 202); -- WEB_PRSFOF, 'Persoonsgegevens'
--
--INSERT INTO fac_menu (fac_menu_volgnr, fac_menu_altlabel, fac_menu_altgroep, fac_menu_alturl, fac_functie_key)
--VALUES(10610, 'Aanmelden/PZ-ers', 2, 'appl/facmgtVB/prs_perslideenheidgrid.asp', 203); -- PRSSYS
--
--INSERT INTO fac_menu (fac_menu_volgnr, fac_menu_altlabel, fac_menu_altgroep, fac_menu_alturl, fac_functie_key)
--VALUES(10620, 'Aanmelden/CP-ers', 2, 'appl/facmgtVB/prs_perslidafdelinggrid.asp', 203); -- PRSSYS
-- PKO: aanmeldmodule gaat eruit.
-- URL aanpassen
--UPDATE FAC_SRTNOTIFICATIE
-- SET FAC_SRTNOTIFICATIE_URL = '../cust/akza/prsaan/aan_person.asp?aan_key='
-- WHERE FAC_SRTNOTIFICATIE_CODE LIKE 'COMP%';
-- Spoed vooralsnog gelijk aan normaal
UPDATE mld_stdmelding
SET mld_stdmelding_uitvoertijd_pr2 = mld_stdmelding_uitvoertijd
WHERE mld_stdmelding_uitvoertijd_pr2 IS NULL;
COMMIT;
--- KENTEKENS ------------------------------------------------------------------
--- EIGEN TABELLEN ---
INSERT INTO FAC_USRTAB
(FAC_USRTAB_NAAM, FAC_USRTAB_OMSCHRIJVING, FAC_USRTAB_VIEW)
VALUES('JaNee foto', 'Foto tonen', 'T');
INSERT INTO FAC_USRDATA
(FAC_USRTAB_KEY, FAC_USRDATA_CODE, FAC_USRDATA_OMSCHR)
VALUES ( (SELECT FAC_USRTAB_KEY FROM FAC_USRTAB WHERE FAC_USRTAB_NAAM = 'JaNee foto'), '1', 'Ja');
INSERT INTO FAC_USRDATA
(FAC_USRTAB_KEY, FAC_USRDATA_CODE, FAC_USRDATA_OMSCHR)
VALUES ( (SELECT FAC_USRTAB_KEY FROM FAC_USRTAB WHERE FAC_USRTAB_NAAM = 'JaNee foto'), '2', 'Nee');
INSERT INTO fac_kenmerkdomein
(fac_kenmerkdomein_module, fac_kenmerkdomein_omschrijving
,fac_kenmerkdomein_objectnaam, fac_kenmerkdomein_kolomnaam
,fac_kenmerkdomein_kolomtxt, fac_usrtab_key
)
VALUES
('PRS', 'Janee foto'
,'FAC_USRDATA', 'FAC_USRDATA_KEY'
,'FAC_USRDATA_OMSCHR', (SELECT fac_usrtab_key FROM fac_usrtab WHERE fac_usrtab_naam = 'JaNee foto')
);
UPDATE prs_kenmerk
SET prs_kenmerk_kenmerktype = 'R',
prs_kenmerk_volgnr = 902, -- prive
fac_kenmerkdomein_key = (SELECT MAX(fac_kenmerkdomein_key) FROM fac_kenmerkdomein)
WHERE prs_kenmerk_key = 1002;
UPDATE prs_kenmerklink
SET prs_kenmerklink_waarde =
(SELECT fac_usrdata_key
FROM FAC_USRDATA fud, FAC_USRTAB fut
WHERE FAC_USRTAB_NAAM = 'JaNee foto'
AND fud.FAC_USRTAB_KEY = fut.FAC_USRTAB_KEY
AND FAC_USRDATA_CODE = '1')
WHERE prs_kenmerk_key = 1002 AND prs_kenmerklink_waarde = 1;
INSERT INTO fac_kenmerkdomein
(fac_kenmerkdomein_module, fac_kenmerkdomein_OMSCHRIJVING
,fac_kenmerkdomein_OBJECTNAAM, fac_kenmerkdomein_KOLOMNAAM
,fac_kenmerkdomein_KOLOMTXT, FAC_USRTAB_KEY
)
VALUES
('PRS', 'Voertuigsoort'
,'FAC_USRDATA', 'FAC_USRDATA_KEY'
,'FAC_USRDATA_OMSCHR', 221 -- Voertuigsoort
);
--- KENMERKEN ---
-- Max. 3 voertuigen
INSERT INTO PRS_KENMERK
(prs_kenmerk_key, prs_kenmerk_niveau, prs_kenmerk_volgnr, prs_kenmerk_omschrijving, prs_kenmerk_hint, prs_kenmerk_kenmerktype)
VALUES
(1261, 'P', 901, 'Eigen gegevens', 'Eigen gegevens', 'L');
-- Voertuig 1
INSERT INTO PRS_KENMERK
(prs_kenmerk_key, prs_kenmerk_niveau, prs_kenmerk_volgnr, prs_kenmerk_omschrijving, prs_kenmerk_hint, prs_kenmerk_kenmerktype)
VALUES
(1262, 'P', 910, 'Voertuig 1', 'Voertuig 1', 'L');
INSERT INTO PRS_KENMERK
(prs_kenmerk_key, prs_kenmerk_niveau, prs_kenmerk_volgnr, prs_kenmerk_omschrijving, prs_kenmerk_kenmerktype, prs_kenmerk_lengte)
VALUES
(1260, 'P', 911, 'Kenteken1', 'C', 12);
INSERT INTO PRS_KENMERK
(prs_kenmerk_key, prs_kenmerk_niveau, prs_kenmerk_volgnr, prs_kenmerk_omschrijving, prs_kenmerk_kenmerktype, FAC_KENMERKDOMEIN_KEY)
VALUES
(1280, 'P', 912, 'Soort voertuig1', 'R', (SELECT MAX(fac_kenmerkdomein_key) FROM fac_kenmerkdomein));
INSERT INTO PRS_KENMERK
(prs_kenmerk_key, prs_kenmerk_niveau, prs_kenmerk_volgnr, prs_kenmerk_omschrijving, prs_kenmerk_kenmerktype, prs_kenmerk_lengte)
VALUES
(1281, 'P', 913, 'Merk1', 'C', 30);
INSERT INTO PRS_KENMERK
(prs_kenmerk_key, prs_kenmerk_niveau, prs_kenmerk_volgnr, prs_kenmerk_omschrijving, prs_kenmerk_kenmerktype, prs_kenmerk_lengte)
VALUES
(1282, 'P', 914, 'Type1', 'C', 30);
INSERT INTO PRS_KENMERK
(prs_kenmerk_key, prs_kenmerk_niveau, prs_kenmerk_volgnr, prs_kenmerk_omschrijving, prs_kenmerk_kenmerktype, prs_kenmerk_lengte)
VALUES
(1283, 'P', 915, 'Kleur1', 'C', 30);
-- Voertuig 2
INSERT INTO PRS_KENMERK
(prs_kenmerk_key, prs_kenmerk_niveau, prs_kenmerk_volgnr, prs_kenmerk_omschrijving, prs_kenmerk_hint, prs_kenmerk_kenmerktype)
VALUES
(1263, 'P', 920, 'Voertuig 2', 'Voertuig 2', 'L');
INSERT INTO PRS_KENMERK
(prs_kenmerk_key, prs_kenmerk_niveau, prs_kenmerk_volgnr, prs_kenmerk_omschrijving, prs_kenmerk_kenmerktype, prs_kenmerk_lengte)
VALUES
(1284, 'P', 921, 'Kenteken2', 'C', 12);
INSERT INTO PRS_KENMERK
(prs_kenmerk_key, prs_kenmerk_niveau, prs_kenmerk_volgnr, prs_kenmerk_omschrijving, prs_kenmerk_kenmerktype, FAC_KENMERKDOMEIN_KEY)
VALUES
(1285, 'P', 922, 'Soort voertuig2', 'R', (SELECT MAX(fac_kenmerkdomein_key) FROM fac_kenmerkdomein));
INSERT INTO PRS_KENMERK
(prs_kenmerk_key, prs_kenmerk_niveau, prs_kenmerk_volgnr, prs_kenmerk_omschrijving, prs_kenmerk_kenmerktype, prs_kenmerk_lengte)
VALUES
(1286, 'P', 923, 'Merk2', 'C', 30);
INSERT INTO PRS_KENMERK
(prs_kenmerk_key, prs_kenmerk_niveau, prs_kenmerk_volgnr, prs_kenmerk_omschrijving, prs_kenmerk_kenmerktype, prs_kenmerk_lengte)
VALUES
(1287, 'P', 924, 'Type2', 'C', 30);
INSERT INTO PRS_KENMERK
(prs_kenmerk_key, prs_kenmerk_niveau, prs_kenmerk_volgnr, prs_kenmerk_omschrijving, prs_kenmerk_kenmerktype, prs_kenmerk_lengte)
VALUES
(1288, 'P', 925, 'Kleur2', 'C', 30);
-- Voertuig 3
INSERT INTO PRS_KENMERK
(prs_kenmerk_key, prs_kenmerk_niveau, prs_kenmerk_volgnr, prs_kenmerk_omschrijving, prs_kenmerk_hint, prs_kenmerk_kenmerktype)
VALUES
(1264, 'P', 930, 'Voertuig 3', 'Voertuig 3', 'L');
INSERT INTO PRS_KENMERK
(prs_kenmerk_key, prs_kenmerk_niveau, prs_kenmerk_volgnr, prs_kenmerk_omschrijving, prs_kenmerk_kenmerktype, prs_kenmerk_lengte)
VALUES
(1289, 'P', 931, 'Kenteken3', 'C', 12);
INSERT INTO PRS_KENMERK
(prs_kenmerk_key, prs_kenmerk_niveau, prs_kenmerk_volgnr, prs_kenmerk_omschrijving, prs_kenmerk_kenmerktype, FAC_KENMERKDOMEIN_KEY)
VALUES
(1290, 'P', 932, 'Soort voertuig3', 'R', (SELECT MAX(fac_kenmerkdomein_key) FROM fac_kenmerkdomein));
INSERT INTO PRS_KENMERK
(prs_kenmerk_key, prs_kenmerk_niveau, prs_kenmerk_volgnr, prs_kenmerk_omschrijving, prs_kenmerk_kenmerktype, prs_kenmerk_lengte)
VALUES
(1291, 'P', 933, 'Merk3', 'C', 30);
INSERT INTO PRS_KENMERK
(prs_kenmerk_key, prs_kenmerk_niveau, prs_kenmerk_volgnr, prs_kenmerk_omschrijving, prs_kenmerk_kenmerktype, prs_kenmerk_lengte)
VALUES
(1292, 'P', 934, 'Type3', 'C', 30);
INSERT INTO PRS_KENMERK
(prs_kenmerk_key, prs_kenmerk_niveau, prs_kenmerk_volgnr, prs_kenmerk_omschrijving, prs_kenmerk_kenmerktype, prs_kenmerk_lengte)
VALUES
(1293, 'P', 935, 'Kleur3', 'C', 30);
-- 529 WEB_USER17
INSERT INTO FAC_USRRAP
(fac_usrrap_omschrijving, fac_usrrap_view_name,
fac_usrrap_in_huidige_locatie,
fac_usrrap_template, fac_usrrap_macro,
fac_usrrap_vraagbegindatum, fac_usrrap_vraageinddatum,
fac_usrrap_functie, fac_usrrap_info,
fac_functie_key, fac_usrrap_autorefresh
)
VALUES ('Geregistreerde kentekens', 'akza_v_rap_kentekens',
NULL,
NULL, NULL,
0, 0,
0, NULL,
529, 0
);
-- 24: "[4a] Bezoekers & Kijk Kenteken"
-- 50: "[4b] Beheer Kentekens"
-- 529: WEB_USER17
-- 366: Backoffice:Persoonsgegevens (WEB_PRSUSE)
INSERT INTO fac_groeprechten
(fac_groep_key, fac_functie_key,
fac_gebruiker_prs_level_read, fac_gebruiker_alg_level_read,
fac_gebruiker_prs_level_write, fac_gebruiker_alg_level_write)
VALUES
(24, 529, -1, -1, 9, 9);
INSERT INTO fac_groeprechten
(fac_groep_key, fac_functie_key,
fac_gebruiker_prs_level_read, fac_gebruiker_alg_level_read,
fac_gebruiker_prs_level_write, fac_gebruiker_alg_level_write)
VALUES
(50, 529, -1, -1, 9, 9);
INSERT INTO fac_groeprechten
(fac_groep_key, fac_functie_key,
fac_gebruiker_prs_level_read, fac_gebruiker_alg_level_read,
fac_gebruiker_prs_level_write, fac_gebruiker_alg_level_write)
VALUES
(50, 366, -1, -1, -1, -1);
SET SERVEROUTPUT ON;
--- KOPIEER KENMERKEN VAN OBJECTEN NAAR PERSONEN ---
DECLARE
v_volgnr NUMBER := 0;
v_lastkey NUMBER := -1;
v_errormsg VARCHAR2(100);
v_errorhint VARCHAR2(100);
CURSOR crs
IS
SELECT ins_alg_ruimte_key perslid_key
,knt.ins_kenmerkdeel_waarde kenteken
,srt.ins_kenmerkdeel_waarde soort
,mrk.ins_kenmerkdeel_waarde merk
,typ.ins_kenmerkdeel_waarde typ
,klr.ins_kenmerkdeel_waarde kleur
FROM ins_v_aanwezigdeel ad
,(SELECT * FROM ins_v_aanwezigkenmerkdeel
WHERE ins_kenmerk_key = 2685) knt
,(SELECT * FROM ins_v_aanwezigkenmerkdeel
WHERE ins_kenmerk_key = 2705) srt
,(SELECT * FROM ins_v_aanwezigkenmerkdeel
WHERE ins_kenmerk_key = 2686) mrk
,(SELECT * FROM ins_v_aanwezigkenmerkdeel
WHERE ins_kenmerk_key = 2687) typ
,(SELECT * FROM ins_v_aanwezigkenmerkdeel
WHERE ins_kenmerk_key = 2688) klr
WHERE ad.ins_alg_ruimte_type = 'P'
AND knt.ins_deel_key = ad.ins_deel_key
AND srt.ins_deel_key(+) = ad.ins_deel_key
AND mrk.ins_deel_key(+) = ad.ins_deel_key
AND typ.ins_deel_key(+) = ad.ins_deel_key
AND klr.ins_deel_key(+) = ad.ins_deel_key
ORDER BY ad.ins_alg_ruimte_key, knt.ins_kenmerkdeel_aanmaak;
BEGIN
FOR rec IN crs
LOOP
BEGIN
v_errormsg := 'Nieuw persoon?';
-- Zelfde persoon nog een keer?
IF (v_lastkey = rec.perslid_key)
THEN
v_errormsg := 'Zelfde persoon';
v_volgnr := v_volgnr + 1;
ELSE
v_errormsg := 'Ander persoon';
v_volgnr := 1;
v_lastkey := rec.perslid_key;
END IF;
IF (v_volgnr = 1)
THEN
v_errormsg := 'Eerste voertuig';
-- Kenteken
INSERT INTO prs_kenmerklink
(prs_link_key, prs_kenmerklink_waarde,
prs_kenmerklink_niveau, prs_kenmerk_key)
VALUES (rec.perslid_key, rec.kenteken, 'P', 1260);
-- Soort
IF (rec.soort IS NOT NULL)
THEN
INSERT INTO prs_kenmerklink
(prs_link_key, prs_kenmerklink_waarde,
prs_kenmerklink_niveau, prs_kenmerk_key)
VALUES (rec.perslid_key, rec.soort, 'P', 1280);
END IF;
-- Merk
IF (rec.merk IS NOT NULL)
THEN
INSERT INTO prs_kenmerklink
(prs_link_key, prs_kenmerklink_waarde,
prs_kenmerklink_niveau, prs_kenmerk_key)
VALUES (rec.perslid_key, rec.merk, 'P', 1281);
END IF;
-- Type
IF (rec.typ IS NOT NULL)
THEN
INSERT INTO prs_kenmerklink
(prs_link_key, prs_kenmerklink_waarde,
prs_kenmerklink_niveau, prs_kenmerk_key)
VALUES (rec.perslid_key, rec.typ, 'P', 1282);
END IF;
-- Kleur
IF (rec.kleur IS NOT NULL)
THEN
INSERT INTO prs_kenmerklink
(prs_link_key, prs_kenmerklink_waarde,
prs_kenmerklink_niveau, prs_kenmerk_key)
VALUES (rec.perslid_key, rec.kleur, 'P', 1283);
END IF;
ELSIF (v_volgnr = 2)
THEN
v_errormsg := 'Tweede voertuig';
-- Kenteken
INSERT INTO prs_kenmerklink
(prs_link_key, prs_kenmerklink_waarde,
prs_kenmerklink_niveau, prs_kenmerk_key)
VALUES (rec.perslid_key, rec.kenteken, 'P', 1284);
-- Soort
IF (rec.soort IS NOT NULL)
THEN
INSERT INTO prs_kenmerklink
(prs_link_key, prs_kenmerklink_waarde,
prs_kenmerklink_niveau, prs_kenmerk_key)
VALUES (rec.perslid_key, rec.soort, 'P', 1285);
END IF;
-- Merk
IF (rec.merk IS NOT NULL)
THEN
INSERT INTO prs_kenmerklink
(prs_link_key, prs_kenmerklink_waarde,
prs_kenmerklink_niveau, prs_kenmerk_key)
VALUES (rec.perslid_key, rec.merk, 'P', 1286);
END IF;
-- Type
IF (rec.typ IS NOT NULL)
THEN
INSERT INTO prs_kenmerklink
(prs_link_key, prs_kenmerklink_waarde,
prs_kenmerklink_niveau, prs_kenmerk_key)
VALUES (rec.perslid_key, rec.typ, 'P', 1287);
END IF;
-- Kleur
IF (rec.kleur IS NOT NULL)
THEN
INSERT INTO prs_kenmerklink
(prs_link_key, prs_kenmerklink_waarde,
prs_kenmerklink_niveau, prs_kenmerk_key)
VALUES (rec.perslid_key, rec.kleur, 'P', 1288);
END IF;
ELSIF (v_volgnr = 3)
THEN
v_errormsg := 'Derde voertuig';
-- Kenteken
INSERT INTO prs_kenmerklink
(prs_link_key, prs_kenmerklink_waarde,
prs_kenmerklink_niveau, prs_kenmerk_key)
VALUES (rec.perslid_key, rec.kenteken, 'P', 1289);
-- Soort
IF (rec.soort IS NOT NULL)
THEN
INSERT INTO prs_kenmerklink
(prs_link_key, prs_kenmerklink_waarde,
prs_kenmerklink_niveau, prs_kenmerk_key)
VALUES (rec.perslid_key, rec.soort, 'P', 1290);
END IF;
-- Merk
IF (rec.merk IS NOT NULL)
THEN
INSERT INTO prs_kenmerklink
(prs_link_key, prs_kenmerklink_waarde,
prs_kenmerklink_niveau, prs_kenmerk_key)
VALUES (rec.perslid_key, rec.merk, 'P', 1291);
END IF;
-- Type
IF (rec.typ IS NOT NULL)
THEN
INSERT INTO prs_kenmerklink
(prs_link_key, prs_kenmerklink_waarde,
prs_kenmerklink_niveau, prs_kenmerk_key)
VALUES (rec.perslid_key, rec.typ, 'P', 1292);
END IF;
-- Kleur
IF (rec.kleur IS NOT NULL)
THEN
INSERT INTO prs_kenmerklink
(prs_link_key, prs_kenmerklink_waarde,
prs_kenmerklink_niveau, prs_kenmerk_key)
VALUES (rec.perslid_key, rec.kleur, 'P', 1293);
END IF;
ELSE
DBMS_OUTPUT.PUT_LINE('Teveel voertuigen: '||rec.perslid_key||' - '||rec.kenteken);
END IF;
EXCEPTION
WHEN OTHERS
THEN
DBMS_OUTPUT.PUT_LINE(v_errormsg||': '||rec.perslid_key||' - '||rec.kenteken
||' {'||SQLCODE||' - '||SUBSTR(SQLERRM, 1, 100)||'}');
END;
END LOOP;
END;
/
SET SERVEROUTPUT OFF;
-- Bijlage-sheets geen defaultwaarde meer, zodat bestandsnaam invullen makkelijker is
-- srtkenmerk_key 41 = 'Bijlage-sheet'
UPDATE res_kenmerk
SET res_kenmerk_default = NULL
WHERE res_srtkenmerk_key = 41;
-- Ruimte-foto's zijn geen alg-kenmerk meer, maar een kolom van res_ruimte.
-- uit /appl/upgrade/db12to13.asp:
UPDATE res_ruimte rr
SET res_ruimte_image = (SELECT MIN(aok.alg_onrgoedkenmerk_waarde)
FROM res_alg_ruimte rar,
alg_onrgoedkenmerk aok
WHERE rar.alg_ruimte_key = aok.alg_onrgoed_key
AND aok.alg_onrgoed_niveau = 'R'
AND aok.alg_kenmerk_key = 1100
AND aok.alg_onrgoedkenmerk_verwijder IS NULL
AND rar.res_ruimte_key = rr.res_ruimte_key
GROUP BY rar.res_ruimte_key);
UPDATE res_ruimte
SET res_ruimte_image = REPLACE( REPLACE(res_ruimte_image,
'AFBEELDING/',
''),
'Afbeelding/',
''
)
WHERE res_ruimte_image IS NOT NULL;
-- Notificatiejob reminders RES
INSERT INTO fac_notificatie_job
(fac_notificatie_job_view,
fac_notificatie_job_oms,
fac_notificatie_job_interval, fac_notificatie_job_mode
)
VALUES ('fac_v_noti_resreminder',
'Herinneringsmails reserveringen',
24, 2
);
-- Notificatie nieuwe melding --> portal
UPDATE fac_srtnotificatie
SET fac_srtnotificatie_mode = 1
WHERE fac_srtnotificatie_code = 'MLDNEW';
-- Mail-notificaties uitzetten
UPDATE fac_srtnotificatie
SET fac_srtnotificatie_mode = 0
WHERE fac_srtnotificatie_code LIKE '%MAI';
-- Deze had al eerder verwijderd moeten worden
ALTER TABLE mld_opdr
DROP CONSTRAINT mld_c_mld_opdr_dagen1;
--- KOSTENSOORTEN ---
-- Alles is ex BTW
UPDATE prs_kostensoort
SET prs_kostensoort_btw = NULL;
-- Outletbeheer en fac_kenmerkdomein-tabel
UPDATE ins_ol_kenmerk
SET ins_ol_kenmerk_key = (SELECT fac_kenmerkdomein_key
FROM fac_kenmerkdomein
WHERE fac_kenmerkdomein_key_org = ins_ol_kenmerk_key
AND fac_kenmerkdomein_module = 'INS')
WHERE ins_ol_kenmerk_naam LIKE 'REF%';
-- Ritten: standaardadressen: listbox --> suggest
UPDATE res_srtkenmerk
SET res_srtkenmerk_kenmerktype = 'S'
WHERE res_srtkenmerk_key IN (62, 69);
SET SERVEROUTPUT ON;
-- AKZA#21569: Werkplekdoorbelasting: pseudopersonen wegwerken
-- - maak ruimteafdeling-koppeling o.b.v. werkplekbezetting pseudo-personen
-- - verwijder perslidwerkplekken en pseudopersonen
-- - aanpassen doorbelastingsviews en thema's (in akza.sql)
DECLARE
v_count NUMBER;
v_totaal NUMBER;
v_bezetting NUMBER;
v_desc VARCHAR2(255);
v_errormsg VARCHAR2(255);
-- Doorbelaste ruimtes met re<72>le(!) werkplekken
CURSOR c_ruimtes
IS
SELECT DISTINCT apa.alg_onroerendgoed_keys alg_ruimte_key
,apa.alg_plaatsaanduiding alg_ruimte_nr
,asr.alg_srtruimte_omschrijving
FROM alg_v_plaatsaanduiding apa
,alg_v_aanwezigruimte ar
,alg_v_aanwezigsrtruimte asr
,prs_v_aanwezigwerkplek awp
WHERE ar.alg_srtruimte_key = asr.alg_srtruimte_key
--AND asr.prs_bevat_werkplek IS NOT NULL
AND apa.alg_onroerendgoed_keys = ar.alg_ruimte_key
AND apa.alg_onroerendgoed_type = 'R'
AND awp.prs_alg_ruimte_key = apa.alg_onroerendgoed_keys
AND awp.prs_werkplek_virtueel != 1
-- AND alg_plaatsaanduiding LIKE 'SSCA-C2-K1-%'
ORDER BY alg_ruimte_nr;
-- Werkplekbezetting per afdeling
-- NB: afdeling 'NIET VERH' doet niet mee!
CURSOR c_wps (in_ruimte_key NUMBER)
IS
SELECT afd.prs_afdeling_key, afd.prs_afdeling_naam
,SUM(apwp.prs_perslidwerkplek_bezetting) bezetting
FROM prs_v_aanwezigwerkplek awp
,prs_v_aanwezigperslidwerkplek apwp
,prs_v_aanwezigperslid ap
,prs_afdeling afd
WHERE awp.prs_alg_ruimte_key = in_ruimte_key
AND apwp.prs_werkplek_key = awp.prs_werkplek_key
AND ap.prs_perslid_key = apwp.prs_perslid_key
AND ap.prs_afdeling_key = afd.prs_afdeling_key
AND afd.prs_afdeling_verwijder IS NULL
AND afd.prs_afdeling_upper != 'NIET VERH'
GROUP BY afd.prs_afdeling_key, afd.prs_afdeling_naam;
BEGIN
-- Per ruimte
FOR rec_ruimte IN c_ruimtes
LOOP
v_desc := rec_ruimte.alg_ruimte_nr || '('||rec_ruimte.alg_ruimte_key||')';
-- Bepaal totale werkplekcapaciteit van ruimte (aantal wps * 100%)
SELECT COUNT(*)*100
INTO v_totaal
FROM prs_v_aanwezigwerkplek awp
WHERE awp.prs_alg_ruimte_key = rec_ruimte.alg_ruimte_key
AND awp.prs_werkplek_virtueel != 1;
-- Update bezetting per afdeling in deze ruimte
FOR rec IN c_wps (rec_ruimte.alg_ruimte_key)
LOOP
v_bezetting := ROUND(rec.bezetting/v_totaal*100);
IF (v_bezetting > 100)
THEN
--DBMS_OUTPUT.PUT_LINE(v_desc||': '||rec.prs_afdeling_naam
-- ||': bezetting > 100%! ');
v_bezetting := 100;
END IF;
--DBMS_OUTPUT.PUT_LINE(v_desc||': '||rec.prs_afdeling_naam
-- ||' ('||rec.bezetting||'/'||v_totaal||') = '
-- ||v_bezetting||'%');
INSERT INTO prs_ruimteafdeling
(prs_afdeling_key,
alg_ruimte_key,
prs_ruimteafdeling_bezetting)
VALUES
(rec.prs_afdeling_key,
rec_ruimte.alg_ruimte_key,
v_bezetting);
END LOOP;
--DBMS_OUTPUT.PUT_LINE(' ');
END LOOP;
-- Verwijder alle werkplekken van users "[afd]" en "LEEG [afd]"
-- (user [Flexplek] heeft alleen werkplekken in ruimtesoorten zonder wp's)
UPDATE prs_perslidwerkplek
SET prs_perslidwerkplek_verwijder = SYSDATE
WHERE prs_perslidwerkplek_key IN
(SELECT DISTINCT (prs_perslidwerkplek_key)
FROM alg_v_aanwezigsrtruimte asr
,alg_v_aanwezigruimte ar
,prs_v_aanwezigwerkplek awp
,prs_v_aanwezigperslidwerkplek apwp
,prs_v_aanwezigperslid ap
,prs_ruimteafdeling ra
WHERE ar.alg_srtruimte_key = asr.alg_srtruimte_key
--AND asr.prs_bevat_werkplek IS NOT NULL
AND ra.alg_ruimte_key = ar.alg_ruimte_key
AND awp.prs_alg_ruimte_key = ar.alg_ruimte_key
AND apwp.prs_werkplek_key = awp.prs_werkplek_key
AND ap.prs_perslid_key = apwp.prs_perslid_key
AND ap.prs_perslid_naam LIKE '%[%');
-- afdeling 'NIET VERH' (key 1942) vervalt ook
UPDATE prs_perslidwerkplek
SET prs_perslidwerkplek_verwijder = SYSDATE
WHERE prs_perslidwerkplek_key IN
(SELECT DISTINCT (prs_perslidwerkplek_key)
FROM prs_v_aanwezigperslidwerkplek apwp
,prs_v_aanwezigperslid ap
WHERE ap.prs_perslid_key = apwp.prs_perslid_key
AND ap.prs_afdeling_key = 1942);
-- en afdelingen hebben niets te zoeken op "Fictieve ruimte"s (key 961)
-- (die worden namelijk niet doorbelast!)
UPDATE prs_perslidwerkplek
SET prs_perslidwerkplek_verwijder = SYSDATE
WHERE prs_perslidwerkplek_key IN
(SELECT DISTINCT (prs_perslidwerkplek_key)
FROM prs_v_aanwezigperslid ap
,prs_v_aanwezigperslidwerkplek apwp
,prs_v_aanwezigwerkplek awp
,alg_v_aanwezigruimte ar
WHERE ar.alg_srtruimte_key = 961
AND awp.prs_alg_ruimte_key = ar.alg_ruimte_key
AND apwp.prs_werkplek_key = awp.prs_werkplek_key
AND ap.prs_perslid_key = apwp.prs_perslid_key
AND ap.prs_perslid_naam LIKE '%[%');
-- Nu kunnen (als het goed is) al die pseudopersonen weg!
UPDATE prs_perslid
SET prs_perslid_verwijder = SYSDATE
WHERE prs_perslid_naam LIKE '%[%';
EXCEPTION
WHEN OTHERS
THEN
v_errormsg := '(ORACLE error ' || SQLCODE || '/'
|| SUBSTR (SQLERRM, 1, 100) || ')';
DBMS_OUTPUT.PUT_LINE(v_desc||': '||v_errormsg);
END;
/
SET SERVEROUTPUT OFF;
COMMIT;
SPOOL OFF;

View File

@@ -1,85 +0,0 @@
--
--
-- AKZO ARNHEM specifieke views tbv Facilitor Graphics
-- (ik zou voor bv Gasflessen liever AKZ_ gebruikt hebben)
--
-- 23-01-2001/PF (c) Dijkoraad IT bv
-- Schoonmaakniveau per ruimte.
CREATE OR REPLACE VIEW AKZ_V_WEB_SCHNIVO AS
SELECT RR.ALG_RUIMTE_KEY, ud.AKZ_SCHNIVO_UPPER "AKZ_SCHNIVO_UPPER", ud.AKZ_SCHNIVO_OMSCHRIJVING "AKZ_SCHNIVO_OMSCHRIJVING
FROM ALG_ONRGOEDKENMERK ok, AKZ_V_AANWEZIGSCHNIVO ud, ALG_KENMERK k, ALG_V_AANWEZIGRUIMTE RR
WHERE TO_CHAR(UD.AKZ_SCHNIVO_KEY)=OK.ALG_ONRGOEDKENMERK_WAARDE
AND K.ALG_KENMERK_KEY=1001
AND RR.ALG_RUIMTE_KEY=ok.ALG_ONRGOED_KEY
CREATE OR REPLACE VIEW WEB_V_RUIMTE_GASFLES ( ALG_RUIMTE_KEY,
AANTAL_GASFLESSEN ) AS SELECT r.ALG_RUIMTE_KEY "ALG_RUIMTE_KEY",
SUM(DECODE(d.ins_srtdeel_key,425,1,0))
FROM alg_v_aanwezigruimte r, ins_v_aanwezigdeel d
WHERE r.alg_ruimte_key=d.ins_alg_ruimte_key
-- and d.ins_srtdeel_key = 425
GROUP BY alg_ruimte_key
CREATE OR REPLACE VIEW WEB_V_RUIMTE_BEZETTING ( ALG_RUIMTE_KEY,
ALG_RUIMTE_BEZETTING ) AS SELECT X.ALG_RUIMTE_KEY,
DECODE(SUM(ARNO),0,((COUNT(PRS_WERKPLEK_KEY)-SUM(AANTAL_LEEG))/COUNT(PRS_WERKPLEK_KEY)*100),150) "ALG_RUIMTE_BEZETTING"
FROM (SELECT w.PRS_ALG_RUIMTE_KEY ALG_RUIMTE_KEY, w.PRS_WERKPLEK_KEY,
SUM(PRS_PERSLIDWERKPLEK_BEZETTING) "PRS_WERKPLEK_BEZETTING",
SUM(DECODE(INSTR(prs_perslid_upper,'LEEG'),0,0,1)) "AANTAL_LEEG",
SUM(DECODE(INSTR(prs_afdeling_upper,'NIET VERH'),0,0,1)) "ARNO"
FROM PRS_v_aanwezigPERSLIDWERKPLEK pw, PRS_v_aanwezigWERKPLEK w,
PRS_PERSLID p, PRS_AFDELING a
WHERE p.prs_perslid_key=pw.prs_perslid_key
AND p.prs_afdeling_key=a.prs_afdeling_key
AND w.PRS_WERKPLEK_KEY=pw.PRS_WERKPLEK_KEY (+)
-- and w.prs_alg_ruimte_key in (3178,3180,3193,3208)
GROUP BY PRS_ALG_RUIMTE_KEY,w.PRS_WERKPLEK_KEY
) X
GROUP BY ALG_RUIMTE_KEY
CREATE OR REPLACE VIEW WEB_V_RUIMTE_EENHEID ( ALG_RUIMTE_KEY,
PRS_AFDELING_EENHEID ) AS SELECT w.PRS_ALG_RUIMTE_KEY "ALG_RUIMTE_KEY",
MAX(a.PRS_AFDELING_EENHEID) PRS_AFDELING_EENHEID
FROM PRS_PERSLIDWERKPLEK pw, PRS_WERKPLEK w, PRS_AFDELING a, PRS_PERSLID p
WHERE pw.PRS_PERSLIDWERKPLEK_VERWIJDER IS NULL
AND w.PRS_WERKPLEK_VERWIJDER IS NULL
AND pw.PRS_WERKPLEK_KEY = w.PRS_WERKPLEK_KEY
AND a.PRS_AFDELING_VERWIJDER IS NULL
AND p.prs_perslid_verwijder IS NULL
AND ((pw.PRS_AFDELING_KEY=a.PRS_AFDELING_KEY AND pw.PRS_PERSLID_KEY IS NULL
AND p.PRS_PERSLID_KEY=-1)
OR (pw.PRS_PERSLID_KEY=p.PRS_PERSLID_KEY AND p.prs_afdeling_key=a.prs_afdeling_key))
GROUP BY prs_alg_ruimte_key
CREATE OR REPLACE VIEW WEB_V_RUIMTE_NORM_MAX ( ALG_RUIMTE_KEY,
ALG_RUIMTE_NORM ) AS SELECT r.ALG_RUIMTE_KEY "ALG_RUIMTE_KEY", MAX( NVL(p.prs_perslid_opp, s.PRS_SRTPERSLID_OPP) / r.ALG_RUIMTE_BRUTO_VLOEROPP) "ALG_RUIMTE_NORM"
FROM PRS_V_AANWEZIGPERSLID P, PRS_V_AANWEZIGSRTPERSLID S,
PRS_V_AANWEZIGPERSLIDWERKPLEK PW, PRS_V_AANWEZIGWERKPLEK W, ALG_V_AANWEZIGRUIMTE R
WHERE P.PRS_SRTPERSLID_KEY=S.PRS_SRTPERSLID_KEY
AND P.PRS_PERSLID_KEY=PW.PRS_PERSLID_KEY
AND W.PRS_WERKPLEK_KEY=PW.PRS_WERKPLEK_KEY
AND R.ALG_RUIMTE_KEY=W.PRS_ALG_RUIMTE_KEY
GROUP BY R.ALG_RUIMTE_key
CREATE OR REPLACE VIEW WEB_V_RUIMTE_NORM_MIN ( ALG_RUIMTE_KEY,
ALG_RUIMTE_NORM ) AS SELECT r.ALG_RUIMTE_KEY "ALG_RUIMTE_KEY", MIN( NVL(p.prs_perslid_opp, s.PRS_SRTPERSLID_OPP) / r.ALG_RUIMTE_BRUTO_VLOEROPP) "ALG_RUIMTE_NORM"
FROM PRS_V_AANWEZIGPERSLID P, PRS_V_AANWEZIGSRTPERSLID S,
PRS_V_AANWEZIGPERSLIDWERKPLEK PW, PRS_V_AANWEZIGWERKPLEK W, ALG_V_AANWEZIGRUIMTE R
WHERE P.PRS_SRTPERSLID_KEY=S.PRS_SRTPERSLID_KEY
AND P.PRS_PERSLID_KEY=PW.PRS_PERSLID_KEY
AND W.PRS_WERKPLEK_KEY=PW.PRS_WERKPLEK_KEY
AND R.ALG_RUIMTE_KEY=W.PRS_ALG_RUIMTE_KEY
GROUP BY R.ALG_RUIMTE_key
CREATE OR REPLACE VIEW WEB_V_VLOERSOORT ( ALG_RUIMTE_KEY,
ALG_VLOERSOORT_KEY, ALG_RUIMTE_VLOERSOORT ) AS SELECT RR.ALG_RUIMTE_KEY, ud.FAC_USRDATA_KEY "ALG_VLOERSOORT_KEY", ud.FAC_USRDATA_OMSCHR "ALG_RUIMTE_VLOERSOORT"
FROM ALG_ONRGOEDKENMERK ok, FAC_USRDATA ud,ALG_REFKENMERK rk, ALG_KENMERK k, ALG_V_AANWEZIGRUIMTE RR
WHERE RK.FAC_USRTAB_KEY = UD.FAC_USRTAB_KEY
AND K.ALG_REFKENMERK_KEY=RK.ALG_REFKENMERK_KEY
AND TO_CHAR(UD.FAC_USRDATA_KEY)=OK.ALG_ONRGOEDKENMERK_WAARDE
AND K.ALG_KENMERK_KEY=2 -- a global constant
AND RR.ALG_RUIMTE_KEY=ok.ALG_ONRGOED_KEY

View File

@@ -1,28 +0,0 @@
-- Vervang de dummy personen die men bij een afdeling heeft aangemaakt voor het
-- 'ik weet wel de afdeling maar niet de persoon' verschijnsel. Men moet hier
-- gewoon de afdeling hebben aangegeven. Ruimt lekker op.
SELECT * FROM PRS_PERSLIDWERKPLEK WHERE prs_perslid_key IN (
SELECT prs_perslid_key FROM PRS_PERSLID
WHERE prs_perslid_naam LIKE 'LEEG [%]')
ALTER TABLE PRS_PERSLIDWERKPLEK DISABLE CONSTRAINT PRS_C_PRS_PERSLIDWP_KOPPELING
UPDATE PRS_PERSLIDWERKPLEK W SET prs_afdeling_key=
(SELECT prs_afdeling_key FROM PRS_PERSLID A
WHERE A.prs_perslid_key = W.prs_perslid_key
AND prs_perslid_key IN
(SELECT prs_perslid_key FROM PRS_PERSLID B
WHERE prs_perslid_naam LIKE 'LEEG [%]'))
UPDATE PRS_PERSLIDWERKPLEK W SET prs_perslid_key=NULL
WHERE prs_perslid_key IS NOT NULL AND prs_afdeling_key IS NOT NULL
UPDATE PRS_PERSLIDWERKPLEK W SET prs_AFDELING_key=767
WHERE prs_perslid_key IS NULL AND prs_afdeling_key IS NULL
ALTER TABLE PRS_PERSLIDWERKPLEK ENABLE CONSTRAINT PRS_C_PRS_PERSLIDWP_KOPPELING
-- cleanup dummy persons
UPDATE PRS_PERSLID SET prs_perslid_verwijder=SYSDATE
WHERE prs_perslid_naam LIKE 'LEEG [%]' AND prs_perslid_verwijder IS NULL

View File

@@ -1,10 +0,0 @@
-- De rapporten zijn tegenwoordig verwerkt in package AKZA_P_COPIERS
DELETE FROM fac_usrrap
WHERE fac_usrrap_view_name = 'AKZA_COP_SAP'
UPDATE fac_usrrap
SET fac_usrrap_view_name = 'AKZA_P_COPIERS.' || fac_usrrap_view_name
WHERE fac_usrrap_view_name LIKE 'AKZA_COP_%';
DROP PACKAGE Fac_P_Usrrap;

View File

@@ -1,63 +0,0 @@
/****************************************************************************************************
* 08-02-2001/BIV - Conversie script t.b.v. conversie AKZO-specifieke zaken. *
* Aanname : het normale updatescript 400to410 is reeds gerund. *
****************************************************************************************************/
-- Copieer inhoud van veld akz_internalordernr naar alg_terreinsector_ordernr.
UPDATE alg_terreinsector
SET alg_terreinsector_ordernr = akz_internalordernr;
COMMIT;
-- Copieer inhoud van veld mld_akz_kosten_klant naar mld_kosten_klant en
-- copieer inhoud van veld akz_bewonersordernr naar mld_melding_ordernr.
ALTER TABLE mld_melding DISABLE ALL TRIGGERS;
UPDATE mld_melding
SET mld_kosten_klant = mld_akz_kosten_klant,
mld_melding_ordernr = akz_bewonersordernr ;
UPDATE mld_melding M
SET prs_perslid_key = (SELECT MIN(prs_perslid_key) from prs_perslid WHERE prs_perslid_naam = M.mld_melding_melder_naam);
update mld_melding set prs_perslid_key=0 where prs_perslid_key is null;
COMMIT;
ALTER TABLE mld_melding ENABLE ALL TRIGGERS;
-- Herdefinitie van de view MLD_DISCIPLINE zorgt ervoor dat kolom ins_discipline_kostensoort
-- ook bekend is in deze view.
CREATE OR REPLACE VIEW MLD_discipline
AS
SELECT * FROM ALL_discipline WHERE ins_discipline_module = 'MLD';
UPDATE ins_tab_discipline
SET ins_discipline_kostensoort = akz_kostensoort;
COMMIT;
UPDATE mld_meldbron
SET mld_meldbron_default=1
WHERE mld_meldbron_omschrijving='Telefoon';
-- Verwijderen van overbodig geworden functies uit fac_gebruiker en fac_functie,
-- te weten : Importeren personen en importeren sleutels.
DELETE FROM fac_gebruiker
WHERE fac_functie_key IN
(SELECT fac_functie_key
FROM fac_functie
WHERE fac_functie_code IN ('AKZ_PRSIMP', 'AKZ_SLEIMP'));
COMMIT;
DELETE FROM fac_functie
WHERE fac_functie_code IN ('AKZ_PRSIMP', 'AKZ_SLEIMP');
COMMIT;

View File

@@ -1,65 +0,0 @@
CREATE OR REPLACE VIEW AKZ_RUIMTE_BEZETTING ( ALG_RUIMTE_KEY,
ALG_RUIMTE_BEZETTING ) AS SELECT X.ALG_RUIMTE_KEY,
DECODE(SUM(ARNO),0,((COUNT(PRS_WERKPLEK_KEY)-SUM(AANTAL_LEEG))/COUNT(PRS_WERKPLEK_KEY)*100),150) "ALG_RUIMTE_BEZETTING"
FROM (SELECT w.PRS_ALG_RUIMTE_KEY ALG_RUIMTE_KEY, w.PRS_WERKPLEK_KEY,
SUM(PRS_PERSLIDWERKPLEK_BEZETTING) "PRS_WERKPLEK_BEZETTING",
SUM(DECODE(INSTR(prs_perslid_upper,'LEEG'),0,0,1)) "AANTAL_LEEG",
SUM(DECODE(INSTR(prs_afdeling_upper,'NIET VERH'),0,0,1)) "ARNO"
FROM PRS_v_aanwezigPERSLIDWERKPLEK pw, PRS_v_aanwezigWERKPLEK w,
PRS_PERSLID p, PRS_AFDELING a
WHERE p.prs_perslid_key=pw.prs_perslid_key
AND p.prs_afdeling_key=a.prs_afdeling_key
AND w.PRS_WERKPLEK_KEY=pw.PRS_WERKPLEK_KEY (+)
GROUP BY PRS_ALG_RUIMTE_KEY,w.PRS_WERKPLEK_KEY
) X
GROUP BY ALG_RUIMTE_KEY;
--
CREATE OR REPLACE VIEW AKZ_RUIMTE_EENHEID
( ALG_RUIMTE_KEY, PRS_AFDELING_EENHEID )
AS
SELECT w.PRS_ALG_RUIMTE_KEY "ALG_RUIMTE_KEY",
'NIETVERH' PRS_AFDELING_EENHEID
FROM PRS_PERSLIDWERKPLEK pw, PRS_WERKPLEK w, PRS_AFDELING a, PRS_EENHEID e, PRS_PERSLID p
WHERE a.prs_eenheid_key=e.prs_eenheid_key
AND pw.PRS_PERSLIDWERKPLEK_VERWIJDER IS NULL
AND w.PRS_WERKPLEK_VERWIJDER IS NULL
AND pw.PRS_WERKPLEK_KEY = w.PRS_WERKPLEK_KEY
AND a.PRS_AFDELING_VERWIJDER IS NULL
AND a.prs_afdeling_naam ='NIET VERH'
AND p.prs_perslid_verwijder IS NULL
AND ((pw.PRS_AFDELING_KEY=a.PRS_AFDELING_KEY AND pw.PRS_PERSLID_KEY IS NULL
AND p.PRS_PERSLID_KEY=-1)
OR (pw.PRS_PERSLID_KEY=p.PRS_PERSLID_KEY AND p.prs_afdeling_key=a.prs_afdeling_key))
GROUP BY prs_alg_ruimte_key
UNION
SELECT w.PRS_ALG_RUIMTE_KEY "ALG_RUIMTE_KEY",
MAX(e.PRS_EENHEID_CODE) PRS_AFDELING_EENHEID
FROM PRS_PERSLIDWERKPLEK pw, PRS_WERKPLEK w, PRS_AFDELING a, PRS_EENHEID e, PRS_PERSLID p
WHERE a.prs_eenheid_key=e.prs_eenheid_key
AND pw.PRS_PERSLIDWERKPLEK_VERWIJDER IS NULL
AND w.PRS_WERKPLEK_VERWIJDER IS NULL
AND pw.PRS_WERKPLEK_KEY = w.PRS_WERKPLEK_KEY
AND a.PRS_AFDELING_VERWIJDER IS NULL
AND a.prs_afdeling_naam <>'NIET VERH'
AND p.prs_perslid_verwijder IS NULL
AND ((pw.PRS_AFDELING_KEY=a.PRS_AFDELING_KEY AND pw.PRS_PERSLID_KEY IS NULL
AND p.PRS_PERSLID_KEY=-1)
OR (pw.PRS_PERSLID_KEY=p.PRS_PERSLID_KEY AND p.prs_afdeling_key=a.prs_afdeling_key))
GROUP BY prs_alg_ruimte_key;
--
CREATE OR REPLACE VIEW AKZ_RUIMTE_GASFLES
(
ALG_RUIMTE_KEY,
AANTAL_GASFLESSEN
)
AS
SELECT r.alg_ruimte_key "ALG_RUIMTE_KEY",
SUM (DECODE (d.ins_srtdeel_key, 425, 1, 0))
FROM alg_v_aanwezigruimte r, ins_v_aanwezigdeel d
WHERE r.alg_ruimte_key = d.ins_alg_ruimte_key
-- and d.ins_srtdeel_key = 425
GROUP BY alg_ruimte_key;
--

View File

@@ -1,10 +0,0 @@
-- $Revision$
-- $Id$
SPOOL xallv#17426
update mld_stdmelding
set mld_stdmelding_uitvoertijd_pr1=mld_stdmelding_uitvoertijd/2
where mld_stdmelding_uitvoertijd>1;
SPOOL OFF

View File

@@ -1,20 +0,0 @@
-- Customer specific once-script ALLV#23039.sql
-- Update ruimte opstelling key van alle opstelling voor ruimte 3.16 Hollandia naar standaard opstelling zodat de rest kan worden verwijderd.
--
-- (c) 2012 SG|facilitor bv
-- $Revision$
-- $Id$
--
-- Support: +31 53 4800700
SET ECHO ON
SPOOL xAAEN#23039.lst
SET DEFINE OFF
UPDATE res_rsv_ruimte
SET res_ruimte_opstel_key = 4441
WHERE res_ruimte_opstel_key IN (4071, 4072, 4541);
COMMIT;
SPOOL OFF

View File

@@ -1,23 +0,0 @@
/* Cosmetische correctie van via FIP standaard gevulde kostenplaats-omschrijving en ruimte-naam! */
/* - kostenplaats was gelijk aan nummer en wordt afdelingsnaam (indien uniek voor kostenplaats); */
/* - ruimte-naam wordt ruimte-naam met daaruit de locatie-code verwijderd. */
UPDATE prs_kostenplaats kp
SET kp.prs_kostenplaats_omschrijving =
(SELECT y.afd
FROM (SELECT a.prs_kostenplaats_key kpn,
COUNT (a.prs_kostenplaats_key) num
FROM prs_afdeling a
GROUP BY a.prs_kostenplaats_key) x
LEFT JOIN
(SELECT a.prs_kostenplaats_key kpn,
a.prs_afdeling_upper afd
FROM prs_afdeling a) y ON x.kpn = y.kpn
WHERE x.kpn = kp.prs_kostenplaats_key AND x.num = 1);
UPDATE res_ruimte rr
SET rr.res_ruimte_nr =
(SELECT SUBSTR (r.res_ruimte_nr,
INSTR (r.res_ruimte_nr, '-', 1, 1) + 1
)
FROM res_ruimte r
WHERE r.res_ruimte_key = rr.res_ruimte_key);

View File

@@ -1,31 +0,0 @@
-- Customer specific once-script to clean-up/delete all reservations that have been made
-- during test-period.
-- (c) 2007 Facilitor/Dijkoraad IT bv
-- $Revision$
-- $Id$
--
-- Support: +31 53 4800700
SET ECHO ON;
SPOOL xallv_delete_res_content.lst;
/* BEZ */
DELETE FROM bez_bezoekers;
DELETE FROM bez_afspraak;
/* RES */
DELETE FROM res_rsv_deel;
DELETE FROM res_rsv_artikel;
DELETE FROM res_rsv_ruimte;
DELETE FROM res_reservering;
DELETE FROM res_kenmerkwaarde;
/* WEB user messages */
DELETE FROM web_user_messages;
COMMIT;
SPOOL OFF;

View File

@@ -1,16 +0,0 @@
-- Customer specific once-script to set fo_status of all concerned reservations from
-- 'Optie' to 'Definitief'.
-- (c) 2007 Facilitor/Dijkoraad IT bv
-- $Revision$
-- $Id$
--
-- Support: +31 53 4800700
SET ECHO ON;
SPOOL xallv_set_fo_status_definitief.lst;
UPDATE res_rsv_ruimte r
SET r.res_status_fo_key = 2
WHERE r.res_status_fo_key = 1;
COMMIT;
SPOOL OFF;

0
AONL/Once/.gitignore vendored Normal file
View File

View File

@@ -1,28 +0,0 @@
-- Customer specific once-script upon upgrade from 4.81.0 to 4.81.1.
-- (c) 2008 SG|facilitor bv
-- $Revision$
-- $Id$
--
-- Support: +31 53 4800700
SET ECHO ON;
SPOOL xaonl4810to1.lst;
/* Verwijder alle lege - niet meer aan afdeling gekoppelde - werkplekken! */
DELETE FROM prs_werkplek wp
WHERE NOT EXISTS (SELECT pw.prs_werkplek_key
FROM prs_perslidwerkplek pw
WHERE pw.prs_werkplek_key = wp.prs_werkplek_key);
/* Maak SP-per-ruimte-thema's sleepbaar! */
UPDATE cad_thema t -- aonl_v_thema_ruimte_sp
SET t.cad_thema_type = 129
WHERE t.cad_thema_key = 41;
UPDATE cad_thema t -- aonl_v_prj_thema_ruimte_sp
SET t.cad_thema_type = 133
WHERE t.cad_thema_key = 42;
COMMIT;
SPOOL OFF;
@aonl.sql

View File

@@ -1,33 +0,0 @@
-- Customer specific once-script to add (part of) freeze-functionality
-- for HV-doorbelastingsgegevens.
-- (c) 2008 SG|facilitor bv
-- $Revision$
-- $Id$
--
-- Support: +31 53 4800700
SET ECHO ON;
SPOOL xaonl_add_freeze_ruimtegeg.lst;
/* Formatted on 2008/11/14 14:04 (Formatter Plus v4.8.7) */
-- Tabel met de historische HV-doorbelastingsgegevens (om verschillen te kunnen tonen).
CREATE TABLE aonl_hv_freeze
(
dis_oms VARCHAR2(30),
loc_code VARCHAR2(5),
geb_code VARCHAR2(10),
ver_code VARCHAR2(10),
ruimte_nr VARCHAR2(10 BYTE),
ruimtesoort VARCHAR2(30 BYTE),
wp_cap NUMBER(3),
teken_opp NUMBER(9,2),
sp_nummer VARCHAR2(10 BYTE),
sp_naam VARCHAR2(60 BYTE),
bezetting NUMBER(3),
m2_wpnorm NUMBER(5,2),
m2_tarief NUMBER(5,2),
freeze_datum DATE,
freeze_state VARCHAR2(1 BYTE) -- F(rozen)
);
COMMIT;
SPOOL OFF;

View File

@@ -1,32 +0,0 @@
-- Customer specific once-script to delete most afdelingen and vastgoed
-- as created during pilot.
-- (c) 2008 SG|facilitor bv
-- $Revision$
-- $Id$
--
-- Support: +31 53 4800700
SET ECHO ON;
SPOOL xaonl_add_impapp_ruimtegeg.lst;
CREATE TABLE aonl_imp_ruimtegeg
(
alg_locatie_oms VARCHAR2 (30)
,alg_gebouw_code VARCHAR2 (10)
,alg_verdieping_volgnr NUMBER (3)
,alg_ruimte_nr VARCHAR2 (10)
,prs_ruimteafdeling_bezetting NUMBER (3)
,alg_ruimte_opp NUMBER (8,2)
,alg_ruimte_capaciteit NUMBER (3)
,prs_afdeling_naam VARCHAR2 (10)
,prs_afdeling_omschrijving VARCHAR2 (60)
,alg_srtruimte_omschrijving VARCHAR2 (30)
);
INSERT INTO fac_import_app
(fac_import_app_code, fac_import_app_oms, fac_functie_key)
SELECT 'RUIMTEGEG', 'Import Nordined-ruimtegegevens', fac_functie_key
FROM fac_functie
WHERE fac_functie_code = 'WEB_PRSSYS';
COMMIT;
SPOOL OFF;

View File

@@ -1,42 +0,0 @@
-- Customer specific once-script to add reminder-functionality (to AONL
-- and SG|facilitor upon HV-wijzigingsverzoeken).
-- (c) 2009 SG|facilitor bv
-- $Revision$
-- $Id$
--
-- Support: +31 53 4800700
SET ECHO ON;
SPOOL xaonl_add_noti_hv_reminder.lst;
INSERT INTO fac_srtnotificatie
(fac_srtnotificatie_code, fac_srtnotificatie_mode,
fac_srtnotificatie_oms, fac_srtnotificatie_xmlnode,
fac_srtnotificatie_groep
)
VALUES ('CUST01', 2,
'HV-wijzigingsverzoek ter acceptatie', 'melding',
0
);
INSERT INTO fac_srtnotificatie
(fac_srtnotificatie_code, fac_srtnotificatie_mode,
fac_srtnotificatie_oms, fac_srtnotificatie_xmlnode,
fac_srtnotificatie_groep
)
VALUES ('CUST02', 2,
'HV-wijzigingsverzoek ter uitvoering', 'melding',
0
);
INSERT INTO fac_notificatie_job
(fac_notificatie_job_view,
fac_notificatie_job_oms,
fac_notificatie_job_interval, fac_notificatie_job_mode
)
VALUES ('aonl_v_noti_hv_reminder',
'MLD: Reminders nav. wijzigingsverzoeken door lokatiebeheer',
12, 3
);
COMMIT;
SPOOL OFF;

View File

@@ -1,29 +0,0 @@
-- Customer specific once-script to delete most afdelingen and vastgoed
-- as created during pilot.
-- (c) 2008 SG|facilitor bv
-- $Revision$
-- $Id$
--
-- Support: +31 53 4800700
SET ECHO ON;
SPOOL xaonl_del_mostpilotvulling.lst;
DELETE FROM prs_perslidwerkplek;
DELETE FROM prs_afdeling a
WHERE a.prs_afdeling_key NOT IN (1, 51);
DELETE FROM prs_werkplek;
DELETE FROM alg_onrgoedkenmerk;
DELETE FROM alg_ruimte;
DELETE FROM alg_verdieping;
DELETE FROM alg_gebouw;
DELETE FROM alg_srtruimte;
COMMIT;
SPOOL OFF;

View File

@@ -1,76 +0,0 @@
-- Customer specific once-script to add a res reminder notification job. BAMG#22818
-- View is tevens aan de bamg.sql toegevoegd. key 27241 = receptie bunnik, key 262 = district bunnik.
--
-- (c) 2010 SG|facilitor bv
-- $Revision$
-- $Id$
--
-- Support: +31 53 4800700
SET ECHO ON;
SPOOL xbamg#22818;
SET DEFINE OFF;
CREATE OR REPLACE VIEW BAMG_V_NOTI_RESLATEREMINDER
(
CODE,
SENDER,
RECEIVER,
TEXT,
KEY,
PAR1,
PAR2,
XKEY
)
AS
SELECT '',
'',
27241,
'Reservering '
|| r.res_reservering_key
|| '/'
|| r.res_rsv_ruimte_volgnr
|| ' is gemaakt op uw locatie met een eindtijd na 18:00 uur.'
|| ' De reservering duurt tot '
|| TO_CHAR (res_rsv_ruimte_tot, 'HH24:MI')
|| ' en vind plaats in de ruimte '
|| rr.res_ruimte_nr,
res_rsv_ruimte_key,
NULL,
NULL,
NULL
FROM res_rsv_ruimte r,
res_ruimte_opstelling ro,
res_ruimte rr,
res_alg_ruimte ra,
alg_ruimte ar,
alg_verdieping av,
alg_gebouw ag,
alg_locatie al
WHERE res_status_bo_key = 2 AND res_rsv_ruimte_verwijder IS NULL
AND TO_DATE (res_rsv_ruimte_van, 'dd-mm-yyyy') =
TO_DATE (SYSDATE, 'dd-mm-yyyy')
AND TO_CHAR (res_rsv_ruimte_tot, 'HH24') > 18
AND ro.res_ruimte_opstel_key = r.res_ruimte_opstel_key
AND rr.res_ruimte_key = ro.res_ruimte_key
AND ra.res_ruimte_key = rr.res_ruimte_key
AND ra.alg_ruimte_key = ar.alg_ruimte_key
AND ar.alg_verdieping_key = av.alg_verdieping_key
AND av.alg_gebouw_key = ag.alg_gebouw_key
AND al.alg_locatie_key = ag.alg_locatie_key
AND al.alg_district_key = 262;
INSERT INTO fac_notificatie_job (fac_notificatie_job_view,
fac_notificatie_job_oms,
fac_notificatie_job_mode,
fac_notificatie_job_interval)
VALUES ('BAMG_V_NOTI_RESLATEREMINDER',
'Notificatie tbv reserveringen in Bunnik na 18:00',
2,
24);
-
COMMIT;
SPOOL OFF;

View File

@@ -1,68 +0,0 @@
-- Customer specific once-script to add a cnt break option reminder. BAMG#23451
-- View is tevens aan de bamg.sql toegevoegd. Key 61 = Breekoptie 1 (kenmerksoort)
--
-- (c) 2010 SG|facilitor bv
-- $Revision$
-- $Id$
--
-- Support: +31 53 4800700
SET ECHO ON;
SPOOL xbamg#23451;
SET DEFINE OFF;
CREATE OR REPLACE VIEW BAMG_V_NOTI_CNT_BREEKREMINDER
(
CODE,
SENDER,
RECEIVER,
TEXT,
KEY,
PAR1,
PAR2,
XKEY
)
AS
SELECT '',
'',
c.prs_perslid_key_beh,
'Rapp<EFBFBD>l: Contract '
|| c.cnt_contract_nummer_intern
|| ' ('
|| c.cnt_contract_omschrijving
|| ' '
|| b.prs_bedrijf_naam
|| ')'
|| ' heeft een breekoptiedatum op '
|| kc.cnt_kenmerkcontract_waarde
|| '. Deze datum is volgende week.',
c.cnt_contract_key,
c.cnt_contract_nummer_intern,
cnt.cnt_getopzegdatum (c.cnt_contract_key),
NULL
FROM cnt_v_aanwezigcontract c,
prs_bedrijf b,
(SELECT kc.cnt_kenmerkcontract_waarde, kc.cnt_contract_key
FROM cnt_kenmerkcontract kc, cnt_kenmerk k
WHERE k.cnt_srtkenmerk_key = 61
AND kc.cnt_kenmerk_key = k.cnt_kenmerk_key
AND kc.cnt_kenmerkcontract_verwijder IS NULL) kc
WHERE b.prs_bedrijf_key = c.cnt_prs_bedrijf_key
AND kc.cnt_contract_key = c.cnt_contract_key
AND kc.cnt_kenmerkcontract_waarde =
TO_CHAR (SYSDATE + 7, 'dd-mm-yyyy');
INSERT INTO fac_notificatie_job (fac_notificatie_job_view,
fac_notificatie_job_oms,
fac_notificatie_job_mode,
fac_notificatie_job_interval)
VALUES ('BAMG_V_NOTI_CNT_BREEKREMINDER',
'Notificatie bij contract breekopties',
2,
24);
-
COMMIT;
SPOOL OFF;

View File

@@ -1,16 +0,0 @@
SET ECHO ON
SPOOL xbamg1.lst
PROMPT $Revision$
INSERT INTO FAC_USRRAP ( FAC_USRRAP_OMSCHRIJVING,
FAC_USRRAP_VIEW_NAME ) VALUES (
'CNT: Locatieoverzicht', 'BAMG_V_OVERZICHT_LOCATIE');
COMMIT;
SPOOL OFF
@bamg.sql

View File

@@ -1,17 +0,0 @@
SET ECHO ON
SPOOL xbamg2.lst
PROMPT $Revision$
insert into alg_kenmerk (alg_kenmerk_key, alg_kenmerk_niveau, alg_kenmerk_volgnr, alg_kenmerk_omschrijving, alg_kenmerk_kenmerktype, alg_refkenmerk_key)
values (999, 'L', 81, 'Actief', 'R', 1002);
update fac_usrrap set fac_usrrap_view_name = 'BAMG_V_AANWEZIGLOCATIE' where fac_usrrap_key = 141;
insert into fac_usrrap (FAC_USRRAP_OMSCHRIJVING, FAC_USRRAP_VIEW_NAME, FAC_USRRAP_FUNCTIE, FAC_USRRAP_INFO)
values ('CNT: Locatiegegevens (verlopen)', 'BAMG_V_VERLOPENLOCATIE', 3, '');
COMMIT;
SPOOL OFF
@bamg.sql

View File

@@ -1,12 +0,0 @@
SET ECHO ON
SPOOL xbamg6.lst
PROMPT $Revision$
UPDATE prs_afdeling
SET prs_afdeling_verwijder = NULL
WHERE prs_afdeling_key = 421;
COMMIT;
SPOOL OFF

View File

@@ -1,11 +0,0 @@
SET ECHO ON
SPOOL xbamg7.lst
PROMPT $Revision$
UPDATE cnt_contract
SET prs_afdeling_key_eig = 100;
COMMIT;
SPOOL OFF

View File

@@ -1,17 +0,0 @@
SET ECHO ON
SPOOL xbamg8.lst
PROMPT $Revision$
UPDATE fac_notificatie_job
SET fac_notificatie_job_view = 'BAMG_V_NOTI_CNTREMINDER',
fac_notificatie_job_interval = 24,
fac_notificatie_job_nextrun =
TO_DATE (TO_CHAR (SYSDATE, 'yyyymmdd') || ':1900',
'yyyymmdd:hh24mi')
WHERE fac_notificatie_job_key = 2;
COMMIT;
SPOOL OFF
@bamg.sql

View File

@@ -1,158 +0,0 @@
SET DEFINE OFF
SET ECHO ON
SPOOL xbamg#20448.lst
PROMPT $Revision$
SET SERVEROUTPUT ON;
DECLARE
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (250);
v_desc VARCHAR2 (100);
v_errormsg VARCHAR2 (1024);
v_errorhint VARCHAR2 (1024);
v_action VARCHAR (10);
v_count NUMBER (10);
v_counter NUMBER (10);
c_disc_dranken_key NUMBER (10) := 142;
c_art_koffie_key NUMBER (10) := 74;
c_art_thee_key NUMBER (10) := 2;
c_art_water_key NUMBER (10) := 3;
c_art_ktw_omschr VARCHAR2 (20) := 'Vergaderarrangement';
c_art_ktw_key NUMBER (10);
-- Alle reserveringen met koffie, thee en/of water
CURSOR c_reserveringen
IS
SELECT rra.res_rsv_ruimte_key,
COALESCE (MAX (rrr.res_rsv_ruimte_bezoekers),
MAX (rra.res_rsv_artikel_aantal) ) aantal,
MAX (rrr.res_reservering_key) res_reservering_key,
MAX (rrr.res_rsv_ruimte_volgnr) res_rsv_ruimte_volgnr,
MAX (rra.res_rsv_artikel_levering) res_rsv_artikel_levering,
MAX (rra.res_status_bo_key) res_status_bo_key,
MAX (rra.res_rsv_artikel_verwerkt) res_rsv_artikel_verwerkt,
MAX (rra.res_rsv_artikel_afgemeld) res_rsv_artikel_afgemeld
FROM res_rsv_artikel rra, res_rsv_ruimte rrr
WHERE rra.res_rsv_ruimte_key = rrr.res_rsv_ruimte_key
AND rra.res_rsv_artikel_verwijder IS NULL
AND rra.res_artikel_key IN (c_art_koffie_key,
c_art_thee_key,
c_art_water_key)
GROUP BY rra.res_rsv_ruimte_key
ORDER BY rra.res_rsv_ruimte_key;
rec_res c_reserveringen%ROWTYPE;
BEGIN
v_counter := 0;
v_errorhint := 'Bepalen verbruiksartikel '||c_art_ktw_omschr;
SELECT COUNT(*)
INTO v_count
FROM res_artikel
WHERE res_discipline_key = c_disc_dranken_key
AND res_artikel_omschrijving = c_art_ktw_omschr;
-- Bestaat nog niet --> maak aan
IF (v_count = 0)
THEN
v_errorhint := 'Toevoegen verbruiksartikel '||c_art_ktw_omschr;
INSERT INTO res_artikel
(res_discipline_key, res_artikel_omschrijving, res_artikel_eenheid,
res_artikel_prijs, res_artikel_prijs_vast)
VALUES (c_disc_dranken_key, c_art_ktw_omschr, 'p.p.',
0, 1)
RETURNING res_artikel_key
INTO c_art_ktw_key;
DBMS_OUTPUT.PUT_LINE('Verbruiksartikel '''||c_art_ktw_omschr||''' aangemaakt (key '||c_art_ktw_key||').');
ELSE
v_errorhint := 'Ophalen verbruiksartikel '||c_art_ktw_omschr;
SELECT MAX(res_artikel_key)
INTO c_art_ktw_key
FROM res_artikel
WHERE res_discipline_key = c_disc_dranken_key
AND res_artikel_omschrijving = c_art_ktw_omschr;
END IF;
FOR rec_res IN c_reserveringen
LOOP
BEGIN
v_desc := rec_res.res_reservering_key||'/'||rec_res.res_rsv_ruimte_volgnr;
v_errorhint := 'Toevoegen vergaderarrangement aan reservering ['||v_desc||']';
INSERT INTO res_rsv_artikel (res_artikel_key,
res_rsv_artikel_aantal,
res_rsv_artikel_levering,
res_status_bo_key,
res_rsv_ruimte_key,
res_rsv_artikel_prijs,
res_rsv_artikel_verwerkt,
res_rsv_artikel_afgemeld)
VALUES (c_art_ktw_key,
rec_res.aantal,
rec_res.res_rsv_artikel_levering,
rec_res.res_status_bo_key,
rec_res.res_rsv_ruimte_key,
0,
rec_res.res_rsv_artikel_verwerkt,
rec_res.res_rsv_artikel_afgemeld);
v_counter := v_counter + 1;
v_errorhint := 'Verwijderen koffie, thee en water van reservering ['||v_desc||']';
UPDATE res_rsv_artikel
SET res_rsv_artikel_verwijder = SYSDATE
WHERE res_rsv_ruimte_key = rec_res.res_rsv_ruimte_key
AND res_artikel_key IN (c_art_koffie_key,
c_art_thee_key,
c_art_water_key);
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
v_errorhint := v_errorhint
|| ' {' || v_errormsg || '}';
v_errormsg := '(ORACLE error '
|| oracle_err_num || '/' || oracle_err_mes
|| ') in loop';
DBMS_OUTPUT.PUT_LINE(v_errormsg || v_errorhint);
END;
END LOOP;
DBMS_OUTPUT.PUT_LINE(v_counter || ' reserveringen bijgewerkt.');
v_errorhint := 'Verwijderen verbruiksartikelen koffie, thee en water';
UPDATE res_artikel
SET res_artikel_verwijder = SYSDATE
WHERE res_artikel_key IN (c_art_koffie_key,
c_art_thee_key,
c_art_water_key);
DBMS_OUTPUT.PUT_LINE('Verbruiksartikelen koffie, thee en water verwijderd.');
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
v_errorhint := v_errorhint
|| ' {' || v_errormsg || '}';
v_errormsg := '(ORACLE error '
|| oracle_err_num || '/' || oracle_err_mes
|| ')';
DBMS_OUTPUT.PUT_LINE(v_errormsg || v_errorhint);
END;
/
COMMIT;
SET SERVEROUTPUT OFF;
SPOOL OFF;

View File

@@ -1,20 +0,0 @@
SET ECHO ON
SPOOL xbamg461to470.lst
PROMPT $Revision$
CREATE TABLE BAMG_IMP_TELEFOON_FILE
(
IMP_INDEX NUMBER(10),
IMP_LINE VARCHAR2(1000 BYTE)
);
INSERT INTO FAC_IMPORT_APP ( FAC_IMPORT_APP_CODE, FAC_IMPORT_APP_OMS,FAC_FUNCTIE_KEY
) VALUES
( 'TELEFOON', 'Import telefoonlijst', 52);
COMMIT;
SPOOL OFF
@bamg.sql

View File

@@ -1,44 +0,0 @@
SET ECHO ON
SPOOL xbamg470to471.lst
PROMPT $Revision$
-- uwva#13142 Vervallen, fac_import_file wordt nu gebruikt
DROP TABLE BAMG_IMP_TELEFOON_FILE;
UPDATE fac_usrrap
SET fac_usrrap_omschrijving = 'CNT: Contractgegevens uitgebreid'
WHERE fac_usrrap_key = 81;
UPDATE fac_usrrap
SET fac_usrrap_omschrijving = 'CNT: Locatiegegevens uitgebreid'
WHERE fac_usrrap_key = 121;
INSERT INTO fac_usrrap
(fac_usrrap_omschrijving, fac_usrrap_view_name,
fac_usrrap_functie, fac_usrrap_info
)
VALUES ('CNT: Locatiegegevens', 'BAMG_V_OVERZICHT_LOCATIE',
3, NULL
);
INSERT INTO fac_usrrap
(fac_usrrap_omschrijving, fac_usrrap_view_name,
fac_usrrap_functie, fac_usrrap_info
)
VALUES ('CNT: Contractgegevens', 'BAMG_V_AANWEZIGCONTRACT',
3, NULL
);
INSERT INTO fac_usrrap
(fac_usrrap_omschrijving, fac_usrrap_view_name,
fac_usrrap_functie, fac_usrrap_info
)
VALUES ('CNT: Contractgegevens (verlopen)', 'BAMG_V_VERLOPENCONTRACT',
3, NULL
);
COMMIT;
SPOOL OFF
@bamg.sql

File diff suppressed because it is too large Load Diff

View File

@@ -1,25 +0,0 @@
-- CAPG1_2.sql
-- Eenmalig script om afdelingen te synchronseren met nieuwe org structuur.
-- Deel 2 past de kostenplaats van de reserveringen aan naar de nieuwe kostenplaats
-- van de gastheer. Deze aanpassing wordt alleen gemaakt voor reserveringen na 1 jan 2010.
-- Dit script mag pas uitgevoerd worden nadat het nieuwe personenbestand uit sap (telefoon100)
-- ingelezen is.
--
SET ECHO ON
SET DEFINE OFF;
SPOOL xcapg1_2.lst
PROMPT $Revision$
UPDATE res_rsv_ruimte rrr
SET prs_kostenplaats_key =
(SELECT a.prs_kostenplaats_key
FROM prs_afdeling a, prs_perslid p
WHERE rrr.res_rsv_ruimte_host_key = p.prs_perslid_key
AND p.prs_afdeling_key = a.prs_afdeling_key)
WHERE rrr.res_rsv_ruimte_van > TO_DATE ('20100101', 'yyyymmdd');
COMMIT;
SPOOL OFF

View File

@@ -1,113 +0,0 @@
-- CAPG1_3.sql
-- Eenmalig script om afdelingen te synchronseren met nieuwe org structuur.
-- Deel 3 verwijdert organisatieonderdelen die niet meer in gebruik zijn. Deze
-- zijn in stap 1 al gemarkeerd met vervallen.
--
SET ECHO ON
SET DEFINE OFF;
SPOOL xcapg1_3.lst
PROMPT $Revision$
DECLARE
CURSOR c_kpn
IS
SELECT k.prs_kostenplaats_key, prs_kostenplaats_nr
FROM prs_kostenplaats k
WHERE prs_kostenplaats_omschrijving LIKE 'Vervallen%'
AND k.prs_kostenplaats_verwijder IS NULL;
v_rec_k c_kpn%ROWTYPE;
CURSOR c_pra
IS
SELECT prs_afdeling_key, prs_afdeling_naam
FROM prs_afdeling
WHERE prs_afdeling_omschrijving LIKE 'Vervallen%'
AND prs_afdeling_verwijder IS NULL
AND prs_bedrijf_key IS NULL;
v_rec_p c_pra%ROWTYPE;
CURSOR c_sec
IS
SELECT prs_afdeling_key, prs_afdeling_naam
FROM prs_afdeling
WHERE prs_afdeling_omschrijving LIKE 'Vervallen%'
AND prs_bedrijf_key IS NOT NULL;
v_rec_s c_sec%ROWTYPE;
ORACLE_err_num NUMBER;
ORACLE_err_mes VARCHAR2(100);
v_hint VARCHAR2(100);
BEGIN
FOR v_rec_k IN c_kpn
LOOP
BEGIN
UPDATE prs_kostenplaats
SET prs_kostenplaats_verwijder = sysdate
WHERE prs_kostenplaats_key = v_rec_k.prs_kostenplaats_key;
EXCEPTION WHEN OTHERS THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
fac.imp_writelog ('CONVERSIE_ORG',
to_char(sysdate, 'yyyymmdd-hhmiss'),
'E',
'(ORACLE error ' || to_char(oracle_err_num) || '/' || oracle_err_mes || ')',
'Foutmelding tijdens verwijder kostenplaats '||v_rec_k.prs_kostenplaats_nr||' (heeft nog verplichtingen)'
);
END;
END LOOP;
FOR v_rec_p IN c_pra
LOOP
BEGIN
UPDATE prs_afdeling
SET prs_afdeling_verwijder = sysdate
WHERE prs_afdeling_key = v_rec_p.prs_afdeling_key;
EXCEPTION WHEN OTHERS THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
fac.imp_writelog ('CONVERSIE_ORG',
to_char(sysdate, 'yyyymmdd-hhmiss'),
'E',
'(ORACLE error ' || to_char(oracle_err_num) || '/' || oracle_err_mes || ')',
'Foutmelding tijdens verwijder practice '||v_rec_p.prs_afdeling_naam||' (heeft nog verplichtingen)'
);
END;
END LOOP;
FOR v_rec_p IN c_sec
LOOP
BEGIN
UPDATE prs_afdeling
SET prs_afdeling_verwijder = sysdate
WHERE prs_afdeling_key = v_rec_s.prs_afdeling_key;
EXCEPTION WHEN OTHERS THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
fac.imp_writelog ('CONVERSIE_ORG',
to_char(sysdate, 'yyyymmdd-hhmiss'),
'E',
'(ORACLE error ' || to_char(oracle_err_num) || '/' || oracle_err_mes || ')',
'Foutmelding tijdens verwijder sector '||v_rec_s.prs_afdeling_naam||' (heeft nog verplichtingen)'
);
END;
END LOOP;
END;
/
SELECT IMP_LOG_HINT FROM imp_log WHERE imp_log_applicatie = 'CONVERSIE_ORG';
DELETE imp_log WHERE imp_log_applicatie = 'CONVERSIE_ORG';
COMMIT;
SPOOL OFF

File diff suppressed because it is too large Load Diff

View File

@@ -1,25 +0,0 @@
-- CAPG4_2.sql
-- Eenmalig script om afdelingen te synchronseren met nieuwe org structuur.
-- Deel 2 past de kostenplaats van de reserveringen aan naar de nieuwe kostenplaats
-- van de gastheer. Deze aanpassing wordt alleen gemaakt voor reserveringen na 1 jan 2011.
-- Dit script mag pas uitgevoerd worden nadat het nieuwe personenbestand uit sap (telefoon100)
-- ingelezen is.
--
SET ECHO ON
SET DEFINE OFF;
SPOOL xcapg4_2.lst
PROMPT $Revision$
UPDATE res_rsv_ruimte rrr
SET prs_kostenplaats_key =
(SELECT a.prs_kostenplaats_key
FROM prs_afdeling a, prs_perslid p
WHERE rrr.res_rsv_ruimte_host_key = p.prs_perslid_key
AND p.prs_afdeling_key = a.prs_afdeling_key)
WHERE rrr.res_rsv_ruimte_van > TO_DATE ('20110101', 'yyyymmdd');
COMMIT;
SPOOL OFF

View File

@@ -1,113 +0,0 @@
-- CAPG4_3.sql
-- Eenmalig script om afdelingen te synchronseren met nieuwe org structuur.
-- Deel 3 verwijdert organisatieonderdelen die niet meer in gebruik zijn. Deze
-- zijn in stap 1 al gemarkeerd met vervallen.
--
SET ECHO ON
SET DEFINE OFF;
SPOOL xcapg4_3.lst
PROMPT $Revision$
DECLARE
CURSOR c_kpn
IS
SELECT k.prs_kostenplaats_key, prs_kostenplaats_nr
FROM prs_kostenplaats k
WHERE prs_kostenplaats_omschrijving LIKE 'Vervallen%'
AND k.prs_kostenplaats_verwijder IS NULL;
v_rec_k c_kpn%ROWTYPE;
CURSOR c_pra
IS
SELECT prs_afdeling_key, prs_afdeling_naam
FROM prs_afdeling
WHERE prs_afdeling_omschrijving LIKE 'Vervallen%'
AND prs_afdeling_verwijder IS NULL
AND prs_bedrijf_key IS NULL;
v_rec_p c_pra%ROWTYPE;
CURSOR c_sec
IS
SELECT prs_afdeling_key, prs_afdeling_naam
FROM prs_afdeling
WHERE prs_afdeling_omschrijving LIKE 'Vervallen%'
AND prs_bedrijf_key IS NOT NULL;
v_rec_s c_sec%ROWTYPE;
ORACLE_err_num NUMBER;
ORACLE_err_mes VARCHAR2(100);
v_hint VARCHAR2(100);
BEGIN
FOR v_rec_k IN c_kpn
LOOP
BEGIN
UPDATE prs_kostenplaats
SET prs_kostenplaats_verwijder = sysdate
WHERE prs_kostenplaats_key = v_rec_k.prs_kostenplaats_key;
EXCEPTION WHEN OTHERS THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
fac.imp_writelog ('CONVERSIE_ORG',
to_char(sysdate, 'yyyymmdd-hhmiss'),
'E',
'(ORACLE error ' || to_char(oracle_err_num) || '/' || oracle_err_mes || ')',
'Foutmelding tijdens verwijder kostenplaats '||v_rec_k.prs_kostenplaats_nr||' (heeft nog verplichtingen)'
);
END;
END LOOP;
FOR v_rec_p IN c_pra
LOOP
BEGIN
UPDATE prs_afdeling
SET prs_afdeling_verwijder = sysdate
WHERE prs_afdeling_key = v_rec_p.prs_afdeling_key;
EXCEPTION WHEN OTHERS THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
fac.imp_writelog ('CONVERSIE_ORG',
to_char(sysdate, 'yyyymmdd-hhmiss'),
'E',
'(ORACLE error ' || to_char(oracle_err_num) || '/' || oracle_err_mes || ')',
'Foutmelding tijdens verwijder practice '||v_rec_p.prs_afdeling_naam||' (heeft nog verplichtingen)'
);
END;
END LOOP;
FOR v_rec_p IN c_sec
LOOP
BEGIN
UPDATE prs_afdeling
SET prs_afdeling_verwijder = sysdate
WHERE prs_afdeling_key = v_rec_s.prs_afdeling_key;
EXCEPTION WHEN OTHERS THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
fac.imp_writelog ('CONVERSIE_ORG',
to_char(sysdate, 'yyyymmdd-hhmiss'),
'E',
'(ORACLE error ' || to_char(oracle_err_num) || '/' || oracle_err_mes || ')',
'Foutmelding tijdens verwijder sector '||v_rec_s.prs_afdeling_naam||' (heeft nog verplichtingen)'
);
END;
END LOOP;
END;
/
SELECT IMP_LOG_HINT FROM imp_log WHERE imp_log_applicatie = 'CONVERSIE_ORG';
DELETE imp_log WHERE imp_log_applicatie = 'CONVERSIE_ORG';
COMMIT;
SPOOL OFF

View File

@@ -1,250 +0,0 @@
-- CAPG5_1.sql
-- Eenmalig script om afdelingen te synchronseren met nieuwe org structuur.
-- Deel 1 maakt de nieuwe organisatiestructuur aan en creert een rapportage om reserveringen
-- op te vragen die niet op de kostenplaats van de gastheer gemaakt zijn. Deze reserveringen
-- moeten na de conversie handmatig aangepast worden.
--
SET ECHO ON
SET DEFINE OFF;
SPOOL xcapg5_1.lst
PROMPT $Revision$
DELETE capg_imp_org;
SET DEFINE OFF;
Insert into CAPG_IMP_ORG
(SECTORCODE, SECTOROMS, PRACTICECODE, PRACTICEOMS, KOSTENPLAATS)
Values
('H', 'SAP Solution', 'H30', 'SAP Solutions', '1830');
Insert into CAPG_IMP_ORG
(SECTORCODE, SECTOROMS, PRACTICECODE, PRACTICEOMS, KOSTENPLAATS)
Values
('H', 'SAP Solution', 'H50', 'Project Center', '1850');
Insert into CAPG_IMP_ORG
(SECTORCODE, SECTOROMS, PRACTICECODE, PRACTICEOMS, KOSTENPLAATS)
Values
('H', 'SAP Solution', 'H60', 'Offshore', '1860');
Insert into CAPG_IMP_ORG
(SECTORCODE, SECTOROMS, PRACTICECODE, PRACTICEOMS, KOSTENPLAATS)
Values
('H', 'SAP Solution', 'H90', 'Sales & Overhead', '1890');
Insert into CAPG_IMP_ORG
(SECTORCODE, SECTOROMS, PRACTICECODE, PRACTICEOMS, KOSTENPLAATS)
Values
('V', 'Oracle Solution', 'V31', 'Oracle Solutions', '3231');
Insert into CAPG_IMP_ORG
(SECTORCODE, SECTOROMS, PRACTICECODE, PRACTICEOMS, KOSTENPLAATS)
Values
('V', 'Oracle Solution', 'V50', 'Project Center', '3250');
Insert into CAPG_IMP_ORG
(SECTORCODE, SECTOROMS, PRACTICECODE, PRACTICEOMS, KOSTENPLAATS)
Values
('V', 'Oracle Solution', 'V60', 'Offshore', '3260');
Insert into CAPG_IMP_ORG
(SECTORCODE, SECTOROMS, PRACTICECODE, PRACTICEOMS, KOSTENPLAATS)
Values
('V', 'Oracle Solution', 'V90', 'Management', '3290');
-- opschonen personeelsleden die niet meer voorkomen in het SAP bestand en die
-- niet het afgelopen jaar zijn aangemaakt en die het laatste jaar niet meer ingelogd hebben.
UPDATE prs_perslid p
SET prs_perslid_verwijder = SYSDATE
WHERE prs_perslid_key IN
(SELECT prs_perslid_key
FROM prs_v_aanwezigperslid p
WHERE prs_perslid_nr NOT IN
(SELECT prs_perslid_nr FROM fip_perslid_sap))
AND prs_perslid_aanmaak < SYSDATE - 300
AND COALESCE (prs_perslid_login, SYSDATE - 400) < SYSDATE - 300
AND prs_perslid_nr IS NOT NULL
AND NOT EXISTS
(SELECT 'X'
FROM mld_opdr MLD_O, mld_statusopdr MLD_S
WHERE MLD_O.mld_statusopdr_key = MLD_S.mld_statusopdr_key
AND MLD_S.mld_statusopdr_upper = 'MLD_UITGEGEVEN'
AND MLD_O.mld_uitvoerende_keys = p.prs_perslid_key);
-- verwijderen van personen zonder personeelsnummer die deel uitmaken van vervallen afdelingen.
UPDATE prs_perslid p
SET prs_perslid_verwijder = SYSDATE
WHERE prs_perslid_key IN (SELECT prs_perslid_key
FROM prs_v_aanwezigperslid p)
AND prs_perslid_aanmaak < SYSDATE - 300
AND COALESCE (prs_perslid_login, SYSDATE - 400) < SYSDATE - 300
AND prs_perslid_nr IS NULL
AND EXISTS
(SELECT 'Y'
FROM prs_v_aanwezigafdeling a
WHERE a.prs_afdeling_key = p.prs_afdeling_key
AND a.prs_afdeling_omschrijving LIKE 'Vervallen-%')
AND NOT EXISTS
(SELECT 'X'
FROM mld_opdr MLD_O, mld_statusopdr MLD_S
WHERE MLD_O.mld_statusopdr_key = MLD_S.mld_statusopdr_key
AND MLD_S.mld_statusopdr_upper = 'MLD_UITGEGEVEN'
AND MLD_O.mld_uitvoerende_keys = p.prs_perslid_key);
-- aanmaken niet bestaande kostenplaatsen
INSERT INTO prs_kostenplaats
(
prs_kostenplaats_nr, prs_kostenplaats_omschrijving, prs_kostenplaats_module, prs_kostenplaats_begin
)
SELECT kostenplaats,
SUBSTR (sectorcode || ' - ' || practiceoms, 1, 60),
'PRS',
TO_DATE ('20110501', 'yyyymmdd')
FROM capg_imp_org
WHERE NOT EXISTS (SELECT prs_kostenplaats_nr
FROM prs_v_aanwezigkostenplaats
WHERE prs_kostenplaats_nr = kostenplaats);
-- wijzigen bestaande kostenplaatsen
UPDATE prs_kostenplaats
SET prs_kostenplaats_omschrijving =
(SELECT SUBSTR (sectorcode || ' - ' || practiceoms, 1, 60)
FROM capg_imp_org
WHERE prs_kostenplaats_nr = kostenplaats)
WHERE prs_kostenplaats_key IN (SELECT prs_kostenplaats_key
FROM capg_imp_org
WHERE prs_kostenplaats_nr = kostenplaats);
-- markeren verwijderde kostenplaatsen
UPDATE prs_kostenplaats
SET prs_kostenplaats_omschrijving =
SUBSTR ('Vervallen-' || prs_kostenplaats_omschrijving, 1, 60)
WHERE NOT EXISTS (SELECT kostenplaats
FROM capg_imp_org
WHERE prs_kostenplaats_nr = kostenplaats)
AND prs_kostenplaats_verwijder IS NULL
AND prs_kostenplaats_nr LIKE '32%'
AND prs_kostenplaats_omschrijving NOT LIKE 'Vervallen-%';
-- aanmaken niet bestaande sectoren
INSERT INTO prs_afdeling
(
prs_afdeling_naam, prs_afdeling_omschrijving, prs_bedrijf_key
)
SELECT distinct sectorcode, sectoroms, 0
FROM capg_imp_org
WHERE NOT EXISTS (SELECT prs_afdeling_naam
FROM prs_afdeling
WHERE prs_afdeling_naam = sectorcode
AND prs_afdeling_verwijder IS NULL
AND prs_bedrijf_key is not null);
-- wijzigen bestaande sectoren
UPDATE prs_afdeling
SET prs_afdeling_omschrijving =
(SELECT DISTINCT sectoroms
FROM capg_imp_org
WHERE prs_afdeling_naam = sectorcode)
WHERE prs_afdeling_naam IN (SELECT sectorcode
FROM capg_imp_org
WHERE prs_afdeling_naam = sectorcode);
-- markeren verwijderde sectoren
/* Niet van toepassing in deze reorganisatie
UPDATE prs_afdeling
SET prs_afdeling_omschrijving =
SUBSTR ('Vervallen-' || prs_afdeling_omschrijving, 1, 60)
WHERE NOT EXISTS (SELECT sectorcode
FROM capg_imp_org
WHERE prs_afdeling_naam = sectorcode)
AND prs_afdeling_verwijder IS NULL
AND prs_afdeling_naam <> 'G'
AND prs_bedrijf_key IS NOT NULL
AND prs_afdeling_naam <> 'Onbekend'
AND prs_afdeling_omschrijving NOT LIKE 'Vervallen-%';
*/
-- aanmaken niet bestaande practices
INSERT INTO prs_afdeling
(
prs_afdeling_naam, prs_afdeling_omschrijving, prs_afdeling_parentkey, prs_kostenplaats_key
)
SELECT practicecode,
practiceoms,
(SELECT prs_afdeling_key
FROM prs_afdeling
WHERE prs_afdeling_naam = sectorcode
AND prs_afdeling_verwijder IS NULL)
par,
(SELECT prs_kostenplaats_key
FROM prs_v_aanwezigkostenplaats
WHERE prs_kostenplaats_nr = kostenplaats)
kost
FROM capg_imp_org
WHERE NOT EXISTS
(SELECT prs_afdeling_naam
FROM prs_afdeling
WHERE prs_afdeling_naam = practicecode
AND prs_afdeling_verwijder IS NULL
AND prs_bedrijf_key IS NULL);
-- wijzigen bestaande practices
UPDATE prs_afdeling
SET prs_afdeling_omschrijving =
(SELECT DISTINCT practiceoms
FROM capg_imp_org
WHERE prs_afdeling_naam = practicecode)
WHERE prs_afdeling_naam IN (SELECT practicecode
FROM capg_imp_org
WHERE prs_afdeling_naam = practicecode);
-- markeren verwijderde practices
UPDATE prs_afdeling
SET prs_afdeling_omschrijving =
SUBSTR ('Vervallen-' || prs_afdeling_omschrijving, 1, 60)
WHERE NOT EXISTS (SELECT practicecode
FROM capg_imp_org
WHERE prs_afdeling_naam = practicecode)
AND prs_afdeling_verwijder IS NULL
AND prs_afdeling_naam LIKE 'V%'
AND prs_bedrijf_key IS NULL
AND prs_afdeling_omschrijving NOT LIKE 'Vervallen-%';
CREATE OR REPLACE VIEW CAPG_V_TMP_RES_REORG_201105 (reservering, gastheer, res_kpn, res_kpn_oms, afd_kpn, afd_kpn_oms)
AS
SELECT DISTINCT
res_reservering_key,
prs_perslid_naam_full,
k.prs_kostenplaats_nr,
k.prs_kostenplaats_omschrijving,
k2.prs_kostenplaats_nr,
k2.prs_kostenplaats_omschrijving
FROM prs_v_perslid_fullnames pf,
prs_kostenplaats k,
prs_kostenplaats k2,
res_rsv_ruimte rrr,
prs_perslid p,
prs_afdeling a
WHERE rrr.res_rsv_ruimte_host_key = p.prs_perslid_key
AND p.prs_perslid_key = pf.prs_perslid_key
AND rrr.res_rsv_ruimte_verwijder IS NULL
AND rrr.prs_kostenplaats_key = k.prs_kostenplaats_key
AND a.prs_kostenplaats_key = k2.prs_kostenplaats_key
AND p.prs_afdeling_key = a.prs_afdeling_key
AND a.prs_kostenplaats_key <> rrr.prs_kostenplaats_key
AND rrr.res_rsv_ruimte_van > TO_DATE ('20110501', 'yyyymmdd')
AND ( a.prs_afdeling_naam like 'H%'
OR a.prs_afdeling_naam like 'V%');
INSERT INTO fac_usrrap
(
fac_usrrap_omschrijving,
fac_usrrap_view_name,
fac_usrrap_info
)
VALUES (
'Beheer: reserveringen tbv reorg 2011 mei',
'CAPG_V_TMP_RES_REORG_201105',
'Reserveringen die plaatsvinden na mei 2011 waarbij de kostenplaats afwijkt van de eigen kostenplaats'
);
COMMIT;
SPOOL OFF

View File

@@ -1,25 +0,0 @@
-- CAPG5_2.sql
-- Eenmalig script om afdelingen te synchronseren met nieuwe org structuur.
-- Deel 2 past de kostenplaats van de reserveringen aan naar de nieuwe kostenplaats
-- van de gastheer. Deze aanpassing wordt alleen gemaakt voor reserveringen na 1 jan 2011.
-- Dit script mag pas uitgevoerd worden nadat het nieuwe personenbestand uit sap (telefoon100)
-- ingelezen is.
--
SET ECHO ON
SET DEFINE OFF;
SPOOL xcapg5_2.lst
PROMPT $Revision$
UPDATE res_rsv_ruimte rrr
SET prs_kostenplaats_key =
(SELECT a.prs_kostenplaats_key
FROM prs_afdeling a, prs_perslid p
WHERE rrr.res_rsv_ruimte_host_key = p.prs_perslid_key
AND p.prs_afdeling_key = a.prs_afdeling_key)
WHERE rrr.res_rsv_ruimte_van > TO_DATE ('20110501', 'yyyymmdd');
COMMIT;
SPOOL OFF

View File

@@ -1,113 +0,0 @@
-- CAPG5_3.sql
-- Eenmalig script om afdelingen te synchronseren met nieuwe org structuur.
-- Deel 3 verwijdert organisatieonderdelen die niet meer in gebruik zijn. Deze
-- zijn in stap 1 al gemarkeerd met vervallen.
--
SET ECHO ON
SET DEFINE OFF;
SPOOL xcapg5_3.lst
PROMPT $Revision$
DECLARE
CURSOR c_kpn
IS
SELECT k.prs_kostenplaats_key, prs_kostenplaats_nr
FROM prs_kostenplaats k
WHERE prs_kostenplaats_omschrijving LIKE 'Vervallen%'
AND k.prs_kostenplaats_verwijder IS NULL;
v_rec_k c_kpn%ROWTYPE;
CURSOR c_pra
IS
SELECT prs_afdeling_key, prs_afdeling_naam
FROM prs_afdeling
WHERE prs_afdeling_omschrijving LIKE 'Vervallen%'
AND prs_afdeling_verwijder IS NULL
AND prs_bedrijf_key IS NULL;
v_rec_p c_pra%ROWTYPE;
CURSOR c_sec
IS
SELECT prs_afdeling_key, prs_afdeling_naam
FROM prs_afdeling
WHERE prs_afdeling_omschrijving LIKE 'Vervallen%'
AND prs_bedrijf_key IS NOT NULL;
v_rec_s c_sec%ROWTYPE;
ORACLE_err_num NUMBER;
ORACLE_err_mes VARCHAR2(100);
v_hint VARCHAR2(100);
BEGIN
FOR v_rec_k IN c_kpn
LOOP
BEGIN
UPDATE prs_kostenplaats
SET prs_kostenplaats_verwijder = sysdate
WHERE prs_kostenplaats_key = v_rec_k.prs_kostenplaats_key;
EXCEPTION WHEN OTHERS THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
fac.imp_writelog ('CONVERSIE_ORG',
to_char(sysdate, 'yyyymmdd-hhmiss'),
'E',
'(ORACLE error ' || to_char(oracle_err_num) || '/' || oracle_err_mes || ')',
'Foutmelding tijdens verwijder kostenplaats '||v_rec_k.prs_kostenplaats_nr||' (heeft nog verplichtingen)'
);
END;
END LOOP;
FOR v_rec_p IN c_pra
LOOP
BEGIN
UPDATE prs_afdeling
SET prs_afdeling_verwijder = sysdate
WHERE prs_afdeling_key = v_rec_p.prs_afdeling_key;
EXCEPTION WHEN OTHERS THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
fac.imp_writelog ('CONVERSIE_ORG',
to_char(sysdate, 'yyyymmdd-hhmiss'),
'E',
'(ORACLE error ' || to_char(oracle_err_num) || '/' || oracle_err_mes || ')',
'Foutmelding tijdens verwijder practice '||v_rec_p.prs_afdeling_naam||' (heeft nog verplichtingen)'
);
END;
END LOOP;
FOR v_rec_p IN c_sec
LOOP
BEGIN
UPDATE prs_afdeling
SET prs_afdeling_verwijder = sysdate
WHERE prs_afdeling_key = v_rec_s.prs_afdeling_key;
EXCEPTION WHEN OTHERS THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
fac.imp_writelog ('CONVERSIE_ORG',
to_char(sysdate, 'yyyymmdd-hhmiss'),
'E',
'(ORACLE error ' || to_char(oracle_err_num) || '/' || oracle_err_mes || ')',
'Foutmelding tijdens verwijder sector '||v_rec_s.prs_afdeling_naam||' (heeft nog verplichtingen)'
);
END;
END LOOP;
END;
/
SELECT IMP_LOG_HINT FROM imp_log WHERE imp_log_applicatie = 'CONVERSIE_ORG';
DELETE imp_log WHERE imp_log_applicatie = 'CONVERSIE_ORG';
COMMIT;
SPOOL OFF

View File

@@ -1,14 +0,0 @@
-- CAPG#133356.SQL $Revision$
-- Script to recover accidentally erased room reservation category Auditorium;
-- Must be run in: the Facilitor 4.70 production database of Capgemini
-- Side effects: none
-- Usergroup authorizations that were removed on deletion of this category should be added manually (fac_groeprechten)
-- and cannot be recovered automatically.
SPOOL xCAPG13351
UPDATE ins_tab_discipline SET ins_discipline_verwijder = NULL WHERE ins_discipline_verwijder IS NOT NULL AND ins_discipline_key=563;
COMMIT;
SPOOL OFF

Some files were not shown because too many files have changed in this diff Show More