diff --git a/AA/AAAR/Once/AAAR#28375.sql b/AA/AAAR/Once/AAAR#28375.sql
new file mode 100644
index 000000000..6c3d9165a
--- /dev/null
+++ b/AA/AAAR/Once/AAAR#28375.sql
@@ -0,0 +1,701 @@
+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
\ No newline at end of file
diff --git a/AA/AAAR/Once/AAAR#28541.sql b/AA/AAAR/Once/AAAR#28541.sql
new file mode 100644
index 000000000..27f7a207e
--- /dev/null
+++ b/AA/AAAR/Once/AAAR#28541.sql
@@ -0,0 +1,51 @@
+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
\ No newline at end of file
diff --git a/AA/AADO/Once/AADO#28649.sql b/AA/AADO/Once/AADO#28649.sql
new file mode 100644
index 000000000..d7aea5010
--- /dev/null
+++ b/AA/AADO/Once/AADO#28649.sql
@@ -0,0 +1,107 @@
+update mld_opdr set mld_opdr_datumbegin = to_date('01-02-2014 08:00:00', 'mm-dd-yyyy hh24:mi:ss') where mld_opdr_key = 17508;
+update mld_opdr set mld_opdr_datumbegin = to_date('01-02-2014 08:00:00', 'mm-dd-yyyy hh24:mi:ss') where mld_opdr_key = 17451;
+update mld_opdr set mld_opdr_datumbegin = to_date('01-02-2014 08:00:00', 'mm-dd-yyyy hh24:mi:ss') where mld_opdr_key = 17492;
+update mld_opdr set mld_opdr_datumbegin = to_date('01-02-2014 08:00:00', 'mm-dd-yyyy hh24:mi:ss') where mld_opdr_key = 16956;
+update mld_opdr set mld_opdr_datumbegin = to_date('01-06-2014 08:00:00', 'mm-dd-yyyy hh24:mi:ss') where mld_opdr_key = 16714;
+update mld_opdr set mld_opdr_datumbegin = to_date('01-02-2014 08:00:00', 'mm-dd-yyyy hh24:mi:ss') where mld_opdr_key = 17109;
+update mld_opdr set mld_opdr_datumbegin = to_date('01-02-2014 08:00:00', 'mm-dd-yyyy hh24:mi:ss') where mld_opdr_key = 17264;
+update mld_opdr set mld_opdr_datumbegin = to_date('01-02-2014 08:00:00', 'mm-dd-yyyy hh24:mi:ss') where mld_opdr_key = 17206;
+update mld_opdr set mld_opdr_datumbegin = to_date('01-02-2014 08:00:00', 'mm-dd-yyyy hh24:mi:ss') where mld_opdr_key = 16277;
+update mld_opdr set mld_opdr_datumbegin = to_date('01-02-2014 08:00:00', 'mm-dd-yyyy hh24:mi:ss') where mld_opdr_key = 17255;
+update mld_opdr set mld_opdr_datumbegin = to_date('01-02-2014 08:00:00', 'mm-dd-yyyy hh24:mi:ss') where mld_opdr_key = 17256;
+update mld_opdr set mld_opdr_datumbegin = to_date('01-02-2014 08:00:00', 'mm-dd-yyyy hh24:mi:ss') where mld_opdr_key = 17259;
+update mld_opdr set mld_opdr_datumbegin = to_date('01-02-2014 08:00:00', 'mm-dd-yyyy hh24:mi:ss') where mld_opdr_key = 17474;
+update mld_opdr set mld_opdr_datumbegin = to_date('01-02-2014 08:00:00', 'mm-dd-yyyy hh24:mi:ss') where mld_opdr_key = 16936;
+update mld_opdr set mld_opdr_datumbegin = to_date('01-02-2014 08:00:00', 'mm-dd-yyyy hh24:mi:ss') where mld_opdr_key = 17484;
+update mld_opdr set mld_opdr_datumbegin = to_date('01-06-2014 08:00:00', 'mm-dd-yyyy hh24:mi:ss') where mld_opdr_key = 17279;
+update mld_opdr set mld_opdr_datumbegin = to_date('01-06-2014 08:00:00', 'mm-dd-yyyy hh24:mi:ss') where mld_opdr_key = 17280;
+update mld_opdr set mld_opdr_datumbegin = to_date('01-02-2014 08:00:00', 'mm-dd-yyyy hh24:mi:ss') where mld_opdr_key = 17214;
+update mld_opdr set mld_opdr_datumbegin = to_date('01-02-2014 08:00:00', 'mm-dd-yyyy hh24:mi:ss') where mld_opdr_key = 17367;
+update mld_opdr set mld_opdr_datumbegin = to_date('01-02-2014 08:00:00', 'mm-dd-yyyy hh24:mi:ss') where mld_opdr_key = 17301;
+update mld_opdr set mld_opdr_datumbegin = to_date('01-02-2014 08:00:00', 'mm-dd-yyyy hh24:mi:ss') where mld_opdr_key = 17462;
+update mld_opdr set mld_opdr_datumbegin = to_date('01-02-2014 08:00:00', 'mm-dd-yyyy hh24:mi:ss') where mld_opdr_key = 17254;
+update mld_opdr set mld_opdr_datumbegin = to_date('01-02-2014 08:00:00', 'mm-dd-yyyy hh24:mi:ss') where mld_opdr_key = 17205;
+update mld_opdr set mld_opdr_datumbegin = to_date('01-06-2014 08:00:00', 'mm-dd-yyyy hh24:mi:ss') where mld_opdr_key = 17344;
+update mld_opdr set mld_opdr_datumbegin = to_date('01-06-2014 08:00:00', 'mm-dd-yyyy hh24:mi:ss') where mld_opdr_key = 17239;
+update mld_opdr set mld_opdr_datumbegin = to_date('01-02-2014 08:00:00', 'mm-dd-yyyy hh24:mi:ss') where mld_opdr_key = 17240;
+update mld_opdr set mld_opdr_datumbegin = to_date('01-06-2014 08:00:00', 'mm-dd-yyyy hh24:mi:ss') where mld_opdr_key = 17261;
+
+commit;
+
+/* Formatted on 29-1-2014 17:07:04 (QP5 v5.136.908.31019) */
+SELECT mld_opdr_key,
+ oid,
+ mld_opdr_datumbegin,
+ TO_DATE (SUBSTR (toms, INSTR (toms, 'Opdrachtdatum: ') + 43, 16),
+ 'dd-mm-yyyy hh24:mi')
+ naar,
+ mld_statusopdr_key
+ FROM (SELECT mld_opdr_key,
+ mld_melding_key || '/' || mld_opdr_bedrijfopdr_volgnr oid,
+ mld_opdr_datumbegin,
+ (SELECT fac_tracking_oms
+ FROM fac_tracking t2
+ WHERE t2.fac_tracking_key IN
+ (SELECT MAX (fac_tracking_key)
+ FROM fac_tracking t
+ WHERE fac_tracking_refkey = o.mld_opdr_key
+ AND fac_tracking_oms LIKE '%Opdrachtdatum:%'))
+ toms,
+ mld_statusopdr_key
+ FROM mld_opdr o
+ WHERE mld_melding_key || '/' || mld_opdr_bedrijfopdr_volgnr =
+ '113635/2'
+ OR mld_melding_key || '/' || mld_opdr_bedrijfopdr_volgnr =
+ '114201/1'
+ OR mld_melding_key || '/' || mld_opdr_bedrijfopdr_volgnr =
+ '114203/1'
+ OR mld_melding_key || '/' || mld_opdr_bedrijfopdr_volgnr =
+ '114319/1'
+ OR mld_melding_key || '/' || mld_opdr_bedrijfopdr_volgnr =
+ '114399/1'
+ OR mld_melding_key || '/' || mld_opdr_bedrijfopdr_volgnr =
+ '114415/1'
+ OR mld_melding_key || '/' || mld_opdr_bedrijfopdr_volgnr =
+ '114416/1'
+ OR mld_melding_key || '/' || mld_opdr_bedrijfopdr_volgnr =
+ '114419/1'
+ OR mld_melding_key || '/' || mld_opdr_bedrijfopdr_volgnr =
+ '114427/1'
+ OR mld_melding_key || '/' || mld_opdr_bedrijfopdr_volgnr =
+ '114429/1'
+ OR mld_melding_key || '/' || mld_opdr_bedrijfopdr_volgnr =
+ '114429/2'
+ OR mld_melding_key || '/' || mld_opdr_bedrijfopdr_volgnr =
+ '114429/3'
+ OR mld_melding_key || '/' || mld_opdr_bedrijfopdr_volgnr =
+ '114429/4'
+ OR mld_melding_key || '/' || mld_opdr_bedrijfopdr_volgnr =
+ '114437/2'
+ OR mld_melding_key || '/' || mld_opdr_bedrijfopdr_volgnr =
+ '114447/1'
+ OR mld_melding_key || '/' || mld_opdr_bedrijfopdr_volgnr =
+ '114449/1'
+ OR mld_melding_key || '/' || mld_opdr_bedrijfopdr_volgnr =
+ '114489/1'
+ OR mld_melding_key || '/' || mld_opdr_bedrijfopdr_volgnr =
+ '114558/1'
+ OR mld_melding_key || '/' || mld_opdr_bedrijfopdr_volgnr =
+ '114572/1'
+ OR mld_melding_key || '/' || mld_opdr_bedrijfopdr_volgnr =
+ '114589/1'
+ OR mld_melding_key || '/' || mld_opdr_bedrijfopdr_volgnr =
+ '114607/1'
+ OR mld_melding_key || '/' || mld_opdr_bedrijfopdr_volgnr =
+ '113009/4'
+ OR mld_melding_key || '/' || mld_opdr_bedrijfopdr_volgnr =
+ '113009/5'
+ OR mld_melding_key || '/' || mld_opdr_bedrijfopdr_volgnr =
+ '113682/1'
+ OR mld_melding_key || '/' || mld_opdr_bedrijfopdr_volgnr =
+ '114434/1'
+ OR mld_melding_key || '/' || mld_opdr_bedrijfopdr_volgnr =
+ '114566/1'
+ OR mld_melding_key || '/' || mld_opdr_bedrijfopdr_volgnr =
+ '114584/1')
+
+select * from mld_statusopdr
\ No newline at end of file
diff --git a/AA/AADO/Once/AADO#28926.sql b/AA/AADO/Once/AADO#28926.sql
new file mode 100644
index 000000000..d59bbdd5d
--- /dev/null
+++ b/AA/AADO/Once/AADO#28926.sql
@@ -0,0 +1,56 @@
+-- Customer specific once-script AADO#28926.sql to update contracttypes according to call
+--
+-- Support: +31 53 4800700
+
+SET ECHO ON
+SPOOL xAADO28926.lst
+SET DEFINE OFF
+
+-- key 201 is contractsoort CORE CAT
+UPDATE cnt_contract
+ SET ins_discipline_key = 201
+ WHERE cnt_contract_nummer IN (612, 613, 614) AND cnt_contract_versie = 1;
+
+-- key 201 is contractsoort CORE CAT
+UPDATE cnt_contract
+ SET ins_discipline_key = 201
+ WHERE cnt_contract_nummer IN (687, 688) AND cnt_contract_versie = 0;
+
+-- key 402 is contractsoort COR VAR CATE COFFEE
+UPDATE cnt_contract
+ SET ins_discipline_key = 402
+ WHERE cnt_contract_nummer = 692 AND cnt_contract_versie = 0;
+
+-- key 103 is contractsoort COR CLEA BUILDING OFFICE
+UPDATE cnt_contract
+ SET ins_discipline_key = 103
+ WHERE cnt_contract_nummer = 699 AND cnt_contract_versie = 0;
+
+-- key 701 is contractsoort COR VAR VENDING
+UPDATE cnt_contract
+ SET ins_discipline_key = 701
+ WHERE cnt_contract_nummer = 625 AND cnt_contract_versie = 1;
+
+-- key 701 is contractsoort COR VAR VENDING
+UPDATE cnt_contract
+ SET ins_discipline_key = 701
+ WHERE cnt_contract_nummer = 705 AND cnt_contract_versie = 0;
+
+-- key 721 is contractsoort COR VAR CLEA BUILDING SAN
+UPDATE cnt_contract
+ SET ins_discipline_key = 721
+ WHERE cnt_contract_nummer = 710 AND cnt_contract_versie = 0;
+
+-- KEY 301 is contractsoort COR LAND GREEN
+UPDATE cnt_contract
+ SET ins_discipline_key = 301
+ WHERE cnt_contract_nummer = 711 AND cnt_contract_versie = 0;
+
+-- KEY 741 is contractsoort COR KITCH EQUIPMENT
+UPDATE cnt_contract
+ SET ins_discipline_key = 741
+ WHERE cnt_contract_nummer = 614 AND cnt_contract_versie = 1;
+
+COMMIT;
+
+SPOOL OFF
\ No newline at end of file
diff --git a/AA/AADS/Once/AADS#28348.sql b/AA/AADS/Once/AADS#28348.sql
new file mode 100644
index 000000000..722e06f9c
--- /dev/null
+++ b/AA/AADS/Once/AADS#28348.sql
@@ -0,0 +1,23 @@
+-- aads#28218
+--
+--
+SET ECHO ON
+SPOOL AADS#28348.lst
+PROMPT $Revision$
+ALTER SESSION SET nls_territory='america';
+SET DEFINE OFF
+
+ ALTER TABLE aads_hv_freeze ADD (
+ sk_onderhoud NUMBER(11,5),
+ sk_utility NUMBER(11,5),
+ sk_overig NUMBER(11,5),
+ sk_korting NUMBER(11,5));
+
+ ALTER TABLE aads_hv_freeze MODIFY (
+ tarief_huur NUMBER(11,5),
+ tarief_service NUMBER(11,5));
+
+BEGIN adm.systrackscriptid('$Id$'); END;
+/
+
+SPOOL OFF
diff --git a/AA/AADS/Once/AADS#28974.sql b/AA/AADS/Once/AADS#28974.sql
new file mode 100644
index 000000000..aca05b823
--- /dev/null
+++ b/AA/AADS/Once/AADS#28974.sql
@@ -0,0 +1,35 @@
+
+UPDATE mld_stdmelding std
+ SET mld_stdmelding_uitvoertijd =
+ COALESCE (
+ (SELECT mld_stdmelding_uitvoertijd
+ FROM fac_imp_mld i,
+ ins_tab_discipline d,
+ ins_srtdiscipline sd
+ WHERE std.mld_ins_discipline_key = d.ins_discipline_key
+ AND d.ins_srtdiscipline_key = sd.ins_srtdiscipline_key
+ AND TRIM (sd.ins_srtdiscipline_omschrijving) =
+ TRIM (i.ins_srtdiscipline_omschrijving)
+ AND TRIM (d.ins_discipline_omschrijving) =
+ TRIM (i.ins_discipline_omschrijving)
+ AND TRIM (std.mld_stdmelding_omschrijving) =
+ TRIM (i.mld_stdmelding_omschrijving)),
+ mld_stdmelding_uitvoertijd)
+
+
+/* Formatted on 5-3-2014 16:00:00 (QP5 v5.136.908.31019) */
+SELECT std.mld_stdmelding_uitvoertijd,
+ (SELECT i.mld_stdmelding_uitvoertijd
+ FROM fac_imp_mld i, ins_tab_discipline d, ins_srtdiscipline sd
+ WHERE std.mld_ins_discipline_key = d.ins_discipline_key
+ AND d.ins_srtdiscipline_key = sd.ins_srtdiscipline_key
+ AND TRIM (sd.ins_srtdiscipline_omschrijving) =
+ TRIM (i.ins_srtdiscipline_omschrijving)
+ AND TRIM (d.ins_discipline_omschrijving) =
+ TRIM (i.ins_discipline_omschrijving)
+ AND TRIM (std.mld_stdmelding_omschrijving) =
+ TRIM (i.mld_stdmelding_omschrijving))
+ uitvoertijd,
+ std.*
+ FROM mld_stdmelding std
+ WHERE mld_stdmelding_verwijder IS NULL
\ No newline at end of file
diff --git a/AA/AADS/aads.sql b/AA/AADS/aads.sql
index b84026195..45a2e5aad 100644
--- a/AA/AADS/aads.sql
+++ b/AA/AADS/aads.sql
@@ -19,7 +19,7 @@ END;
/
-- budgettracker overrules
-CREATE OR REPLACE VIEW aads_v_export_budget_tracker (RESULT, result_order) AS SELECT RESULT, result_order FROM aaxx_v_export_budget_tracker;
+CREATE OR REPLACE VIEW aads_v_Export_Budget_tracker (RESULT, result_order) AS SELECT RESULT, result_order FROM aaxx_v_export_budget_tracker;
-- export overrules
-- exact
@@ -517,6 +517,7 @@ AS
CREATE OR REPLACE VIEW aads_v_rap_catering_verkoop
(
reservering,
+ afleveradres,
fclt_f_FDC,
FDC_omschrijving,
costcenter,
@@ -527,59 +528,68 @@ CREATE OR REPLACE VIEW aads_v_rap_catering_verkoop
totaal
)
AS
- SELECT reservering,
- kostenplaats_nr,
- kostenplaats,
- costcenter,
- boekingsdatum,
- periode,
- aanvrager,
- btw,
- SUM (totaalprijs)
- FROM (SELECT rrr.res_reservering_key || '/' || rrr.res_rsv_ruimte_volgnr
- reservering,
- k.prs_kostenplaats_nr kostenplaats_nr,
- k.prs_kostenplaats_omschrijving kostenplaats,
- (SELECT MAX (res_kenmerkreservering_waarde)
- FROM res_kenmerkwaarde kw, res_kenmerk rk
- WHERE kw.res_kenmerk_key = rk.res_kenmerk_key
- AND kw.res_rsv_ruimte_key = rrr.res_rsv_ruimte_key
- AND kw.res_kenmerkwaarde_verwijder IS NULL
- AND rk.res_srtkenmerk_key = 1)
- costcenter,
- TO_CHAR (res_rsv_artikel_levering, 'dd-mm-yyyy')
- boekingsdatum,
- TO_CHAR (ADD_MONTHS (rra.res_rsv_artikel_verwerkt, -1),
- 'yyyy-mm')
- periode,
- pf.prs_perslid_naam_full aanvrager,
- ra.res_artikel_btw btw,
- rra.res_rsv_artikel_prijs totaalprijs
- FROM res_rsv_artikel rra,
- res_rsv_ruimte rrr,
- prs_kostenplaats k,
- prs_perslid p,
- prs_afdeling a,
- prs_v_perslid_fullnames_all pf,
- res_artikel ra
- WHERE rra.res_status_bo_key = 6
- AND rra.res_rsv_ruimte_key = rrr.res_rsv_ruimte_key
- AND rrr.prs_kostenplaats_key = k.prs_kostenplaats_key
- AND rrr.res_rsv_ruimte_host_key = p.prs_perslid_key
- AND p.prs_afdeling_key = a.prs_afdeling_key
- AND p.prs_perslid_key = pf.prs_perslid_key
- AND rra.res_artikel_key = ra.res_artikel_key
- AND rra.res_rsv_artikel_levering >
- TO_DATE ('20110901', 'yyyymmdd'))
- GROUP BY reservering,
- kostenplaats_nr,
- kostenplaats,
- costcenter,
- boekingsdatum,
- periode,
- aanvrager,
- btw;
-
+ SELECT reservering,
+ afleveradres,
+ kostenplaats_nr,
+ kostenplaats,
+ costcenter,
+ boekingsdatum,
+ periode,
+ aanvrager,
+ btw,
+ SUM (totaalprijs)
+ FROM (SELECT rrr.res_reservering_key || '/' || rrr.res_rsv_ruimte_volgnr
+ reservering,
+ (SELECT alg_gebouw_code
+ FROM alg_gebouw g, alg_verdieping v, alg_ruimte r
+ WHERE r.alg_ruimte_key =
+ COALESCE (rrr.alg_ruimte_key, r2a.alg_ruimte_key)
+ AND r.alg_verdieping_key = v.alg_verdieping_key
+ AND v.alg_gebouw_key = g.alg_gebouw_key)
+ afleveradres,
+ k.prs_kostenplaats_nr kostenplaats_nr,
+ k.prs_kostenplaats_omschrijving kostenplaats,
+ (SELECT MAX (res_kenmerkreservering_waarde)
+ FROM res_kenmerkwaarde kw, res_kenmerk rk
+ WHERE kw.res_kenmerk_key = rk.res_kenmerk_key
+ AND kw.res_rsv_ruimte_key = rrr.res_rsv_ruimte_key
+ AND kw.res_kenmerkwaarde_verwijder IS NULL
+ AND rk.res_srtkenmerk_key = 1)
+ costcenter,
+ TO_CHAR (res_rsv_artikel_levering, 'dd-mm-yyyy') boekingsdatum,
+ TO_CHAR (ADD_MONTHS (rra.res_rsv_artikel_verwerkt, -1),
+ 'yyyy-mm')
+ periode,
+ pf.prs_perslid_naam_full aanvrager,
+ ra.res_artikel_btw btw,
+ rra.res_rsv_artikel_prijs totaalprijs
+ FROM res_rsv_artikel rra,
+ res_rsv_ruimte rrr,
+ prs_kostenplaats k,
+ prs_perslid p,
+ prs_afdeling a,
+ prs_v_perslid_fullnames_all pf,
+ res_v_rsv_ruimte_2_alg_ruimte r2a,
+ res_artikel ra
+ WHERE rra.res_status_bo_key = 6
+ AND rra.res_rsv_ruimte_key = rrr.res_rsv_ruimte_key
+ AND rrr.prs_kostenplaats_key = k.prs_kostenplaats_key
+ AND rrr.res_rsv_ruimte_host_key = p.prs_perslid_key
+ AND rrr.res_rsv_ruimte_key = r2a.res_rsv_ruimte_key(+)
+ AND p.prs_afdeling_key = a.prs_afdeling_key
+ AND p.prs_perslid_key = pf.prs_perslid_key
+ AND rra.res_artikel_key = ra.res_artikel_key
+ AND rra.res_rsv_artikel_levering >
+ TO_DATE ('20110901', 'yyyymmdd'))
+GROUP BY reservering,
+ afleveradres,
+ kostenplaats_nr,
+ kostenplaats,
+ costcenter,
+ boekingsdatum,
+ periode,
+ aanvrager,
+ btw;
CREATE OR REPLACE VIEW aads_V_RES_BY_FRONTO
(AANMAAK, SERVICEDESK, TOTAAL, PERCENTAGE)
@@ -717,6 +727,99 @@ GROUP BY v.kwartaal,
dsm_derden,
totaal;
+CREATE OR REPLACE VIEW aads_v_dwh_budget_track_m2
+(
+ kwartaal,
+ gebouw,
+ gebouweigenaar,
+ rema_cluster,
+ fm_cluster,
+ ruimtefunctie,
+ m2,
+ dsm_derden,
+ debnr,
+ afdeling,
+ afdelingomschrijving,
+ fdc,
+ totaalgebouw
+)
+AS
+ SELECT kwartaal,
+ geb_code,
+ eigenaar,
+ rema,
+ fm,
+ 'KA',
+ SUM (teken_opp),
+ dsm_derden,
+ debiteur,
+ huurder_nummer,
+ huurder_naam,
+ fdc,
+ totaal
+ FROM (SELECT v.kwartaal + 0 kwartaal,
+ v.eigenaar,
+ v.fdc,
+ huurder_naam,
+ huurder_nummer,
+ v.geb_code,
+ rema,
+ fm,
+ debiteur,
+ dsm_derden,
+ totaal,
+ teken_opp
+ FROM aads_hv_freeze v,
+ ( SELECT SUM (teken_opp) totaal, geb_code, kwartaal
+ FROM aads_hv_freeze v1
+ WHERE v1.code LIKE 'KA%'
+ AND COALESCE (huurder_nummer, '1') NOT LIKE '%.99'
+ GROUP BY geb_code, kwartaal) totaal_gebouw
+ WHERE v.code LIKE 'KA%'
+ AND v.geb_code = totaal_gebouw.geb_code
+ AND v.kwartaal = totaal_gebouw.kwartaal
+ AND COALESCE (huurder_nummer, '1') NOT LIKE '%.99'
+ UNION ALL
+ SELECT SUBSTR (v.kwartaal, 1, 4) + 1 kwartaal,
+ v.eigenaar,
+ fdc,
+ huurder_naam,
+ huurder_nummer,
+ v.geb_code,
+ rema,
+ fm,
+ debiteur,
+ dsm_derden,
+ totaal,
+ teken_opp
+ FROM aads_hv_freeze v,
+ ( SELECT SUM (teken_opp) totaal, geb_code, kwartaal
+ FROM aads_hv_freeze v1
+ WHERE v1.code LIKE 'KA%'
+ AND COALESCE (huurder_nummer, '1') NOT LIKE '%.99'
+ GROUP BY geb_code, kwartaal) totaal_gebouw
+ WHERE v.code LIKE 'KA%'
+ AND v.geb_code = totaal_gebouw.geb_code
+ AND v.kwartaal = totaal_gebouw.kwartaal
+ AND COALESCE (huurder_nummer, '1') NOT LIKE '%.99'
+ AND v.kwartaal =
+ fac.safe_to_number (TO_CHAR (SYSDATE, 'yyyy') - 1)
+ || '2') v
+ GROUP BY v.kwartaal,
+ v.eigenaar,
+ v.fdc,
+ huurder_naam,
+ huurder_nummer,
+ v.geb_code,
+ rema,
+ fm,
+ debiteur,
+ dsm_derden,
+ totaal;
+
+
+-- en maak deze view beschikbaar voor het DWH
+GRANT SELECT ON aads_v_dwh_budget_track_m2 TO aafm;
--
-- Huisvesting
@@ -780,6 +883,10 @@ BEGIN
, bezetting
, tarief_huur
, tarief_service
+ , sk_onderhoud
+ , sk_utility
+ , sk_overig
+ , sk_korting
, rema
, fm
)
@@ -802,6 +909,10 @@ BEGIN
bezetting,
tarief_huur,
tarief_service,
+ tarief_service2,
+ tarief_service3,
+ tarief_service4,
+ tarief_service5,
rema,
fm
FROM aads_v_hv_detail
@@ -827,6 +938,10 @@ BEGIN
NULL,
NULL,
NULL,
+ NULL,
+ NULL,
+ NULL,
+ NULL,
NULL
FROM (SELECT (SELECT COALESCE (fac_usrdata_omschr, 'Onbekend')
FROM alg_onrgoedkenmerk ok, fac_usrdata ud
@@ -1287,16 +1402,17 @@ AS
fdc,
bezetting,
decode (verhuurbaar, 1, 'Ja', 'Nee'),
- tarief_huur,
- tarief_service2,
- tarief_service3,
- tarief_service4,
- tarief_service5,
- tarief_service
+ to_char(tarief_huur, '999990D99999', 'NLS_NUMERIC_CHARACTERS = '',.'''),
+ to_char(tarief_service2, '999990D99999', 'NLS_NUMERIC_CHARACTERS = '',.'''),
+ to_char(tarief_service3, '999990D99999', 'NLS_NUMERIC_CHARACTERS = '',.'''),
+ to_char(tarief_service4, '999990D99999', 'NLS_NUMERIC_CHARACTERS = '',.'''),
+ to_char(tarief_service5, '999990D99999', 'NLS_NUMERIC_CHARACTERS = '',.'''),
+ to_char(tarief_service, '999990D99999', 'NLS_NUMERIC_CHARACTERS = '',.''')
FROM aads_v_hv_detail;
-- Freeze rapportage over voorgaande freezes
-CREATE OR REPLACE VIEW aads_v_rap_hv_freeze (
+CREATE OR REPLACE VIEW aads_v_rap_hv_freeze
+(
fclt_f_kwartaal,
fclt_f_eigenaar,
fclt_f_loc_code,
@@ -1312,8 +1428,12 @@ CREATE OR REPLACE VIEW aads_v_rap_hv_freeze (
fclt_f_fdc,
bezetting,
tarief_huur,
+ sk_onderhoud,
+ sk_utility,
+ sk_overig,
+ sk_korting,
tarief_service
- )
+)
AS
SELECT kwartaal,
eigenaar,
@@ -1329,9 +1449,25 @@ AS
huurder_naam,
fdc,
bezetting,
- tarief_huur,
- tarief_service
- FROM aads_hv_freeze;
+ TO_CHAR (tarief_huur,
+ '999990D99999',
+ 'NLS_NUMERIC_CHARACTERS = '',.'''),
+ TO_CHAR (sk_onderhoud,
+ '999990D99999',
+ 'NLS_NUMERIC_CHARACTERS = '',.'''),
+ TO_CHAR (sk_utility,
+ '999990D99999',
+ 'NLS_NUMERIC_CHARACTERS = '',.'''),
+ TO_CHAR (sk_overig,
+ '999990D99999',
+ 'NLS_NUMERIC_CHARACTERS = '',.'''),
+ TO_CHAR (sk_korting,
+ '999990D99999',
+ 'NLS_NUMERIC_CHARACTERS = '',.'''),
+ TO_CHAR (tarief_service,
+ '999990D99999',
+ 'NLS_NUMERIC_CHARACTERS = '',.''')
+ FROM aads_hv_freeze;
-- Freeze rapportage over voorgaande freezes naar DWH
@@ -1351,7 +1487,11 @@ CREATE OR REPLACE VIEW aads_v_dwh_hv_freeze (
fdc,
bezetting,
tarief_huur,
- tarief_service
+ tarief_service,
+ sk_onderhoud,
+ sk_utility,
+ sk_overig,
+ sk_korting
)
AS
SELECT kwartaal,
@@ -1369,7 +1509,11 @@ AS
fdc,
bezetting,
tarief_huur,
- tarief_service
+ tarief_service,
+ sk_onderhoud,
+ sk_utility,
+ sk_overig,
+ sk_korting
FROM aads_hv_freeze;
-- en maak deze view beschikbaar voor het DWH
@@ -2010,7 +2154,7 @@ BEGIN adm.systrackscriptId('$Id$', 0); END;
/
-BEGIN fac.registercustversion('AADS', 39); END;
+BEGIN fac.registercustversion('AADS', 42); END;
/
COMMIT;
diff --git a/AA/AAEN/Once/AAEN#28419.sql b/AA/AAEN/Once/AAEN#28419.sql
new file mode 100644
index 000000000..b88da6dc7
--- /dev/null
+++ b/AA/AAEN/Once/AAEN#28419.sql
@@ -0,0 +1,67 @@
+CREATE TABLE tmp_imp_aanw
+(
+ ins_srtdiscipline_omschrijving VARCHAR2 (100),
+ ins_srtdiscipline_prefix VARCHAR2 (100),
+ ins_discipline_omschrijving VARCHAR2 (100),
+ mld_stdmelding_omschrijving VARCHAR2 (100),
+ aanwijzing VARCHAR2 (1000)
+)
+
+-- pas de hint aan
+UPDATE mld_stdmelding std
+ SET mld_stdmelding_hint =
+ (SELECT aanwijzing
+ FROM ins_tab_discipline d, ins_srtdiscipline sd, tmp_imp_aanw i
+ WHERE i.ins_srtdiscipline_prefix = sd.ins_srtdiscipline_prefix
+ AND TRIM (i.ins_discipline_omschrijving) =
+ d.ins_discipline_omschrijving
+ AND TRIM (i.mld_stdmelding_omschrijving) =
+ std.mld_stdmelding_omschrijving
+ AND sd.ins_srtdiscipline_key = d.ins_srtdiscipline_key
+ AND d.ins_discipline_key = std.mld_ins_discipline_key)
+ WHERE EXISTS
+ (SELECT mld_stdmelding_key
+ FROM ins_tab_discipline d, ins_srtdiscipline sd, tmp_imp_aanw i
+ WHERE i.ins_srtdiscipline_prefix = sd.ins_srtdiscipline_prefix
+ AND TRIM (i.ins_discipline_omschrijving) =
+ d.ins_discipline_omschrijving
+ AND TRIM (i.mld_stdmelding_omschrijving) =
+ std.mld_stdmelding_omschrijving
+ AND sd.ins_srtdiscipline_key = d.ins_srtdiscipline_key
+ AND d.ins_discipline_key = std.mld_ins_discipline_key)
+
+
+
+
+-- Hoeveel regels uit het importbestand kunnen niet gevonden worden.
+SELECT ins_discipline_omschrijving, mld_stdmelding_omschrijving
+ FROM tmp_imp_aanw i
+ WHERE NOT EXISTS
+ (SELECT mld_stdmelding_key
+ FROM ins_tab_discipline d,
+ ins_srtdiscipline sd,
+ mld_stdmelding std
+ WHERE i.ins_srtdiscipline_prefix = sd.ins_srtdiscipline_prefix
+ AND TRIM (i.ins_discipline_omschrijving) =
+ d.ins_discipline_omschrijving
+ AND TRIM (i.mld_stdmelding_omschrijving) =
+ std.mld_stdmelding_omschrijving
+ AND sd.ins_srtdiscipline_key = d.ins_srtdiscipline_key
+ AND d.ins_discipline_key = std.mld_ins_discipline_key)
+
+
+-- controleer de inhoud van de hint kolom.
+SELECT mld_stdmelding_hint
+ FROM mld_stdmelding std
+ WHERE EXISTS
+ (SELECT mld_stdmelding_key
+ FROM ins_tab_discipline d, ins_srtdiscipline sd, tmp_imp_aanw i
+ WHERE i.ins_srtdiscipline_prefix = sd.ins_srtdiscipline_prefix
+ AND TRIM (i.ins_discipline_omschrijving) =
+ d.ins_discipline_omschrijving
+ AND TRIM (i.mld_stdmelding_omschrijving) =
+ std.mld_stdmelding_omschrijving
+ AND sd.ins_srtdiscipline_key = d.ins_srtdiscipline_key
+ AND d.ins_discipline_key = std.mld_ins_discipline_key)
+
+DROP TABLE tmp_imp_aanw;
\ No newline at end of file
diff --git a/AA/AAEN/Once/AAEN#28605.sql b/AA/AAEN/Once/AAEN#28605.sql
new file mode 100644
index 000000000..bf461f58a
--- /dev/null
+++ b/AA/AAEN/Once/AAEN#28605.sql
@@ -0,0 +1,67 @@
+
+
+
+INSERT INTO prs_kostenplaats (prs_kostenplaats_nr, prs_kostenplaats_omschrijving, prs_kostenplaats_module)
+ SELECT prs_kostenplaats_nr, prs_afdeling_omschrijving, 'PRS'
+ FROM fac_imp_organisatie;
+
+
+INSERT INTO prs_afdeling (prs_bedrijf_key,
+ prs_afdeling_parentkey,
+ prs_afdeling_naam,
+ prs_afdeling_omschrijving,
+ prs_kostenplaats_key)
+ SELECT 2,
+ NULL,
+ prs_afdeling_naam_parent,
+ prs_afdeling_omschrijving,
+ (SELECT prs_kostenplaats_key
+ FROM prs_kostenplaats k
+ WHERE k.prs_kostenplaats_nr = i.prs_kostenplaats_nr)
+ prs_kostenplaats_key
+ FROM fac_imp_organisatie i;
+
+INSERT INTO prs_kenmerklink (prs_link_key,
+ prs_kenmerklink_niveau,
+ prs_kenmerk_key,
+ prs_kenmerklink_waarde)
+ SELECT prs_afdeling_key,
+ 'A',
+ 1080,
+ 1
+ FROM prs_afdeling
+ WHERE prs_afdeling_aanmaak > SYSDATE - 1;
+
+INSERT INTO prs_kenmerklink (prs_link_key,
+ prs_kenmerklink_niveau,
+ prs_kenmerk_key,
+ prs_kenmerklink_waarde)
+ SELECT prs_afdeling_key,
+ 'A',
+ 1081,
+ 2
+ FROM prs_afdeling
+ WHERE prs_afdeling_aanmaak > SYSDATE - 1;
+
+
+UPDATE prs_ruimteafdeling
+ SET prs_ruimteafdeling_verwijder = SYSDATE
+ WHERE alg_ruimte_key IN
+ (SELECT alg_ruimte_key
+ FROM alg_v_ruimte_gegevens rg, fac_imp_onrgoed2 i
+ WHERE rg.alg_locatie_code = i.alg_locatie_code
+ AND rg.alg_gebouw_upper = i.alg_gebouw_code
+ AND rg.alg_verdieping_volgnr = i.alg_verdieping_volgnr
+ AND rg.alg_ruimte_nr = i.alg_ruimte_nr)
+ AND prs_ruimteafdeling_verwijder IS NULL;
+
+SELECT *
+ FROM prs_ruimteafdeling
+ WHERE alg_ruimte_key IN
+ (SELECT alg_ruimte_key
+ FROM alg_v_ruimte_gegevens rg, fac_imp_onrgoed2 i
+ WHERE rg.alg_locatie_code = i.alg_locatie_code
+ AND rg.alg_gebouw_upper = i.alg_gebouw_code
+ AND rg.alg_verdieping_volgnr = i.alg_verdieping_volgnr
+ AND rg.alg_ruimte_nr = i.alg_ruimte_nr)
+ AND prs_ruimteafdeling_verwijder IS NULL;
\ No newline at end of file
diff --git a/AA/AAEN/Once/AAEN#28609.sql b/AA/AAEN/Once/AAEN#28609.sql
new file mode 100644
index 000000000..0d08775bd
--- /dev/null
+++ b/AA/AAEN/Once/AAEN#28609.sql
@@ -0,0 +1,6 @@
+/* Formatted on 27-1-2014 9:25:20 (QP5 v5.136.908.31019) */
+SELECT COALESCE (LENGTH (fac_faq_question), 0)
+ + COALESCE (LENGTH (fac_faq_answer), 0)
+ + COALESCE (LENGTH (fac_faq_hint), 0),
+ f.*
+ FROM fac_faq f
\ No newline at end of file
diff --git a/AA/AAEN/Once/AAEN#28638.sql b/AA/AAEN/Once/AAEN#28638.sql
new file mode 100644
index 000000000..cfb6ef47c
--- /dev/null
+++ b/AA/AAEN/Once/AAEN#28638.sql
@@ -0,0 +1,13 @@
+
+UPDATE mld_opdr o
+ SET mld_statusopdr_key = 6
+ WHERE mld_melding_key = 150121
+ AND o.mld_opdr_bedrijfopdr_volgnr = 2
+ AND mld_statusopdr_key = 1;
+
+INSERT INTO fac_tracking (fac_tracking_refkey,
+ fac_srtnotificatie_key,
+ fac_tracking_oms)
+ VALUES (50799, 96, 'Opdracht op verzoek van AAFM afgemeld');
+
+
\ No newline at end of file
diff --git a/AA/AAEN/Once/AAEN#28718.sql b/AA/AAEN/Once/AAEN#28718.sql
new file mode 100644
index 000000000..5ec7a06b3
--- /dev/null
+++ b/AA/AAEN/Once/AAEN#28718.sql
@@ -0,0 +1,20 @@
+SET ECHO ON
+SET DEFINE ON
+
+spool xAAEN#28718.lst
+SET DEFINE OFF
+
+
+UPDATE fac_import_app
+ SET fac_import_app_code = 'PERSLID'
+ WHERE fac_import_app_code = 'PERSLID_MUT';
+
+DROP PROCEDURE aaen_import_perslid_mut;
+
+DROP PROCEDURE aaen_update_perslid_mut;
+
+BEGIN adm.systrackscriptid('$Id$'); END;
+/
+
+COMMIT;
+SPOOL OFF
diff --git a/AA/AAEN/Once/AAEN#28771.sql b/AA/AAEN/Once/AAEN#28771.sql
new file mode 100644
index 000000000..a9e56f66b
--- /dev/null
+++ b/AA/AAEN/Once/AAEN#28771.sql
@@ -0,0 +1,3 @@
+update mld_melding set mld_stdmelding_key = 2101 where mld_stdmelding_key = 581 and mld_melding_datum = to_date('20140101', 'yyyymmdd')
+16 rows updated
+
diff --git a/AA/AAEN/Once/AAEN#28825.sql b/AA/AAEN/Once/AAEN#28825.sql
new file mode 100644
index 000000000..33f73cf90
--- /dev/null
+++ b/AA/AAEN/Once/AAEN#28825.sql
@@ -0,0 +1,18 @@
+/* Formatted on 14-2-2014 14:18:28 (QP5 v5.136.908.31019) */
+DECLARE
+ CURSOR c
+ IS
+ SELECT 1392367647150 * prs_perslid_key ww, prs_perslid_key
+ FROM prs_perslid
+ WHERE prs_perslid_verwijder IS NULL
+ AND prs_perslid_wachtwoord_hash IS NULL;
+BEGIN
+ FOR rec IN c
+ LOOP
+ BEGIN
+ prs.setpassword (rec.prs_perslid_key, TO_CHAR (rec.ww));
+ END;
+ END LOOP;
+
+ COMMIT;
+END;
\ No newline at end of file
diff --git a/AA/AAEN/aaen.sql b/AA/AAEN/aaen.sql
index 577dff929..4e4f16642 100644
--- a/AA/AAEN/aaen.sql
+++ b/AA/AAEN/aaen.sql
@@ -268,7 +268,7 @@ BEGIN
AND m.mld_stdmelding_key = std.mld_stdmelding_key
AND std.mld_ins_discipline_key = d.ins_discipline_key
AND d.ins_srtdiscipline_key = sd.ins_srtdiscipline_key
- AND ks.prs_kostensoort_oms LIKE 'NC P %'
+ AND (ks.prs_kostensoort_oms LIKE 'NC P %' OR ks.prs_kostensoort_oms LIKE 'NC PROJ%')
AND fg.prs_kostensoort_key = ks.prs_kostensoort_key(+);
@@ -826,10 +826,10 @@ AS
BEGIN
-- Facilitor
v_aanvrager := 4;
- -- DSM: Arcadis Aqumen kostenplaats key
- v_prs_kostenplaats_key := 1261;
+ -- 911165 Enexis Demand kostenplaats key
+ v_prs_kostenplaats_key := 1762;
-- stdmelding key voor recharge
- v_mld_stdmelding_key := 581;
+ v_mld_stdmelding_key := 2101;
-- key van opdrachttype workorder
v_mld_workorder_key := 3;
-- key van dienst catering
@@ -968,6 +968,80 @@ END;
/
+CREATE OR REPLACE VIEW aaen_v_rap_catering_export
+(
+ extern_factuurnummer,
+ datum_factuur,
+ crediteurnummer,
+ naam_bedrijfsonderdeel,
+ budgethouder,
+ kostenplaats,
+ ordernummer,
+ ordernummer_klant,
+ btw,
+ bedrag_excl,
+ bedrag_btw,
+ bedrag_incl,
+ fclt_f_periode
+)
+AS
+ SELECT 'N/A',
+ 'N/A',
+ '809062',
+ kostenplaats,
+ 'N/A',
+ pers_kostenplaats,
+ reservering,
+ '',
+ TO_CHAR (btw) btw,
+ SUM (totaalprijs) bedragexcl,
+ ROUND (SUM (totaalprijs) * (btw / 100), 2) bedragbtw,
+ ROUND (SUM (totaalprijs) * (1 + btw / 100), 2) bedragincl,
+ periode
+ FROM (SELECT rrr.res_reservering_key || '/' || rrr.res_rsv_ruimte_volgnr
+ reservering,
+ k.prs_kostenplaats_omschrijving kostenplaats,
+ (SELECT prs_kenmerklink_waarde
+ FROM prs_kenmerklink
+ WHERE prs_kenmerk_key = 1000
+ AND prs_link_key = rrr.res_rsv_ruimte_host_key)
+ pers_kostenplaats,
+ TO_CHAR (ADD_MONTHS (rra.res_rsv_artikel_verwerkt, -1),
+ 'yyyy-mm')
+ periode,
+ ra.res_artikel_btw btw,
+ rra.res_rsv_artikel_prijs totaalprijs
+ FROM res_rsv_artikel rra,
+ res_rsv_ruimte rrr,
+ prs_kostenplaats k,
+ res_artikel ra,
+ ( SELECT res_rsv_ruimte_key,
+ MAX (alg_gebouw_key) alg_gebouw_key
+ FROM (SELECT rrr.res_rsv_ruimte_key,
+ (SELECT alg_gebouw_key
+ FROM alg_verdieping v, alg_ruimte r
+ WHERE v.alg_verdieping_key =
+ r.alg_verdieping_key
+ AND r.alg_ruimte_key =
+ COALESCE (r2ar.alg_ruimte_key,
+ rrr.alg_ruimte_key))
+ alg_gebouw_key
+ FROM res_v_rsv_ruimte_2_alg_ruimte r2ar,
+ res_v_aanwezigrsv_ruimte rrr
+ WHERE rrr.res_rsv_ruimte_key =
+ r2ar.res_rsv_ruimte_key(+))
+ GROUP BY res_rsv_ruimte_key) rg
+ WHERE rra.res_status_bo_key = 6
+ AND rra.res_rsv_ruimte_key = rrr.res_rsv_ruimte_key
+ AND rrr.prs_kostenplaats_key = k.prs_kostenplaats_key(+)
+ AND rra.res_artikel_key = ra.res_artikel_key
+ AND rrr.res_rsv_ruimte_key = rg.res_rsv_ruimte_key)
+ GROUP BY reservering,
+ kostenplaats,
+ pers_kostenplaats,
+ periode,
+ btw;
+
-- export leaseopdracht naar leasemaatschappij
CREATE OR REPLACE PROCEDURE aaen_export_lease_aanvraag (
p_applname IN VARCHAR2,
@@ -1113,186 +1187,82 @@ END aaen_export_lease_aanvraag;
--
-CREATE OR REPLACE PROCEDURE aaen_import_perslid_mut (p_import_key IN NUMBER)
+CREATE OR REPLACE PROCEDURE aaen_import_perslid (p_import_key IN NUMBER)
AS
- c_fielddelimitor VARCHAR2 (1) := ';';
- v_newline VARCHAR2 (1000); -- Input line
- v_errormsg VARCHAR2 (1000);
- v_errorhint VARCHAR2 (1000);
- oracle_err_num NUMBER;
- oracle_err_mes VARCHAR2 (200);
- header_is_valid NUMBER;
- v_count NUMBER;
- v_ongeldig NUMBER (1);
- v_mode NUMBER (1);
- v_aanduiding VARCHAR2 (200);
- v_all_null BOOLEAN;
- v_count_error NUMBER (10);
- v_count_tot NUMBER (10);
- v_count_import NUMBER (10);
- -- De importvelden:
- v_alg_locatie_code VARCHAR2 (256);
- v_alg_gebouw_code VARCHAR2 (256);
- v_alg_verdieping_volgnr VARCHAR2 (256);
- v_alg_verdieping_volgnr_num NUMBER (3);
- v_alg_ruimte_nr VARCHAR2 (256);
- v_prs_werkplek_volgnr VARCHAR2 (256);
- v_prs_werkplek_volgnr_num NUMBER (3);
- v_prs_werkplek_omschrijving VARCHAR2 (256);
- v_prs_afdeling_naam VARCHAR2 (256);
- v_prs_afdeling_omschrijving VARCHAR2 (256);
- v_prs_perslid_naam VARCHAR2 (256);
- v_prs_perslid_tussenvoegsel VARCHAR2 (256);
- v_prs_perslid_voorletters VARCHAR2 (256);
- v_prs_perslid_voornaam VARCHAR2 (256);
- v_prs_perslid_titel VARCHAR2 (256);
- v_prs_perslid_telefoonnr VARCHAR2 (256);
- v_prs_perslid_geslacht VARCHAR2(256);
- v_prs_perslid_mobiel VARCHAR2 (256);
- v_prs_perslid_email VARCHAR2 (256);
- v_prs_srtperslid_omschrijving VARCHAR2 (256);
- v_prs_perslid_nr VARCHAR2 (256);
- v_prs_perslid_oslogin VARCHAR2 (256);
- v_old_login VARCHAR2 (256);
- v_dummy VARCHAR2 (256);
- v_tekst VARCHAR2 (4000);
+ CURSOR c IS
+ SELECT alg_locatie_code, alg_gebouw_code, prs_perslid_nr FROM fac_imp_perslid;
- CURSOR c1
- IS
- SELECT *
- FROM fac_imp_file
- WHERE fac_import_key = p_import_key
- ORDER BY fac_imp_file_index;
+ oracle_err_num NUMBER;
+ oracle_err_mes VARCHAR2 (200);
+ v_errormsg VARCHAR2 (400);
+ v_errorhint VARCHAR2 (400);
+
+ v_alg_ruimte_key NUMBER;
+ v_alg_verdieping_volgnr NUMBER;
+ v_alg_ruimte_nr VARCHAR2(10);
BEGIN
- DELETE FROM fac_imp_perslid;
+
+ v_errorhint := 'Generieke update';
+ -- de sequence array staat beschreven in PRS_PAC.SRC bij de prs.import_perslid proc
+ prs.import_perslid (p_import_key,
+ '1;2;0;0;0;0;3;4;5;7;' ||
+ '6;19;18;0;8;9;10;11;0;13;' ||
+ '12;14;0;0;0;0;17;15;0;0;'||
+ '0;0;0;0;0;0;0;0;0;0;'||
+ '0;0;0;0;0;0',
+ ''
+ );
- COMMIT;
- v_count_error := 0;
- header_is_valid := 0;
- v_count_tot := 0;
- v_count_import := 0;
- v_aanduiding := '';
- v_old_login := 'QueQeLeQue';
+ -- Klantspecifieke aanpassingen
+
+ -- Codering naamgebruik Enexis:
+ -- 00 - Gebruik eigennaam
+ -- 01 - Gebruik partnernaam
+ -- 02 - Gebruik eigennaam - partnernaam
+ -- 03 - Gebruik partnernaam - eigennaam
+ UPDATE fac_imp_perslid SET PRS_PERSLID_NAAMGEBRUIK_CODE = 0 WHERE PRS_KENMERK1 = '00'; -- 0 (default) perslid_naam en perslid_tussenvoegsel worden gebruikt
+ UPDATE fac_imp_perslid SET PRS_PERSLID_NAAMGEBRUIK_CODE = 1 WHERE PRS_KENMERK1 = '03'; -- 1 personen die de geboortenaam van de partner icm de eigen naam willen gebruiken
+ UPDATE fac_imp_perslid SET PRS_PERSLID_NAAMGEBRUIK_CODE = 2 WHERE PRS_KENMERK1 = '01'; -- 2 personen die de geboortenaam van de partner willen gebruiken
+ UPDATE fac_imp_perslid SET PRS_PERSLID_NAAMGEBRUIK_CODE = 3 WHERE PRS_KENMERK1 = '02'; -- 3 personen die de eigen naam icm de geboortenaam van de partner willen gebruiken
- FOR rec1 IN c1
+ -- default werkplek invullen
+/*
+ FOR rec in c
LOOP
BEGIN
-
- v_alg_locatie_code := NULL;
- v_alg_gebouw_code := NULL;
- v_alg_verdieping_volgnr := NULL;
-
- v_errormsg := 'Fout FETCH te importeren rij';
-
- v_newline := rec1.fac_imp_file_line;
- v_errormsg := '';
- v_errorhint := 'Fout opvragen te importeren rij';
- v_aanduiding := '';
- v_ongeldig := 0;
-
- -- Lees alle veldwaarden
- -- 01
- fac.imp_getfield (v_newline, c_fielddelimitor, v_alg_locatie_code);
- -- 02
- fac.imp_getfield (v_newline, c_fielddelimitor, v_alg_gebouw_code);
- -- 03
- fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_afdeling_naam);
- -- 04
- fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_naam);
- -- 05
- fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_tussenvoegsel);
- -- 06
- fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_voorletters);
- -- 07
- fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_voornaam);
- -- 08
- fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_geslacht);
- -- 09
- fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_telefoonnr);
- -- 10
- fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_mobiel);
- -- 11
- fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_email);
- -- 12
- fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_srtperslid_omschrijving);
- -- 13
- fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_nr);
- -- 14
- fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_oslogin);
- --
- v_aanduiding := v_prs_perslid_naam || ' - ';
-
- v_count_tot := v_count_tot + 1;
- v_errorhint := 'Ongeldige import regel';
-
-
- --
- -- Insert geformatteerde import record
- IF v_ongeldig = 0
+ SELECT MAX(alg_ruimte_key)
+ INTO v_alg_ruimte_key
+ FROM prs_v_werkplek_gegevens wpg, prs_perslidwerkplek pwp, prs_perslid p
+ WHERE wpg.prs_werkplek_key = pwp.prs_werkplek_key
+ AND pwp.prs_perslid_key = p.prs_perslid_key
+ AND p.prs_perslid_nr = rec.prs_perslid_nr
+ AND wpg.alg_gebouw_code = rec.alg_gebouw_code;
+
+ IF v_alg_ruimte_key IS NULL
THEN
- v_errormsg := 'Fout bij toevoegen te impoteren bedrijf/afdeling [' || v_prs_afdeling_naam || ']';
-
- INSERT INTO fac_imp_perslid (
- alg_locatie_code,
- alg_gebouw_code,
- prs_afdeling_naam,
- prs_perslid_naam,
- prs_perslid_tussenvoegsel,
- prs_perslid_voorletters,
- prs_perslid_voornaam,
- prs_perslid_telefoonnr,
- prs_perslid_mobiel,
- prs_perslid_email,
- prs_srtperslid_omschrijving,
- prs_perslid_nr,
- prs_perslid_oslogin
- )
- VALUES (
- substr(v_alg_locatie_code,1,10),
- substr(v_alg_gebouw_code,1,12),
- substr(v_prs_afdeling_naam,1,10),
- substr(v_prs_perslid_naam,1,60),
- substr(v_prs_perslid_tussenvoegsel,1,15),
- substr(v_prs_perslid_voorletters,1,10),
- substr(v_prs_perslid_voornaam,1,30),
- substr(v_prs_perslid_telefoonnr,1,15),
- substr(v_prs_perslid_mobiel,1,15),
- substr(v_prs_perslid_email,1,200),
- substr(v_prs_srtperslid_omschrijving, 1, 60),
- substr(v_prs_perslid_nr,1,16),
- UPPER(v_prs_perslid_oslogin)
- );
-
- v_count_import := v_count_import + 1;
+ SELECT MAX(alg_ruimte_key)
+ INTO v_alg_ruimte_key
+ FROM alg_v_ruimte_gegevens
+ WHERE alg_gebouw_upper = rec.alg_gebouw_code
+ AND alg_ruimte_nr = '000';
END IF;
+
+ IF v_alg_ruimte_key IS NOT NULL
+ THEN
+ SELECT alg_verdieping_volgnr, alg_ruimte_nr
+ INTO v_alg_verdieping_volgnr, v_alg_ruimte_nr
+ FROM alg_v_ruimte_gegevens
+ WHERE alg_ruimte_key = v_alg_ruimte_key;
+
+ UPDATE fac_imp_perslid
+ SET alg_verdieping_volgnr = v_alg_verdieping_volgnr,
+ alg_ruimte_nr = v_alg_ruimte_nr
+ WHERE prs_perslid_nr = rec.prs_perslid_nr;
+ END IF;
END;
END LOOP;
-
- -- het personeelsnummer van Enexis is altijd 8 posities. Als dit bij één van de personen
- -- niet het geval is zal het bestand afgekeurd worden. Hiermee voorkomen we dat bestanden
- -- die in Excel geopend zijn alsnog ingelezen gaan worden.
- SELECT count(prs_perslid_nr)
- INTO v_count_error
- FROM fac_imp_perslid
- WHERE LENGTH (COALESCE(prs_perslid_nr, 'leeg')) <> 8;
-
- IF v_count_error > 0
- THEN
- fac.imp_writelog (p_import_key,
- 'E',
- 'Persoon: ongeldig import bestand. Aantal regels met verkeerd personeelsnummer: ' || TO_CHAR (v_count_error),
- ''
- );
- DELETE fac_imp_perslid;
- END IF;
-
- fac.imp_writelog (p_import_key, 'S', 'Persoon: aantal ingelezen regels: ' || TO_CHAR (v_count_tot), '');
- fac.imp_writelog (p_import_key,
- 'S',
- 'Persoon: aantal ongeldige importregels: ' || TO_CHAR (v_count_tot - v_count_import),
- ''
- );
+*/
COMMIT;
EXCEPTION
@@ -1301,13 +1271,13 @@ EXCEPTION
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
v_errormsg := 'Error ' || oracle_err_num || '/' || oracle_err_mes;
- fac.imp_writelog (p_import_key, 'E', v_aanduiding || v_errormsg, v_errorhint);
-END aaen_import_perslid_mut;
+ fac.imp_writelog (p_import_key, 'E', v_errormsg, v_errorhint);
+END aaen_import_perslid;
/
-/* Formatted on 27-9-2012 17:20:05 (QP5 v5.115.810.9015) */
-CREATE OR REPLACE PROCEDURE aaen_update_perslid_mut (p_import_key IN NUMBER)
+
+CREATE OR REPLACE PROCEDURE aaen_update_perslid (p_import_key IN NUMBER)
IS
CURSOR c
IS
@@ -1322,11 +1292,13 @@ IS
AND p.prs_perslid_verwijder IS NULL
ORDER BY 2;
- CURSOR c_imp
- IS
- SELECT *
- FROM fac_imp_file
- WHERE fac_import_key = p_import_key;
+CURSOR c_flex
+IS
+ SELECT i.*, p.prs_perslid_key
+ FROM fac_imp_perslid i, prs_perslid p
+ WHERE p.prs_perslid_nr = i.prs_perslid_nr
+ AND p.prs_perslid_verwijder IS NULL
+ ORDER BY 2;
-- Maximaal toegestane afname van #personen door import!
c_max_delta_percentage NUMBER (10) := 20;
@@ -1354,52 +1326,24 @@ BEGIN
THEN
-- Geldig importbestand wat betreft aantal personen
-- generic update
- aaxx.fac_gen_update_perslid (p_import_key,
- 'NR',
- 0,
- '000');
+ prs.update_perslid (p_import_key, 'NR', '');
-- remove perslid records if people registered with perslid_nr are not present in the import file.
FOR rec IN c
LOOP
BEGIN
- aaxx.prs_del_perslid (p_import_key, rec.prs_perslid_key, 0);
+ prs.delete_perslid (p_import_key, rec.prs_perslid_key);
END;
END LOOP;
- FOR rec IN c_imp
+ -- update flex fields
+ FOR rec IN c_flex
LOOP
BEGIN
- BEGIN
- fac.imp_getfield_nr (rec.fac_imp_file_line,
- ';',
- 13,
- v_perslid_nr);
- fac.imp_getfield_nr (rec.fac_imp_file_line,
- ';',
- 15,
- v_kostenplaats_nr);
-
- SELECT prs_perslid_key
- INTO v_perslid_key
- FROM prs_perslid
- WHERE prs_perslid_verwijder IS NULL
- AND prs_perslid_nr = v_perslid_nr;
-
- aaxx.set_prs_kenmerk (p_import_key,
- 'P',
- 1000,
- v_perslid_key,
- v_kostenplaats_nr);
- EXCEPTION
- WHEN OTHERS
- THEN
- -- fac.imp_writelog (p_import_key, 'B', '(ORACLE error ' || SQLCODE || '/' || SUBSTR (SQLERRM, 1, 100) || ')', v_perslid_key || '-' || v_perslid_nr || '+' || v_kostenplaats_nr);
- -- nothing to do
- NULL;
- END;
+ PRS.upsertkenmerk (1000, rec.prs_perslid_key, rec.prs_kenmerk2); -- Kostenplaats
END;
END LOOP;
+
ELSE
fac.imp_writelog (
p_import_key,
@@ -1416,7 +1360,7 @@ BEGIN
END IF; -- Geldig importbestand wat betreft aantal inserts
COMMIT;
-END aaen_update_perslid_mut;
+END aaen_update_perslid;
/
@@ -2886,7 +2830,7 @@ BEGIN adm.systrackscriptId('$Id$', 0); END;
/
-BEGIN fac.registercustversion('AAEN', 34); END;
+BEGIN fac.registercustversion('AAEN', 37); END;
/
COMMIT;
diff --git a/AA/AAES/aaes.sql b/AA/AAES/aaes.sql
index 003f4155d..9e1963dec 100644
--- a/AA/AAES/aaes.sql
+++ b/AA/AAES/aaes.sql
@@ -1943,6 +1943,7 @@ END aaes_set_budgethouder;
-- AAES#24099: Alleen bepaalde catalogi(?) en alleen FO-status Optie/Definitief
-- (dus niet Blokkade en Vervallen)!
+/* Formatted on 30-1-2014 17:15:16 (QP5 v5.136.908.31019) */
CREATE OR REPLACE VIEW AAES_V_RAP_RES_INFOBORD
(
AKTIEF,
@@ -1967,59 +1968,65 @@ CREATE OR REPLACE VIEW AAES_V_RAP_RES_INFOBORD
ALG_VERDIEPING_KEY
)
AS
- SELECT (CASE
- WHEN rrr.res_rsv_ruimte_van > SYSDATE THEN 'expected'
- WHEN rrr.res_rsv_ruimte_tot < SYSDATE THEN 'passed'
- ELSE 'active'
- END)
- aktief,
- TRUNC ( (SYSDATE - rrr.res_rsv_ruimte_van) * 24 * 60) offset,
- TO_CHAR (rrr.res_rsv_ruimte_van, 'dd-mm-yyyy') dag,
- TO_CHAR (rrr.res_rsv_ruimte_van, 'hh24:mi') tijd_van,
- TO_CHAR (rrr.res_rsv_ruimte_tot, 'hh24:mi') tijd_tot,
- rrg.res_ruimte_nr ruimte,
- rd.ins_discipline_omschrijving catalogus,
- aanvrager.prs_perslid_naam_full aanvrager,
- gastheer.prs_perslid_naam_full gastheer,
- rrr.res_rsv_ruimte_omschrijving omschrijving,
- sf.res_status_fo_omschrijving status,
- l.alg_locatie_code locatie_code,
- g.alg_gebouw_code gebouw_code,
- v.alg_verdieping_code verdieping_code,
- l.alg_locatie_omschrijving locatie_omschrijving,
- g.alg_gebouw_omschrijving gebouw_omschrijving,
- v.alg_verdieping_omschrijving verdieping_omschrijving,
- l.alg_locatie_key,
- g.alg_gebouw_key,
- v.alg_verdieping_key
- FROM res_v_aanwezigrsv_ruimte rrr,
- res_ruimte_opstelling rro,
- res_v_res_ruimte_gegevens rrg,
- prs_v_perslid_fullnames aanvrager,
- prs_v_perslid_fullnames gastheer,
- alg_locatie l,
- alg_gebouw g,
- alg_verdieping v,
- res_status_fo sf,
- res_activiteit a,
- res_discipline rd
- WHERE rrr.res_status_fo_key IN (1, 2) -- Alleen Optie + Definitief!
- AND rrr.res_ruimte_opstel_key = rro.res_ruimte_opstel_key
- AND rro.res_ruimte_key = rrg.res_ruimte_key
- AND rrr.res_rsv_ruimte_host_key = gastheer.prs_perslid_key
- AND rrr.res_rsv_ruimte_contact_key = aanvrager.prs_perslid_key
- AND TRUNC (rrr.res_rsv_ruimte_van) = TRUNC (SYSDATE)
- AND rrg.alg_locatie_key = l.alg_locatie_key
- AND rrg.alg_gebouw_key = g.alg_gebouw_key
- AND rrg.alg_verdieping_key = v.alg_verdieping_key
- AND rrr.res_status_fo_key = sf.res_status_fo_key
- AND rrr.res_activiteit_key = a.res_activiteit_key
- --AND a.res_srtactiviteit_key = -1
- AND rrg.res_discipline_key = rd.ins_discipline_key;
+ SELECT (CASE
+ WHEN rrr.res_rsv_ruimte_van > SYSDATE THEN 'expected'
+ WHEN rrr.res_rsv_ruimte_tot < SYSDATE THEN 'passed'
+ ELSE 'active'
+ END)
+ aktief,
+ TRUNC ( (SYSDATE - rrr.res_rsv_ruimte_van) * 24 * 60) offset,
+ TO_CHAR (rrr.res_rsv_ruimte_van, 'dd-mm-yyyy') dag,
+ TO_CHAR (rrr.res_rsv_ruimte_van, 'hh24:mi') tijd_van,
+ TO_CHAR (rrr.res_rsv_ruimte_tot, 'hh24:mi') tijd_tot,
+ rrg.res_ruimte_nr ruimte,
+ rd.ins_discipline_omschrijving catalogus,
+ aanvrager.prs_perslid_naam_full aanvrager,
+ gastheer.prs_perslid_naam_full gastheer,
+ rrr.res_rsv_ruimte_omschrijving omschrijving,
+ sf.res_status_fo_omschrijving status,
+ l.alg_locatie_code locatie_code,
+ g.alg_gebouw_code gebouw_code,
+ v.alg_verdieping_code verdieping_code,
+ l.alg_locatie_omschrijving locatie_omschrijving,
+ g.alg_gebouw_omschrijving gebouw_omschrijving,
+ v.alg_verdieping_omschrijving verdieping_omschrijving,
+ l.alg_locatie_key,
+ g.alg_gebouw_key,
+ v.alg_verdieping_key
+ FROM res_v_aanwezigrsv_ruimte rrr,
+ res_ruimte_opstelling rro,
+ res_v_res_ruimte_gegevens rrg,
+ prs_v_perslid_fullnames aanvrager,
+ prs_v_perslid_fullnames gastheer,
+ alg_locatie l,
+ alg_gebouw g,
+ alg_verdieping v,
+ res_status_fo sf,
+ res_activiteit a,
+ res_discipline rd
+ WHERE rrr.res_status_fo_key IN (1, 2) -- Alleen Optie + Definitief!
+ AND rrr.res_ruimte_opstel_key = rro.res_ruimte_opstel_key
+ AND rro.res_ruimte_key = rrg.res_ruimte_key
+ AND rrr.res_rsv_ruimte_host_key = gastheer.prs_perslid_key
+ AND rrr.res_rsv_ruimte_contact_key = aanvrager.prs_perslid_key
+ AND TRUNC (rrr.res_rsv_ruimte_van) = TRUNC (SYSDATE)
+ AND rrg.alg_locatie_key = l.alg_locatie_key
+ AND rrg.alg_gebouw_key = g.alg_gebouw_key
+ AND rrg.alg_verdieping_key = v.alg_verdieping_key
+ AND rrr.res_status_fo_key = sf.res_status_fo_key
+ AND rrr.res_activiteit_key = a.res_activiteit_key
+ --AND a.res_srtactiviteit_key = -1
+ AND rrg.res_discipline_key = rd.ins_discipline_key
+ AND NOT EXISTS
+ (SELECT 1
+ FROM fac_usrdata
+ WHERE fac_usrtab_key = 601 -- NietOpInfobord
+ AND fac.safe_to_number (fac_usrdata_code) =
+ rrg.res_ruimte_key);
BEGIN adm.systrackscriptId('$Id$', 0); END;
/
-BEGIN fac.registercustversion('AAES', 9); END;
+BEGIN fac.registercustversion('AAES', 10); END;
/
COMMIT;
SPOOL OFF
diff --git a/AA/AAEY/Once/AAEY#28321.sql b/AA/AAEY/Once/AAEY#28321.sql
new file mode 100644
index 000000000..95727ca50
--- /dev/null
+++ b/AA/AAEY/Once/AAEY#28321.sql
@@ -0,0 +1,8 @@
+UPDATE prs_bedrijfadres
+ SET prs_bedrijfadres_type = 'B'
+ WHERE prs_bedrijfadres_type = 'C';
+
+-- na seintje van Sander weer terugzetten in:
+UPDATE prs_bedrijfadres
+ SET prs_bedrijfadres_type = 'C'
+ WHERE prs_bedrijfadres_type = 'B'
\ No newline at end of file
diff --git a/AA/AAEY/Once/AAEY#28791.sql b/AA/AAEY/Once/AAEY#28791.sql
new file mode 100644
index 000000000..535fc6dbe
--- /dev/null
+++ b/AA/AAEY/Once/AAEY#28791.sql
@@ -0,0 +1,144 @@
+alter session set nls_territory = 'America';
+
+declare
+
+cursor c is
+ SELECT (SELECT mld_opdr_key
+ FROM mld_opdr o
+ WHERE opdracht LIKE
+ '%'
+ || o.mld_melding_key
+ || '/'
+ || o.mld_opdr_bedrijfopdr_volgnr)
+ mld_opdr_key,
+ (SELECT mld_melding_key
+ FROM mld_opdr o
+ WHERE opdracht LIKE
+ '%'
+ || o.mld_melding_key
+ || '/'
+ || o.mld_opdr_bedrijfopdr_volgnr)
+ mld_melding_key,
+ (SELECT cnt_contract_key
+ FROM cnt_contract c
+ WHERE opdracht =
+ 'CO'
+ || cnt_contract_nummer_intern
+ || '.'
+ || COALESCE (cnt_contract_versie, '0'))
+ cnt_contract_key,
+ (SELECT prs_kostensoort_key
+ FROM prs_kostensoort ks
+ WHERE TRIM (ks.prs_kostensoort_oms) = TRIM (k.kostensoort))
+ prs_kostensoort_key,
+ k.*
+ FROM tmp_opdr_kostensoort k;
+
+ oracle_err_num NUMBER;
+ oracle_err_mes VARCHAR2 (200);
+ v_errormsg VARCHAR2 (200);
+ v_errorhint VARCHAR2 (200);
+
+ v_discipline_key NUMBER(10);
+ v_stdmelding_key NUMBER(10);
+
+BEGIN
+ DELETE imp_log WHERE imp_log_applicatie = 'CONV_KOSTENSOORT';
+ FOR rec in c
+ LOOP
+ BEGIN
+ IF rec.prs_kostensoort_key IS NULL
+ THEN
+ fac.writelog ('CONV_KOSTENSOORT', 'E', 'Kostensoort is onbekend: ' || rec.kostensoort , rec.opdracht);
+ ELSIF rec.cnt_contract_key IS NOT NULL
+ THEN
+ dbms_output.put_line (rec.cnt_contract_key);
+ v_errorhint := 'Bepalen contractsoort';
+ BEGIN
+ SELECT ins_discipline_key
+ INTO v_discipline_key
+ FROM cnt_discipline
+ WHERE prs_kostensoort_key = rec.prs_kostensoort_key;
+ EXCEPTION WHEN NO_DATA_FOUND
+ THEN
+ v_errorhint := 'Toevoegen discipline';
+ INSERT INTO ins_discipline (ins_discipline_module, ins_discipline_omschrijving, ins_discipline_kpnverplicht, ins_discipline_btw, prs_kostensoort_key)
+ VALUES ('CNT', UPPER(TRIM(rec.kostensoort)), 0, 1, rec.prs_kostensoort_key)
+ RETURNING ins_discipline_key INTO v_discipline_key;
+
+ v_errorhint := 'Toevoegen discipline params';
+ INSERT INTO cnt_disc_params (cnt_ins_discipline_key, cnt_srtcontract_type, cnt_disc_params_factuurmarge, cnt_disc_params_factuurappr, cnt_disc_params_factuurpct)
+ VALUES (v_discipline_key, 5, 0 ,0, 0);
+ END;
+
+ v_errorhint := 'Aanpssen contract';
+ UPDATE cnt_contract
+ SET ins_discipline_key = v_discipline_key,
+ prs_kostensoort_key = rec.prs_kostensoort_key
+ WHERE cnt_contract_key = rec.cnt_contract_key;
+
+ v_errorhint := 'Toevoegen tracking';
+ INSERT INTO fac_tracking ( fac_srtnotificatie_key, fac_tracking_refkey, fac_tracking_oms)
+ SELECT fac_srtnotificatie_key, rec.cnt_contract_key, 'Kostensoort aangepast naar: ' || rec.kostensoort
+ FROM fac_srtnotificatie
+ WHERE fac_srtnotificatie_code = 'CNTUPD';
+
+ v_errorhint := 'Aanpassen factuur';
+ UPDATE fin_factuur
+ SET prs_kostensoort_key = rec.prs_kostensoort_key
+ WHERE cnt_contract_key = rec.cnt_contract_key;
+
+ v_errorhint := 'Toevoegen tracking aan factuur';
+ INSERT INTO fac_tracking ( fac_srtnotificatie_key, fac_tracking_refkey, fac_tracking_oms)
+ SELECT fac_srtnotificatie_key, f.fin_factuur_key, 'Kostensoort aangepast naar: ' || rec.kostensoort
+ FROM fac_srtnotificatie, fin_factuur f
+ WHERE fac_srtnotificatie_code = 'FINUPD'
+ AND f.cnt_contract_key = rec.cnt_contract_key;
+ ELSIF rec.mld_melding_key IS NOT NULL
+ THEN
+ dbms_output.put_line (rec.mld_melding_key);
+ v_errorhint := 'Bepaling standaardmelding';
+ SELECT MAX(mld_stdmelding_key)
+ INTO v_stdmelding_key
+ FROM mld_stdmelding
+ WHERE mld_stdmelding_verwijder IS NULL
+ AND COALESCE(mld_stdmelding_vervaldatum, SYSDATE+1) > SYSDATE
+ AND prs_kostensoort_key = rec.prs_kostensoort_key;
+
+ v_errorhint := 'Aanpassen melding';
+ UPDATE mld_melding
+ SET mld_stdmelding_key = v_stdmelding_key
+ WHERE mld_melding_key = rec.mld_melding_key;
+
+ v_errorhint := 'Toevoegen tracking';
+ INSERT INTO fac_tracking ( fac_srtnotificatie_key, fac_tracking_refkey, fac_tracking_oms)
+ SELECT fac_srtnotificatie_key, rec.mld_melding_key, 'Kostensoort aangepast naar: ' || rec.kostensoort
+ FROM fac_srtnotificatie
+ WHERE fac_srtnotificatie_code = 'MLDUPD';
+
+ v_errorhint := 'Aanpassen factuur';
+ UPDATE fin_factuur
+ SET prs_kostensoort_key = rec.prs_kostensoort_key
+ WHERE mld_opdr_key = rec.mld_opdr_key;
+
+ v_errorhint := 'Toevoegen tracking aan factuur';
+ INSERT INTO fac_tracking ( fac_srtnotificatie_key, fac_tracking_refkey, fac_tracking_oms)
+ SELECT fac_srtnotificatie_key, f.fin_factuur_key, 'Kostensoort aangepast naar: ' || rec.kostensoort
+ FROM fac_srtnotificatie, fin_factuur f
+ WHERE fac_srtnotificatie_code = 'FINUPD'
+ AND f.mld_opdr_key = rec.mld_opdr_key;
+
+ ELSE
+ fac.writelog ('CONV_KOSTENSOORT', 'E', 'Opdrachtkey en contractkey is leeg' , rec.opdracht);
+ END IF;
+
+ EXCEPTION WHEN OTHERS THEN
+ oracle_err_num := SQLCODE;
+ oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
+ v_errormsg := 'OTHERS (error '||oracle_err_num||'/'||oracle_err_mes||')';
+ fac.writelog ('CONV_KOSTENSOORT', 'E', v_errormsg , rec.opdracht || ':' || v_errorhint);
+ END;
+ END LOOP;
+ COMMIT;
+END;
+
diff --git a/AA/AAEY/aaey.sql b/AA/AAEY/aaey.sql
index 1be0a6d38..60560507f 100644
--- a/AA/AAEY/aaey.sql
+++ b/AA/AAEY/aaey.sql
@@ -1168,12 +1168,52 @@ AS
AND ot.mld_typeopdr_omschrijving = 'Workorder';
+CREATE OR REPLACE VIEW aaey_v_rap_factuuroverzicht
+(
+ fclt_f_leverancier,
+ fclt_f_factuurnummer,
+ html_link,
+ factuurdatum,
+ fclt_f_verdeelperiode,
+ opdrachtnr,
+ fclt_f_dienst,
+ excl_btw,
+ incl_btw
+)
+AS
+ SELECT b.prs_bedrijf_naam,
+ f.fin_factuur_nr,
+ 'link'
+ html_link,
+ fin_factuur_datum,
+ fin_factuur_boekmaand,
+ opdracht_id,
+ lcl.x ('prs_kostensoort_opmerking',
+ ks.prs_kostensoort_key,
+ ks.prs_kostensoort_opmerking),
+ SUM (f.fin_factuurregel_totaal),
+ SUM (f.fin_factuurregel_totaal) + SUM (f.fin_factuurregel_btw)
+ FROM aaxx_v_factuur_gegevens f, prs_kostensoort ks, prs_bedrijf b
+ WHERE f.prs_kostensoort_key = ks.prs_kostensoort_key
+ AND f.prs_bedrijf_key = b.prs_bedrijf_key
+ GROUP BY prs_bedrijf_naam,
+ fin_factuur_nr,
+ fin_factuur_datum,
+ fin_factuur_boekmaand,
+ opdracht_id,
+ lcl.x ('prs_kostensoort_opmerking',
+ ks.prs_kostensoort_key,
+ ks.prs_kostensoort_opmerking),
+ fin_factuur_key;
BEGIN adm.systrackscriptId('$Id$', 0); END;
/
-BEGIN fac.registercustversion('AAEY', 1); END;
+BEGIN fac.registercustversion('AAEY', 2); END;
/
COMMIT;
diff --git a/AA/AAHU/ONCE/AAHU#28704.sql b/AA/AAHU/ONCE/AAHU#28704.sql
new file mode 100644
index 000000000..96839b3aa
--- /dev/null
+++ b/AA/AAHU/ONCE/AAHU#28704.sql
@@ -0,0 +1,3 @@
+UPDATE bes_srtdeel
+ SET bes_srtdeel_vervaldatum = NULL
+ WHERE bes_srtdeel_verwijder IS NULL;
\ No newline at end of file
diff --git a/AA/AAIT/aait.sql b/AA/AAIT/aait.sql
index c85d59449..ae0e0f57b 100644
--- a/AA/AAIT/aait.sql
+++ b/AA/AAIT/aait.sql
@@ -1761,112 +1761,103 @@ AS
WHERE UPPER (r.lev_account) = UPPER (p_account)
AND r.aanmaak > lastexp.fac_usrdata_vervaldatum;
- v_exp_date DATE;
+ v_bestand VARCHAR2 (12);
v_order_count NUMBER;
v_amount_sum NUMBER (10, 2);
- v_bestand VARCHAR2 (12);
BEGIN
-- Altijd opruiming "buffer"-tabel ter voorkoming opnieuw exporteren van
- -- hetzelfde bestand (bv. als schedulen op de 28e en in februari op de 27e
- -- te ingewikkeld blijkt)!
+ -- hetzelfde bestand!
v_bestand := 'UREN_DEKKING'; --SUBSTR (p_applname, 1, 12);
DELETE fac_rapport
WHERE fac_rapport_node = v_bestand;
- v_exp_date := SYSDATE;
+ v_order_count := 0;
+ v_amount_sum := 0;
- -- Export altijd uitvoeren op de 28e en in februari op de 27e!
- IF (TO_CHAR (v_exp_date, 'dd') = '28' AND TO_CHAR (v_exp_date, 'mm') != '02')
- OR (TO_CHAR (v_exp_date, 'dd') = '27' AND TO_CHAR (v_exp_date, 'mm') = '02')
- THEN
- v_order_count := 0;
- v_amount_sum := 0;
+ -- Opruiming log (een maand later)!
+ DELETE FROM imp_log
+ WHERE imp_log_applicatie = p_applname;
- -- Opruiming log (een maand later)!
- DELETE FROM imp_log
- WHERE imp_log_applicatie = p_applname;
+ -- header
+ aaxx_add_xml_row (v_bestand, '');
+ aaxx_add_xml_row (v_bestand, '');
+ aaxx_add_xml_row (v_bestand, '');
- -- header
- aaxx_add_xml_row (v_bestand, '');
- aaxx_add_xml_row (v_bestand, '');
- aaxx_add_xml_row (v_bestand, '');
+ FOR rec IN c
+ LOOP
+ BEGIN
+ aaxx_add_xml_row (v_bestand, '');
+ aaxx_add_xml_row (v_bestand, '');
+ aaxx_add_xml_row (v_bestand, '');
+ aaxx_add_xml_element (v_bestand, 'Date', TO_CHAR(rec.mld_opdr_uren_datum, 'yyyy-mm-dd') );
- FOR rec IN c
- LOOP
- BEGIN
- aaxx_add_xml_row (v_bestand, '');
- aaxx_add_xml_row (v_bestand, '');
- aaxx_add_xml_row (v_bestand, '');
- aaxx_add_xml_element (v_bestand, 'Date', TO_CHAR(rec.mld_opdr_uren_datum, 'yyyy-mm-dd') );
-
- --aaxx_add_xml_row (v_bestand, '');
- --aaxx_add_xml_element (v_bestand, 'Description', rec.projectnaam);
- --aaxx_add_xml_row (v_bestand, '');
- --aaxx_add_xml_row (v_bestand, '');
- --aaxx_add_xml_row (v_bestand, '');
- -- aaxx_add_xml_element (v_bestand, 'Description', rec.projectnaam);
- --aaxx_add_xml_row (v_bestand, '');
- aaxx_add_xml_row (v_bestand, '');
+ --aaxx_add_xml_row (v_bestand, '');
+ --aaxx_add_xml_element (v_bestand, 'Description', rec.projectnaam);
+ --aaxx_add_xml_row (v_bestand, '');
+ --aaxx_add_xml_row (v_bestand, '');
+ --aaxx_add_xml_row (v_bestand, '');
+ -- aaxx_add_xml_element (v_bestand, 'Description', rec.projectnaam);
+ --aaxx_add_xml_row (v_bestand, '');
+ aaxx_add_xml_row (v_bestand, '');
+ aaxx_add_xml_element (v_bestand, 'Description', rec.projectnaam);
+ aaxx_add_xml_row (v_bestand, '');
+ aaxx_add_xml_row (v_bestand, '');
+ aaxx_add_xml_row (v_bestand, '');
aaxx_add_xml_element (v_bestand, 'Description', rec.projectnaam);
- aaxx_add_xml_row (v_bestand, '');
- aaxx_add_xml_row (v_bestand, '');
- aaxx_add_xml_row (v_bestand, '');
- aaxx_add_xml_element (v_bestand, 'Description', rec.projectnaam);
- aaxx_add_xml_row (v_bestand, '');
+ aaxx_add_xml_row (v_bestand, '');
- aaxx_add_xml_element (v_bestand, 'Quantity', TO_CHAR(rec.uren_besteed) );
- aaxx_add_xml_row (v_bestand, '');
- aaxx_add_xml_row (v_bestand, '');
- aaxx_add_xml_element (v_bestand, 'Debit', TO_CHAR(rec.uren_besteed*rec.uurtarief) );
- aaxx_add_xml_element (v_bestand, 'Credit', '0');
- aaxx_add_xml_row (v_bestand, '');
- aaxx_add_xml_row (v_bestand, '');
- aaxx_add_xml_element (v_bestand, 'DocumentDate', TO_CHAR(SYSDATE, 'YYYY-MM-DD') );
- aaxx_add_xml_row (v_bestand, '');
- aaxx_add_xml_row (v_bestand, '');
- IF rec.uurtarief IS NULL
- THEN
- fac.writelog (p_applname, 'W', 'Geen uurtarief voor persoon nr ' || rec.perslid_nr, '');
- END IF;
- v_amount_sum := v_amount_sum + rec.uren_besteed * COALESCE(rec.uurtarief, 0);
- aaxx_add_xml_row (v_bestand, '');
+ aaxx_add_xml_element (v_bestand, 'Quantity', TO_CHAR(rec.uren_besteed) );
+ aaxx_add_xml_row (v_bestand, '');
+ aaxx_add_xml_row (v_bestand, '');
+ aaxx_add_xml_element (v_bestand, 'Debit', TO_CHAR(rec.uren_besteed*rec.uurtarief) );
+ aaxx_add_xml_element (v_bestand, 'Credit', '0');
+ aaxx_add_xml_row (v_bestand, '');
+ aaxx_add_xml_row (v_bestand, '');
+ aaxx_add_xml_element (v_bestand, 'DocumentDate', TO_CHAR(SYSDATE, 'YYYY-MM-DD') );
+ aaxx_add_xml_row (v_bestand, '');
+ aaxx_add_xml_row (v_bestand, '');
+ IF rec.uurtarief IS NULL
+ THEN
+ fac.writelog (p_applname, 'W', 'Geen uurtarief voor persoon nr ' || rec.perslid_nr, '');
+ END IF;
+ v_amount_sum := v_amount_sum + rec.uren_besteed * COALESCE(rec.uurtarief, 0);
+ aaxx_add_xml_row (v_bestand, '');
- --aaxx_add_xml_row (v_bestand, '');
- --aaxx_add_xml_element (v_bestand, 'Description', rec.projectnaam);
- --aaxx_add_xml_row (v_bestand, '');
- --aaxx_add_xml_row (v_bestand, '');
- --aaxx_add_xml_row (v_bestand, '');
- -- aaxx_add_xml_element (v_bestand, 'Description', rec.projectnaam);
- --aaxx_add_xml_row (v_bestand, '');
- aaxx_add_xml_row (v_bestand, '');
- aaxx_add_xml_element (v_bestand, 'Description', rec.projectnaam);
- aaxx_add_xml_row (v_bestand, '');
- aaxx_add_xml_row (v_bestand, '');
- aaxx_add_xml_row (v_bestand, '');
- aaxx_add_xml_element (v_bestand, 'Description', rec.projectnaam);
- aaxx_add_xml_row (v_bestand, '');
+ --aaxx_add_xml_row (v_bestand, '');
+ --aaxx_add_xml_element (v_bestand, 'Description', rec.projectnaam);
+ --aaxx_add_xml_row (v_bestand, '');
+ --aaxx_add_xml_row (v_bestand, '');
+ --aaxx_add_xml_row (v_bestand, '');
+ -- aaxx_add_xml_element (v_bestand, 'Description', rec.projectnaam);
+ --aaxx_add_xml_row (v_bestand, '');
+ aaxx_add_xml_row (v_bestand, '');
+ aaxx_add_xml_element (v_bestand, 'Description', rec.projectnaam);
+ aaxx_add_xml_row (v_bestand, '');
+ aaxx_add_xml_row (v_bestand, '');
+ aaxx_add_xml_row (v_bestand, '');
+ aaxx_add_xml_element (v_bestand, 'Description', rec.projectnaam);
+ aaxx_add_xml_row (v_bestand, '');
- aaxx_add_xml_element (v_bestand, 'Quantity', '-'||TO_CHAR(rec.uren_besteed) );
- aaxx_add_xml_row (v_bestand, '');
- aaxx_add_xml_row (v_bestand, '');
- aaxx_add_xml_element (v_bestand, 'Debit', '0');
- aaxx_add_xml_element (v_bestand, 'Credit', TO_CHAR(rec.uren_besteed*rec.uurtarief) );
- aaxx_add_xml_row (v_bestand, '');
- aaxx_add_xml_row (v_bestand, '');
- --aaxx_add_xml_element (v_bestand, 'DocumentDate', SYSDATE);
- aaxx_add_xml_element (v_bestand, 'DocumentDate', TO_CHAR(SYSDATE, 'YYYY-MM-DD') );
- aaxx_add_xml_row (v_bestand, '');
- aaxx_add_xml_row (v_bestand, '');
- aaxx_add_xml_row (v_bestand, '');
- END;
+ aaxx_add_xml_element (v_bestand, 'Quantity', '-'||TO_CHAR(rec.uren_besteed) );
+ aaxx_add_xml_row (v_bestand, '');
+ aaxx_add_xml_row (v_bestand, '');
+ aaxx_add_xml_element (v_bestand, 'Debit', '0');
+ aaxx_add_xml_element (v_bestand, 'Credit', TO_CHAR(rec.uren_besteed*rec.uurtarief) );
+ aaxx_add_xml_row (v_bestand, '');
+ aaxx_add_xml_row (v_bestand, '');
+ --aaxx_add_xml_element (v_bestand, 'DocumentDate', SYSDATE);
+ aaxx_add_xml_element (v_bestand, 'DocumentDate', TO_CHAR(SYSDATE, 'YYYY-MM-DD') );
+ aaxx_add_xml_row (v_bestand, '');
+ aaxx_add_xml_row (v_bestand, '');
+ aaxx_add_xml_row (v_bestand, '');
+ END;
- v_order_count := v_order_count + 1;
- END LOOP;
+ v_order_count := v_order_count + 1;
+ END LOOP;
- aaxx_add_xml_row (v_bestand, '');
- aaxx_add_xml_row (v_bestand, '');
- fac.writelog (p_applname, 'S', 'Exact export uitgevoerd. Aantal regels: ' || v_order_count || ' Totaal bedrag: ' || v_amount_sum, '');
- END IF;
+ aaxx_add_xml_row (v_bestand, '');
+ aaxx_add_xml_row (v_bestand, '');
+ fac.writelog (p_applname, 'S', 'Exact export uitgevoerd. Aantal regels: ' || v_order_count || ' Totaal bedrag: ' || v_amount_sum, '');
EXCEPTION
WHEN OTHERS
THEN
@@ -2160,13 +2151,13 @@ AS
CREATE OR REPLACE PROCEDURE aait_select_aapm_dekking (p_applname IN VARCHAR2, p_applrun IN VARCHAR2)
AS
BEGIN
- aait_select_uren_dekking_xml(p_applname, p_applrun, 'Parkmanagement'); -- AAPM
+ aait_select_uren_dekking_xml(p_applname, p_applrun, 'Park Management'); -- AAPM
END;
/
CREATE OR REPLACE PROCEDURE aait_export_aapm_dekking (p_applname IN VARCHAR2, p_applrun IN VARCHAR2, p_filedir IN VARCHAR2, p_filename IN VARCHAR2)
AS
BEGIN
- aait_upsert_last_dekking_exp ('Parkmanagement'); -- AAPM
+ aait_upsert_last_dekking_exp ('Park Management'); -- AAPM
END;
/
CREATE OR REPLACE VIEW aait_v_export_aarw_dekking (result, result_order)
diff --git a/AA/AANS/Once/AANS#28440.sql b/AA/AANS/Once/AANS#28440.sql
new file mode 100644
index 000000000..577db901e
--- /dev/null
+++ b/AA/AANS/Once/AANS#28440.sql
@@ -0,0 +1,21 @@
+SET ECHO ON
+SPOOL xAANS#28440.lst
+PROMPT $Revision$
+
+
+
+-- verhogen huurprijs
+UPDATE alg_onrgoedkenmerk
+SET alg_onrgoedkenmerk_waarde =
+ ROUND ( (fac.safe_to_number(alg_onrgoedkenmerk_waarde) * 1.025), 2)
+WHERE alg_kenmerk_key =1002
+ AND alg_onrgoedkenmerk_verwijder IS NULL
+ and exists (select alg_ruimte_key from alg_ruimte where alg_ruimte_key = alg_onrgoed_key);
+
+BEGIN adm.systrackscriptid('$Id$'); END;
+/
+
+
+COMMIT;
+
+SPOOL OFF
\ No newline at end of file
diff --git a/AA/AANS/Once/AANS#28507.sql b/AA/AANS/Once/AANS#28507.sql
new file mode 100644
index 000000000..b36c3bfdd
--- /dev/null
+++ b/AA/AANS/Once/AANS#28507.sql
@@ -0,0 +1,34 @@
+delete prs_bedrijfdienstlocatie;
+
+INSERT INTO prs_bedrijfdienstlocatie (prs_bedrijf_key,
+ prs_dienst_key,
+ alg_locatie_key,
+ alg_gebouw_key)
+ SELECT distinct prs_bedrijf_key,
+ prs_dienst_key,
+ DECODE (alg_gebouw_key, NULL, alg_locatie_key),
+ alg_gebouw_key
+ FROM (SELECT (SELECT prs_bedrijf_key
+ FROM prs_v_aanwezigbedrijf b
+ WHERE i.prs_bedrijf_naam = b.prs_bedrijf_naam)
+ prs_bedrijf_key,
+ i.prs_bedrijf_naam,
+ (SELECT prs_dienst_key
+ FROM prs_dienst d
+ WHERE LOWER (i.prs_dienst_omschrijving) =
+ LOWER (d.prs_dienst_omschrijving))
+ prs_dienst_key,
+ i.prs_dienst_omschrijving,
+ (SELECT alg_locatie_key
+ FROM alg_locatie l
+ WHERE i.alg_locatie_code = l.alg_locatie_code)
+ alg_locatie_key,
+ i.alg_locatie_code,
+ (SELECT alg_gebouw_key
+ FROM alg_gebouw g
+ WHERE i.alg_gebouw_code = g.alg_gebouw_code
+ AND alg_gebouw_verwijder IS NULL)
+ alg_gebouw_key,
+ i.alg_gebouw_code
+ FROM aans_test.fac_imp_ext_bedrijf i)
+ WHERE prs_dienst_key IS NOT NULL;
\ No newline at end of file
diff --git a/AA/AANS/Once/AANS#28522.sql b/AA/AANS/Once/AANS#28522.sql
new file mode 100644
index 000000000..8cf97d7e7
--- /dev/null
+++ b/AA/AANS/Once/AANS#28522.sql
@@ -0,0 +1,27 @@
+SET ECHO ON
+SPOOL xAANS#28522.lst
+
+
+-- Koppel personen in de autorisatiegroepen NS SA & Voorzieningen (key 21) en NS Storing, InfoVerz.& Klacht (key 341)
+-- aan de _Default autorisatiegroep (key 1)
+
+INSERT INTO fac_gebruikersgroep (fac_groep_key, prs_perslid_key)
+ (SELECT DISTINCT '1', prs_perslid_key
+ FROM fac_gebruikersgroep
+ WHERE prs_perslid_key IN (SELECT prs_perslid_key
+ FROM fac_gebruikersgroep f
+ WHERE fac_groep_key IN (21, 341))
+ AND prs_perslid_key NOT IN (SELECT prs_perslid_key
+ FROM fac_gebruikersgroep f
+ WHERE fac_groep_key IN (1)));
+
+-- Verwijder personen uit de de autorisatiegroepen NS SA & Voorzieningen (key 21) en NS Storing, InfoVerz.& Klacht (key 341)
+DELETE FROM fac_gebruikersgroep
+ WHERE fac_groep_key IN (341, 21);
+
+BEGIN adm.systrackscriptId('$Id$'); END;
+/
+
+COMMIT;
+
+SPOOL OFF
\ No newline at end of file
diff --git a/AA/AANS/Once/AANS#28659.sql b/AA/AANS/Once/AANS#28659.sql
new file mode 100644
index 000000000..aa7edf017
--- /dev/null
+++ b/AA/AANS/Once/AANS#28659.sql
@@ -0,0 +1,19 @@
+DELETE mld_kenmerkmelding
+ WHERE mld_kenmerkmelding_key = 411668;
+
+UPDATE mld_kenmerkmelding km
+ SET mld_kenmerk_key = 2220
+ WHERE EXISTS
+ (SELECT k.mld_kenmerk_key
+ FROM mld_kenmerk k
+ WHERE k.mld_srtkenmerk_key = 55
+ AND k.mld_kenmerk_key = km.mld_kenmerk_key
+ AND km.mld_kenmerk_key <> 2220);
+
+UPDATE mld_kenmerk
+ SET mld_kenmerk_verwijder = SYSDATE
+ WHERE mld_srtkenmerk_key = 55
+ AND mld_kenmerk_key <> 2220
+ AND mld_kenmerk_verwijder IS NULL;
+
+COMMIT;
diff --git a/AA/AASA/aasa.sql b/AA/AASA/aasa.sql
index 124a4cebb..15ecceec1 100644
--- a/AA/AASA/aasa.sql
+++ b/AA/AASA/aasa.sql
@@ -60,16 +60,250 @@ END;
/
-- bundel catering
-CREATE OR REPLACE VIEW aasa_v_export_bundel_catering (RESULT, result_order) AS SELECT RESULT, result_order FROM aaxx_v_export_bundel_catering;
-CREATE OR REPLACE PROCEDURE aasa_export_bundel_catering (
- p_applname IN VARCHAR2,
- p_applrun IN VARCHAR2,
- p_filedir IN VARCHAR2,
- p_filename IN VARCHAR2
+CREATE OR REPLACE VIEW aasa_v_catering_kpn
+(
+ res_rsv_artikel_key,
+ res_rsv_artikel_prijs,
+ res_rsv_artikel_levering,
+ bu_kostenplaats_key
)
AS
+ SELECT res_rsv_artikel_key,
+ res_rsv_artikel_prijs,
+ res_rsv_artikel_levering,
+ (SELECT prs_kostenplaats_key
+ FROM prs_afdeling ak
+ WHERE ak.prs_bedrijf_key IS NOT NULL
+ AND ak.prs_afdeling_verwijder IS NULL
+ AND ak.prs_afdeling_naam IN
+ (SELECT ta.prs_afdeling_naam
+ FROM prs_kostenplaats kp,
+ prs_afdeling a,
+ prs_v_afdeling_boom ab,
+ prs_afdeling ta
+ WHERE kp.prs_kostenplaats_key = a.prs_kostenplaats_key
+ AND a.prs_afdeling_key = ab.prs_afdeling_key
+ AND ab.prs_afdeling_key1 = ta.prs_afdeling_key
+ AND kp.prs_kostenplaats_nr = k.prs_kostenplaats_nr))
+ bukpn
+ FROM res_rsv_ruimte rrr, prs_kostenplaats k, res_rsv_artikel rra
+ WHERE rrr.prs_kostenplaats_key = k.prs_kostenplaats_key(+)
+ AND rrr.res_rsv_ruimte_key = rra.res_rsv_ruimte_key
+ AND rrr.res_rsv_ruimte_verwijder IS NULL
+ AND rra.res_rsv_artikel_verwijder IS NULL
+ AND rra.res_status_bo_key = 5;
+
+CREATE OR REPLACE VIEW aasa_v_export_bundel_catering
+(
+ result,
+ result_order
+)
+AS
+ SELECT res_rsv_artikel_key || ';' || res_rsv_artikel_prijs result,
+ res_rsv_artikel_key result_order
+ FROM aasa_v_catering_kpn;
+
+
+CREATE OR REPLACE PROCEDURE aasa_export_bundel_catering (
+ p_applname IN VARCHAR2,
+ p_applrun IN VARCHAR2,
+ p_filedir IN VARCHAR2,
+ p_filename IN VARCHAR2)
+AS
+ CURSOR c_kpn (lev_date DATE)
+ IS
+ SELECT bu_kostenplaats_key, sum(res_rsv_artikel_prijs) prijs
+ FROM aasa_v_catering_kpn
+ WHERE res_rsv_artikel_levering < lev_date
+ GROUP BY bu_kostenplaats_key;
+
+ v_errormsg VARCHAR (200);
+ oracle_err_num NUMBER;
+ oracle_err_mes VARCHAR2 (200);
+ v_laatste_export DATE;
+ v_mld_melding_key NUMBER;
+ v_mld_opdr_key NUMBER;
+ v_prs_bedrijf_key NUMBER;
+ v_prs_dienst_key NUMBER;
+ v_alg_gebouw_key NUMBER;
+ v_alg_locatie_key NUMBER;
+ v_mld_opdr_bedrijfopdr_volgnr NUMBER;
+ v_aanvrager NUMBER;
+ v_mld_workorder_key NUMBER;
+ v_mld_stdmelding_key NUMBER;
+ v_date DATE;
+ v_month VARCHAR2(30);
+ v_count NUMBER;
BEGIN
- aaxx_export_bundel_catering(p_applname, p_applrun, p_filedir, p_filename);
+ -- Facilitor
+ v_aanvrager := 4;
+ -- stdmelding key voor recharge
+ v_mld_stdmelding_key := 1292;
+ -- key van opdrachttype workorder
+ v_mld_workorder_key := 2;
+ -- key van gebouw waar catering op geboekt mag worden
+ v_alg_gebouw_key := 1823;
+ v_alg_locatie_key := 63;
+ -- key van bedrijf Appèl
+ v_prs_bedrijf_key := 37081;
+
+ v_errormsg := 'Bepaal einddatum';
+
+ -- wat is de eerste dag van de huidige maand
+ v_date := TO_DATE (TO_CHAR (SYSDATE, 'yyyymm') || '01', 'yyyymmdd');
+ v_month := REPLACE(TO_CHAR (v_date-1, 'month-yyyy', 'NLS_DATE_LANGUAGE = ''dutch'''), ' ', '');
+
+ SELECT COUNT (mld_opdr_key)
+ INTO v_count
+ FROM mld_opdr
+ WHERE mld_opdr_omschrijving = 'Cateringreserveringen maand: ' || v_month;
+
+ IF v_count > 0
+ THEN
+ fac.writelog (
+ p_applname,
+ 'E',
+ 'Catering export is al eerder uitgevoerd.',
+ 'Controleer opdrachten met omschrijving: '
+ || 'Cateringreserveringen maand: ' || v_month);
+ ELSE
+ FOR rec IN c_kpn (v_date)
+ LOOP
+ BEGIN
+ IF rec.bu_kostenplaats_key IS NOT NULL
+ THEN
+ -- controleer of ik een melding heb op deze kpn
+ BEGIN
+ v_errormsg := 'Opzoeken catering melding';
+
+ SELECT mld_melding_key
+ INTO v_mld_melding_key
+ FROM mld_melding
+ WHERE prs_kostenplaats_key = rec.bu_kostenplaats_key
+ AND mld_stdmelding_key = v_mld_stdmelding_key
+ AND v_date BETWEEN mld_melding_datum
+ AND mld_melding_einddatum + 1;
+ EXCEPTION
+ WHEN NO_DATA_FOUND
+ THEN
+ -- geen melding voor deze locatie gevonden. Dan maken we er maar een aan.
+
+ v_errormsg := 'Aanmaken catering melding';
+
+ BEGIN
+ INSERT INTO mld_melding (mld_melding_omschrijving,
+ prs_perslid_key,
+ prs_kostenplaats_key,
+ mld_stdmelding_key,
+ mld_alg_locatie_key,
+ mld_alg_onroerendgoed_keys,
+ mld_melding_einddatum,
+ mld_melding_datum,
+ mld_melding_uitvoertijd,
+ mld_meldbron_key,
+ mld_melding_module,
+ mld_melding_spoed)
+ VALUES ('Catering factuur boekingen',
+ v_aanvrager,
+ rec.bu_kostenplaats_key,
+ v_mld_stdmelding_key,
+ v_alg_locatie_key,
+ v_alg_gebouw_key,
+ TO_DATE (TO_CHAR (v_date, 'YYYY') || '1231',
+ 'YYYYMMDD'),
+ TO_DATE (TO_CHAR (v_date, 'YYYY') || '0101',
+ 'YYYYMMDD'),
+ 2,
+ 5,
+ 'MLD',
+ 3)
+ RETURNING mld_melding_key
+ INTO v_mld_melding_key;
+
+ BEGIN
+ mld.setmeldingstatus (v_mld_melding_key, 2, v_aanvrager);
+ END;
+
+ BEGIN
+ mld.setmeldingstatus (v_mld_melding_key, 4, v_aanvrager);
+ END;
+
+ UPDATE mld_melding
+ SET mld_melding_behandelaar_key = v_aanvrager
+ WHERE mld_melding_key = v_mld_melding_key;
+ END;
+ END;
+
+ -- nu gaan we de opdracht aanmaken
+ BEGIN
+ v_mld_opdr_bedrijfopdr_volgnr :=
+ mld.bepaalopdrmeldingvolgnr (v_mld_melding_key);
+
+ v_errormsg :=
+ 'Maak opdracht aan om factuur van cateraar te matchen';
+
+ -- maak opdracht aan om cateringfactuur van leverancier te matchen
+ INSERT INTO mld_opdr (mld_melding_key,
+ prs_kostenplaats_key,
+ mld_statusopdr_key,
+ mld_typeopdr_key,
+ prs_perslid_key,
+ mld_uitvoerende_keys,
+ mld_opdr_datumbegin,
+ mld_opdr_einddatum,
+ mld_opdr_module,
+ mld_opdr_omschrijving,
+ mld_opdr_materiaal,
+ mld_opdr_kosten,
+ mld_opdr_bedrijfopdr_volgnr)
+ VALUES ( v_mld_melding_key,
+ rec.bu_kostenplaats_key,
+ 5, -- uitgegeven
+ v_mld_workorder_key,
+ v_aanvrager,
+ v_prs_bedrijf_key,
+ v_date - 1,
+ fac.datumtijdplusuitvoertijd (SYSDATE, 1, 'DAGEN'),
+ 'MLD',
+ 'Cateringreserveringen maand: ' || v_month,
+ rec.prijs,
+ rec.prijs,
+ v_mld_opdr_bedrijfopdr_volgnr)
+ RETURNING mld_opdr_key INTO v_mld_opdr_key;
+
+ UPDATE res_rsv_artikel rra
+ SET res_rsv_artikel_verwerkt = SYSDATE,
+ res_status_bo_key = 6
+ WHERE EXISTS
+ (SELECT res_rsv_artikel_key
+ FROM aasa_v_catering_kpn kpn
+ WHERE kpn.res_rsv_artikel_key =
+ rra.res_rsv_artikel_key
+ AND kpn.bu_kostenplaats_key = rec.bu_kostenplaats_key
+ AND res_rsv_artikel_levering < v_date);
+
+ v_errormsg := 'Update melding status';
+ mld.updatemeldingstatus (v_mld_melding_key, 0, v_aanvrager); -- Facilitor
+ -- meld de opdracht af
+ MLD.setopdrachtstatus (v_mld_opdr_key, 6, v_aanvrager);
+
+ EXCEPTION
+ WHEN OTHERS
+ THEN
+ oracle_err_num := SQLCODE;
+ oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
+ v_errormsg := v_errormsg || ' ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
+ fac.writelog (p_applname, 'E', v_errormsg, '');
+
+ END;
+ ELSE
+ fac.writelog (p_applname, 'E', 'Een bedrag van: ' || rec.prijs || ' euro kan niet aan een kostenplaats gekoppeld worden!', '');
+ END IF;
+ END LOOP;
+ END LOOP;
+ END IF;
+
+ COMMIT;
END;
/
@@ -193,6 +427,19 @@ BEGIN
END aasa_update_opdrstat_strukton;
/
+-- view voor gebouwlistbox bij bewonermutaties. Ivm nieuwe mobilisatie mogen alleen
+-- de nieuw toegevoegde gebouwen hier getoond worden.
+CREATE OR REPLACE VIEW aasa_v_gebouw
+(
+ alg_gebouw_key,
+ alg_gebouw_omschrijving
+)
+AS
+ SELECT alg_gebouw_key, alg_gebouw_omschrijving
+ FROM alg_gebouw
+ WHERE alg_gebouw_verwijder IS NULL
+ AND alg_gebouw_aanmaak > TO_DATE ('20131217', 'yyyymmdd');
+
CREATE OR REPLACE VIEW aasa_v_rap_gebouw_geg
(
code,
@@ -412,12 +659,46 @@ AS
res_rsv_ruimte_key,
ruimte_key;
+-- notificatie naar onderstaand email adres als er een melding in de vakgroep goedkeuring aangemaakt wordt.
+CREATE OR REPLACE VIEW aasa_v_noti_goedkeuring
+(
+ sender,
+ receiver,
+ text,
+ code,
+ fac_srtnotificatie_key,
+ key,
+ xkey,
+ xemail,
+ xmobile
+)
+AS
+ SELECT NULL sender,
+ NULL receiver,
+ NULL text,
+ 'MLD2BO' code,
+ NULL fac_srtnotificatie_key,
+ m.mld_melding_key key,
+ NULL xkey,
+ 'headofficeEurope.authorizations@sabic-europe.com' xemail,
+ NULL xmobile
+ FROM mld_melding m, mld_stdmelding std
+ WHERE m.mld_stdmelding_key = std.mld_stdmelding_key
+ AND std.mld_ins_discipline_key = 1222 -- vakgroep goedkeuring
+ AND m.mld_melding_datum BETWEEN TO_DATE (
+ TO_CHAR (SYSDATE, 'yyyymmdd hh24'),
+ 'yyyymmdd hh24')
+ - (1 / 24)
+ AND TO_DATE (
+ TO_CHAR (SYSDATE, 'yyyymmdd hh24'),
+ 'yyyymmdd hh24')
+ AND m.mld_melding_status = 2;
BEGIN adm.systrackscriptId('$Id$', 0); END;
/
-BEGIN fac.registercustversion('AASA', 20); END;
+BEGIN fac.registercustversion('AASA', 21); END;
/
COMMIT;
diff --git a/AA/AASA/once/AASA#28727.sql b/AA/AASA/once/AASA#28727.sql
new file mode 100644
index 000000000..8c87e0e6b
--- /dev/null
+++ b/AA/AASA/once/AASA#28727.sql
@@ -0,0 +1,331 @@
+/* Formatted on 6-2-2014 14:51:29 (QP5 v5.136.908.31019) */
+UPDATE prs_kostenplaats
+ SET prs_kostenplaatsgrp_key = 62 -- Klantcode
+ WHERE prs_perslid_key IS NULL
+ AND prs_kostenplaats_verwijder IS NULL
+ AND prs_kostenplaatsgrp_key IS NULL
+ AND prs_kostenplaats_eind IS NULL;
+
+UPDATE prs_kostenplaats
+ SET prs_perslid_key = 35721 -- JEAN.HOUBEN
+ WHERE prs_perslid_key IS NULL
+ AND prs_kostenplaats_verwijder IS NULL
+ AND prs_kostenplaats_eind IS NULL;
+
+COMMIT;
+
+-- wijzigingen martin
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2457;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2458;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2459;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2460;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2461;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2462;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2463;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2464;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2466;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2467;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2468;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2469;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2470;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2471;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2472;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2473;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2474;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2475;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2476;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2477;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2478;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2479;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2480;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2481;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2482;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2483;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2484;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2485;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2486;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2487;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2488;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2489;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2490;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2491;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2492;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2493;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2494;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2495;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2496;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2497;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2498;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2499;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2500;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2501;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2502;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2503;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2504;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2505;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2506;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2507;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2508;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2509;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2510;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2511;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2512;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2513;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2514;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2515;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2516;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2517;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2518;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2519;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2520;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2521;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2522;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2523;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2524;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2525;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2526;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2527;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2528;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2529;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2530;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2531;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2532;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2533;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2534;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2535;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2536;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2537;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2538;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2539;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2540;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2541;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2542;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2543;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2544;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2545;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2546;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2547;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2548;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2549;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2550;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2551;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2552;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2553;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2554;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2555;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2556;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2557;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2558;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2559;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2560;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2561;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2562;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2563;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2564;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2565;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2566;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2567;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2568;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2569;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2570;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2571;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2572;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2573;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2574;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2575;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2576;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2577;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2578;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2579;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2580;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2581;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2582;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2583;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2584;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2585;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2586;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2587;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2588;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2589;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2590;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2591;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2592;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2593;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2594;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2595;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2596;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2597;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2598;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2599;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2600;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2601;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2602;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2603;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2604;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2605;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2606;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2607;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2608;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2609;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2610;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2611;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2612;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2613;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2614;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2615;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2616;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2617;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2618;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2619;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2620;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2621;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2622;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2623;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2624;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2625;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2626;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2627;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2628;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2629;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2630;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2631;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2632;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2633;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2634;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2635;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2636;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2637;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2638;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2639;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2640;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2641;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2642;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2643;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2644;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2645;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2646;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2647;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2648;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2649;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2650;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2651;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2761;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2701;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2721;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2341;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2342;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2343;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2344;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2345;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2346;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2347;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2348;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2349;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2350;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2351;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2352;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2353;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2354;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2355;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2356;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2357;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2358;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2359;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2360;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2361;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2362;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2363;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2364;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2365;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2366;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2367;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2368;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2369;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2370;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2371;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2372;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2373;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2374;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2375;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2376;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2377;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2378;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2379;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2380;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2381;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2382;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2384;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2385;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2386;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2387;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2388;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2389;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2390;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2391;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2392;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2393;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2394;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2395;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2396;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2397;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2398;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2399;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2400;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2401;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2402;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2403;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2404;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2405;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2406;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2407;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2408;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2409;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2410;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2411;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2412;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2413;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2414;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2415;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2416;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2417;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2418;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2419;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2420;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2421;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2422;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2423;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2424;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2425;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2426;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2427;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2428;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2429;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2430;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2431;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2432;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2433;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2434;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2435;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2436;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2437;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2438;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2439;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2440;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2441;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2442;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2443;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2444;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2445;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2446;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2447;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2448;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2449;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2450;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2451;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2452;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2453;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2454;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2455;
+update prs_kostenplaats set prs_kostenplaatsgrp_key = 61 where prs_kostenplaats_key = 2456;
+
+commit;
\ No newline at end of file
diff --git a/AA/AASA/once/AASA#28788.sql b/AA/AASA/once/AASA#28788.sql
new file mode 100644
index 000000000..0d9168569
--- /dev/null
+++ b/AA/AASA/once/AASA#28788.sql
@@ -0,0 +1,6 @@
+
+UPDATE ins_deel d
+ SET ins_deel_omschrijving = 'MA' || ins_deel_omschrijving
+ WHERE d.ins_srtdeel_key IN (SELECT ins_srtdeel_key
+ FROM ins_srtdeel sd
+ WHERE ins_srtgroep_key IN (101, 102))
\ No newline at end of file
diff --git a/AA/AASA/once/AASA#28859.sql b/AA/AASA/once/AASA#28859.sql
new file mode 100644
index 000000000..4b742c143
--- /dev/null
+++ b/AA/AASA/once/AASA#28859.sql
@@ -0,0 +1,40 @@
+UPDATE cnt_contract
+ SET cnt_contract_status = NULL
+ WHERE cnt_contract_key IN
+ (SELECT cnt_contract_key
+ FROM cnt_contract c, prs_bedrijfadres ba
+ WHERE NOT EXISTS
+ (SELECT fac_tracking_refkey
+ FROM fac_tracking
+ WHERE fac_srtnotificatie_key = 406
+ AND fac_tracking_refkey = cnt_contract_key)
+ AND cnt_contract_looptijd_tot > SYSDATE
+ AND cnt_contract_status = 0
+ AND cnt_prs_bedrijf_key = ba.prs_bedrijf_key
+ AND ba.prs_bedrijfadres_type = 'O');
+
+
+DECLARE
+ CURSOR c
+ IS
+ SELECT cnt_contract_key, cnt_contract_kosten
+ FROM cnt_contract c, prs_bedrijfadres ba
+ WHERE NOT EXISTS
+ (SELECT fac_tracking_refkey
+ FROM fac_tracking
+ WHERE fac_srtnotificatie_key = 406
+ AND fac_tracking_refkey = cnt_contract_key)
+ AND cnt_contract_looptijd_tot > SYSDATE
+ AND cnt_contract_status IS NULL
+ AND cnt_prs_bedrijf_key = ba.prs_bedrijf_key
+ AND ba.prs_bedrijfadres_type = 'O';
+BEGIN
+ FOR rec IN c
+ LOOP
+ BEGIN
+ cnt.setcontractstatus (rec.cnt_contract_key, 2, NULL);
+ END;
+ END LOOP;
+
+ COMMIT;
+END;
\ No newline at end of file
diff --git a/AA/AAVL/Once/AAVL#28719.sql b/AA/AAVL/Once/AAVL#28719.sql
new file mode 100644
index 000000000..3a7aa133e
--- /dev/null
+++ b/AA/AAVL/Once/AAVL#28719.sql
@@ -0,0 +1,5 @@
+UPDATE mld_opdr o
+ SET o.mld_uitvoerende_keys = 16242
+ WHERE mld_melding_key IN (110208, 110209, 110210);
+
+COMMIT;
\ No newline at end of file
diff --git a/AA/AAVL/aavl.sql b/AA/AAVL/aavl.sql
index 4dfd88697..edc1c47ec 100644
--- a/AA/AAVL/aavl.sql
+++ b/AA/AAVL/aavl.sql
@@ -162,8 +162,8 @@ BEGIN
v_mld_stdmelding_key := 761;
-- key van opdrachttype workorder
v_mld_workorder_key := 1;
- -- key van bedrijf Eurest
- v_prs_bedrijf_key := 571;
+ -- key van bedrijf Appèl
+ v_prs_bedrijf_key := 16242;
v_errormsg := 'Bepaal einddatum';
@@ -515,7 +515,7 @@ BEGIN adm.systrackscriptId('$Id$', 0); END;
/
-BEGIN fac.registercustversion('AAVL', 6); END;
+BEGIN fac.registercustversion('AAVL', 7); END;
/
COMMIT;
diff --git a/AA/AAZC/Once/AAZC#28891.sql b/AA/AAZC/Once/AAZC#28891.sql
new file mode 100644
index 000000000..1ab836f51
--- /dev/null
+++ b/AA/AAZC/Once/AAZC#28891.sql
@@ -0,0 +1,44 @@
+-- AAZC#28891
+--
+--
+SET ECHO ON
+SPOOL AAZC#28891.lst
+PROMPT $Revision$
+ALTER SESSION SET nls_territory='america';
+SET DEFINE OFF
+
+DECLARE
+ CURSOR c
+ IS
+ SELECT mld_opdr_key, mld_melding_key
+ FROM mld_opdr o
+ WHERE mld_statusopdr_key = 1
+ AND EXISTS (SELECT fin_factuur_key
+ FROM fin_factuur f
+ WHERE f.mld_opdr_key = o.mld_opdr_key
+ and f.fin_factuur_statuses_key = 7);
+BEGIN
+ FOR rec IN c
+ LOOP
+ BEGIN
+ UPDATE mld_opdr
+ SET mld_statusopdr_key = 6
+ WHERE mld_opdr_key = rec.mld_opdr_key AND mld_statusopdr_key = 1;
+
+ INSERT INTO fac_tracking (fac_tracking_refkey,
+ fac_srtnotificatie_key,
+ fac_tracking_oms)
+ VALUES (rec.mld_opdr_key,
+ 46, -- ORDUPD
+ 'Opdracht op verzoek van AAFM afgemeld');
+ END;
+ END LOOP;
+
+ COMMIT;
+END;
+/
+
+BEGIN adm.systrackscriptid('$Id$'); END;
+/
+
+SPOOL OFF
diff --git a/AA/AAZC/aazc.sql b/AA/AAZC/aazc.sql
index d366a4fe6..10c6b7d29 100644
--- a/AA/AAZC/aazc.sql
+++ b/AA/AAZC/aazc.sql
@@ -697,10 +697,10 @@ AS
AND res_rsv_ruimte_verwijder IS NULL) rrp,
(SELECT res_kenmerkreservering_waarde, res_rsv_ruimte_key
FROM res_kenmerkwaarde
- WHERE res_kenmerk_key = 1) cl,
+ WHERE res_kenmerk_key = 61) cl,
(SELECT res_kenmerkreservering_waarde, res_rsv_ruimte_key
FROM res_kenmerkwaarde
- WHERE res_kenmerk_key = 21) gd,
+ WHERE res_kenmerk_key = 62) gd,
prs_v_perslid_fullnames_all pf_h,
prs_v_perslid_fullnames_all pf_c,
prs_kostenplaats k,
diff --git a/AA/Once/AAEN#28444.sql b/AA/Once/AAEN#28444.sql
new file mode 100644
index 000000000..e0bb95bb7
--- /dev/null
+++ b/AA/Once/AAEN#28444.sql
@@ -0,0 +1,46 @@
+SET ECHO ON
+SET DEFINE ON
+column fcltlogfile new_value fcltlogfile NOPRINT;
+select UPPER(USER) || '_AAEN#28444_' || to_char(sysdate,'YYYYMMDD_HH24MISS') || '.lst' as fcltlogfile from dual;
+spool &fcltlogfile
+SET DEFINE OFF
+
+
+DECLARE
+ CURSOR c
+ IS
+ SELECT mld_opdr_key,
+ TO_DATE (SUBSTR (oms, INSTR (oms, 'Opdrachtdatum: ') + 18, 16),
+ 'dd-mm-yyyy hh24:mi')
+ begindatum
+ FROM (SELECT (SELECT MAX (fac_tracking_oms) oms
+ FROM fac_tracking t2, fac_srtnotificatie sn
+ WHERE t2.fac_tracking_refkey = o.mld_opdr_key
+ AND t2.fac_srtnotificatie_key = sn.fac_srtnotificatie_key
+ AND sn.fac_srtnotificatie_code = 'ORDUPD'
+ AND t2.fac_tracking_oms LIKE
+ '%Opdrachtdatum:%-->%08:00%'
+ AND t2.fac_tracking_oms NOT LIKE
+ '%Opdrachtdatum:%08:00 -->%')
+ oms,
+ mld_opdr_key
+ FROM mld_opdr o
+ WHERE TO_CHAR (o.mld_opdr_datumbegin, 'hh24:mi') = '08:00');
+BEGIN
+ FOR rec IN c
+ LOOP
+ BEGIN
+ UPDATE mld_opdr
+ SET mld_opdr_datumbegin = rec.begindatum
+ WHERE mld_opdr_key = rec.mld_opdr_key;
+ END;
+ END LOOP;
+END;
+/
+
+
+BEGIN adm.systrackscriptid('$Id$'); END;
+/
+
+COMMIT;
+SPOOL OFF
diff --git a/AA/Once/AAFM#28175.sql b/AA/Once/AAFM#28175.sql
new file mode 100644
index 000000000..ceb919687
--- /dev/null
+++ b/AA/Once/AAFM#28175.sql
@@ -0,0 +1,46 @@
+SET ECHO ON
+SET DEFINE ON
+column fcltlogfile new_value fcltlogfile NOPRINT;
+select UPPER(USER) || '_AAFM#28175_' || to_char(sysdate,'YYYYMMDD_HH24MISS') || '.lst' as fcltlogfile from dual;
+spool &fcltlogfile
+SET DEFINE OFF
+
+
+INSERT INTO prs_kenmerk (prs_kenmerk_key,
+ prs_kenmerk_niveau,
+ prs_kenmerk_volgnr,
+ prs_kenmerk_omschrijving,
+ prs_kenmerk_kenmerktype,
+ prs_kenmerk_lengte,
+ prs_kenmerk_dec)
+ VALUES (5,
+ 'B',
+ 110,
+ 'Datum volgende indexering',
+ 'D',
+ NULL,
+ NULL);
+
+INSERT INTO prs_kenmerk (prs_kenmerk_key,
+ prs_kenmerk_niveau,
+ prs_kenmerk_volgnr,
+ prs_kenmerk_omschrijving,
+ prs_kenmerk_kenmerktype,
+ prs_kenmerk_lengte,
+ prs_kenmerk_dec)
+ VALUES (6,
+ 'B',
+ 120,
+ 'Indexering',
+ 'N',
+ 4,
+ 2);
+
+COMMIT;
+
+
+BEGIN adm.systrackscriptid('$Id$'); END;
+/
+
+COMMIT;
+SPOOL OFF
diff --git a/AA/aaxx.sql b/AA/aaxx.sql
index 1bbae5e24..09e8f4b1d 100644
--- a/AA/aaxx.sql
+++ b/AA/aaxx.sql
@@ -11,35 +11,6 @@ select UPPER(USER) || '_AAXX' || '.lst' as fcltlogfile from dual;
spool &fcltlogfile
SET DEFINE OFF
--------------------------------------------------------------------------------
--- GRANTS naar AAFM database.
--------------------------------------------------------------------------------
-GRANT SELECT ON aaxx_v_dwh_prs_bedrijf TO aafm;
-GRANT SELECT ON aaxx_v_dwh_cnt_contract TO aafm;
-GRANT SELECT ON aaxx_v_dwh_cnt_contract_mantel TO aafm;
-GRANT SELECT ON aaxx_v_dwh_mld_melding TO aafm;
-GRANT SELECT ON aaxx_v_dwh_res_reservering TO aafm;
-GRANT SELECT ON aaxx_v_dwh_bes_bestelling TO aafm;
-GRANT SELECT ON aaxx_v_dwh_kenmerk_melding TO aafm;
-GRANT SELECT ON aaxx_v_dwh_kenmerk_opdracht TO aafm;
-GRANT SELECT ON aaxx_v_dwh_kenmerk_reservering TO aafm;
-GRANT SELECT ON aaxx_v_dwh_kenmerk_bestelling TO aafm;
-GRANT SELECT ON aaxx_v_dwh_fin_factuur TO aafm;
-GRANT SELECT ON aaxx_v_dwh_prs_kostenplaats TO aafm;
-GRANT SELECT ON aaxx_v_dwh_prs_kostensoort TO aafm;
-GRANT SELECT ON aaxx_v_dwh_prs_perslid TO aafm;
-GRANT SELECT ON aaxx_v_dwh_prs_afdeling TO aafm;
-GRANT SELECT ON aaxx_v_dwh_kenmerk_prs TO aafm;
-GRANT SELECT ON aaxx_v_dwh_alg_onrgoed TO aafm;
-GRANT SELECT ON aaxx_v_dwh_kenmerk_onrgoed TO aafm;
-GRANT SELECT ON aaxx_v_dwh_inspectie TO aafm;
-GRANT SELECT ON aaxx_v_dwh_uren TO aafm;
-GRANT SELECT ON aaxx_v_dwh_uren_improd TO aafm;
-GRANT SELECT ON aaxx_v_dwh_tracking TO aafm;
-
-GRANT SELECT ON aaxx_v_lcrap_key_stats TO aafm;
-GRANT SELECT ON aaxx_exp_uren_dekking TO aait;
-GRANT SELECT ON aaxx_exp_uren_dekking TO aait_test;
@@aa_prs_pack.sql;
@@ -173,6 +144,9 @@ BEGIN
-- job om bij to houden welke gebruikers vandaag ingelogd zijn geweest.
aaxx_export_login (p_applname, p_applrun);
+
+ -- job om contracten te indexeren.
+ aaxx_export_index_contract ('INDEX_CONTRACT', to_char(sysdate, 'yyyymmdd hh24miss'));
END;
/
@@ -969,7 +943,7 @@ AS
NULL)
)
projectnummer,
- TO_CHAR ((SELECT COALESCE(mld_kenmerkmelding_waarde, '')
+ TO_CHAR ((SELECT DISTINCT COALESCE(mld_kenmerkmelding_waarde, '')
FROM mld_kenmerkmelding km,
mld_kenmerk k,
mld_srtkenmerk sk
@@ -981,256 +955,222 @@ AS
projectnaam,
prs_kostensoort_oms,
DECODE (aaxx_get_user,
+ 'AMS', DECODE (coalesce (to_char(o.mld_opdr_datumbegin, 'yyyy'), coalesce(to_char(c.cnt_contract_looptijd_tot,'yyyy'), to_char(bo.bes_bestelopdr_datum, 'yyyy'))),
+ '2014', k.prs_kostensoort_refcode,
+ DECODE ( substr(prs_kostensoort_upper, 1, 2),'CF', '1350807',
+ 'CV', '1350808',
+ 'Onbekend')
+ ),
'ARCADIS', DECODE (coalesce (to_char(o.mld_opdr_datumbegin, 'yyyy'), coalesce(to_char(c.cnt_contract_looptijd_tot,'yyyy'), to_char(bo.bes_bestelopdr_datum, 'yyyy'))),
- '2012', DECODE ( substr(prs_kostensoort_upper, 1, 2),'CF', '1350803',
- 'CV', '1350804',
- 'Onbekend'),
- k.prs_kostensoort_refcode),
- 'BT', DECODE (coalesce (to_char(o.mld_opdr_datumbegin, 'yyyy'), coalesce(to_char(c.cnt_contract_looptijd_tot,'yyyy'), to_char(bo.bes_bestelopdr_datum, 'yyyy'))),
- '2010', DECODE ( substr(prs_kostensoort_upper, instr(prs_kostensoort_upper, ' ')+1),
- 'C', '1350822',
- 'NC', '1350823',
- 'P', '1350823',
- 'Onbekend'),
- '2011', DECODE ( substr(prs_kostensoort_upper, instr(prs_kostensoort_upper, ' ')+1),
- 'C', '1350827',
- 'NC', '1350828',
- 'P', '1350817',
- 'Onbekend'),
- '2012', DECODE ( substr(prs_kostensoort_upper, instr(prs_kostensoort_upper, ' ')+1),
- 'C', '1350803',
- 'NC', '1350805',
- 'P', '1350817',
- 'Onbekend'),
- k.prs_kostensoort_refcode),
- 'CE', DECODE (coalesce (to_char(o.mld_opdr_datumbegin, 'yyyy'), coalesce(to_char(c.cnt_contract_looptijd_tot,'yyyy'), to_char(bo.bes_bestelopdr_datum, 'yyyy'))),
- '2010', DECODE (substr(k.prs_kostensoort_upper,1,2), 'VA', '1350822' ,
- 'GM', '1350822' ,
- 'NC', DECODE (ot.mld_typeopdr_omschrijving, 'Projectorder', '1350817',
- 'Workorder', '1350823',
- 'Onbekend'),
- 'Onbekend'),
- '2011', DECODE (substr(k.prs_kostensoort_upper,1,2), 'VA', '1350830' ,
- 'GM', '1350827' ,
- 'NC', DECODE (ot.mld_typeopdr_omschrijving, 'Projectorder', '1350817',
- 'Workorder', '1350828',
- '1350828'), -- contractorder
- 'Onbekend'),
- '2012', DECODE (substr(k.prs_kostensoort_upper,1,2), 'VA', '1350804' ,
- 'GM', '1350803' ,
- 'PR', '1350817' ,
- 'NC', '1350805' ,
- 'Onbekend'),
- k.prs_kostensoort_refcode),
- 'DOW', DECODE (coalesce (to_char(o.mld_opdr_datumbegin, 'yyyy'), coalesce(to_char(c.cnt_contract_looptijd_tot,'yyyy'), to_char(bo.bes_bestelopdr_datum, 'yyyy'))),
- '2010', DECODE (substr(k.prs_kostensoort_upper,1,2), 'CO', '1350822' ,
- 'NC', DECODE (ot.mld_typeopdr_omschrijving, 'Projectorder', '1350817',
- 'Workorder', '1350823',
- 'Onbekend'),
- 'Onbekend'),
- '2011', DECODE (substr(k.prs_kostensoort_upper,1,2), 'CO', '1350827' ,
- 'NC', DECODE (ot.mld_typeopdr_omschrijving, 'Projectorder', '1350817',
- 'Workorder', '1350828',
- '1350828'),
- 'Onbekend'),
- '2012', DECODE (substr(k.prs_kostensoort_upper,1,2), 'CO', DECODE (substr(k.prs_kostensoort_upper,1,7), 'COR VAR', '1350803', '1350803'),
- 'NC', DECODE (substr(k.prs_kostensoort_upper,1,5), 'NC P ', '1350817', '1350805'),
- 'Onbekend'),
- k.prs_kostensoort_refcode),
- 'DSM', DECODE (coalesce (to_char(o.mld_opdr_datumbegin, 'yyyy'), coalesce(to_char(c.cnt_contract_looptijd_tot,'yyyy'), to_char(bo.bes_bestelopdr_datum, 'yyyy'))),
- '2010', DECODE (substr(k.prs_kostensoort_upper,1,3), 'ST ', '1350822' ,
- 'STB', '1350822' ,
- 'AS ', '1350822' ,
- 'AE ', DECODE (ot.mld_typeopdr_omschrijving, 'Projectorder', '1350817',
- 'Workorder', '1350823',
- 'Onbekend'),
- 'Onbekend'),
- '2011', DECODE (substr(k.prs_kostensoort_upper,1,3), 'ST ', '1350827' ,
- 'STB', '1350827' ,
- 'AS ', '1350827' ,
- 'AE ', DECODE (ot.mld_typeopdr_omschrijving, 'Projectorder', '1350817',
- 'Workorder', '1350828',
- '1350828'),
- 'Onbekend'),
- '2012', DECODE (substr(k.prs_kostensoort_upper,1,3), 'ST ', '1350803' ,
- 'STB', '1350803' ,
- 'AS ', '1350803' ,
- 'AE ', DECODE (substr(k.prs_kostensoort_upper,1,7), 'AE PROJ', '1350817', '1350805'),
- 'Onbekend'),
- k.prs_kostensoort_refcode),
- 'ENEXIS', DECODE (coalesce (to_char(o.mld_opdr_datumbegin, 'yyyy'), coalesce(to_char(c.cnt_contract_looptijd_tot,'yyyy'), to_char(bo.bes_bestelopdr_datum, 'yyyy'))),
- '2011', DECODE (substr(k.prs_kostensoort_upper,1,2), 'C ', '1350827' ,
- 'CC', '1350827' ,
- 'NC', DECODE (substr(k.prs_kostensoort_upper,1,5), 'NC P ', '1350817', '1350828'),
- 'Onbekend'),
- '2012', DECODE (substr(k.prs_kostensoort_upper,1,2), 'C ', '1350803' ,
- 'CC', '1350803' ,
- 'NC', DECODE (substr(k.prs_kostensoort_upper,1,5), 'NC P ', '1350817', '1350805'),
- 'Onbekend'),
- k.prs_kostensoort_refcode),
- 'EY', DECODE (substr(fin_factuur_boekmaand, 1,4), to_char(sysdate, 'yyyy'), k.prs_kostensoort_refcode,
- 'balansrek'),
- 'ESSENT', DECODE (coalesce (to_char(o.mld_opdr_datumbegin, 'yyyy'), coalesce(to_char(c.cnt_contract_looptijd_tot,'yyyy'), to_char(bo.bes_bestelopdr_datum, 'yyyy'))),
- '2012', DECODE (substr(k.prs_kostensoort_upper,1,2), 'CF', '1350803' ,
- 'CV', '1350804' ,
- 'NC', '1350817' ,
- 'Onbekend'),
- k.prs_kostensoort_refcode),
- 'FPC', DECODE (coalesce (to_char(o.mld_opdr_datumbegin, 'yyyy'), coalesce(to_char(c.cnt_contract_looptijd_tot,'yyyy'), to_char(bo.bes_bestelopdr_datum, 'yyyy'))),
- '2011', DECODE (kg.prs_kostensoortgrp_oms, 'Core', '1350827' ,
- 'Non Core', '1350830' ,
- 'Core Contingency','1350828' ,
- 'Onbekend'),
- '2012', DECODE (kg.prs_kostensoortgrp_oms, 'Core', '1350803' ,
- 'Non Core', '1350805' ,
- 'Core Contingency','1350804' ,
- 'Onbekend'),
- k.prs_kostensoort_refcode),
- 'HUNTSMAN', DECODE (coalesce (to_char(o.mld_opdr_datumbegin, 'yyyy'), coalesce(to_char(c.cnt_contract_looptijd_tot,'yyyy'), to_char(bo.bes_bestelopdr_datum, 'yyyy'))),
- '2011', DECODE (substr(k.prs_kostensoort_upper,1,2), 'CF', '1350827' ,
- 'CV', '1350830' ,
- 'NC', '1350828' ,
- 'Onbekend'),
- '2012', DECODE (substr(k.prs_kostensoort_upper,1,2), 'CF', '1350803' ,
- 'CV', '1350804' ,
- 'NC', '1350805' ,
- 'Onbekend'),
- k.prs_kostensoort_refcode),
- 'IT', k.prs_kostensoort_refcode, -- geen jaarafsluiting
- 'LB', DECODE (coalesce (to_char(o.mld_opdr_datumbegin, 'yyyy'), coalesce(to_char(c.cnt_contract_looptijd_tot,'yyyy'), to_char(bo.bes_bestelopdr_datum, 'yyyy'))),
- '2010', DECODE (substr(k.prs_kostensoort_upper,1,2), 'CO', '1350822' ,
- 'NC', DECODE (ot.mld_typeopdr_omschrijving, 'Projectorder', '1350817',
- 'Workorder', '1350823',
- '1350823'),
- 'Onbekend'),
- '2011', DECODE (substr(k.prs_kostensoort_upper,1,2), 'CO', '1350827' ,
- 'CV', '1350827' ,
- 'NC', DECODE (ot.mld_typeopdr_omschrijving, 'Projectorder', '1350817',
- 'Workorder', '1350828',
- '1350828'),
- 'Onbekend'),
- '2012', DECODE (substr(k.prs_kostensoort_upper,1,2), 'CO', '1350803' ,
- 'CF', '1350803' ,
- 'CV', '1350804' ,
- 'NC', '1350805' ,
- 'Onbekend'),
- k.prs_kostensoort_refcode),
- 'MEDIQ', DECODE (coalesce (to_char(o.mld_opdr_datumbegin, 'yyyy'), coalesce(to_char(c.cnt_contract_looptijd_tot,'yyyy'), to_char(bo.bes_bestelopdr_datum, 'yyyy'))),
- '2011', DECODE (substr(k.prs_kostensoort_upper,1,2), 'CF', '1350827' ,
- 'CV', '1350830' ,
- 'NC', '1350828' ,
- 'Onbekend'),
- '2012', DECODE (substr(k.prs_kostensoort_upper,1,2), 'CF', '1350803' ,
- 'CV', '1350804' ,
- 'Onbekend'),
- k.prs_kostensoort_refcode),
- 'NS', DECODE (coalesce (to_char(o.mld_opdr_datumbegin, 'yyyy'), coalesce(to_char(c.cnt_contract_looptijd_tot,'yyyy'), to_char(bo.bes_bestelopdr_datum, 'yyyy'))),
- '2009', DECODE (substr(k.prs_kostensoort_upper,1,2), 'PR', '1350819' , '1350818'),
- '2010', DECODE (substr(k.prs_kostensoort_upper,1,2), 'PR', '1350817' ,
- 'MW', '1350823' ,
- '1350822'),
- '2011', DECODE (substr(k.prs_kostensoort_upper,1,2), 'PR', '1350817' ,
- 'MW', '1350828' ,
- '1350827'),
- '2012', DECODE (substr(k.prs_kostensoort_upper,1,2), 'PR', '1350817' ,
- 'MW', '1350804' ,
- '1350803'),
- k.prs_kostensoort_refcode),
- 'NXP', DECODE (coalesce (to_char(o.mld_opdr_datumbegin, 'yyyy'), coalesce(to_char(c.cnt_contract_looptijd_tot,'yyyy'), to_char(bo.bes_bestelopdr_datum, 'yyyy'))),
- '2011', DECODE (substr(k.prs_kostensoort_upper,1,2), 'C ', '1350827' ,
- 'NC', '1350828' ,
- 'Onbekend'),
- '2012', DECODE (substr(k.prs_kostensoort_upper,1,2), 'C ', '1350803' ,
- 'NC', '1350805' ,
- 'Onbekend'),
- k.prs_kostensoort_refcode),
- 'SABIC', DECODE (coalesce (to_char(o.mld_opdr_datumbegin, 'yyyy'), coalesce(to_char(c.cnt_contract_looptijd_tot,'yyyy'), to_char(bo.bes_bestelopdr_datum, 'yyyy'))),
- '2011', DECODE (kg.prs_kostensoortgrp_oms, 'Non Core', '1350828' ,
- 'Core', '1350827' ,
- 'Projecten','1350817' ,
- 'Onbekend'),
- '2012', DECODE (kg.prs_kostensoortgrp_oms, 'Non Core', '1350805' ,
- 'Core', '1350803' ,
- 'Projecten','1350817' ,
- 'Onbekend'),
- k.prs_kostensoort_refcode),
- 'VL', DECODE (coalesce (to_char(o.mld_opdr_datumbegin, 'yyyy'), coalesce(to_char(c.cnt_contract_looptijd_tot,'yyyy'), to_char(bo.bes_bestelopdr_datum, 'yyyy'))),
- '2012', DECODE (substr(k.prs_kostensoort_upper,1,2), 'CF', '1350803' ,
- 'CV', '1350804' ,
- 'NC', DECODE (substr(k.prs_kostensoort_upper,1,7), 'NC PROJ', '1350817', '1350805'),
- 'Onbekend'),
- k.prs_kostensoort_refcode),
- 'AMS', DECODE (coalesce (to_char(o.mld_opdr_datumbegin, 'yyyy'), coalesce(to_char(c.cnt_contract_looptijd_tot,'yyyy'), to_char(bo.bes_bestelopdr_datum, 'yyyy'))),
- '2011', DECODE (substr(k.prs_kostensoort_upper,1,2), 'CF', '1350827' ,
- 'CV', '1350830' ,
- 'Onbekend'),
- k.prs_kostensoort_refcode),
+ '2014', k.prs_kostensoort_refcode,
+ DECODE ( substr(prs_kostensoort_upper, 1, 2),'CF', '1350807',
+ 'CV', '1350808',
+ 'Onbekend')
+ ),
+ 'CE', DECODE (coalesce (to_char(o.mld_opdr_datumbegin, 'yyyy'), coalesce(to_char(c.cnt_contract_looptijd_tot,'yyyy'), to_char(bo.bes_bestelopdr_datum, 'yyyy'))),
+ '2014', k.prs_kostensoort_refcode,
+ DECODE (substr(k.prs_kostensoort_upper,1,2), 'VA', '1350808',
+ 'GM', '1350807',
+ 'PR', '1350817',
+ 'NC', '1350809',
+ 'Onbekend')
+ ),
+ 'DOW', DECODE (coalesce (to_char(o.mld_opdr_datumbegin, 'yyyy'), coalesce(to_char(c.cnt_contract_looptijd_tot,'yyyy'), to_char(bo.bes_bestelopdr_datum, 'yyyy'))),
+ '2014', k.prs_kostensoort_refcode,
+ DECODE (substr(k.prs_kostensoort_upper,1,2), 'CO', DECODE (substr(k.prs_kostensoort_upper,1,7), 'COR VAR', '1350808', '1350807'),
+ 'NC', DECODE (substr(k.prs_kostensoort_upper,1,5), 'NC P ', '1350817', '1350809'),
+ 'Onbekend')
+ ),
+ 'DSM', DECODE (coalesce (to_char(o.mld_opdr_datumbegin, 'yyyy'), coalesce(to_char(c.cnt_contract_looptijd_tot,'yyyy'), to_char(bo.bes_bestelopdr_datum, 'yyyy'))),
+ '2014', k.prs_kostensoort_refcode,
+ DECODE (substr(k.prs_kostensoort_upper,1,3), 'ST ', '1350807',
+ 'STB', '1350807',
+ 'AS ', '1350807',
+ 'AE ', DECODE (substr(k.prs_kostensoort_upper,1,7), 'AE PROJ', '1350817', '1350809'),
+ 'Onbekend')
+ ),
+ 'ENEXIS', DECODE (coalesce (to_char(o.mld_opdr_datumbegin, 'yyyy'), coalesce(to_char(c.cnt_contract_looptijd_tot,'yyyy'), to_char(bo.bes_bestelopdr_datum, 'yyyy'))),
+ '2014', k.prs_kostensoort_refcode,
+ DECODE (substr(k.prs_kostensoort_upper,1,2), 'C ', '1350807',
+ 'CC', '1350808',
+ 'NC', DECODE (substr(k.prs_kostensoort_upper,1,5), 'NC P ', '1350817', '1350809'),
+ 'Onbekend')
+ ),
+ 'ESSENT', DECODE (coalesce (to_char(o.mld_opdr_datumbegin, 'yyyy'), coalesce(to_char(c.cnt_contract_looptijd_tot,'yyyy'), to_char(bo.bes_bestelopdr_datum, 'yyyy'))),
+ '2014', k.prs_kostensoort_refcode,
+ DECODE (substr(k.prs_kostensoort_upper,1,2), 'CF', '1350807',
+ 'CV', '1350808',
+ 'NC', '1350817',
+ 'Onbekend')
+ ),
+ 'EY', DECODE (substr(fin_factuur_boekmaand, 1,4),
+ to_char(sysdate, 'yyyy'), k.prs_kostensoort_refcode,
+ DECODE (substr(k.prs_kostensoort_upper,1,3), 'CF ', '1350807',
+ 'CV ', '1350808',
+ 'Onbekend')
+ ),
+ 'FPC', DECODE (coalesce (to_char(o.mld_opdr_datumbegin, 'yyyy'), coalesce(to_char(c.cnt_contract_looptijd_tot,'yyyy'), to_char(bo.bes_bestelopdr_datum, 'yyyy'))),
+ '2014', k.prs_kostensoort_refcode,
+ DECODE (kg.prs_kostensoortgrp_oms, 'Core', '1350807',
+ 'Non Core', '1350809',
+ 'Core Contingency','1350808',
+ 'Onbekend')
+ ),
+ 'HUNTSMAN',DECODE (coalesce (to_char(o.mld_opdr_datumbegin, 'yyyy'), coalesce(to_char(c.cnt_contract_looptijd_tot,'yyyy'), to_char(bo.bes_bestelopdr_datum, 'yyyy'))),
+ '2014', k.prs_kostensoort_refcode,
+ DECODE (substr(k.prs_kostensoort_upper,1,2), 'CF', '1350807',
+ 'CV', '1350808',
+ 'NC', DECODE (substr(k.prs_kostensoort_upper,1,5), 'NC P ', '1350817', '1350809'),
+ 'Onbekend')
+ ),
+ 'IT', DECODE (coalesce (to_char(o.mld_opdr_datumbegin, 'yyyy'), coalesce(to_char(c.cnt_contract_looptijd_tot,'yyyy'), to_char(bo.bes_bestelopdr_datum, 'yyyy'))),
+ '2014', k.prs_kostensoort_refcode,
+ DECODE (lk.prs_kostenplaats_nr,
+ '2000700',
+ DECODE (substr(k.prs_kostensoort_upper,1,2), 'C ', '1350807',
+ 'NC', '1350809',
+ 'Onbekend'),
+ k.prs_kostensoort_refcode)
+ ),
+ 'LB', DECODE (coalesce (to_char(o.mld_opdr_datumbegin, 'yyyy'), coalesce(to_char(c.cnt_contract_looptijd_tot,'yyyy'), to_char(bo.bes_bestelopdr_datum, 'yyyy'))),
+ '2014', k.prs_kostensoort_refcode,
+ DECODE (substr(k.prs_kostensoort_upper,1,2), 'CO', '1350807',
+ 'CF', '1350807',
+ 'C ', '1350807',
+ 'CV', '1350808',
+ 'NC', '1350809',
+ 'Onbekend')
+ ),
+ 'NS', DECODE (coalesce (to_char(o.mld_opdr_datumbegin, 'yyyy'), coalesce(to_char(c.cnt_contract_looptijd_tot,'yyyy'), to_char(bo.bes_bestelopdr_datum, 'yyyy'))),
+ '2014', k.prs_kostensoort_refcode,
+ DECODE (substr(k.prs_kostensoort_upper,1,2), 'PR', '1350817',
+ 'MW', '1350808',
+ '1350807')
+ ),
+ 'NXP', DECODE (coalesce (to_char(o.mld_opdr_datumbegin, 'yyyy'), coalesce(to_char(c.cnt_contract_looptijd_tot,'yyyy'), to_char(bo.bes_bestelopdr_datum, 'yyyy'))),
+ '2014', k.prs_kostensoort_refcode,
+ DECODE (substr(k.prs_kostensoort_upper,1,2), 'C ', '1350807',
+ 'CV', '1350808',
+ 'NC', '1350809',
+ 'Onbekend')
+ ),
+ 'PM', DECODE (coalesce (to_char(o.mld_opdr_datumbegin, 'yyyy'), coalesce(to_char(c.cnt_contract_looptijd_tot,'yyyy'), to_char(bo.bes_bestelopdr_datum, 'yyyy'))),
+ '2014', k.prs_kostensoort_refcode,
+ DECODE (substr(k.prs_kostensoort_upper,1,2), 'C ', '1350807',
+ 'CV', '1350808',
+ 'NC', DECODE (substr(k.prs_kostensoort_upper,1,7), 'NC PROJ', '1350817', '1350809'),
+ 'Onbekend')
+ ),
+ 'RWS', DECODE (coalesce (to_char(o.mld_opdr_datumbegin, 'yyyy'), coalesce(to_char(c.cnt_contract_looptijd_tot,'yyyy'), to_char(bo.bes_bestelopdr_datum, 'yyyy'))),
+ '2014', k.prs_kostensoort_refcode,
+ DECODE (substr(k.prs_kostensoort_upper,1,2), 'CF', '1350807',
+ 'CV', '1350808',
+ 'NC', '1350809',
+ 'Onbekend')
+ ),
+ 'SABIC', DECODE (coalesce (to_char(o.mld_opdr_datumbegin, 'yyyy'), coalesce(to_char(c.cnt_contract_looptijd_tot,'yyyy'), to_char(bo.bes_bestelopdr_datum, 'yyyy'))),
+ '2014', k.prs_kostensoort_refcode,
+ DECODE (kg.prs_kostensoortgrp_oms, 'Non Core', '1350809',
+ 'Core', '1350807',
+ 'Projecten','1350817',
+ 'Onbekend')
+ ),
+ 'VL', DECODE (coalesce (to_char(o.mld_opdr_datumbegin, 'yyyy'), coalesce(to_char(c.cnt_contract_looptijd_tot,'yyyy'), to_char(bo.bes_bestelopdr_datum, 'yyyy'))),
+ '2014', k.prs_kostensoort_refcode,
+ DECODE (substr(k.prs_kostensoort_upper,1,2), 'CF', '1350807',
+ 'CV', '1350808',
+ 'NC', DECODE (substr(k.prs_kostensoort_upper,1,7), 'NC PROJ', '1350817', '1350809'),
+ 'Onbekend')
+ ),
+ 'ZCN', DECODE (coalesce (to_char(o.mld_opdr_datumbegin, 'yyyy'), coalesce(to_char(c.cnt_contract_looptijd_tot,'yyyy'), to_char(bo.bes_bestelopdr_datum, 'yyyy'))),
+ '2014', k.prs_kostensoort_refcode,
+ DECODE (substr(k.prs_kostensoort_upper,1,2), 'CF', '1350807',
+ 'CV', '1350808',
+ 'NC', DECODE (substr(k.prs_kostensoort_upper,1,7), 'NC PROJ', '1350817', '1350809'),
+ 'Onbekend')
+ ),
k.prs_kostensoort_refcode),
DECODE (aaxx_get_user,
- 'CE', DECODE (coalesce (to_char(o.mld_opdr_datumbegin, 'yyyy'), coalesce(to_char(c.cnt_contract_looptijd_tot,'yyyy'), to_char(bo.bes_bestelopdr_datum, 'yyyy'))),
- '2013', DECODE (substr(k.prs_kostensoort_upper,1,2), 'VA', '8210531' ,
- 'GM', 'nvt' ,
- 'NC', DECODE (ot.mld_typeopdr_omschrijving, 'Projectorder', '8110555',
- 'Workorder', '8210532',
- '8210532'),
- 'Onbekend'),
- DECODE (substr(k.prs_kostensoort_upper,1,2), 'VA', '1033306' ,
- 'GM', '1033303' ,
- 'PR', '1033302' ,
- 'NC', '1033304' ,
- 'Onbekend')),
- 'DOW', DECODE (coalesce (to_char(o.mld_opdr_datumbegin, 'yyyy'), coalesce(to_char(c.cnt_contract_looptijd_tot,'yyyy'), to_char(bo.bes_bestelopdr_datum, 'yyyy'))),
- '2013', DECODE (substr(k.prs_kostensoort_upper,1,2), 'CO', '8210530' ,
- 'NC', DECODE (substr(k.prs_kostensoort_upper,1,5), 'NC P ', '8110555', '8210532'),
- 'Onbekend'),
- DECODE (substr(k.prs_kostensoort_upper,1,2), 'CO', DECODE (substr(k.prs_kostensoort_upper,1,7), 'COR VAR', '1033306', '1033303'),
- 'NC', DECODE (substr(k.prs_kostensoort_upper,1,5), 'NC P ', '1033302', '1033304'),
- 'Onbekend')),
- 'DSM', DECODE (coalesce (to_char(o.mld_opdr_datumbegin, 'yyyy'), coalesce(to_char(c.cnt_contract_looptijd_tot,'yyyy'), to_char(bo.bes_bestelopdr_datum, 'yyyy'))),
- '2013', '8' || substr(prs_kostensoort_refcode,2,10),
- DECODE (substr(k.prs_kostensoort_upper,1,3), 'ST ', '1033303' ,
- 'STB', '1033303' ,
- 'AS ', '1033303' ,
- 'AE ', DECODE (substr(k.prs_kostensoort_upper,1,7), 'AE PROJ', '1033302', '1033304'),
- 'Onbekend')),
- 'ENEXIS', '8110556',
- 'ESSENT', DECODE (coalesce (to_char(o.mld_opdr_datumbegin, 'yyyy'), coalesce(to_char(c.cnt_contract_looptijd_tot,'yyyy'), to_char(bo.bes_bestelopdr_datum, 'yyyy'))),
- '2013', '8210532'),
- 'LB', DECODE (coalesce (to_char(o.mld_opdr_datumbegin, 'yyyy'), coalesce(to_char(c.cnt_contract_looptijd_tot,'yyyy'), to_char(bo.bes_bestelopdr_datum, 'yyyy'))),
- '2013' , DECODE (substr(k.prs_kostensoort_upper,1,2), 'NC', DECODE (ot.mld_typeopdr_omschrijving, 'Projectorder', '8110555',
- 'Workorder', '8210532',
- '8210532'),
- 'Onbekend'),
- DECODE (substr(k.prs_kostensoort_upper,1,2), 'CO', '1033303' ,
- 'CF', '1033303' ,
- 'CV', '1033306' ,
- 'NC', '1033304' ,
- 'Onbekend')),
- 'NXP', DECODE (coalesce (to_char(o.mld_opdr_datumbegin, 'yyyy'), coalesce(to_char(c.cnt_contract_looptijd_tot,'yyyy'), to_char(bo.bes_bestelopdr_datum, 'yyyy'))),
- '2013' , DECODE (substr(k.prs_kostensoort_upper,1,2), 'NC', '8210532',
- 'Onbekend')
- ),
- 'SABIC', DECODE (coalesce (to_char(o.mld_opdr_datumbegin, 'yyyy'), coalesce(to_char(c.cnt_contract_looptijd_tot,'yyyy'), to_char(bo.bes_bestelopdr_datum, 'yyyy'))),
- '2013', DECODE (k.prs_kostensoort_upper, 'HNM-NC', '8110566',
- 'MCI-NC', '8110566',
- 'MEW-NC', '8110566',
- 'RAS-NC', '8210561',
- 'TAS-NC', '8210561',
- 'HOS-NC', '8210562',
- 'RES-NC', '8210563',
- 'Onbekend'),
- DECODE (kg.prs_kostensoortgrp_oms, 'Non Core', '1033304' ,
- 'Core', '1033303' ,
- 'Projecten','1033302' ,
- 'Onbekend')),
- 'VL', DECODE (coalesce (to_char(o.mld_opdr_datumbegin, 'yyyy'), coalesce(to_char(c.cnt_contract_looptijd_tot,'yyyy'), to_char(bo.bes_bestelopdr_datum, 'yyyy'))),
- '2013', DECODE (substr(k.prs_kostensoort_upper,1,2), 'NC', '8210532',
- 'CV', '8210531',
- 'Onbekend'),
- DECODE (substr(k.prs_kostensoort_upper,1,2), 'CF', '1033303' ,
- 'CV', '1033306' ,
- 'NC', DECODE (substr(k.prs_kostensoort_upper,1,7), 'NC PROJ', '1033302', '1033304'),
- 'Onbekend')),
+ 'CE', DECODE (coalesce (to_char(o.mld_opdr_datumbegin, 'yyyy'), coalesce(to_char(c.cnt_contract_looptijd_tot,'yyyy'), to_char(bo.bes_bestelopdr_datum, 'yyyy'))),
+ '2014', DECODE (substr(k.prs_kostensoort_upper,1,2), 'VA', '8210531',
+ 'GM', 'nvt',
+ 'NC', DECODE (ot.mld_typeopdr_omschrijving, 'Projectorder', '8110555',
+ 'Workorder', '8210532',
+ '8210532'),
+ 'Onbekend'),
+ DECODE (substr(k.prs_kostensoort_upper,1,2), 'VA', '1033306',
+ 'GM', '1033303',
+ 'PR', '1033302',
+ 'NC', '1033304',
+ 'Onbekend')
+ ),
+ 'DOW', DECODE (coalesce (to_char(o.mld_opdr_datumbegin, 'yyyy'), coalesce(to_char(c.cnt_contract_looptijd_tot,'yyyy'), to_char(bo.bes_bestelopdr_datum, 'yyyy'))),
+ '2014', DECODE (substr(k.prs_kostensoort_upper,1,2), 'CO', '8210530' ,
+ 'NC', DECODE (substr(k.prs_kostensoort_upper,1,5), 'NC P ', '8110555', '8210532'),
+ 'Onbekend'),
+ DECODE (substr(k.prs_kostensoort_upper,1,2), 'CO', DECODE (substr(k.prs_kostensoort_upper,1,7), 'COR VAR', '1033306', '1033303'),
+ 'NC', DECODE (substr(k.prs_kostensoort_upper,1,5), 'NC P ', '1033302', '1033304'),
+ 'Onbekend')
+ ),
+ 'DSM', DECODE (coalesce (to_char(o.mld_opdr_datumbegin, 'yyyy'), coalesce(to_char(c.cnt_contract_looptijd_tot,'yyyy'), to_char(bo.bes_bestelopdr_datum, 'yyyy'))),
+ '2014', '8' || substr(prs_kostensoort_refcode,2,10),
+ DECODE (substr(k.prs_kostensoort_upper,1,3), 'ST ', '1033303',
+ 'STB', '1033303',
+ 'AS ', '1033303',
+ 'AE ', DECODE (substr(k.prs_kostensoort_upper,1,7), 'AE PROJ', '1033302', '1033304'),
+ 'Onbekend')
+ ),
+ 'ENEXIS', DECODE (coalesce (to_char(o.mld_opdr_datumbegin, 'yyyy'), coalesce(to_char(c.cnt_contract_looptijd_tot,'yyyy'), to_char(bo.bes_bestelopdr_datum, 'yyyy'))),
+ '2014', '8110555',
+ DECODE (substr(k.prs_kostensoort_upper,1,2), 'C ', '1033303',
+ 'CC', '1033306',
+ 'NC', DECODE (substr(k.prs_kostensoort_upper,1,5), 'NC P ', '1033302', '1033304'),
+ 'Onbekend')
+ ),
+ 'ESSENT', DECODE (coalesce (to_char(o.mld_opdr_datumbegin, 'yyyy'), coalesce(to_char(c.cnt_contract_looptijd_tot,'yyyy'), to_char(bo.bes_bestelopdr_datum, 'yyyy'))),
+ '2014', '8210532',
+ DECODE (substr(k.prs_kostensoort_upper,1,2), 'CF', '1033303',
+ 'CV', '1033306',
+ 'NC', '1033302',
+ 'Onbekend')
+ ),
+ 'LB', DECODE (coalesce (to_char(o.mld_opdr_datumbegin, 'yyyy'), coalesce(to_char(c.cnt_contract_looptijd_tot,'yyyy'), to_char(bo.bes_bestelopdr_datum, 'yyyy'))),
+ '2014' , DECODE (substr(k.prs_kostensoort_upper,1,2), 'NC', DECODE (ot.mld_typeopdr_omschrijving, 'Projectorder', '8110555',
+ 'Workorder', '8210532',
+ '8210532'),
+ 'Onbekend'),
+ DECODE (substr(k.prs_kostensoort_upper,1,2), 'CO', '1033303',
+ 'CF', '1033303',
+ 'C ', '1033303',
+ 'CV', '1033306',
+ 'NC', '1033304',
+ 'Onbekend')
+ ),
+ 'NXP', DECODE (coalesce (to_char(o.mld_opdr_datumbegin, 'yyyy'), coalesce(to_char(c.cnt_contract_looptijd_tot,'yyyy'), to_char(bo.bes_bestelopdr_datum, 'yyyy'))),
+ '2014' , DECODE (substr(k.prs_kostensoort_upper,1,2), 'NC', '8210532',
+ 'Onbekend'),
+ DECODE (substr(k.prs_kostensoort_upper,1,2), 'C ', '1033303',
+ 'NV', '1033306',
+ 'NC', '1033304',
+ 'Onbekend')
+ ),
+ 'SABIC', DECODE (coalesce (to_char(o.mld_opdr_datumbegin, 'yyyy'), coalesce(to_char(c.cnt_contract_looptijd_tot,'yyyy'), to_char(bo.bes_bestelopdr_datum, 'yyyy'))),
+ '2014', DECODE (k.prs_kostensoort_upper, 'CF GROEN', '8210530',
+ '8210531'),
+ DECODE (kg.prs_kostensoortgrp_oms, 'Non Core', '1033304' ,
+ 'Core', '1033303' ,
+ 'Projecten','1033302' ,
+ 'Onbekend')
+ ),
+ 'VL', DECODE (coalesce (to_char(o.mld_opdr_datumbegin, 'yyyy'), coalesce(to_char(c.cnt_contract_looptijd_tot,'yyyy'), to_char(bo.bes_bestelopdr_datum, 'yyyy'))),
+ '2014', DECODE (substr(k.prs_kostensoort_upper,1,2), 'NC', '8210532',
+ 'CV', '8210531',
+ 'Onbekend'),
+ DECODE (substr(k.prs_kostensoort_upper,1,2), 'CF', '1033303' ,
+ 'CV', '1033306' ,
+ 'NC', DECODE (substr(k.prs_kostensoort_upper,1,7), 'NC PROJ', '1033302', '1033304'),
+ 'Onbekend')
+ ),
'Onbekend') vk_prs_kostensoort_refcode,
k.prs_kostensoort_key,
COALESCE(o.prs_kostenplaats_key,
@@ -1704,7 +1644,9 @@ BEGIN
'CE', aaxx_get_dep_code(k.prs_kostenplaats_nr),
'LB', exact_code,
'NXP', DECODE(g.alg_locatie_key, 21, '0000004', '0000003'), -- locatie 21 = eindhoven
- 'SABIC', k.prs_kostenplaats_nr,
+ 'SABIC', DECODE (to_char(opdr_datum, 'YYYY'), '2012', k.prs_kostenplaats_nr,
+ '2013', k.prs_kostenplaats_nr,
+ aaxx_get_top_dep_code(k.prs_kostenplaats_nr)),
'VL', aaxx_get_top_dep_code(k.prs_kostenplaats_nr),
SUBSTR (prs_kostenplaats_nr, 1, 30)) prs_kostenplaats_nr,
DECODE (aaxx_get_user, 'DOW', substr(aaxx_get_top_dep_code(k.prs_kostenplaats_nr),1,6),
@@ -1718,7 +1660,13 @@ BEGIN
4, '911929' -- Moerdijk
),
'NXP', 2,
- 'SABIC', aaxx_get_top_dep_code(k.prs_kostenplaats_nr),
+ 'SABIC', DECODE (to_char(opdr_datum, 'YYYY'), '2012', aaxx_get_top_dep_code(k.prs_kostenplaats_nr),
+ '2013', aaxx_get_top_dep_code(k.prs_kostenplaats_nr),
+ (SELECT distinct prs_leverancier_nr FROM prs_bedrijf b, prs_afdeling a
+ WHERE b.prs_bedrijf_key = a.prs_bedrijf_key
+ AND b.prs_bedrijf_verwijder IS NULL
+ AND a.prs_afdeling_verwijder IS NULL
+ AND a.prs_afdeling_naam = aaxx_get_top_dep_code(k.prs_kostenplaats_nr))),
'VL', aaxx_get_top_dep_code(k.prs_kostenplaats_nr),
SUBSTR (prs_kostenplaats_nr, 1, 30)) debiteur,
ks.prs_kostensoort_oms || DECODE(TO_CHAR(opdr_datum,'YYYY'), TO_CHAR(TO_NUMBER(TO_CHAR(SYSDATE, 'yyyy'))-1), ' VJ','') ,
@@ -1728,7 +1676,10 @@ BEGIN
'DOW', 'Service Charges',
'VL', 'Core Variabel',
'NXP', 'NC ' || DECODE (g.alg_locatie_key, 21, 'Eindhoven', 'Nijmegen'),
- (SELECT prs_kostensoortgrp_oms || DECODE (aaxx_get_user, 'LB', ' ' || exact_code, 'SABIC', ' ' || k.prs_kostenplaats_nr)
+ (SELECT prs_kostensoortgrp_oms || DECODE (aaxx_get_user, 'LB', ' ' || exact_code,
+ 'SABIC', ' ' || DECODE (to_char(opdr_datum, 'YYYY'), '2012', k.prs_kostenplaats_nr,
+ '2013', k.prs_kostenplaats_nr,
+ aaxx_get_top_dep_code(k.prs_kostenplaats_nr)))
FROM prs_kostensoortgrp ksg
WHERE ksg.prs_kostensoortgrp_key = ks.prs_kostensoortgrp_key)
) prs_kostensoortgrp_oms,
@@ -1763,7 +1714,7 @@ BEGIN
),
0 btw, -- deprecated
DECODE (aaxx_get_user,
- 'SABIC', DECODE (ks.prs_kostensoort_oms, 'RAS-NC', 2, 5),
+ 'SABIC', DECODE (ks.prs_kostensoort_oms, 'RAS-NC', 2, 'CV OP VERV', 2, 5), -- Kostensoorten RAS-NC en CV OP VERV zijn laag tarief
'DSM', DECODE (fg.prs_kostensoort_refcode, '4321006', fin_btwtabelwaarde_code, 5), --AADS#21168
fin_btwtabelwaarde_code) fin_btwtabelwaarde_code,
to_char(opdr_datum, 'YYYY'),
@@ -1777,6 +1728,9 @@ BEGIN
AND ( ks.prs_kostensoort_upper LIKE 'ST ONDH%'
OR ks.prs_kostensoort_upper LIKE 'STB ONDH%')),
'DOW', substr(aaxx_get_top_dep_code(k.prs_kostenplaats_nr),1,6),
+ 'SABIC', DECODE (to_char(opdr_datum, 'YYYY'), '2012', '',
+ '2013', '',
+ aaxx_get_top_dep_code(k.prs_kostenplaats_nr)),
'') groepering,
DECODE (aaxx_get_user, 'LB', prs_kostensoort_oms || '1',
'DOW', 'A' || prs_kostensoort_oms,
@@ -1864,8 +1818,20 @@ BEGIN
AND ks.prs_kostensoort_upper LIKE 'NC%'
)
OR ( aaxx_get_user = 'SABIC'
- AND ks.prs_kostensoort_upper LIKE '%NC'
- AND ot.mld_typeopdr_omschrijving = 'Workorder'
+ AND ( ( o.mld_opdr_datumbegin < to_date ('20140101', 'yyyymmdd') -- Voor sabic geldt in 2014 een ander mechanisme (AASA#28673)
+ AND ks.prs_kostensoort_upper LIKE '%NC'
+ AND ot.mld_typeopdr_omschrijving = 'Workorder'
+ )
+ OR ( o.mld_opdr_datumbegin > to_date ('20140101', 'yyyymmdd') -- Voor sabic geldt voor 2014 een ander mechanisme (AASA#28673)
+ AND ks.prs_kostensoort_upper LIKE 'CV %'
+ AND ks.prs_kostensoort_upper <> 'CV CONS REST'
+ AND ks.prs_kostensoort_upper <> 'CV CONS AUT'
+ AND ks.prs_kostensoort_upper <> 'CV SCH OVR'
+ AND ks.prs_kostensoort_upper <> 'CV DOC POST'
+ AND ks.prs_kostensoort_upper <> 'CV AFVAL REST'
+ AND ( ks.prs_kostensoort_upper <> 'CV EIG BOUW PL' OR ot.mld_typeopdr_omschrijving = 'Workorder')
+ )
+ )
)
OR ( aaxx_get_user = 'CE'
AND ( ot.mld_typeopdr_omschrijving = 'Workorder'
@@ -1914,6 +1880,7 @@ BEGIN
AND fg.prs_kostensoort_key = ks.prs_kostensoort_key(+)
AND COALESCE(f.administratie, 'GEEN') = COALESCE(p_administratie,'GEEN');
+
-- voeg contract orders toe aan de verkoopbuffer
-- bij DSM wordt gegroepeerd op REMA contract
IF aaxx_get_user = 'DSM' THEN
@@ -2028,6 +1995,7 @@ BEGIN
'CE', aaxx_get_dep_code (k.prs_kostenplaats_nr),
'NS', SUBSTR (prs_kostenplaats_nr, 1, 30),
'NXP', DECODE(g.alg_locatie_key, 21, '0000004', '0000003'), -- locatie 21 = eindhoven
+ 'SABIC', aaxx_get_top_dep_code(k.prs_kostenplaats_nr),
'VL', aaxx_get_top_dep_code(k.prs_kostenplaats_nr)
) prs_kostenplaats_nr,
DECODE (aaxx_get_user,
@@ -2041,6 +2009,11 @@ BEGIN
'CE', aaxx_get_dep_code (k.prs_kostenplaats_nr),
'NS', SUBSTR (prs_kostenplaats_nr, 1, 30),
'NXP', 2,
+ 'SABIC', (SELECT distinct prs_leverancier_nr FROM prs_bedrijf b, prs_afdeling a
+ WHERE b.prs_bedrijf_key = a.prs_bedrijf_key
+ AND b.prs_bedrijf_verwijder IS NULL
+ AND a.prs_afdeling_verwijder IS NULL
+ AND a.prs_afdeling_naam = aaxx_get_top_dep_code(k.prs_kostenplaats_nr)),
'VL', aaxx_get_top_dep_code(k.prs_kostenplaats_nr)
) debiteur,
ks.prs_kostensoort_oms || DECODE(TO_CHAR(opdr_datum,'YYYY'), TO_CHAR(TO_NUMBER(TO_CHAR(SYSDATE, 'yyyy'))-1), ' VJ','') ,
@@ -2049,7 +2022,7 @@ BEGIN
DECODE (aaxx_get_user,
'DOW', 'Service Charges',
'NXP', 'NC ' || DECODE (g.alg_locatie_key, 21, 'Eindhoven', 'Nijmegen'),
- (SELECT prs_kostensoortgrp_oms || DECODE (aaxx_get_user, 'LB', ' ' || exact_code, 'SABIC', ' ' || k.prs_kostenplaats_nr)
+ (SELECT prs_kostensoortgrp_oms || DECODE (aaxx_get_user, 'LB', ' ' || exact_code, 'SABIC', ' ' || aaxx_get_top_dep_code(k.prs_kostenplaats_nr))
FROM prs_kostensoortgrp ksg
WHERE ksg.prs_kostensoortgrp_key = ks.prs_kostensoortgrp_key)
) prs_kostensoortgrp_oms,
@@ -2061,14 +2034,17 @@ BEGIN
'NS', ROUND (fg.bedrag * 1.065,2),
fg.bedrag),
0 btw, -- deprecated
- fin_btwtabelwaarde_code, -- AADS#21168
+ DECODE (aaxx_get_user, 'SABIC', DECODE (prs_kostensoort_upper, 'CV OP VERV', 2, 5),
+ fin_btwtabelwaarde_code) fin_btwtabelwaarde_code, -- AADS#21168
to_char(opdr_datum, 'YYYY'),
DECODE (aaxx_get_user, 'LB', exact_code,
'VL', exact_code,
'NXP', exact_code,
'DOW', '',
+ 'SABIC', exact_code,
alg_gebouw_code) exact_code,
DECODE (aaxx_get_user, 'DOW', substr(aaxx_get_top_dep_code(k.prs_kostenplaats_nr),1,6),
+ 'SABIC', aaxx_get_top_dep_code(k.prs_kostenplaats_nr),
'') groepering,
DECODE (aaxx_get_user, 'LB', prs_kostensoort_oms || '1',
'DOW', 'A' || prs_kostensoort_oms, '') subregelvolgorde
@@ -2139,6 +2115,16 @@ BEGIN
OR ks.prs_kostensoort_upper = 'COR VAR IND CLO')
)
OR
+ ( aaxx_get_user = 'SABIC'
+ AND ks.prs_kostensoort_upper LIKE 'CV %'
+ AND ks.prs_kostensoort_upper <> 'CV CONS REST'
+ AND ks.prs_kostensoort_upper <> 'CV CONS AUT'
+ AND ks.prs_kostensoort_upper <> 'CV SCH OVR'
+ AND ks.prs_kostensoort_upper <> 'CV DOC POST'
+ AND ks.prs_kostensoort_upper <> 'CV AFVAL REST'
+ AND c.cnt_contract_looptijd_van >= to_date ('20140101', 'yyyymmdd') -- Voor sabic geldt voor 2014 een ander mechanisme (AASA#28673)
+ )
+ OR
( aaxx_get_user = 'VL'
AND ks.prs_kostensoort_upper IN (
'CV OND',
@@ -2931,7 +2917,7 @@ BEGIN
aaxx_add_xml_row (v_bestand, '');
aaxx_add_xml_element (v_bestand, 'Description', rec.projectnaam);
--aaxx_add_xml_row (v_bestand, '');
-IF (SUBSTR (rec.rek_courant, 1) = '2') -- Beginnend met '2'!
+IF (SUBSTR (rec.rek_courant, 1, 1) = '2') -- Begint met '2'!
THEN
aaxx_add_xml_row (v_bestand, '');
ELSE
@@ -3095,9 +3081,7 @@ BEGIN
-- regels op gedefinieerde projecten (hardgecodeerd!) tot slot
-- nog een dekkingsregel aangemaakt.
-- Het leverende account wordt bepaald door het gedeelte achter
- -- de slash ('/') in de 'Rek. Courant'-eigen tabel, tenzij een
- -- specifieke administratie (via p_kpnprefix) is meegeven, dan
- -- geldt deze administratie als lev_account (igv. AAIT)!
+ -- de slash ('/') in de 'Rek. Courant'-eigen tabel!
INSERT INTO aaxx_exp_uren_dekking (aanmaak,
mld_opdr_uren_key,
mld_opdr_uren_datum,
@@ -3113,28 +3097,22 @@ BEGIN
SELECT SYSDATE,
ug.mld_opdr_uren_key,
ug.mld_opdr_uren_datum,
- ug.projecttype_code,
- ug.rek_courant,
- COALESCE (ug.projectkpn_opdr, ug.projectkpn_perslid),
- ug.aafm_perslid_nr,
- ug.meldingnr,
- ug.projectnaam,
+ SUBSTR (ug.projecttype_code, 1, 10),
+ SUBSTR (ug.rek_courant, 1, 10),
+ SUBSTR (COALESCE (ug.projectkpn_opdr, ug.projectkpn_perslid), 1 , 30),
+ SUBSTR (ug.aafm_perslid_nr, 1, 30),
+ SUBSTR (ug.meldingnr, 1, 20),
+ SUBSTR (ug.projectnaam, 1, 30),
ug.mld_opdr_uren_besteed,
COALESCE (ug.uurtarief_opdr, ug.uurtarief_perslid),
- DECODE (
- u.administratie,
- '001', 'Centraal',
- '012', 'Project Management',
- '300', 'AAFM International',
- COALESCE (
- SUBSTR (
- TRIM(SUBSTR (ud.fac_usrdata_omschr,
- INSTR (ud.fac_usrdata_omschr, '/') + 1)),
- 1,
- 30
- ),
- 'XXX'
- )
+ COALESCE (
+ SUBSTR (
+ TRIM(SUBSTR (ud.fac_usrdata_omschr,
+ INSTR (ud.fac_usrdata_omschr, '/') + 1)),
+ 1,
+ 30
+ ),
+ 'XXX'
)
FROM aaxx_exp_uren u, aaxx_v_exact_uren_gegevens ug, fac_usrdata ud
WHERE COALESCE (u.administratie, 'GEEN') =
@@ -3143,8 +3121,14 @@ BEGIN
AND ug.projecttype_code IN ('0100024', '4130976', '4370901')
AND TRIM (ug.rek_courant) = TRIM (ud.fac_usrdata_code)
AND ud.fac_usrtab_key = 15 -- Rek. Courant-tabel
- AND SUBSTR (ud.fac_usrdata_code, 1) = '2' -- Beginnend met '2'!
- AND ud.fac_usrdata_verwijder IS NULL;
+ AND SUBSTR (ud.fac_usrdata_code, 1, 1) = '2' -- Begint met '2'!
+ AND ud.fac_usrdata_verwijder IS NULL
+ AND NOT EXISTS
+ (SELECT 1
+ FROM aaxx_exp_uren_dekking
+ WHERE mld_opdr_uren_key = ug.mld_opdr_uren_key);
+
+ COMMIT;
EXCEPTION
WHEN OTHERS
THEN
@@ -3887,6 +3871,7 @@ CREATE OR REPLACE VIEW aaxx_v_dwh_prs_afdeling
prs_afdeling_naam,
prs_afdeling_omschrijving,
prs_kostenplaats_nr,
+ prs_afdeling_verwijder,
prs_bedrijf_naam,
niveau
)
@@ -3895,6 +3880,7 @@ AS
a.prs_afdeling_naam,
a.prs_afdeling_omschrijving,
k.prs_kostenplaats_nr,
+ a.prs_afdeling_verwijder,
prs_bedrijf_naam,
niveau
FROM prs_v_afdeling a,
@@ -5043,10 +5029,9 @@ AS
(SELECT MAX (prs_perslid_naam_full)
FROM prs_v_perslid_fullnames_all pf
WHERE pf.prs_perslid_key =
- fac.gettrackinguserkey ('BESAP2',
- b.bes_bestelling_key))
+ COALESCE(fac.gettrackinguserkey ('BESNEW', b.bes_bestelling_key), fac.gettrackinguserkey ('BESAP2', b.bes_bestelling_key)))
invoerder,
- fac.gettrackinguserkey ('BESAP2', b.bes_bestelling_key)
+ COALESCE(fac.gettrackinguserkey ('BESNEW', b.bes_bestelling_key), fac.gettrackinguserkey ('BESAP2', b.bes_bestelling_key))
invoerder_key,
fac.gettrackingdate ('BESACP', b.bes_bestelling_key)
acceptatie_datum,
@@ -5645,7 +5630,7 @@ AS
(SELECT MAX (prs_perslid_naam_full)
FROM prs_v_perslid_fullnames_all pf
WHERE pf.prs_perslid_key =
- fac.gettrackinguserkey ('BESAP2', b.bes_bestelling_key))
+ COALESCE(fac.gettrackinguserkey ('BESNEW', b.bes_bestelling_key), fac.gettrackinguserkey ('BESAP2', b.bes_bestelling_key)))
invoerder,
(SELECT ksg.prs_kostensoortgrp_oms
FROM prs_kostensoortgrp ksg, prs_kostensoort ks
@@ -6137,6 +6122,271 @@ AS
WHERE sn.fac_srtnotificatie_key = t.fac_srtnotificatie_key
AND sn.fac_srtnotificatie_xmlnode IS NOT NULL;
+-------------------------------------------------------------------------------
+-- EXPORTFUNCTIE - DWH_BUDGET_TRACKER
+-------------------------------------------------------------------------------
+CREATE OR REPLACE VIEW aaxx_v_dwh_budget_tracker
+(
+ nummer,
+ datum,
+ status,
+ laatste_actie,
+ vakgroeptype,
+ vakgroep,
+ kostensoort_code,
+ kostensoort_omschrijving,
+ financiele_waarde,
+ kostensoortgroep_omschrijving,
+ melding,
+ omschrijving,
+ organisatie,
+ naam,
+ kostenplaats,
+ kostenplaats_omschrijving,
+ plaats,
+ locatie,
+ gebouw,
+ code_exact,
+ opdracht_status,
+ uitvoerende,
+ contactpersoon,
+ uren,
+ uurloon,
+ materiaal,
+ kosten,
+ gefactureerd
+)
+AS
+ SELECT m.mld_melding_key || '/' || mld_opdr_bedrijfopdr_volgnr nummer,
+ o.mld_opdr_datumbegin datum,
+ (SELECT mld_statusopdr_omschrijving
+ FROM mld_statusopdr s
+ WHERE o.mld_statusopdr_key = s.mld_statusopdr_key)
+ status,
+ mld.getopdrachtstatusdate (o.mld_opdr_key, mld_statusopdr_key)
+ laatste_actie,
+ sd.ins_srtdiscipline_prefix vakgroeptype,
+ md.ins_discipline_omschrijving vakgroep,
+ COALESCE (kstd.prs_kostensoort_oms, kvg.prs_kostensoort_oms)
+ kostensoort_code,
+ COALESCE (kstd.prs_kostensoort_opmerking,
+ kvg.prs_kostensoort_opmerking)
+ kostensoort_omschrijving,
+ COALESCE (kstd.prs_kostensoort_refcode,
+ kvg.prs_kostensoort_refcode)
+ financiele_waarde,
+ (SELECT prs_kostensoortgrp_oms
+ FROM prs_kostensoortgrp ksg
+ WHERE ksg.prs_kostensoortgrp_key =
+ COALESCE (kstd.prs_kostensoortgrp_key,
+ kvg.prs_kostensoortgrp_key))
+ kostensoortgroep_omschrijving,
+ std.mld_stdmelding_omschrijving melding,
+ mld_melding_omschrijving omschrijving,
+ (SELECT d.prs_afdeling_naam
+ FROM prs_v_afdeling d
+ WHERE p.prs_afdeling_key = d.prs_afdeling_key)
+ organisatie,
+ p.prs_perslid_naam
+ || DECODE (NVL (p.prs_perslid_voorletters, ''),
+ '', '',
+ ', ' || p.prs_perslid_voorletters)
+ || DECODE (NVL (p.prs_perslid_tussenvoegsel, ''),
+ '', '',
+ ' ' || p.prs_perslid_tussenvoegsel)
+ || DECODE (NVL (p.prs_perslid_voornaam, ''),
+ '', '',
+ ' (' || p.prs_perslid_voornaam || ')')
+ naam,
+ (SELECT k.prs_kostenplaats_nr
+ FROM prs_kostenplaats k
+ WHERE k.prs_kostenplaats_key = o.prs_kostenplaats_key)
+ kostenplaats,
+ (SELECT k.prs_kostenplaats_omschrijving
+ FROM prs_kostenplaats k
+ WHERE k.prs_kostenplaats_key = o.prs_kostenplaats_key)
+ kostenplaats_omschrijving,
+ (SELECT alg_locatie_code
+ FROM alg_locatie l
+ WHERE m.mld_alg_locatie_key = l.alg_locatie_key)
+ || (SELECT CASE COALESCE (g.alg_gebouw_code, '')
+ WHEN '' THEN ''
+ ELSE '-' || g.alg_gebouw_code
+ END
+ || CASE COALESCE (g.alg_verdieping_code, '')
+ WHEN '' THEN ''
+ ELSE '-' || g.alg_verdieping_code
+ END
+ || CASE COALESCE (g.alg_ruimte_nr, '')
+ WHEN '' THEN ''
+ ELSE '-' || g.alg_ruimte_nr
+ END
+ FROM alg_v_allonrgoed_gegevens g
+ WHERE m.mld_alg_onroerendgoed_keys = g.alg_onroerendgoed_keys)
+ plaats,
+ alg_locatie_code locatie,
+ alg_gebouw_code gebouw,
+ COALESCE ( (SELECT exact_code
+ FROM aaxx_v_exact_code_gebouw ogk
+ WHERE ogk.alg_gebouw_key = v.alg_gebouw_key),
+ v.alg_gebouw_code)
+ code_exact,
+ (SELECT mld_statusopdr_omschrijving
+ FROM mld_statusopdr so
+ WHERE o.mld_statusopdr_key = so.mld_statusopdr_key)
+ opdracht_status,
+ COALESCE ( (SELECT prs_bedrijf_naam
+ FROM prs_bedrijf b
+ WHERE o.mld_uitvoerende_keys = prs_bedrijf_key),
+ (SELECT prs_perslid_naam_full
+ FROM prs_v_perslid_fullnames_all
+ WHERE o.mld_uitvoerende_keys = prs_perslid_key))
+ uitvoerende,
+ (SELECT prs_perslid_naam_full
+ FROM prs_v_perslid_fullnames_all pf
+ WHERE o.prs_perslid_key = pf.prs_perslid_key)
+ contactpersoon,
+ o.mld_opdr_uren uren,
+ o.mld_opdr_uurloon uurloon,
+ o.mld_opdr_materiaal materiaal,
+ o.mld_opdr_kosten kosten,
+ COALESCE ( (SELECT SUM (f.fin_factuur_totaal)
+ FROM aaxx_v_aanwezigfactuur f
+ WHERE f.mld_opdr_key = o.mld_opdr_key), 0)
+ gefactureerd
+ FROM mld_melding m,
+ mld_discipline md,
+ ins_srtdiscipline sd,
+ alg_v_allonrgoed_gegevens v,
+ alg_locatie l,
+ alg_district di,
+ prs_perslid p,
+ mld_opdr o,
+ mld_stdmelding std,
+ prs_kostensoort kstd,
+ prs_kostensoort kvg
+ WHERE m.mld_alg_locatie_key = l.alg_locatie_key(+)
+ AND l.alg_district_key = di.alg_district_key(+)
+ AND md.ins_srtdiscipline_key = sd.ins_srtdiscipline_key(+)
+ AND m.mld_alg_onroerendgoed_keys = v.alg_onroerendgoed_keys(+)
+ AND m.prs_perslid_key = p.prs_perslid_key
+ AND m.mld_stdmelding_key = std.mld_stdmelding_key
+ AND std.mld_ins_discipline_key = md.ins_discipline_key
+ AND m.mld_melding_key = o.mld_melding_key
+ AND std.prs_kostensoort_key = kstd.prs_kostensoort_key(+)
+ AND md.prs_kostensoort_key = kvg.prs_kostensoort_key(+)
+ UNION ALL
+ SELECT cnt_contract_nummer_intern,
+ c.cnt_contract_looptijd_van,
+ DECODE (
+ SIGN (cnt_contract_looptijd_van - SYSDATE),
+ 1,
+ 'Toekomst',
+ -1,
+ DECODE (SIGN (cnt_contract_looptijd_tot - SYSDATE),
+ 1, 'Actueel',
+ -1, 'Verlopen'))
+ status,
+ c.cnt_contract_looptijd_tot laatste_actie,
+ 'Contract' vakgroeptype,
+ d.ins_discipline_omschrijving vakgroep,
+ k.prs_kostensoort_oms kostensoort_code,
+ k.prs_kostensoort_opmerking kostensoort_omschrijving,
+ k.prs_kostensoort_refcode financiele_waarde,
+ (SELECT prs_kostensoortgrp_oms
+ FROM prs_kostensoortgrp ksg
+ WHERE ksg.prs_kostensoortgrp_key = k.prs_kostensoortgrp_key)
+ kostensoortgroep_omschrijving,
+ c.cnt_contract_omschrijving melding,
+ SUBSTR (
+ REPLACE (cnt_contract_document, CHR (13) || CHR (10), ''),
+ 1,
+ 2000)
+ omschrijving,
+ prs_afdeling_naam organisatie,
+ p.prs_perslid_naam
+ || DECODE (NVL (p.prs_perslid_voorletters, ''),
+ '', '',
+ ', ' || p.prs_perslid_voorletters)
+ || DECODE (NVL (p.prs_perslid_tussenvoegsel, ''),
+ '', '',
+ ' ' || p.prs_perslid_tussenvoegsel)
+ || DECODE (NVL (p.prs_perslid_voornaam, ''),
+ '', '',
+ ' (' || p.prs_perslid_voornaam || ')')
+ naam,
+ kp.prs_kostenplaats_nr kostenplaats,
+ kp.prs_kostenplaats_omschrijving kostenplaats_omschrijving,
+ alg_locatie_code || '-' || alg_gebouw_code plaats,
+ alg_locatie_code locatie,
+ alg_gebouw_code gebouw,
+ COALESCE ( (SELECT exact_code
+ FROM aaxx_v_exact_code_gebouw ogk
+ WHERE ogk.alg_gebouw_key = g.alg_gebouw_key),
+ g.alg_gebouw_code)
+ code_exact,
+ '-' opdracht_status,
+ prs_bedrijf_naam uitvoerende,
+ '-' contactpersoon,
+ 0 uren,
+ 0 uurloon,
+ 0 materiaal,
+ COALESCE (
+ DECODE (
+ cnt_gew.cnt_contract_plaats_gewicht,
+ 0,
+ 1,
+ (cp.cnt_contract_plaats_gewicht
+ / cnt_gew.cnt_contract_plaats_gewicht)
+ * c.cnt_contract_kosten),
+ 0)
+ kosten,
+ COALESCE (
+ DECODE (
+ cnt_gew.cnt_contract_plaats_gewicht,
+ 0,
+ 1,
+ (cp.cnt_contract_plaats_gewicht
+ / cnt_gew.cnt_contract_plaats_gewicht)
+ * (SELECT SUM (fin_factuur_totaal)
+ FROM aaxx_v_aanwezigfactuur f
+ WHERE f.cnt_contract_key = c.cnt_contract_key)),
+ 0)
+ gefactureerd
+ FROM cnt_contract c,
+ cnt_discipline d,
+ cnt_contract_plaats cp,
+ prs_bedrijf b,
+ prs_kostensoort k,
+ prs_kostenplaats kp,
+ prs_afdeling a,
+ prs_perslid p,
+ alg_locatie l,
+ alg_gebouw g,
+ prs_contactpersoon cop,
+ ( SELECT cnt_contract_key,
+ SUM (cnt_contract_plaats_gewicht)
+ cnt_contract_plaats_gewicht
+ FROM cnt_contract_plaats
+ GROUP BY cnt_contract_key) cnt_gew,
+ (SELECT cp.cnt_contract_plaats_key, alg_locatie_key, alg_gebouw_key
+ FROM alg_v_allonroerendgoed aog, cnt_contract_plaats cp
+ WHERE aog.alg_type = cp.cnt_alg_plaats_code
+ AND aog.alg_onroerendgoed_keys = cp.cnt_alg_plaats_key) cog
+ WHERE c.cnt_contract_key = cp.cnt_contract_key(+)
+ AND c.cnt_contract_key = cnt_gew.cnt_contract_key(+)
+ AND c.cnt_prs_bedrijf_key = b.prs_bedrijf_key
+ AND c.ins_discipline_key = d.ins_discipline_key
+ AND d.prs_kostensoort_key = k.prs_kostensoort_key(+)
+ AND c.prs_kostenplaats_key = kp.prs_kostenplaats_key(+)
+ AND c.prs_afdeling_key_eig = a.prs_afdeling_key
+ AND c.prs_perslid_key_beh = p.prs_perslid_key
+ AND cp.cnt_contract_plaats_key = cog.cnt_contract_plaats_key(+)
+ AND c.prs_contactpersoon_key = cop.prs_contactpersoon_key(+)
+ AND cog.alg_locatie_key = l.alg_locatie_key(+)
+ AND cog.alg_gebouw_key = g.alg_gebouw_key(+)
+ AND cnt_contract_verwijder IS NULL;
+
-------------------------------------------------------------------------------
-- Rapportage tbv berekening aantal key users
-------------------------------------------------------------------------------
@@ -6932,53 +7182,51 @@ BEGIN
-- Insert geformatteerde import record
- IF v_gebouw_code IS NOT NULL
- THEN
- v_errormsg :=
- 'Fout bij toevoegen te importeren gebouw ['
- || v_gebouw_code
- || ']';
- INSERT INTO AAXX_IMP_CONTRACT (gebouw,
- leverancier,
- leveranciernummer,
- beschrijving,
- van,
- tot,
- omschrijving,
- bedrag,
- termijnbedrag,
- dienst,
- contractsoort,
- contractnummer,
- versie,
- volgnummer,
- contractafdeling,
- contractmanager,
- gewijzigddoor,
- volgorde)
- VALUES (v_gebouw_code,
- v_leverancier,
- v_leveranciernummer,
- v_beschrijving,
- fac.safe_to_date (v_van, 'dd-mm-yy'),
- fac.safe_to_date (v_tot, 'dd-mm-yy'),
- v_omschrijving,
- fac.safe_to_number (
- REPLACE (v_bedrag, ',', '.')),
- fac.safe_to_number (
- REPLACE (v_termijnbedrag, ',', '.')),
- v_dienst,
- SUBSTR(v_contractsoort,1,30),
- v_contractnummer,
- v_versie,
- fac.safe_to_number (
- REPLACE (v_volgnummer, ',', '.')),
- v_contractafdeling,
- v_contractmanager,
- v_gewijzigddoor,
- rec.fac_imp_file_index);
- END IF;
+ v_errormsg :=
+ 'Fout bij toevoegen te importeren gebouw ['
+ || v_gebouw_code
+ || ']';
+
+ INSERT INTO AAXX_IMP_CONTRACT (gebouw,
+ leverancier,
+ leveranciernummer,
+ beschrijving,
+ van,
+ tot,
+ omschrijving,
+ bedrag,
+ termijnbedrag,
+ dienst,
+ contractsoort,
+ contractnummer,
+ versie,
+ volgnummer,
+ contractafdeling,
+ contractmanager,
+ gewijzigddoor,
+ volgorde)
+ VALUES (v_gebouw_code,
+ v_leverancier,
+ v_leveranciernummer,
+ v_beschrijving,
+ fac.safe_to_date (v_van, 'dd-mm-yy'),
+ fac.safe_to_date (v_tot, 'dd-mm-yy'),
+ v_omschrijving,
+ fac.safe_to_number (
+ REPLACE (v_bedrag, ',', '.')),
+ fac.safe_to_number (
+ REPLACE (v_termijnbedrag, ',', '.')),
+ v_dienst,
+ SUBSTR(v_contractsoort,1,30),
+ v_contractnummer,
+ v_versie,
+ fac.safe_to_number (
+ REPLACE (v_volgnummer, ',', '.')),
+ v_contractafdeling,
+ v_contractmanager,
+ v_gewijzigddoor,
+ rec.fac_imp_file_index);
END IF;
END;
END LOOP;
@@ -7014,13 +7262,14 @@ CREATE OR REPLACE PROCEDURE aaxx_update_contract (p_import_key IN NUMBER)
AS
CURSOR cdisc
IS
- SELECT DISTINCT contractsoort
+ SELECT contractsoort, MIN(volgorde) volgorde
FROM aaxx_imp_contract
WHERE NOT EXISTS
(SELECT ins_discipline_key
FROM cnt_discipline
WHERE UPPER (TRIM (ins_discipline_omschrijving)) =
- UPPER (TRIM (contractsoort)));
+ UPPER (TRIM (contractsoort)))
+ GROUP BY contractsoort;
CURSOR c
IS
@@ -7080,7 +7329,7 @@ BEGIN
FOR rec IN cdisc
LOOP
BEGIN
- v_aanduiding := ' contractsoort: ' || rec.contractsoort;
+ v_aanduiding := ' regel[' || rec.volgorde || '] contractsoort: ' || rec.contractsoort;
v_error_hint := 'Toevoegen contractsoort:' || rec.contractsoort;
INSERT INTO ins_tab_discipline (ins_discipline_module,
@@ -7322,6 +7571,132 @@ END;
/
+CREATE OR REPLACE PROCEDURE aaxx_export_index_contract (
+ p_applname IN VARCHAR2,
+ p_applrun IN VARCHAR2)
+AS
+ CURSOR c
+ IS
+ SELECT prs_bedrijf_naam,
+ prs_bedrijf_key,
+ cnt_contract_key,
+ cnt_contract_nummer,
+ cnt_contract_versie,
+ fac.safe_to_number (kl_p.prs_kenmerklink_waarde) percentage
+ FROM prs_bedrijf b,
+ cnt_contract c,
+ prs_kenmerklink kl_d,
+ prs_kenmerklink kl_p
+ WHERE b.prs_bedrijf_key = c.cnt_prs_bedrijf_key
+ AND kl_p.prs_link_key = b.prs_bedrijf_key
+ AND kl_p.prs_kenmerk_key = 6 -- indexering
+ AND kl_d.prs_link_key = b.prs_bedrijf_key
+ AND kl_d.prs_kenmerk_key = 5 -- datum volgende indexering
+ AND kl_d.prs_kenmerklink_waarde = TO_CHAR (SYSDATE, 'dd-mm-yyyy')
+ AND TRUNC (SYSDATE) <> cnt_contract_looptijd_van
+ AND TRUNC (SYSDATE) <> cnt_contract_looptijd_tot
+ AND SYSDATE BETWEEN cnt_contract_looptijd_van
+ AND cnt_contract_looptijd_tot;
+
+ v_new_contract_key NUMBER;
+ v_errormsg VARCHAR (200);
+ v_errorhint VARCHAR (200);
+ oracle_err_num NUMBER;
+ oracle_err_mes VARCHAR2 (200);
+BEGIN
+ -- Splitsen en indexeren FACILITOR-contracten.
+ FOR rec IN c
+ LOOP
+ BEGIN
+ DBMS_OUTPUT.put_line (rec.prs_bedrijf_naam);
+ v_errorhint := 'Fout bij splitsen contract.';
+
+ cnt.splitscontract (rec.cnt_contract_key,
+ TRUNC (SYSDATE), -- Splitsdatum
+ NULL,
+ NULL);
+
+ -- Na splitsen wordt de nieuwe versie geïndexeerd.
+ v_errorhint := 'Fout bij bepalen nieuwe versie.';
+
+ SELECT cnt_contract_key
+ INTO v_new_contract_key
+ FROM cnt_v_aanwezigcontract
+ WHERE cnt_contract_nummer = rec.cnt_contract_nummer
+ AND cnt_contract_versie > COALESCE (rec.cnt_contract_versie, '0');
+
+ v_errorhint := 'Fout bij bijwerken jaarbedrag.';
+
+ UPDATE cnt_contract
+ SET cnt_contract_kosten =
+ ROUND (
+ cnt_contract_kosten * ( (100 + rec.percentage) / 100),
+ 2)
+ WHERE cnt_contract_key = v_new_contract_key;
+
+ v_errorhint := 'Fout bij bijwerken termijnbedrag.';
+
+ UPDATE cnt_contract
+ SET cnt_contract_termijnkosten =
+ ROUND (
+ cnt_contract_termijnkosten
+ * ( (100 + rec.percentage) / 100),
+ 2)
+ WHERE cnt_contract_key = v_new_contract_key;
+
+ IF fac.getsetting ('cnt_scopeverdeling') = '1'
+ THEN
+ UPDATE cnt_contract_plaats
+ SET cnt_contract_plaats_gewicht =
+ ROUND (
+ cnt_contract_plaats_gewicht
+ * ( (100 + rec.percentage) / 100),
+ 2)
+ WHERE cnt_contract_key = v_new_contract_key;
+ END IF;
+
+ v_errorhint := 'Fout bij bijwerken index-tracking (CNTUPD).';
+
+ fac.trackaction (
+ 'CNTUPD',
+ v_new_contract_key,
+ NULL,
+ NULL,
+ 'Contract geïndexeerd met ' || TO_CHAR (rec.percentage) || '%');
+ COMMIT;
+ EXCEPTION
+ WHEN OTHERS
+ THEN
+ oracle_err_num := SQLCODE;
+ oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
+ v_errormsg :=
+ ' ORACLE (error '
+ || oracle_err_num
+ || '/'
+ || oracle_err_mes
+ || ')';
+ fac.writelog (p_applname,
+ 'W',
+ rec.prs_bedrijf_naam || v_errormsg,
+ v_errorhint);
+ COMMIT;
+ END;
+ END LOOP;
+EXCEPTION
+ WHEN OTHERS
+ THEN
+ oracle_err_num := SQLCODE;
+ oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
+ v_errormsg :=
+ 'ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
+ fac.writelog (p_applname,
+ 'E',
+ 'Proces index_contract afgebroken!',
+ v_errormsg);
+ COMMIT;
+END;
+/
+
--------------------------------
-- import ruimtegegevens
--------------------------------
@@ -9455,6 +9830,7 @@ AS
lastnote.mld_opdr_note_omschrijving omschrijving
FROM mld_opdr o,
mld_melding m,
+ mld_stdmelding std,
prs_bedrijf b,
alg_v_onroerendgoed alg,
alg_gebouw g,
@@ -9489,6 +9865,8 @@ AS
AND o.mld_opdr_key = note.mld_opdr_key(+)
AND o.fac_activiteit_key IS NULL
AND o.mld_opdr_key = lastnote.mld_opdr_key(+)
+ AND m.mld_stdmelding_key = std.mld_stdmelding_key
+ AND std.mld_stdmelding_slabewaken = 1
AND o.mld_statusopdr_key IN (5, 8) -- Toegekend + Geaccepteerd
AND b.prs_bedrijf_key = o.mld_uitvoerende_keys
AND m.mld_melding_key = o.mld_melding_key
@@ -9535,16 +9913,16 @@ AS
CREATE OR REPLACE VIEW aaxx_v_rap_catering_export
(
- RESERVERING,
- FCLT_F_AFDELINGSCODE,
- AFDELINGS_OMSCHRIJVING,
- BOEKINGSDATUM,
- AFMELDDATUM,
- FCLT_F_PERIODE,
- AANVRAGER,
- GEBOUW,
- BTW,
- TOTAAL
+ reservering,
+ fclt_f_afdelingscode,
+ afdelings_omschrijving,
+ boekingsdatum,
+ afmelddatum,
+ fclt_f_periode,
+ aanvrager,
+ gebouw,
+ btw,
+ totaal
)
AS
SELECT reservering,
@@ -9556,7 +9934,7 @@ AS
aanvrager,
gebouw,
TO_CHAR (btw),
- SUM (totaalprijs)
+ SUM (totaalprijs) prijs
FROM (SELECT rrr.res_reservering_key || '/' || rrr.res_rsv_ruimte_volgnr
reservering,
k.prs_kostenplaats_nr kostenplaats_nr,
@@ -9578,28 +9956,31 @@ AS
prs_afdeling a,
prs_v_perslid_fullnames_all pf,
res_artikel ra,
- (SELECT DISTINCT
- rrr.res_rsv_ruimte_key,
- (SELECT alg_gebouw_key
- FROM alg_verdieping v, alg_ruimte r
- WHERE v.alg_verdieping_key = r.alg_verdieping_key
- AND r.alg_ruimte_key =
- COALESCE (r2ar.alg_ruimte_key,
- rrr.alg_ruimte_key))
- alg_gebouw_key
- FROM RES_V_RSV_RUIMTE_2_ALG_RUIMTE r2ar,
- res_v_aanwezigrsv_ruimte rrr
- WHERE rrr.res_rsv_ruimte_key = r2ar.res_rsv_ruimte_key(+))
- rg
- WHERE rra.res_status_bo_key = 6
- AND rra.res_rsv_ruimte_key = rrr.res_rsv_ruimte_key
- AND rrr.prs_kostenplaats_key = k.prs_kostenplaats_key
- AND rrr.res_rsv_ruimte_host_key = p.prs_perslid_key
- AND p.prs_afdeling_key = a.prs_afdeling_key
- AND p.prs_perslid_key = pf.prs_perslid_key
- AND rra.res_artikel_key = ra.res_artikel_key
- AND rrr.res_rsv_ruimte_key = rg.res_rsv_ruimte_key
- AND rg.alg_gebouw_key = g.alg_gebouw_key(+))
+ ( SELECT res_rsv_ruimte_key,
+ MAX (alg_gebouw_key) alg_gebouw_key
+ FROM (SELECT rrr.res_rsv_ruimte_key,
+ (SELECT alg_gebouw_key
+ FROM alg_verdieping v, alg_ruimte r
+ WHERE v.alg_verdieping_key =
+ r.alg_verdieping_key
+ AND r.alg_ruimte_key =
+ COALESCE (r2ar.alg_ruimte_key,
+ rrr.alg_ruimte_key))
+ alg_gebouw_key
+ FROM res_v_rsv_ruimte_2_alg_ruimte r2ar,
+ res_v_aanwezigrsv_ruimte rrr
+ WHERE rrr.res_rsv_ruimte_key =
+ r2ar.res_rsv_ruimte_key(+))
+ GROUP BY res_rsv_ruimte_key) rg
+ WHERE rra.res_status_bo_key = 6
+ AND rra.res_rsv_ruimte_key = rrr.res_rsv_ruimte_key
+ AND rrr.prs_kostenplaats_key = k.prs_kostenplaats_key(+)
+ AND rrr.res_rsv_ruimte_host_key = p.prs_perslid_key
+ AND p.prs_afdeling_key = a.prs_afdeling_key
+ AND p.prs_perslid_key = pf.prs_perslid_key
+ AND rra.res_artikel_key = ra.res_artikel_key
+ AND rrr.res_rsv_ruimte_key = rg.res_rsv_ruimte_key
+ AND rg.alg_gebouw_key = g.alg_gebouw_key(+))
GROUP BY reservering,
kostenplaats_nr,
kostenplaats,
@@ -10724,7 +11105,6 @@ AS
mld_disc_params dp,
fac_srtnotificatie sn,
fac_tracking t,
- fac_functie f,
fac_groep g,
fac_gebruikersgroep gg
WHERE o.mld_statusopdr_key = 9
@@ -10746,6 +11126,38 @@ AS
AND gg.fac_groep_key = g.fac_groep_key;
+-------------------------------------------------------------------------------
+-- GRANTS naar AAFM database.
+-------------------------------------------------------------------------------
+GRANT SELECT ON aaxx_v_dwh_prs_bedrijf TO aafm;
+GRANT SELECT ON aaxx_v_dwh_cnt_contract TO aafm;
+GRANT SELECT ON aaxx_v_dwh_cnt_contract_mantel TO aafm;
+GRANT SELECT ON aaxx_v_dwh_mld_melding TO aafm;
+GRANT SELECT ON aaxx_v_dwh_res_reservering TO aafm;
+GRANT SELECT ON aaxx_v_dwh_bes_bestelling TO aafm;
+GRANT SELECT ON aaxx_v_dwh_kenmerk_melding TO aafm;
+GRANT SELECT ON aaxx_v_dwh_kenmerk_opdracht TO aafm;
+GRANT SELECT ON aaxx_v_dwh_kenmerk_reservering TO aafm;
+GRANT SELECT ON aaxx_v_dwh_kenmerk_bestelling TO aafm;
+GRANT SELECT ON aaxx_v_dwh_fin_factuur TO aafm;
+GRANT SELECT ON aaxx_v_dwh_prs_kostenplaats TO aafm;
+GRANT SELECT ON aaxx_v_dwh_prs_kostensoort TO aafm;
+GRANT SELECT ON aaxx_v_dwh_prs_perslid TO aafm;
+GRANT SELECT ON aaxx_v_dwh_prs_afdeling TO aafm;
+GRANT SELECT ON aaxx_v_dwh_kenmerk_prs TO aafm;
+GRANT SELECT ON aaxx_v_dwh_alg_onrgoed TO aafm;
+GRANT SELECT ON aaxx_v_dwh_kenmerk_onrgoed TO aafm;
+GRANT SELECT ON aaxx_v_dwh_inspectie TO aafm;
+GRANT SELECT ON aaxx_v_dwh_uren TO aafm;
+GRANT SELECT ON aaxx_v_dwh_uren_improd TO aafm;
+GRANT SELECT ON aaxx_v_dwh_tracking TO aafm;
+GRANT SELECT ON aaxx_v_dwh_budget_tracker TO aafm;
+
+GRANT SELECT ON aaxx_v_lcrap_key_stats TO aafm;
+GRANT SELECT ON aaxx_exp_uren_dekking TO aait;
+GRANT SELECT ON aaxx_exp_uren_dekking TO aait_test;
+
+
BEGIN adm.systrackscriptId('$Id$', 0); END;
/
COMMIT;
diff --git a/ALLI/Once/alli09.sql b/ALLI/Once/alli09.sql
new file mode 100644
index 000000000..4d1e1a24e
--- /dev/null
+++ b/ALLI/Once/alli09.sql
@@ -0,0 +1,116 @@
+-- Customer specific once-script ALLI.
+--
+-- (c) 2011 SG|facilitor bv
+-- $Revision$
+-- $Modtime: 29-06-12 13:29 $
+--
+-- Support: +31 53 4800700
+
+SET ECHO ON
+SPOOL alli09.lst
+SET DEFINE OFF
+
+
+INSERT INTO fac_srtnotificatie
+ (fac_srtnotificatie_code, fac_srtnotificatie_mode,
+ fac_srtnotificatie_oms, fac_srtnotificatie_xmlnode,
+ fac_srtnotificatie_url, fac_srtnotificatie_groep
+ )
+ VALUES ('CUST01', 3,
+ 'Nieuwe bestelaanvraag bouwbord ter beoordeling (bestelling ##KEY##)', 'bestelling',
+ 'bes/bes_search.asp?urole=bo' || '&' || 'rfo_key=', 0
+ );
+
+
+-- Notificatie JOB die elke 3 dagen (3*24 = 72 uur) afgaat: 's ochtends om 7.00u
+-- Voorlopig ff met fac_notificatie_job_mode = 0 vullen, zodat de notificatiejob nog niet gaat lopen.
+-- Op moment dat die moet gaan lopen via applicatiebeheer noti-jobs de mode HANDMATIG op 3 zetten.
+INSERT INTO fac_notificatie_job
+ (fac_notificatie_job_view,
+ fac_notificatie_job_oms,
+ fac_notificatie_job_interval, fac_notificatie_job_mode, fac_notificatie_job_nextrun
+ )
+ VALUES ('alli_v_notify_bo_bouwbord',
+ 'BES: Beoordeling van bouwbord door communicatiemedewerker',
+ 72, 0, NULL
+ );
+
+
+----- RTM grafieken op portaal
+
+-- Enkele dummy views om inserts hieronder mogelijk te maken...
+
+CREATE OR REPLACE VIEW alli_v_graph_cat_kantoor
+AS SELECT * FROM DUAL;
+
+CREATE OR REPLACE VIEW alli_v_graph_cat_bouwbord
+AS SELECT * FROM DUAL;
+
+CREATE OR REPLACE VIEW alli_v_graph_cat_drukwerk
+AS SELECT * FROM DUAL;
+
+CREATE OR REPLACE VIEW alli_v_graph_cat_ict
+AS SELECT * FROM DUAL;
+
+CREATE OR REPLACE VIEW alli_v_graph_cnt_new_close
+AS SELECT * FROM DUAL;
+
+-- RIJ 1:
+
+-- Kantoorartikelen
+INSERT INTO fac_usrgraph (fac_usrgraph_view_name, fac_usrgraph_type, fac_usrgraph_orderby, fac_usrgraph_maxrows, fac_usrgraph_options)
+VALUES ('alli_v_graph_cat_kantoor', 4, 'VOLGORDE', 12, '{seriesColors: [''blue'', ''red''] , legend: {location:''n''} , axes: {yaxis: {min: 0}}}');
+
+INSERT INTO fac_widget (fac_widget_groep, fac_widget_volgnr, fac_widget_title, fac_widget_height, fac_widget_width, fac_widget_url, fac_widget_refreshtime)
+SELECT 'rtm_bestelaanvragen', 10 ,NULL, 200, 13, 'fac_usrgraph.asp?usrgraph_key=' || MAX(fac_usrgraph_key), NULL FROM fac_usrgraph;
+
+
+-- Bouwborden
+INSERT INTO fac_usrgraph (fac_usrgraph_view_name, fac_usrgraph_type, fac_usrgraph_orderby, fac_usrgraph_maxrows, fac_usrgraph_options)
+VALUES ('alli_v_graph_cat_bouwbord', 4, 'VOLGORDE', 12, '{seriesColors: [''blue''] , legend: { show: true, placement: ''outsideGrid'', location: ''n''}, axes: {yaxis: {label: '''' ,min: 0}}}');
+
+INSERT INTO fac_widget (fac_widget_groep, fac_widget_volgnr, fac_widget_title, fac_widget_height, fac_widget_width, fac_widget_url, fac_widget_refreshtime)
+SELECT 'rtm_bestelaanvragen', 20 ,NULL, 200, 13, 'fac_usrgraph.asp?usrgraph_key=' || MAX(fac_usrgraph_key), NULL FROM fac_usrgraph;
+
+
+-- Alle drukwerk + visitekaartjes
+INSERT INTO fac_usrgraph (fac_usrgraph_view_name, fac_usrgraph_type, fac_usrgraph_orderby, fac_usrgraph_maxrows, fac_usrgraph_options)
+VALUES ('alli_v_graph_cat_drukwerk', 4, 'VOLGORDE', 12, '{seriesColors: [''blue'', ''red'', ''green'', ''yellow'', ''black''] , axes: {yaxis: {label: '''' ,min: 0}}}');
+
+INSERT INTO fac_widget (fac_widget_groep, fac_widget_volgnr, fac_widget_title, fac_widget_height, fac_widget_width, fac_widget_url, fac_widget_refreshtime)
+SELECT 'rtm_bestelaanvragen', 30 ,NULL, 200, 24, 'fac_usrgraph.asp?usrgraph_key=' || MAX(fac_usrgraph_key), NULL FROM fac_usrgraph;
+
+-- ICT Hardware & CYOD
+
+INSERT INTO fac_usrgraph (fac_usrgraph_view_name, fac_usrgraph_type, fac_usrgraph_orderby, fac_usrgraph_maxrows, fac_usrgraph_options)
+VALUES ('alli_v_graph_cat_ict', 4, 'VOLGORDE', 12, '{seriesColors: [''blue'', ''red'', ''black''] , axes: {yaxis: {label: '''' ,min: 0}}}');
+
+INSERT INTO fac_widget (fac_widget_groep, fac_widget_volgnr, fac_widget_title, fac_widget_height, fac_widget_width, fac_widget_url, fac_widget_refreshtime)
+SELECT 'rtm_bestelaanvragen', 40 ,NULL, 200, 24, 'fac_usrgraph.asp?usrgraph_key=' || MAX(fac_usrgraph_key), NULL FROM fac_usrgraph;
+
+-- Nieuwe en aflopende contracten
+
+INSERT INTO fac_usrgraph (fac_usrgraph_view_name, fac_usrgraph_type, fac_usrgraph_orderby, fac_usrgraph_maxrows, fac_usrgraph_options)
+VALUES ('alli_v_graph_cnt_new_close', 4, 'VOLGORDE', 12, '{seriesColors: [''blue'', ''red''] , legend: {location:''n''} , axes: {yaxis: {min: 0}}}');
+
+INSERT INTO fac_widget (fac_widget_groep, fac_widget_volgnr, fac_widget_title, fac_widget_height, fac_widget_width, fac_widget_url, fac_widget_refreshtime)
+SELECT 'rtm_bestelaanvragen', 50 ,NULL, 200, 12, 'fac_usrgraph.asp?usrgraph_key=' || MAX(fac_usrgraph_key), NULL FROM fac_usrgraph;
+
+
+-- En de laatste stap is dat ...... alle grafieken in portaal worden getoond via autorisatie WEB_USER01 (Analyzer-achtig)
+-- Nu for-the-time being onderdrukken met WEB_USER30 (niemand ziet het).
+
+INSERT INTO fac_widget (fac_widget_groep, fac_widget_volgnr, fac_widget_title, fac_widget_height, fac_widget_width, fac_widget_url, fac_widget_refreshtime, fac_functie_key)
+SELECT 'myfacilitor', 15 ,NULL, 200, 99, 'fac_widgetspage.asp?wgrp=rtm_bestelaanvragen', 600 , fac_functie_key
+FROM fac_functie
+WHERE fac_functie_code = 'WEB_USER30';
+
+
+BEGIN adm.systrackscriptId('$Id$'); END;
+/
+
+commit;
+
+SPOOL OFF
+
+@alli.sql
diff --git a/ALLI/alli.sql b/ALLI/alli.sql
index f483d1098..559a0bf39 100644
--- a/ALLI/alli.sql
+++ b/ALLI/alli.sql
@@ -2040,6 +2040,52 @@ IS
END alli_update_cyod_serienummers;
/
+
+-------------------------------------------------------------------------------------------------------------------------------------------------------------------------
+--
+-- Koppeling Bouwborden
+--
+-- Leverancier: Bas Honcoop (prs_bedrijf_key = 936)
+-- Catalogus: Bouwborden (discipline = 521)
+-- OCI Punchout: http://bh.enson.nl/oci.alliantie.php?username=alliantie&password=p$iSu45&~TARGET=_self
+-- Financiele goedkeuring: nvt --> Automatisch accepteren aanvraag = ja
+-- Functionele goedkeuring: communicatiemedewerker van project (door projectleider verplicht in te vullen bij bestelaanvraag)
+-- Projectnummer: verplicht invulbaar veld door projectleider in te vullen bij bestelaanvraag.
+
+-- mbmb
+CREATE OR REPLACE VIEW ALLI_V_BO_MEDEWERKERS_BOUWBORD
+(PRS_PERSLID_KEY, PRS_PERSLID_FULL)
+AS
+select distinct p.prs_perslid_key, P.prs_perslid_naam_full
+FROM fac_groeprechten gr, fac_gebruikersgroep gg, prs_v_perslid_fullnames p
+WHERE gr.ins_discipline_key = 521
+AND GR.FAC_FUNCTIE_KEY = (SELECT fac_functie_key FROM fac_functie f WHERE f.fac_functie_code = 'WEB_BESBOF')
+AND gr.fac_gebruiker_alg_level_write < 9
+AND gr.fac_gebruiker_prs_level_write < 9
+AND gr.fac_groep_key = gg.fac_groep_key
+AND gg.prs_perslid_key = p.prs_perslid_key;
+
+
+-- Notificatiejob met key 41 is via alli09.sql aangemaakt.
+CREATE OR REPLACE VIEW ALLI_V_NOTIFY_BO_BOUWBORD (code, sender, receiver, text, KEY, par1, par2, xkey)
+AS
+SELECT sn.fac_srtnotificatie_code, b.prs_perslid_key, fac.safe_to_number(kb.bes_kenmerkbestell_waarde),
+ sn.fac_srtnotificatie_oms, b.bes_bestelling_key, NULL, NULL, NULL
+FROM bes_bestelling b, bes_kenmerkbestell kb, bes_kenmerk k, bes_srtkenmerk sk, fac_kenmerkdomein kd, fac_notificatie_job nj, fac_srtnotificatie sn
+WHERE sn.fac_srtnotificatie_code = 'CUST01'
+AND nj.fac_notificatie_job_key = 41
+AND b.bes_bestelling_key = kb.bes_bestelling_key
+and b.bes_bestelling_status = 3
+and KB.BES_KENMERK_KEY = k.bes_kenmerk_key
+and K.BES_SRTKENMERK_KEY = SK.BES_SRTKENMERK_KEY
+and SK.FAC_KENMERKDOMEIN_KEY= KD.FAC_KENMERKDOMEIN_KEY
+and UPPER(KD.FAC_KENMERKDOMEIN_MODULE) = 'BES'
+and UPPER(KD.FAC_KENMERKDOMEIN_OBJECTNAAM) = 'ALLI_V_BO_MEDEWERKERS_BOUWBORD';
+
+
+-------------------------------------------------------------------------------------------------------------------------------------------------------------------------
+
+
-- View tbv notificatiejob contract-reminder (afgeleid van de FAC-standaard).
-- 1x per week wordt de job aangeroepen, verschil met de standaard FAC is dat niet alleen de beheerder (voor de UNION),
-- maar ook andere personen een mailt-notificatie moeten kunnen ontvangen (na UNION).
@@ -2089,8 +2135,245 @@ AS
AND fac_usrdata_verwijder IS NULL;
+----------------------------------------------------------------------------------------------------------------------------------------------------------
+--- RTM Grafieken op portaal
+
+-- Alle bestelaanvragen per catalogus, per week.
+CREATE OR REPLACE VIEW alli_v_bes_catalogus_p_week
+(INS_DISCIPLINE_KEY, INS_DISCIPLINE_OMSCHRIJVING, jaar, week, aantal)
+AS
+select D.INS_DISCIPLINE_KEY, MIN(D.INS_DISCIPLINE_OMSCHRIJVING), to_char(bes_bestelling_datum, 'IYYY'), to_char(bes_bestelling_datum, 'IW'), count(b.bes_bestelling_key)
+from bes_bestelling b, bes_bestelling_item bi, bes_srtdeel s, bes_srtgroep g, bes_discipline d
+where BI.BES_BESTELLING_KEY = b.bes_bestelling_key
+and BI.BES_SRTDEEL_KEY = s.bes_srtdeel_key
+and s.bes_srtgroep_key = G.BES_SRTGROEP_KEY
+and G.INS_DISCIPLINE_KEY = D.INS_DISCIPLINE_KEY
+and TRUNC( b.bes_bestelling_datum) >= (TRUNC (SYSDATE)
+ - DECODE (TO_CHAR (SYSDATE, 'D'), '1', 8, TO_CHAR (SYSDATE, 'D'))
+ + 2) - 10*7
+group by D.INS_DISCIPLINE_KEY, to_char(bes_bestelling_datum, 'IYYY'), to_char(bes_bestelling_datum, 'IW');
+
+
+-- View van de afgelopen 10 weken, met deze week erbij is dat 11.
+CREATE OR REPLACE VIEW alli_v_10_week_history
+(jaar, week)
+AS
+SELECT to_char(TRUNC(SYSDATE - (7* (LEVEL - 1))),'IYYY') jaar, substr(to_char(SYSDATE - (7* (LEVEL - 1)), 'IW'), 1, 2) week
+FROM DUAL
+CONNECT BY LEVEL <= 11;
+
+CREATE OR REPLACE VIEW alli_v_10_week_future
+(jaar, week)
+AS
+SELECT to_char(TRUNC(SYSDATE + (7* (LEVEL - 1))),'IYYY') jaar, substr(to_char(SYSDATE + (7* (LEVEL - 1)), 'IW'), 1, 2) week
+FROM DUAL
+CONNECT BY LEVEL <= 11;
+
+-- Kantoorartikelen per week
+CREATE OR REPLACE VIEW alli_v_graph_cat_kantoor
+(
+ fclt_key,
+ FCLT_XAS_,
+ FCLT_YAS_KANTOOR,
+ FCLT_YAS_INCIDENTEEL,
+ FCLT_URL,
+ VOLGORDE
+)
+AS
+SELECT '', week,
+ COALESCE(
+ (SELECT aantal
+ FROM alli_v_bes_catalogus_p_week c
+ WHERE INS_DISCIPLINE_KEY = 501
+ AND c.week = w10.week
+ AND c.jaar = w10.jaar),
+ 0),
+ COALESCE(
+ (SELECT aantal
+ FROM alli_v_bes_catalogus_p_week c
+ WHERE INS_DISCIPLINE_KEY = 42
+ AND c.week = w10.week
+ AND c.jaar = w10.jaar),
+ 0),
+ '',
+ jaar|| '-' ||week
+FROM alli_v_10_week_history w10;
+
+
+-- Bouwborden per week
+CREATE OR REPLACE VIEW alli_v_graph_cat_bouwbord
+(
+ fclt_key,
+ FCLT_XAS_,
+ FCLT_YAS_BOUWBORD,
+ FCLT_URL,
+ VOLGORDE
+)
+AS
+SELECT '', week,
+ COALESCE(
+ (SELECT aantal
+ FROM alli_v_bes_catalogus_p_week c
+ WHERE INS_DISCIPLINE_KEY = 521
+ AND c.week = w10.week
+ AND c.jaar = w10.jaar),
+ 0),
+ '',
+ jaar|| '-' ||week
+FROM alli_v_10_week_history w10;
+
+-- Drukwerk per week
+CREATE OR REPLACE VIEW alli_v_graph_cat_drukwerk
+(
+ fclt_key,
+ FCLT_XAS_,
+ FCLT_YAS_HUISSTIJL,
+ FCLT_YAS_VISITEKAARTJES,
+ FCLT_YAS_VVE,
+ FCLT_YAS_SSC,
+ FCLT_YAS_OVERIG,
+ FCLT_URL,
+ VOLGORDE
+)
+AS
+SELECT '', week,
+ COALESCE(
+ (SELECT aantal
+ FROM alli_v_bes_catalogus_p_week c
+ WHERE INS_DISCIPLINE_KEY = 341
+ AND c.week = w10.week
+ AND c.jaar = w10.jaar),
+ 0),
+ COALESCE(
+ (SELECT aantal
+ FROM alli_v_bes_catalogus_p_week c
+ WHERE INS_DISCIPLINE_KEY = 361
+ AND c.week = w10.week
+ AND c.jaar = w10.jaar),
+ 0),
+ COALESCE(
+ (SELECT SUM(aantal)
+ FROM alli_v_bes_catalogus_p_week c
+ WHERE INS_DISCIPLINE_KEY IN (442, 443, 444, 445)
+ AND c.week = w10.week
+ AND c.jaar = w10.jaar),
+ 0),
+ COALESCE(
+ (SELECT SUM(aantal)
+ FROM alli_v_bes_catalogus_p_week c
+ WHERE INS_DISCIPLINE_KEY IN (446, 447)
+ AND c.week = w10.week
+ AND c.jaar = w10.jaar),
+ 0),
+ COALESCE(
+ (SELECT SUM(aantal)
+ FROM alli_v_bes_catalogus_p_week c
+ WHERE INS_DISCIPLINE_KEY IN (448, 449, 463, 441)
+ AND c.week = w10.week
+ AND c.jaar = w10.jaar),
+ 0),
+ '',
+ jaar|| '-' ||week
+FROM alli_v_10_week_history w10;
+
+
+-- ICT (hardware en CYOD) per week
+CREATE OR REPLACE VIEW alli_v_graph_cat_ict
+(
+ fclt_key,
+ FCLT_XAS_,
+ FCLT_YAS_HARDWARE,
+ FCLT_YAS_INCIDENTEEL,
+ FCLT_YAS_CYOD,
+ FCLT_URL,
+ VOLGORDE
+)
+AS
+SELECT '', week,
+ COALESCE(
+ (SELECT aantal
+ FROM alli_v_bes_catalogus_p_week c
+ WHERE INS_DISCIPLINE_KEY = 401
+ AND c.week = w10.week
+ AND c.jaar = w10.jaar),
+ 0),
+ COALESCE(
+ (SELECT aantal
+ FROM alli_v_bes_catalogus_p_week c
+ WHERE INS_DISCIPLINE_KEY = 201
+ AND c.week = w10.week
+ AND c.jaar = w10.jaar),
+ 0),
+ COALESCE(
+ (SELECT aantal
+ FROM alli_v_bes_catalogus_p_week c
+ WHERE INS_DISCIPLINE_KEY = 221
+ AND c.week = w10.week
+ AND c.jaar = w10.jaar),
+ 0),
+ '',
+ jaar|| '-' ||week
+FROM alli_v_10_week_history w10;
+
+
+
+-- Alle nieuwe contracten die ingaan de komende 10 weken per week.
+CREATE OR REPLACE VIEW alli_v_cnt_nieuw_per_week
+(jaar, week, aantal)
+AS
+select to_char(c.cnt_contract_looptijd_van, 'IYYY'), to_char(c.cnt_contract_looptijd_van, 'IW'), count(c.cnt_contract_key)
+from cnt_contract c
+WHERE TRUNC(c.cnt_contract_looptijd_van) >= (TRUNC (SYSDATE) - DECODE (TO_CHAR (SYSDATE, 'D'), '1', 8, TO_CHAR (SYSDATE, 'D')) + 2)
+AND TRUNC(c.cnt_contract_looptijd_van) <= (TRUNC (SYSDATE) - DECODE (TO_CHAR (SYSDATE, 'D'), '1', 8, TO_CHAR (SYSDATE, 'D')) + 2) + 10*7
+GROUP BY to_char(c.cnt_contract_looptijd_van, 'IYYY'), to_char(c.cnt_contract_looptijd_van, 'IW');
+
+
+-- Alle aflopende contracten de komende 10 weken per week.
+CREATE OR REPLACE VIEW alli_v_cnt_aflopend_per_week
+(jaar, week, aantal)
+AS
+select to_char(c.cnt_contract_looptijd_tot, 'IYYY'), to_char(c.cnt_contract_looptijd_tot, 'IW'), count(c.cnt_contract_key)
+from cnt_contract c
+WHERE TRUNC(c.cnt_contract_looptijd_tot) >= (TRUNC (SYSDATE) - DECODE (TO_CHAR (SYSDATE, 'D'), '1', 8, TO_CHAR (SYSDATE, 'D')) + 2)
+AND TRUNC(c.cnt_contract_looptijd_tot) <= (TRUNC (SYSDATE) - DECODE (TO_CHAR (SYSDATE, 'D'), '1', 8, TO_CHAR (SYSDATE, 'D')) + 2) + 10*7
+GROUP BY to_char(c.cnt_contract_looptijd_tot, 'IYYY'), to_char(c.cnt_contract_looptijd_tot, 'IW');
+
+
+-- Grafiek van alle aflopende contracten voor de komende 10 weken
+CREATE OR REPLACE VIEW alli_v_graph_cnt_new_close
+(
+ fclt_key,
+ FCLT_XAS_,
+ FCLT_YAS_NIEUW,
+ FCLT_YAS_AFLOPEND,
+ FCLT_URL,
+ VOLGORDE
+)
+AS
+SELECT '', week,
+ COALESCE(
+ (SELECT aantal
+ FROM alli_v_cnt_nieuw_per_week c
+ WHERE c.week = w10.week
+ AND c.jaar = w10.jaar),
+ 0),
+ COALESCE(
+ (SELECT aantal
+ FROM alli_v_cnt_aflopend_per_week c
+ WHERE c.week = w10.week
+ AND c.jaar = w10.jaar),
+ 0),
+ '',
+ jaar|| '-' ||week
+FROM alli_v_10_week_future w10;
+
+
+
+
+
+
+
------- TESTAREA TESTAREA TESTAREA TESTAREA TESTAREA TESTAREA TESTAREA ----------------
CREATE OR REPLACE VIEW alli_v_visitekaartje (prs_perslid_key,
voornaam,
@@ -2207,11 +2490,13 @@ CREATE OR REPLACE VIEW alli_v_bestelling_maninfo
besteldatum,
fclt_3d_discipline_key,
fclt_f_catalogus,
+ fclt_f_leverancier,
fclt_f_aanvrager,
personeelsnr,
fclt_f_afdeling,
fclt_f_status,
- totaalbedrag
+ bestelbedrag,
+ opdrachtbedrag
)
AS SELECT TO_CHAR(b.bes_bestelling_key),
TO_CHAR(MIN(bes_bestelling_datum), 'YYYY') jaar,
@@ -2220,6 +2505,7 @@ AS SELECT TO_CHAR(b.bes_bestelling_key),
TO_CHAR(MIN(bes_bestelling_datum), 'DD-MM-YYYY') datum,
MIN(dis.ins_discipline_key),
MIN(dis.ins_discipline_omschrijving) catalogus,
+ MIN(bd.prs_bedrijf_naam) leverancier,
MIN(p.prs_perslid_naam)
|| NVL2 (MIN(p.prs_perslid_voorletters),
', ' || MIN(p.prs_perslid_voorletters),
@@ -2236,9 +2522,14 @@ AS SELECT TO_CHAR(b.bes_bestelling_key),
MIN(BS.BES_BESTELLINGSTATUSES_OMSCHR),
SUM(bi.bes_bestelling_item_aantal
* COALESCE (bi.bes_bestelling_item_prijs, 0))
- totaalbedrag
+ totaalbedrag,
+ SUM(BO.BES_BESTELOPDR_ITEM_AANTAL
+ * COALESCE (BO.BES_BESTELOPDR_ITEM_PRIJS , 0))
+ opdrachtbedrag
FROM bes_bestelling_item bi,
+ bes_bestelopdr_item bo,
bes_srtdeel srt,
+ prs_bedrijf bd,
bes_bestelling b,
bes_bestellingstatuses bs,
prs_perslid p,
@@ -2252,6 +2543,8 @@ AS SELECT TO_CHAR(b.bes_bestelling_key),
WHERE srt.bes_srtgroep_key = grp.bes_srtgroep_key
AND grp.ins_discipline_key = dis.ins_discipline_key
AND bi.bes_srtdeel_key = srt.bes_srtdeel_key
+ AND srt.prs_bedrijf_key = bd.prs_bedrijf_key
+ AND BO.BES_BESTELOPDR_ITEM_KEY (+) = BI.BES_BESTELOPDR_ITEM_KEY
AND bi.bes_bestelling_key = b.bes_bestelling_key
AND B.BES_BESTELLING_STATUS = BS.BES_BESTELLINGSTATUSES_KEY
AND p.prs_perslid_key = b.prs_perslid_key
@@ -2260,17 +2553,13 @@ AS SELECT TO_CHAR(b.bes_bestelling_key),
AND b.mld_adres_key_lev = m.mld_adres_key
AND m.alg_locatie_key = l.alg_locatie_key(+)
AND l.alg_district_key = di.alg_district_key(+)
-GROUP BY b.bes_bestelling_key;
-
-
-
-
+GROUP BY b.bes_bestelling_key, bd.prs_bedrijf_key;
BEGIN adm.systrackscriptId('$Id$', 0); END;
/
-BEGIN fac.registercustversion('ALLI', 1); END;
+BEGIN fac.registercustversion('ALLI', 9); END;
/
commit;
diff --git a/ARAI/Once/arai14.sql b/ARAI/Once/arai14.sql
new file mode 100644
index 000000000..b9e759901
--- /dev/null
+++ b/ARAI/Once/arai14.sql
@@ -0,0 +1,126 @@
+-- Customer specific once-script ARAI.
+--
+-- (c) 2013 SG|facilitor bv
+-- $Revision$
+-- $Id$
+--
+-- Support: +31 53 4800700
+
+SET ECHO ON
+SPOOL arai14.lst
+SET DEFINE OFF
+
+------------------------------------------------------------------------------------------------------------------------------------------
+---- RTM Energie: PV als aparte grafiek
+
+CREATE OR REPLACE VIEW arai_v_graph_zon_nu
+AS SELECT * FROM DUAL;
+
+CREATE OR REPLACE VIEW arai_v_graph_zon_today
+AS SELECT * FROM DUAL;
+
+-- Barchart zon-nu
+INSERT INTO fac_usrgraph (fac_usrgraph_view_name, fac_usrgraph_type, fac_usrgraph_orderby, fac_usrgraph_maxrows, fac_usrgraph_options)
+VALUES ('arai_v_graph_zon_nu', 1, 'VOLGORDE', 10, NULL);
+INSERT INTO fac_widget (fac_widget_groep, fac_widget_volgnr, fac_widget_title, fac_widget_height, fac_widget_width, fac_widget_url, fac_widget_refreshtime)
+SELECT 'rtm_energie',35,'Zonne-energie (kW)', 180, 18, 'fac_usrgraph.asp?usrgraph_key=' || MAX(fac_usrgraph_key), 300 FROM fac_usrgraph;
+INSERT INTO fac_widget (fac_widget_groep, fac_widget_volgnr, fac_widget_title, fac_widget_height, fac_widget_width, fac_widget_url)
+SELECT 'rtm_energie',37,NULL, 180, 5, '..\..\cust\arai\html\rtm_empty.html' FROM dual;
+
+
+-- Linechart zon-today
+INSERT INTO fac_usrgraph (fac_usrgraph_view_name, fac_usrgraph_type, fac_usrgraph_orderby, fac_usrgraph_maxrows, fac_usrgraph_options)
+VALUES ('arai_v_graph_zon_today', 4, 'FCLT_XAS_', NULL, '{seriesColors: [''orange''] , axes: {yaxis: {min: 0}} }');
+INSERT INTO fac_widget (fac_widget_groep, fac_widget_volgnr, fac_widget_title, fac_widget_height, fac_widget_width, fac_widget_url, fac_widget_refreshtime)
+SELECT 'rtm_energie',77,NULL, 180, 18, 'fac_usrgraph.asp?usrgraph_key=' || MAX(fac_usrgraph_key), 300 FROM fac_usrgraph;
+
+INSERT INTO fac_widget (fac_widget_groep, fac_widget_volgnr, fac_widget_title, fac_widget_height, fac_widget_width, fac_widget_url)
+SELECT 'rtm_energie',78,NULL, 180, 5, '..\..\cust\arai\html\rtm_empty.html' FROM dual;
+
+INSERT INTO fac_widget (fac_widget_groep, fac_widget_volgnr, fac_widget_title, fac_widget_height, fac_widget_width, fac_widget_url)
+SELECT 'rtm_energie',12,NULL, 90, 18, '..\..\cust\arai\html\rtm_energie_zon.html' FROM dual;
+INSERT INTO fac_widget (fac_widget_groep, fac_widget_volgnr, fac_widget_title, fac_widget_height, fac_widget_width, fac_widget_url)
+SELECT 'rtm_energie',13,NULL, 90, 15, '..\..\cust\arai\html\rtm_empty.html' FROM dual;
+
+
+------------------------------------------------------------------------------------------------------------------------------------------
+---- RTM Klachten
+
+
+-- Eerst ff enkele dummy views...
+
+CREATE OR REPLACE VIEW arai_v_graph_kl_maand
+AS SELECT * FROM DUAL;
+
+CREATE OR REPLACE VIEW arai_v_graph_kl_dag
+AS SELECT * FROM DUAL;
+
+CREATE OR REPLACE VIEW arai_v_graph_kl_uur
+AS SELECT * FROM DUAL;
+
+CREATE OR REPLACE VIEW arai_v_graph_kl_open_lev
+AS SELECT * FROM DUAL;
+
+CREATE OR REPLACE VIEW arai_v_graph_kl_event
+AS SELECT * FROM DUAL;
+
+CREATE OR REPLACE VIEW arai_v_graph_kl_lev
+AS SELECT * FROM DUAL;
+
+
+
+-- RIJ 1: ALGEMEEN, per maand, per dag, per uur.
+
+INSERT INTO fac_widget (fac_widget_groep, fac_widget_volgnr, fac_widget_title, fac_widget_height, fac_widget_width, fac_widget_url, fac_widget_refreshtime)
+SELECT 'rtm_klachten', 10, '', 25, 99, '..\..\cust\arai\html\rtm_empty.html', NULL FROM dual;
+
+INSERT INTO fac_usrgraph (fac_usrgraph_view_name, fac_usrgraph_type, fac_usrgraph_orderby, fac_usrgraph_maxrows, fac_usrgraph_options)
+VALUES ('arai_v_graph_kl_maand', 4, 'VOLGORDE', 12, '{seriesColors: [''blue'', ''red'', ''black''] , axes: {yaxis: {min: 0}}}');
+
+INSERT INTO fac_widget (fac_widget_groep, fac_widget_volgnr, fac_widget_title, fac_widget_height, fac_widget_width, fac_widget_url, fac_widget_refreshtime)
+SELECT 'rtm_klachten',20,'Klachten afgelopen maanden', 200, 30, 'fac_usrgraph.asp?usrgraph_key=' || MAX(fac_usrgraph_key), 60 FROM fac_usrgraph;
+
+INSERT INTO fac_usrgraph (fac_usrgraph_view_name, fac_usrgraph_type, fac_usrgraph_orderby, fac_usrgraph_maxrows, fac_usrgraph_options)
+VALUES ('arai_v_graph_kl_dag', 4, 'VOLGORDE', 7, '{seriesColors: [''blue'', ''red'', ''black''] , axes: {yaxis: {min: 0}}}');
+
+INSERT INTO fac_widget (fac_widget_groep, fac_widget_volgnr, fac_widget_title, fac_widget_height, fac_widget_width, fac_widget_url, fac_widget_refreshtime)
+SELECT 'rtm_klachten',30,'Klachten afgelopen dagen', 200, 30, 'fac_usrgraph.asp?usrgraph_key=' || MAX(fac_usrgraph_key), 60 FROM fac_usrgraph;
+
+INSERT INTO fac_usrgraph (fac_usrgraph_view_name, fac_usrgraph_type, fac_usrgraph_orderby, fac_usrgraph_maxrows, fac_usrgraph_options)
+VALUES ('arai_v_graph_kl_uur', 4, 'VOLGORDE', 24, '{seriesColors: [''blue'', ''red'', ''black''] , axes: {yaxis: {min: 0}}}');
+
+INSERT INTO fac_widget (fac_widget_groep, fac_widget_volgnr, fac_widget_title, fac_widget_height, fac_widget_width, fac_widget_url, fac_widget_refreshtime)
+SELECT 'rtm_klachten',40,'Klachten afgelopen uren', 200, 30, 'fac_usrgraph.asp?usrgraph_key=' || MAX(fac_usrgraph_key), 60 FROM fac_usrgraph;
+
+-- RIJ 2: SLA: Openstaande per leverancier, op tijd/te laat , ....
+
+INSERT INTO fac_widget (fac_widget_groep, fac_widget_volgnr, fac_widget_title, fac_widget_height, fac_widget_width, fac_widget_url, fac_widget_refreshtime)
+SELECT 'rtm_klachten', 100, '', 25, 99, '..\..\cust\arai\html\rtm_empty.html', NULL FROM dual;
+
+INSERT INTO fac_usrgraph (fac_usrgraph_view_name, fac_usrgraph_type, fac_usrgraph_orderby, fac_usrgraph_maxrows, fac_usrgraph_options)
+VALUES ('arai_v_graph_kl_event', 1, 'VOLGORDE', 10, '{seriesColors: [''blue'', ''red'', ''black''] , axes: {yaxis: {min: 0}}}');
+
+INSERT INTO fac_widget (fac_widget_groep, fac_widget_volgnr, fac_widget_title, fac_widget_height, fac_widget_width, fac_widget_url, fac_widget_refreshtime)
+SELECT 'rtm_klachten',110,'Klachten per event afgelopen jaar', 250, 30, 'fac_usrgraph.asp?usrgraph_key=' || MAX(fac_usrgraph_key), 60 FROM fac_usrgraph;
+
+INSERT INTO fac_usrgraph (fac_usrgraph_view_name, fac_usrgraph_type, fac_usrgraph_orderby, fac_usrgraph_maxrows, fac_usrgraph_options)
+VALUES ('arai_v_graph_kl_lev', 1, 'VOLGORDE', 10, '{seriesColors: [''blue'', ''red'', ''black''] , axes: {yaxis: {min: 0}}}');
+
+INSERT INTO fac_widget (fac_widget_groep, fac_widget_volgnr, fac_widget_title, fac_widget_height, fac_widget_width, fac_widget_url, fac_widget_refreshtime)
+SELECT 'rtm_klachten',120,'Klachten per leverancier afgelopen jaar', 250, 30, 'fac_usrgraph.asp?usrgraph_key=' || MAX(fac_usrgraph_key), 60 FROM fac_usrgraph;
+
+INSERT INTO fac_usrgraph (fac_usrgraph_view_name, fac_usrgraph_type, fac_usrgraph_orderby, fac_usrgraph_maxrows, fac_usrgraph_options)
+VALUES ('arai_v_graph_kl_open_lev', 1, 'VOLGORDE', 10, '{seriesColors: [''blue'', ''red'', ''black''] , axes: {yaxis: {min: 0}}}');
+
+INSERT INTO fac_widget (fac_widget_groep, fac_widget_volgnr, fac_widget_title, fac_widget_height, fac_widget_width, fac_widget_url, fac_widget_refreshtime)
+SELECT 'rtm_klachten',130,'Openstaande klachten per leverancier', 250, 30, 'fac_usrgraph.asp?usrgraph_key=' || MAX(fac_usrgraph_key), 60 FROM fac_usrgraph;
+
+
+BEGIN adm.systrackscriptId('$Id$'); END;
+/
+
+commit;
+
+SPOOL OFF
+
+@arai.sql
diff --git a/ARAI/arai.sql b/ARAI/arai.sql
index 95c60058c..ffa057dc8 100644
--- a/ARAI/arai.sql
+++ b/ARAI/arai.sql
@@ -3569,7 +3569,6 @@ AS SELECT to_char(datum,'yyyy'), to_char(datum,'mm'), to_char(datum,'yyyy-mm-d
---------------------------------------------------------------------------------------------------------------------------------------------
---------------------------------------------------------------------------------------------------------------------------------------------
-
-- km.mld_kenmerk_key (+) = 181 is het EBMS-ordernummer suggest-kenmerk.
-- km1.mld_kenmerk_key (+) = 46 is het mailadres van de contactpersoon bij exposant.
-- km2.mld_kenmerk_key (+) = 45 is het telefoonnummer van de contactpersoon bij exposant.
@@ -3653,8 +3652,8 @@ AS SELECT
WHEN m.mld_melding_einddatum < COALESCE(fac.gettrackingdate('MLDAFM',m.mld_melding_key),fac.gettrackingdate('MLDREJ',m.mld_melding_key), SYSDATE) THEN 1
ELSE 0
END,
- CASE
- WHEN m.mld_melding_einddatum_std < COALESCE(fac.gettrackingdate('MLDAFM',m.mld_melding_key),fac.gettrackingdate('MLDREJ',m.mld_melding_key), SYSDATE) THEN 1
+ CASE
+ WHEN mld.getactualuitvoer(m.mld_melding_key) + mld_melding_respijt - m.mld_melding_uitvoertijd > 0 THEN 1
ELSE 0
END,
TO_CHAR (FLOOR (COALESCE(fac.gettrackingdate('MLDAFM',m.mld_melding_key),fac.gettrackingdate('MLDREJ',m.mld_melding_key), SYSDATE)- m.mld_melding_datum)) || 'd '
@@ -3811,8 +3810,8 @@ AS SELECT
WHEN m.mld_melding_einddatum < COALESCE(fac.gettrackingdate('MLDAFM',m.mld_melding_key),fac.gettrackingdate('MLDREJ',m.mld_melding_key), SYSDATE) THEN 1
ELSE 0
END,
- CASE
- WHEN m.mld_melding_einddatum_std < COALESCE(fac.gettrackingdate('MLDAFM',m.mld_melding_key),fac.gettrackingdate('MLDREJ',m.mld_melding_key), SYSDATE) THEN 1
+ CASE
+ WHEN mld.getactualuitvoer(m.mld_melding_key) + mld_melding_respijt - m.mld_melding_uitvoertijd > 0 THEN 1
ELSE 0
END,
TO_CHAR (FLOOR (COALESCE(fac.gettrackingdate('MLDAFM',m.mld_melding_key),fac.gettrackingdate('MLDREJ',m.mld_melding_key), SYSDATE)- m.mld_melding_datum)) || 'd '
@@ -3973,8 +3972,8 @@ AS SELECT
WHEN m.mld_melding_einddatum < COALESCE(fac.gettrackingdate('MLDAFM',m.mld_melding_key),fac.gettrackingdate('MLDREJ',m.mld_melding_key), SYSDATE) THEN 1
ELSE 0
END,
- CASE
- WHEN m.mld_melding_einddatum_std < COALESCE(fac.gettrackingdate('MLDAFM',m.mld_melding_key),fac.gettrackingdate('MLDREJ',m.mld_melding_key), SYSDATE) THEN 1
+ CASE
+ WHEN mld.getactualuitvoer(m.mld_melding_key) + mld_melding_respijt - m.mld_melding_uitvoertijd > 0 THEN 1
ELSE 0
END,
TO_CHAR (FLOOR (COALESCE(fac.gettrackingdate('MLDAFM',m.mld_melding_key),fac.gettrackingdate('MLDREJ',m.mld_melding_key), SYSDATE)- m.mld_melding_datum)) || 'd '
@@ -4070,6 +4069,159 @@ AS SELECT *
FROM arai_v_rap_mld_bez_klachten_2;
+--------------------------------------------------------------------------------------------------------------------------
+-- Klachten RTM grafieken
+
+
+--
+
+-- Alle klachten (exp + org + bez) van de afgelopen 12 maanden.
+CREATE OR REPLACE VIEW arai_v_graph_kl_maand
+(
+ fclt_key,
+ FCLT_XAS_,
+ FCLT_YAS_OP_TIJD,
+ FCLT_YAS2_TE_LAAT,
+ FCLT_YAS3_TOTAAL,
+ FCLT_URL,
+ VOLGORDE
+)
+AS
+SELECT NULL, to_char(to_date(fclt_f_maand,'MM'),'mon'), count(*) - SUM(mld_sla_te_laat), SUM(mld_sla_te_laat), count(*),
+ 'appl/fac/fac_usrrap_list.asp?usrrap_key=181' || '&' || 'fclt_f_colname1=fclt_f_jaar' || '&' || 'fclt_f_colvalue1=' || fclt_f_jaar || '&' || 'fclt_f_colname2=fclt_f_maand' || '&' || 'fclt_f_colvalue2=' || fclt_f_maand,
+ fclt_f_jaar || fclt_f_maand
+FROM arai_v_rap_mld_tot_klachten_2
+WHERE invoer_datum > SYSDATE - 365
+GROUP BY fclt_f_jaar, fclt_f_maand;
+
+
+--
+
+-- Basisview met de laatste 7 dagen (nodig om 'klachtloze' dagen ook in grafiek te kunnen tonen)
+CREATE OR REPLACE VIEW arai_v_7_dagen
+(datum, dag)
+AS
+SELECT TRUNC(SYSDATE - (LEVEL - 1)) datum, substr(to_char(SYSDATE - (LEVEL - 1), 'day'), 1, 2) dag
+FROM DUAL
+CONNECT BY LEVEL <= 7;
+
+-- Alle klachten (exp + org + bez) van de afgelopen 7 dagen.
+CREATE OR REPLACE VIEW arai_v_graph_kl_dag
+(
+ fclt_key,
+ FCLT_XAS_,
+ FCLT_YAS_OP_TIJD,
+ FCLT_YAS2_TE_LAAT,
+ FCLT_YAS3_TOTAAL,
+ FCLT_URL,
+ VOLGORDE
+)
+AS
+SELECT NULL, substr(to_char(to_date(fclt_f_ingevoerd, 'YYYY-MM-DD') ,'day'),1,2), count(*) - SUM(mld_sla_te_laat), SUM(mld_sla_te_laat), count(*),
+ 'appl/fac/fac_usrrap_list.asp?usrrap_key=181' || '&' || 'fclt_f_colname1=fclt_f_ingevoerd' || '&' || 'fclt_f_colvalue1=' || fclt_f_ingevoerd,
+ fclt_f_ingevoerd
+FROM arai_v_rap_mld_tot_klachten_2
+WHERE TRUNC(invoer_datum) > TRUNC(SYSDATE - 7)
+GROUP BY to_char(to_date(fclt_f_ingevoerd, 'YYYY-MM-DD') ,'day'), fclt_f_ingevoerd
+UNION
+SELECT NULL, dag, 0, 0, 0, '', to_char(datum, 'yyyy-mm-dd')
+FROM arai_v_7_dagen
+WHERE NOT EXISTS (select 'x' FROM arai_v_rap_mld_tot_klachten_2
+ WHERE TRUNC(invoer_datum) > TRUNC(SYSDATE - 7)
+ AND to_char(datum, 'yyyy-mm-dd') = fclt_f_ingevoerd);
+
+
+-- Basisview met de laatste x-aantal uren (nodig om 'klachtloze' uurtjes ook in grafiek te kunnen tonen)
+CREATE OR REPLACE VIEW arai_v_24_uren
+(datum, uur)
+AS
+SELECT TRUNC(SYSDATE - (LEVEL/24 - 1/24)) datum, to_char(SYSDATE - (LEVEL/24 - 1/24), 'hh24') uur
+FROM DUAL
+CONNECT BY LEVEL <= 24;
+
+
+-- Alle klachten (exp + org + bez) van de afgelopen 24 uren.
+CREATE OR REPLACE VIEW arai_v_graph_kl_uur
+(
+ fclt_key,
+ FCLT_XAS_,
+ FCLT_YAS_OP_TIJD,
+ FCLT_YAS2_TE_LAAT,
+ FCLT_YAS3_TOTAAL,
+ FCLT_URL,
+ VOLGORDE
+)
+AS
+SELECT NULL, to_char(invoer_datum,'hh24'), count(*) - SUM(mld_sla_te_laat), SUM(mld_sla_te_laat), count(*),
+ 'appl/fac/fac_usrrap_list.asp?usrrap_key=181' || '&' || 'fclt_f_colname1=invoer_datum_time' || '&' || 'fclt_f_colvalue1=' || to_char(invoer_datum,'dd-mm-yyyy') || ' ' || to_char(invoer_datum,'hh24') || ':*',
+ to_char(invoer_datum,'hh24')
+FROM arai_v_rap_mld_tot_klachten_2
+WHERE TRUNC(invoer_datum) = TRUNC(SYSDATE)
+GROUP BY to_char(invoer_datum,'dd-mm-yyyy'), to_char(invoer_datum,'hh24')
+UNION
+SELECT NULL, uur, 0, 0 ,0, '', uur
+FROM arai_v_24_uren
+WHERE datum = TRUNC(SYSDATE)
+AND NOT EXISTS (SELECT 'x' FROM arai_v_rap_mld_tot_klachten_2
+ WHERE TRUNC(invoer_datum)= TRUNC(SYSDATE)
+ AND to_char(invoer_datum,'hh24') = uur);
+
+
+-- Alle openstaande klachten per leverancier.
+-- FCLT_YAS_ zijn de klachten die nog op tijd zijn, (blauw)
+-- FCLT_YAS2_ zijn de klachten die te laat tijd zijn (rood),
+CREATE OR REPLACE VIEW arai_v_graph_kl_open_lev
+(
+ fclt_key,
+ FCLT_XAS_,
+ FCLT_YAS_,
+ FCLT_YAS2_,
+ FCLT_URL,
+ VOLGORDE
+)
+AS
+SELECT NULL, fclt_f_leverancier, count(*) - SUM(mld_sla_te_laat), SUM(mld_sla_te_laat),
+ 'appl/fac/fac_usrrap_list.asp?usrrap_key=181' || '&' || 'fclt_f_colname1=fclt_f_leverancier' || '&' || 'fclt_f_colvalue1=' || fclt_f_leverancier || '&' || 'fclt_f_colname2=fclt_f_lopend' || '&' || 'fclt_f_colvalue2=' || fclt_f_lopend,
+ 0 - count(*)
+FROM arai_v_rap_mld_tot_klachten_2
+WHERE UPPER(fclt_f_lopend) = 'OPEN'
+GROUP BY fclt_f_leverancier, fclt_f_lopend;
+
+-- Top evenement klachten afgelopen maanden
+CREATE OR REPLACE VIEW arai_v_graph_kl_event
+(
+ fclt_key,
+ FCLT_XAS_,
+ FCLT_YAS_,
+ FCLT_YAS2_,
+ FCLT_URL,
+ VOLGORDE
+)
+AS
+SELECT NULL, fclt_f_evenement, count(*) - SUM(mld_sla_te_laat), SUM(mld_sla_te_laat),
+ 'appl/fac/fac_usrrap_list.asp?usrrap_key=181' || '&' || 'fclt_f_colname1=fclt_f_evenement' || '&' || 'fclt_f_colvalue1=' || fclt_f_evenement,
+ 0 - count(*)
+FROM arai_v_rap_mld_tot_klachten_2
+WHERE invoer_datum > SYSDATE - 365
+GROUP BY fclt_f_evenement;
+
+-- Top leverancier klachten afgelopen maanden
+CREATE OR REPLACE VIEW arai_v_graph_kl_lev
+(
+ fclt_key,
+ FCLT_XAS_,
+ FCLT_YAS_,
+ FCLT_YAS2_,
+ FCLT_URL,
+ VOLGORDE
+)
+AS
+SELECT NULL, fclt_f_leverancier, count(*) - SUM(mld_sla_te_laat), SUM(mld_sla_te_laat),
+ 'appl/fac/fac_usrrap_list.asp?usrrap_key=181' || '&' || 'fclt_f_colname1=fclt_f_leverancier' || '&' || 'fclt_f_colvalue1=' || fclt_f_leverancier,
+ 0 - count(*)
+FROM arai_v_rap_mld_tot_klachten_2
+WHERE invoer_datum > SYSDATE - 365
+GROUP BY fclt_f_leverancier;
---------------------------------------------------------------------------------------------------------------------------
@@ -6195,7 +6347,12 @@ FROM arai_v_energie_verbruik_today
-- ELEKTRA
--- Grafiek: KPI Energie Elektraverbruik per elektrameter van nu (max 10 minuten geleden)
+-- Grafiek: KPI Energie Elektraverbruik per elektrameter van nu (max 10 minuten geleden):
+-- ins_deel_key inkoop = 243
+-- ins_deel_key wkk = 244
+-- ins_deel_key pv = 339 NIET, die gaat in een aparte grafiek (uitdukken in kW)
+-- ins_deel_key totaal = 245
+
-- YAS voor groen
-- YAS2 voor rood
-- YAS3 voor oranje
@@ -6238,12 +6395,14 @@ SELECT ins_deel_key,
END,
'appl/ins/ins_deel.asp?urole=fe' || '&' || 'ins_key=' || ins_deel_key,
volgorde
- FROM arai_v_elektra_verbruik_nu;
+ FROM arai_v_elektra_verbruik_nu
+ WHERE ins_deel_key IN (243, 244, 245);
+
-- MBMB: Check of de ins_deel_key's hieronder okee zijn:
-- ins_deel_key inkoop = 243
-- ins_deel_key wkk = 244
--- ins_deel_key pv = 339
+-- ins_deel_key pv = 339 NIET, die gaat in een aparte grafiek (uitdukken in kW)
-- ins_deel_key totaal = 245
CREATE OR REPLACE VIEW arai_v_graph_electra_today
@@ -6252,8 +6411,7 @@ CREATE OR REPLACE VIEW arai_v_graph_electra_today
FCLT_XAS_,
FCLT_YAS_INKOOP,
FCLT_YAS2_WKK,
- FCLT_YAS3_PV,
- FCLT_YAS4_TOTAAL,
+ FCLT_YAS3_TOTAAL,
FCLT_URL
)
AS
@@ -6261,21 +6419,65 @@ SELECT totaal.ins_deel_key,
totaal.ins_kenmerkdeel_aanmaak,
inkoop.verbruik,
wkk.verbruik,
- pv.verbruik,
totaal.verbruik,
''
- FROM arai_v_energie_verbruik_today inkoop, arai_v_energie_verbruik_today wkk, arai_v_energie_verbruik_today pv, arai_v_energie_verbruik_today totaal
+ FROM arai_v_energie_verbruik_today inkoop, arai_v_energie_verbruik_today wkk, arai_v_energie_verbruik_today totaal
WHERE inkoop.ins_deel_key = 243
AND inkoop.ins_kenmerkdeel_aanmaak >= GREATEST('00', TRIM(TO_CHAR(TO_CHAR(SYSDATE,'HH24') - 12,'00')))
AND wkk.ins_deel_key = 244
AND wkk.ins_kenmerkdeel_aanmaak >= GREATEST('00', TRIM(TO_CHAR(TO_CHAR(SYSDATE,'HH24') - 12,'00')))
- AND pv.ins_deel_key = 339
- AND pv.ins_kenmerkdeel_aanmaak >= GREATEST('00', TRIM(TO_CHAR(TO_CHAR(SYSDATE,'HH24') - 12,'00')))
AND totaal.ins_deel_key = 245
AND totaal.ins_kenmerkdeel_aanmaak >= GREATEST('00', TRIM(TO_CHAR(TO_CHAR(SYSDATE,'HH24') - 12,'00')))
AND inkoop.ins_kenmerkdeel_aanmaak = wkk.ins_kenmerkdeel_aanmaak
- AND wkk.ins_kenmerkdeel_aanmaak = pv.ins_kenmerkdeel_aanmaak
- AND pv.ins_kenmerkdeel_aanmaak = totaal.ins_kenmerkdeel_aanmaak;
+ AND wkk.ins_kenmerkdeel_aanmaak = totaal.ins_kenmerkdeel_aanmaak;
+
+
+-- ELEKTRA
+-- Grafiek: KPI Zonne-energie van nu (max 10 minuten geleden)
+-- YAS voor groen
+-- ins_deel_key pv = 339 (uitdukken in kW)
+-- Barchart met 1 kleur: groen.
+CREATE OR REPLACE VIEW arai_v_graph_zon_nu
+(
+ fclt_key,
+ FCLT_XAS_,
+ FCLT_YAS_,
+ FCLT_URL,
+ VOLGORDE
+)
+AS
+SELECT ins_deel_key,
+ ins_deel_omschrijving,
+ fac.safe_to_number(verbruik),
+ 'appl/ins/ins_deel.asp?urole=fe' || '&' || 'ins_key=' || ins_deel_key,
+ volgorde
+ FROM arai_v_elektra_verbruik_nu
+ WHERE ins_deel_key IN (339)
+UNION ALL
+SELECT 0, ' ', 0, ' ', 0 FROM DUAL
+UNION ALL
+SELECT 0, ' ', 0, ' ', 99 FROM DUAL;
+
+-- MBMB: Check of de ins_deel_key's hieronder okee zijn:
+-- ins_deel_key pv = 339
+
+CREATE OR REPLACE VIEW arai_v_graph_zon_today
+(
+ fclt_key,
+ FCLT_XAS_,
+ FCLT_YAS_,
+ FCLT_URL
+)
+AS
+SELECT pv.ins_deel_key,
+ pv.ins_kenmerkdeel_aanmaak,
+ pv.verbruik,
+ ''
+ FROM arai_v_energie_verbruik_today pv
+ WHERE pv.ins_deel_key = 339
+ AND pv.ins_kenmerkdeel_aanmaak >= GREATEST('00', TRIM(TO_CHAR(TO_CHAR(SYSDATE,'HH24') - 12,'00')));
+
+
diff --git a/CSUN/CSUN.sql b/CSUN/CSUN.sql
index 7af577eee..a8f4a3d0d 100644
--- a/CSUN/CSUN.sql
+++ b/CSUN/CSUN.sql
@@ -255,7 +255,7 @@ CREATE OR REPLACE PROCEDURE csun_export_mailnoti (
AS
CURSOR c
IS
- SELECT m.mld_melding_key, DECODE (m.mld_alg_locatie_key, 6218, 'Aab.amsterdam@csu.nl', p.prs_perslid_email) prs_perslid_email
+ SELECT m.mld_melding_key, DECODE (m.mld_alg_locatie_key, 11139, 'Aab.amsterdam@csu.nl', p.prs_perslid_email) prs_perslid_email
FROM prs_perslid p,
mld_melding m,
alg_locatie l,
@@ -843,13 +843,16 @@ AS
AND fac.safe_to_number (alg_onrgoedkenmerk_waarde) =
pf.prs_perslid_key)
bud,
- (SELECT prs_perslid_naam_full
- FROM prs_v_perslid_fullnames pf, alg_onrgoedkenmerk ogk
- WHERE alg_kenmerk_key = 1007
- AND ogk.alg_onrgoed_key = l.alg_locatie_key
- AND fac.safe_to_number (alg_onrgoedkenmerk_waarde) =
- pf.prs_perslid_key)
- bb
+ (SELECT max(prs_perslid_naam_full) || DECODE (count(p.prs_perslid_key), 1, '', '*')
+ FROM prs_v_perslid_fullnames pf,
+ prs_perslid p,
+ alg_locatie l2,
+ prs_v_perslidwerkplek_gegevens pwpg
+ WHERE pwpg.alg_locatie_key = l2.alg_locatie_key
+ AND l.alg_district_key = l2.alg_district_key
+ AND pwpg.prs_perslid_key = p.prs_perslid_key
+ AND p.prs_srtperslid_key = 32 -- BBer
+ AND p.prs_perslid_key = pf.prs_perslid_key) bb
FROM alg_locatie l, alg_district d, alg_regio r
WHERE l.alg_district_key = d.alg_district_key
AND d.alg_regio_key = r.alg_regio_key
@@ -1246,7 +1249,6 @@ IS
-- De importvelden:
v_locatie_key NUMBER (10);
v_bud_key NUMBER (10);
- v_bb_key NUMBER (10);
v_account_key NUMBER (10);
v_district_key NUMBER (10);
v_locatie_code VARCHAR2 (10);
@@ -1347,10 +1349,6 @@ BEGIN
-- Get BUD reference
v_error_hint := 'Bepalen bb referentie: ' || rec.dm;
v_bud_key := get_alg_kenmerk (1060, v_district_key);
-
- -- Get BB reference
- v_error_hint := 'Bepalen bb referentie: ' || rec.dm;
- v_bb_key := get_alg_kenmerk (1020, v_district_key);
BEGIN
v_error_hint := 'Kijk of de locatie al bestaat: ' || rec.project;
@@ -1401,7 +1399,6 @@ BEGIN
WHERE alg_locatie_key = v_locatie_key;
csun_set_kenmerk ('ALG', 1006, v_locatie_key, v_bud_key, 0);
- csun_set_kenmerk ('ALG', 1007, v_locatie_key, v_bb_key, 0);
csun_set_kenmerk ('ALG', 1000, v_locatie_key, v_account_key, 0);
csun_set_kenmerk ('ALG', 1040, v_locatie_key, rec.project, 0);
END IF;
@@ -1826,7 +1823,7 @@ AS
BEGIN adm.systrackscriptId('$Id$', 0); END;
/
-BEGIN fac.registercustversion('CSUN', 10); END;
+BEGIN fac.registercustversion('CSUN', 11); END;
/
COMMIT;
spool off
diff --git a/DEMO/demo.sql b/DEMO/demo.sql
index cb63bb7e1..3c25e1a30 100644
--- a/DEMO/demo.sql
+++ b/DEMO/demo.sql
@@ -2155,6 +2155,334 @@ AS
AND sd.ins_srtdiscipline_key = d.ins_srtdiscipline_key
AND pf.prs_perslid_key = m.prs_perslid_key;
+-- Overzicht aanschafdata ICT-middelen, gegroepeerd per jaar ('geleend' van HPJI)
+CREATE OR REPLACE VIEW demo_v_rap_it_inventaris_jaar
+(
+ hide_f_regel,
+ fclt_f_organisatie,
+ fclt_f_categorie,
+ fclt_f_aanschafjaar,
+ aantal
+)
+AS
+ SELECT grid.onderdeel || '-' || grid.rubriek regel,
+ grid.onderdeel,
+ grid.rubriek,
+ grid.jaar,
+ COALESCE (x.aantal, 0)
+ FROM (SELECT a.prs_afdeling_key onderdeel_key,
+ sd.ins_srtdeel_key rubriek_key,
+ j.jaar jaar,
+ a.prs_afdeling_omschrijving onderdeel,
+ sd.ins_srtdeel_omschrijving rubriek
+ FROM (SELECT prs_afdeling_key,
+ prs_afdeling_omschrijving
+ FROM prs_v_aanwezigafdeling
+ WHERE prs_afdeling_parentkey IS NULL
+ UNION ALL
+ SELECT -1 prs_afdeling_key,
+ 'Onbekend' prs_afdeling_omschrijving
+ FROM DUAL) a,
+ ins_v_aanwezigsrtdeel sd,
+ ins_v_aanwezigsrtgroep sg,
+ (SELECT DISTINCT
+ TO_CHAR (
+ fac.safe_to_date (
+ ins_kenmerkdeel_waarde,
+ 'dd-mm-yyyy'
+ ),
+ 'yyyy'
+ )
+ jaar
+ FROM ins_v_aanwezigkenmerkdeel
+ WHERE ins_kenmerk_key = 761) j -- Aanschafdatum
+ WHERE sd.ins_srtgroep_key = sg.ins_srtgroep_key
+ AND sg.ins_discipline_key = 896) grid -- Hardware
+ LEFT JOIN
+ ( SELECT asd.prs_afdeling_key1 onderdeel_key,
+ asd.ins_srtdeel_key rubriek_key,
+ j.jaar jaar,
+ COUNT ( * ) aantal
+ FROM (SELECT DECODE (ra.aantal,
+ 1, ab.prs_afdeling_key1,
+ -1)
+ prs_afdeling_key1,
+ d.ins_srtdeel_key,
+ d.ins_deel_key
+ FROM ins_v_aanwezigdeel d,
+ alg_v_allonrgoed_gegevens aog,
+ ( SELECT alg_ruimte_key,
+ MAX (prs_afdeling_key)
+ prs_afdeling_key,
+ COUNT ( * ) aantal
+ FROM prs_ruimteafdeling
+ GROUP BY alg_ruimte_key) ra,
+ prs_v_afdeling_boom ab
+ WHERE d.ins_alg_ruimte_type NOT IN
+ ('A', 'P', 'W')
+ AND d.ins_alg_ruimte_key =
+ aog.alg_onroerendgoed_keys
+ AND aog.alg_ruimte_key =
+ ra.alg_ruimte_key
+ AND ra.prs_afdeling_key =
+ ab.prs_afdeling_key
+ UNION ALL
+ SELECT -1 prs_afdeling_key1,
+ d.ins_srtdeel_key,
+ d.ins_deel_key
+ FROM ins_v_aanwezigdeel d,
+ alg_v_allonrgoed_gegevens aog
+ WHERE d.ins_alg_ruimte_type NOT IN
+ ('A', 'P', 'W')
+ AND d.ins_alg_ruimte_key =
+ aog.alg_onroerendgoed_keys
+ AND (aog.alg_ruimte_key IS NULL
+ OR NOT EXISTS
+ (SELECT 1
+ FROM prs_ruimteafdeling ra
+ WHERE ra.alg_ruimte_key =
+ aog.alg_ruimte_key))
+ UNION ALL
+ SELECT ab.prs_afdeling_key1,
+ d.ins_srtdeel_key,
+ d.ins_deel_key
+ FROM ins_v_aanwezigdeel d,
+ prs_v_afdeling_boom ab
+ WHERE d.ins_alg_ruimte_type = 'A'
+ AND d.ins_alg_ruimte_key =
+ ab.prs_afdeling_key
+ UNION ALL
+ SELECT ab.prs_afdeling_key1,
+ d.ins_srtdeel_key,
+ d.ins_deel_key
+ FROM ins_v_aanwezigdeel d,
+ prs_perslid p,
+ prs_v_afdeling_boom ab
+ WHERE d.ins_alg_ruimte_type = 'P'
+ AND d.ins_alg_ruimte_key =
+ p.prs_perslid_key
+ AND p.prs_afdeling_key =
+ ab.prs_afdeling_key
+ UNION ALL
+ SELECT DECODE (ra.aantal,
+ 1, ab.prs_afdeling_key1,
+ -1)
+ prs_afdeling_key1,
+ d.ins_srtdeel_key,
+ d.ins_deel_key
+ FROM ins_v_aanwezigdeel d,
+ prs_werkplek w,
+ ( SELECT alg_ruimte_key,
+ MAX (prs_afdeling_key)
+ prs_afdeling_key,
+ COUNT ( * ) aantal
+ FROM prs_ruimteafdeling
+ GROUP BY alg_ruimte_key) ra,
+ prs_v_afdeling_boom ab
+ WHERE d.ins_alg_ruimte_type = 'W'
+ AND d.ins_alg_ruimte_key =
+ w.prs_werkplek_key
+ AND w.prs_alg_ruimte_key =
+ ra.alg_ruimte_key
+ AND ra.prs_afdeling_key =
+ ab.prs_afdeling_key
+ UNION ALL
+ SELECT -1 prs_afdeling_key1,
+ d.ins_srtdeel_key,
+ d.ins_deel_key
+ FROM ins_v_aanwezigdeel d, prs_werkplek w
+ WHERE d.ins_alg_ruimte_type = 'W'
+ AND d.ins_alg_ruimte_key =
+ w.prs_werkplek_key
+ AND NOT EXISTS
+ (SELECT 1
+ FROM prs_ruimteafdeling ra
+ WHERE ra.alg_ruimte_key =
+ w.prs_alg_ruimte_key))
+ asd
+ LEFT JOIN
+ (SELECT ins_deel_key,
+ TO_CHAR (
+ fac.safe_to_date (
+ ins_kenmerkdeel_waarde,
+ 'dd-mm-yyyy'
+ ),
+ 'yyyy'
+ )
+ jaar
+ FROM ins_v_aanwezigkenmerkdeel
+ WHERE ins_kenmerk_key = 761) j -- Aanschafdatum
+ ON asd.ins_deel_key = j.ins_deel_key
+ GROUP BY asd.prs_afdeling_key1, asd.ins_srtdeel_key, j.jaar)
+ x
+ ON grid.onderdeel_key = x.onderdeel_key
+ AND grid.rubriek_key = x.rubriek_key
+ AND grid.jaar = x.jaar;
+
+-- Overzicht aanschafdata ICT-middelen ('geleend' van HPJI)
+CREATE OR REPLACE VIEW demo_v_rap_it_inventaris_stuk
+(
+ fclt_f_organisatie,
+ fclt_f_categorie,
+ html_obj_id,
+ fclt_x_obj_id,
+ fclt_f_merk,
+ fclt_f_type,
+ fclt_d_aanschafdatum,
+ fclt_f_locatie,
+ ruimte_nr,
+ ruimte_oms
+)
+AS
+ SELECT a.prs_afdeling_omschrijving,
+ sd.ins_srtdeel_omschrijving,
+ ''
+ || htf.escape_sc(asd.ins_deel_omschrijving) || ''
+ html_obj_id,
+ asd.ins_deel_omschrijving,
+ x.merk,
+ y.model,
+ TO_CHAR (z.datum, 'dd-mm-yyyy'),
+ asd.vestiging,
+ asd.ruimte_nr,
+ asd.ruimte_oms
+ FROM (SELECT d.ins_srtdeel_key,
+ d.ins_deel_key,
+ d.ins_deel_omschrijving,
+ DECODE (rv.aantal, 1, rv.prs_afdeling_key1, -1)
+ prs_afdeling_key1,
+ aog.alg_gebouw_code || ' - ' || aog.alg_gebouw_naam
+ vestiging,
+ aog.alg_ruimte_nr ruimte_nr,
+ aog.alg_ruimte_omschrijving ruimte_oms
+ FROM ins_v_aanwezigdeel d,
+ alg_v_allonrgoed_gegevens aog,
+ ( SELECT alg_ruimte_key,
+ MAX (prs_afdeling_key1) prs_afdeling_key1,
+ COUNT ( * ) aantal
+ FROM prs_ruimteafdeling ra, prs_v_afdeling_boom ab
+ WHERE ra.prs_afdeling_key = ab.prs_afdeling_key
+ GROUP BY ra.alg_ruimte_key) rv
+ WHERE d.ins_alg_ruimte_type NOT IN ('A', 'P', 'W')
+ AND d.ins_alg_ruimte_key = aog.alg_onroerendgoed_keys
+ AND aog.alg_ruimte_key = rv.alg_ruimte_key
+ UNION ALL
+ SELECT d.ins_srtdeel_key,
+ d.ins_deel_key,
+ d.ins_deel_omschrijving,
+ -1 prs_afdeling_key1,
+ aog.alg_gebouw_code || ' - ' || aog.alg_gebouw_naam
+ vestiging,
+ aog.alg_ruimte_nr ruimte_nr,
+ aog.alg_ruimte_omschrijving ruimte_oms
+ FROM ins_v_aanwezigdeel d, alg_v_allonrgoed_gegevens aog
+ WHERE d.ins_alg_ruimte_type NOT IN ('A', 'P', 'W')
+ AND d.ins_alg_ruimte_key = aog.alg_onroerendgoed_keys
+ AND (aog.alg_ruimte_key IS NULL
+ OR NOT EXISTS
+ (SELECT 1
+ FROM prs_ruimteafdeling ra
+ WHERE ra.alg_ruimte_key =
+ aog.alg_ruimte_key))
+ UNION ALL
+ SELECT d.ins_srtdeel_key,
+ d.ins_deel_key,
+ d.ins_deel_omschrijving,
+ ab.prs_afdeling_key1,
+ 'Onbekend',
+ NULL ruimte_nr,
+ NULL ruimte_oms
+ FROM ins_v_aanwezigdeel d, prs_v_afdeling_boom ab
+ WHERE d.ins_alg_ruimte_type = 'A'
+ AND d.ins_alg_ruimte_key = ab.prs_afdeling_key
+ UNION ALL
+ SELECT d.ins_srtdeel_key,
+ d.ins_deel_key,
+ d.ins_deel_omschrijving,
+ ab.prs_afdeling_key1,
+ 'Onbekend',
+ NULL ruimte_nr,
+ NULL ruimte_oms
+ FROM ins_v_aanwezigdeel d,
+ prs_perslid p,
+ prs_v_afdeling_boom ab
+ WHERE d.ins_alg_ruimte_type = 'P'
+ AND d.ins_alg_ruimte_key = p.prs_perslid_key
+ AND p.prs_afdeling_key = ab.prs_afdeling_key
+ UNION ALL
+ SELECT d.ins_srtdeel_key,
+ d.ins_deel_key,
+ d.ins_deel_omschrijving,
+ DECODE (rv.aantal, 1, rv.prs_afdeling_key1, -1)
+ prs_afdeling_key1,
+ aog.alg_gebouw_code || ' - ' || aog.alg_gebouw_naam
+ vestiging,
+ aog.alg_ruimte_nr ruimte_nr,
+ aog.alg_ruimte_omschrijving ruimte_oms
+ FROM ins_v_aanwezigdeel d,
+ prs_werkplek w,
+ ( SELECT alg_ruimte_key,
+ MAX (prs_afdeling_key1) prs_afdeling_key1,
+ COUNT ( * ) aantal
+ FROM prs_ruimteafdeling ra, prs_v_afdeling_boom ab
+ WHERE ra.prs_afdeling_key = ab.prs_afdeling_key
+ GROUP BY ra.alg_ruimte_key) rv,
+ alg_v_allonrgoed_gegevens aog
+ WHERE d.ins_alg_ruimte_type = 'W'
+ AND d.ins_alg_ruimte_key = w.prs_werkplek_key
+ AND w.prs_alg_ruimte_key = rv.alg_ruimte_key
+ AND rv.alg_ruimte_key = aog.alg_ruimte_key
+ UNION ALL
+ SELECT d.ins_srtdeel_key,
+ d.ins_deel_key,
+ d.ins_deel_omschrijving,
+ -1 prs_afdeling_key1,
+ aog.alg_gebouw_code || ' - ' || aog.alg_gebouw_naam
+ vestiging,
+ aog.alg_ruimte_nr ruimte_nr,
+ aog.alg_ruimte_omschrijving ruimte_oms
+ FROM ins_v_aanwezigdeel d,
+ prs_werkplek w,
+ alg_v_allonrgoed_gegevens aog
+ WHERE d.ins_alg_ruimte_type = 'W'
+ AND d.ins_alg_ruimte_key = w.prs_werkplek_key
+ AND NOT EXISTS
+ (SELECT 1
+ FROM prs_ruimteafdeling ra
+ WHERE ra.alg_ruimte_key =
+ w.prs_alg_ruimte_key)
+ AND w.prs_alg_ruimte_key = aog.alg_ruimte_key) asd,
+ ins_srtdeel sd,
+ ins_srtgroep sg,
+ (SELECT prs_afdeling_key, prs_afdeling_omschrijving
+ FROM prs_v_aanwezigafdeling
+ WHERE prs_afdeling_parentkey IS NULL
+ UNION ALL
+ SELECT -1 prs_afdeling_key,
+ 'Onbekend' prs_afdeling_omschrijving
+ FROM DUAL) a,
+ (SELECT ins_deel_key, ins_kenmerkdeel_waarde merk
+ FROM ins_v_aanwezigkenmerkdeel kd, ins_kenmerk k
+ WHERE kd.ins_kenmerk_key = k.ins_kenmerk_key
+ AND k.ins_srtkenmerk_key = 42) x, -- Merk
+ (SELECT ins_deel_key, ins_kenmerkdeel_waarde model
+ FROM ins_v_aanwezigkenmerkdeel kd, ins_kenmerk k
+ WHERE kd.ins_kenmerk_key = k.ins_kenmerk_key
+ AND k.ins_srtkenmerk_key = 41) y, -- Type
+ (SELECT ins_deel_key,
+ fac.safe_to_date (ins_kenmerkdeel_waarde, 'dd-mm-yyyy')
+ datum
+ FROM ins_v_aanwezigkenmerkdeel
+ WHERE ins_kenmerk_key = 761) z -- Aanschafdatum
+ WHERE asd.ins_srtdeel_key = sd.ins_srtdeel_key
+ AND sd.ins_srtgroep_key = sg.ins_srtgroep_key
+ AND sg.ins_discipline_key = 896 -- Hardware
+ AND asd.prs_afdeling_key1 = a.prs_afdeling_key
+ AND asd.ins_deel_key = x.ins_deel_key(+)
+ AND asd.ins_deel_key = y.ins_deel_key(+)
+ AND asd.ins_deel_key = z.ins_deel_key(+);
+
BEGIN adm.systrackscriptId('$Id$', 0); END;
/
diff --git a/GDFS/gdfs.sql b/GDFS/gdfs.sql
index e3895a585..7d9db690b 100644
--- a/GDFS/gdfs.sql
+++ b/GDFS/gdfs.sql
@@ -88,6 +88,7 @@ AS
|| ']'
FROM prs_contactpersoon cp, prs_bedrijf b
WHERE cp.prs_bedrijf_key = b.prs_bedrijf_key
+ AND cp.prs_contactpersoon_verwijder IS NULL
UNION ALL
SELECT prs_perslid_key,
p.prs_perslid_naam
@@ -366,7 +367,7 @@ END;
-BEGIN fac.registercustversion('GDFS', 4); END;
+BEGIN fac.registercustversion('GDFS', 5); END;
/
BEGIN adm.systrackscriptId('$Id$', 0); END;
/
diff --git a/HAYG/hayg.sql b/HAYG/hayg.sql
new file mode 100644
index 000000000..ead3175bb
--- /dev/null
+++ b/HAYG/hayg.sql
@@ -0,0 +1,383 @@
+-- Script containing customer specific configuration sql statements for HAYG: HayGroup
+-- (c) 2006 Facilitor Software Nederland/Dijkoraad IT bv
+-- $Revision$
+-- $Id$
+--
+-- Support: +31 53 4800700
+
+SET DEFINE OFF
+
+SPOOL xhayg.lst
+SET ECHO ON
+
+@@prs_pack.sql;
+
+
+
+CREATE OR REPLACE PROCEDURE hayg_import_perslid (p_import_key IN NUMBER)
+AS
+ c_fielddelimitor VARCHAR2 (1) := ';';
+ v_newline VARCHAR2 (1000); -- Input line
+ v_errormsg VARCHAR2 (1000);
+ v_errorhint VARCHAR2 (1000);
+ oracle_err_num NUMBER;
+ oracle_err_mes VARCHAR2 (200);
+ header_is_valid NUMBER;
+ v_count NUMBER;
+ v_ongeldig NUMBER (1);
+ v_mode NUMBER (1);
+ v_aanduiding VARCHAR2 (200);
+ v_all_null BOOLEAN;
+ v_count_error NUMBER (10);
+ v_count_tot NUMBER (10);
+ v_count_import NUMBER (10);
+ -- De importvelden:
+ v_alg_locatie_code VARCHAR2 (256);
+ v_prs_afdeling_naam VARCHAR2 (256);
+ v_prs_team_naam VARCHAR2 (256);
+ v_prs_perslid_naam VARCHAR2 (256);
+ v_prs_perslid_tussenvoegsel VARCHAR2 (256);
+ v_prs_perslid_voorletters VARCHAR2 (256);
+ v_prs_perslid_voornaam VARCHAR2 (256);
+ v_prs_partner_naam VARCHAR2 (256);
+ v_prs_partner_tussenvoegsel VARCHAR2 (256);
+ v_prs_naamgebruik_code VARCHAR2 (256);
+ v_prs_perslid_geslacht VARCHAR2 (256);
+ v_prs_perslid_geboortedatum VARCHAR2 (256);
+ v_prs_perslid_telefoonnr VARCHAR2 (256);
+ v_prs_perslid_mobiel VARCHAR2 (256);
+ v_prs_perslid_email VARCHAR2 (256);
+ v_prs_srtperslid_omschrijving VARCHAR2 (256);
+ v_prs_perslid_nr VARCHAR2 (256);
+ v_prs_prive_straat VARCHAR2 (256);
+ v_prs_prive_huisnr VARCHAR2 (256);
+ v_prs_prive_huisnr_toev VARCHAR2 (256);
+ v_prs_prive_postcode VARCHAR2 (256);
+ v_prs_prive_plaats VARCHAR2 (256);
+ v_prs_prive_telefoonnr VARCHAR2 (256);
+ v_prs_prive_mobiel VARCHAR2 (256);
+ v_prs_prive_email VARCHAR2 (256);
+ v_prs_perslid_dienstverband VARCHAR2 (256);
+ v_prs_perslid_indienst VARCHAR2 (256);
+ v_prs_perslid_uitdienst VARCHAR2 (256);
+ v_prs_perslid_oslogin VARCHAR2 (256);
+ v_prs_perslid_wachtwoord VARCHAR2 (256);
+
+ CURSOR c1
+ IS
+ SELECT *
+ FROM fac_imp_file
+ WHERE fac_import_key = p_import_key
+ ORDER BY fac_imp_file_index;
+BEGIN
+ DELETE FROM hayg_imp_perslid;
+
+ COMMIT;
+ v_count_error := 0;
+ header_is_valid := 0;
+ v_count_tot := 0;
+ v_count_import := 0;
+ v_aanduiding := '';
+
+ FOR rec1 IN c1
+ LOOP
+ BEGIN
+ v_errormsg := 'Fout FETCH te importeren rij';
+
+ v_newline := rec1.fac_imp_file_line;
+ v_errormsg := '';
+ v_errorhint := 'Fout opvragen te importeren rij';
+ v_aanduiding := '';
+ v_ongeldig := 0;
+
+ -- Lees alle veldwaarden
+ -- 01
+ fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_nr); -- Mdw.
+ -- 02
+ fac.imp_getfield (v_newline, c_fielddelimitor, v_alg_locatie_code); -- Locatie
+ -- 03
+ fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_afdeling_naam); -- OE
+ -- 04
+ fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_team_naam); -- Org. Eenheid
+ -- 05
+ fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_srtperslid_omschrijving); -- Functie
+ -- 06
+ fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_voorletters); -- Voorletters
+ -- 07
+ fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_naam); -- Geboortenaam
+ -- 08
+ fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_tussenvoegsel); -- Voorv. geb.naam
+ -- 09
+ fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_partner_naam); -- Geb.naam partner
+ -- 10
+ fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_partner_tussenvoegsel); -- Voorvoegsel partner
+ -- 11
+ fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_naamgebruik_code); -- Naamgebruik code
+ -- 12
+ fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_voornaam); -- Roepnaam
+ -- 13
+ fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_geslacht); -- Geslacht
+ -- 14
+ fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_geboortedatum); -- Geboortedatum
+ -- 15
+ fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_prive_straat); -- Straat
+ -- 16
+ fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_prive_huisnr); -- Huisnr.
+ -- 17
+ fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_prive_huisnr_toev); -- Toev. aan
+ -- 18
+ fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_prive_postcode); -- Postcode
+ -- 19
+ fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_prive_plaats); -- Plaats
+ -- 20
+ fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_prive_telefoonnr); -- Telnr. privé
+ -- 21
+ fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_prive_mobiel); -- Mob. privé
+ -- 22
+ fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_prive_email); -- Mail privé
+ -- 23
+ fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_oslogin); -- Loginnaam
+ -- 24
+ fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_telefoonnr); -- Telnr. werk
+ -- 25
+ fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_email); -- Mail werk
+ -- 26
+ fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_mobiel); -- Mob. werk
+ -- 27
+ fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_dienstverband); -- Uren/wk
+ -- 28
+ fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_indienst); -- In dienst
+ -- 29
+ fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_uitdienst); -- Uit dienst
+ --
+ v_aanduiding := v_prs_perslid_naam || '|' || v_prs_perslid_voornaam || '| ';
+
+ -- Controleer alle veldwaarde
+ IF (header_is_valid = 0)
+ THEN
+ IF UPPER (v_alg_locatie_code) = 'LOCATIE' -- TO DO: Nog verder uitwerken
+ THEN
+ header_is_valid := 1;
+ END IF;
+ ELSE
+ v_count_tot := v_count_tot + 1;
+ --
+ -- Insert geformatteerde import record
+ IF v_ongeldig = 0
+ THEN
+ v_errormsg := 'Fout bij toevoegen te impoteren persoon [' || v_aanduiding || ']';
+
+ INSERT INTO hayg_imp_perslid (
+ alg_locatie_code,
+ alg_gebouw_code,
+ alg_verdieping_volgnr,
+ alg_ruimte_nr,
+ prs_afdeling_naam,
+ prs_team_naam,
+ prs_perslid_naam,
+ prs_perslid_tussenvoegsel,
+ prs_perslid_voorletters,
+ prs_perslid_voornaam,
+ prs_partner_naam,
+ prs_partner_tussenvoegsel,
+ prs_naamgebruik_code,
+ prs_perslid_geslacht,
+ prs_perslid_geboortedatum,
+ prs_perslid_telefoonnr,
+ prs_perslid_mobiel,
+ prs_perslid_email,
+ prs_srtperslid_omschrijving,
+ prs_perslid_nr,
+ prs_prive_straat,
+ prs_prive_huisnr,
+ prs_prive_huisnr_toev,
+ prs_prive_postcode,
+ prs_prive_plaats,
+ prs_prive_telefoonnr,
+ prs_prive_mobiel,
+ prs_prive_email,
+ prs_perslid_dienstverband,
+ prs_datum_indienst,
+ prs_datum_uitdienst,
+ prs_perslid_oslogin
+ )
+ VALUES (
+ substr(trim(v_alg_locatie_code),1,10),
+ DECODE (v_alg_locatie_code, 'ZEI', 'HQ', 'ENS', 'KE', 'AMS', 'KA'),
+ DECODE (v_alg_locatie_code, 'ZEI', 0, 'ENS', 2, 'AMS', 7),
+ DECODE (v_alg_locatie_code, 'ZEI', '0.01', 'ENS', '2.06', 'AMS', '7.09'),
+ substr(trim(v_prs_afdeling_naam),1,10),
+ substr(trim(v_prs_team_naam),1,10),
+ substr(trim(v_prs_perslid_naam),1,10),
+ substr(trim(v_prs_perslid_tussenvoegsel),1,15),
+ substr(trim(v_prs_perslid_voorletters),1,10),
+ substr(trim(v_prs_perslid_voornaam),1,30),
+ substr(trim(v_prs_partner_naam),1,60),
+ substr(trim(v_prs_partner_tussenvoegsel),1,15),
+ fac.safe_to_number(trim(v_prs_naamgebruik_code)),
+ DECODE(trim(v_prs_perslid_geslacht), 'Man', 1, 0),
+ fac.safe_to_date(trim(v_prs_perslid_geboortedatum), 'dd-mm-yyyy'),
+ substr(trim(v_prs_perslid_telefoonnr),1,15),
+ substr(trim(v_prs_perslid_mobiel),1,15),
+ substr(trim(v_prs_perslid_email),1,50),
+ substr(trim(v_prs_srtperslid_omschrijving),1,60),
+ substr(trim(v_prs_perslid_nr),1,16),
+ substr(trim(v_prs_prive_straat),1,50),
+ substr(trim(v_prs_prive_huisnr),1,10),
+ substr(trim(v_prs_prive_huisnr_toev),1,10),
+ substr(trim(v_prs_prive_postcode),1,7),
+ substr(trim(v_prs_prive_plaats),1,30),
+ substr(trim(v_prs_prive_telefoonnr),1,15),
+ substr(trim(v_prs_prive_mobiel),1,15),
+ substr(trim(v_prs_prive_email),1,50),
+ round(fac.safe_to_number(trim(v_prs_perslid_dienstverband))/0.4),
+ fac.safe_to_date(trim(v_prs_perslid_indienst), 'dd-mm-yyyy'),
+ fac.safe_to_date(trim(v_prs_perslid_uitdienst), 'dd-mm-yyyy'),
+ substr(trim(v_prs_perslid_oslogin),1,30)
+ );
+
+ v_count_import := v_count_import + 1;
+ END IF;
+ END IF;
+ END;
+ END LOOP;
+
+ -- personen die de geboortenaam van de partner icm de eigen naam willen gebruiken
+ UPDATE hayg_imp_perslid SET prs_perslid_naam = prs_partner_naam || ' - ' || prs_perslid_tussenvoegsel || DECODE(prs_perslid_tussenvoegsel, NULL, '', ' ') || prs_perslid_naam,
+ prs_perslid_tussenvoegsel = prs_partner_tussenvoegsel
+ WHERE prs_naamgebruik_code = 1;
+
+ -- personen die de geboortenaam van de partner willen gebruiken
+ UPDATE hayg_imp_perslid SET prs_perslid_naam = prs_partner_naam,
+ prs_perslid_tussenvoegsel = prs_partner_tussenvoegsel
+ WHERE prs_naamgebruik_code = 2;
+
+ -- personen die de eigen naam icm de geboortenaam van de partner willen gebruiken
+ UPDATE hayg_imp_perslid SET prs_perslid_naam = prs_perslid_naam || ' - ' || prs_partner_tussenvoegsel || DECODE(prs_partner_tussenvoegsel, NULL, '', ' ') || prs_partner_naam
+ WHERE prs_naamgebruik_code = 3;
+
+
+ IF (header_is_valid = 0)
+ THEN
+ fac.imp_writelog (p_import_key,
+ 'E',
+ v_aanduiding || 'Ongeldig importbestand',
+ 'Geen geldige headerregel aanwezig'
+ );
+ ELSE
+ fac.imp_writelog (p_import_key, 'S', 'Persoon: aantal ingelezen regels: ' || TO_CHAR (v_count_tot), '');
+ fac.imp_writelog (p_import_key,
+ 'S',
+ 'Persoon: aantal ongeldige importregels: ' || TO_CHAR (v_count_tot - v_count_import),
+ ''
+ );
+ END IF;
+
+ COMMIT;
+EXCEPTION
+ WHEN OTHERS
+ THEN
+ oracle_err_num := SQLCODE;
+ oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
+ v_errormsg := 'Error ' || oracle_err_num || '/' || oracle_err_mes;
+ fac.imp_writelog (p_import_key, 'E', v_aanduiding || v_errormsg, v_errorhint);
+END hayg_import_perslid;
+/
+
+
+CREATE OR REPLACE PROCEDURE hayg_update_perslid (
+ p_import_key IN NUMBER
+) IS
+
+CURSOR c_flex
+IS
+ SELECT i.*, p.prs_perslid_key
+ FROM hayg_imp_perslid i, prs_perslid p, prs_v_perslid_fullnames_all pf
+ WHERE p.prs_perslid_nr = i.prs_perslid_nr
+ AND pf.prs_perslid_key = p.prs_perslid_key
+ AND p.prs_perslid_verwijder IS NULL
+ ORDER BY 2;
+
+
+
+CURSOR c_del
+IS
+ SELECT p.prs_perslid_key, p.prs_perslid_nr, pf.prs_perslid_naam_full
+ FROM hayg_imp_perslid i, prs_perslid p, prs_v_perslid_fullnames_all pf
+ WHERE p.prs_perslid_nr = i.prs_perslid_nr(+)
+ AND pf.prs_perslid_key = p.prs_perslid_key
+ AND p.prs_perslid_nr IS NOT NULL
+ AND i.prs_perslid_nr IS NULL
+ AND p.prs_perslid_verwijder IS NULL
+ ORDER BY 2;
+
+CURSOR c_imp
+IS
+ SELECT *
+ FROM fac_imp_file
+ WHERE fac_import_key = p_import_key;
+
+v_perslid_key NUMBER;
+v_perslid_nr VARCHAR2(100);
+v_kostenplaats_nr VARCHAR2(100);
+v_count NUMBER;
+
+BEGIN
+ -- generic update
+
+ SELECT count(*)
+ INTO v_count
+ FROM hayg_imp_perslid;
+
+ IF v_count < 100
+ THEN
+ fac.imp_writelog (p_import_key,
+ 'E',
+ 'Het aantal te importeren personen is te klein ('
+ || TO_CHAR (v_count) || ')',
+ 'Zie Specificatie'
+ );
+ RETURN;
+ END IF;
+
+ HAYG.fac_gen_update_perslid (p_import_key, 'NR', 1, NULL);
+
+ -- ken iedereen een profiel toe
+ --UPDATE prs_perslid SET fac_profiel_key = 1 WHERE fac_profiel_key IS NULL;
+
+ -- update flex fields
+ FOR rec IN c_flex
+ LOOP
+ BEGIN
+ HAYG.set_prs_kenmerk (p_import_key, 'P', 1027, rec.prs_perslid_key, rec.prs_team_naam);
+ HAYG.set_prs_kenmerk (p_import_key, 'P', 1028, rec.prs_perslid_key, to_char(rec.prs_perslid_geboortedatum, 'dd-mm-yyyy'));
+ HAYG.set_prs_kenmerk (p_import_key, 'P', 1029, rec.prs_perslid_key, to_char(rec.prs_datum_indienst, 'dd-mm-yyyy'));
+ HAYG.set_prs_kenmerk (p_import_key, 'P', 1030, rec.prs_perslid_key, to_char(rec.prs_datum_uitdienst, 'dd-mm-yyyy'));
+ HAYG.set_prs_kenmerk (p_import_key, 'P', 1021, rec.prs_perslid_key, rec.prs_prive_straat || ' ' || rec.prs_prive_huisnr || rec.prs_prive_huisnr_toev);
+ HAYG.set_prs_kenmerk (p_import_key, 'P', 1022, rec.prs_perslid_key, rec.prs_prive_postcode);
+ HAYG.set_prs_kenmerk (p_import_key, 'P', 1023, rec.prs_perslid_key, rec.prs_prive_plaats);
+ HAYG.set_prs_kenmerk (p_import_key, 'P', 1024, rec.prs_perslid_key, rec.prs_prive_email);
+ HAYG.set_prs_kenmerk (p_import_key, 'P', 1025, rec.prs_perslid_key, rec.prs_prive_telefoonnr);
+ HAYG.set_prs_kenmerk (p_import_key, 'P', 1026, rec.prs_perslid_key, rec.prs_prive_mobiel);
+ END;
+ END LOOP;
+
+ -- 2 maanden na het zetten van de uitdienst datum worden de medewerkers daadwerkelijk verwijderd.
+ FOR rec IN c_del
+ LOOP
+ BEGIN
+ HAYG.prs_del_perslid (p_import_key, rec.prs_perslid_key, 0);
+ END;
+ END LOOP;
+
+END hayg_update_perslid;
+/
+
+
+BEGIN fac.registercustversion('HAYG', 1); END;
+/
+BEGIN adm.systrackscriptId('$Id$', 0); END;
+/
+commit;
+
+spool off
diff --git a/HAYG/prs_pack.sql b/HAYG/prs_pack.sql
new file mode 100644
index 000000000..3389a0b0e
--- /dev/null
+++ b/HAYG/prs_pack.sql
@@ -0,0 +1,1114 @@
+CREATE OR REPLACE PACKAGE HAYG
+AS
+ -- PACKAGES voor de perslid import functions
+
+ PROCEDURE set_prs_kenmerk (p_import_key IN NUMBER,
+ p_niveau IN VARCHAR2,
+ p_kenmerk_key IN NUMBER,
+ p_link_key IN NUMBER,
+ p_kenmerk_waarde IN VARCHAR2);
+
+ PROCEDURE prs_set_werkplek (p_perslid_key IN NUMBER,
+ p_ruimte_key IN NUMBER,
+ p_werkplek_volgnr IN NUMBER,
+ p_werkplek_omschrijving IN VARCHAR2,
+ p_wp_expliciet IN NUMBER,
+ p_errormsg OUT VARCHAR2,
+ p_errorhint OUT VARCHAR2);
+
+ PROCEDURE prs_update_werkplek (p_locatie_code IN VARCHAR2,
+ p_gebouw_code IN VARCHAR2,
+ p_verdieping_volgnr IN VARCHAR2,
+ p_ruimte_nr IN VARCHAR2,
+ p_werkplek_volgnr IN NUMBER,
+ p_werkplek_omschrijving IN VARCHAR2,
+ p_perslid_key IN NUMBER,
+ p_wp_expliciet IN NUMBER,
+ p_std_wp_ruimte_nr IN VARCHAR2,
+ p_errormsg OUT VARCHAR2,
+ p_errorhint OUT VARCHAR2);
+
+ PROCEDURE fac_gen_update_perslid (p_import_key IN NUMBER,
+ p_sleutelkolom IN VARCHAR2,
+ p_wp_mode IN NUMBER,
+ p_std_wp_ruimte_nr IN VARCHAR2);
+
+ PROCEDURE prs_del_perslid (p_import_key IN NUMBER,
+ p_perslid_key IN NUMBER,
+ p_wp_expliciet IN NUMBER);
+
+ PROCEDURE insert_perslid_from_mld (p_applname IN VARCHAR2,
+ p_applrun IN VARCHAR2);
+
+ FUNCTION count_Work_Days_InclTime( pdate1 IN DATE , pdate2 IN DATE ) RETURN NUMBER;
+
+ FUNCTION count_Work_Days( pdate1 IN DATE , pdate2 IN DATE ) RETURN NUMBER;
+END;
+/
+
+
+/* Formatted on 3/18/2011 10:07:59 AM (QP5 v5.136.908.31019) */
+CREATE OR REPLACE PACKAGE BODY HAYG
+AS
+ -- PACKAGE voor de perslid import functions
+
+
+
+ PROCEDURE set_prs_kenmerk (p_import_key IN NUMBER,
+ p_niveau IN VARCHAR2,
+ p_kenmerk_key IN NUMBER,
+ p_link_key IN NUMBER,
+ p_kenmerk_waarde IN VARCHAR2)
+ AS
+ v_count NUMBER;
+ v_hint VARCHAR2 (100);
+ v_aktie VARCHAR2 (100);
+ oracle_err_num NUMBER;
+ oracle_err_mes VARCHAR2 (200);
+ v_errormsg VARCHAR2 (200);
+ BEGIN
+ v_hint :=
+ ' kenmerk '
+ || p_niveau
+ || ' kenmerk_key: '
+ || p_kenmerk_key
+ || ' link: '
+ || p_link_key
+ || ' waarde: '
+ || p_kenmerk_waarde;
+ v_aktie := 'Toevoegen';
+
+ SELECT COUNT ( * )
+ INTO v_count
+ FROM prs_kenmerklink
+ WHERE prs_link_key = p_link_key
+ AND prs_kenmerklink_niveau = p_niveau
+ AND prs_kenmerk_key = p_kenmerk_key
+ AND prs_kenmerklink_verwijder IS NULL;
+
+ IF v_count = 1
+ THEN
+ IF p_kenmerk_waarde IS NULL
+ THEN
+ v_aktie := 'Verwijder';
+
+ DELETE prs_kenmerklink
+ WHERE prs_link_key = p_link_key
+ AND prs_kenmerklink_niveau = p_niveau
+ AND prs_kenmerk_key = p_kenmerk_key
+ AND prs_kenmerklink_verwijder IS NULL;
+ ELSE
+ v_aktie := 'Wijzigen';
+
+ UPDATE prs_kenmerklink
+ SET prs_kenmerklink_waarde = p_kenmerk_waarde
+ WHERE prs_link_key = p_link_key
+ AND prs_kenmerklink_niveau = p_niveau
+ AND prs_kenmerk_key = p_kenmerk_key
+ AND prs_kenmerklink_verwijder IS NULL;
+ END IF;
+ ELSE
+ v_aktie := 'Toevoegen';
+
+ IF p_kenmerk_key IS NOT NULL AND p_kenmerk_waarde IS NOT NULL
+ THEN
+ INSERT INTO PRS_KENMERKLINK (PRS_KENMERK_KEY,
+ PRS_LINK_KEY,
+ PRS_KENMERKLINK_NIVEAU,
+ PRS_KENMERKLINK_WAARDE)
+ VALUES (p_kenmerk_key,
+ p_link_key,
+ p_niveau,
+ p_kenmerk_waarde);
+ END IF;
+ END IF;
+ --fac.imp_writelog (p_import_key, 'I', 'Verwerken kenmerk ' || v_aktie || ' kenmerk_key:' || p_kenmerk_key || ' waarde:'|| p_kenmerk_waarde || '-','');
+ EXCEPTION
+ WHEN OTHERS
+ THEN
+ oracle_err_num := SQLCODE;
+ oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
+ v_errormsg :=
+ 'OTHERS (error '
+ || oracle_err_num
+ || '/'
+ || oracle_err_mes
+ || ')';
+ fac.imp_writelog (p_import_key,
+ 'E',
+ v_errormsg,
+ v_aktie || ' - ' || v_hint);
+ END;
+
+
+ PROCEDURE prs_set_werkplek (p_perslid_key IN NUMBER,
+ p_ruimte_key IN NUMBER,
+ p_werkplek_volgnr IN NUMBER,
+ p_werkplek_omschrijving IN VARCHAR2,
+ p_wp_expliciet IN NUMBER,
+ p_errormsg OUT VARCHAR2,
+ p_errorhint OUT VARCHAR2)
+ IS
+ v_ruimte_nr VARCHAR2 (10);
+ v_werkplek_volgnr NUMBER (3);
+ v_werkplek_omschrijving VARCHAR2 (30);
+ v_werkplek_key NUMBER (10);
+ v_perslidwerkplek_key NUMBER (10);
+ v_huidige_ruimte_key NUMBER (10);
+ v_huidige_pwp_key NUMBER (10);
+ v_huidige_wp_key NUMBER (10);
+ oracle_err_num NUMBER;
+ oracle_err_mes VARCHAR2 (200);
+ BEGIN
+ -- bepaal het ruimte_nummer voor de omschrijving van de werkplek
+ p_errorhint := 'Fout bij bepalen nieuwe ruimte ruimte_key:' || p_ruimte_key;
+ SELECT alg_ruimte_nr
+ INTO v_ruimte_nr
+ FROM alg_ruimte
+ WHERE alg_ruimte_key = p_ruimte_key;
+
+ -- vind de huidige hoofdwerkplek
+ p_errorhint := 'Fout bij zoeken naar de hoofdwerkplek.';
+ SELECT MAX (pwp.prs_perslidwerkplek_key)
+ INTO v_huidige_pwp_key
+ FROM prs_perslid p, prs_perslidwerkplek pwp, prs_werkplek wp
+ WHERE p.prs_perslid_key = p_perslid_key
+ AND p.prs_perslid_key = pwp.prs_perslid_key
+ AND pwp.prs_werkplek_key = wp.prs_werkplek_key
+ AND COALESCE (wp.prs_werkplek_virtueel, 0) <> '1'
+ AND pwp.prs_perslidwerkplek_volgnr = 1;
+
+ -- met de bijbehorende werkplek
+ IF v_huidige_pwp_key IS NOT NULL
+ THEN
+ p_errorhint := 'Fout bij bepalen of persoon al een werkplek heeft';
+
+ SELECT pwp.prs_werkplek_key
+ INTO v_huidige_wp_key
+ FROM prs_perslidwerkplek pwp
+ WHERE pwp.prs_perslidwerkplek_key = v_huidige_pwp_key;
+ END IF;
+
+
+ IF p_wp_expliciet = 1
+ THEN
+ IF p_werkplek_omschrijving IS NULL
+ THEN
+ v_werkplek_omschrijving :=
+ v_ruimte_nr || '/' || TO_CHAR (v_werkplek_volgnr);
+ ELSE
+ v_werkplek_omschrijving := p_werkplek_omschrijving;
+ END IF;
+
+ p_errorhint := 'Fout bij bepalen werkplekvolgnr.';
+
+ IF (p_werkplek_volgnr IS NOT NULL)
+ THEN
+ BEGIN
+ -- expliciete werkplekken
+ SELECT prs_werkplek_key
+ INTO v_werkplek_key
+ FROM prs_werkplek
+ WHERE prs_alg_ruimte_key = p_ruimte_key
+ AND prs_werkplek_volgnr = p_werkplek_volgnr;
+ EXCEPTION
+ WHEN NO_DATA_FOUND
+ THEN
+ -- voeg werkplek maar toe
+ INSERT INTO prs_werkplek (prs_werkplek_module,
+ prs_werkplek_volgnr,
+ prs_werkplek_omschrijving,
+ prs_alg_ruimte_key)
+ VALUES ('PRR',
+ v_werkplek_volgnr,
+ v_werkplek_omschrijving,
+ p_ruimte_key)
+ RETURNING prs_werkplek_key
+ INTO v_werkplek_key;
+ END;
+
+ IF v_huidige_wp_key <> v_werkplek_key OR v_huidige_wp_key IS NULL
+ THEN
+ IF v_huidige_pwp_key IS NOT NULL
+ THEN
+ p_errorhint := 'Omhangen perslidwerkplek record.';
+
+ -- verplaatsen van de persoon
+ UPDATE prs_perslidwerkplek
+ SET prs_werkplek_key = v_werkplek_key
+ WHERE prs_perslidwerkplek_key = v_huidige_pwp_key;
+
+ v_perslidwerkplek_key := v_huidige_pwp_key;
+ ELSE
+ -- toevoegen van perslidwerkplek record
+ p_errorhint := 'Toevoegen perslidwerkplek record.';
+
+ INSERT INTO prs_perslidwerkplek (prs_perslid_key,
+ prs_werkplek_key,
+ prs_perslidwerkplek_volgnr)
+ VALUES (p_perslid_key, v_werkplek_key, 1)
+ RETURNING prs_perslidwerkplek_key
+ INTO v_perslidwerkplek_key;
+ END IF;
+ END IF;
+ ELSE
+ p_errormsg :=
+ 'Geen werkplekvolgnummer gevonden bij expliciete werkplekken';
+ END IF;
+ ELSE -- impliciete werkplekken
+ -- kijk of de ruimte gelijk is aan de huidige ruimte
+ p_errorhint := 'Bepalen huidige ruimte.';
+
+ SELECT MAX (prs_alg_ruimte_key)
+ INTO v_huidige_ruimte_key
+ FROM prs_werkplek
+ WHERE prs_werkplek_key = v_huidige_wp_key;
+
+ IF v_huidige_ruimte_key <> p_ruimte_key
+ OR v_huidige_ruimte_key IS NULL
+ THEN
+ -- geen lege werkplekken gevonden.
+ -- maak een nieuwe werkplek aan met als volgnummer het hoogste gevonden nummmer + 1
+ p_errorhint := 'Maak een nieuwe werkplek aan';
+
+ SELECT COALESCE (MAX (prs_werkplek_volgnr), 0) + 1
+ INTO v_werkplek_volgnr
+ FROM prs_werkplek
+ WHERE prs_alg_ruimte_key = p_ruimte_key;
+
+ INSERT INTO prs_werkplek (prs_werkplek_module,
+ prs_werkplek_volgnr,
+ prs_werkplek_omschrijving,
+ prs_alg_ruimte_key)
+ VALUES ('PRR',
+ v_werkplek_volgnr,
+ v_ruimte_nr || '/' || TO_CHAR (v_werkplek_volgnr),
+ p_ruimte_key)
+ RETURNING prs_werkplek_key
+ INTO v_werkplek_key;
+
+ -- nu hebben we een vrije werkplek
+
+ IF v_huidige_pwp_key IS NOT NULL
+ THEN
+ p_errorhint := 'Omhangen perslidwerkplek record.';
+
+ -- verplaatsen van de persoon
+ UPDATE prs_perslidwerkplek
+ SET prs_werkplek_key = v_werkplek_key
+ WHERE prs_perslidwerkplek_key = v_huidige_pwp_key;
+
+ v_perslidwerkplek_key := v_huidige_pwp_key;
+ ELSE
+ -- toevoegen van perslidwerkplek record
+ p_errorhint := 'Toevoegen perslidwerkplek record.';
+
+ INSERT INTO prs_perslidwerkplek (prs_perslid_key,
+ prs_werkplek_key,
+ prs_perslidwerkplek_volgnr)
+ VALUES (p_perslid_key, v_werkplek_key, 1)
+ RETURNING prs_perslidwerkplek_key
+ INTO v_perslidwerkplek_key;
+ END IF;
+ END IF;
+ END IF;
+
+ -- check of we nog iets moeten weggooien
+ -- FSN#26947/MvdH: hierboven wordt altijd een nieuwe werkplek aangemaakt
+ -- en die wordt gekoppeld aan een bestaande of nieuwe perslidwerkplek
+ -- (indien bestaand dan huidige_pwp_key:=v_perslidwerkplek_key en indien
+ -- nieuw dan huidige_pwp_key IS NULL) => beide if-condities nooit waar!
+ --IF v_huidige_pwp_key <> v_perslidwerkplek_key
+ -- OR (v_perslidwerkplek_key IS NULL AND v_huidige_pwp_key IS NOT NULL)
+ --THEN
+ -- DELETE prs_perslidwerkplek
+ -- WHERE prs_perslidwerkplek_key = v_huidige_pwp_key;
+ --END IF;
+
+ -- FSN#26947/MvdH: hierboven wordt altijd een nieuwe werkplek aangemaakt
+ -- en, alleen als er ook al een was, dan is onderstaande conditie waar!
+ -- => alleen igv. impliciet in dat geval de oude verwijderen!
+ --IF p_wp_expliciet <> 1
+ -- AND (v_huidige_wp_key <> v_werkplek_key
+ -- OR (v_werkplek_key IS NULL AND v_huidige_wp_key IS NOT NULL))
+ --THEN
+ -- UPDATE prs_werkplek
+ -- SET prs_werkplek_verwijder = SYSDATE
+ -- WHERE prs_werkplek_key = v_huidige_wp_key;
+ --END IF;
+ IF p_wp_expliciet <> 1 AND v_huidige_wp_key IS NOT NULL
+ THEN
+ DELETE FROM prs_werkplek
+ WHERE prs_werkplek_key = v_huidige_wp_key;
+ END IF;
+ EXCEPTION
+ WHEN OTHERS
+ THEN
+ oracle_err_num := SQLCODE;
+ oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
+ p_errormsg :=
+ ' (ORACLE error number = <'
+ || ORACLE_err_num
+ || '> ORACLE error message = <'
+ || ORACLE_err_mes
+ || '>)';
+ END prs_set_werkplek;
+
+
+ PROCEDURE prs_update_werkplek (p_locatie_code IN VARCHAR2,
+ p_gebouw_code IN VARCHAR2,
+ p_verdieping_volgnr IN VARCHAR2,
+ p_ruimte_nr IN VARCHAR2,
+ p_werkplek_volgnr IN NUMBER,
+ p_werkplek_omschrijving IN VARCHAR2,
+ p_perslid_key IN NUMBER,
+ p_wp_expliciet IN NUMBER,
+ p_std_wp_ruimte_nr IN VARCHAR2,
+ p_errormsg OUT VARCHAR2,
+ p_errorhint OUT VARCHAR2)
+ IS
+ v_ruimte_key NUMBER (10);
+ v_locatie_key NUMBER (10);
+ v_gebouw_key NUMBER (10);
+ v_verdieping_key NUMBER (10);
+ v_ruimte_onveranderd NUMBER (1);
+ v_count NUMBER (10);
+ oracle_err_num NUMBER;
+ oracle_err_mes VARCHAR2 (200);
+ BEGIN
+ p_errorhint :=
+ 'Fout bij bepalen of persoon al een perslidwerkplek heeft';
+ v_ruimte_key := -1;
+ v_ruimte_onveranderd := 0;
+
+ -- laten we eerst maar even zoeken welke gegevens er boven tafel te krijgen zijn.
+ IF p_locatie_code IS NOT NULL
+ THEN
+ p_errorhint := 'Fout bij bepalen locatie [' || p_locatie_code || ']';
+
+ SELECT alg_locatie_key
+ INTO v_locatie_key
+ FROM alg_locatie
+ WHERE UPPER (alg_locatie_code) = UPPER (p_locatie_code)
+ AND alg_locatie_verwijder IS NULL;
+
+ IF p_gebouw_code IS NOT NULL
+ THEN
+ p_errorhint := 'Fout bij bepalen gebouw [' || p_gebouw_code || ']';
+
+ SELECT alg_gebouw_key
+ INTO v_gebouw_key
+ FROM alg_gebouw
+ WHERE UPPER (alg_gebouw_code) = UPPER (p_gebouw_code)
+ AND alg_gebouw_verwijder IS NULL
+ AND alg_locatie_key = v_locatie_key;
+
+ IF p_verdieping_volgnr IS NOT NULL
+ THEN
+ p_errorhint := 'Fout bij bepalen verdieping';
+
+ SELECT alg_verdieping_key
+ INTO v_verdieping_key
+ FROM alg_verdieping
+ WHERE alg_gebouw_key = v_gebouw_key
+ AND alg_verdieping_volgnr = p_verdieping_volgnr
+ AND alg_verdieping_verwijder IS NULL;
+
+ IF p_ruimte_nr IS NOT NULL
+ THEN
+ p_errorhint :=
+ 'Fout bij bepalen ruimte ['
+ || TO_CHAR (p_ruimte_nr)
+ || ']';
+
+ SELECT alg_ruimte_key
+ INTO v_ruimte_key
+ FROM alg_ruimte
+ WHERE alg_verdieping_key = v_verdieping_key
+ AND alg_ruimte_verwijder IS NULL
+ AND UPPER (alg_ruimte_nr) = UPPER (p_ruimte_nr);
+
+ -- kijk of ik al een werkplek heb in deze kamer
+ SELECT COUNT (wp.prs_werkplek_key)
+ INTO v_count
+ FROM prs_werkplek wp, prs_perslidwerkplek pwp
+ WHERE pwp.prs_perslid_key = p_perslid_key
+ AND wp.prs_werkplek_key = pwp.prs_werkplek_key
+ AND wp.prs_alg_ruimte_key = v_ruimte_key
+ AND COALESCE (wp.prs_werkplek_virtueel, 0) = 0;
+
+ IF v_count = 0
+ THEN
+ v_ruimte_onveranderd := 0;
+ ELSE
+ v_ruimte_onveranderd := 1;
+ END IF;
+ ELSE
+ -- kijk of ik al een werkplek heb op deze verdieping
+ SELECT COUNT (wp.prs_werkplek_key)
+ INTO v_count
+ FROM prs_werkplek wp,
+ prs_perslidwerkplek pwp,
+ alg_ruimte r
+ WHERE pwp.prs_perslid_key = p_perslid_key
+ AND wp.prs_werkplek_key = pwp.prs_werkplek_key
+ AND wp.prs_alg_ruimte_key = r.alg_ruimte_key
+ AND COALESCE (wp.prs_werkplek_virtueel, 0) = 0
+ AND r.alg_verdieping_key = v_verdieping_key;
+
+ IF v_count = 0
+ THEN
+ -- vind de standaardruimte binnen de gevonden verdieping
+ SELECT MAX (alg_ruimte_key)
+ INTO v_ruimte_key
+ FROM alg_ruimte
+ WHERE alg_verdieping_key = v_verdieping_key
+ AND alg_ruimte_verwijder IS NULL
+ AND alg_ruimte_nr = p_std_wp_ruimte_nr;
+ ELSE
+ v_ruimte_onveranderd := 1;
+ END IF;
+ END IF;
+ ELSE
+ -- kijk of ik al een werkplek heb in dit gebouw
+ SELECT COUNT (wp.prs_werkplek_key)
+ INTO v_count
+ FROM prs_werkplek wp,
+ prs_perslidwerkplek pwp,
+ alg_ruimte r,
+ alg_verdieping v
+ WHERE pwp.prs_perslid_key = p_perslid_key
+ AND wp.prs_werkplek_key = pwp.prs_werkplek_key
+ AND wp.prs_alg_ruimte_key = r.alg_ruimte_key
+ AND COALESCE (wp.prs_werkplek_virtueel, 0) = 0
+ AND r.alg_verdieping_key = v.alg_verdieping_key
+ AND v.alg_gebouw_key = v_gebouw_key;
+
+ IF v_count = 0
+ THEN
+ -- vind de standaardruimte binnen het gevonden gebouw
+ SELECT MAX (alg_ruimte_key)
+ INTO v_ruimte_key
+ FROM alg_ruimte r, alg_verdieping v
+ WHERE v.alg_gebouw_key = v_gebouw_key
+ AND v.alg_verdieping_key = r.alg_verdieping_key
+ AND r.alg_ruimte_verwijder IS NULL
+ AND r.alg_ruimte_nr = p_std_wp_ruimte_nr;
+ ELSE
+ v_ruimte_onveranderd := 1;
+ END IF;
+ END IF;
+ ELSE
+ -- kijk of ik al een werkplek heb op deze locatie
+ SELECT COUNT (wp.prs_werkplek_key)
+ INTO v_count
+ FROM prs_werkplek wp,
+ prs_perslidwerkplek pwp,
+ alg_ruimte r,
+ alg_verdieping v,
+ alg_gebouw g
+ WHERE pwp.prs_perslid_key = p_perslid_key
+ AND wp.prs_werkplek_key = pwp.prs_werkplek_key
+ AND wp.prs_alg_ruimte_key = r.alg_ruimte_key
+ AND COALESCE (wp.prs_werkplek_virtueel, 0) = 0
+ AND r.alg_verdieping_key = v.alg_verdieping_key
+ AND v.alg_gebouw_key = g.alg_gebouw_key
+ AND g.alg_locatie_key = v_locatie_key;
+
+ IF v_count = 0
+ THEN
+ -- vind de standaardruimte binnen de gevonden locatie
+ SELECT MAX (alg_ruimte_key)
+ INTO v_ruimte_key
+ FROM alg_ruimte r, alg_verdieping v, alg_gebouw g
+ WHERE g.alg_locatie_key = v_locatie_key
+ AND g.alg_gebouw_key = v.alg_gebouw_key
+ AND v.alg_verdieping_key = r.alg_verdieping_key
+ AND r.alg_ruimte_verwijder IS NULL
+ AND r.alg_ruimte_nr = p_std_wp_ruimte_nr;
+ ELSE
+ v_ruimte_onveranderd := 1;
+ END IF;
+ END IF;
+
+ -- we hebben nu een ruimte_key voor de nieuwe werkplek
+ IF v_ruimte_onveranderd = 0
+ THEN
+ IF v_ruimte_key IS NOT NULL
+ THEN
+ prs_set_werkplek (p_perslid_key,
+ v_ruimte_key,
+ p_werkplek_volgnr,
+ p_werkplek_omschrijving,
+ p_wp_expliciet,
+ p_errormsg,
+ p_errorhint);
+ ELSE
+ p_errormsg := 'Kan geen standaardruimte met ruimtenr:<' || p_std_wp_ruimte_nr || '> vinden';
+ END IF;
+ END IF;
+ END IF;
+
+ COMMIT;
+ EXCEPTION
+ WHEN OTHERS
+ THEN
+ oracle_err_num := SQLCODE;
+ oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
+ p_errormsg :=
+ ' (ORACLE error number = <'
+ || ORACLE_err_num
+ || '> ORACLE error message = <'
+ || ORACLE_err_mes
+ || '>)';
+ END prs_update_werkplek;
+
+
+ --
+ -- p_wp_mode (0 geen werkplekken 1, impliciet 2 expliciet)
+ --
+ PROCEDURE fac_gen_update_perslid (p_import_key IN NUMBER,
+ p_sleutelkolom IN VARCHAR2,
+ p_wp_mode IN NUMBER,
+ p_std_wp_ruimte_nr IN VARCHAR2)
+ IS
+ c_fielddelimitor VARCHAR2 (1) := ';';
+
+ v_newline VARCHAR2 (1000); -- Input line
+ v_errormsg VARCHAR2 (1000);
+ v_errorhint VARCHAR2 (1000);
+ oracle_err_num NUMBER;
+ oracle_err_mes VARCHAR2 (200);
+ v_aanduiding VARCHAR2 (200);
+
+ v_count NUMBER (10);
+ v_ongeldig NUMBER (1);
+ v_count_update NUMBER (10);
+ v_count_error NUMBER (10);
+ v_count_tot NUMBER (10);
+ v_wpcount_error NUMBER (10);
+ v_wp_expliciet NUMBER (10);
+
+ --
+ v_perslid_key NUMBER (10);
+ v_afdeling_key NUMBER (10);
+ v_srtperslid_key NUMBER (10);
+
+
+ CURSOR cSPERSLID
+ IS
+ SELECT MIN (prs_srtperslid_omschrijving) prs_srtperslid_omschrijving
+ FROM fac_imp_perslid i
+ WHERE NOT EXISTS
+ (SELECT prs_srtperslid_key
+ FROM prs_srtperslid sp
+ WHERE UPPER (sp.prs_srtperslid_omschrijving) =
+ UPPER (i.prs_srtperslid_omschrijving))
+ GROUP BY UPPER (prs_srtperslid_omschrijving);
+
+ recSPersLid cSPersLid%ROWTYPE;
+
+ CURSOR cPERSLID
+ IS
+ SELECT * FROM HAYG_IMP_PERSLID;
+
+ recPersLid cPersLid%ROWTYPE;
+ BEGIN
+
+ v_count_update := 0;
+ v_count_tot := 0;
+ v_count_error := 0;
+ v_wpcount_error := 0;
+
+ FOR recSPersLid IN cSPersLid
+ LOOP
+ BEGIN
+ v_aanduiding := '';
+ v_errormsg := '';
+ v_errorhint := '';
+ v_count_tot := v_count_tot + 1;
+
+ v_aanduiding := recSPersLid.PRS_SRTPERSLID_OMSCHRIJVING;
+
+ v_errorhint := 'Fout bij toevoegen functie';
+
+ INSERT INTO prs_srtperslid (prs_srtperslid_omschrijving)
+ VALUES (recSPersLid.prs_srtperslid_omschrijving);
+
+ COMMIT;
+ EXCEPTION
+ WHEN OTHERS
+ THEN
+ v_count_error := v_count_error + 1;
+ oracle_err_num := SQLCODE;
+ oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
+ v_errormsg :=
+ ' (ORACLE error number = <'
+ || ORACLE_err_num
+ || '> ORACLE error message = <'
+ || ORACLE_err_mes
+ || '>)';
+
+ fac.imp_writelog (p_import_key,
+ 'E',
+ v_aanduiding || v_errormsg,
+ v_errorhint);
+
+ COMMIT; -- tbv logging
+ END;
+ END LOOP;
+
+ fac.imp_writelog (
+ p_import_key,
+ 'S',
+ 'Personeelsfunctie: toegevoegde regels zonder foutmelding: '
+ || TO_CHAR (v_count_tot - v_count_error),
+ '');
+
+ fac.imp_writelog (
+ p_import_key,
+ 'S',
+ 'Personeelsfunctie: toegevoegde regels met foutmelding: '
+ || TO_CHAR (v_count_error),
+ '');
+ COMMIT; -- logging
+
+
+ v_count_update := 0;
+ v_count_tot := 0;
+ v_count_error := 0;
+
+ FOR recPersLid IN cPersLid
+ LOOP
+ BEGIN
+ v_aanduiding := '';
+ v_errormsg := '';
+ v_errorhint := '';
+ v_count_tot := v_count_tot + 1;
+
+ v_aanduiding :=
+ recPersLid.prs_perslid_naam
+ || '|'
+ || recPersLid.prs_perslid_voornaam
+ || '| ';
+ v_errormsg := '';
+
+ v_errorhint := 'Fout bij bepalen functie';
+
+ BEGIN
+ SELECT prs_srtperslid_key
+ INTO v_srtperslid_key
+ FROM prs_srtperslid
+ WHERE prs_srtperslid_verwijder IS NULL
+ AND UPPER (prs_srtperslid_omschrijving) =
+ UPPER (recPersLid.prs_srtperslid_omschrijving);
+ EXCEPTION WHEN NO_DATA_FOUND
+ THEN
+ INSERT INTO prs_srtperslid (prs_srtperslid_omschrijving)
+ VALUES (recPersLid.prs_srtperslid_omschrijving)
+ RETURNING prs_srtperslid_key INTO v_srtperslid_key;
+ END;
+
+
+ v_errorhint :=
+ 'Afdeling niet gevonden ['
+ || recPersLid.prs_afdeling_naam
+ || ']';
+
+ BEGIN
+ SELECT prs_afdeling_key
+ INTO v_afdeling_key
+ FROM prs_afdeling
+ WHERE UPPER (prs_afdeling_naam) =
+ UPPER (recPersLid.prs_afdeling_naam)
+ AND prs_afdeling_verwijder IS NULL;
+ EXCEPTION WHEN NO_DATA_FOUND
+ THEN
+ v_afdeling_key := NULL;
+ END;
+
+ -- p_sleutelkolom
+ -- NR = prs_perslid_nr
+ -- EMAIL = prs_perslid_email
+ -- LOGIN = prs_perslid_oslogin
+ v_errorhint := 'Kijken of de persoon al bestaat';
+
+ SELECT MAX (prs_perslid_key), COUNT ( * )
+ INTO v_perslid_key, v_count
+ FROM prs_perslid
+ WHERE prs_perslid_verwijder IS NULL
+ AND ( (p_sleutelkolom IS NULL
+ AND UPPER (prs_perslid_naam) =
+ UPPER (recPersLid.prs_perslid_naam)
+ AND UPPER (prs_perslid_voornaam) =
+ UPPER (recPersLid.prs_perslid_voornaam))
+ OR (UPPER (p_sleutelkolom) = 'NR'
+ AND UPPER (prs_perslid_nr) =
+ UPPER (recPersLid.prs_perslid_nr)
+ OR UPPER (p_sleutelkolom) = 'EMAIL'
+ AND UPPER (prs_perslid_email) =
+ UPPER (recPersLid.prs_perslid_email)
+ OR UPPER (p_sleutelkolom) = 'LOGIN'
+ AND UPPER (prs_perslid_oslogin) =
+ UPPER (recPersLid.prs_perslid_oslogin)));
+
+ IF (v_count = 0)
+ THEN
+ v_errorhint := 'Fout bij toevoegen persoon';
+
+ INSERT INTO prs_perslid (prs_perslid_module,
+ prs_srtperslid_key,
+ prs_afdeling_key,
+ prs_perslid_naam,
+ prs_perslid_voorletters,
+ prs_perslid_tussenvoegsel,
+ prs_perslid_voornaam,
+ prs_perslid_telefoonnr,
+ prs_perslid_mobiel,
+ prs_perslid_email,
+ prs_perslid_nr,
+ prs_perslid_geslacht,
+ prs_perslid_titel,
+ prs_perslid_dienstverband,
+ prs_perslid_oslogin)
+ VALUES ('PRS',
+ v_srtperslid_key,
+ COALESCE(v_afdeling_key, 27), -- Overig
+ recPersLid.prs_perslid_naam,
+ recPersLid.prs_perslid_voorletters,
+ recPersLid.prs_perslid_tussenvoegsel,
+ recPersLid.prs_perslid_voornaam,
+ recPersLid.prs_perslid_telefoonnr,
+ recPersLid.prs_perslid_mobiel,
+ recPersLid.prs_perslid_email,
+ recPersLid.prs_perslid_nr,
+ recPersLid.prs_perslid_geslacht,
+ recPersLid.prs_perslid_titel,
+ recPersLid.prs_perslid_dienstverband,
+ recPersLid.prs_perslid_oslogin)
+ RETURNING prs_perslid_key
+ INTO v_perslid_key;
+
+ prs.setpassword(v_perslid_key, recPersLid.prs_perslid_wachtwoord);
+
+ COMMIT;
+ v_count_update := v_count_update + 1;
+ ELSIF v_count = 1
+ THEN
+ UPDATE prs_perslid
+ SET prs_srtperslid_key = v_srtperslid_key,
+ prs_afdeling_key = COALESCE(v_afdeling_key, prs_afdeling_key),
+ prs_perslid_naam = recPersLid.prs_perslid_naam,
+ prs_perslid_voorletters =
+ recPersLid.prs_perslid_voorletters,
+ prs_perslid_tussenvoegsel =
+ recPersLid.prs_perslid_tussenvoegsel,
+ prs_perslid_voornaam = recPersLid.prs_perslid_voornaam,
+ prs_perslid_nr = recPersLid.prs_perslid_nr,
+ prs_perslid_dienstverband = recPersLid.prs_perslid_dienstverband,
+ prs_perslid_geslacht = recPersLid.prs_perslid_geslacht,
+ prs_perslid_titel = recPersLid.prs_perslid_titel
+ WHERE prs_perslid_key = v_perslid_key;
+
+ IF recPersLid.prs_perslid_telefoonnr IS NOT NULL
+ THEN
+ UPDATE prs_perslid
+ SET prs_perslid_telefoonnr =
+ recPersLid.prs_perslid_telefoonnr
+ WHERE prs_perslid_key = v_perslid_key;
+ END IF;
+
+ IF recPersLid.prs_perslid_mobiel IS NOT NULL
+ THEN
+ UPDATE prs_perslid
+ SET prs_perslid_mobiel = recPersLid.prs_perslid_mobiel
+ WHERE prs_perslid_key = v_perslid_key;
+ END IF;
+
+ IF recPersLid.prs_perslid_email IS NOT NULL
+ THEN
+ UPDATE prs_perslid
+ SET prs_perslid_email = recPersLid.prs_perslid_email
+ WHERE prs_perslid_key = v_perslid_key;
+ END IF;
+
+ IF recPersLid.prs_perslid_oslogin IS NOT NULL
+ THEN
+ UPDATE prs_perslid
+ SET prs_perslid_oslogin = recPersLid.prs_perslid_oslogin
+ WHERE prs_perslid_key = v_perslid_key;
+ END IF;
+ END IF;
+
+ COMMIT; -- persoon in ieder geval toegevoegd.
+
+ IF p_wp_mode <> 0
+ THEN
+ IF p_wp_mode = 1
+ THEN
+ v_wp_expliciet := 0;
+ ELSE
+ v_wp_expliciet := 1;
+ END IF;
+
+ -- Werkplekken
+ v_aanduiding :=
+ recPersLid.PRS_PERSLID_NAAM
+ || '|'
+ || recPersLid.PRS_PERSLID_VOORNAAM
+ || '|'
+ || recPersLid.alg_locatie_code
+ || '|'
+ || recPersLid.alg_gebouw_code
+ || '|'
+ || recPersLid.alg_verdieping_volgnr
+ || '|'
+ || recPersLid.alg_ruimte_nr
+ || '| ';
+ v_errormsg := '';
+
+ prs_update_werkplek (recPersLid.alg_locatie_code,
+ recPersLid.alg_gebouw_code,
+ recPersLid.alg_verdieping_volgnr,
+ recPersLid.alg_ruimte_nr,
+ recPersLid.prs_werkplek_volgnr,
+ recPersLid.prs_werkplek_omschrijving,
+ v_perslid_key,
+ v_wp_expliciet,
+ p_std_wp_ruimte_nr,
+ v_errormsg,
+ v_errorhint);
+
+ IF v_errormsg IS NOT NULL
+ THEN
+ v_wpcount_error := v_wpcount_error + 1;
+ fac.imp_writelog (p_import_key,
+ 'W',
+ v_aanduiding || v_errormsg,
+ v_errorhint);
+ END IF;
+ END IF;
+ EXCEPTION
+ WHEN OTHERS
+ THEN
+ v_count_error := v_count_error + 1;
+ oracle_err_num := SQLCODE;
+ oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
+ v_errormsg :=
+ ' (ORACLE error number = <'
+ || ORACLE_err_num
+ || '> ORACLE error message = <'
+ || ORACLE_err_mes
+ || '>)';
+
+ fac.imp_writelog (p_import_key,
+ 'E',
+ v_aanduiding || v_errormsg,
+ v_errorhint);
+
+ COMMIT; -- tbv logging
+ END;
+ END LOOP;
+
+ fac.imp_writelog (
+ p_import_key,
+ 'S',
+ 'Persoon: verwerkte regels zonder foutmelding: '
+ || TO_CHAR (v_count_tot - v_count_error),
+ '');
+
+ fac.imp_writelog (
+ p_import_key,
+ 'S',
+ 'Persoon: verwerkte regels met foutmelding: '
+ || TO_CHAR (v_count_error),
+ '');
+
+ fac.imp_writelog (
+ p_import_key,
+ 'S',
+ 'Werkplek: verwerkte regels met foutmelding: '
+ || TO_CHAR (v_wpcount_error),
+ '');
+ END fac_gen_update_perslid;
+
+
+ PROCEDURE prs_del_perslid (p_import_key IN NUMBER,
+ p_perslid_key IN NUMBER,
+ p_wp_expliciet IN NUMBER)
+ IS
+ v_newline VARCHAR2 (1000); -- Input line
+ v_errormsg VARCHAR2 (1000);
+ v_errorhint VARCHAR2 (1000);
+ oracle_err_num NUMBER;
+ oracle_err_mes VARCHAR2 (200);
+
+ v_count NUMBER (10);
+
+ --
+ v_perslid_key NUMBER (10);
+ v_perslid_naam VARCHAR (100);
+ v_perslid_nr VARCHAR (30);
+ BEGIN
+ BEGIN
+ v_errormsg := 'Verwijderen van de persoon is NIET gelukt';
+ v_errorhint :=
+ 'Heeft de persoon met prs_perslid_key '
+ || TO_CHAR (p_perslid_key)
+ || ' historie?';
+
+ SELECT prs_perslid_naam_full, prs_perslid_nr
+ INTO v_perslid_naam, v_perslid_nr
+ FROM prs_perslid p, prs_v_perslid_fullnames pf
+ WHERE p.prs_perslid_key = pf.prs_perslid_key
+ AND p.prs_perslid_key = p_perslid_key;
+
+ -- *** Budgethouderschap ***
+ -- Voor hoeveel kostenplaatsen is deze persoon budgethouder?
+ SELECT COUNT ( * )
+ INTO v_count
+ FROM prs_kostenplaats
+ WHERE prs_perslid_key = p_perslid_key;
+
+ IF (v_count > 0)
+ THEN
+ UPDATE prs_kostenplaats
+ SET prs_perslid_key = NULL
+ WHERE prs_perslid_key = p_perslid_key;
+
+ fac.imp_writelog (
+ p_import_key,
+ 'I',
+ 'Budgethouderschap van te verwijderen persoon ('
+ || v_count
+ || ' stuks) vervallen.',
+ 'Naam/persoonsnr: ' || v_perslid_naam || '/' || v_perslid_nr);
+ END IF;
+
+ -- *** Vervangers ***
+ -- koppelingen met vervangers dienen ook verwijderd te worden
+ SELECT COUNT ( * )
+ INTO v_count
+ FROM prs_collega
+ WHERE prs_perslid_key = p_perslid_key
+ OR prs_perslid_key_alt = p_perslid_key;
+
+ IF (v_count > 0)
+ THEN
+ DELETE FROM prs_collega
+ WHERE prs_perslid_key = p_perslid_key
+ OR prs_perslid_key_alt = p_perslid_key;
+
+ fac.imp_writelog (
+ p_import_key,
+ 'I',
+ 'Te verwijderen persoon heeft vervanger(s). Koppeling(en) verwijderd.',
+ 'Naam/persoonsnr: ' || v_perslid_naam || '/' || v_perslid_nr);
+ END IF;
+
+ -- *** werkplekken ***
+ -- per 5.3.2 worden impliciete werkplekken via trigger verwijderd!
+
+ DELETE prs_perslidwerkplek
+ WHERE prs_perslid_key = p_perslid_key;
+
+ -- *** Verplichtingen ***
+ SELECT COUNT ( * )
+ INTO v_count
+ FROM prs_v_verplichting_refcheck vp
+ WHERE vp.prs_perslid_key = p_perslid_key;
+
+ IF v_count = 0
+ THEN
+ -- Persoon heeft geen enkele (actuele of historische) verplichting
+ v_errorhint :=
+ 'Verwijderen van persoon met key ' || TO_CHAR (v_perslid_key);
+
+ DELETE FROM prs_perslid
+ WHERE prs_perslid_key = p_perslid_key;
+
+ fac.imp_writelog (
+ p_import_key,
+ 'I',
+ 'Persoon verwijderd.',
+ 'Achternaam/persoonsnr: '
+ || v_perslid_naam
+ || '/'
+ || v_perslid_nr);
+ ELSE
+ -- Controleer of er ACTUELE verplichtingen zijn
+ SELECT COUNT ( * )
+ INTO v_count
+ FROM prs_v_verplichting_keys vp
+ WHERE vp.prs_perslid_key = p_perslid_key;
+
+ IF v_count > 0
+ THEN
+ UPDATE prs_perslid
+ SET prs_perslid_naam =
+ SUBSTR ('INACTIEF:' || prs_perslid_naam, 1, 60),
+ prs_perslid_oslogin = NULL,
+ prs_perslid_oslogin2 = NULL
+ WHERE prs_perslid_key = p_perslid_key
+ AND prs_perslid_naam NOT LIKE 'INACTIEF:%';
+
+ fac.imp_writelog (
+ p_import_key,
+ 'I',
+ 'Persoon als INACTIEF gemarkeerd of was al INACTIEF gemarkeerd.',
+ 'Achternaam/persoonsnr: '
+ || v_perslid_naam
+ || '/'
+ || v_perslid_nr);
+ ELSE
+ BEGIN
+ UPDATE prs_perslid
+ SET prs_perslid_verwijder = SYSDATE
+ WHERE prs_perslid_key = p_perslid_key;
+
+ fac.imp_writelog (
+ p_import_key,
+ 'I',
+ 'Persoon geïnactiveerd.',
+ 'Achternaam/persoonsnr: '
+ || v_perslid_naam
+ || '/'
+ || v_perslid_nr);
+ EXCEPTION
+ WHEN OTHERS
+ THEN
+ -- Kennelijk heeft de persoon toch ernstige verplichtingen
+ v_errorhint :=
+ 'Persoon heeft nog (max. '
+ || TO_CHAR (v_count)
+ || ') verplichtingen. Naam/persoonsnr: '
+ || v_perslid_naam
+ || '/'
+ || v_perslid_nr;
+ fac.imp_writelog (p_import_key,
+ 'I',
+ 'Inactiveren persoon is niet gelukt',
+ v_errorhint);
+ END;
+ END IF;
+ END IF;
+ EXCEPTION
+ WHEN OTHERS
+ THEN
+ oracle_err_num := SQLCODE;
+ oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
+ v_errormsg :=
+ '(ORACLE error '
+ || oracle_err_num
+ || '/'
+ || oracle_err_mes
+ || ')';
+ fac.imp_writelog (p_import_key,
+ 'E',
+ v_errormsg,
+ v_errorhint);
+ END;
+ END prs_del_perslid;
+
+END;
+/
\ No newline at end of file
diff --git a/Hout/hout.sql b/Hout/hout.sql
index 4c48cdb11..f05a1acec 100644
--- a/Hout/hout.sql
+++ b/Hout/hout.sql
@@ -2949,7 +2949,7 @@ AS
SELECT opdr.ins_discipline_omschrijving vakgroep,
opdr.mld_stdmelding_omschrijving melding,
opdr.mld_typeopdr_omschrijving opdrachttype,
- opdr.mld_melding_key projectnummer,
+ TO_CHAR (opdr.mld_melding_key) projectnummer,
opdr.mld_melding_key || '/' || opdr.mld_opdr_bedrijfopdr_volgnr
opdrachtnr,
DECODE (
@@ -2968,12 +2968,12 @@ AS
html_opdrachtnr,
opdr.mld_opdr_omschrijving opdr_oms,
DECODE (TO_CHAR (ou.mld_opdr_uren_datum, 'D'),
- 1, 'Ma',
- 2, 'Di',
- 3, 'Wo',
- 4, 'Do',
- 5, 'Vr',
- 6, 'Za',
+ 2, 'Ma',
+ 3, 'Di',
+ 4, 'Wo',
+ 5, 'Do',
+ 6, 'Vr',
+ 7, 'Za',
'Zo')
dag,
TO_CHAR (ou.mld_opdr_uren_datum, 'dd-mm-yyyy') datum,
@@ -3059,16 +3059,17 @@ AS
ON opdr.mld_opdr_key = k3.mld_opdr_key
WHERE ou.mld_opdr_uren_besteed IS NOT NULL;
-/* Formatted on 28-10-2013 9:24:42 (QP5 v5.115.810.9015) */
+/* Formatted on 2-1-2014 14:22:55 (QP5 v5.115.810.9015) */
CREATE OR REPLACE VIEW hout_v_rap_wk_uren_psc
(
- hide_f_vb,
+ hide_f_bv,
wknr,
maandag,
fclt_d_zondag,
begindatum,
einddatum,
uren_vast,
+ loon_vast,
uurtarief,
kmtarief,
kmperwk,
@@ -3079,6 +3080,7 @@ CREATE OR REPLACE VIEW hout_v_rap_wk_uren_psc
fclt_f_medewerker,
--mdw_type,
uren_besteed,
+ loon_besteed,
ma_uren,
di_uren,
wo_uren,
@@ -3088,16 +3090,20 @@ CREATE OR REPLACE VIEW hout_v_rap_wk_uren_psc
zo_uren
)
AS
- SELECT 'B' vb,
+ SELECT 'B' bv, -- Besteed
TO_CHAR (wk.dag, 'IYYY-IW') wknr,
TO_CHAR (TRUNC (wk.dag, 'IW'), 'dd-mm-yyyy') maandag,
TO_CHAR (TRUNC (wk.dag, 'IW') + 6, 'dd-mm-yyyy') fclt_d_zondag, -- Ref.datum bij van/tot-selectie!
ou.mld_opdr_datumbegin,
ou.mld_opdr_einddatum,
- ou.uren_vast,
- NULL,
- NULL,
- NULL,
+ NULL uren_vast, --ou.uren_vast,
+ NULL loon_vast,
+ --NULL uurtarief, --k1.uurtarief,
+ --NULL kmtarief, --k2.kmtarief,
+ --NULL kmperwk, --k3.kmperwk,
+ COALESCE (k1.uurtarief, '0') uurtarief,
+ COALESCE (k2.kmtarief, '0') kmtarief,
+ COALESCE (k3.kmperwk, '0') kmperwk,
ou.mld_typeopdr_omschrijving opdrachttype,
TO_CHAR (ou.mld_melding_key) projectnummer,
ou.mld_opdr_omschrijving opdr_oms,
@@ -3121,6 +3127,15 @@ AS
+ COALESCE (ou.za, 0)
+ COALESCE (ou.zo, 0)
uren_besteed,
+ ( COALESCE (ou.ma, 0)
+ + COALESCE (ou.di, 0)
+ + COALESCE (ou.wo, 0)
+ + COALESCE (ou.do, 0)
+ + COALESCE (ou.vr, 0)
+ + COALESCE (ou.za, 0)
+ + COALESCE (ou.zo, 0))
+ * COALESCE (fac.safe_to_number (k1.uurtarief), 0)
+ loon_besteed,
COALESCE (ou.ma, 0),
COALESCE (ou.di, 0),
COALESCE (ou.wo, 0),
@@ -3128,173 +3143,220 @@ AS
COALESCE (ou.vr, 0),
COALESCE (ou.za, 0),
COALESCE (ou.zo, 0)
- FROM ( SELECT TRUNC (ADD_MONTHS (SYSDATE, -12), 'YYYY')
- + (ROWNUM * 7)
- dag
- FROM DUAL
- CONNECT BY LEVEL <=
- (CEIL( (SYSDATE
- - TRUNC (
- ADD_MONTHS (SYSDATE, -12),
- 'YYYY'
- ))
- / 7)
- + 2)) wk
- LEFT JOIN -- Tbv. te berekenen bestede uren per dag!
- (SELECT ou.wk,
- o.mld_melding_key,
- o.mld_opdr_key,
- o.mld_opdr_bedrijfopdr_volgnr,
- o.mld_opdr_datumbegin,
- o.mld_opdr_einddatum,
- o.mld_opdr_uren uren_vast,
- ot.mld_typeopdr_omschrijving,
- DECODE (sm.mld_ins_discipline_key,
- 1841, -- Afwezigheidsregistratie
- '*Verlof/ziek',
- o.mld_opdr_omschrijving)
- mld_opdr_omschrijving,
- --sm.mld_stdmelding_omschrijving,
- l.alg_locatie_omschrijving,
- pf.prs_perslid_key,
- pf.prs_perslid_naam_full,
- DECODE (sm.mld_ins_discipline_key,
- 1841, -- Afwezigheidsregistratie
- -1 * ou.ma, -- -!
- ou.ma) -- +!
- ma,
- DECODE (sm.mld_ins_discipline_key,
- 1841, -- Afwezigheidsregistratie
- -1 * ou.di, -- -!
- ou.di) -- +!
- di,
- DECODE (sm.mld_ins_discipline_key,
- 1841, -- Afwezigheidsregistratie
- -1 * ou.wo, -- -!
- ou.wo) -- +!
- wo,
- DECODE (sm.mld_ins_discipline_key,
- 1841, -- Afwezigheidsregistratie
- -1 * ou.do, -- -!
- ou.do) -- +!
- do,
- DECODE (sm.mld_ins_discipline_key,
- 1841, -- Afwezigheidsregistratie
- -1 * ou.vr, -- -!
- ou.vr) -- +!
- vr,
- DECODE (sm.mld_ins_discipline_key,
- 1841, -- Afwezigheidsregistratie
- -1 * ou.za, -- -!
- ou.za) -- +!
- za,
- DECODE (sm.mld_ins_discipline_key,
- 1841, -- Afwezigheidsregistratie
- -1 * ou.zo, -- -!
- ou.zo) -- +!
- zo
- FROM ( SELECT TO_CHAR (mld_opdr_uren_datum,
- 'IYYY-IW')
- wk,
- mld_opdr_key,
- SUM(DECODE (
- TO_CHAR (mld_opdr_uren_datum,
- 'D'),
- 1,
- mld_opdr_uren_besteed,
- 0
- ))
- ma,
- SUM(DECODE (
- TO_CHAR (mld_opdr_uren_datum,
- 'D'),
- 2,
- mld_opdr_uren_besteed,
- 0
- ))
- di,
- SUM(DECODE (
- TO_CHAR (mld_opdr_uren_datum,
- 'D'),
- 3,
- mld_opdr_uren_besteed,
- 0
- ))
- wo,
- SUM(DECODE (
- TO_CHAR (mld_opdr_uren_datum,
- 'D'),
- 4,
- mld_opdr_uren_besteed,
- 0
- ))
- do,
- SUM(DECODE (
- TO_CHAR (mld_opdr_uren_datum,
- 'D'),
- 5,
- mld_opdr_uren_besteed,
- 0
- ))
- vr,
- SUM(DECODE (
- TO_CHAR (mld_opdr_uren_datum,
- 'D'),
- 6,
- mld_opdr_uren_besteed,
- 0
- ))
- za,
- SUM(DECODE (
- TO_CHAR (mld_opdr_uren_datum,
- 'D'),
- 7,
- mld_opdr_uren_besteed,
- 0
- ))
- zo
- FROM mld_opdr_uren
- GROUP BY TO_CHAR (mld_opdr_uren_datum,
- 'IYYY-IW'),
- mld_opdr_key) ou,
- mld_opdr o,
- mld_typeopdr ot,
- mld_melding m,
- mld_stdmelding sm,
- mld_discipline md,
- alg_v_aanweziglocatie l,
- prs_v_perslid_fullnames pf
- WHERE ou.mld_opdr_key = o.mld_opdr_key
- AND o.mld_statusopdr_key != 1 -- Afgewezen
- AND o.mld_typeopdr_key = ot.mld_typeopdr_key
- AND ot.mld_typeopdr_matchtype = 3 -- Wekelijks geregistreerde uren
- AND o.mld_melding_key = m.mld_melding_key
- AND m.mld_stdmelding_key = sm.mld_stdmelding_key
- AND sm.mld_ins_discipline_key =
- md.ins_discipline_key
- AND md.ins_srtdiscipline_key = 181 -- PSC urenregistratie
- AND m.mld_alg_locatie_key = l.alg_locatie_key(+)
- AND o.mld_uitvoerende_keys = pf.prs_perslid_key)
- ou
- ON TO_CHAR (wk.dag, 'IYYY-IW') = ou.wk
+ FROM ( SELECT TRUNC (ADD_MONTHS (SYSDATE, -12),
+ 'YYYY')
+ + (ROWNUM * 7)
+ dag
+ FROM DUAL
+ CONNECT BY LEVEL <=
+ (CEIL( (SYSDATE
+ - TRUNC (
+ ADD_MONTHS (SYSDATE,
+ -12),
+ 'YYYY'
+ ))
+ / 7)
+ + 2)) wk
+ LEFT JOIN -- Tbv. te berekenen bestede uren per dag!
+ (SELECT ou.wk,
+ o.mld_melding_key,
+ o.mld_opdr_key,
+ o.mld_opdr_bedrijfopdr_volgnr,
+ o.mld_opdr_datumbegin,
+ o.mld_opdr_einddatum,
+ o.mld_opdr_uren uren_vast,
+ ot.mld_typeopdr_omschrijving,
+ DECODE (sm.mld_ins_discipline_key,
+ 1841, -- Afwezigheidsregistratie
+ '*Verlof/ziek',
+ o.mld_opdr_omschrijving)
+ mld_opdr_omschrijving,
+ --sm.mld_stdmelding_omschrijving,
+ l.alg_locatie_omschrijving,
+ pf.prs_perslid_key,
+ pf.prs_perslid_naam_full,
+ DECODE (sm.mld_ins_discipline_key,
+ 1841, -- Afwezigheidsregistratie
+ -1 * ou.ma, -- -!
+ ou.ma) -- +!
+ ma,
+ DECODE (sm.mld_ins_discipline_key,
+ 1841, -- Afwezigheidsregistratie
+ -1 * ou.di, -- -!
+ ou.di) -- +!
+ di,
+ DECODE (sm.mld_ins_discipline_key,
+ 1841, -- Afwezigheidsregistratie
+ -1 * ou.wo, -- -!
+ ou.wo) -- +!
+ wo,
+ DECODE (sm.mld_ins_discipline_key,
+ 1841, -- Afwezigheidsregistratie
+ -1 * ou.do, -- -!
+ ou.do) -- +!
+ do,
+ DECODE (sm.mld_ins_discipline_key,
+ 1841, -- Afwezigheidsregistratie
+ -1 * ou.vr, -- -!
+ ou.vr) -- +!
+ vr,
+ DECODE (sm.mld_ins_discipline_key,
+ 1841, -- Afwezigheidsregistratie
+ -1 * ou.za, -- -!
+ ou.za) -- +!
+ za,
+ DECODE (sm.mld_ins_discipline_key,
+ 1841, -- Afwezigheidsregistratie
+ -1 * ou.zo, -- -!
+ ou.zo) -- +!
+ zo
+ FROM ( SELECT TO_CHAR (mld_opdr_uren_datum,
+ 'IYYY-IW')
+ wk,
+ mld_opdr_key,
+ SUM(DECODE (
+ TO_CHAR (
+ mld_opdr_uren_datum,
+ 'D'
+ ),
+ 2,
+ mld_opdr_uren_besteed,
+ 0
+ ))
+ ma,
+ SUM(DECODE (
+ TO_CHAR (
+ mld_opdr_uren_datum,
+ 'D'
+ ),
+ 3,
+ mld_opdr_uren_besteed,
+ 0
+ ))
+ di,
+ SUM(DECODE (
+ TO_CHAR (
+ mld_opdr_uren_datum,
+ 'D'
+ ),
+ 4,
+ mld_opdr_uren_besteed,
+ 0
+ ))
+ wo,
+ SUM(DECODE (
+ TO_CHAR (
+ mld_opdr_uren_datum,
+ 'D'
+ ),
+ 5,
+ mld_opdr_uren_besteed,
+ 0
+ ))
+ do,
+ SUM(DECODE (
+ TO_CHAR (
+ mld_opdr_uren_datum,
+ 'D'
+ ),
+ 6,
+ mld_opdr_uren_besteed,
+ 0
+ ))
+ vr,
+ SUM(DECODE (
+ TO_CHAR (
+ mld_opdr_uren_datum,
+ 'D'
+ ),
+ 7,
+ mld_opdr_uren_besteed,
+ 0
+ ))
+ za,
+ SUM(DECODE (
+ TO_CHAR (
+ mld_opdr_uren_datum,
+ 'D'
+ ),
+ 1,
+ mld_opdr_uren_besteed,
+ 0
+ ))
+ zo
+ FROM mld_opdr_uren
+ GROUP BY TO_CHAR (
+ mld_opdr_uren_datum,
+ 'IYYY-IW'
+ ),
+ mld_opdr_key) ou,
+ mld_opdr o,
+ mld_typeopdr ot,
+ mld_melding m,
+ mld_stdmelding sm,
+ mld_discipline md,
+ alg_v_aanweziglocatie l,
+ prs_v_perslid_fullnames pf
+ WHERE ou.mld_opdr_key = o.mld_opdr_key
+ AND o.mld_statusopdr_key != 1 -- Afgewezen
+ AND o.mld_typeopdr_key =
+ ot.mld_typeopdr_key
+ AND ot.mld_typeopdr_matchtype = 3 -- Wekelijks geregistreerde uren
+ AND o.mld_melding_key =
+ m.mld_melding_key
+ AND m.mld_stdmelding_key =
+ sm.mld_stdmelding_key
+ AND sm.mld_ins_discipline_key =
+ md.ins_discipline_key
+ AND md.ins_srtdiscipline_key = 181 -- PSC urenregistratie
+ AND m.mld_alg_locatie_key =
+ l.alg_locatie_key(+)
+ AND o.mld_uitvoerende_keys =
+ pf.prs_perslid_key) ou
+ ON TO_CHAR (wk.dag, 'IYYY-IW') = ou.wk
+ LEFT JOIN
+ ( SELECT cp.prs_perslid_key,
+ MIN (b.prs_bedrijf_naam) prs_bedrijf_naam
+ FROM prs_contactpersoon cp, prs_bedrijf b
+ WHERE cp.prs_bedrijf_key = b.prs_bedrijf_key
+ GROUP BY cp.prs_perslid_key) b
+ ON ou.prs_perslid_key = b.prs_perslid_key
+ LEFT JOIN
+ (SELECT ko.mld_opdr_key,
+ ko.mld_kenmerkopdr_waarde uurtarief
+ FROM mld_v_aanwezigkenmerkopdr ko, mld_kenmerk k
+ WHERE ko.mld_kenmerk_key = k.mld_kenmerk_key
+ AND k.mld_srtkenmerk_key = 1161 -- Uurtarief
+ AND k.mld_kenmerk_niveau = 'O') k1 -- Uurtarief
+ ON ou.mld_opdr_key = k1.mld_opdr_key
+ LEFT JOIN
+ (SELECT ko.mld_opdr_key,
+ ko.mld_kenmerkopdr_waarde kmtarief
+ FROM mld_v_aanwezigkenmerkopdr ko, mld_kenmerk k
+ WHERE ko.mld_kenmerk_key = k.mld_kenmerk_key
+ AND k.mld_srtkenmerk_key = 1181 -- Km-tarief
+ AND k.mld_kenmerk_niveau = 'O') k2 -- Km-tarief
+ ON ou.mld_opdr_key = k2.mld_opdr_key
LEFT JOIN
- ( SELECT cp.prs_perslid_key,
- MIN (b.prs_bedrijf_naam) prs_bedrijf_naam
- FROM prs_contactpersoon cp, prs_bedrijf b
- WHERE cp.prs_bedrijf_key = b.prs_bedrijf_key
- GROUP BY cp.prs_perslid_key) b
- ON ou.prs_perslid_key = b.prs_perslid_key
+ (SELECT ko.mld_opdr_key, ko.mld_kenmerkopdr_waarde kmperwk
+ FROM mld_v_aanwezigkenmerkopdr ko, mld_kenmerk k
+ WHERE ko.mld_kenmerk_key = k.mld_kenmerk_key
+ AND k.mld_srtkenmerk_key = 1182 -- Km per wk
+ AND k.mld_kenmerk_niveau = 'O') k3 -- Km per wk
+ ON ou.mld_opdr_key = k3.mld_opdr_key
UNION ALL
- SELECT 'V' vb,
+ SELECT 'V' bv, -- Vast
TO_CHAR (o.dag, 'IYYY-IW') wknr,
TO_CHAR (TRUNC (o.dag, 'IW'), 'dd-mm-yyyy') maandag,
TO_CHAR (TRUNC (o.dag, 'IW') + 6, 'dd-mm-yyyy') fclt_d_zondag, -- Ref.datum bij van/tot-selectie!
o.mld_opdr_datumbegin,
o.mld_opdr_einddatum,
o.uren_vast,
- k1.uurtarief,
- k2.kmtarief,
- k3.kmperwk,
+ o.uren_vast * COALESCE (fac.safe_to_number (k1.uurtarief), 0)
+ loon_vast,
+ COALESCE (k1.uurtarief, '0') uurtarief,
+ COALESCE (k2.kmtarief, '0') kmtarief,
+ COALESCE (k3.kmperwk, '0') kmperwk,
o.mld_typeopdr_omschrijving opdrachttype,
TO_CHAR (o.mld_melding_key) projectnummer,
o.mld_opdr_omschrijving opdr_oms,
@@ -3317,6 +3379,7 @@ AS
0,
0,
0,
+ 0,
0
FROM (SELECT wk.dag,
o.mld_melding_key,
@@ -3327,8 +3390,8 @@ AS
o.mld_opdr_uren uren_vast,
ot.mld_typeopdr_omschrijving,
o.mld_opdr_omschrijving,
- l.alg_locatie_omschrijving,
--sm.mld_stdmelding_omschrijving,
+ l.alg_locatie_omschrijving,
pf.prs_perslid_key,
pf.prs_perslid_naam_full
FROM mld_opdr o,
@@ -3659,7 +3722,85 @@ AS
AND srt.ins_srtdiscipline_key = 181 -- vakgroeptype project support centre
ORDER BY 1, 2;
-BEGIN fac.registercustversion('HOUT', 29); END;
+/* Formatted on 10-2-2014 14:48:12 (QP5 v5.136.908.31019) */
+/*
+CREATE OR REPLACE VIEW HOUT_V_CNT_EXTRA_NOTI
+(
+ perslid_key,
+ perslid_naam
+)
+AS
+ SELECT pf.prs_perslid_key, pf.prs_perslid_naam_full
+ FROM fac_gebruikersgroep gg, prs_v_perslid_fullnames pf
+ WHERE gg.fac_groep_key IN (921, 941, 961, 962, 981, 982) -- CNT-groepen
+ AND gg.prs_perslid_key = pf.prs_perslid_key;
+*/
+
+/* Formatted on 10-2-2014 14:48:12 (QP5 v5.136.908.31019) */
+CREATE OR REPLACE VIEW HOUT_V_NOTI_CNTREMINDER
+(
+ CODE,
+ SENDER,
+ RECEIVER,
+ TEXT,
+ KEY,
+ PAR1,
+ PAR2,
+ XKEY
+)
+AS
+ SELECT '',
+ '',
+ c.prs_perslid_key_beh,
+ 'Rappèl: Contract '
+ || c.cnt_contract_nummer_intern
+ || ' ('
+ || c.cnt_contract_omschrijving
+ || ' '
+ || b.prs_bedrijf_naam
+ || ')'
+ || ' moet uiterlijk per '
+ || TO_CHAR (cnt.cnt_getopzegdatum (c.cnt_contract_key),
+ 'DD-MM-YYYY')
+ || ' worden verlengd of opgezegd.',
+ 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
+ WHERE c.cnt_prs_bedrijf_key = b.prs_bedrijf_key
+ AND c.cnt_contract_verwijder IS NULL
+ AND c.cnt_contract_status = 0
+ AND (SYSDATE BETWEEN cnt.cnt_getrappeldatum (c.cnt_contract_key)
+ AND cnt.cnt_getopzegdatum (c.cnt_contract_key))
+ UNION
+ SELECT '',
+ '',
+ c.prs_perslid_key_eig,
+ 'Rappèl: Contract '
+ || c.cnt_contract_nummer_intern
+ || ' ('
+ || c.cnt_contract_omschrijving
+ || ' '
+ || b.prs_bedrijf_naam
+ || ')'
+ || ' moet uiterlijk per '
+ || TO_CHAR (cnt.cnt_getopzegdatum (c.cnt_contract_key),
+ 'DD-MM-YYYY')
+ || ' worden verlengd of opgezegd.',
+ 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
+ WHERE c.cnt_prs_bedrijf_key = b.prs_bedrijf_key
+ AND c.cnt_contract_verwijder IS NULL
+ AND c.cnt_contract_status = 0
+ AND c.prs_perslid_key_eig IS NOT NULL
+ AND (SYSDATE BETWEEN cnt.cnt_getrappeldatum (c.cnt_contract_key)
+ AND cnt.cnt_getopzegdatum (c.cnt_contract_key));
+
+BEGIN fac.registercustversion('HOUT', 31); END;
/
BEGIN adm.systrackscriptId('$Id$', 0); END;
/
diff --git a/IVET/Once/IVET19.sql b/IVET/Once/IVET19.sql
new file mode 100644
index 000000000..b97b5360b
--- /dev/null
+++ b/IVET/Once/IVET19.sql
@@ -0,0 +1,28 @@
+-- Customer specific once-script IVET19.
+
+SET ECHO ON
+SPOOL xIVET19.lst
+
+-- IVET#28273 (noti job tbv transport buiten EU)
+INSERT INTO fac_notificatie_job (fac_notificatie_job_view,
+ fac_notificatie_job_oms,
+ fac_notificatie_job_mode,
+ fac_notificatie_job_interval,
+ fac_notificatie_job_nextrun,
+ fac_notificatie_job_flags)
+ VALUES ('IVET_V_NOTI_MLD_TRANS_BUITENEU',
+ 'MLD noti tbv Trans buiten EU naar DistributionCoordination',
+ 3,
+ 1,
+ SYSDATE,
+ 0);
+
+COMMIT;
+
+BEGIN adm.systrackscriptId('$Id: '); END;
+/
+SPOOL OFF
+
+@ivet.sql
+
+SET ECHO OFF
\ No newline at end of file
diff --git a/IVET/ivet.sql b/IVET/ivet.sql
index fe8c91525..c7c8c726b 100644
--- a/IVET/ivet.sql
+++ b/IVET/ivet.sql
@@ -1768,239 +1768,298 @@ BEGIN
END ivet_update_prs;
/
-/* Formatted on 5-3-2010 13:48:12 (QP5 v5.115.810.9015) */
-CREATE OR REPLACE VIEW ivet_v_rap_zalenzetters
+/* Formatted on 27-2-2014 12:12:52 (QP5 v5.136.908.31019) */
+CREATE OR REPLACE VIEW IVET_V_RAP_ZALENZETTERS
(
- hide_f_sort_datum_tijd,
- hide_f_sort_ruimte,
- hide_f_sort_res_nr,
- hide_f_sort_categorie,
- fclt_f_datum,
- res_nr,
- begin_eind,
- tijd,
- ruimte,
- deelnemers,
- activiteit_voorzieningen
+ HIDE_F_SORT_DATUM_TIJD,
+ HIDE_F_SORT_RUIMTE,
+ HIDE_F_SORT_RES_NR,
+ HIDE_F_SORT_CATEGORIE,
+ FCLT_F_DATUM,
+ RES_NR,
+ BEGIN_EIND,
+ TIJD,
+ TIJD_VC,
+ RUIMTE,
+ DEELNEMERS,
+ ACTIVITEIT_VOORZIENINGEN,
+ BUDGETNUMMER,
+ OPMERKING
)
AS
- SELECT TO_CHAR (res_geg.res_reservering_van, 'YYYY-MM-DD HH24:MI')
- sort_datum_tijd,
- DECODE (
- rrr.alg_ruimte_key,
- NULL,
- (SELECT rr.res_ruimte_nr
- FROM res_ruimte_opstelling rro, res_ruimte rr
- WHERE rro.res_ruimte_opstel_key =
- rrr.res_ruimte_opstel_key
- AND rro.res_ruimte_key = rr.res_ruimte_key),
- (SELECT rg.alg_ruimte_aanduiding
- FROM alg_v_ruimte_gegevens rg
- WHERE rg.alg_ruimte_key = rrr.alg_ruimte_key)
- )
- sort_ruimte,
- rrr.res_reservering_key || '/' || rrr.res_rsv_ruimte_volgnr
- sort_resnr,
- res_geg.res_type sort_categorie,
- TO_CHAR (res_geg.res_reservering_van, 'DD-MM-YYYY') datum,
- (CASE
- WHEN res_geg.res_type = '1R' OR res_geg.wissel = 1
- THEN
- rrr.res_reservering_key
- || '/'
- || rrr.res_rsv_ruimte_volgnr
- ELSE
- ''
- END)
- resnr,
- (CASE
- WHEN res_geg.res_type = '1R'
- AND res_geg.res_reservering_tot IS NOT NULL
- THEN
- 'Begin'
- ELSE
- DECODE (res_geg.res_reservering_tot,
- NULL, 'Eind',
- DECODE (res_geg.wissel, 1, 'Wissel', ''))
- END)
- begin_eind,
- (CASE
- WHEN res_geg.res_type = '1R' OR res_geg.wissel = 1
- THEN
- TO_CHAR (res_geg.res_reservering_van, 'HH24:MI')
- ELSE
- ''
- END)
- van,
- (CASE
- WHEN res_geg.res_type = '1R' OR res_geg.wissel = 1
- THEN
- DECODE (
- rrr.alg_ruimte_key,
- NULL,
- (SELECT rr.res_ruimte_nr
- FROM res_ruimte_opstelling rro, res_ruimte rr
- WHERE rro.res_ruimte_opstel_key =
- rrr.res_ruimte_opstel_key
- AND rro.res_ruimte_key = rr.res_ruimte_key),
- (SELECT rg.alg_ruimte_aanduiding
- FROM alg_v_ruimte_gegevens rg
- WHERE rg.alg_ruimte_key = rrr.alg_ruimte_key)
- )
- ELSE
- ''
- END)
- ruimte,
- (CASE
- WHEN res_geg.res_type = '1R'
- AND res_geg.res_reservering_tot IS NOT NULL
- THEN
- TO_CHAR (res_geg.deelnemers)
- ELSE
- ''
- END)
- deelnemers,
- (CASE
- WHEN res_geg.aantal IS NOT NULL
- THEN
- TO_CHAR (res_geg.aantal)
- || ' x '
- || res_geg.res_voorziening
- ELSE
- DECODE (res_geg.res_reservering_tot,
- NULL, TO_CHAR (res_geg.res_next_van, 'HH24:MI'),
- res_geg.res_voorziening)
- END)
- voorzieningen
- FROM (SELECT '1R' res_type,
- rrr.res_rsv_ruimte_key,
- rrr.res_rsv_ruimte_bezoekers deelnemers,
- rrr.res_rsv_ruimte_van res_reservering_van,
- rrr.res_rsv_ruimte_tot res_reservering_tot,
- TO_NUMBER (NULL) aantal,
- ra.res_activiteit_omschrijving res_voorziening,
- NULL artikelnummer,
- NULL kostenplaats,
- NULL res_next_van,
- 0 wissel,
- (SELECT COUNT ( * )
- FROM res_v_aanwezigrsv_deel rrd,
- res_v_aanwezigrsv_artikel rra
- WHERE rrd.res_rsv_ruimte_key =
- rrr.res_rsv_ruimte_key
- OR rra.res_rsv_ruimte_key =
- rrr.res_rsv_ruimte_key)
- service
- FROM res_v_aanwezigrsv_ruimte rrr, res_activiteit ra
- WHERE rrr.res_rsv_ruimte_dirtlevel = 0
- AND rrr.res_activiteit_key = ra.res_activiteit_key
- AND rrr.res_rsv_ruimte_van BETWEEN TRUNC (SYSDATE)
- AND TRUNC (SYSDATE + 5)
- UNION ALL
- SELECT '1R' res_type,
- rrr.res_rsv_ruimte_key,
- NULL deelnemers,
- rrr.res_rsv_ruimte_tot res_reservering_van,
- NULL res_reservering_tot,
- TO_NUMBER (NULL) aantal,
- NULL res_voorziening,
- NULL artikelnummer,
- NULL kostenplaats,
- (SELECT MIN (x.res_rsv_ruimte_van)
- FROM res_v_aanwezigrsv_ruimte x,
- res_ruimte_opstelling y
- WHERE x.res_ruimte_opstel_key =
- y.res_ruimte_opstel_key
- AND y.res_ruimte_key = rr.res_ruimte_key
- AND TO_CHAR (x.res_rsv_ruimte_van,
- 'yyyymmdd') =
- TO_CHAR (rrr.res_rsv_ruimte_tot,
- 'yyyymmdd')
- AND x.res_rsv_ruimte_van >
- rrr.res_rsv_ruimte_tot)
- res_next_van,
- 0 wissel,
- 1 service
- FROM res_v_aanwezigrsv_ruimte rrr,
- res_ruimte_opstelling rro,
- res_ruimte rr
- WHERE rrr.res_rsv_ruimte_dirtlevel = 0
- AND rrr.res_ruimte_opstel_key =
- rro.res_ruimte_opstel_key
- AND rro.res_ruimte_key = rr.res_ruimte_key
- AND rrr.res_rsv_ruimte_van BETWEEN TRUNC (SYSDATE)
- AND TRUNC (SYSDATE + 5)
- UNION ALL
- SELECT '2V' res_type,
- rrr.res_rsv_ruimte_key,
- NULL deelnemers,
- rrd.res_rsv_deel_van res_reservering_van,
- rrd.res_rsv_deel_tot res_reservering_tot,
- TO_NUMBER (NULL) aantal,
- ID.ins_deel_omschrijving
- || ' ('
- || COALESCE (rd.res_deel_eenheid, '')
- || ')'
- res_voorziening,
- NULL artikelnummer,
- NULL kostenplaats,
- NULL res_next_van,
- DECODE (rrd.res_rsv_deel_van,
- rrr.res_rsv_ruimte_van, 0,
- 1)
- wissel,
- 1 service
- FROM res_v_aanwezigrsv_deel rrd,
- res_v_aanwezigrsv_ruimte rrr,
- res_deel rd,
- ins_deel ID
- WHERE rrd.res_rsv_deel_dirtlevel = 0
- AND rrd.res_rsv_ruimte_key = rrr.res_rsv_ruimte_key
- AND rrr.alg_ruimte_key IS NULL
- AND rrd.res_deel_key = rd.res_deel_key
- AND rd.res_ins_deel_key = ID.ins_deel_key
- AND rrd.res_rsv_deel_van BETWEEN TRUNC (SYSDATE)
- AND TRUNC (SYSDATE + 5)
- UNION ALL
- SELECT '3C' res_type,
- rrr.res_rsv_ruimte_key,
- NULL deelnemers,
- rra.res_rsv_artikel_levering res_reservering_van,
- rrr.res_rsv_ruimte_tot res_reservering_tot,
- rra.res_rsv_artikel_aantal aantal,
- LTRIM (ra.res_artikel_omschrijving)
- || ' ('
- || COALESCE (ra.res_artikel_eenheid, '')
- || ')'
- res_voorziening,
- ra.res_artikel_nr artikelnummer,
- NULL kostenplaats,
- NULL res_next_van,
- DECODE (rra.res_rsv_artikel_levering,
- rrr.res_rsv_ruimte_van, 0,
- 1)
- wissel,
- 1 service
- FROM res_v_aanwezigrsv_artikel rra,
- res_v_aanwezigrsv_ruimte rrr,
- res_artikel ra
- WHERE rra.res_rsv_artikel_dirtlevel = 0
- AND rra.res_rsv_ruimte_key = rrr.res_rsv_ruimte_key
- AND rra.res_artikel_key = ra.res_artikel_key
- AND rra.res_rsv_artikel_levering BETWEEN TRUNC (
- SYSDATE
- )
- AND TRUNC(SYSDATE
- + 5))
- res_geg,
- res_v_aanwezigrsv_ruimte rrr
- WHERE res_geg.res_rsv_ruimte_key = rrr.res_rsv_ruimte_key
- AND res_geg.service > 0
- ORDER BY 1,
- 2,
- 3,
- 4
-/
+ SELECT TO_CHAR (res_geg.res_reservering_van, 'YYYY-MM-DD HH24:MI')
+ sort_datum_tijd,
+ DECODE (
+ rrr.alg_ruimte_key,
+ NULL,
+ (SELECT rr.res_ruimte_nr
+ FROM res_ruimte_opstelling rro, res_ruimte rr
+ WHERE rro.res_ruimte_opstel_key = rrr.res_ruimte_opstel_key
+ AND rro.res_ruimte_key = rr.res_ruimte_key),
+ (SELECT rg.alg_ruimte_aanduiding
+ FROM alg_v_ruimte_gegevens rg
+ WHERE rg.alg_ruimte_key = rrr.alg_ruimte_key))
+ sort_ruimte,
+ rrr.res_reservering_key || '/' || rrr.res_rsv_ruimte_volgnr
+ sort_resnr,
+ res_geg.res_type sort_categorie,
+ TO_CHAR (res_geg.res_reservering_van, 'DD-MM-YYYY') datum,
+ (CASE
+ WHEN res_geg.res_type = '1R' OR res_geg.wissel = 1
+ THEN
+ rrr.res_reservering_key || '/' || rrr.res_rsv_ruimte_volgnr
+ ELSE
+ ''
+ END)
+ resnr,
+ (CASE
+ WHEN res_geg.res_type = '1R'
+ AND res_geg.res_reservering_tot IS NOT NULL
+ THEN
+ 'Begin'
+ ELSE
+ DECODE (res_geg.res_reservering_tot,
+ NULL, 'Eind',
+ DECODE (res_geg.wissel, 1, 'Wissel', ''))
+ END)
+ begin_eind,
+ (CASE
+ WHEN res_geg.res_type = '1R' OR res_geg.wissel = 1
+ THEN
+ TO_CHAR (res_geg.res_reservering_van, 'HH24:MI')
+ ELSE
+ ''
+ END)
+ van,
+ DECODE (
+ res_geg.res_activiteit_key,
+ 21,
+ TO_CHAR (res_geg.res_reservering_van + (1 / 96), 'HH24:MI'),
+ NULL)
+ van_vc,
+ (CASE
+ WHEN res_geg.res_type = '1R' OR res_geg.wissel = 1
+ THEN
+ DECODE (
+ rrr.alg_ruimte_key,
+ NULL,
+ (SELECT rr.res_ruimte_nr
+ FROM res_ruimte_opstelling rro, res_ruimte rr
+ WHERE rro.res_ruimte_opstel_key =
+ rrr.res_ruimte_opstel_key
+ AND rro.res_ruimte_key = rr.res_ruimte_key),
+ (SELECT rg.alg_ruimte_aanduiding
+ FROM alg_v_ruimte_gegevens rg
+ WHERE rg.alg_ruimte_key = rrr.alg_ruimte_key))
+ ELSE
+ ''
+ END)
+ ruimte,
+ TO_CHAR (res_geg.deelnemers) deelnemers,
+ (CASE
+ WHEN res_geg.res_type = '2V'
+ THEN
+ res_geg.res_voorziening
+ WHEN res_geg.res_type = '3C'
+ THEN
+ TO_CHAR (res_geg.aantal) || ' x ' || res_geg.res_voorziening
+ ELSE
+ DECODE (res_geg.res_next_van,
+ NULL, res_geg.res_voorziening,
+ TO_CHAR (res_geg.res_next_van, 'HH24:MI'))
+ END)
+ voorzieningen,
+ DECODE (res_geg.res_type, '1R', res_geg.res_kostenplaats_nr, NULL)
+ budgetnummer,
+ DECODE (res_geg.res_type, '1R', res_geg.res_reservering_opm, NULL)
+ opmerking
+ FROM (SELECT '1R' res_type, -- Begin/Wissel-ruimten met V,C of VC!
+ rrr.res_rsv_ruimte_key,
+ rrr.res_activiteit_key,
+ rrr.res_rsv_ruimte_bezoekers deelnemers,
+ rrr.res_rsv_ruimte_van res_reservering_van,
+ rrr.res_rsv_ruimte_tot res_reservering_tot,
+ rrr.res_rsv_ruimte_opmerking res_reservering_opm,
+ TO_NUMBER (NULL) aantal,
+ ra.res_activiteit_omschrijving res_voorziening,
+ NULL artikelnummer,
+ kp.prs_kostenplaats_nr res_kostenplaats_nr,
+ NULL res_next_van,
+ 0 wissel,
+ DECODE (
+ rrr.res_activiteit_key,
+ 21, -- Videoconference (VC)
+ 1,
+ (SELECT COUNT ( * )
+ FROM res_v_aanwezigrsv_deel rrd,
+ res_v_aanwezigrsv_artikel rra
+ WHERE rrd.res_rsv_ruimte_key = rrr.res_rsv_ruimte_key
+ OR rra.res_rsv_ruimte_key =
+ rrr.res_rsv_ruimte_key))
+ service
+ FROM res_v_aanwezigrsv_ruimte rrr,
+ res_activiteit ra,
+ prs_kostenplaats kp
+ WHERE rrr.res_rsv_ruimte_dirtlevel = 0
+ AND rrr.res_activiteit_key = ra.res_activiteit_key
+ AND rrr.prs_kostenplaats_key = kp.prs_kostenplaats_key
+ AND rrr.res_rsv_ruimte_van BETWEEN TRUNC (SYSDATE)
+ AND TRUNC (SYSDATE + 5)
+ UNION ALL -- Eind-ruimten (reserveerbaar)!
+ SELECT '1R' res_type,
+ rrr.res_rsv_ruimte_key,
+ NULL res_activiteit_key,
+ NULL deelnemers,
+ rrr.res_rsv_ruimte_tot res_reservering_van,
+ NULL res_reservering_tot,
+ NULL res_reservering_opm,
+ TO_NUMBER (NULL) aantal,
+ NULL res_voorziening,
+ NULL artikelnummer,
+ NULL res_kostenplaats_nr,
+ (SELECT MIN (x.res_rsv_ruimte_van)
+ FROM res_v_aanwezigrsv_ruimte x, res_ruimte_opstelling y
+ WHERE x.res_ruimte_opstel_key = y.res_ruimte_opstel_key
+ AND y.res_ruimte_key = rr.res_ruimte_key
+ AND TO_CHAR (x.res_rsv_ruimte_van, 'yyyymmdd') =
+ TO_CHAR (rrr.res_rsv_ruimte_tot, 'yyyymmdd')
+ AND x.res_rsv_ruimte_van > rrr.res_rsv_ruimte_tot)
+ res_next_van,
+ 0 wissel,
+ 1 service
+ FROM res_v_aanwezigrsv_ruimte rrr,
+ res_ruimte_opstelling rro,
+ res_ruimte rr
+ WHERE rrr.res_rsv_ruimte_dirtlevel = 0
+ AND rrr.res_ruimte_opstel_key = rro.res_ruimte_opstel_key
+ AND rro.res_ruimte_key = rr.res_ruimte_key
+ AND rrr.res_rsv_ruimte_van BETWEEN TRUNC (SYSDATE)
+ AND TRUNC (SYSDATE + 5)
+ UNION ALL -- Eind-ruimten (meerdaags los=met V)!
+ SELECT '1R' res_type,
+ rrr.res_rsv_ruimte_key,
+ rrr.res_activiteit_key,
+ rrr.res_rsv_ruimte_bezoekers deelnemers,
+ rrr.res_rsv_ruimte_tot res_reservering_van,
+ NULL res_reservering_tot,
+ rrr.res_rsv_ruimte_opmerking res_reservering_opm,
+ TO_NUMBER (NULL) aantal,
+ ra.res_activiteit_omschrijving res_voorziening,
+ NULL artikelnummer,
+ kp.prs_kostenplaats_nr res_kostenplaats_nr,
+ NULL res_next_van,
+ 0 wissel,
+ 1 service
+ FROM res_v_aanwezigrsv_ruimte rrr,
+ res_activiteit ra,
+ prs_kostenplaats kp
+ WHERE rrr.res_rsv_ruimte_dirtlevel = 0
+ AND rrr.res_activiteit_key = ra.res_activiteit_key
+ AND rrr.prs_kostenplaats_key = kp.prs_kostenplaats_key
+ AND TRUNC (rrr.res_rsv_ruimte_van) !=
+ TRUNC (rrr.res_rsv_ruimte_tot)
+ AND rrr.res_rsv_ruimte_tot BETWEEN TRUNC (SYSDATE)
+ AND TRUNC (SYSDATE + 5)
+ UNION ALL -- Begin/Wissel-Voorzieningen (bij ruimte en los)!
+ SELECT '2V' res_type,
+ rrr.res_rsv_ruimte_key,
+ NULL res_activiteit_key,
+ NULL deelnemers,
+ rrd.res_rsv_deel_van res_reservering_van,
+ rrd.res_rsv_deel_tot res_reservering_tot,
+ NULL res_reservering_opm,
+ (rrd.res_rsv_deel_tot - rrd.res_rsv_deel_van) * 24 aantal, -- Duur in uren
+ LTRIM (ID.ins_deel_omschrijving)
+ || DECODE (rd.res_deel_eenheid,
+ NULL, '',
+ ' (' || rd.res_deel_eenheid || ')')
+ res_voorziening,
+ NULL artikelnummer,
+ NULL res_kostenplaats_nr,
+ NULL res_next_van,
+ DECODE (rrd.res_rsv_deel_van, rrr.res_rsv_ruimte_van, 0, 1)
+ wissel,
+ 1 service
+ FROM res_v_aanwezigrsv_deel rrd,
+ res_v_aanwezigrsv_ruimte rrr,
+ res_deel rd,
+ ins_deel ID
+ WHERE rrd.res_rsv_deel_dirtlevel = 0
+ AND rrd.res_rsv_ruimte_key = rrr.res_rsv_ruimte_key
+ AND rrd.res_deel_key = rd.res_deel_key
+ AND rd.res_ins_deel_key = ID.ins_deel_key
+ AND rrd.res_rsv_deel_van BETWEEN TRUNC (SYSDATE)
+ AND TRUNC (SYSDATE + 5)
+ UNION ALL -- Eind-voorzieningen (meerdaags los=met V)!
+ SELECT '2V' res_type,
+ rrr.res_rsv_ruimte_key,
+ NULL res_activiteit_key,
+ NULL deelnemers,
+ rrd.res_rsv_deel_tot res_reservering_van,
+ rrd.res_rsv_deel_tot res_reservering_tot,
+ NULL res_reservering_opm,
+ (rrd.res_rsv_deel_tot - rrd.res_rsv_deel_van) * 24 aantal, -- Duur in uren
+ LTRIM (ID.ins_deel_omschrijving)
+ || DECODE (rd.res_deel_eenheid,
+ NULL, '',
+ ' (' || rd.res_deel_eenheid || ')')
+ res_voorziening,
+ NULL artikelnummer,
+ NULL res_kostenplaats_nr,
+ NULL res_next_van,
+ 0 wissel,
+ 1 service
+ FROM res_v_aanwezigrsv_deel rrd,
+ res_v_aanwezigrsv_ruimte rrr,
+ res_deel rd,
+ ins_deel ID
+ WHERE rrd.res_rsv_deel_dirtlevel = 0
+ AND rrd.res_rsv_ruimte_key = rrr.res_rsv_ruimte_key
+ AND rrd.res_deel_key = rd.res_deel_key
+ AND rd.res_ins_deel_key = ID.ins_deel_key
+ AND TRUNC (rrd.res_rsv_deel_van) !=
+ TRUNC (rrd.res_rsv_deel_tot)
+ AND rrd.res_rsv_deel_tot BETWEEN TRUNC (SYSDATE)
+ AND TRUNC (SYSDATE + 5)
+ UNION ALL -- Begin/Wissel-Catering (bij ruimte en los)!
+ SELECT '3C' res_type,
+ rrr.res_rsv_ruimte_key,
+ NULL res_activiteit_key,
+ NULL deelnemers,
+ rra.res_rsv_artikel_levering res_reservering_van,
+ rrr.res_rsv_ruimte_tot res_reservering_tot,
+ NULL res_reservering_opm,
+ rra.res_rsv_artikel_aantal aantal,
+ LTRIM (ra.res_artikel_omschrijving)
+ || DECODE (ra.res_artikel_eenheid,
+ NULL, '',
+ ' (' || ra.res_artikel_eenheid || ')')
+ res_voorziening,
+ ra.res_artikel_nr artikelnummer,
+ NULL res_kostenplaats_nr,
+ NULL res_next_van,
+ DECODE (rra.res_rsv_artikel_levering,
+ rrr.res_rsv_ruimte_van, 0,
+ 1)
+ wissel,
+ 1 service
+ FROM res_v_aanwezigrsv_artikel rra,
+ res_v_aanwezigrsv_ruimte rrr,
+ res_artikel ra
+ WHERE rra.res_rsv_artikel_dirtlevel = 0
+ AND rra.res_rsv_ruimte_key = rrr.res_rsv_ruimte_key
+ AND rra.res_artikel_key = ra.res_artikel_key
+ AND rra.res_rsv_artikel_levering BETWEEN TRUNC (SYSDATE)
+ AND TRUNC (
+ SYSDATE + 5))
+ res_geg,
+ res_v_aanwezigrsv_ruimte rrr
+ WHERE res_geg.res_rsv_ruimte_key = rrr.res_rsv_ruimte_key
+ AND res_geg.service > 0
+ ORDER BY 1,
+ 2,
+ 3,
+ 4;
-- Bevat CUST01/02-reminders naar resp. medewerkers in autorisatiegroep 'BO
-- autorisatie (Security)' met key=2462 en medewerkers die 9 maanden geleden
@@ -2517,7 +2576,7 @@ AS
/
-- IVET#26822
--- Controleert per internval of er nieuwe transportaanvragen zijn en stuurt deze naar gebruiker DistributionCoordination
+-- Controleert per internval of er nieuwe transportaanvragen binnen EU zijn en stuurt deze naar gebruiker DistributionCoordination
CREATE OR REPLACE VIEW IVET_V_NOTI_MLD_TRANSPORT
(
CODE,
@@ -2570,9 +2629,65 @@ AS
AND sk.fac_kenmerkdomein_key = kd.fac_kenmerkdomein_key
AND dat.fac_usrtab_key = kd.fac_usrtab_key
AND mkm.mld_kenmerkmelding_waarde = dat.fac_usrdata_key
-/
+/
-BEGIN fac.registercustversion('IVET', 18); END;
+-- IVET#28273
+-- Controleert per internval of er nieuwe transportaanvragen buiten EU zijn en stuurt deze naar gebruiker DistributionCoordination
+CREATE OR REPLACE VIEW IVET_V_NOTI_MLD_TRANS_BUITENEU
+(
+ CODE,
+ SENDER,
+ RECEIVER,
+ TEXT,
+ KEY,
+ XKEY
+)
+AS
+ SELECT 'MLDNEW',
+ NULL,
+ 69501, -- User DistributionCoordination
+ 'Nieuwe melding: '
+ || m.mld_melding_key
+ || ' '
+ || std.mld_stdmelding_omschrijving
+ || ' - '
+ || dat.fac_usrdata_omschr,
+ m.mld_melding_key,
+ NULL
+ FROM mld_melding m,
+ fac_tracking tr,
+ fac_srtnotificatie str,
+ mld_kenmerkmelding mkm,
+ mld_kenmerk k,
+ mld_srtkenmerk sk,
+ fac_kenmerkdomein kd,
+ fac_usrdata dat,
+ mld_stdmelding std
+ WHERE mld_melding_status IN (0, 2, 3, 4, 7) -- open meldingen
+ AND tr.fac_srtnotificatie_key = str.fac_srtnotificatie_key
+ AND ( (tr.fac_tracking_refkey = m.mld_melding_key
+ AND str.fac_srtnotificatie_xmlnode IN ('melding')))
+ AND fac_srtnotificatie_code = 'MLDNEW'
+ AND tr.fac_tracking_datum >
+ (SELECT fac_notificatie_job_nextrun
+ - fac_notificatie_job_interval / 24
+ FROM fac_notificatie_job
+ WHERE fac_notificatie_job_view =
+ 'IVET_V_NOTI_MLD_TRANS_BUITENEU')
+ AND m.mld_stdmelding_key = 3181 -- R-Transportaanvraag-transportaanvraag buiten eu
+ AND mkm.mld_melding_key = m.mld_melding_key
+ AND mkm.mld_kenmerk_key = 13662 -- Kenmerk Wereldanden suggest
+ AND mkm.mld_kenmerkmelding_waarde IS NOT NULL
+ AND mkm.mld_kenmerkmelding_verwijder IS NULL
+ AND m.mld_stdmelding_key = std.mld_stdmelding_key
+ AND mkm.mld_kenmerk_key = k.mld_kenmerk_key
+ AND k.mld_srtkenmerk_key = sk.mld_srtkenmerk_key
+ AND sk.fac_kenmerkdomein_key = kd.fac_kenmerkdomein_key
+ AND dat.fac_usrtab_key = kd.fac_usrtab_key
+ AND mkm.mld_kenmerkmelding_waarde = dat.fac_usrdata_key
+/
+
+BEGIN fac.registercustversion('IVET', 22); END;
/
BEGIN adm.systrackscriptId('$Id$', 0); END;
/
diff --git a/Logi/Once/LOGI#27979.sql b/Logi/Once/LOGI#27979.sql
new file mode 100644
index 000000000..74eb8d337
--- /dev/null
+++ b/Logi/Once/LOGI#27979.sql
@@ -0,0 +1,52 @@
+-- Customer specific once-script LOGI#27979.
+--
+-- (c) 2014 SG|facilitor bv
+--
+-- Support: +31 53 4800700
+SET ECHO ON
+SPOOL xLOGI27979.lst
+SET DEFINE OFF
+
+-- Zorg dat voorlopig niet gebruikte WP-ruimtenummers onderin de lijst komen!
+-- Vooraf gecontroleerd dat WP-ruimtenummers nooit >9!
+UPDATE alg_ruimte
+ SET alg_ruimte_nr = 'x' || alg_ruimte_nr
+ WHERE alg_ruimte_verwijder IS NULL AND LENGTH (alg_ruimte_nr) <= 9
+ AND alg_ruimte_key IN
+ (SELECT DISTINCT r.alg_ruimte_key
+ FROM res_ruimte rr, res_alg_ruimte rar, alg_ruimte r
+ WHERE rr.res_ruimte_verwijder IS NULL
+ AND ( RR.RES_DISCIPLINE_KEY = 1281 -- Secured WP-2 ROT 1A
+ OR RR.RES_DISCIPLINE_KEY BETWEEN 1201 AND 1225 -- ROT
+ OR RR.RES_DISCIPLINE_KEY = 624 -- Flex place type WP-1
+ OR RR.RES_DISCIPLINE_KEY = 621) -- Silent place type WP-2
+ AND rr.res_ruimte_key = rar.res_ruimte_key
+ AND rar.res_alg_ruimte_verwijder IS NULL
+ AND EXISTS
+ (SELECT 1
+ FROM alg_v_allonroerendgoed aog
+ WHERE aog.alg_ruimte_key = rar.alg_ruimte_key
+ AND aog.alg_locatie_key != 1181 -- NIET Heerlen
+ AND aog.alg_type = 'R')
+ AND rar.alg_ruimte_key = r.alg_ruimte_key);
+
+-- Zorg dat voorlopig niet gebruikte WPs niet reserveerbaar (onzichtbaar) zijn!
+UPDATE res_ruimte rr
+ SET rr.res_discipline_key = 661 -- Niet meer reserveerbare ruimte
+ WHERE rr.res_ruimte_verwijder IS NULL
+ AND ( RR.RES_DISCIPLINE_KEY = 1281 -- Secured WP-2 ROT 1A
+ OR RR.RES_DISCIPLINE_KEY BETWEEN 1201 AND 1225 -- ROT
+ OR RR.RES_DISCIPLINE_KEY = 624 -- Flex place type WP-1
+ OR RR.RES_DISCIPLINE_KEY = 621) -- Silent place type WP-2
+ AND EXISTS
+ (SELECT 1
+ FROM res_alg_ruimte rar, alg_v_allonroerendgoed aog
+ WHERE rar.res_ruimte_key = rr.res_ruimte_key
+ AND rar.alg_ruimte_key = aog.alg_ruimte_key
+ AND aog.alg_locatie_key != 1181 -- NIET Heerlen
+ AND aog.alg_type = 'R');
+
+COMMIT;
+BEGIN adm.systrackscriptId('$Id$'); END;
+/
+SPOOL OFF
diff --git a/MAYF/Once/mayf4.sql b/MAYF/Once/mayf4.sql
new file mode 100644
index 000000000..98815f40e
--- /dev/null
+++ b/MAYF/Once/mayf4.sql
@@ -0,0 +1,41 @@
+-- Customer specific once-script mayf4
+--
+-- (c) 2014 SG|facilitor bv
+SET ECHO ON
+SPOOL xmayf4.lst
+SET DEFINE OFF
+
+-- MAYF#28197 MLD/OPDR rapportage inclusief substatus bolletje
+CREATE OR REPLACE VIEW MAYF_V_RAP_MLDOPDR_GEG AS SELECT NULL x FROM DUAL;
+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: Overzicht van opdrachten met substatus',
+ 'MAYF_V_RAP_MLDOPDR_GEG',
+ NULL,
+ NULL,
+ NULL,
+ 0,
+ 0,
+ 0,
+ 'Overzicht van opdrachten met substatus',
+ 60,
+ 0);
+
+COMMIT;
+
+
+BEGIN adm.systrackscriptId('$Id$'); END;
+/
+SPOOL OFF
+
+@mayf.sql
+
diff --git a/MAYF/mayf.sql b/MAYF/mayf.sql
index ed3a5a111..21e6cb290 100644
--- a/MAYF/mayf.sql
+++ b/MAYF/mayf.sql
@@ -608,10 +608,99 @@ AS
AND fac_tracking_refkey =
t.fac_tracking_refkey)) ordoff
ON opdr.opdr_key = ordoff.fac_tracking_refkey;
+
+-- MAYF#28197 MLD/OPDR rapportage inclusief substatus bolletje
+CREATE OR REPLACE VIEW MAYF_V_RAP_MLDOPDR_GEG
+(
+ PRIO,
+ FCLT_F_Status_bolletje,
+ FCLT_F_Opdrachtnr,
+ FCLT_F_Opdrachttype,
+ plaats,
+ Locatie_adres,
+ Woonplaats,
+ FCLT_F_Melding,
+ Omschrijving,
+ Datum,
+ FCLT_F_Meldingstatus,
+ FCLT_F_Opdrachtstatus,
+ Geplande_einddatum,
+ FCLT_F_Uitvoerende,
+ Aanvrager,
+ Afhandeling
+)
+AS
+ SELECT DECODE (m.mld_melding_spoed,
+ 1, 'Kritiek',
+ 2, 'Hoog',
+ 4, 'Laag',
+ 'Normaal')
+ Prio,
+ code.omschrijving filter,
+ o.mld_melding_key || '/' || mld_opdr_bedrijfopdr_volgnr Opdracht,
+ t.mld_typeopdr_omschrijving Opdrachttype,
+ l.alg_locatie_code
+ || (SELECT CASE geg.alg_gebouw_code
+ WHEN NULL THEN ''
+ ELSE '-' || geg.alg_gebouw_code
+ END
+ || CASE geg.alg_verdieping_code
+ WHEN NULL THEN ''
+ ELSE '-' || geg.alg_verdieping_code
+ END
+ || CASE geg.alg_ruimte_nr
+ WHEN NULL THEN ''
+ ELSE '-' || geg.alg_ruimte_nr
+ END
+ || CASE geg.alg_terreinsector_code
+ WHEN NULL THEN ''
+ ELSE '-' || geg.alg_terreinsector_code
+ END
+ FROM alg_v_allonrgoed_gegevens geg
+ WHERE m.mld_alg_onroerendgoed_keys =
+ geg.alg_onroerendgoed_keys
+ AND ROWNUM = 1)
+ plaatsmelding,
+ l.alg_locatie_adres Locatieadres,
+ l.alg_locatie_plaats Woonplaats,
+ std.mld_stdmelding_omschrijving Melding,
+ o.mld_opdr_omschrijving Omschrijving,
+ o.mld_opdr_datumbegin Datum,
+ mstat.mld_statuses_omschrijving Meldingstatus,
+ ostat.mld_statusopdr_omschrijving Opdrachtstatus,
+ o.mld_opdr_einddatum Geplande_einddatum,
+ b.prs_bedrijf_naam Uitvoerende,
+ p.prs_perslid_naam_full Aanvrager,
+ o.mld_opdr_opmerking Afhandeling
+ FROM mld_opdr o,
+ mld_melding m,
+ mld_typeopdr t,
+ alg_locatie l,
+ mld_stdmelding std,
+ mld_statuses mstat,
+ mld_statusopdr ostat,
+ prs_bedrijf b,
+ prs_v_perslid_fullnames p,
+ (SELECT SUBSTR (fac_locale_xsl_label, 13, 1) key,
+ fac_locale_xsl_cust omschrijving
+ FROM fac_locale_xsl
+ WHERE fac_locale_xsl_lang = 'NL'
+ AND fac_locale_XSL_cust IS NOT NULL
+ AND fac_locale_xsl_tekst LIKE 'Code%') code
+ WHERE m.mld_melding_key = o.mld_melding_key
+ AND m.mld_alg_locatie_key = l.alg_locatie_key(+)
+ AND m.mld_stdmelding_key = std.mld_stdmelding_key
+ AND mstat.mld_statuses_key = m.mld_melding_status
+ AND ostat.mld_statusopdr_key = o.mld_statusopdr_key
+ AND o.mld_uitvoerende_keys = b.prs_bedrijf_key
+ AND t.mld_typeopdr_key = o.mld_typeopdr_key
+ AND p.prs_perslid_key = m.prs_perslid_key
+ AND code.key(+) = m.mld_melding_flag
+ AND mstat.mld_statuses_key NOT IN (1, 5, 6);
BEGIN adm.systrackscriptId('$Id$', 0); END;
/
-BEGIN fac.registercustversion('MAYF', 3); END;
+BEGIN fac.registercustversion('MAYF', 4); END;
/
COMMIT;
spool off
diff --git a/NETS/nets.sql b/NETS/nets.sql
index 240b10170..14fdd3c76 100644
--- a/NETS/nets.sql
+++ b/NETS/nets.sql
@@ -8,30 +8,63 @@
set echo on
SPOOL xNETS.LST
-CREATE OR REPLACE FORCE VIEW nets_v_noti_cntreminder_rappel (code, sender, receiver, text, key, xkey)
+/* Formatted on 9-1-2014 10:50:10 (QP5 v5.115.810.9015) */
+CREATE OR REPLACE FORCE VIEW nets_v_noti_cntreminder_rappel
+(
+ code,
+ sender,
+ receiver,
+ text,
+ key,
+ xkey
+)
AS
-SELECT 'CUST01',
- NULL,
- c.prs_perslid_key_beh,
- 'Beste ' || p.prs_perslid_voornaam || DECODE(p.prs_perslid_tussenvoegsel,NULL,' ',' '||p.prs_perslid_tussenvoegsel||' ') || p.prs_perslid_naam || CHR(13) ||
- CHR(13) ||
- 'Op '||to_char(c.cnt_contract_looptijd_tot,'dd-mm-yyyy')||' loopt '||c.cnt_contract_nummer_intern||' ('||c.cnt_contract_omschrijving||') af. Het is raadzaam hierover contact ' || CHR(13) ||
- 'op te nemen met zowel uw leverancier als uw interne organisatie.' || CHR(13) ||
- CHR(13) ||
- 'Raadpleeg het digitale contract in Facilitor om de vervolgstappen te bepalen.' || CHR(13) ||
- 'Indien het contract verlengd wordt, zorg er dan voor dat de mutaties en de daarbij behorende ' || CHR(13) ||
- 'documenten digitaal worden vastgelegd in Facilitor.' || CHR(13) ||
- CHR(13) ||
- CHR(13) ||
- 'Met vriendelijke groet,' || CHR(13) ||
- CHR(13) ||
- 'Applicatiebeheer Facilitor',
- c.cnt_contract_key,
- NULL
- FROM cnt_v_aanwezigcontract c, prs_bedrijf b, prs_perslid p
- WHERE b.prs_bedrijf_key=c.CNT_PRS_BEDRIJF_KEY
- AND c.prs_perslid_key_beh = p.prs_perslid_key
- AND TRUNC(SYSDATE) = TRUNC(cnt.cnt_getRappeldatum(c.cnt_contract_key));
+ SELECT 'CUST01',
+ NULL,
+ c.prs_perslid_key_beh,
+ 'Beste ' || p.prs_perslid_voornaam
+ || DECODE (p.prs_perslid_tussenvoegsel,
+ NULL, ' ',
+ ' ' || p.prs_perslid_tussenvoegsel || ' ')
+ || p.prs_perslid_naam
+ || CHR (13)
+ || CHR (13)
+ || 'Op '
+ || TO_CHAR (c.cnt_contract_looptijd_tot, 'dd-mm-yyyy')
+ || ' loopt '
+ || c.cnt_contract_nummer_intern
+ || ' ('
+ || c.cnt_contract_omschrijving
+ || ') af. Het is raadzaam hierover contact '
+ || CHR (13)
+ || 'op te nemen met zowel uw leverancier als uw interne organisatie.'
+ || CHR (13)
+ || CHR (13)
+ || 'Raadpleeg het digitale contract in Facilitor om de vervolgstappen te bepalen.'
+ || CHR (13)
+ || 'Indien het contract verlengd wordt, zorg er dan voor dat de mutaties en de daarbij behorende '
+ || CHR (13)
+ || 'documenten digitaal worden vastgelegd in Facilitor.'
+ || CHR (13)
+ || CHR (13)
+ || CHR (13)
+ || 'Met vriendelijke groet,'
+ || CHR (13)
+ || CHR (13)
+ || 'Applicatiebeheer Facilitor',
+ c.cnt_contract_key,
+ NULL
+ FROM cnt_v_aanwezigcontract c,
+ prs_bedrijf b,
+ prs_perslid p,
+ prs_afdeling a
+ WHERE b.prs_bedrijf_key = c.CNT_PRS_BEDRIJF_KEY
+ AND p.prs_afdeling_key = a.prs_afdeling_key
+ AND (a.prs_afdeling_key IN (41, 42, 43) -- TODO; ter voorkoming mails naar niet
+ OR a.prs_afdeling_parentkey IN (41, 42, 43)) -- ..ALM/ENS/Borne-personen!
+ AND c.prs_perslid_key_beh = p.prs_perslid_key
+ AND TRUNC (SYSDATE) =
+ TRUNC (cnt.cnt_getRappeldatum (c.cnt_contract_key));
-- Staan er bij contracten gesprekken gepland?
@@ -75,43 +108,78 @@ AND kc.cnt_kenmerk_key = k.cnt_kenmerk_key;
-- Contractgesprekken die staan gepland tussen nu en 8 weken (7*8 dagen) in de toekomst.
-CREATE OR REPLACE FORCE VIEW nets_v_noti_cntreminder_gespr (code, sender, receiver, text, key, xkey)
+/* Formatted on 9-1-2014 10:50:40 (QP5 v5.115.810.9015) */
+CREATE OR REPLACE FORCE VIEW nets_v_noti_cntreminder_gespr
+(
+ code,
+ sender,
+ receiver,
+ text,
+ key,
+ xkey
+)
AS
-SELECT
- 'CUST02',
- NULL,
- c.prs_perslid_key_beh,
- 'Beste ' || p.prs_perslid_voornaam || DECODE(p.prs_perslid_tussenvoegsel,NULL,' ',' '||p.prs_perslid_tussenvoegsel||' ') || p.prs_perslid_naam || CHR(13)
- || CHR(13)
- ||'U bent beheerder van contract '||c.cnt_contract_nummer_intern||' ('||c.cnt_contract_omschrijving||'). Met uw leverancier is' || CHR(13)
- ||'overeengekomen dat u (tussentijds) gaat evalueren. '|| CHR(13)
- || CHR(13)
- || CHR(13)
- ||'Onderneem de volgende acties:' || CHR(13)
- || CHR(13)
- ||'- Interne evaluatie;' || CHR(13)
- ||'- Afspraak leverancier.' || CHR(13)
- || CHR(13)
- ||'Wilt u dit realiseren voor '|| g.cnt_kenmerkcontract_waarde ||'.' || CHR(13)
- ||'Zorg ervoor dat het (tussentijdse) evaluatieverslag digitaal vastgelegd wordt in het dossier van Facilitor.' || CHR(13)
- || CHR(13)
- || CHR(13)
- ||'Met vriendelijke groet,' || CHR(13)
- || CHR(13)
- ||'Applicatiebeheer Facilitor',
- c.cnt_contract_key,
- NULL
-FROM CNT_V_AANWEZIGCONTRACT c, PRS_PERSLID p, nets_v_noti_gesprek_tekst g
-WHERE c.prs_perslid_key_beh = p.prs_perslid_key
-AND g.cnt_contract_key = c.cnt_contract_key
-AND TRUNC(sysdate + (7*8)) = TRUNC(fac.safe_to_date(g.cnt_kenmerkcontract_waarde,'dd-mm-yyyy'))
-AND NOT EXISTS (select 'x'
- from nets_v_noti_gesprek_ja x
- where x.cnt_srtkenmerk_key = g.cnt_srtkenmerk_key
- and x.cnt_contract_key = g.cnt_contract_key
- );
+ SELECT 'CUST02',
+ NULL,
+ c.prs_perslid_key_beh,
+ 'Beste ' || p.prs_perslid_voornaam
+ || DECODE (p.prs_perslid_tussenvoegsel,
+ NULL, ' ',
+ ' ' || p.prs_perslid_tussenvoegsel || ' ')
+ || p.prs_perslid_naam
+ || CHR (13)
+ || CHR (13)
+ || 'U bent beheerder van contract '
+ || c.cnt_contract_nummer_intern
+ || ' ('
+ || c.cnt_contract_omschrijving
+ || '). Met uw leverancier is'
+ || CHR (13)
+ || 'overeengekomen dat u (tussentijds) gaat evalueren. '
+ || CHR (13)
+ || CHR (13)
+ || CHR (13)
+ || 'Onderneem de volgende acties:'
+ || CHR (13)
+ || CHR (13)
+ || '- Interne evaluatie;'
+ || CHR (13)
+ || '- Afspraak leverancier.'
+ || CHR (13)
+ || CHR (13)
+ || 'Wilt u dit realiseren voor '
+ || g.cnt_kenmerkcontract_waarde
+ || '.'
+ || CHR (13)
+ || 'Zorg ervoor dat het (tussentijdse) evaluatieverslag digitaal vastgelegd wordt in het dossier van Facilitor.'
+ || CHR (13)
+ || CHR (13)
+ || CHR (13)
+ || 'Met vriendelijke groet,'
+ || CHR (13)
+ || CHR (13)
+ || 'Applicatiebeheer Facilitor',
+ c.cnt_contract_key,
+ NULL
+ FROM cnt_v_aanwezigcontract c,
+ prs_perslid p,
+ prs_afdeling a,
+ nets_v_noti_gesprek_tekst g
+ WHERE c.prs_perslid_key_beh = p.prs_perslid_key
+ AND p.prs_afdeling_key = a.prs_afdeling_key
+ AND (a.prs_afdeling_key IN (41, 42, 43) -- TODO; ter voorkoming mails naar niet
+ OR a.prs_afdeling_parentkey IN (41, 42, 43)) -- ..ALM/ENS/Borne-personen!
+ AND c.cnt_contract_key = g.cnt_contract_key
+ AND TRUNC (SYSDATE + (7 * 8)) =
+ TRUNC(fac.safe_to_date (g.cnt_kenmerkcontract_waarde,
+ 'dd-mm-yyyy'))
+ AND NOT EXISTS
+ (SELECT 'x'
+ FROM nets_v_noti_gesprek_ja x
+ WHERE x.cnt_srtkenmerk_key = g.cnt_srtkenmerk_key
+ AND x.cnt_contract_key = g.cnt_contract_key);
-BEGIN fac.registercustversion('NETS', 2); END;
+BEGIN fac.registercustversion('NETS', 3); END;
/
BEGIN adm.systrackscriptId('$Id$', 0); END;
/
diff --git a/NYBU/nybu.sql b/NYBU/nybu.sql
index 48d538d30..1afeec90b 100644
--- a/NYBU/nybu.sql
+++ b/NYBU/nybu.sql
@@ -12,9 +12,21 @@ SPOOL xnybu.lst
CREATE OR REPLACE PACKAGE nybu
AS
+ TYPE t_cursor IS REF CURSOR;
+
FUNCTION getPeriodeNaam(p_periode IN VARCHAR2,
p_lang IN VARCHAR2)
RETURN VARCHAR2;
+
+ FUNCTION getPrijsFactor(p_van IN DATE,
+ p_tot IN DATE,
+ p_maand IN DATE)
+ RETURN NUMBER;
+
+ PROCEDURE nybu_rap_vrije_kamers (user_key IN NUMBER,
+ p_datum_van IN VARCHAR2, -- Let wel: formaat '16-01-2006'
+ p_datum_tot IN VARCHAR2,
+ p_cursor OUT t_cursor);
END nybu;
/
@@ -59,6 +71,119 @@ AS
RETURN v_naam;
END getPeriodeNaam;
+
+ -- Bepaal aantal dagen in begin- of eindmaand waarvoor huur betaald moet worden
+ -- NB: Resultaat is alleen zinnig als beginmaand != eindmaand
+ FUNCTION getPrijsFactor(p_van IN DATE,
+ p_tot IN DATE,
+ p_maand IN DATE)
+ RETURN NUMBER
+ IS
+ o_prijsfactor NUMBER(6,5);
+ v_maand_dagen NUMBER(6,4);
+ BEGIN
+ o_prijsfactor := 1;
+ -- Aantal dagen in gegeven maand
+ v_maand_dagen := CAST( TO_CHAR( LAST_DAY(p_maand), 'DD') AS INT);
+
+ -- Is de ingangsmaand van het contract volledig, of beginnen we halverwege?
+ -- - ingangsmaand is huidige periode
+ -- - ingangsdag is niet de eerste dag van de maand (periode)
+ IF ( (p_van) IS NOT NULL
+ AND TRUNC(p_van, 'MM') = p_maand
+ AND TRUNC(p_van, 'DD') != p_maand )
+ THEN
+ -- prijsfactor = aantal_dagen_gehuurd / aantal_dagen_in_deze_maand
+ -- = (aantal_dagen_in_deze_maand - begindag + 1) / aantal_dagen_in_deze_maand
+ o_prijsfactor := ( v_maand_dagen - CAST( TO_CHAR(p_van, 'DD') AS INT) + 1 )
+ / v_maand_dagen;
+ -- Is de eindmaand van het contract volledig, of eindigen we halverwege?
+ -- - eindmaand is huidige periode
+ -- - einddag is niet de laatste dag van de maand (periode)
+ ELSIF ( (p_tot) IS NOT NULL
+ AND TRUNC(p_tot, 'MM') = p_maand
+ AND TRUNC(p_tot, 'DD') != LAST_DAY(p_maand) )
+ THEN
+ -- prijsfactor = aantal_dagen_gehuurd / aantal_dagen_in_deze_maand
+ -- = einddag / aantal_dagen_in_deze_maand
+ o_prijsfactor := CAST( TO_CHAR(p_tot, 'DD') AS INT)
+ / v_maand_dagen;
+ END IF;
+
+ RETURN o_prijsfactor;
+ END;
+
+ -- Overzicht van beschikbare studentenkamers (zonder huidig/toekomstig contract)
+ -- Toont (indien aanwezig) ook wanneer het eerstvolgende contract begint en het vorige eindigde.
+ -- (Aangepast van view naar procedure voor NYBU#28846)
+ -- contractsoort "Student room" 55
+ -- cnt_kenmerk "Student room" 1
+ -- alg_ruimtekenmerk "Zijde campus" 1080
+ -- fac_usrtab "Zijde campus" 281
+ PROCEDURE nybu_rap_vrije_kamers (user_key IN NUMBER,
+ p_datum_van IN VARCHAR2, -- Let wel: formaat '16-01-2006'
+ p_datum_tot IN VARCHAR2,
+ p_cursor OUT t_cursor)
+ AS
+ v_datum_van DATE;
+ v_datum_tot DATE;
+ BEGIN
+ v_datum_van := fac.safe_to_date (p_datum_van, 'dd-mm-yyyy');
+ v_datum_tot := fac.safe_to_date (p_datum_tot, 'dd-mm-yyyy');
+
+ OPEN p_cursor FOR
+ SELECT rg.alg_ruimte_nr hide_f_sort,
+ g.alg_gebouw_naam fclt_f_gebouw,
+ rg.alg_verdieping_code fclt_f_verdieping,
+ rg.alg_ruimte_nr fclt_x_kamer,
+ ''
+ || htf.escape_sc(rg.alg_ruimte_nr)
+ || ''
+ html_kamer,
+ rg.alg_srtruimte_omschrijving fclt_f_type,
+ rg.alg_ruimte_bruto_vloeropp opp,
+ ud.fac_usrdata_omschr fclt_f_zijde,
+ (SELECT TO_CHAR(MIN(cnt_contract_looptijd_van), 'YYYY-MM-DD')
+ FROM cnt_contract c,
+ cnt_kenmerkcontract kc
+ WHERE c.ins_discipline_key = 55
+ AND c.cnt_contract_looptijd_van >= v_datum_tot
+ AND kc.cnt_contract_key = c.cnt_contract_key
+ AND kc.cnt_kenmerk_key = 1
+ AND fac.safe_to_number(kc.cnt_kenmerkcontract_waarde) = rg.alg_ruimte_key) bezet_vanaf,
+ (SELECT TO_CHAR(MAX(cnt_contract_looptijd_tot), 'YYYY-MM-DD')
+ FROM cnt_contract c,
+ cnt_kenmerkcontract kc
+ WHERE c.ins_discipline_key = 55
+ AND c.cnt_contract_looptijd_tot <= v_datum_van
+ AND kc.cnt_contract_key = c.cnt_contract_key
+ AND kc.cnt_kenmerk_key = 1
+ AND fac.safe_to_number(kc.cnt_kenmerkcontract_waarde) = rg.alg_ruimte_key) vrij_sinds
+ FROM nybu_v_studentenkamers sk,
+ alg_v_ruimte_gegevens rg,
+ alg_gebouw g,
+ (SELECT * FROM alg_onrgoedkenmerk
+ WHERE alg_kenmerk_key = 1080
+ AND alg_onrgoedkenmerk_verwijder IS NULL) zijde,
+ (SELECT * FROM fac_usrdata
+ WHERE fac_usrtab_key = 281) ud
+ WHERE sk.alg_ruimte_key = rg.alg_ruimte_key
+ AND g.alg_gebouw_key = rg.alg_gebouw_key
+ AND zijde.alg_onrgoed_key(+) = rg.alg_ruimte_key
+ AND ud.fac_usrdata_key(+) = fac.safe_to_number(zijde.alg_onrgoedkenmerk_waarde)
+ AND NOT EXISTS (
+ SELECT 1
+ FROM cnt_contract c,
+ cnt_kenmerkcontract kc
+ WHERE c.ins_discipline_key = 55
+ AND c.cnt_contract_looptijd_tot >= v_datum_van
+ AND c.cnt_contract_looptijd_van <= v_datum_tot
+ AND kc.cnt_contract_key = c.cnt_contract_key
+ AND kc.cnt_kenmerk_key = 1
+ AND fac.safe_to_number(kc.cnt_kenmerkcontract_waarde) = rg.alg_ruimte_key);
+ END;
END nybu;
/
@@ -1114,7 +1239,7 @@ AS
CREATE OR REPLACE PROCEDURE nybu_import_crm (p_import_key IN NUMBER)
IS
c_fielddelimitor VARCHAR2 (1) := ';';
- c_headerline VARCHAR (1000) := 'Enrollment;Contact Number (Participant);Last Name (Participant);First Name Used (Participant);Initials (Participant);Infix (Participant);Gender (Participant);Private Address: Street 1 (Participant);Private Address: Street 2 (Participant);Private Address: ZIP/Postal Code (Participant);Private Address: City (Participant);Private Address: Country (Participant);Private E-mail (Participant);Participant Number (Participant);Birthday (Participant);Applicant For (Program);Applicant For (Group)';
+ c_headerline VARCHAR (1000) := 'Enrollment;Contact Number (Participant);Last Name (Participant);First Name Used (Participant);Initials (Participant);Infix (Participant);Gender (Participant);Private 3: Street 1 (Participant);Private Address: Street 2 (Participant);Private Address: ZIP/Postal Code (Participant);Private Address: City (Participant);Private Address: Country (Participant);Private E-mail (Participant);Mobile Phone (Participant);Private Phone (Participant);Participant Number (Participant);Birthday (Participant);Applicant For (Program);Applicant For (Group)';
v_newline VARCHAR2 (1000); -- Input line
v_header VARCHAR2 (1000);
v_aanduiding VARCHAR2 (200);
@@ -1140,6 +1265,8 @@ IS
v_adres_prive_plaats VARCHAR2(256);
v_adres_prive_land VARCHAR2(256);
v_prs_perslid_email VARCHAR2(256);
+ v_prs_perslid_mobiel VARCHAR2(256);
+ v_prs_perslid_telnr VARCHAR2(256);
v_prs_perslid_nr VARCHAR2(256);
v_geboortedatum VARCHAR2(256);
v_prs_afdeling_omschrijving VARCHAR2(256);
@@ -1184,6 +1311,8 @@ BEGIN
fac.imp_getfield (v_newline, c_fielddelimitor, v_adres_prive_plaats); -- Private Address: City (Participant)
fac.imp_getfield (v_newline, c_fielddelimitor, v_adres_prive_land); -- Private Address: Country (Participant)
fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_email); -- Private E-mail (Participant)
+ fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_mobiel); -- Mobile Phone (Participant)
+ fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_telnr); -- Private Phone (Participant)
fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_nr); -- Participant Number (Participant)
fac.imp_getfield (v_newline, c_fielddelimitor, v_geboortedatum); -- Birthday (Participant)
fac.imp_getfield (v_newline, c_fielddelimitor, v_dummy); -- Applicant For (Program)
@@ -1323,6 +1452,36 @@ BEGIN
|| ']');
END IF;
+ v_errorhint := 'Mobiel nr';
+ v_prs_perslid_mobiel := TRIM ( REPLACE (v_prs_perslid_mobiel, ' ', '') );
+
+ IF LENGTH (v_prs_perslid_mobiel) > 15
+ THEN
+ v_prs_perslid_mobiel := SUBSTR (v_prs_perslid_mobiel, 1, 15);
+ fac.imp_writelog (
+ p_import_key,
+ 'W',
+ v_aanduiding || v_errorhint,
+ 'Mobiel nr wordt afgebroken tot ['
+ || v_prs_perslid_mobiel
+ || ']');
+ END IF;
+
+ v_errorhint := 'Telefoonnr';
+ v_prs_perslid_telnr := TRIM ( REPLACE (v_prs_perslid_telnr, ' ', '') );
+
+ IF LENGTH (v_prs_perslid_telnr) > 15
+ THEN
+ v_prs_perslid_telnr := SUBSTR (v_prs_perslid_telnr, 1, 15);
+ fac.imp_writelog (
+ p_import_key,
+ 'W',
+ v_aanduiding || v_errorhint,
+ 'Telefoonnr wordt afgebroken tot ['
+ || v_prs_perslid_telnr
+ || ']');
+ END IF;
+
-- Insert geformatteerde import record
IF v_ongeldig = 0
THEN
@@ -1343,6 +1502,8 @@ BEGIN
adres_prive_plaats,
adres_prive_land,
prs_perslid_email,
+ prs_perslid_mobiel,
+ prs_perslid_telefoonnr,
prs_perslid_nr,
geboortedatum,
prs_afdeling_omschrijving
@@ -1360,6 +1521,8 @@ BEGIN
v_adres_prive_plaats,
v_adres_prive_land,
v_prs_perslid_email,
+ v_prs_perslid_mobiel,
+ v_prs_perslid_telnr,
v_prs_perslid_nr,
v_geboortedatum,
v_prs_afdeling_omschrijving
@@ -1496,14 +1659,29 @@ IS
adres_prive_plaats,
adres_prive_land,
prs_perslid_email,
+ prs_perslid_mobiel,
+ prs_perslid_telefoonnr,
prs_perslid_nr,
TO_DATE(geboortedatum, 'DD-MM-YYYY') geboortedatum,
prs_afdeling_omschrijving
--- prs_perslid_telefoonnr,
--- prs_perslid_mobiel
FROM nybu_imp_crm
WHERE contact_nr IS NOT NULL;
+ FUNCTION hasKenmerk(p_perslid_key IN NUMBER, p_kenmerk_key IN NUMBER) RETURN BOOLEAN
+ IS
+ v_result NUMBER;
+ BEGIN
+ SELECT COUNT(*)
+ INTO v_result
+ FROM prs_kenmerklink
+ WHERE prs_link_key = p_perslid_key
+ AND prs_kenmerk_key = p_kenmerk_key
+ AND prs_kenmerklink_niveau = 'P'
+ AND prs_kenmerklink_verwijder IS NULL;
+
+ RETURN v_result > 0;
+ END;
+
BEGIN
v_errorhint := 'Fout bij bepalen functie';
@@ -1587,11 +1765,11 @@ BEGIN
prs_perslid_voorletters,
prs_perslid_geslacht,
prs_perslid_email,
+ prs_perslid_mobiel,
+ prs_perslid_telefoonnr,
prs_perslid_nr,
prs_afdeling_key,
prs_srtperslid_key)
--- prs_perslid_telefoonnr,
--- prs_perslid_mobiel)
VALUES ('PRS',
v_perslid_naam,
recstudent.prs_perslid_tussenvoegsel,
@@ -1599,11 +1777,11 @@ BEGIN
recstudent.prs_perslid_initialen,
recstudent.prs_perslid_geslacht,
recstudent.prs_perslid_email,
+ recstudent.prs_perslid_mobiel,
+ recstudent.prs_perslid_telefoonnr,
recstudent.prs_perslid_nr,
v_afdeling_key,
v_srtperslid_key)
--- recstudent.prs_perslid_telefoonnr,
--- recstudent.prs_perslid_mobiel)
RETURNING prs_perslid_key
INTO v_perslid_key;
@@ -1626,6 +1804,11 @@ BEGIN
v_errorhint := 'Fout zetten geboortedatum';
prs.upsertkenmerk(c_birthday_key, v_perslid_key, TO_CHAR(recstudent.geboortedatum, 'DD-MM-YYYY') );
+ fac.imp_writelog(p_import_key,
+ 'I',
+ 'Persoon toegevoegd',
+ v_aanduiding);
+
--TODO: voeg persoon toe op standaardwerkplek (xxx-0-999)
ELSE
IF (v_count > 1)
@@ -1641,35 +1824,63 @@ BEGIN
-- TODO: coalesce's voor velden die nog niet overschreven moeten worden.
UPDATE prs_perslid
- SET prs_perslid_naam = v_perslid_naam,
- prs_perslid_tussenvoegsel = recstudent.prs_perslid_tussenvoegsel,
- prs_perslid_voornaam = recstudent.prs_perslid_voornaam,
- prs_perslid_initialen = recstudent.prs_perslid_initialen,
- prs_perslid_geslacht = recstudent.prs_perslid_geslacht,
- prs_perslid_email = recstudent.prs_perslid_email,
- prs_perslid_nr = recstudent.prs_perslid_nr,
- prs_afdeling_key = v_afdeling_key,
- prs_srtperslid_key = v_srtperslid_key
--- prs_perslid_telefoonnr = recstudent.prs_perslid_telefoonnr,
--- prs_perslid_mobiel = recstudent.prs_perslid_mobiel
+ SET prs_perslid_naam = COALESCE(prs_perslid_naam, v_perslid_naam),
+ prs_perslid_tussenvoegsel = COALESCE(prs_perslid_tussenvoegsel, recstudent.prs_perslid_tussenvoegsel),
+ prs_perslid_voornaam = COALESCE(prs_perslid_voornaam, recstudent.prs_perslid_voornaam),
+ prs_perslid_initialen = COALESCE(prs_perslid_initialen, recstudent.prs_perslid_initialen),
+ prs_perslid_geslacht = COALESCE(prs_perslid_geslacht, recstudent.prs_perslid_geslacht),
+ prs_perslid_email = COALESCE(prs_perslid_email, recstudent.prs_perslid_email),
+ prs_perslid_telefoonnr = COALESCE(prs_perslid_telefoonnr, recstudent.prs_perslid_telefoonnr),
+ prs_perslid_mobiel = COALESCE(prs_perslid_mobiel, recstudent.prs_perslid_mobiel),
+ prs_perslid_nr = COALESCE(prs_perslid_nr, recstudent.prs_perslid_nr),
+ prs_afdeling_key = COALESCE(prs_afdeling_key, v_afdeling_key),
+ prs_srtperslid_key = COALESCE(prs_srtperslid_key, v_srtperslid_key)
WHERE prs_perslid_key = v_perslid_key;
-- Kenmerken: adres (straat1, straat2, postcode, plaats, land)
v_errorhint := 'Fout zetten adresregel 1';
- prs.upsertkenmerk(c_address_street1_key, v_perslid_key, recstudent.adres_prive_straat1);
+ IF (NOT hasKenmerk(v_perslid_key, c_address_street1_key) )
+ THEN
+ prs.upsertkenmerk(c_address_street1_key, v_perslid_key, recstudent.adres_prive_straat1);
+ END IF;
+
v_errorhint := 'Fout zetten adresregel 2';
- prs.upsertkenmerk(c_address_street2_key, v_perslid_key, recstudent.adres_prive_straat2);
+ IF (NOT hasKenmerk(v_perslid_key, c_address_street2_key) )
+ THEN
+ prs.upsertkenmerk(c_address_street2_key, v_perslid_key, recstudent.adres_prive_straat2);
+ END IF;
+
v_errorhint := 'Fout zetten postcode';
- prs.upsertkenmerk(c_address_zip_key, v_perslid_key, recstudent.adres_prive_postcode);
+ IF (NOT hasKenmerk(v_perslid_key, c_address_zip_key) )
+ THEN
+ prs.upsertkenmerk(c_address_zip_key, v_perslid_key, recstudent.adres_prive_postcode);
+ END IF;
+
v_errorhint := 'Fout zetten plaats';
- prs.upsertkenmerk(c_address_city_key, v_perslid_key, recstudent.adres_prive_plaats);
+ IF (NOT hasKenmerk(v_perslid_key, c_address_city_key) )
+ THEN
+ prs.upsertkenmerk(c_address_city_key, v_perslid_key, recstudent.adres_prive_plaats);
+ END IF;
+
v_errorhint := 'Fout zetten land';
- prs.upsertkenmerk(c_address_country_key, v_perslid_key, recstudent.adres_prive_land);
+ IF (NOT hasKenmerk(v_perslid_key, c_address_country_key) )
+ THEN
+ prs.upsertkenmerk(c_address_country_key, v_perslid_key, recstudent.adres_prive_land);
+ END IF;
+
-- Kenmerk: geboortedatum
v_errorhint := 'Fout zetten geboortedatum';
- prs.upsertkenmerk(c_birthday_key, v_perslid_key, TO_CHAR(recstudent.geboortedatum, 'DD-MM-YYYY') );
+ IF (NOT hasKenmerk(v_perslid_key, c_birthday_key) )
+ THEN
+ prs.upsertkenmerk(c_birthday_key, v_perslid_key, TO_CHAR(recstudent.geboortedatum, 'DD-MM-YYYY') );
+ END IF;
- --TODO: als nog geen werkplek, dan standaardwerkplek?
+ fac.imp_writelog(p_import_key,
+ 'I',
+ 'Persoonsgegevens aangevuld',
+ v_aanduiding);
+
+ --TODO: als nog geen werkplek, dan standaardwerkplek?
END IF;
EXCEPTION
@@ -2000,13 +2211,13 @@ AS
AND p.prs_srtperslid_key = 1644;
-- Kenmerkdomein kamercontrolemeldingen
--- (stdmelding kamercontrole studentenkamer = 95)
+-- (stdmelding Request roomcheck (workflow) = 941)
CREATE OR REPLACE VIEW nybu_v_huur_kamercontroles
AS
- SELECT mld_melding_key||' - '||mld_melding_omschrijving oms,
+ SELECT TO_CHAR(mld_melding_key) oms,
m.*
FROM mld_melding m
- WHERE mld_stdmelding_key = 95;
+ WHERE mld_stdmelding_key = 941;
-- Kenmerkdomein huurders overige ruimtes en residenties
-- kenmerk 'Is huurder' = 1080
@@ -2070,7 +2281,9 @@ AS
kp.prs_kostenplaats_nr kpn,
SUBSTR(kg.prs_kostenplaatsgrp_oms, 1, 7) kpngrp,
r.alg_ruimte_key,
- g.alg_gebouw_naam||' '||r.alg_ruimte_nr kamer,
+ g.alg_gebouw_naam gebouw,
+ v.alg_verdieping_code verdieping,
+ r.alg_ruimte_nr kamer,
p.prs_perslid_key,
p.prs_perslid_naam achternaam,
pf.prs_perslid_naam_full naam,
@@ -2257,19 +2470,23 @@ AS
c_ud_telkosten NUMBER := 61;
-- Student room
+ -- Alle verhuurcontracten waarbij de huidige periode (deels) binnen de looptijd valt
+ -- TRUNC op maand cq LAST_DAY, omdat contracten halverwege de maand kunnen beginnen/eindigen
CURSOR sr
IS
SELECT c.*
FROM nybu_v_huurcontracten_student c
WHERE ( c.betaald_tot IS NULL
OR c.betaald_tot < p_periode)
- AND TO_DATE(p_periode, 'YYYYMM') BETWEEN c.cnt_contract_looptijd_van
- AND ADD_MONTHS(c.cnt_contract_looptijd_tot,1);
+ AND TO_DATE(p_periode, 'YYYYMM') BETWEEN TRUNC(c.cnt_contract_looptijd_van, 'MM')
+ AND TRUNC(c.cnt_contract_looptijd_tot, 'MM');
-- Residence/office
CURSOR ro
IS
SELECT c.cnt_contract_key,
+ c.cnt_contract_looptijd_van,
+ c.cnt_contract_looptijd_tot,
DECODE(c.ins_discipline_key,
c_srtcnt_residence, 'Staff residence',
c_srtcnt_office, 'Office') betreft,
@@ -2316,41 +2533,93 @@ AS
AND codanr.prs_link_key(+) = p.prs_perslid_key
AND k.prs_kostenplaats_key(+) = fac.safe_to_number(pnummer.cnt_kenmerkcontract_waarde)
AND rg.alg_ruimte_key(+) = fac.safe_to_number(ruimte.cnt_kenmerkcontract_waarde)
- AND c.cnt_contract_verwijder IS NULL;
+ AND c.cnt_contract_verwijder IS NULL
+ AND TO_DATE(p_periode, 'YYYYMM') BETWEEN TRUNC(c.cnt_contract_looptijd_van, 'MM')
+ AND TRUNC(c.cnt_contract_looptijd_tot, 'MM');
- v_curPeriode VARCHAR2(10);
+ v_periodeDate DATE;
v_periodeNaam VARCHAR2(20);
v_aantalPeriodes NUMBER;
+ v_curPeriodeDate DATE;
+ v_curPeriode VARCHAR2(10);
+ v_curPeriodeNaam VARCHAR2(20);
v_oms fac_usrdata.fac_usrdata_omschr%TYPE;
v_btw_code fac_usrdata.fac_usrdata_omschr%TYPE;
v_btw_perc fac_usrdata.fac_usrdata_code%TYPE;
v_grtbk prs_kostensoort.prs_kostensoort_refcode%TYPE;
v_kpl prs_kostenplaats.prs_kostenplaats_nr%TYPE;
v_proj prs_kostenplaats.prs_kostenplaats_nr%TYPE;
- v_huurprijs NUMBER(6,2);
- v_service NUMBER(6,2);
- v_partnercharge NUMBER(6,2);
+ v_prijsfactor NUMBER(6,5);
v_betreft VARCHAR(20);
v_refnr VARCHAR(20);
BEGIN
- -- Buffer leegmaken
+ -- Buffer en log leegmaken
DELETE nybu_huur_buffer;
+ DELETE imp_log WHERE imp_log_applicatie = p_applname;
+
+ v_periodeDate := TO_DATE(p_periode,'YYYYMM');
+ v_periodeNaam := nybu.getPeriodeNaam(p_periode, 'EN');
v_betreft := 'Campus';
FOR rec IN sr
LOOP
v_aanduiding := rec.cnt_contract_nummer_intern||'/'||rec.naam;
- -- Lopend contract? --> huur etc factureren
- IF (rec.cnt_contract_looptijd_tot >= TO_DATE(p_periode,'YYYYMM') )
+ -- Huur, servicekosten en toeslagen kunnen een X aantal maanden vooruit betaald worden
+ IF (rec.aantal_periodes > 1)
THEN
- -- Huur, servicekosten en toeslagen kunnen een X aantal maanden vooruit betaald worden
- FOR cntr IN 1..rec.aantal_periodes
- LOOP
- v_curPeriode := TO_CHAR(ADD_MONTHS(TO_DATE(p_periode, 'YYYYMM'), cntr-1), 'YYYYMM');
- v_periodeNaam := nybu.getPeriodeNaam(v_curPeriode, 'EN');
+ fac.writelog (
+ p_applname, 'I',
+ v_aanduiding || ': meerdere maanden in één keer factureren',
+ 'Aantal maanden: '||rec.aantal_periodes);
+ END IF;
+ FOR cntr IN 1..rec.aantal_periodes
+ LOOP
+ -- Voor de eerste en laatste maand wordt voor de huurprijs etc mogelijk maar
+ -- een deel doorbelast, als het contract halverwege de maand begint/eindigt.
+ -- Daarvoor een prijsfactor
+ v_prijsfactor := 1;
+
+ -- Bepaal gegevens van door-te-belasten periode (bij meerdere periodes in één keer
+ -- doorbelasten is dit steeds een maand verder)
+ v_curPeriodeDate := ADD_MONTHS(v_periodeDate, cntr-1);
+ v_curPeriode := TO_CHAR(v_curPeriodeDate, 'YYYYMM');
+ v_curPeriodeNaam := nybu.getPeriodeNaam(v_curPeriode, 'EN');
+
+ -- Lopend contract? --> huur etc factureren
+ IF (v_curPeriodeDate BETWEEN TRUNC(rec.cnt_contract_looptijd_van, 'MM')
+ AND TRUNC(rec.cnt_contract_looptijd_tot, 'MM') )
+ THEN
+ -- Is de ingangsmaand van het contract volledig, of beginnen we halverwege?
+ -- (alleen checken bij ingangsmaand contract)
+ IF (TRUNC(rec.cnt_contract_looptijd_van, 'MM') = v_curPeriodeDate)
+ THEN
+ v_prijsfactor := nybu.getPrijsFactor(rec.cnt_contract_looptijd_van, NULL, v_curPeriodeDate);
+
+ IF (v_prijsfactor != 1)
+ THEN
+ fac.writelog (
+ p_applname, 'I',
+ v_aanduiding || ': contract start halverwege '||v_curPeriodeNaam,
+ 'Prijsfactor = '||v_prijsfactor);
+ END IF;
+
+ -- Is de eindmaand van het contract volledig, of eindigen we halverwege?
+ -- (alleen checken in slotmaand contract)
+ ELSIF (TRUNC(rec.cnt_contract_looptijd_tot, 'MM') = v_curPeriodeDate)
+ THEN
+ v_prijsfactor := nybu.getPrijsFactor(NULL, rec.cnt_contract_looptijd_tot, v_curPeriodeDate);
+
+ IF (v_prijsfactor != 1)
+ THEN
+ fac.writelog (
+ p_applname, 'I',
+ v_aanduiding || ': contract eindigt halverwege '||v_curPeriodeNaam,
+ 'Prijsfactor = '||v_prijsfactor);
+ END IF;
+ END IF;
--- HUURPRIJS ---
v_errormsg := 'Archiefregel huurprijs aanmaken';
@@ -2372,13 +2641,13 @@ BEGIN
rec.achternaam, rec.naam, rec.prs_perslid_key,
rec.cnt_contract_nummer_intern, rec.cnt_contract_key,
rec.kamer, rec.alg_ruimte_key,
- oms.fac_usrdata_omschr||' '||v_periodeNaam,
+ oms.fac_usrdata_omschr||' '||v_curPeriodeNaam,
rec.kpngrp,
rec.kpn,
'19010',
btw.fac_usrdata_omschr,
fac.safe_to_number(btw.fac_usrdata_code),
- rec.huur_werkelijk
+ TRUNC(v_prijsfactor * rec.huur_werkelijk, 2)
FROM fac_usrdata oms,
fac_usrdata btw
WHERE oms.fac_usrtab_key = c_usrtab_coda_oms
@@ -2405,13 +2674,13 @@ BEGIN
rec.achternaam, rec.naam, rec.prs_perslid_key,
rec.cnt_contract_nummer_intern, rec.cnt_contract_key,
rec.kamer, rec.alg_ruimte_key,
- oms.fac_usrdata_omschr||' '||v_periodeNaam,
+ oms.fac_usrdata_omschr||' '||v_curPeriodeNaam,
rec.kpngrp,
rec.kpn,
'19010',
btw.fac_usrdata_omschr,
fac.safe_to_number(btw.fac_usrdata_code),
- rec.servicekosten_werkelijk
+ TRUNC(v_prijsfactor * rec.servicekosten_werkelijk, 2)
FROM fac_usrdata oms,
fac_usrdata btw
WHERE oms.fac_usrtab_key = c_usrtab_coda_oms
@@ -2440,13 +2709,13 @@ BEGIN
rec.achternaam, rec.naam, rec.prs_perslid_key,
rec.cnt_contract_nummer_intern, rec.cnt_contract_key,
rec.kamer, rec.alg_ruimte_key,
- oms.fac_usrdata_omschr||' '||v_periodeNaam,
+ oms.fac_usrdata_omschr||' '||v_curPeriodeNaam,
rec.kpngrp,
rec.kpn,
'19010',
btw.fac_usrdata_omschr,
fac.safe_to_number(btw.fac_usrdata_code),
- rec.partnercharge_werkelijk
+ TRUNC(v_prijsfactor * rec.partnercharge_werkelijk, 2)
FROM fac_usrdata oms,
fac_usrdata btw
WHERE oms.fac_usrtab_key = c_usrtab_coda_oms
@@ -2476,13 +2745,13 @@ BEGIN
rec.achternaam, rec.naam, rec.prs_perslid_key,
rec.cnt_contract_nummer_intern, rec.cnt_contract_key,
rec.kamer, rec.alg_ruimte_key,
- oms.fac_usrdata_omschr||' '||v_periodeNaam,
+ oms.fac_usrdata_omschr||' '||v_curPeriodeNaam,
rec.kpngrp,
rec.kpn,
'19010',
btw.fac_usrdata_omschr,
fac.safe_to_number(btw.fac_usrdata_code),
- rec.telefooncharge_werkelijk
+ TRUNC(v_prijsfactor * rec.telefooncharge_werkelijk, 2)
FROM fac_usrdata oms,
fac_usrdata btw
WHERE oms.fac_usrtab_key = c_usrtab_coda_oms
@@ -2490,240 +2759,59 @@ BEGIN
AND oms.fac_usrdata_code = 'PhoneConn';
END IF;
- END LOOP;
-
- -- Als huur vooruit betaald, dan aangeven t/m welke periode
- -- (kenmerken alleen bijwerken als we ook doorvoeren)
- IF (rec.aantal_periodes > 1 AND p_doorvoeren = 1)
- THEN
- -- We hebben nu vooruit gefactureerd; "Bill in advance" leegmaken
- UPDATE cnt_kenmerkcontract
- SET cnt_kenmerkcontract_verwijder = SYSDATE
- WHERE cnt_kenmerk_key = c_km_vooruit_betalen
- AND cnt_contract_key = rec.cnt_contract_key
- AND cnt_kenmerkcontract_verwijder IS NULL;
-
- -- Voorlopig geen facturering; "Contract paid until" vullen
- INSERT INTO cnt_kenmerkcontract
- (cnt_contract_key, cnt_kenmerk_key, cnt_kenmerkcontract_waarde)
- VALUES
- (rec.cnt_contract_key,
- c_km_betaald_tot,
- v_curPeriode);
- -- Tracking
- fac.trackaction('CNTUPD',
- rec.cnt_contract_key,
- 4, -- _FACILITOR
- NULL,
- 'Contract updated'|| chr(10) ||
- rec.aantal_periodes||' months billed in advance, until '||v_curPeriode);
ELSE
- -- (weer) normale facturering; "Contract paid until" leegmaken als gevuld
- UPDATE cnt_kenmerkcontract
- SET cnt_kenmerkcontract_verwijder = SYSDATE
- WHERE cnt_kenmerk_key = c_km_betaald_tot
- AND cnt_contract_key = rec.cnt_contract_key
- AND cnt_kenmerkcontract_verwijder IS NULL;
- END IF;
+ fac.writelog (
+ p_applname, 'W',
+ v_aanduiding || ': contract loopt niet in gegeven periode!',
+ 'Periode: '||v_curPeriodeNaam);
+ END IF; -- Lopend?
- --- BORG: Te betalen ---
- IF (rec.borg_tebetalen IS NOT NULL AND rec.borg_tebetalen != 0)
- THEN
- v_errormsg := 'Archiefregel te betalen borg aanmaken';
- -- Plaats in archief
- -- met juiste kostenplaatsen en -soorten, omschrijving
- INSERT INTO nybu_huur_buffer (
- betreft, datum_export,
- periode, isMutatie,
- deb_nr,
- achternaam, naam_full, prs_perslid_key,
- cnt_contract_nr, cnt_contract_key,
- kamer, alg_ruimte_key,
- omschrijving,
- kpn_code_afd, kpn_code_proj, prs_kostensoort_refcode, btw_code, btw_perc,
- bedrag)
- SELECT v_betreft, p_run,
- p_periode, 0,
- rec.codanr,
- rec.achternaam, rec.naam, rec.prs_perslid_key,
- rec.cnt_contract_nummer_intern, rec.cnt_contract_key,
- rec.kamer, rec.alg_ruimte_key,
- oms.fac_usrdata_omschr,
- rec.kpngrp,
- rec.kpn,
- '19140',
- btw.fac_usrdata_omschr,
- fac.safe_to_number(btw.fac_usrdata_code),
- rec.borg_tebetalen
- FROM fac_usrdata oms,
- fac_usrdata btw
- WHERE oms.fac_usrtab_key = c_usrtab_coda_oms
- AND btw.fac_usrdata_key = oms.fac_usrdata_parentkey
- AND oms.fac_usrdata_code = 'Depo';
+ END LOOP;
- -- Vinkje "Deposit billed" zetten (voor de zekerheid eerst verwijderen)
- -- (alleen bij doorvoeren)
- IF (p_doorvoeren = 1)
- THEN
- UPDATE cnt_kenmerkcontract
- SET cnt_kenmerkcontract_verwijder = SYSDATE
- WHERE cnt_kenmerk_key = c_km_borg_betaald
- AND cnt_contract_key = rec.cnt_contract_key
- AND cnt_kenmerkcontract_verwijder IS NULL;
- INSERT INTO cnt_kenmerkcontract
- (cnt_contract_key, cnt_kenmerk_key, cnt_kenmerkcontract_waarde)
- VALUES
- (rec.cnt_contract_key, c_km_borg_betaald, 1);
- --Tracking
- fac.trackaction('CNTUPD',
- rec.cnt_contract_key,
- 4, -- _FACILITOR
- NULL,
- 'Contract updated'|| chr(10) ||
- 'Deposit billed: (empty) ---> Yes');
- END IF;
- END IF;
-
- -- Contract net afgelopen? --> eindafrekening
- ELSE
- -- Terugbetalen borg
- IF (rec.borg_betaald IS NOT NULL AND rec.borg_betaald != 0)
- THEN
- v_errormsg := 'Archiefregel terugbetaling borg aanmaken';
- -- Plaats in archief
- -- met juiste kostenplaatsen en -soorten, omschrijving
- INSERT INTO nybu_huur_buffer (
- betreft, datum_export,
- periode, isMutatie,
- deb_nr,
- achternaam, naam_full, prs_perslid_key,
- cnt_contract_nr, cnt_contract_key,
- kamer, alg_ruimte_key,
- omschrijving,
- kpn_code_afd, kpn_code_proj, prs_kostensoort_refcode, btw_code, btw_perc,
- bedrag)
- SELECT v_betreft, p_run,
- p_periode, 0,
- rec.codanr,
- rec.achternaam, rec.naam, rec.prs_perslid_key,
- rec.cnt_contract_nummer_intern, rec.cnt_contract_key,
- rec.kamer, rec.alg_ruimte_key,
- oms.fac_usrdata_omschr,
- rec.kpngrp,
- rec.kpn,
- '19140',
- btw.fac_usrdata_omschr,
- fac.safe_to_number(btw.fac_usrdata_code),
- -rec.borg_betaald
- FROM fac_usrdata oms,
- fac_usrdata btw
- WHERE oms.fac_usrtab_key = c_usrtab_coda_oms
- AND btw.fac_usrdata_key = oms.fac_usrdata_parentkey
- AND oms.fac_usrdata_code = 'DepoRefund';
- END IF;
-
- -- Kamercontrole (resulteert mogelijk in schadebedrag)
- IF (rec.schadebedrag IS NOT NULL AND rec.schadebedrag != 0)
- THEN
- v_errormsg := 'Archiefregel inhouding schadebedrag aanmaken';
- -- Plaats in archief
- -- met juiste kostenplaatsen en -soorten, omschrijving
- INSERT INTO nybu_huur_buffer (
- betreft, datum_export,
- periode, isMutatie,
- deb_nr,
- achternaam, naam_full, prs_perslid_key,
- cnt_contract_nr, cnt_contract_key,
- kamer, alg_ruimte_key,
- omschrijving,
- kpn_code_afd, kpn_code_proj, prs_kostensoort_refcode, btw_code, btw_perc,
- bedrag)
- SELECT v_betreft, p_run,
- p_periode, 0,
- rec.codanr,
- rec.achternaam, rec.naam, rec.prs_perslid_key,
- rec.cnt_contract_nummer_intern, rec.cnt_contract_key,
- rec.kamer, rec.alg_ruimte_key,
- oms.fac_usrdata_omschr,
- rec.kpngrp,
- rec.kpn,
- '19010',
- btw.fac_usrdata_omschr,
- fac.safe_to_number(btw.fac_usrdata_code),
- rec.schadebedrag
- FROM fac_usrdata oms,
- fac_usrdata btw
- WHERE oms.fac_usrtab_key = c_usrtab_coda_oms
- AND btw.fac_usrdata_key = oms.fac_usrdata_parentkey
- AND oms.fac_usrdata_code = 'EndClean'; -- TODO: end cleaning != schade
- END IF;
- END IF; -- Lopend?
-
- --- REFUND: Eenmalig(!) aan de huurder terug te betalen bedrag ---
- IF (rec.refund IS NOT NULL AND rec.refund != 0)
+ -- Als huur vooruit betaald, dan aangeven t/m welke periode
+ -- (kenmerken alleen bijwerken als we ook doorvoeren)
+ IF (rec.aantal_periodes > 1 AND p_doorvoeren = 1)
THEN
- v_errormsg := 'Archiefregel te betalen borg aanmaken';
- -- Plaats in archief
- -- met juiste kostenplaatsen en -soorten, omschrijving
- INSERT INTO nybu_huur_buffer (
- betreft, datum_export,
- periode, isMutatie,
- deb_nr,
- achternaam, naam_full, prs_perslid_key,
- cnt_contract_nr, cnt_contract_key,
- kamer, alg_ruimte_key,
- omschrijving,
- kpn_code_afd, kpn_code_proj, prs_kostensoort_refcode, btw_code, btw_perc,
- bedrag)
- SELECT v_betreft, p_run,
- p_periode, 0,
- rec.codanr,
- rec.achternaam, rec.naam, rec.prs_perslid_key,
- rec.cnt_contract_nummer_intern, rec.cnt_contract_key,
- rec.kamer, rec.alg_ruimte_key,
- oms.fac_usrdata_omschr,
- rec.kpngrp,
- rec.kpn,
- '19010',
- btw.fac_usrdata_omschr,
- fac.safe_to_number(btw.fac_usrdata_code),
- -rec.refund
- FROM fac_usrdata oms,
- fac_usrdata btw
- WHERE oms.fac_usrtab_key = c_usrtab_coda_oms
- AND btw.fac_usrdata_key = oms.fac_usrdata_parentkey
- AND oms.fac_usrdata_code = 'Refund';
+ -- We hebben nu vooruit gefactureerd; "Bill in advance" leegmaken
+ UPDATE cnt_kenmerkcontract
+ SET cnt_kenmerkcontract_verwijder = SYSDATE
+ WHERE cnt_kenmerk_key = c_km_vooruit_betalen
+ AND cnt_contract_key = rec.cnt_contract_key
+ AND cnt_kenmerkcontract_verwijder IS NULL;
- --Betaling is eenmalig; flexveld leegmaken
- -- (alleen bij doorvoeren)
- IF (p_doorvoeren = 1)
- THEN
- UPDATE cnt_kenmerkcontract
- SET cnt_kenmerkcontract_verwijder = SYSDATE
- WHERE cnt_kenmerk_key = c_km_refund
- AND cnt_contract_key = rec.cnt_contract_key
- AND cnt_kenmerkcontract_verwijder IS NULL;
- --Tracking
- fac.trackaction('CNTUPD',
- rec.cnt_contract_key,
- 4, -- _FACILITOR
- NULL,
- 'Contract updated'|| chr(10) ||
- 'Refund: '||TO_CHAR(rec.refund)||' --> (deleted)');
- END IF;
+ -- Voorlopig geen facturering; "Contract paid until" vullen
+ INSERT INTO cnt_kenmerkcontract
+ (cnt_contract_key, cnt_kenmerk_key, cnt_kenmerkcontract_waarde)
+ VALUES
+ (rec.cnt_contract_key,
+ c_km_betaald_tot,
+ v_curPeriode);
+ -- Tracking
+ fac.trackaction('CNTUPD',
+ rec.cnt_contract_key,
+ 4, -- _FACILITOR
+ NULL,
+ 'Contract updated'|| chr(10) ||
+ rec.aantal_periodes||' months billed in advance, until '||v_curPeriode);
+ ELSE
+ -- (weer) normale facturering; "Contract paid until" leegmaken als gevuld
+ UPDATE cnt_kenmerkcontract
+ SET cnt_kenmerkcontract_verwijder = SYSDATE
+ WHERE cnt_kenmerk_key = c_km_betaald_tot
+ AND cnt_contract_key = rec.cnt_contract_key
+ AND cnt_kenmerkcontract_verwijder IS NULL;
END IF;
END LOOP;
COMMIT;
- --TODO: hier nog iets met refunds doen? Vooruit betaalde contracten worden nu
- -- genegeerd bij het genereren van factuurregels.
-
+ -- Residences & offices
FOR rec IN ro
LOOP
v_aanduiding := rec.cnt_contract_key||'/'||rec.prs_perslid_naam||'/'||rec.alg_ruimte_aanduiding;
v_betreft := rec.betreft;
v_refnr := COALESCE(rec.prs_kostenplaats_nr, rec.codanr);
+ v_prijsfactor := 1;
v_errormsg := 'Archiefregels huur aanmaken';
-- Plaats in archief
@@ -2751,7 +2839,8 @@ BEGIN
'19010',
sk.cnt_srtkenmerk_dimensie,
fac.safe_to_number(ud.fac_usrdata_code),
- fac.safe_to_number(kc.cnt_kenmerkcontract_waarde)
+ nybu.getPrijsFactor(rec.cnt_contract_looptijd_van, rec.cnt_contract_looptijd_tot, v_periodeDate)
+ * fac.safe_to_number(kc.cnt_kenmerkcontract_waarde)
--fac.safe_to_number(kc.cnt_kenmerkcontract_waarde) / (1+fac.safe_to_number(ud.fac_usrdata_code)/100)
FROM cnt_kenmerkcontract kc,
cnt_kenmerk k,
@@ -2819,11 +2908,11 @@ AS
-- Bedragen zijn incl BTW
CURSOR c_deb
IS
- SELECT deb_nr, achternaam, SUM(bedrag) bedrag
+ SELECT deb_nr, achternaam, SUM(bedrag) bedrag, betreft
FROM nybu_huur_buffer
WHERE naar_coda IS NULL
AND deb_nr NOT LIKE 'P%'
- GROUP BY deb_nr, achternaam
+ GROUP BY deb_nr, achternaam, betreft
ORDER BY deb_nr;
-- Factuurregels voor deze factuur
@@ -2843,7 +2932,8 @@ AS
SUBSTR(kg.prs_kostenplaatsgrp_oms, 1, 7) kpn_grp,
kpn_code_afd,
kpn_code_proj,
- SUM(bedrag/(1+btw_perc/100)) bedrag
+ SUM(bedrag/(1+btw_perc/100)) bedrag,
+ betreft
FROM nybu_huur_buffer ha,
prs_v_aanwezigkostenplaats ak,
prs_kostenplaatsgrp kg
@@ -2851,12 +2941,13 @@ AS
AND deb_nr LIKE 'P%'
AND ak.prs_kostenplaats_nr = deb_nr
AND kg.prs_kostenplaatsgrp_key = ak.prs_kostenplaatsgrp_key
- GROUP BY deb_nr, achternaam, prs_kostenplaatsgrp_oms, kpn_code_afd, kpn_code_proj
+ GROUP BY deb_nr, achternaam, prs_kostenplaatsgrp_oms, kpn_code_afd, kpn_code_proj, betreft
ORDER BY deb_nr;
v_teller NUMBER;
v_rap_count NUMBER;
v_run DATE;
+ v_lastPeriode VARCHAR(6);
v_periode VARCHAR(6);
v_periodeNaam VARCHAR2(20);
v_last_period VARCHAR(6);
@@ -2867,9 +2958,12 @@ BEGIN
v_aanduiding := 'Init';
v_errormsg := 'Periode bepalen';
- -- Deze export gaat over de huur voor volgende maand (periode = huidige maand + 1)
+ -- Deze export gaat over de huur voor volgende maand (periode = laatste export + 1)
v_run := TO_DATE(p_applrun, 'DD-MM-YYYY HH24:MI:SS');
- v_periode := TO_CHAR(ADD_MONTHS(v_run, 1), 'YYYYMM');
+ SELECT MAX(periode)
+ INTO v_lastPeriode
+ FROM nybu_huur_archief;
+ v_periode := TO_CHAR(ADD_MONTHS(TO_DATE(v_lastPeriode, 'YYYYMM'), 1), 'YYYYMM');
v_periodeNaam := nybu.getPeriodeNaam(v_periode, 'EN');
-- Is deze periode al geëxporteerd?
@@ -2926,9 +3020,9 @@ BEGIN
WHEN rec.bedrag >= 0 THEN 'D;'
END ||
';' ||
- 'Campus '||v_periodeNaam||' '||rec.achternaam ||';'||
+ rec.betreft||' '||v_periodeNaam||' '||rec.achternaam ||';'||
'Summary;' ||
- 'K91210;' ||
+ 'K91200;' ||
'P991210',
0);
@@ -3012,7 +3106,7 @@ BEGIN
WHEN rec.bedrag >= 0 THEN 'D;'
END ||
';' ||
- 'Campus '||v_periodeNaam||' '||rec.achternaam ||';'||
+ rec.betreft||' '||v_periodeNaam||' '||rec.achternaam ||';'||
';' ||
';' ||
'',
@@ -3042,7 +3136,7 @@ BEGIN
WHEN rec.bedrag >= 0 THEN 'C;'
END ||
';' ||
- 'Campus '||v_periodeNaam||' '||rec.achternaam ||';'||
+ rec.betreft||' '||v_periodeNaam||' '||rec.achternaam ||';'||
';' ||
';' ||
'',
@@ -3106,11 +3200,11 @@ AS
-- Bedragen zijn incl BTW
CURSOR c_deb
IS
- SELECT deb_nr, achternaam, SUM(bedrag) bedrag
+ SELECT deb_nr, achternaam, SUM(bedrag) bedrag, betreft
FROM nybu_huur_archief
WHERE naar_coda IS NULL
AND deb_nr NOT LIKE 'P%'
- GROUP BY deb_nr, achternaam
+ GROUP BY deb_nr, achternaam, betreft
ORDER BY deb_nr;
-- Factuurregels voor deze factuur
@@ -3130,7 +3224,8 @@ AS
SUBSTR(kg.prs_kostenplaatsgrp_oms, 1, 7) kpn_grp,
kpn_code_afd,
kpn_code_proj,
- SUM(bedrag/(1+btw_perc/100)) bedrag
+ SUM(bedrag/(1+btw_perc/100)) bedrag,
+ betreft
FROM nybu_huur_archief ha,
prs_v_aanwezigkostenplaats ak,
prs_kostenplaatsgrp kg
@@ -3138,12 +3233,13 @@ AS
AND deb_nr LIKE 'P%'
AND ak.prs_kostenplaats_nr = deb_nr
AND kg.prs_kostenplaatsgrp_key = ak.prs_kostenplaatsgrp_key
- GROUP BY deb_nr, achternaam, prs_kostenplaatsgrp_oms, kpn_code_afd, kpn_code_proj
+ GROUP BY deb_nr, achternaam, prs_kostenplaatsgrp_oms, kpn_code_afd, kpn_code_proj, betreft
ORDER BY deb_nr;
v_teller NUMBER;
v_rap_count NUMBER;
v_run DATE;
+ v_lastPeriode VARCHAR(6);
v_periode VARCHAR(6);
v_periodeNaam VARCHAR2(20);
v_last_period VARCHAR(6);
@@ -3154,9 +3250,12 @@ BEGIN
v_aanduiding := 'Init';
v_errormsg := 'Periode bepalen';
- -- Deze export gaat over de huur voor volgende maand (periode = huidige maand + 1)
+ -- Deze export gaat over de huur voor volgende maand (periode = laatste export + 1)
v_run := TO_DATE(p_applrun, 'DD-MM-YYYY HH24:MI:SS');
- v_periode := TO_CHAR(ADD_MONTHS(v_run, 1), 'YYYYMM');
+ SELECT MAX(periode)
+ INTO v_lastPeriode
+ FROM nybu_huur_archief;
+ v_periode := TO_CHAR(ADD_MONTHS(TO_DATE(v_lastPeriode, 'YYYYMM'), 1), 'YYYYMM');
v_periodeNaam := nybu.getPeriodeNaam(v_periode, 'EN');
-- Is deze periode al geëxporteerd?
@@ -3213,9 +3312,9 @@ BEGIN
WHEN rec.bedrag >= 0 THEN 'D;'
END ||
';' ||
- 'Campus '||v_periodeNaam||' '||rec.achternaam ||';'||
+ rec.betreft||' '||v_periodeNaam||' '||rec.achternaam ||';'||
'Summary;' ||
- 'K91210;' ||
+ 'K91200;' ||
'P991210',
0);
@@ -3299,7 +3398,7 @@ BEGIN
WHEN rec.bedrag >= 0 THEN 'D;'
END ||
';' ||
- 'Campus '||v_periodeNaam||' '||rec.achternaam ||';'||
+ rec.betreft||' '||v_periodeNaam||' '||rec.achternaam ||';'||
';' ||
';' ||
'',
@@ -3329,7 +3428,7 @@ BEGIN
WHEN rec.bedrag >= 0 THEN 'C;'
END ||
';' ||
- 'Campus '||v_periodeNaam||' '||rec.achternaam ||';'||
+ rec.betreft||' '||v_periodeNaam||' '||rec.achternaam ||';'||
';' ||
';' ||
'',
@@ -3597,7 +3696,7 @@ END nybu_select_huur_mutaties;
-- Toont de inhoud van de factuurbuffer (voor controle van gegenereerde factuurregels
CREATE OR REPLACE VIEW nybu_v_rap_factuur_buffer
AS
- SELECT h.periode,
+ SELECT h.periode fclt_f_periode,
h.betreft fclt_f_betreft,
h.deb_nr fclt_f_debiteurnr,
DECODE(h.prs_perslid_key,
@@ -3617,15 +3716,17 @@ AS
|| ''
html_contract,
h.cnt_contract_nr fclt_x_contract,
+ g.alg_gebouw_naam fclt_f_gebouw,
+ v.alg_verdieping_code fclt_f_verdieping,
DECODE(h.cnt_contract_key,
NULL, NULL,
''
- || htf.escape_sc(h.kamer)
+ || htf.escape_sc(r.alg_ruimte_nr)
|| '')
html_kamer,
- h.kamer fclt_x_kamer,
+ r.alg_ruimte_nr fclt_x_kamer,
sr.alg_srtruimte_omschrijving kamertype,
h.omschrijving fclt_f_omschrijving, -- TODO; alleen kernwoord ("rent", "service costs") eruit pikken
h.bedrag,
@@ -3636,18 +3737,22 @@ AS
cnt_contract c,
alg_ruimte r,
alg_srtruimte sr,
+ alg_verdieping v,
+ alg_gebouw g,
prs_perslid p,
prs_v_aanwezigafdeling a
WHERE c.cnt_contract_key = h.cnt_contract_key
AND r.alg_ruimte_key(+) = h.alg_ruimte_key
AND sr.alg_srtruimte_key(+) = r.alg_srtruimte_key
+ AND v.alg_verdieping_key(+) = r.alg_verdieping_key
+ AND g.alg_gebouw_key(+) = v.alg_gebouw_key
AND p.prs_perslid_key(+) = h.prs_perslid_key
AND a.prs_afdeling_key(+) = p.prs_afdeling_key;
-- Toont de inhoud van het factuurarchief (huurarchief)
CREATE OR REPLACE VIEW nybu_v_rap_factuur_archief
AS
- SELECT h.periode,
+ SELECT h.periode fclt_f_periode,
h.betreft fclt_f_betreft,
h.deb_nr fclt_f_debiteurnr,
DECODE(h.prs_perslid_key,
@@ -3667,15 +3772,17 @@ AS
|| ''
html_contract,
h.cnt_contract_nr fclt_x_contract,
+ g.alg_gebouw_naam fclt_f_gebouw,
+ v.alg_verdieping_code fclt_f_verdieping,
DECODE(h.cnt_contract_key,
NULL, NULL,
''
- || htf.escape_sc(h.kamer)
+ || htf.escape_sc(r.alg_ruimte_nr)
|| '')
html_kamer,
- h.kamer fclt_x_kamer,
+ r.alg_ruimte_nr fclt_x_kamer,
sr.alg_srtruimte_omschrijving kamertype,
h.omschrijving fclt_f_omschrijving, -- TODO; alleen kernwoord ("rent", "service costs") eruit pikken
h.bedrag,
@@ -3689,11 +3796,15 @@ AS
cnt_contract c,
alg_ruimte r,
alg_srtruimte sr,
+ alg_verdieping v,
+ alg_gebouw g,
prs_perslid p,
prs_v_aanwezigafdeling a
WHERE c.cnt_contract_key = h.cnt_contract_key
AND r.alg_ruimte_key(+) = h.alg_ruimte_key
AND sr.alg_srtruimte_key(+) = r.alg_srtruimte_key
+ AND v.alg_verdieping_key(+) = r.alg_verdieping_key
+ AND g.alg_gebouw_key(+) = v.alg_gebouw_key
AND p.prs_perslid_key(+) = h.prs_perslid_key
AND a.prs_afdeling_key(+) = p.prs_afdeling_key;
@@ -3720,6 +3831,8 @@ AS
html_naam,
codanr fclt_f_debiteur,
naam fclt_x_naam,
+ gebouw fclt_f_gebouw,
+ verdieping fclt_f_verdieping,
''
@@ -3741,43 +3854,470 @@ AS
partnercharge_werkelijk partnertoeslag,
huur_werkelijk + servicekosten_werkelijk + partnercharge_werkelijk huurprijs
FROM nybu_v_huurcontracten_student c
- WHERE SYSDATE < cnt_contract_looptijd_tot
--- AND COALESCE(cnt_contract_versie, 'apekool') =
--- COALESCE( (SELECT MAX(cnt_contract_versie)
--- FROM cnt_contract
--- WHERE cnt_contract_nummer_intern = c.cnt_contract_nummer_intern),
--- 'apekool')
-;
+ WHERE SYSDATE < cnt_contract_looptijd_tot;
--- Overzicht van beschikbare studentenkamers (geen huidig/toekomstig contract)
--- contractsoort "Student room" = 55
--- flexkenmerk "Student room" = 1
-CREATE OR REPLACE VIEW nybu_v_rap_vrije_kamers
+
+--"Campuslijst: Studenten adressen huidig bestand: naam, lichting, kamernummer, telefoonnummerkamer en mobielnummer."
+-- srtperslid "Student" 1537
+-- alg_kenmerk "Telephone number" 1040
+-- cnt_kenmerk "Tenant" 81
+-- cnt_kenmerk "Student room" 1
+CREATE OR REPLACE VIEW nybu_v_rap_campuslijst
AS
- SELECT rg.alg_ruimte_nr hide_f_sort,
- rg.alg_gebouw_omschrijving fclt_f_gebouw,
- rg.alg_verdieping_volgnr fclt_x_verdieping,
- rg.alg_ruimte_nr fclt_x_kamer,
- ''
- || htf.escape_sc(rg.alg_ruimte_nr)
- || ''
- html_kamer,
- rg.alg_srtruimte_omschrijving fclt_f_type
- FROM nybu_v_studentenkamers sk,
- alg_v_ruimte_gegevens rg
- WHERE sk.alg_ruimte_key = rg.alg_ruimte_key
- AND NOT EXISTS (
- SELECT 1
- FROM cnt_contract c,
- cnt_kenmerkcontract kc
- WHERE c.ins_discipline_key = 55
- AND c.cnt_contract_looptijd_tot > SYSDATE
- AND kc.cnt_contract_key = c.cnt_contract_key
- AND kc.cnt_kenmerk_key = 1
- AND fac.safe_to_number(kc.cnt_kenmerkcontract_waarde) = rg.alg_ruimte_key);
+ SELECT pf.prs_perslid_naam_full fclt_f_naam,
+ a.prs_afdeling_naam fclt_f_lichting,
+ g.alg_gebouw_naam fclt_f_gebouw,
+ rg.alg_verdieping_code fclt_f_verdieping,
+ rg.alg_ruimte_nr fclt_f_kamer,
+ kamtelnr.alg_onrgoedkenmerk_waarde telefoon_kamer,
+ p.prs_perslid_mobiel mobiel
+ FROM prs_perslid p,
+ prs_v_perslid_fullnames pf,
+ prs_v_aanwezigafdeling a,
+ cnt_contract c,
+ alg_v_ruimte_gegevens rg,
+ alg_gebouw g,
+ (SELECT * FROM cnt_kenmerkcontract
+ WHERE cnt_kenmerk_key = 81
+ AND cnt_kenmerkcontract_verwijder IS NULL) huurder,
+ (SELECT * FROM cnt_kenmerkcontract
+ WHERE cnt_kenmerk_key = 1
+ AND cnt_kenmerkcontract_verwijder IS NULL) studkam,
+ (SELECT * FROM alg_onrgoedkenmerk
+ WHERE alg_kenmerk_key = 1040
+ AND alg_onrgoedkenmerk_verwijder IS NULL) kamtelnr
+ WHERE pf.prs_perslid_key = p.prs_perslid_key
+ AND fac.safe_to_number(huurder.cnt_kenmerkcontract_waarde) = p.prs_perslid_key
+ AND a.prs_afdeling_key = p.prs_afdeling_key
+ AND c.cnt_contract_key = huurder.cnt_contract_key
+ AND SYSDATE BETWEEN c.cnt_contract_looptijd_van AND c.cnt_contract_looptijd_tot
+ AND studkam.cnt_contract_key = c.cnt_contract_key
+ AND rg.alg_ruimte_key = fac.safe_to_number(studkam.cnt_kenmerkcontract_waarde)
+ AND kamtelnr.alg_onrgoed_key = rg.alg_ruimte_key
+ AND g.alg_gebouw_key = rg.alg_gebouw_key;
+-- "Vertrekkerslijst incl. nieuw adres, borg, eventuele schade, te verrekenen huur (refund),
+-- debiteurnummer en bankrekeningnummer"
+-- Vertrekker = student met contract met "Contract status" = "Closed" en status = Actief (i.e. niet Gesloten)
+-- naam, adres, contractnr, debnr, borgbedrag, damages, verrekening huur ("Refund" obv dagen eerder/later weg).
+-- cnt_kenmerk "Tenant" 81
+-- cnt_kenmerk "Student room" 1
+-- cnt_kenmerk "Deposit amount" 2
+-- cnt_kenmerk "Start call of wf" 3
+-- cnt_kenmerk "Damages" 41
+-- cnt_kenmerk "Refund" 123
+-- cnt_kenmerk "Contract status" 141
+-- prs_kenmerk "Account number" 1029
+-- prs_kenmerk "IBAN" 1040
+-- prs_kenmerk "BIC" 1041
+-- prs_kenmerk "Street" 1022
+-- prs_kenmerk "Street (extra)" 1023
+-- prs_kenmerk "ZIP/Postal code" 1024
+-- prs_kenmerk "City" 1025
+-- prs_kenmerk "Country" 1026
+-- prs_kenmerk "CODA nr" 1000
+CREATE OR REPLACE VIEW nybu_v_vertrekkers
+AS
+ SELECT ROW_NUMBER() OVER (ORDER BY pf.prs_perslid_naam_full) AS nummer,
+ pf.prs_perslid_naam_full naam_full,
+ p.prs_perslid_naam,
+ p.prs_perslid_nr studentnr,
+ c.cnt_contract_nummer_intern contract,
+ g.alg_gebouw_naam gebouw,
+ rg.alg_verdieping_code verdieping,
+ rg.alg_ruimte_nr kamer,
+ TO_CHAR(c.cnt_contract_looptijd_tot, 'YYYY-MM-DD') einddatum,
+ street1.prs_kenmerklink_waarde adres,
+ street2.prs_kenmerklink_waarde adres2,
+ zip.prs_kenmerklink_waarde postcode,
+ city.prs_kenmerklink_waarde plaats,
+ country.prs_kenmerklink_waarde land,
+ fac.safe_to_number(borgbedr.cnt_kenmerkcontract_waarde) borg,
+ fac.safe_to_number(workflow.cnt_kenmerkcontract_waarde) workflow,
+ fac.safe_to_number(schade.cnt_kenmerkcontract_waarde) schade,
+ fac.safe_to_number(refund.cnt_kenmerkcontract_waarde) refund,
+ codanr.prs_kenmerklink_waarde debiteurnr,
+ reknr.prs_kenmerklink_waarde rekeningnr,
+ iban.prs_kenmerklink_waarde iban,
+ bic.prs_kenmerklink_waarde bic
+ FROM prs_v_perslid_fullnames pf,
+ prs_perslid p,
+ cnt_contract c,
+ alg_v_ruimte_gegevens rg,
+ alg_gebouw g,
+ (SELECT * FROM cnt_kenmerkcontract
+ WHERE cnt_kenmerk_key = 141
+ AND cnt_kenmerkcontract_verwijder IS NULL) cntstat,
+ (SELECT * FROM cnt_kenmerkcontract
+ WHERE cnt_kenmerk_key = 81
+ AND cnt_kenmerkcontract_verwijder IS NULL) huurder,
+ (SELECT * FROM cnt_kenmerkcontract
+ WHERE cnt_kenmerk_key = 1
+ AND cnt_kenmerkcontract_verwijder IS NULL) studkam,
+ (SELECT * FROM cnt_kenmerkcontract
+ WHERE cnt_kenmerk_key = 2
+ AND cnt_kenmerkcontract_verwijder IS NULL) borgbedr,
+ (SELECT * FROM cnt_kenmerkcontract
+ WHERE cnt_kenmerk_key = 3
+ AND cnt_kenmerkcontract_verwijder IS NULL) workflow,
+ (SELECT * FROM cnt_kenmerkcontract
+ WHERE cnt_kenmerk_key = 41
+ AND cnt_kenmerkcontract_verwijder IS NULL) schade,
+ (SELECT * FROM cnt_kenmerkcontract
+ WHERE cnt_kenmerk_key = 123
+ AND cnt_kenmerkcontract_verwijder IS NULL) refund,
+ (SELECT * FROM prs_kenmerklink
+ WHERE prs_kenmerk_key = 1000
+ AND prs_kenmerklink_verwijder IS NULL) codanr,
+ (SELECT * FROM prs_kenmerklink
+ WHERE prs_kenmerk_key = 1029
+ AND prs_kenmerklink_verwijder IS NULL) reknr,
+ (SELECT * FROM prs_kenmerklink
+ WHERE prs_kenmerk_key = 1140
+ AND prs_kenmerklink_verwijder IS NULL) iban,
+ (SELECT * FROM prs_kenmerklink
+ WHERE prs_kenmerk_key = 1141
+ AND prs_kenmerklink_verwijder IS NULL) bic,
+ (SELECT * FROM prs_kenmerklink
+ WHERE prs_kenmerk_key = 1022
+ AND prs_kenmerklink_verwijder IS NULL) street1,
+ (SELECT * FROM prs_kenmerklink
+ WHERE prs_kenmerk_key = 1023
+ AND prs_kenmerklink_verwijder IS NULL) street2,
+ (SELECT * FROM prs_kenmerklink
+ WHERE prs_kenmerk_key = 1024
+ AND prs_kenmerklink_verwijder IS NULL) zip,
+ (SELECT * FROM prs_kenmerklink
+ WHERE prs_kenmerk_key = 1025
+ AND prs_kenmerklink_verwijder IS NULL) city,
+ (SELECT * FROM prs_kenmerklink
+ WHERE prs_kenmerk_key = 1026
+ AND prs_kenmerklink_verwijder IS NULL) country
+ WHERE fac.safe_to_number(cntstat.cnt_kenmerkcontract_waarde) = 321
+ AND cntstat.cnt_contract_key = c.cnt_contract_key
+ AND c.cnt_contract_status = 0
+ AND NOT EXISTS (
+ SELECT 1
+ FROM cnt_contract cc,
+ cnt_kenmerkcontract kc
+ WHERE cc.cnt_contract_key != c.cnt_contract_key
+ AND cc.cnt_contract_looptijd_tot >= c.cnt_contract_looptijd_tot
+ AND cc.cnt_contract_status = 0
+ AND kc.cnt_kenmerk_key = 81
+ AND kc.cnt_contract_key = cc.cnt_contract_key
+ AND kc.cnt_kenmerkcontract_waarde = huurder.cnt_kenmerkcontract_waarde)
+ AND borgbedr.cnt_contract_key(+) = c.cnt_contract_key
+ AND workflow.cnt_contract_key(+) = c.cnt_contract_key
+ AND schade.cnt_contract_key(+) = c.cnt_contract_key
+ AND refund.cnt_contract_key(+) = c.cnt_contract_key
+ AND studkam.cnt_contract_key = c.cnt_contract_key
+ AND rg.alg_ruimte_key = fac.safe_to_number(studkam.cnt_kenmerkcontract_waarde)
+ AND g.alg_gebouw_key = rg.alg_gebouw_key
+ AND huurder.cnt_contract_key = c.cnt_contract_key
+ AND pf.prs_perslid_key = fac.safe_to_number(huurder.cnt_kenmerkcontract_waarde)
+ AND p.prs_perslid_key = pf.prs_perslid_key
+ AND codanr.prs_link_key(+) = pf.prs_perslid_key
+ AND reknr.prs_link_key(+) = pf.prs_perslid_key
+ AND iban.prs_link_key(+) = pf.prs_perslid_key
+ AND bic.prs_link_key(+) = pf.prs_perslid_key
+ AND street1.prs_link_key(+) = pf.prs_perslid_key
+ AND street2.prs_link_key(+) = pf.prs_perslid_key
+ AND zip.prs_link_key(+) = pf.prs_perslid_key
+ AND city.prs_link_key(+) = pf.prs_perslid_key
+ AND country.prs_link_key(+) = pf.prs_perslid_key;
+
+-- Lijst met nieuwkomers, die nog borg moeten betalen
+-- cnt_kenmerk "Deposit paid" 43
+CREATE OR REPLACE VIEW nybu_v_nieuwkomers
+AS
+ SELECT ROW_NUMBER() OVER (ORDER BY pf.prs_perslid_naam_full) AS nummer,
+ pf.prs_perslid_naam_full naam_full,
+ p.prs_perslid_naam,
+ p.prs_perslid_nr studentnr,
+ c.cnt_contract_nummer_intern contract,
+ g.alg_gebouw_naam gebouw,
+ rg.alg_verdieping_code verdieping,
+ rg.alg_ruimte_nr kamer,
+ TO_CHAR(c.cnt_contract_looptijd_van, 'YYYY-MM-DD') ingangsdatum,
+ street1.prs_kenmerklink_waarde adres,
+ street2.prs_kenmerklink_waarde adres2,
+ zip.prs_kenmerklink_waarde postcode,
+ city.prs_kenmerklink_waarde plaats,
+ country.prs_kenmerklink_waarde land,
+ fac.safe_to_number(borgbedr.cnt_kenmerkcontract_waarde) borg,
+ codanr.prs_kenmerklink_waarde debiteurnr,
+ reknr.prs_kenmerklink_waarde rekeningnr,
+ iban.prs_kenmerklink_waarde iban,
+ bic.prs_kenmerklink_waarde bic
+ FROM prs_v_perslid_fullnames pf,
+ prs_perslid p,
+ cnt_contract c,
+ alg_v_ruimte_gegevens rg,
+ alg_gebouw g,
+ (SELECT * FROM cnt_kenmerkcontract
+ WHERE cnt_kenmerk_key = 141
+ AND cnt_kenmerkcontract_verwijder IS NULL) cntstat,
+ (SELECT * FROM cnt_kenmerkcontract
+ WHERE cnt_kenmerk_key = 81
+ AND cnt_kenmerkcontract_verwijder IS NULL) huurder,
+ (SELECT * FROM cnt_kenmerkcontract
+ WHERE cnt_kenmerk_key = 1
+ AND cnt_kenmerkcontract_verwijder IS NULL) studkam,
+ (SELECT * FROM cnt_kenmerkcontract
+ WHERE cnt_kenmerk_key = 2
+ AND cnt_kenmerkcontract_verwijder IS NULL) borgbedr,
+ (SELECT * FROM cnt_kenmerkcontract
+ WHERE cnt_kenmerk_key = 43
+ AND cnt_kenmerkcontract_waarde != '0'
+ AND cnt_kenmerkcontract_verwijder IS NULL) borgbet,
+ (SELECT * FROM prs_kenmerklink
+ WHERE prs_kenmerk_key = 1000
+ AND prs_kenmerklink_verwijder IS NULL) codanr,
+ (SELECT * FROM prs_kenmerklink
+ WHERE prs_kenmerk_key = 1029
+ AND prs_kenmerklink_verwijder IS NULL) reknr,
+ (SELECT * FROM prs_kenmerklink
+ WHERE prs_kenmerk_key = 1140
+ AND prs_kenmerklink_verwijder IS NULL) iban,
+ (SELECT * FROM prs_kenmerklink
+ WHERE prs_kenmerk_key = 1141
+ AND prs_kenmerklink_verwijder IS NULL) bic,
+ (SELECT * FROM prs_kenmerklink
+ WHERE prs_kenmerk_key = 1022
+ AND prs_kenmerklink_verwijder IS NULL) street1,
+ (SELECT * FROM prs_kenmerklink
+ WHERE prs_kenmerk_key = 1023
+ AND prs_kenmerklink_verwijder IS NULL) street2,
+ (SELECT * FROM prs_kenmerklink
+ WHERE prs_kenmerk_key = 1024
+ AND prs_kenmerklink_verwijder IS NULL) zip,
+ (SELECT * FROM prs_kenmerklink
+ WHERE prs_kenmerk_key = 1025
+ AND prs_kenmerklink_verwijder IS NULL) city,
+ (SELECT * FROM prs_kenmerklink
+ WHERE prs_kenmerk_key = 1026
+ AND prs_kenmerklink_verwijder IS NULL) country
+ WHERE fac.safe_to_number(cntstat.cnt_kenmerkcontract_waarde) = 221
+ AND cntstat.cnt_contract_key = c.cnt_contract_key
+ AND c.cnt_contract_status = 0
+ AND NOT EXISTS (
+ SELECT 1
+ FROM cnt_contract cc,
+ cnt_kenmerkcontract kc
+ WHERE cc.cnt_contract_key != c.cnt_contract_key
+ AND cc.cnt_contract_status = 0
+ AND kc.cnt_kenmerk_key = 81
+ AND kc.cnt_contract_key = cc.cnt_contract_key
+ AND kc.cnt_kenmerkcontract_waarde = huurder.cnt_kenmerkcontract_waarde)
+ AND borgbedr.cnt_contract_key(+) = c.cnt_contract_key
+ AND borgbet.cnt_contract_key(+) = c.cnt_contract_key
+ AND fac.safe_to_number(borgbet.cnt_kenmerkcontract_waarde) IS NULL
+ AND studkam.cnt_contract_key = c.cnt_contract_key
+ AND rg.alg_ruimte_key = fac.safe_to_number(studkam.cnt_kenmerkcontract_waarde)
+ AND g.alg_gebouw_key = rg.alg_gebouw_key
+ AND huurder.cnt_contract_key = c.cnt_contract_key
+ AND pf.prs_perslid_key = fac.safe_to_number(huurder.cnt_kenmerkcontract_waarde)
+ AND p.prs_perslid_key = pf.prs_perslid_key
+ AND codanr.prs_link_key(+) = pf.prs_perslid_key
+ AND reknr.prs_link_key(+) = pf.prs_perslid_key
+ AND iban.prs_link_key(+) = pf.prs_perslid_key
+ AND bic.prs_link_key(+) = pf.prs_perslid_key
+ AND street1.prs_link_key(+) = pf.prs_perslid_key
+ AND street2.prs_link_key(+) = pf.prs_perslid_key
+ AND zip.prs_link_key(+) = pf.prs_perslid_key
+ AND city.prs_link_key(+) = pf.prs_perslid_key
+ AND country.prs_link_key(+) = pf.prs_perslid_key;
+
+-- Rapportage "HUUR: Vertrekkerslijst"
+CREATE OR REPLACE VIEW nybu_v_rap_vertrekkers
+AS
+ SELECT naam_full fclt_f_naam,
+ studentnr,
+ contract fclt_f_contract,
+ gebouw,
+ verdieping,
+ kamer fclt_f_kamer,
+ einddatum,
+ adres,
+ adres2,
+ postcode,
+ plaats,
+ land,
+ borg,
+ TO_CHAR(workflow) workflow,
+ schade,
+ refund,
+ debiteurnr,
+ rekeningnr,
+ iban,
+ bic
+ FROM nybu_v_vertrekkers;
+
+-- Rapportage "HUUR: Nieuwkomers"
+CREATE OR REPLACE VIEW nybu_v_rap_nieuwkomers
+AS
+ SELECT naam_full fclt_f_naam,
+ studentnr,
+ contract fclt_f_contract,
+ gebouw,
+ verdieping,
+ kamer fclt_f_kamer,
+ ingangsdatum,
+ adres,
+ adres2,
+ postcode,
+ plaats,
+ land,
+ borg,
+ debiteurnr,
+ rekeningnr,
+ iban,
+ bic
+ FROM nybu_v_nieuwkomers;
+
+-- CSV-export naar CODA, voor verrekening borgteruggaaf en schades etc
+CREATE OR REPLACE VIEW nybu_v_rap_borg_terug
+AS
+ SELECT nummer,
+ adm,
+ grootbk,
+ debiteurnr,
+ proj,
+ bedrag,
+ dc,
+ btw,
+ oms omschrijving,
+ regeltype,
+ ref1,
+ ref2
+ FROM ( SELECT nummer,
+ 0 idx,
+ '10' adm,
+ '13000' grootbk,
+ REPLACE(debiteurnr, 'CON', 'DC') debiteurnr,
+ NULL proj,
+ SUM( COALESCE(borg,0)
+ - COALESCE(schade,0)
+ + COALESCE(refund,0) )
+ bedrag,
+ CASE
+ WHEN SUM( COALESCE(borg,0) - COALESCE(schade,0) + COALESCE(refund,0) ) < 0
+ THEN 'D'
+ ELSE 'C'
+ END
+ dc,
+ NULL btw,
+ 'Deposit '||prs_perslid_naam oms,
+ 'Summary' regeltype,
+ 'K91200' ref1,
+ 'P991210' ref2
+ FROM nybu_v_vertrekkers
+ GROUP BY nummer, debiteurnr, prs_perslid_naam
+ UNION ALL
+ SELECT nummer,
+ 1 idx,
+ '12' adm,
+ '19010' grootbk,
+ 'K91200' debiteurnr,
+ 'P991210' proj,
+ borg bedrag,
+ CASE
+ WHEN borg > 0
+ THEN 'D'
+ ELSE 'C'
+ END
+ dc,
+ 'VV' btw,
+ 'Deposit '||prs_perslid_naam oms,
+ 'Analysis' regeltype,
+ NULL ref1,
+ NULL ref2
+ FROM nybu_v_vertrekkers
+ WHERE borg IS NOT NULL
+ AND borg > 0
+ UNION ALL
+ SELECT nummer,
+ 2 idx,
+ '12' adm,
+ '84099' grootbk,
+ 'K91200' debiteurnr,
+ 'P991210' proj,
+ schade bedrag,
+ CASE
+ WHEN schade > 0
+ THEN 'C'
+ ELSE 'D'
+ END
+ dc,
+ 'VH21' btw,
+ 'Damages/Cleaning '
+ || DECODE(workflow,
+ NULL, prs_perslid_naam,
+ '(room check N'||TO_CHAR(workflow)||')')
+ oms,
+ 'Analysis' regeltype,
+ NULL ref1,
+ NULL ref2
+ FROM nybu_v_vertrekkers
+ WHERE schade IS NOT NULL
+ AND schade > 0
+ UNION ALL
+ SELECT nummer,
+ 3 idx,
+ '12' adm,
+ '84099' grootbk,
+ 'K91200' debiteurnr,
+ 'P991210' proj,
+ refund bedrag,
+ CASE
+ WHEN refund > 0
+ THEN 'C'
+ ELSE 'D'
+ END
+ dc,
+ 'VH21' btw,
+ 'Refund '||prs_perslid_naam oms,
+ 'Analysis' regeltype,
+ NULL ref1,
+ NULL ref2
+ FROM nybu_v_vertrekkers
+ WHERE refund IS NOT NULL
+ AND refund > 0
+ ORDER BY nummer, idx);
+
+
+-- CSV-export naar CODA, voor betaling van borg door nieuwe huurders
+CREATE OR REPLACE VIEW nybu_v_rap_borg_betalen
+AS
+ SELECT nummer,
+ '10' adm,
+ '13000' grootbk,
+ REPLACE(debiteurnr, 'CON', 'DC') debiteurnr,
+ NULL proj,
+ SUM(borg) bedrag,
+ 'D' dc,
+ NULL btw,
+ 'Deposit '||prs_perslid_naam omschrijving,
+ 'Summary' regeltype,
+ 'K91200' ref1,
+ 'P991210' ref2
+ FROM nybu_v_nieuwkomers
+ GROUP BY nummer, debiteurnr, prs_perslid_naam
+ UNION ALL
+ SELECT nummer,
+ '12' adm,
+ '19010' grootbk,
+ 'K91200' debiteurnr,
+ 'P991210' proj,
+ borg bedrag,
+ 'C' dc,
+ 'VV' btw,
+ 'Deposit '||prs_perslid_naam omschrijving,
+ 'Analysis' regeltype,
+ NULL ref1,
+ NULL ref2
+ FROM nybu_v_nieuwkomers
+ ORDER BY nummer, regeltype DESC;
-- Basisview voor gestylede rapportages voor afdrukken contract en welkomstbrief
-- Veld fclt_f_tonen biedt de mogelijkheid om alleen de brief, alleen het contract, of beide af te drukken
@@ -3981,7 +4521,10 @@ AS
p.prs_perslid_nr,
pf.prs_perslid_naam_full,
wo.wpopp,
+ wg.alg_gebouw_upper,
+ wg.alg_verdieping_code,
wg.alg_ruimte_key,
+ wg.alg_ruimte_nr,
wg.alg_ruimte_aanduiding,
sr.alg_srtruimte_prijs,
kpn.prs_kostenplaats_nr,
@@ -4026,10 +4569,12 @@ AS
|| htf.escape_sc(prs_perslid_naam_full)
|| '' html_naam,
prs_kostenplaats_nr fclt_f_kostenplaats,
+ alg_gebouw_upper fclt_f_gebouw,
+ alg_verdieping_code fclt_f_verdieping,
alg_ruimte_aanduiding fclt_x_ruimte,
''
- || htf.escape_sc(alg_ruimte_aanduiding)
+ || htf.escape_sc(alg_ruimte_nr)
|| '' html_ruimte,
alg_srtruimte_prijs ppm,
wpopp oppervlakte,
@@ -4638,6 +5183,7 @@ AS
AND ( ( rr.res_rsv_ruimte_verwijder IS NULL
AND rr.res_status_bo_key = 5)
OR ( res_rsv_ruimte_verwijder IS NOT NULL
+ AND res_status_bo_key < 6
AND res_status_fo_key = 4) );
v_periode VARCHAR(6);
@@ -4748,7 +5294,11 @@ AS
CREATE OR REPLACE VIEW nybu_v_rap_res_lastminutes
AS
SELECT ROUND(fac.safe_to_number(SYSDATE-t.fac_tracking_datum),5) || rr.res_reservering_key||'/'||res_rsv_ruimte_volgnr hide_f_srt,
- TO_CHAR(t.fac_tracking_datum, 'HH24:MI') "GEWIJZIGD OM",
+ TO_CHAR(t.fac_tracking_datum, 'DD-MM-YYYY') fclt_d_datum,
+ DECODE( fac.safe_to_number(TRUNC(SYSDATE)-TRUNC(t.fac_tracking_datum) ),
+ 0, TO_CHAR(t.fac_tracking_datum, 'HH24:MI'),
+ TO_CHAR(t.fac_tracking_datum, 'DD-MM-YYYY HH24:MI') )
+ tijd,
pf.prs_perslid_naam_full door,
DECODE (sn.fac_srtnotificatie_code,
'RESUPD', 'Wijziging',
@@ -4770,7 +5320,7 @@ AS
AND t.fac_srtnotificatie_key = sn.fac_srtnotificatie_key
AND pf.prs_perslid_key = t.prs_perslid_key
AND rr.res_rsv_ruimte_key = t.fac_tracking_refkey
- AND TRUNC(fac_tracking_datum) = TRUNC(SYSDATE)
+ AND TRUNC(fac_tracking_datum) >= TRUNC(SYSDATE-21)
AND TRUNC(rr.res_rsv_ruimte_van) BETWEEN TRUNC(SYSDATE)
AND TRUNC(SYSDATE)+7;
diff --git a/NYBU/once/nybu4.sql b/NYBU/once/nybu4.sql
new file mode 100644
index 000000000..8b8437f7d
--- /dev/null
+++ b/NYBU/once/nybu4.sql
@@ -0,0 +1,77 @@
+-- Customer specific once-script (NYBU#27708)
+-- (c) 2013 SG|facilitor bv
+-- $Revision$
+-- $Id$
+--
+-- Support: +31 53 4800700
+SET ECHO ON;
+SPOOL xnybu4.lst;
+
+SET DEFINE OFF;
+
+ALTER TABLE nybu_imp_crm
+ADD (
+ prs_perslid_mobiel VARCHAR2(256),
+ prs_perslid_telefoonnr VARCHAR2(256)
+);
+
+UPDATE fac_usrrap
+ SET fac_usrrap_view_name = 'nybu_v_rap_res_mut_events'
+ WHERE fac_usrrap_key = 263;
+DROP VIEW nybu_v_res_mutaties_events;
+
+CREATE OR REPLACE VIEW nybu_v_rap_campuslijst AS SELECT * FROM DUAL;
+-- PRSSYS = 75
+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 ('CAMPUS: Campuslijst', 'NYBU_V_RAP_CAMPUSLIJST',
+ NULL,
+ NULL, NULL,
+ 0, 0,
+ 0,
+ 'Contactgegevens van campusbewoners',
+ 75,
+ 0
+ );
+
+UPDATE prs_kenmerk
+ SET prs_kenmerk_verwijder = NULL
+ WHERE prs_kenmerk_key = 1025;
+
+CREATE OR REPLACE VIEW nybu_v_rap_vertrekkers AS SELECT * FROM DUAL;
+-- PRSSYS = 75
+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 ('HUUR: Vertrekkerslijst', 'NYBU_V_RAP_VERTREKKERS',
+ NULL,
+ NULL, NULL,
+ 0, 0,
+ 0,
+ 'Facturatiegegevens van vertrokken campusbewoners',
+ 75,
+ 0
+ );
+
+BEGIN adm.systrackscriptId('$Id$'); END;
+/
+
+COMMIT;
+SPOOL OFF;
+
+@nybu.sql
\ No newline at end of file
diff --git a/NYBU/once/nybu5.sql b/NYBU/once/nybu5.sql
new file mode 100644
index 000000000..d731a4e7d
--- /dev/null
+++ b/NYBU/once/nybu5.sql
@@ -0,0 +1,93 @@
+-- Customer specific once-script
+-- (c) 2013 SG|facilitor bv
+-- $Revision$
+-- $Id$
+--
+-- Support: +31 53 4800700
+SET ECHO ON;
+SPOOL xnybu5.lst;
+
+SET DEFINE OFF;
+
+-- NYBU#28846: Aanpassen rapportage "Beschikbare studentenkamers" ==> view naar procedure
+UPDATE fac_usrrap
+ SET fac_usrrap_view_name = 'nybu.nybu_rap_vrije_kamers',
+ fac_usrrap_vraagbegindatum = 1,
+ fac_usrrap_vraageinddatum = 1,
+ fac_usrrap_functie = 2
+ WHERE fac_usrrap_key = 201;
+DROP VIEW nybu_v_rap_vrije_kamers;
+
+CREATE OR REPLACE VIEW nybu_v_rap_nieuwkomers AS SELECT * FROM DUAL;
+-- USER01 = 83
+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 ('HUUR: Nieuwkomers', 'NYBU_V_RAP_NIEUWKOMERS',
+ NULL,
+ NULL, NULL,
+ 0, 0,
+ 0,
+ 'Overzicht van nieuwe huurders die nog geen borg betaald hebben. (Contract status = "In preparation")',
+ 83,
+ 0
+ );
+
+CREATE OR REPLACE VIEW nybu_v_rap_borg_terug AS SELECT * FROM DUAL;
+-- USER01 = 83
+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 ('HUUR: CODA-export vertrekkers', 'NYBU_V_RAP_BORG_TERUG',
+ NULL,
+ NULL, NULL,
+ 0, 0,
+ 0,
+ 'CODA-export tbv vertrekkers, verrekening borg/damages. (gebruik CSV-knop)',
+ 83,
+ 0
+ );
+
+CREATE OR REPLACE VIEW nybu_v_rap_borg_betalen AS SELECT * FROM DUAL;
+-- USER01 = 83
+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 ('HUUR: CODA-export borg nieuwkomers', 'NYBU_V_RAP_BORG_BETALEN',
+ NULL,
+ NULL, NULL,
+ 0, 0,
+ 0,
+ 'CODA-export tbv nieuwkomers, facturatie borg. (gebruik CSV-knop)',
+ 83,
+ 0
+ );
+
+BEGIN adm.systrackscriptId('$Id$'); END;
+/
+
+COMMIT;
+SPOOL OFF;
+
+@nybu.sql
\ No newline at end of file
diff --git a/PCHD/Once/PCHD#27234.sql b/PCHD/Once/PCHD#27234.sql
new file mode 100644
index 000000000..54d2d0573
--- /dev/null
+++ b/PCHD/Once/PCHD#27234.sql
@@ -0,0 +1,14 @@
+INSERT INTO prs_bedrijfadres (prs_bedrijf_key,
+ prs_bedrijfadres_type,
+ mld_typeopdr_key,
+ prs_bedrijfadres_url,
+ prs_bedrijfadres_ordermode,
+ prs_bedrijfadres_xsl)
+ SELECT DISTINCT prs_bedrijf_key,
+ 'O',
+ 721,
+ 'mailto:fsb@pch-fm.nl',
+ 0,
+ 'xsl/cust.xsl'
+ FROM prs_bedrijfadres
+ WHERE prs_bedrijfadres_type = 'O';
\ No newline at end of file
diff --git a/PNBR/pnbr.sql b/PNBR/pnbr.sql
index c8a320a71..88ddef273 100644
--- a/PNBR/pnbr.sql
+++ b/PNBR/pnbr.sql
@@ -980,6 +980,24 @@ AS
GROUP BY d.ins_discipline_omschrijving,
TO_CHAR (fac_tracking_datum, 'yyyy-mm');
+-- rapportages tbv het IT dashbord.
+CREATE OR REPLACE VIEW pnbr_v_rap_beschikb_dienst
+(
+ nummer,
+ voornaam,
+ ins_key
+)
+AS
+ SELECT SUBSTR (ins_deel_omschrijving, 4, 20),
+ prs_perslid_voornaam,
+ d.ins_deel_key
+ FROM ins_deel d,
+ (SELECT ins_deel_key, p.prs_perslid_voornaam
+ FROM ins_kenmerkdeel kd, prs_perslid p
+ WHERE fac.safe_to_number (ins_kenmerkdeel_waarde) =
+ p.prs_perslid_key
+ AND ins_kenmerk_key = 642) kd
+ WHERE d.ins_deel_key = kd.ins_deel_key(+) AND d.ins_srtdeel_key = 562;
-- rapportages tbv het IT dashbord.
CREATE OR REPLACE VIEW pnbr_v_rap_beschikb_dienst
diff --git a/PZHO/Once/PZHO#28114.sql b/PZHO/Once/PZHO#28114.sql
new file mode 100644
index 000000000..5234fd1c2
--- /dev/null
+++ b/PZHO/Once/PZHO#28114.sql
@@ -0,0 +1,295 @@
+-- Customer specific once-script PZHO#28114.
+--
+-- (c) 2013 SG|facilitor bv
+-- $Revision$
+-- $Id$
+--
+-- Support: +31 53 4800700
+SET ECHO ON
+SPOOL xPZHO28114.lst
+SET DEFINE OFF
+
+-- Eenmalige aanpassing van export-view om afgemelde regels t/m 12 januari
+-- door te belasten!
+-- Na doorbelasting (export en import!) moet niet vergeten worden pzho.sql
+-- opnieuw te draaien om de "normale" functionaliteit weer actief te maken.
+/* Formatted on 2-1-2014 11:35:35 (QP5 v5.115.810.9015) */
+CREATE OR REPLACE VIEW pzho_v_coda_afgemeld
+(
+ regelnummer,
+ regeltype,
+ regel_key,
+ datum,
+ afn_kostensoort,
+ afn_kostensoort_refcode,
+ afn_kostenplaats,
+ afn_deelproduct,
+ lev_kostensoort,
+ lev_kostenplaats,
+ lev_deelproduct,
+ bedrag,
+ referentieregel_1,
+ referentieregel_2,
+ referentieregel_3,
+ referentieregel_4
+)
+AS
+ SELECT ROWNUM regelnummer,
+ x.regeltype,
+ x.regel_key,
+ x.datum,
+ x.afn_kostensoort,
+ x.afn_kostensoort_refcode,
+ x.afn_kostenplaats,
+ x.afn_deelproduct,
+ x.lev_kostensoort,
+ x.lev_kostenplaats,
+ x.lev_deelproduct,
+ x.bedrag,
+ x.refregel_1,
+ x.refregel_2,
+ x.refregel_3,
+ x.refregel_4
+ FROM (SELECT 'RES_ARTIKEL' regeltype,
+ res_rsv_artikel_key regel_key,
+ res_rsv_artikel_levering datum,
+ kst.prs_kostensoort_oms afn_kostensoort,
+ kst.prs_kostensoort_refcode afn_kostensoort_refcode,
+ kp.prs_kostenplaats_nr afn_kostenplaats,
+ --rr.res_rsv_ruimte_ordernr afn_deelproduct,
+ COALESCE (rk.res_kenmerkreservering_waarde,
+ rr.res_rsv_ruimte_ordernr)
+ afn_deelproduct,
+ (SELECT ud.fac_usrdata_omschr
+ FROM fac_usrdata ud
+ WHERE ud.fac_usrtab_key = 307
+ AND ud.fac_usrdata_verwijder IS NULL
+ AND ud.fac_usrdata_upper =
+ kst.prs_kostensoort_upper)
+ lev_kostensoort,
+ (SELECT ud.fac_usrdata_omschr
+ FROM fac_usrdata ud
+ WHERE ud.fac_usrtab_key = 308
+ AND ud.fac_usrdata_verwijder IS NULL
+ AND ud.fac_usrdata_upper =
+ kst.prs_kostensoort_upper)
+ lev_kostenplaats,
+ (SELECT ud.fac_usrdata_omschr
+ FROM fac_usrdata ud
+ WHERE ud.fac_usrtab_key = 309
+ AND ud.fac_usrdata_verwijder IS NULL
+ AND ud.fac_usrdata_upper =
+ kst.prs_kostensoort_upper)
+ lev_deelproduct,
+ ra.res_rsv_artikel_prijs bedrag, -- Totaal voor #art.
+ 'resnr.' || rr.res_reservering_key refregel_1,
+ pf.prs_perslid_naam_full refregel_2, -- Van host
+ af.prs_afdeling_naam
+ || ' - '
+ || af.prs_afdeling_omschrijving
+ refregel_3, -- Van afd. host
+ rr.res_rsv_ruimte_omschrijving refregel_4
+ FROM res_v_aanwezigrsv_artikel ra,
+ res_artikel a,
+ res_discipline rdi,
+ prs_kostensoort kst,
+ res_v_aanwezigrsv_ruimte rr,
+ prs_perslid p,
+ prs_v_perslid_fullnames_all pf,
+ prs_afdeling af,
+ prs_kostenplaats kp,
+ (SELECT rk.res_rsv_ruimte_key,
+ rk.res_kenmerkreservering_waarde
+ FROM res_kenmerkwaarde rk, res_kenmerk k
+ WHERE rk.res_kenmerkwaarde_verwijder IS NULL
+ AND rk.res_kenmerk_key = k.res_kenmerk_key
+ AND k.res_kenmerk_verwijder IS NULL
+ AND k.res_srtkenmerk_key = 31) rk
+ WHERE ra.res_status_bo_key = 5 -- Uitgevoerd
+ AND ra.res_artikel_key = a.res_artikel_key
+ AND a.res_discipline_key = rdi.ins_discipline_key
+ AND rdi.prs_kostensoort_key = kst.prs_kostensoort_key
+ AND kst.prs_kostensoort_key IN (81, 101, 102) -- ALLEEN 81=46165, 101=46141 en 102=46142 (zie PZHO#28114)!
+ AND ra.res_rsv_ruimte_key = rr.res_rsv_ruimte_key
+ AND rr.res_rsv_ruimte_host_key = p.prs_perslid_key
+ AND p.prs_perslid_key = pf.prs_perslid_key
+ AND p.prs_afdeling_key = af.prs_afdeling_key
+ AND rr.prs_kostenplaats_key = kp.prs_kostenplaats_key
+ AND ra.res_rsv_artikel_afgemeld <
+ TO_DATE ('20140112', 'yyyymmdd')
+ AND rr.res_rsv_ruimte_key = rk.res_rsv_ruimte_key(+)
+ UNION ALL
+ SELECT 'BES_BESTELOPDRACHT' regeltype,
+ bo.bes_bestelopdr_key regel_key,
+ bo.bes_bestelopdr_leverdatum datum,
+ kst.prs_kostensoort_oms afn_kostensoort,
+ kst.prs_kostensoort_refcode afn_kostensoort_refcode,
+ kp.prs_kostenplaats_nr afn_kostenplaats,
+ --b.bes_bestelling_ordernr afn_deelproduct,
+ COALESCE (bk.bes_kenmerkbestell_waarde,
+ b.bes_bestelling_ordernr)
+ afn_deelproduct,
+ (SELECT ud.fac_usrdata_omschr
+ FROM fac_usrdata ud
+ WHERE ud.fac_usrtab_key = 307
+ AND ud.fac_usrdata_verwijder IS NULL
+ AND ud.fac_usrdata_upper =
+ kst.prs_kostensoort_upper)
+ lev_kostensoort,
+ (SELECT ud.fac_usrdata_omschr
+ FROM fac_usrdata ud
+ WHERE ud.fac_usrtab_key = 308
+ AND ud.fac_usrdata_verwijder IS NULL
+ AND ud.fac_usrdata_upper =
+ kst.prs_kostensoort_upper)
+ lev_kostenplaats,
+ (SELECT ud.fac_usrdata_omschr
+ FROM fac_usrdata ud
+ WHERE ud.fac_usrtab_key = 309
+ AND ud.fac_usrdata_verwijder IS NULL
+ AND ud.fac_usrdata_upper =
+ kst.prs_kostensoort_upper)
+ lev_deelproduct,
+ (boi.bes_bestelopdr_item_prijs
+ * boi.bes_bestelopdr_item_aantal)
+ bedrag,
+ 'besnr.' || b.bes_bestelling_key refregel_1,
+ pf.prs_perslid_naam_full refregel_2, -- Van besteller
+ a.prs_afdeling_naam
+ || ' - '
+ || a.prs_afdeling_omschrijving
+ refregel_3, -- Van afd. besteller
+ itd.ins_discipline_omschrijving refregel_4
+ FROM bes_bestelopdr bo,
+ bes_bestelopdr_item boi,
+ bes_bestelling_item bi,
+ bes_srtdeel isd,
+ bes_srtgroep isg,
+ ins_tab_discipline itd,
+ prs_kostensoort kst,
+ bes_bestelling b,
+ prs_perslid p,
+ prs_v_perslid_fullnames_all pf,
+ prs_afdeling a,
+ prs_kostenplaats kp,
+ --mld_adres m,
+ fac_tracking t,
+ (SELECT bk.bes_bestelling_key,
+ bk.bes_kenmerkbestell_waarde
+ FROM bes_kenmerkbestell bk, bes_kenmerk k
+ WHERE bk.bes_kenmerkbestell_verwijder IS NULL
+ AND bk.bes_kenmerk_key = k.bes_kenmerk_key
+ AND k.bes_kenmerk_verwijder IS NULL
+ AND k.bes_srtkenmerk_key = 241) bk
+ WHERE bo.bes_bestelopdr_status = 6 -- Geleverd (#besteld=#ontv.)
+ AND bo.bes_bestelopdr_key = boi.bes_bestelopdr_key
+ AND boi.bes_bestelopdr_item_key =
+ bi.bes_bestelopdr_item_key
+ AND bi.bes_srtdeel_key = isd.bes_srtdeel_key
+ AND isd.bes_srtgroep_key = isg.bes_srtgroep_key
+ AND isg.ins_discipline_key = itd.ins_discipline_key
+ AND itd.prs_kostensoort_key = kst.prs_kostensoort_key
+ AND kst.prs_kostensoort_key IN (81, 101, 102) -- ALLEEN 81=46165, 101=46141 en 102=46142 (zie PZHO#28114)!
+ AND bi.bes_bestelling_key = b.bes_bestelling_key
+ AND b.prs_perslid_key = p.prs_perslid_key
+ AND p.prs_perslid_key = pf.prs_perslid_key
+ AND p.prs_afdeling_key = a.prs_afdeling_key
+ AND b.prs_kostenplaats_key = kp.prs_kostenplaats_key
+ --AND b.mld_adres_key_lev = m.mld_adres_key(+)
+ AND t.fac_tracking_refkey = bo.bes_bestelopdr_key
+ AND t.fac_srtnotificatie_key = 10 -- levering
+ AND t.fac_tracking_datum <
+ TO_DATE ('20140112', 'yyyymmdd')
+ AND b.bes_bestelling_key = bk.bes_bestelling_key(+)
+ UNION ALL
+ SELECT 'MLD_OPDRACHT' regeltype,
+ o.mld_opdr_key,
+ mld.getopdrachtstatusdate (o.mld_opdr_key, 6) datum,
+ COALESCE (kst1.prs_kostensoort_oms,
+ kst2.prs_kostensoort_oms)
+ afn_kostensoort, -- Melding, anders vakgroep
+ COALESCE (kst1.prs_kostensoort_refcode,
+ kst2.prs_kostensoort_refcode)
+ afn_kostensoort_refcode, -- Melding, anders vakgroep
+ k.prs_kostenplaats_nr afn_kostenplaats,
+ --o.mld_opdr_ordernr afn_deelproduct,
+ COALESCE (ok.mld_kenmerkopdr_waarde,
+ o.mld_opdr_ordernr)
+ afn_deelproduct,
+ (SELECT ud.fac_usrdata_omschr
+ FROM fac_usrdata ud
+ WHERE ud.fac_usrtab_key = 307
+ AND ud.fac_usrdata_verwijder IS NULL
+ AND ud.fac_usrdata_upper =
+ COALESCE (kst1.prs_kostensoort_upper,
+ kst2.prs_kostensoort_upper))
+ lev_kostensoort,
+ (SELECT ud.fac_usrdata_omschr
+ FROM fac_usrdata ud
+ WHERE ud.fac_usrtab_key = 308
+ AND ud.fac_usrdata_verwijder IS NULL
+ AND ud.fac_usrdata_upper =
+ COALESCE (kst1.prs_kostensoort_upper,
+ kst2.prs_kostensoort_upper))
+ lev_kostenplaats,
+ (SELECT ud.fac_usrdata_omschr
+ FROM fac_usrdata ud
+ WHERE ud.fac_usrtab_key = 309
+ AND ud.fac_usrdata_verwijder IS NULL
+ AND ud.fac_usrdata_upper =
+ COALESCE (kst1.prs_kostensoort_upper,
+ kst2.prs_kostensoort_upper))
+ lev_deelproduct,
+ o.mld_opdr_kosten,
+ 'opdrnr.'
+ || o.mld_melding_key
+ || '/'
+ || o.mld_opdr_bedrijfopdr_volgnr
+ refregel_1,
+ pf.prs_perslid_naam_full refregel_2, -- Van melder
+ a.prs_afdeling_naam
+ || ' - '
+ || a.prs_afdeling_omschrijving
+ refregel_3, -- Van afd. melder
+ o.mld_opdr_omschrijving refregel_4
+ FROM mld_opdr o,
+ mld_melding m,
+ mld_stdmelding stm,
+ ins_tab_discipline itd,
+ prs_kostensoort kst1,
+ prs_kostensoort kst2,
+ alg_locatie l,
+ prs_perslid p,
+ prs_v_perslid_fullnames_all pf,
+ prs_afdeling a,
+ prs_kostenplaats k,
+ (SELECT ok.mld_opdr_key, ok.mld_kenmerkopdr_waarde
+ FROM mld_kenmerkopdr ok, mld_kenmerk k
+ WHERE ok.mld_kenmerkopdr_verwijder IS NULL
+ AND ok.mld_kenmerk_key = k.mld_kenmerk_key
+ AND k.mld_kenmerk_verwijder IS NULL
+ AND k.mld_srtkenmerk_key = 752) ok
+ WHERE o.mld_statusopdr_key = 6 -- Afgemeld
+ AND o.mld_melding_key = m.mld_melding_key
+ AND m.mld_stdmelding_key = stm.mld_stdmelding_key
+ AND stm.prs_kostensoort_key =
+ kst1.prs_kostensoort_key(+)
+ AND stm.mld_ins_discipline_key = itd.ins_discipline_key
+ AND itd.prs_kostensoort_key =
+ kst2.prs_kostensoort_key(+)
+ AND COALESCE (kst1.prs_kostensoort_key,
+ kst2.prs_kostensoort_key) IN
+ (81, 101, 102) -- ALLEEN 81=46165, 101=46141 en 102=46142 (zie PZHO#28114)!
+ AND m.mld_alg_locatie_key = l.alg_locatie_key
+ AND m.prs_perslid_key = p.prs_perslid_key
+ AND p.prs_perslid_key = pf.prs_perslid_key
+ AND p.prs_afdeling_key = a.prs_afdeling_key
+ AND o.prs_kostenplaats_key = k.prs_kostenplaats_key
+ AND mld.getopdrachtstatusdate (o.mld_opdr_key, 6) <
+ TO_DATE ('20140112', 'yyyymmdd')
+ AND o.mld_opdr_key = ok.mld_opdr_key(+)) x;
+
+COMMIT;
+BEGIN adm.systrackscriptId('$Id:'); END;
+/
+SPOOL OFF
diff --git a/PZHO/Once/PZHO46.sql b/PZHO/Once/PZHO46.sql
new file mode 100644
index 000000000..628a2e7c5
--- /dev/null
+++ b/PZHO/Once/PZHO46.sql
@@ -0,0 +1,43 @@
+-- Customer specific once-script PZHO46.
+--
+-- (c) 2013 SG|facilitor bv
+-- $Revision$
+-- $Id$
+--
+-- Support: +31 53 4800700
+SET ECHO ON
+SPOOL xpzho46.lst
+SET DEFINE OFF
+
+-- PZHO#28115: Rapport tbv. kilometer controle. Deze worden via meldingen geregistreerd (key 409).
+-- Key 43 is WEB_MLDBAC management info
+CREATE OR REPLACE VIEW PZHO_V_RAP_DIENSTRITVERANTW AS SELECT NULL x FROM DUAL;
+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: Kilometer verantwoording dienstritten',
+ 'PZHO_V_RAP_DIENSTRITVERANTW',
+ NULL,
+ NULL,
+ NULL,
+ 0,
+ 0,
+ 0,
+ 'Informatie over kilometer verantwoordeling',
+ 43,
+ 0);
+
+COMMIT;
+--BEGIN adm.systrackscript('$Workfile: pzho44.sql $', '$Revision$', 1); END;
+BEGIN adm.systrackscriptId('$Id: '); END;
+/
+SPOOL OFF
+@pzho.sql
diff --git a/PZHO/pzho.sql b/PZHO/pzho.sql
index eaf98b110..4449e05be 100644
--- a/PZHO/pzho.sql
+++ b/PZHO/pzho.sql
@@ -1,14 +1,14 @@
--- Script containing customer specific configuration sql statements for PZHO: Provincie Zuid HOlland
+-- Script containing customer specific configuration sql statements
+-- for PZHO: Provincie Zuid Holland
-- (c) 2006 Facilitor Software Nederland/Dijkoraad IT bv
-- $Revision$
-- $Id$
--
-- Support: +31 53 4800700
-
-
-SPOOL xPZHO.LST
SET ECHO ON
+spool xPZHO.LST
+
--------------
-- functie om eerst weekdag na x aantal werkdagen te bepalen.
CREATE OR REPLACE FUNCTION pzho_eerste_vrijdag (dagen number, weekdag number)
@@ -840,6 +840,83 @@ AS
AND rr.res_rsv_ruimte_key = rk.res_rsv_ruimte_key(+)
AND rd.res_rsv_deel_aanmaak BETWEEN TRUNC (SYSDATE) - 1
AND TRUNC (SYSDATE)
+ UNION ALL
+ SELECT k.prs_kostenplaats_key kostenplaats_key,
+ k.prs_kostenplaats_nr
+ || ' '
+ || k.prs_kostenplaats_omschrijving
+ kostenplaats,
+ TO_CHAR (m.mld_melding_datum, 'DD-MM-YYYY') datum,
+ prs_perslid_naam_full aanvrager,
+ (SELECT prs_afdeling_naam
+ FROM prs_v_afdeling d
+ WHERE p.prs_afdeling_key = d.prs_afdeling_key)
+ organisatie,
+ 'Melding' categorie,
+ (SELECT sd.ins_srtdiscipline_prefix
+ FROM mld_discipline md, ins_srtdiscipline sd
+ WHERE sd.ins_srtdiscipline_key =
+ md.ins_srtdiscipline_key
+ AND md.ins_discipline_key =
+ std.mld_ins_discipline_key)
+ || m.mld_melding_key
+ categorienummer,
+ NULL bedrag,
+ NULL status,
+ 'MLD' module,
+ k.prs_kostenplaatsgrp_key kpgroep,
+ NVL (
+ (SELECT ks.prs_kostensoort_oms
+ || ' '
+ || ks.prs_kostensoort_opmerking
+ FROM prs_kostensoort ks
+ WHERE ks.prs_kostensoort_key =
+ std.prs_kostensoort_key),
+ (SELECT ks.prs_kostensoort_oms
+ || ' '
+ || ks.prs_kostensoort_opmerking
+ FROM mld_discipline mdis, prs_kostensoort ks
+ WHERE mdis.prs_kostensoort_key =
+ ks.prs_kostensoort_key
+ AND mdis.ins_discipline_key =
+ std.mld_ins_discipline_key)
+ )
+ ksoort,
+ COALESCE (mk.mld_kenmerkmelding_waarde,
+ m.mld_melding_ordernr)
+ ordernr,
+ (SELECT md.ins_discipline_omschrijving
+ FROM mld_discipline md
+ WHERE md.ins_discipline_key =
+ std.mld_ins_discipline_key)
+ || ' / '
+ || std.mld_stdmelding_omschrijving
+ omschrijving
+ FROM prs_kostenplaats k,
+ mld_melding m,
+ mld_stdmelding std,
+ prs_perslid p,
+ prs_v_perslid_fullnames_all pf,
+ (SELECT mk.mld_melding_key,
+ mk.mld_kenmerkmelding_waarde
+ FROM mld_kenmerkmelding mk, mld_kenmerk k
+ WHERE mk.mld_kenmerkmelding_verwijder IS NULL
+ AND mk.mld_kenmerk_key = k.mld_kenmerk_key
+ AND k.mld_kenmerk_verwijder IS NULL
+ AND k.mld_srtkenmerk_key = 752) mk
+ WHERE k.prs_kostenplaats_key = m.prs_kostenplaats_key
+ AND m.mld_stdmelding_key = std.mld_stdmelding_key
+ AND m.prs_perslid_key = p.prs_perslid_key
+ AND m.mld_melding_status <> 1 -- geen afgewezen
+ AND m.mld_stdmelding_key in (470, -- 9-persoonsbus
+ 409, -- Dienstauto
+ 210, -- Taxirit
+ 471 -- Touringcar met chauffeur
+ ) -- PZHO#28574
+ AND p.prs_perslid_key = pf.prs_perslid_key
+ AND m.mld_melding_key = mk.mld_melding_key(+)
+ AND m.mld_melding_datum BETWEEN TRUNC (SYSDATE) - 1
+ AND TRUNC (SYSDATE)
UNION ALL
SELECT k.prs_kostenplaats_key kostenplaats_key,
k.prs_kostenplaats_nr
@@ -3172,7 +3249,7 @@ BEGIN
-- afzender key 14424 = Facilitor
-- to key 11641 = ICT Notificatie
- fac.putnotificationsrtprio (14424, 11641, 'PRSMAI', v_perslid_key, 'Afdelingcode van ' || v_achternaam || ' is gewijzigd in ' || rec_prs_upd.afdeling_code || '.', 3,
+ fac.putnotificationsrtprio (14424, 11641, 'PRSMAI', v_perslid_key, 'Organisatiecode van ' || v_achternaam || ' is gewijzigd m.i.v. ' || TO_CHAR (SYSDATE, 'dd-mm-yyyy') || '.', 3,
null, null, null, 1, null);
-- haal de oude functie op
@@ -6346,7 +6423,8 @@ CREATE OR REPLACE VIEW pzho_v_api_dienstfietsen
anaam,
pasnr,
fo_status_key, -- 1=OPT/2=BEV/3=DEL/4=BLK
- last_change -- Laatste NEW/UPD/DEL/BLK
+ last_change, -- Laatste NEW/UPD/DEL/BLK
+ res_verwijder
)
AS
SELECT rr.res_rsv_ruimte_key,
@@ -6374,7 +6452,8 @@ AS
WHEN rr.res_rsv_ruimte_van < TRUNC (SYSDATE + 1)
THEN SYSDATE - 5/24/60 -- Doe alsof 5 minuten geleden gewijzigd
ELSE t.last_change
- END last_change
+ END last_change,
+ rr.res_rsv_ruimte_verwijder
FROM res_rsv_ruimte rr, -- Ook verwijderde res_rsv_ruimte!
res_rsv_deel rrd, -- Ook verwijderde res_rsv_deel!
res_deel rd,
@@ -6396,9 +6475,113 @@ AS
AND kl.prs_kenmerk_key = 13 -- Alleen aanvragers met een pasnr
AND rr.res_rsv_ruimte_key = t.fac_tracking_refkey(+);
+
+-- PZHO#28115 Rapport tbv kilometer controle. Deze worden in via meldingen geregistreerd (key 409)
+CREATE OR REPLACE VIEW PZHO_V_RAP_DIENSTRITVERANTW
+(
+ FCLT_F_Maand,
+ FCLT_F_Kenteken,
+ Kilometers,
+ Naam_Bestuurder,
+ Doel,
+ Van,
+ Via,
+ Naar,
+ Reden_auto_ipv_OV,
+ Reden_weekend_of_na_1800,
+ Datum_vertrek,
+ Tijd_vertrek,
+ Datum_terug,
+ Tijd_terug
+)
+AS
+ SELECT TO_CHAR (TO_DATE (km1.mld_kenmerkmelding_waarde, 'DD-MM-YYYY'),
+ 'YYYY-MM')
+ Maand,
+ fu.fac_usrdata_omschr Kenteken,
+ (SELECT mld_kenmerkmelding_waarde
+ FROM mld_kenmerkmelding
+ WHERE mld_melding_key = m.mld_melding_key
+ AND mld_kenmerk_key = 1811)
+ Kilometers,
+ (SELECT mld_kenmerkmelding_waarde
+ FROM mld_kenmerkmelding
+ WHERE mld_melding_key = m.mld_melding_key
+ AND mld_kenmerk_key = 911)
+ Naam_Bestuurder,
+ (SELECT mld_kenmerkmelding_waarde
+ FROM mld_kenmerkmelding
+ WHERE mld_melding_key = m.mld_melding_key
+ AND mld_kenmerk_key = 1805)
+ Doel,
+ (SELECT mld_kenmerkmelding_waarde
+ FROM mld_kenmerkmelding
+ WHERE mld_melding_key = m.mld_melding_key
+ AND mld_kenmerk_key = 1806)
+ Van,
+ (SELECT mld_kenmerkmelding_waarde
+ FROM mld_kenmerkmelding
+ WHERE mld_melding_key = m.mld_melding_key
+ AND mld_kenmerk_key = 1807)
+ Via,
+ (SELECT mld_kenmerkmelding_waarde
+ FROM mld_kenmerkmelding
+ WHERE mld_melding_key = m.mld_melding_key
+ AND mld_kenmerk_key = 1808)
+ Naar,
+ (SELECT mld_kenmerkmelding_waarde
+ FROM mld_kenmerkmelding
+ WHERE mld_melding_key = m.mld_melding_key
+ AND mld_kenmerk_key = 832)
+ Reden_auto_ipv_OV,
+ (SELECT mld_kenmerkmelding_waarde
+ FROM mld_kenmerkmelding
+ WHERE mld_melding_key = m.mld_melding_key
+ AND mld_kenmerk_key = 831)
+ Reden_weekend_of_na_1800,
+ (SELECT mld_kenmerkmelding_waarde
+ FROM mld_kenmerkmelding
+ WHERE mld_melding_key = m.mld_melding_key
+ AND mld_kenmerk_key = 835)
+ Datum_vertrek,
+ (SELECT mld_kenmerkmelding_waarde
+ FROM mld_kenmerkmelding
+ WHERE mld_melding_key = m.mld_melding_key
+ AND mld_kenmerk_key = 836)
+ Tijd_vertrek,
+ (SELECT mld_kenmerkmelding_waarde
+ FROM mld_kenmerkmelding
+ WHERE mld_melding_key = m.mld_melding_key
+ AND mld_kenmerk_key = 837)
+ Datum_terugkomst,
+ (SELECT mld_kenmerkmelding_waarde
+ FROM mld_kenmerkmelding
+ WHERE mld_melding_key = m.mld_melding_key
+ AND mld_kenmerk_key = 838)
+ Tijd_terugkomst
+ FROM mld_melding m,
+ mld_kenmerkmelding km1,
+ mld_kenmerkmelding km2,
+ mld_kenmerk mk,
+ mld_srtkenmerk sk,
+ fac_kenmerkdomein kd,
+ fac_usrdata fu
+ WHERE m.mld_stdmelding_key = 409 -- Dienstauto
+ AND mld_melding_status IN (5, 6) -- Afgemeld + Historie
+ AND m.mld_melding_key = km1.mld_melding_key
+ AND m.mld_melding_key = km2.mld_melding_key
+ AND km1.mld_kenmerk_key = 835 -- Datum vertrek
+ AND km1.mld_kenmerkmelding_verwijder IS NULL
+ AND km2.mld_kenmerk_key = 1809 -- Kenteken Auto
+ AND km2.mld_kenmerk_key = mk.mld_kenmerk_key
+ AND sk.mld_srtkenmerk_key = mk.mld_srtkenmerk_key
+ AND kd.fac_kenmerkdomein_key = SK.FAC_KENMERKDOMEIN_KEY
+ AND kd.fac_usrtab_key = fu.fac_usrtab_key
+ AND km2.mld_kenmerkmelding_waarde = fu.fac_usrdata_key;
+
BEGIN adm.systrackscriptId('$Id$', 0); END;
/
-BEGIN fac.registercustversion('PZHO', 45); END;
+BEGIN fac.registercustversion('PZHO', 47); END;
/
COMMIT;
spool off
diff --git a/RENK/renk.sql b/RENK/renk.sql
index 4b66dadc4..c13752811 100644
--- a/RENK/renk.sql
+++ b/RENK/renk.sql
@@ -1511,7 +1511,7 @@ AS
rk.res_kenmerkreservering_waarde
) = b.prs_bedrijf_key);
-/* Formatted on 11-6-2013 17:04:56 (QP5 v5.115.810.9015) */
+/* Formatted on 30-1-2014 9:56:26 (QP5 v5.136.908.31019) */
CREATE OR REPLACE VIEW renk_v_rap_mldinsres_qrc
(
fclt_f_soortmelding,
@@ -1533,230 +1533,243 @@ CREATE OR REPLACE VIEW renk_v_rap_mldinsres_qrc
variabele
)
AS
- SELECT md.ins_discipline_omschrijving
- || '-'
- || msd.mld_stdmelding_omschrijving,
- l.alg_locatie_omschrijving,
- o.alg_gebouw_omschrijving,
- o.alg_verdieping_omschrijving,
- o.alg_plaatsaanduiding plaats,
- d.ins_alg_ruimte_key ruimte_key,
- sr.alg_srtruimte_omschrijving,
- disc.ins_discipline_omschrijving,
- sg.ins_srtgroep_omschrijving,
- sd.ins_srtdeel_key,
- sd.ins_srtdeel_omschrijving,
- sd.ins_srtdeel_code,
- d.ins_deel_key,
- d.ins_deel_omschrijving,
- d.ins_deel_upper,
- b.fac_bookmark_id,
- 'INS_KEY'
- FROM (SELECT DECODE (
- INSTR (
- SUBSTR (
- UPPER (fac_bookmark_query),
- INSTR (UPPER (fac_bookmark_query),
- 'STDM_KEY=')
- ),
- '&'
- ),
- 0,
- SUBSTR (
- SUBSTR (
- UPPER (fac_bookmark_query),
- INSTR (UPPER (fac_bookmark_query),
- 'STDM_KEY=')
- ),
- 10
- ),
- SUBSTR (
- SUBSTR (
- UPPER (fac_bookmark_query),
- INSTR (UPPER (fac_bookmark_query),
- 'STDM_KEY=')
- ),
- 10,
- INSTR (
- SUBSTR (
- UPPER (fac_bookmark_query),
- INSTR (UPPER (fac_bookmark_query),
- 'STDM_KEY=')
- ),
- '&'
- )
- - 10
- )
- )
- stdm_key,
- fac_bookmark_id
- FROM fac_bookmark
- WHERE TRUNC (fac_bookmark_aanmaak) >=
- TO_DATE ('10062013', 'ddmmyyyy')
- AND UPPER (fac_bookmark_path) = 'APPL/PDA/MELDING.ASP'
- AND INSTR (UPPER (fac_bookmark_query), 'STDM_KEY') > 0)
- b, -- stdm_key-bookmarks
- (SELECT sm.mld_ins_discipline_key,
- sm.mld_stdmelding_key,
- sm.mld_stdmelding_omschrijving,
- sm.ins_srtinst_key ins_srtdeel_key
- FROM mld_stdmelding sm
- WHERE sm.mld_stdmelding_verwijder IS NULL
- AND sm.ins_srtinst_niveau = 'S'
- UNION ALL
- SELECT sm.mld_ins_discipline_key,
- sm.mld_stdmelding_key,
- sm.mld_stdmelding_omschrijving,
- sd.ins_srtdeel_key
- FROM mld_stdmelding sm, ins_srtdeel sd
- WHERE sm.mld_stdmelding_verwijder IS NULL
- AND sm.ins_srtinst_niveau = 'G'
- AND sm.ins_srtinst_key = sd.ins_srtgroep_key
- UNION ALL
- SELECT sm.mld_ins_discipline_key,
- sm.mld_stdmelding_key,
- sm.mld_stdmelding_omschrijving,
- sd.ins_srtdeel_key
- FROM mld_stdmelding sm, ins_srtgroep sg, ins_srtdeel sd
- WHERE sm.mld_stdmelding_verwijder IS NULL
- AND sm.ins_srtinst_niveau = 'D'
- AND sm.ins_srtinst_key = sg.ins_discipline_key
- AND sg.ins_srtgroep_key = sd.ins_srtgroep_key) msd, -- object-meldingen
- mld_discipline md,
- ins_v_aanwezigdeel d,
- ins_srtdeel sd,
- ins_srtgroep sg,
- ins_discipline disc,
- ins_v_alg_overzicht o,
- alg_locatie l,
- alg_ruimte r,
- alg_srtruimte sr
- WHERE fac.safe_to_number (b.stdm_key) = msd.mld_stdmelding_key
- AND msd.mld_ins_discipline_key = md.ins_discipline_key
- AND msd.ins_srtdeel_key = d.ins_srtdeel_key
- AND d.ins_alg_ruimte_type IN ('T', 'R', 'W')
- AND d.ins_deel_parent_key IS NULL
- AND d.ins_srtdeel_key = sd.ins_srtdeel_key
- AND sd.ins_srtgroep_key = sg.ins_srtgroep_key
- AND sg.ins_discipline_key = disc.ins_discipline_key
- AND d.ins_alg_ruimte_key = o.alg_onroerendgoed_keys
- AND d.ins_alg_ruimte_type = o.alg_onroerendgoed_type
- AND d.ins_alg_locatie_key = o.alg_locatie_key -- redundant?
- AND o.alg_locatie_key = l.alg_locatie_key
- AND d.ins_alg_ruimte_key = r.alg_ruimte_key
- AND r.alg_srtruimte_key = sr.alg_srtruimte_key(+)
+ SELECT md.ins_discipline_omschrijving
+ || '-'
+ || msd.mld_stdmelding_omschrijving,
+ l.alg_locatie_omschrijving,
+ o.alg_gebouw_omschrijving,
+ o.alg_verdieping_omschrijving,
+ o.alg_plaatsaanduiding plaats,
+ d.ins_alg_ruimte_key ruimte_key,
+ sr.alg_srtruimte_omschrijving,
+ disc.ins_discipline_omschrijving,
+ sg.ins_srtgroep_omschrijving,
+ sd.ins_srtdeel_key,
+ sd.ins_srtdeel_omschrijving,
+ sd.ins_srtdeel_code,
+ d.ins_deel_key,
+ d.ins_deel_omschrijving,
+ d.ins_deel_upper,
+ b.fac_bookmark_id,
+ 'INS_KEY'
+ FROM (SELECT DECODE (
+ INSTR (
+ SUBSTR (
+ UPPER (fac_bookmark_query),
+ INSTR (UPPER (fac_bookmark_query), 'STDM_KEY=')),
+ '&'),
+ 0,
+ SUBSTR (
+ SUBSTR (
+ UPPER (fac_bookmark_query),
+ INSTR (UPPER (fac_bookmark_query), 'STDM_KEY=')),
+ 10),
+ SUBSTR (
+ SUBSTR (
+ UPPER (fac_bookmark_query),
+ INSTR (UPPER (fac_bookmark_query), 'STDM_KEY=')),
+ 10,
+ INSTR (
+ SUBSTR (
+ UPPER (fac_bookmark_query),
+ INSTR (UPPER (fac_bookmark_query), 'STDM_KEY=')),
+ '&')
+ - 10))
+ stdm_key,
+ fac_bookmark_id
+ FROM fac_bookmark
+ WHERE TRUNC (fac_bookmark_aanmaak) >=
+ TO_DATE ('10062013', 'ddmmyyyy')
+ AND UPPER (fac_bookmark_path) = 'APPL/PDA/MELDING.ASP'
+ AND INSTR (UPPER (fac_bookmark_query), 'STDM_KEY') > 0) b, -- stdm_key-bookmarks
+ (SELECT sm.mld_ins_discipline_key,
+ sm.mld_stdmelding_key,
+ sm.mld_stdmelding_omschrijving,
+ sm.ins_srtinst_key ins_srtdeel_key
+ FROM mld_stdmelding sm
+ WHERE sm.mld_stdmelding_verwijder IS NULL
+ AND sm.ins_srtinst_niveau = 'S'
+ UNION ALL
+ SELECT sm.mld_ins_discipline_key,
+ sm.mld_stdmelding_key,
+ sm.mld_stdmelding_omschrijving,
+ sd.ins_srtdeel_key
+ FROM mld_stdmelding sm, ins_srtdeel sd
+ WHERE sm.mld_stdmelding_verwijder IS NULL
+ AND sm.ins_srtinst_niveau = 'G'
+ AND sm.ins_srtinst_key = sd.ins_srtgroep_key
+ UNION ALL
+ SELECT sm.mld_ins_discipline_key,
+ sm.mld_stdmelding_key,
+ sm.mld_stdmelding_omschrijving,
+ sd.ins_srtdeel_key
+ FROM mld_stdmelding sm, ins_srtgroep sg, ins_srtdeel sd
+ WHERE sm.mld_stdmelding_verwijder IS NULL
+ AND sm.ins_srtinst_niveau = 'D'
+ AND sm.ins_srtinst_key = sg.ins_discipline_key
+ AND sg.ins_srtgroep_key = sd.ins_srtgroep_key) msd, -- object-meldingen
+ mld_discipline md,
+ ins_v_aanwezigdeel d,
+ ins_srtdeel sd,
+ ins_srtgroep sg,
+ ins_discipline disc,
+ ins_v_alg_overzicht o,
+ alg_locatie l,
+ alg_ruimte r,
+ alg_srtruimte sr
+ WHERE fac.safe_to_number (b.stdm_key) = msd.mld_stdmelding_key
+ AND msd.mld_ins_discipline_key = md.ins_discipline_key
+ AND msd.ins_srtdeel_key = d.ins_srtdeel_key
+ AND d.ins_alg_ruimte_type IN ('T', 'R', 'W')
+ AND d.ins_deel_parent_key IS NULL
+ AND d.ins_srtdeel_key = sd.ins_srtdeel_key
+ AND sd.ins_srtgroep_key = sg.ins_srtgroep_key
+ AND sg.ins_discipline_key = disc.ins_discipline_key
+ AND d.ins_alg_ruimte_key = o.alg_onroerendgoed_keys
+ AND d.ins_alg_ruimte_type = o.alg_onroerendgoed_type
+ AND d.ins_alg_locatie_key = o.alg_locatie_key -- redundant?
+ AND o.alg_locatie_key = l.alg_locatie_key
+ AND d.ins_alg_ruimte_key = r.alg_ruimte_key
+ AND r.alg_srtruimte_key = sr.alg_srtruimte_key(+)
UNION ALL
- SELECT 'Melding op object',
- l.alg_locatie_omschrijving,
- o.alg_gebouw_omschrijving,
- o.alg_verdieping_omschrijving,
- o.alg_plaatsaanduiding plaats,
- NULL ruimte_key,
- sr.alg_srtruimte_omschrijving,
- disc.ins_discipline_omschrijving,
- sg.ins_srtgroep_omschrijving,
- sd.ins_srtdeel_key,
- sd.ins_srtdeel_omschrijving,
- sd.ins_srtdeel_code,
- d.ins_deel_key,
- d.ins_deel_omschrijving,
- d.ins_deel_upper,
- b.fac_bookmark_id,
- 'INS_KEY'
- FROM fac_bookmark b,
- ins_v_aanwezigdeel d,
- ins_srtdeel sd,
- ins_srtgroep sg,
- ins_discipline disc,
- ins_v_alg_overzicht o,
- alg_locatie l,
- alg_ruimte r,
- alg_srtruimte sr
- WHERE TRUNC (b.fac_bookmark_aanmaak) = TO_DATE ('10062013', 'ddmmyyyy')
- AND UPPER (b.fac_bookmark_naam) LIKE '%GENERIEK%'
- AND UPPER (b.fac_bookmark_path) = 'APPL/PDA/INS_DEEL.ASP'
- AND d.ins_alg_ruimte_type IN ('T', 'R', 'W')
- AND d.ins_deel_parent_key IS NULL
- AND d.ins_srtdeel_key = sd.ins_srtdeel_key
- AND sd.ins_srtgroep_key = sg.ins_srtgroep_key
- AND sg.ins_discipline_key = disc.ins_discipline_key
- AND d.ins_alg_ruimte_key = o.alg_onroerendgoed_keys
- AND d.ins_alg_ruimte_type = o.alg_onroerendgoed_type
- AND d.ins_alg_locatie_key = o.alg_locatie_key -- redundant?
- AND o.alg_locatie_key = l.alg_locatie_key
- AND d.ins_alg_ruimte_key = r.alg_ruimte_key
- AND r.alg_srtruimte_key = sr.alg_srtruimte_key(+)
+ SELECT 'Melding op object',
+ l.alg_locatie_omschrijving,
+ o.alg_gebouw_omschrijving,
+ o.alg_verdieping_omschrijving,
+ o.alg_plaatsaanduiding plaats,
+ NULL ruimte_key,
+ sr.alg_srtruimte_omschrijving,
+ disc.ins_discipline_omschrijving,
+ sg.ins_srtgroep_omschrijving,
+ sd.ins_srtdeel_key,
+ sd.ins_srtdeel_omschrijving,
+ sd.ins_srtdeel_code,
+ d.ins_deel_key,
+ d.ins_deel_omschrijving,
+ d.ins_deel_upper,
+ b.fac_bookmark_id,
+ 'INS_KEY'
+ FROM fac_bookmark b,
+ ins_v_aanwezigdeel d,
+ ins_srtdeel sd,
+ ins_srtgroep sg,
+ ins_discipline disc,
+ ins_v_alg_overzicht o,
+ alg_locatie l,
+ alg_ruimte r,
+ alg_srtruimte sr
+ WHERE TRUNC (b.fac_bookmark_aanmaak) = TO_DATE ('10062013', 'ddmmyyyy')
+ AND UPPER (b.fac_bookmark_naam) LIKE '%GENERIEK%'
+ AND UPPER (b.fac_bookmark_path) = 'APPL/PDA/INS_DEEL.ASP'
+ AND d.ins_alg_ruimte_type IN ('T', 'R', 'W')
+ AND d.ins_deel_parent_key IS NULL
+ AND d.ins_srtdeel_key = sd.ins_srtdeel_key
+ AND sd.ins_srtgroep_key = sg.ins_srtgroep_key
+ AND sg.ins_discipline_key = disc.ins_discipline_key
+ AND d.ins_alg_ruimte_key = o.alg_onroerendgoed_keys
+ AND d.ins_alg_ruimte_type = o.alg_onroerendgoed_type
+ AND d.ins_alg_locatie_key = o.alg_locatie_key -- redundant?
+ AND o.alg_locatie_key = l.alg_locatie_key
+ AND d.ins_alg_ruimte_key = r.alg_ruimte_key
+ AND r.alg_srtruimte_key = sr.alg_srtruimte_key(+)
UNION ALL
- SELECT 'Melding op ruimte',
- l.alg_locatie_omschrijving,
- o.alg_gebouw_omschrijving,
- o.alg_verdieping_omschrijving,
- o.alg_plaatsaanduiding plaats,
- r.alg_ruimte_key ruimte_key,
- sr.alg_srtruimte_omschrijving,
- NULL ins_discipline_omschrijving,
- NULL ins_srtgroep_omschrijving,
- NULL ins_srtdeel_key,
- NULL ins_srtdeel_omschrijving,
- NULL ins_srtdeel_code,
- NULL ins_deel_key,
- NULL ins_deel_omschrijving,
- NULL ins_deel_upper,
- b.fac_bookmark_id,
- 'RUIMTE_KEY'
- FROM fac_bookmark b,
- alg_ruimte r,
- alg_srtruimte sr,
- ins_v_alg_overzicht o,
- alg_locatie l
- WHERE TRUNC (b.fac_bookmark_aanmaak) = TO_DATE ('10062013', 'ddmmyyyy')
- AND UPPER (b.fac_bookmark_naam) LIKE '%GENERIEK%'
- AND UPPER (b.fac_bookmark_path) = 'APPL/PDA/MELDING.ASP'
- AND INSTR (UPPER (fac_bookmark_query), 'STDM_KEY') = 0
- AND r.alg_srtruimte_key = sr.alg_srtruimte_key(+)
- AND r.alg_ruimte_key = o.alg_onroerendgoed_keys
- AND o.alg_onroerendgoed_type = 'R'
- AND o.alg_locatie_key = l.alg_locatie_key
+ SELECT 'Melding op ruimte',
+ l.alg_locatie_omschrijving,
+ o.alg_gebouw_omschrijving,
+ o.alg_verdieping_omschrijving,
+ o.alg_plaatsaanduiding plaats,
+ r.alg_ruimte_key ruimte_key,
+ sr.alg_srtruimte_omschrijving,
+ NULL ins_discipline_omschrijving,
+ NULL ins_srtgroep_omschrijving,
+ NULL ins_srtdeel_key,
+ NULL ins_srtdeel_omschrijving,
+ NULL ins_srtdeel_code,
+ NULL ins_deel_key,
+ NULL ins_deel_omschrijving,
+ NULL ins_deel_upper,
+ b.fac_bookmark_id,
+ 'RUIMTE_KEY'
+ FROM fac_bookmark b,
+ alg_v_aanwezigruimte r,
+ alg_srtruimte sr,
+ ins_v_alg_overzicht o,
+ alg_locatie l
+ WHERE TRUNC (b.fac_bookmark_aanmaak) = TO_DATE ('10062013', 'ddmmyyyy')
+ AND UPPER (b.fac_bookmark_naam) LIKE '%GENERIEK%'
+ AND UPPER (b.fac_bookmark_path) = 'APPL/PDA/MELDING.ASP'
+ AND INSTR (UPPER (fac_bookmark_query), 'STDM_KEY') = 0
+ AND r.alg_srtruimte_key = sr.alg_srtruimte_key(+)
+ AND r.alg_ruimte_key = o.alg_onroerendgoed_keys
+ AND o.alg_onroerendgoed_type = 'R'
+ AND o.alg_locatie_key = l.alg_locatie_key
UNION ALL
- SELECT 'Reserveer ruimte',
- l.alg_locatie_omschrijving,
- o.alg_gebouw_omschrijving,
- o.alg_verdieping_omschrijving,
- rr.res_ruimte_nr plaats,
- rar.res_ruimte_key ruimte_key,
- sr.alg_srtruimte_omschrijving,
- NULL ins_discipline_omschrijving,
- NULL ins_srtgroep_omschrijving,
- NULL ins_srtdeel_key,
- NULL ins_srtdeel_omschrijving,
- NULL ins_srtdeel_code,
- NULL ins_deel_key,
- NULL ins_deel_omschrijving,
- NULL ins_deel_upper,
- b.fac_bookmark_id,
- 'RES_RUIMTE_KEY'
- FROM fac_bookmark b,
- res_ruimte rr,
- ( SELECT res_ruimte_key, MAX (alg_ruimte_key) alg_ruimte_key
- FROM res_alg_ruimte
- WHERE res_alg_ruimte_verwijder IS NULL
- GROUP BY res_ruimte_key) rar,
- alg_ruimte r,
- alg_srtruimte sr,
- ins_v_alg_overzicht o,
- alg_locatie l
- WHERE TRUNC (b.fac_bookmark_aanmaak) = TO_DATE ('10062013', 'ddmmyyyy')
- AND UPPER (b.fac_bookmark_naam) LIKE '%GENERIEK%'
- AND UPPER (b.fac_bookmark_path) = 'APPL/PDA/RESERVERINGEN.ASP'
- AND rr.res_discipline_key NOT IN (61, 62)
- AND rr.res_ruimte_key = rar.res_ruimte_key
- AND rar.alg_ruimte_key = r.alg_ruimte_key
- AND r.alg_srtruimte_key = sr.alg_srtruimte_key(+)
- AND r.alg_ruimte_key = o.alg_onroerendgoed_keys
- AND o.alg_onroerendgoed_type = 'R'
- AND o.alg_locatie_key = l.alg_locatie_key
- AND l.alg_locatie_key = 50;
-
+ SELECT 'Melding op gebouw',
+ l.alg_locatie_omschrijving,
+ g.alg_gebouw_omschrijving,
+ NULL alg_verdieping_omschrijving,
+ l.alg_locatie_code || '-' || g.alg_gebouw_code plaats,
+ g.alg_gebouw_key ruimte_key,
+ sg.alg_srtgebouw_omschrijving,
+ NULL ins_discipline_omschrijving,
+ NULL ins_srtgroep_omschrijving,
+ NULL ins_srtdeel_key,
+ NULL ins_srtdeel_omschrijving,
+ NULL ins_srtdeel_code,
+ NULL ins_deel_key,
+ NULL ins_deel_omschrijving,
+ NULL ins_deel_upper,
+ b.fac_bookmark_id,
+ 'GEBOUW_KEY'
+ FROM fac_bookmark b,
+ alg_v_aanweziggebouw g,
+ alg_v_aanwezigsrtgebouw sg,
+ alg_locatie l
+ WHERE TRUNC (b.fac_bookmark_aanmaak) = TO_DATE ('30012014', 'ddmmyyyy')
+ AND UPPER (b.fac_bookmark_naam) LIKE '%GENERIEK%'
+ AND UPPER (b.fac_bookmark_path) = 'APPL/PDA/MELDING.ASP'
+ AND INSTR (UPPER (fac_bookmark_query), 'STDM_KEY') = 0
+ AND g.alg_srtgebouw_key = sg.alg_srtgebouw_key(+)
+ AND g.alg_locatie_key = l.alg_locatie_key
+ UNION ALL -- Reserveerbare ruimtes 50=Gemeentehuis
+ SELECT 'Reserveer ruimte',
+ l.alg_locatie_omschrijving,
+ o.alg_gebouw_omschrijving,
+ o.alg_verdieping_omschrijving,
+ rr.res_ruimte_nr plaats,
+ rar.res_ruimte_key ruimte_key,
+ sr.alg_srtruimte_omschrijving,
+ NULL ins_discipline_omschrijving,
+ NULL ins_srtgroep_omschrijving,
+ NULL ins_srtdeel_key,
+ NULL ins_srtdeel_omschrijving,
+ NULL ins_srtdeel_code,
+ NULL ins_deel_key,
+ NULL ins_deel_omschrijving,
+ NULL ins_deel_upper,
+ b.fac_bookmark_id,
+ 'RES_RUIMTE_KEY'
+ FROM fac_bookmark b,
+ res_ruimte rr,
+ ( SELECT res_ruimte_key, MAX (alg_ruimte_key) alg_ruimte_key
+ FROM res_alg_ruimte
+ WHERE res_alg_ruimte_verwijder IS NULL
+ GROUP BY res_ruimte_key) rar,
+ alg_ruimte r,
+ alg_srtruimte sr,
+ ins_v_alg_overzicht o,
+ alg_locatie l
+ WHERE TRUNC (b.fac_bookmark_aanmaak) = TO_DATE ('10062013', 'ddmmyyyy')
+ AND UPPER (b.fac_bookmark_naam) LIKE '%GENERIEK%'
+ AND UPPER (b.fac_bookmark_path) = 'APPL/PDA/RESERVERINGEN.ASP'
+ AND rr.res_discipline_key != 62 -- OV kaart
+ AND rr.res_ruimte_key = rar.res_ruimte_key
+ AND rar.alg_ruimte_key = r.alg_ruimte_key
+ AND r.alg_srtruimte_key = sr.alg_srtruimte_key(+)
+ AND r.alg_ruimte_key = o.alg_onroerendgoed_keys
+ AND o.alg_onroerendgoed_type = 'R'
+ AND o.alg_locatie_key = l.alg_locatie_key
+ AND l.alg_locatie_key = 50;
/* Formatted on 29-8-2013 17:20:02 (QP5 v5.115.810.9015) */
CREATE OR REPLACE PACKAGE RENK
@@ -2062,10 +2075,7 @@ AS
v_errormsg := 'Fout bij bijwerken kenmerk.';
UPDATE res_rsv_ruimte
- SET res_rsv_ruimte_ordernr =
- DECODE (res_rsv_ruimte_ordernr,
- NULL, p_kenmerk,
- res_rsv_ruimte_ordernr || '+' || p_kenmerk)
+ SET res_rsv_ruimte_ordernr = p_kenmerk
WHERE res_rsv_ruimte_key = rec.res_rsv_ruimte_key;
-- Niet voor "roomservice"!
@@ -2389,7 +2399,7 @@ AS
|| DECODE (
TRUNC (
ADD_MONTHS (
- rr.res_rsv_ruimte_tot, 6
+ rr.res_rsv_ruimte_tot, 5
),
'yyyy'
),
@@ -2409,7 +2419,7 @@ AS
|| DECODE (
TRUNC (
ADD_MONTHS (
- SYSDATE, 7
+ SYSDATE, 6
),
'yyyy'
),
@@ -2435,11 +2445,11 @@ AS
TRUNC (
ADD_MONTHS (
SYSDATE,
- -5
+ -6
),
'yyyy'
),
- 6
+ 7
)
AND rr.res_rsv_ruimte_contact_key =
p.prs_perslid_key)
@@ -2660,7 +2670,7 @@ AS
AND tarief.res_kenmerkreservering_waarde != '261' -- Niet nul
/
-/* Formatted on 31-7-2013 11:42:24 (QP5 v5.115.810.9015) */
+/* Formatted on 6-3-2014 13:30:30 (QP5 v5.136.908.31019) */
CREATE OR REPLACE VIEW renk_v_lokaalverhuur_vast
(
groepering, -- Huurder/locatie -> factuur
@@ -2669,119 +2679,97 @@ CREATE OR REPLACE VIEW renk_v_lokaalverhuur_vast
khj_tarief -- K(wartaal), H(alfjaar) of J(aar)
)
AS
- SELECT x.groepering,
- x.sys_helft,
- x.res_ruimte_key,
- DECODE (
- x.sys_helft,
- '1',
- DECODE (x.k1 + x.k2,
- 2, DECODE (x.k3 + x.k4, 2, 'J', 'H'),
- 'K'), -- Deze helft geen boekingen in beide kwartalen!
- DECODE (x.k3 + x.k4,
- 2, DECODE (x.k1 + x.k2, 2, 'J', 'H'),
- 'K') -- Deze helft geen boekingen in beide kwartalen!
- )
- khj
- FROM ( SELECT TO_CHAR (x.alg_locatie_key) || '-'
- || COALESCE (
- bedr_key.res_kenmerkreservering_waarde,
- --inaam.res_kenmerkreservering_waarde,
- UPPER (TRIM (x.res_rsv_ruimte_omschrijving)),
- '[naam]'
- )
- groepering,
- x.sys_helft,
- x.res_ruimte_key,
- DECODE (SIGN (SUM (x.k1) - 8), -1, 0, 1) k1,
- DECODE (SIGN (SUM (x.k2) - 8), -1, 0, 1) k2,
- DECODE (SIGN (SUM (x.k3) - 8), -1, 0, 1) k3,
- DECODE (SIGN (SUM (x.k4) - 8), -1, 0, 1) k4
- FROM (SELECT rrr.res_rsv_ruimte_key,
- rrr.res_rsv_ruimte_omschrijving,
- DECODE (
- TRUNC (ADD_MONTHS (SYSDATE, 7),
- 'yyyy'),
- TRUNC (ADD_MONTHS (SYSDATE, 1),
- 'yyyy'),
- '1',
- '2'
- )
- sys_helft,
- rr.res_ruimte_key,
- rga.alg_locatie_key,
- DECODE (
- TO_CHAR (rrr.res_rsv_ruimte_tot, 'Q'),
- 1, 1,
- 0
- )
- k1,
- DECODE (
- TO_CHAR (rrr.res_rsv_ruimte_tot, 'Q'),
- 2, 1,
- 0
- )
- k2,
- DECODE (
- TO_CHAR (rrr.res_rsv_ruimte_tot, 'Q'),
- 3, 1,
- 0
- )
- k3,
- DECODE (
- TO_CHAR (rrr.res_rsv_ruimte_tot, 'Q'),
- 4, 1,
- 0
- )
- k4
- FROM res_v_aanwezigrsv_ruimte rrr,
- res_ruimte_opstelling rro,
- res_ruimte rr,
- res_v_res_ruimte_gegevens_all rga
- WHERE rrr.res_activiteit_key = 230 -- Schoollokaal
- AND rrr.res_status_fo_key IN (1, 2)
- AND rrr.res_rsv_ruimte_dirtlevel = 0
- AND rrr.res_ruimte_opstel_key = rro.res_ruimte_opstel_key
- AND rro.res_ruimte_key = rr.res_ruimte_key
- AND rr.res_discipline_key = 43
- AND rr.res_ruimte_key = rga.res_ruimte_key
- AND rrr.res_rsv_ruimte_tot BETWEEN ADD_MONTHS (
- TRUNC (
- ADD_MONTHS (
- SYSDATE, -5
- ),
- 'yyyy'
- ),
- 6
- )
- AND ADD_MONTHS (
- TRUNC (
- ADD_MONTHS (
- SYSDATE, -5
- ),
- 'yyyy'
- ),
- 18
- ))
- x
- LEFT JOIN -- 303 = Verhuur tarief
- res_v_aanwezigkenmerkwaarde tarief
- ON x.res_rsv_ruimte_key = tarief.res_rsv_ruimte_key
- AND tarief.res_kenmerk_key = 303
- LEFT JOIN -- 9 = Regelmatige relatiegegevens
- res_v_aanwezigkenmerkwaarde bedr_key
- ON x.res_rsv_ruimte_key = bedr_key.res_rsv_ruimte_key
- AND bedr_key.res_kenmerk_key = 9
- WHERE tarief.res_kenmerkreservering_waarde = '84'
- GROUP BY TO_CHAR (x.alg_locatie_key) || '-'
- || COALESCE (
- bedr_key.res_kenmerkreservering_waarde,
- --inaam.res_kenmerkreservering_waarde,
- UPPER (TRIM (x.res_rsv_ruimte_omschrijving)),
- '[naam]'
- ),
- x.sys_helft,
- x.res_ruimte_key) x;
+ SELECT x.groepering,
+ TO_CHAR (ADD_MONTHS (SYSDATE, 1), 'yyyy')
+ || DECODE (TRUNC (ADD_MONTHS (SYSDATE, 6), 'yy'),
+ TRUNC (ADD_MONTHS (SYSDATE, 1), 'yy'), '1',
+ '2')
+ sys_helft,
+ x.res_ruimte_key,
+ DECODE (
+ DECODE (TRUNC (ADD_MONTHS (SYSDATE, 6), 'yy'),
+ TRUNC (ADD_MONTHS (SYSDATE, 1), 'yy'), '1',
+ '2'),
+ '1',
+ DECODE (x.k1 + x.k2,
+ 2, DECODE (x.k3 + x.k4, 2, 'J', 'H'),
+ 'K'), -- Deze helft geen boekingen in beide kwartalen!
+ DECODE (x.k3 + x.k4,
+ 2, DECODE (x.k1 + x.k2, 2, 'J', 'H'),
+ 'K') -- Deze helft geen boekingen in beide kwartalen!
+ )
+ khj
+ FROM ( SELECT TO_CHAR (x.alg_locatie_key) || '-'
+ || COALESCE (bedr_key.res_kenmerkreservering_waarde,
+ UPPER (TRIM (x.res_rsv_ruimte_omschrijving)),
+ '[naam]')
+ groepering,
+ x.res_ruimte_key,
+ DECODE (SIGN (SUM (x.k1) - 8), -1, 0, 1) k1,
+ DECODE (SIGN (SUM (x.k2) - 8), -1, 0, 1) k2,
+ DECODE (SIGN (SUM (x.k3) - 8), -1, 0, 1) k3,
+ DECODE (SIGN (SUM (x.k4) - 8), -1, 0, 1) k4
+ FROM (SELECT rrr.res_rsv_ruimte_key,
+ rrr.res_rsv_ruimte_omschrijving,
+ rr.res_ruimte_key,
+ rga.alg_locatie_key,
+ DECODE (TO_CHAR (rrr.res_rsv_ruimte_tot, 'Q'),
+ 1, 1,
+ 0)
+ k1,
+ DECODE (TO_CHAR (rrr.res_rsv_ruimte_tot, 'Q'),
+ 2, 1,
+ 0)
+ k2,
+ DECODE (TO_CHAR (rrr.res_rsv_ruimte_tot, 'Q'),
+ 3, 1,
+ 0)
+ k3,
+ DECODE (TO_CHAR (rrr.res_rsv_ruimte_tot, 'Q'),
+ 4, 1,
+ 0)
+ k4
+ FROM res_v_aanwezigrsv_ruimte rrr,
+ res_ruimte_opstelling rro,
+ res_ruimte rr,
+ res_v_res_ruimte_gegevens_all rga
+ WHERE rrr.res_activiteit_key = 230 -- Schoollokaal
+ AND rrr.res_status_fo_key IN (1, 2)
+ AND rrr.res_rsv_ruimte_dirtlevel = 0
+ AND rrr.res_ruimte_opstel_key =
+ rro.res_ruimte_opstel_key
+ AND rro.res_ruimte_key = rr.res_ruimte_key
+ AND rr.res_discipline_key = 43
+ AND rr.res_ruimte_key = rga.res_ruimte_key
+ AND rrr.res_rsv_ruimte_tot BETWEEN ADD_MONTHS (
+ TRUNC (
+ ADD_MONTHS (
+ SYSDATE,
+ -6),
+ 'yyyy'),
+ 7)
+ AND ADD_MONTHS (
+ TRUNC (
+ ADD_MONTHS (
+ SYSDATE,
+ -6),
+ 'yyyy'),
+ 19)) x
+ LEFT JOIN -- 424 = Verhuur tarief
+ res_v_aanwezigkenmerkwaarde tarief
+ ON x.res_rsv_ruimte_key = tarief.res_rsv_ruimte_key
+ AND tarief.res_kenmerk_key = 424
+ LEFT JOIN -- 426 = Regelmatige relatiegegevens
+ res_v_aanwezigkenmerkwaarde bedr_key
+ ON x.res_rsv_ruimte_key = bedr_key.res_rsv_ruimte_key
+ AND bedr_key.res_kenmerk_key = 426
+ WHERE tarief.res_kenmerkreservering_waarde = '84'
+ GROUP BY TO_CHAR (x.alg_locatie_key) || '-'
+ || COALESCE (
+ bedr_key.res_kenmerkreservering_waarde,
+ UPPER (TRIM (x.res_rsv_ruimte_omschrijving)),
+ '[naam]'),
+ x.res_ruimte_key) x;
/* Formatted on 2-8-2013 10:00:45 (QP5 v5.115.810.9015) */
CREATE OR REPLACE VIEW renk_v_rap_res_actual
@@ -2967,7 +2955,8 @@ AS
/* Formatted on 25-11-2013 11:10:05 (QP5 v5.115.810.9015) */
CREATE OR REPLACE VIEW renk_v_verhuurregels_frozen
(
- groepering,
+ groepering1,
+ groepering2,
sortering1,
sortering2,
fclt_f_naam,
@@ -3015,7 +3004,18 @@ CREATE OR REPLACE VIEW renk_v_verhuurregels_frozen
btw
)
AS
- SELECT x.res_rsv_ruimte_ordernr groepering,
+ SELECT x.res_rsv_ruimte_ordernr groepering1,
+ DECODE ( -- V -> per jaarhelft/locatie; I of C -> per reservering!
+ tarief.res_kenmerkreservering_waarde,
+ '84', -- Vast
+ TO_CHAR (rvc.alg_locatie_key) || '-' -- Dash!
+ || COALESCE (TO_CHAR (r.bedr_key),
+ --inaam.res_kenmerkreservering_waarde,
+ UPPER (TRIM (x.res_rsv_ruimte_omschrijving)),
+ '[naam]'),
+ TO_CHAR (x.res_key) || '/' || TO_CHAR (x.res_vnr) -- Slash!
+ )
+ groepering2,
TO_CHAR (x.van, 'yyyy-mm-dd hh24:mi')
|| rvc.res_ruimte_nr
|| x.res_key
@@ -3203,7 +3203,7 @@ AS
|| DECODE (
TRUNC (
ADD_MONTHS (
- rr.res_rsv_ruimte_tot, 6
+ rr.res_rsv_ruimte_tot, 5
),
'yyyy'
),
@@ -3453,97 +3453,97 @@ AS
WHERE tarief.res_kenmerkreservering_waarde != '261' -- Niet nul
/
-/* Formatted on 25-11-2013 11:10:05 (QP5 v5.115.810.9015) */
+/* Formatted on 6-3-2014 13:45:45 (QP5 v5.136.908.31019) */
CREATE OR REPLACE VIEW renk_v_lokaalverhuur_frozen
(
- groepering, -- Huurder/locatie -> factuur
+ groepering2, -- Huurder/locatie -> factuur
sys_helft,
res_ruimte_key, -- Ruimte
khj_tarief -- K(wartaal), H(alfjaar) of J(aar)
)
AS
- SELECT x.res_rsv_ruimte_ordernr,
- x.res_helft,
- x.res_ruimte_key,
- DECODE (
- x.res_helft,
- '1',
- DECODE (x.k1 + x.k2,
- 2, DECODE (x.k3 + x.k4, 2, 'J', 'H'),
- 'K'), -- Deze helft geen boekingen in beide kwartalen!
- DECODE (x.k3 + x.k4,
- 2, DECODE (x.k1 + x.k2, 2, 'J', 'H'),
- 'K') -- Deze helft geen boekingen in beide kwartalen!
- )
- khj
- FROM ( SELECT x.res_rsv_ruimte_ordernr,
- x.res_helft,
- x.res_ruimte_key,
- DECODE (SIGN (SUM (x.k1) - 8), -1, 0, 1) k1,
- DECODE (SIGN (SUM (x.k2) - 8), -1, 0, 1) k2,
- DECODE (SIGN (SUM (x.k3) - 8), -1, 0, 1) k3,
- DECODE (SIGN (SUM (x.k4) - 8), -1, 0, 1) k4
- FROM (SELECT rrr.res_rsv_ruimte_key,
- rrr.res_rsv_ruimte_ordernr,
- DECODE (
- TRUNC (ADD_MONTHS (rrr.res_rsv_ruimte_tot, 6),
- 'yyyy'),
- TRUNC (rrr.res_rsv_ruimte_tot,
- 'yyyy'),
- '1',
- '2'
- )
- res_helft,
- rr.res_ruimte_key,
- rga.alg_locatie_key,
- DECODE (
- TO_CHAR (rrr.res_rsv_ruimte_tot, 'Q'),
- 1, 1,
- 0
- )
- k1,
- DECODE (
- TO_CHAR (rrr.res_rsv_ruimte_tot, 'Q'),
- 2, 1,
- 0
- )
- k2,
- DECODE (
- TO_CHAR (rrr.res_rsv_ruimte_tot, 'Q'),
- 3, 1,
- 0
- )
- k3,
- DECODE (
- TO_CHAR (rrr.res_rsv_ruimte_tot, 'Q'),
- 4, 1,
- 0
- )
- k4
- FROM res_v_aanwezigrsv_ruimte rrr,
- res_ruimte_opstelling rro,
- res_ruimte rr,
- res_v_res_ruimte_gegevens_all rga
- WHERE rrr.res_rsv_ruimte_ordernr IS NOT NULL
- AND rrr.res_activiteit_key = 230 -- Schoollokaal
- AND rrr.res_status_fo_key IN (1, 2)
- AND rrr.res_rsv_ruimte_dirtlevel = 0
- AND rrr.res_ruimte_opstel_key = rro.res_ruimte_opstel_key
- AND rro.res_ruimte_key = rr.res_ruimte_key
- AND rr.res_discipline_key = 43
- AND rr.res_ruimte_key = rga.res_ruimte_key) x
- LEFT JOIN -- 303 = Verhuur tarief
- res_v_aanwezigkenmerkwaarde tarief
- ON x.res_rsv_ruimte_key = tarief.res_rsv_ruimte_key
- AND tarief.res_kenmerk_key = 303
- LEFT JOIN -- 9 = Regelmatige relatiegegevens
- res_v_aanwezigkenmerkwaarde bedr_key
- ON x.res_rsv_ruimte_key = bedr_key.res_rsv_ruimte_key
- AND bedr_key.res_kenmerk_key = 9
- WHERE tarief.res_kenmerkreservering_waarde = '84'
- GROUP BY x.res_rsv_ruimte_ordernr,
- x.res_helft,
- x.res_ruimte_key) x;
+ SELECT x.groepering2,
+ x.res_helft,
+ x.res_ruimte_key,
+ DECODE (
+ SUBSTR (x.res_helft, -1),
+ '1',
+ DECODE (x.k1 + x.k2,
+ 2, DECODE (x.k3 + x.k4, 2, 'J', 'H'),
+ 'K'), -- Deze helft geen boekingen in beide kwartalen!
+ DECODE (x.k3 + x.k4,
+ 2, DECODE (x.k1 + x.k2, 2, 'J', 'H'),
+ 'K') -- Deze helft geen boekingen in beide kwartalen!
+ )
+ khj
+ FROM ( SELECT TO_CHAR (x.alg_locatie_key) || '-'
+ || COALESCE (bedr_key.res_kenmerkreservering_waarde,
+ UPPER (TRIM (x.res_rsv_ruimte_omschrijving)),
+ '[naam]')
+ groepering2,
+ x.res_helft,
+ x.res_ruimte_key,
+ DECODE (SIGN (SUM (x.k1) - 8), -1, 0, 1) k1,
+ DECODE (SIGN (SUM (x.k2) - 8), -1, 0, 1) k2,
+ DECODE (SIGN (SUM (x.k3) - 8), -1, 0, 1) k3,
+ DECODE (SIGN (SUM (x.k4) - 8), -1, 0, 1) k4
+ FROM (SELECT rrr.res_rsv_ruimte_key,
+ rrr.res_rsv_ruimte_omschrijving,
+ rr.res_ruimte_key,
+ rga.alg_locatie_key,
+ TO_CHAR (DECODE (TO_CHAR (rrr.res_rsv_ruimte_tot, 'mm'),
+ '07', ADD_MONTHS (rrr.res_rsv_ruimte_tot, -12),
+ rrr.res_rsv_ruimte_tot),
+ 'yyyy')
+ || DECODE (TRUNC (ADD_MONTHS (rrr.res_rsv_ruimte_tot, 6), 'yy'),
+ TRUNC (rrr.res_rsv_ruimte_tot, 'yy'), '1',
+ '2')
+ res_helft,
+ DECODE (TO_CHAR (rrr.res_rsv_ruimte_tot, 'Q'),
+ 1, 1,
+ 0)
+ k1,
+ DECODE (TO_CHAR (rrr.res_rsv_ruimte_tot, 'Q'),
+ 2, 1,
+ 0)
+ k2,
+ DECODE (TO_CHAR (rrr.res_rsv_ruimte_tot, 'Q'),
+ 3, 1,
+ 0)
+ k3,
+ DECODE (TO_CHAR (rrr.res_rsv_ruimte_tot, 'Q'),
+ 4, 1,
+ 0)
+ k4
+ FROM res_v_aanwezigrsv_ruimte rrr,
+ res_ruimte_opstelling rro,
+ res_ruimte rr,
+ res_v_res_ruimte_gegevens_all rga
+ WHERE rrr.res_rsv_ruimte_ordernr IS NOT NULL
+ AND rrr.res_activiteit_key = 230 -- Schoollokaal
+ AND rrr.res_status_fo_key IN (1, 2)
+ AND rrr.res_rsv_ruimte_dirtlevel = 0
+ AND rrr.res_ruimte_opstel_key =
+ rro.res_ruimte_opstel_key
+ AND rro.res_ruimte_key = rr.res_ruimte_key
+ AND rr.res_discipline_key = 43
+ AND rr.res_ruimte_key = rga.res_ruimte_key) x
+ LEFT JOIN -- 424 = Verhuur tarief
+ res_v_aanwezigkenmerkwaarde tarief
+ ON x.res_rsv_ruimte_key = tarief.res_rsv_ruimte_key
+ AND tarief.res_kenmerk_key = 424
+ LEFT JOIN -- 426 = Regelmatige relatiegegevens
+ res_v_aanwezigkenmerkwaarde bedr_key
+ ON x.res_rsv_ruimte_key = bedr_key.res_rsv_ruimte_key
+ AND bedr_key.res_kenmerk_key = 426
+ WHERE tarief.res_kenmerkreservering_waarde = '84'
+ GROUP BY TO_CHAR (x.alg_locatie_key) || '-'
+ || COALESCE (
+ bedr_key.res_kenmerkreservering_waarde,
+ UPPER (TRIM (x.res_rsv_ruimte_omschrijving)),
+ '[naam]'),
+ x.res_helft,
+ x.res_ruimte_key) x;
/* Formatted on 25-11-2013 11:12:24 (QP5 v5.115.810.9015) */
CREATE OR REPLACE VIEW renk_v_rap_res_frozen
@@ -3586,7 +3586,7 @@ CREATE OR REPLACE VIEW renk_v_rap_res_frozen
aant_weken
)
AS
- SELECT x.groepering,
+ SELECT x.groepering1,
MIN (x.sortering1),
MAX (x.sortering1),
x.sortering2,
@@ -3624,7 +3624,7 @@ AS
MIN (x.res_discipline_key),
x.res_ruimte_key,
COUNT ( * ) aant_weken
- FROM (SELECT x.groepering,
+ FROM (SELECT x.groepering1,
x.sortering1,
x.sortering2,
x.fclt_f_naam,
@@ -3714,11 +3714,11 @@ AS
x.res_ruimte_key,
y.khj_tarief
FROM renk_v_verhuurregels_frozen x,
- renk_v_lokaalverhuur_vast y
- WHERE x.groepering = y.groepering(+)
+ renk_v_lokaalverhuur_frozen y
+ WHERE x.groepering2 = y.groepering2(+)
AND x.sys_helft = y.sys_helft(+)
AND x.res_ruimte_key = y.res_ruimte_key(+)) x
- GROUP BY x.groepering,
+ GROUP BY x.groepering1,
x.sortering2,
x.dagnr,
x.van,
@@ -3829,7 +3829,7 @@ AS
OR (TO_CHAR (rrr.res_rsv_ruimte_tot, 'HH24MISS') BETWEEN '180000'
AND '235959'));
-BEGIN fac.registercustversion('RENK', 9); END;
+BEGIN fac.registercustversion('RENK', 11); END;
/
BEGIN adm.systrackscriptId('$Id$', 0); END;
/
diff --git a/RTWE/rtwe.sql b/RTWE/rtwe.sql
new file mode 100644
index 000000000..37b37aa1a
--- /dev/null
+++ b/RTWE/rtwe.sql
@@ -0,0 +1,121 @@
+-- Script containing customer specific db-configuration for RTWE.
+-- (c) 2014 SG|facilitor bv
+-- $Revision$
+-- $Id$
+--
+-- Support: +31 53 4800700
+set echo on
+SPOOL xRTWE.LST
+
+CREATE OR REPLACE VIEW rtwe_v_noti_cntreminder_rappel (code, sender, receiver, text, key, xkey)
+AS
+SELECT 'CUST01',
+ NULL,
+ c.prs_perslid_key_beh,
+ 'Beste ' || p.prs_perslid_voornaam || DECODE(p.prs_perslid_tussenvoegsel,NULL,' ',' '||p.prs_perslid_tussenvoegsel||' ') || p.prs_perslid_naam || CHR(13) ||
+ CHR(13) ||
+ 'Op '||to_char(c.cnt_contract_looptijd_tot,'dd-mm-yyyy')||' loopt '||c.cnt_contract_nummer_intern||' ('||c.cnt_contract_omschrijving||') af. Het is raadzaam hierover contact ' || CHR(13) ||
+ 'op te nemen met zowel uw leverancier als uw interne organisatie.' || CHR(13) ||
+ CHR(13) ||
+ 'Raadpleeg het digitale contract in Facilitor om de vervolgstappen te bepalen.' || CHR(13) ||
+ 'Indien het contract verlengd wordt, zorg er dan voor dat de mutaties en de daarbij behorende ' || CHR(13) ||
+ 'documenten digitaal worden vastgelegd in Facilitor.' || CHR(13) ||
+ CHR(13) ||
+ CHR(13) ||
+ 'Met vriendelijke groet,' || CHR(13) ||
+ CHR(13) ||
+ 'Applicatiebeheer Facilitor',
+ c.cnt_contract_key,
+ NULL
+ FROM cnt_v_aanwezigcontract c, prs_bedrijf b, prs_perslid p
+ WHERE b.prs_bedrijf_key=c.CNT_PRS_BEDRIJF_KEY
+ AND c.prs_perslid_key_beh = p.prs_perslid_key
+ AND p.prs_afdeling_key IN (21, 141, 142, 143, 144, 201) -- TODO; ff nog ter voorkoming
+ AND UPPER(p.prs_perslid_email) LIKE '%REGIOTWENTE.NL%' -- ..mails naar NETS-personen!
+ AND TRUNC(SYSDATE) = TRUNC(cnt.cnt_getRappeldatum(c.cnt_contract_key));
+
+
+-- Staan er bij contracten gesprekken gepland?
+-- Zo ja, wanneer staat het eerste, tweede en derde gesprek gepland?
+CREATE OR REPLACE VIEW rtwe_v_noti_gesprek_tekst
+AS
+SELECT k.cnt_srtkenmerk_key, kc.cnt_contract_key, kc.cnt_kenmerkcontract_waarde
+FROM cnt_srtkenmerk sk, cnt_kenmerk k, cnt_kenmerkcontract kc
+WHERE sk.cnt_srtkenmerk_key in (111,112,113)
+AND kc.cnt_kenmerkcontract_verwijder is null
+AND sk.cnt_srtkenmerk_key = k.cnt_srtkenmerk_key
+AND kc.cnt_kenmerk_key = k.cnt_kenmerk_key;
+
+-- Zijn er bij contracten gesprekken geweest?
+CREATE OR REPLACE VIEW rtwe_v_noti_gesprek_ja
+AS
+SELECT 111 cnt_srtkenmerk_key, kc.cnt_contract_key
+FROM cnt_srtkenmerk sk, cnt_kenmerk k, cnt_kenmerkcontract kc
+WHERE sk.cnt_srtkenmerk_key = 114 -- 'Eerste gesprek geweest'
+AND kc.cnt_kenmerkcontract_verwijder is null
+AND kc.cnt_kenmerkcontract_waarde = '21' -- 'Ja'
+AND sk.cnt_srtkenmerk_key = k.cnt_srtkenmerk_key
+AND kc.cnt_kenmerk_key = k.cnt_kenmerk_key
+UNION ALL
+SELECT 112 cnt_srtkenmerk_key, kc.cnt_contract_key
+FROM cnt_srtkenmerk sk, cnt_kenmerk k, cnt_kenmerkcontract kc
+WHERE sk.cnt_srtkenmerk_key = 115 -- 'Tweede gesprek geweest'
+AND kc.cnt_kenmerkcontract_verwijder is null
+AND kc.cnt_kenmerkcontract_waarde = '21' -- 'Ja'
+AND sk.cnt_srtkenmerk_key = k.cnt_srtkenmerk_key
+AND kc.cnt_kenmerk_key = k.cnt_kenmerk_key
+UNION ALL
+SELECT 113 cnt_srtkenmerk_key, kc.cnt_contract_key
+FROM cnt_srtkenmerk sk, cnt_kenmerk k, cnt_kenmerkcontract kc
+WHERE sk.cnt_srtkenmerk_key = 116 -- 'Derde gesprek geweest'
+AND kc.cnt_kenmerkcontract_verwijder is null
+AND kc.cnt_kenmerkcontract_waarde = '21' -- 'Ja'
+AND sk.cnt_srtkenmerk_key = k.cnt_srtkenmerk_key
+AND kc.cnt_kenmerk_key = k.cnt_kenmerk_key;
+
+
+-- Contractgesprekken die staan gepland tussen nu en 8 weken (7*8 dagen) in de toekomst.
+CREATE OR REPLACE VIEW rtwe_v_noti_cntreminder_gespr (code, sender, receiver, text, key, xkey)
+AS
+SELECT
+ 'CUST02',
+ NULL,
+ c.prs_perslid_key_beh,
+ 'Beste ' || p.prs_perslid_voornaam || DECODE(p.prs_perslid_tussenvoegsel,NULL,' ',' '||p.prs_perslid_tussenvoegsel||' ') || p.prs_perslid_naam || CHR(13)
+ || CHR(13)
+ ||'U bent beheerder van contract '||c.cnt_contract_nummer_intern||' ('||c.cnt_contract_omschrijving||'). Met uw leverancier is' || CHR(13)
+ ||'overeengekomen dat u (tussentijds) gaat evalueren. '|| CHR(13)
+ || CHR(13)
+ || CHR(13)
+ ||'Onderneem de volgende acties:' || CHR(13)
+ || CHR(13)
+ ||'- Interne evaluatie;' || CHR(13)
+ ||'- Afspraak leverancier.' || CHR(13)
+ || CHR(13)
+ ||'Wilt u dit realiseren voor '|| g.cnt_kenmerkcontract_waarde ||'.' || CHR(13)
+ ||'Zorg ervoor dat het (tussentijdse) evaluatieverslag digitaal vastgelegd wordt in het dossier van Facilitor.' || CHR(13)
+ || CHR(13)
+ || CHR(13)
+ ||'Met vriendelijke groet,' || CHR(13)
+ || CHR(13)
+ ||'Applicatiebeheer Facilitor',
+ c.cnt_contract_key,
+ NULL
+FROM CNT_V_AANWEZIGCONTRACT c, PRS_PERSLID p, rtwe_v_noti_gesprek_tekst g
+WHERE c.prs_perslid_key_beh = p.prs_perslid_key
+AND p.prs_afdeling_key IN (21, 141, 142, 143, 144, 201) -- TODO; ff nog ter voorkoming
+AND UPPER(p.prs_perslid_email) LIKE '%REGIOTWENTE.NL%' -- ..mails naar NETS-personen!
+AND g.cnt_contract_key = c.cnt_contract_key
+AND TRUNC(sysdate + (7*8)) = TRUNC(fac.safe_to_date(g.cnt_kenmerkcontract_waarde,'dd-mm-yyyy'))
+AND NOT EXISTS (select 'x'
+ from rtwe_v_noti_gesprek_ja x
+ where x.cnt_srtkenmerk_key = g.cnt_srtkenmerk_key
+ and x.cnt_contract_key = g.cnt_contract_key
+ );
+
+BEGIN fac.registercustversion('RTWE', 1); END;
+/
+BEGIN adm.systrackscriptId('$Id$', 0); END;
+/
+COMMIT;
+SPOOL OFF
diff --git a/SBSH/Once/sbsh5.sql b/SBSH/Once/sbsh5.sql
new file mode 100644
index 000000000..a2eb51ba6
--- /dev/null
+++ b/SBSH/Once/sbsh5.sql
@@ -0,0 +1,57 @@
+-- Customer specific once-script SBSH5.
+--
+-- (c) 2014 SG|facilitor bv
+--
+-- Support: +31 53 4800700
+SET ECHO ON
+SPOOL xsbsh5.lst
+SET DEFINE OFF
+
+-- SBSH#26779
+INSERT INTO fac_srtnotificatie
+ (fac_srtnotificatie_code, fac_srtnotificatie_mode,
+ fac_srtnotificatie_oms, fac_srtnotificatie_xmlnode,
+ fac_srtnotificatie_groep
+ )
+ VALUES ('CUST02', 2,
+ 'Reservering ##KEY## aangemaakt/gewijzigd', 'reservering',
+ 0
+ );
+
+INSERT INTO fac_srtnotificatie
+ (fac_srtnotificatie_code, fac_srtnotificatie_mode,
+ fac_srtnotificatie_oms, fac_srtnotificatie_xmlnode,
+ fac_srtnotificatie_groep
+ )
+ VALUES ('CUST03', 2,
+ 'Melding ##KEY## (##DISC##/##STDMLD##) aangemaakt/gewijzigd', 'melding',
+ 0
+ );
+
+INSERT INTO fac_srtnotificatie
+ (fac_srtnotificatie_code, fac_srtnotificatie_mode,
+ fac_srtnotificatie_oms, fac_srtnotificatie_xmlnode,
+ fac_srtnotificatie_groep
+ )
+ VALUES ('CUST04', 0,
+ 'Afwijzing offerte ##OPDRKEY##', 'opdracht',
+ 0
+ );
+
+INSERT INTO fac_notificatie_job (fac_notificatie_job_view,
+ fac_notificatie_job_oms,
+ fac_notificatie_job_interval,
+ fac_notificatie_job_mode,
+ fac_notificatie_job_flags)
+ VALUES ('SBSH_V_NOTI_DIV_ELK_UUR',
+ 'Diverse notificaties (naar Bea en nav. afwijzing offerte)',
+ 1,
+ 0,
+ 1);
+
+COMMIT;
+
+BEGIN adm.systrackscriptId('$Id$'); END;
+/
+SPOOL OFF
+@sbsh.sql
diff --git a/SBSH/sbsh.sql b/SBSH/sbsh.sql
index 7e50910aa..790e45c9b 100644
--- a/SBSH/sbsh.sql
+++ b/SBSH/sbsh.sql
@@ -843,6 +843,101 @@ AS
AND res_rsv_ruimte_volgnr >
rr.res_rsv_ruimte_volgnr);
+-- Bevat RES/MLD-afschriften naar Bea en offerteafwijzingen naar relaties!
+/* Formatted on 26-2-2014 11:56:04 (QP5 v5.136.908.31019) */
+CREATE OR REPLACE VIEW sbsh_v_noti_div_elk_uur
+(
+ code,
+ sender,
+ receiver,
+ text,
+ KEY,
+ xkey,
+ xemail,
+ xmobile
+)
+AS
+ SELECT DISTINCT
+ sn.fac_srtnotificatie_code,
+ NULL,
+ NULL,
+ REPLACE (
+ REPLACE (
+ sn.fac_srtnotificatie_oms,
+ '##KEY##',
+ rr.res_reservering_key || '/' || rr.res_rsv_ruimte_volgnr),
+ '##DESC##',
+ rr.res_rsv_ruimte_omschrijving),
+ rr.res_reservering_key,
+ rr.res_rsv_ruimte_key,
+ 'info@sbsh.nl', -- Bea van der Woude
+ NULL
+ FROM fac_tracking t, res_rsv_ruimte rr, fac_srtnotificatie sn
+ WHERE TRUNC (t.fac_tracking_datum) = TRUNC (SYSDATE + 5 / 1440)
+ AND TO_NUMBER(TO_CHAR (t.fac_tracking_datum, 'HH24')) + 1 =
+ TO_NUMBER (TO_CHAR (SYSDATE + 5 / 1440, 'HH24'))
+ AND t.fac_srtnotificatie_key IN (59, 60, 63) -- RESNEW/RESUPD/RESDEL
+ AND t.fac_tracking_refkey = rr.res_rsv_ruimte_key
+ AND sn.fac_srtnotificatie_code = 'CUST02'
+ UNION ALL
+ SELECT DISTINCT
+ sn.fac_srtnotificatie_code,
+ NULL,
+ NULL,
+ REPLACE (
+ REPLACE (
+ REPLACE (sn.fac_srtnotificatie_oms,
+ '##KEY##',
+ m.mld_melding_key),
+ '##DISC##',
+ md.ins_discipline_omschrijving),
+ '##STDMLD##',
+ sm.mld_stdmelding_omschrijving),
+ m.mld_melding_key,
+ NULL,
+ 'info@sbsh.nl', -- Bea van der Woude
+ NULL
+ FROM fac_tracking t,
+ mld_melding m,
+ mld_stdmelding sm,
+ mld_discipline md,
+ fac_srtnotificatie sn
+ WHERE TRUNC (t.fac_tracking_datum) = TRUNC (SYSDATE + 5 / 1440)
+ AND TO_NUMBER(TO_CHAR (t.fac_tracking_datum, 'HH24')) + 1 =
+ TO_NUMBER (TO_CHAR (SYSDATE + 5 / 1440, 'HH24'))
+ AND t.fac_srtnotificatie_key IN (33, 34, 29) -- MLDNEW/MLDREJ/MLDAFM
+ AND t.fac_tracking_refkey = m.mld_melding_key
+ AND m.mld_stdmelding_key = sm.mld_stdmelding_key
+ AND sm.mld_ins_discipline_key = md.ins_discipline_key
+ AND sn.fac_srtnotificatie_code = 'CUST03'
+ UNION ALL
+ SELECT DISTINCT
+ sn.fac_srtnotificatie_code,
+ NULL,
+ NULL,
+ REPLACE (sn.fac_srtnotificatie_oms,
+ '##OPDRKEY##',
+ o.mld_melding_key || '/' || o.mld_opdr_bedrijfopdr_volgnr),
+ o.mld_opdr_key,
+ NULL,
+ TRIM (REPLACE (ba.prs_bedrijfadres_url, 'mailto:', '')),
+ NULL
+ FROM fac_tracking t,
+ mld_opdr o,
+ prs_bedrijf b,
+ prs_bedrijfadres ba,
+ fac_srtnotificatie sn
+ WHERE TRUNC (t.fac_tracking_datum) = TRUNC (SYSDATE + 5 / 1440)
+ AND TO_NUMBER(TO_CHAR (t.fac_tracking_datum, 'HH24')) + 1 =
+ TO_NUMBER (TO_CHAR (SYSDATE + 5 / 1440, 'HH24'))
+ AND t.fac_srtnotificatie_key = 182 -- ORDONO
+ AND t.fac_tracking_refkey = o.mld_opdr_key
+ AND o.mld_uitvoerende_keys = b.prs_bedrijf_key
+ AND b.prs_bedrijf_key = ba.prs_bedrijf_key
+ AND ba.prs_bedrijfadres_type = 'O'
+ AND ba.mld_typeopdr_key = 101 -- Offerteaanvraag!
+ AND sn.fac_srtnotificatie_code = 'CUST04';
+
BEGIN adm.systrackscriptId('$Id$', 0); END;
/
BEGIN fac.registercustversion('SBSH', 5); END;
diff --git a/UWVA/Once/uwva#28505.sql b/UWVA/Once/uwva#28505.sql
new file mode 100644
index 000000000..38b82d787
--- /dev/null
+++ b/UWVA/Once/uwva#28505.sql
@@ -0,0 +1,27 @@
+-- Customer specific once-script.
+--
+-- (c) 2014 SG|facilitor bv
+SET ECHO ON
+SPOOL xuwva#28505.lst
+SET DEFINE OFF
+
+--UWVA#28505: KPN_PRJ- en KPN-importbestanden ontvangen als e-mail
+INSERT INTO fac_email_setting
+ (fac_email_setting_user,
+ fac_email_setting_from,
+ fac_email_setting_aanmaak,
+ fac_email_setting_attachpath)
+VALUES
+ ('kpnimport',
+ 'servicedesk1331@uwv.nl',
+ SYSDATE,
+ 'd:\Apps\FacilitorWebdav\');
+
+COMMIT;
+
+BEGIN adm.systrackscriptId('$Id$'); END;
+/
+
+SPOOL OFF;
+
+COMMIT;
\ No newline at end of file
diff --git a/UWVA/Once/uwva86.sql b/UWVA/Once/uwva86.sql
new file mode 100644
index 000000000..c78c91d56
--- /dev/null
+++ b/UWVA/Once/uwva86.sql
@@ -0,0 +1,242 @@
+-- Customer specific once-script UWVA86.
+--
+-- (c) 2014 SG|facilitor bv
+SET ECHO ON
+SPOOL xuwva86.lst
+SET DEFINE OFF
+
+-- UWVA#27483 E-mail adres volgens schrijfwijzer!
+/* Formatted on 17-2-2014 11:48:12 (QP5 v5.136.908.31019) */
+CREATE OR REPLACE VIEW uwva_v_email_schrijfwijzer
+(
+ prs_key,
+ fac_id,
+ imp_id,
+ imp_empnum,
+ imp_nickname,
+ imp_lastname,
+ imp_spousename,
+ fac_email,
+ imp_email,
+ sw_email
+)
+AS
+ SELECT DISTINCT
+ p.prs_perslid_key,
+ kl.prs_kenmerklink_waarde,
+ ip.id,
+ ip.empnum,
+ ip.nickname,
+ ip.lastname,
+ ip.spousename,
+ p.prs_perslid_email,
+ ip.email,
+ DECODE (
+ INSTR (COALESCE (p.prs_perslid_email, ip.email), '@'),
+ NULL, -- geen email bekend -> ongewijzigd
+ COALESCE (p.prs_perslid_email, ip.email),
+ 0, -- geen '@' in email -> ongewijzigd
+ COALESCE (p.prs_perslid_email, ip.email),
+ CASE -- email met een '@'
+ WHEN INSTR (COALESCE (p.prs_perslid_email, ip.email) || '.', '.') <
+ INSTR (COALESCE (p.prs_perslid_email, ip.email), '@')
+ THEN -- . voor @ (dus meeste gevallen)
+ REPLACE (
+ REPLACE (
+ REPLACE (
+ REPLACE (
+ INITCAP(SUBSTR (LOWER(COALESCE (p.prs_perslid_email, ip.email)),
+ 1,
+ INSTR (COALESCE (p.prs_perslid_email, ip.email), '.', -1, 2) - 1))
+ || SUBSTR (LOWER(COALESCE (p.prs_perslid_email, ip.email)),
+ INSTR (COALESCE (p.prs_perslid_email, ip.email), '.', -1, 2)),
+ INITCAP(REPLACE (COALESCE (nickname, vnaam), ' ', '') || '.'),
+ REPLACE (INITCAP (COALESCE (nickname, vnaam)), ' ', '') || '.'),
+ LOWER(SUBSTR (TRIM (COALESCE (lastname, anaam)),
+ 1,
+ INSTR (TRIM (COALESCE (lastname, anaam)), ' ') - 1)),
+ SUBSTR (INITCAP (TRIM (COALESCE (lastname, anaam))),
+ 1,
+ INSTR (TRIM (COALESCE (lastname, anaam)), ' ') - 1)),
+ LOWER(SUBSTR (TRIM (COALESCE (lastname, anaam)),
+ INSTR (TRIM (COALESCE (lastname, anaam)), ' ', -1) + 1)),
+ SUBSTR (INITCAP (TRIM (COALESCE (lastname, anaam))),
+ INSTR (TRIM (COALESCE (lastname, anaam)), ' ', -1) + 1)),
+ LOWER (REPLACE (spousename, ' ', '')),
+ REPLACE (INITCAP (spousename), ' ', ''))
+ ELSE -- geen . voor @ (bkwi.nl/uwv.local; <30!) -> ongewijzigd
+ COALESCE (p.prs_perslid_email, ip.email)
+ END)
+ email_schrijfwijzer
+ FROM (SELECT prs_perslid_key,
+ REPLACE (prs_perslid_email, '$', '@') prs_perslid_email,
+ prs_perslid_voornaam vnaam,
+ prs_perslid_naam anaam
+ FROM prs_v_aanwezigperslid) p
+ LEFT JOIN prs_v_aanwezigkenmerklink kl
+ ON p.prs_perslid_key = kl.prs_link_key
+ AND kl.prs_kenmerk_key = 1232 -- ABS-ID
+ FULL JOIN (SELECT *
+ FROM uwva_imp_abs
+ WHERE SUBSTR (empnum, 1, 1) IN ('C', 'I', 'E', 'F', 'D', 'K')) ip
+ ON kl.prs_kenmerklink_waarde = ip.id;
+
+COMMIT;
+
+/* Formatted on 17-2-2014 13:05:55 (QP5 v5.136.908.31019) */
+DECLARE
+ c_commitbuffer NUMBER := 1000;
+ oracle_err_num NUMBER;
+ oracle_err_mes VARCHAR2 (255);
+ v_errormsg VARCHAR2 (1024);
+ v_errorhint VARCHAR2 (1024);
+ v_buffercount NUMBER;
+ v_updates NUMBER;
+BEGIN
+ v_buffercount := 0;
+ v_updates := 0;
+
+ -- Loop over alle lowercase e-mail adressen in FACILITOR en formatteer die
+ -- volgens schrijfwijzer!
+ FOR rc IN (SELECT prs_key, fac_email, sw_email
+ FROM uwva_v_email_schrijfwijzer
+ WHERE fac_email = LOWER (fac_email)) -- Lowercase in FACILITOR!
+ LOOP
+ BEGIN
+ v_errormsg := 'Fout bij bijwerken email';
+
+ UPDATE prs_perslid
+ SET prs_perslid_email = rc.sw_email
+ WHERE prs_perslid_key = rc.prs_key;
+
+ v_updates := v_updates + 1;
+ v_buffercount := v_buffercount + 1;
+
+ IF (v_buffercount >= c_commitbuffer)
+ THEN
+ COMMIT;
+ v_buffercount := 0;
+ END IF;
+ EXCEPTION
+ WHEN OTHERS
+ THEN
+ oracle_err_num := SQLCODE;
+ oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
+ v_errorhint := v_errormsg;
+ v_errormsg :=
+ '['
+ || TO_CHAR (rc.prs_key)
+ || '] '
+ || '(ORACLE error '
+ || oracle_err_num
+ || '/'
+ || oracle_err_mes
+ || ')';
+ DBMS_OUTPUT.PUT_LINE (
+ 'Error: ' || v_errormsg || '; Hint: ' || v_errorhint);
+ END;
+ END LOOP;
+
+ DBMS_OUTPUT.PUT_LINE ('#emails updated: ' || TO_CHAR (v_updates));
+END;
+/
+
+COMMIT;
+
+--UWVA#28572: MLD: rapport op behandelgroepen, vakgroeptype, vakgroep en mld (24 = WEB_MLDBOF)
+CREATE OR REPLACE VIEW uwva_v_rap_mld_behandelgroep AS SELECT NULL x FROM DUAL;
+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 Behandelgroepen',
+ 'uwva_v_rap_mld_behandelgroep',
+ NULL,
+ NULL,
+ NULL,
+ 0,
+ 0,
+ 0,
+ 'Overzicht van vakgroepen en meldingen per behandelgroep',
+ 24,
+ 0);
+
+COMMIT;
+
+-- UWVA#28625: Voortzetting KTO na pilot!
+UPDATE ins_tab_discipline td
+ SET ins_discipline_ktopercentage = 20, td.ins_discipline_ktodrempel = 0
+ WHERE ins_discipline_verwijder IS NULL
+ AND ins_discipline_module = 'MLD'
+ AND ins_srtdiscipline_key IN (1, 2, 3, 9, 10)
+ AND (COALESCE (ins_discipline_ktopercentage, -1) != 20
+ OR COALESCE (ins_discipline_ktodrempel, -1) != 0);
+
+UPDATE mld_stdmelding sm
+ SET sm.mld_stdmelding_kto = 1
+ WHERE sm.mld_stdmelding_verwijder IS NULL
+ AND COALESCE (sm.mld_stdmelding_vervaldatum, SYSDATE) >= TRUNC (SYSDATE)
+ --AND sm.mld_stdmelding_notfrontend = 0
+ AND COALESCE (sm.mld_stdmelding_kto, -1) != 1
+ AND EXISTS
+ (SELECT 1
+ FROM ins_tab_discipline
+ WHERE ins_discipline_verwijder IS NULL
+ AND ins_discipline_module = 'MLD'
+ AND ins_srtdiscipline_key IN (1, 2, 3, 9, 10)
+ AND ins_discipline_ktopercentage = 20
+ AND ins_discipline_ktodrempel = 0
+ AND ins_discipline_key = sm.mld_ins_discipline_key);
+
+COMMIT;
+
+-- UWVA#28494: FDO CNT noti reminder naar LFM
+INSERT INTO fac_notificatie_job (fac_notificatie_job_view,
+ fac_notificatie_job_oms,
+ fac_notificatie_job_mode,
+ fac_notificatie_job_interval,
+ fac_notificatie_job_nextrun,
+ fac_notificatie_job_flags)
+ VALUES ('UWVA_V_NOTI_CNT_LFM_REMINDER',
+ 'Jaarlijkse LFM reminder tbv FDO',
+ 3,
+ 1,
+ null,
+ 0);
+
+INSERT INTO fac_srtnotificatie (fac_srtnotificatie_code,
+ fac_srtnotificatie_mode,
+ fac_srtnotificatie_oms,
+ fac_srtnotificatie_xmlnode,
+ fac_srtnotificatie_groep,
+ fac_srtnotificatie_usermode,
+ fac_srtnotificatie_delay)
+ VALUES ('CUST23',
+ 2,
+ 'LFM FDO reminder',
+ 'contract',
+ 0,
+ 0,
+ 0);
+
+COMMIT;
+
+BEGIN adm.systrackscriptId('$Id$'); END;
+/
+SPOOL OFF
+
+@@uwva_prs.sql
+@@uwva_fin.sql
+--@@uwva_hv.sql
+@@uwva_misc.sql
+
+BEGIN fac.registercustversion('UWVA', 86); END;
+/
+COMMIT;
diff --git a/UWVA/uwva_fin.sql b/UWVA/uwva_fin.sql
index 2519dbd56..a9d5c01fe 100644
--- a/UWVA/uwva_fin.sql
+++ b/UWVA/uwva_fin.sql
@@ -4184,7 +4184,7 @@ AS
REPLACE (TO_CHAR (stuksprijs, '9999990.99'), '.', ',');
-- UWVA#24721/Catering-kavels per 2013!
-/* Formatted on 3-12-2012 9:52:02 (QP5 v5.115.810.9015) */
+/* Formatted on 10-2-2014 11:36:12 (QP5 v5.136.908.31019) */
CREATE OR REPLACE VIEW uwva_v_rap_cat_actual
(
fclt_f_kavel,
@@ -4195,200 +4195,180 @@ CREATE OR REPLACE VIEW uwva_v_rap_cat_actual
fclt_f_voorziening,
aantal,
prijs_per_stuk,
- totaal,
- totaal_afgemeld,
+ btw_perc,
+ tot_excl,
+ tot_afgemeld_excl,
+ tot_afgemeld_btw,
+ tot_afgemeld_incl,
res_id,
fclt_f_kostenplaats_nr,
kostenplaats_oms
)
AS
- SELECT kavel,
- lev_datum,
- gebouw_code,
- ins_discipline_key,
- ins_discipline_omschrijving,
- res_voorziening,
- SUM (aantal),
- REPLACE (TO_CHAR (stuksprijs, '9999990.99'), '.', ','),
- REPLACE (TO_CHAR (SUM (prijs), '9999990.99'), '.', ','),
- SUM (verw_prijs),
- res_id,
- kostenplaats_nr,
- kostenplaats_oms
- FROM (SELECT z.kavel,
- TO_CHAR (x.res_rsv_artikel_levering, 'YYYY-MM-DD')
- lev_datum,
- DECODE (x.alg_ruimte_key,
- NULL, 'Onbekend',
- y.alg_gebouw_upper)
- gebouw_code,
- x.ins_discipline_key,
- x.ins_discipline_omschrijving,
- x.res_item_key,
- x.res_voorziening,
- x.aantal,
- x.stuksprijs,
- x.prijs,
- x.verw_prijs,
- x.res_id,
- COALESCE (
- actkpn.afd_kostenplaats,
- '*VERVALLEN[' || x.prs_kostenplaats_upper || ']'
- )
- kostenplaats_nr,
- COALESCE (
- actkpn.afd_omschrijving,
- '*VERVALLEN['
- || x.prs_kostenplaats_omschrijving
- || ']'
- )
- kostenplaats_oms
- FROM (SELECT COALESCE (rar1.alg_ruimte_key,
- rar2.alg_ruimte_key)
- alg_ruimte_key,
- rra.res_rsv_artikel_levering,
- rd.ins_discipline_key,
- rd.ins_discipline_omschrijving,
- res_rsv_artikel_key res_item_key,
- LTRIM (ra.res_artikel_omschrijving)
- || ' ('
- || COALESCE (ra.res_artikel_eenheid,
- '')
- || ')'
- res_voorziening,
- rra.res_rsv_artikel_aantal aantal,
- ra.res_artikel_prijs stuksprijs,
- rra.res_rsv_artikel_aantal
- * ra.res_artikel_prijs
- prijs,
- rra.res_rsv_artikel_prijs verw_prijs,
- rrr.res_reservering_key
- || '/'
- || rrr.res_rsv_ruimte_volgnr
- res_id,
- rrr.prs_kostenplaats_key,
- kp.prs_kostenplaats_upper,
- kp.prs_kostenplaats_omschrijving
- FROM res_rsv_ruimte rrr,
- res_ruimte_opstelling rro,
- ( SELECT res_ruimte_key,
- MAX (alg_ruimte_key)
- alg_ruimte_key
- FROM res_alg_ruimte
- WHERE res_alg_ruimte_verwijder IS NULL
- GROUP BY res_ruimte_key) rar1,
- ( SELECT res_ruimte_key,
- MAX (alg_ruimte_key)
- alg_ruimte_key
- FROM res_alg_ruimte
- WHERE res_alg_ruimte_verwijder IS NOT NULL
- GROUP BY res_ruimte_key) rar2,
- res_v_aanwezigrsv_artikel rra,
- res_artikel ra,
- res_discipline rd,
- prs_kostensoort ks,
- prs_kostenplaats kp
- WHERE rrr.alg_ruimte_key IS NULL
- AND rrr.res_ruimte_opstel_key =
- rro.res_ruimte_opstel_key
- AND rro.res_ruimte_key =
- rar1.res_ruimte_key(+)
- AND rro.res_ruimte_key =
- rar2.res_ruimte_key(+)
- AND rrr.res_rsv_ruimte_key =
- rra.res_rsv_ruimte_key
- AND rra.res_status_bo_key = 5
- AND rra.res_artikel_key =
- ra.res_artikel_key
- AND ra.res_discipline_key =
- rd.ins_discipline_key
- AND (rd.ins_discipline_omschrijving LIKE
- '%(N)'
- OR rd.ins_discipline_omschrijving LIKE
- '%(Z)')
- AND rd.prs_kostensoort_key =
- ks.prs_kostensoort_key
- AND ks.prs_kostensoort_doorbelasten =
- 1
- AND rrr.prs_kostenplaats_key =
- kp.prs_kostenplaats_key
- UNION ALL
- SELECT rrr.alg_ruimte_key,
- rra.res_rsv_artikel_levering,
- rd.ins_discipline_key,
- rd.ins_discipline_omschrijving,
- res_rsv_artikel_key res_item_key,
- LTRIM (ra.res_artikel_omschrijving)
- || ' ('
- || COALESCE (ra.res_artikel_eenheid,
- '')
- || ')'
- res_voorziening,
- rra.res_rsv_artikel_aantal aantal,
- ra.res_artikel_prijs stuksprijs,
- rra.res_rsv_artikel_aantal
- * ra.res_artikel_prijs
- prijs,
- rra.res_rsv_artikel_prijs verw_prijs,
- rrr.res_reservering_key
- || '/'
- || rrr.res_rsv_ruimte_volgnr
- resid,
- rrr.prs_kostenplaats_key,
- kp.prs_kostenplaats_upper,
- kp.prs_kostenplaats_omschrijving
- FROM res_rsv_ruimte rrr,
- res_v_aanwezigrsv_artikel rra,
- res_artikel ra,
- res_discipline rd,
- prs_kostensoort ks,
- prs_kostenplaats kp
- WHERE rrr.res_ruimte_opstel_key IS NULL
- AND rrr.res_rsv_ruimte_key =
- rra.res_rsv_ruimte_key
- AND rra.res_status_bo_key = 5
- AND rra.res_artikel_key =
- ra.res_artikel_key
- AND ra.res_discipline_key =
- rd.ins_discipline_key
- AND (rd.ins_discipline_omschrijving LIKE
- '%(N)'
- OR rd.ins_discipline_omschrijving LIKE
- '%(Z)')
- AND rd.prs_kostensoort_key =
- ks.prs_kostensoort_key
- AND ks.prs_kostensoort_doorbelasten =
- 1
- AND rrr.prs_kostenplaats_key =
- kp.prs_kostenplaats_key) x
- LEFT JOIN
- alg_v_ruimte_gegevens_all y
- ON x.alg_ruimte_key = y.alg_ruimte_key
- LEFT JOIN
- (SELECT ok.alg_onrgoed_key,
- ud.fac_usrdata_omschr kavel
- FROM alg_v_aanwezigonrgoedkenmerk ok,
- fac_v_aanwezigusrdata ud
- WHERE ok.alg_kenmerk_key = 1420 -- kavel
- AND ok.alg_onrgoed_niveau = 'G'
- --AND ud.fac_usrtab_key = 922
- AND fac.safe_to_number (
- ok.alg_onrgoedkenmerk_waarde
- ) = ud.fac_usrdata_key) z
- ON y.alg_gebouw_key = z.alg_onrgoed_key
- LEFT JOIN
- uwva_v_afd_plus_prj_kpn actkpn
- ON x.prs_kostenplaats_key = actkpn.kostenplaats_key)
- GROUP BY kavel,
- lev_datum,
- gebouw_code,
- ins_discipline_key,
- ins_discipline_omschrijving,
- res_voorziening,
- REPLACE (TO_CHAR (stuksprijs, '9999990.99'), '.', ','),
- res_id,
- kostenplaats_nr,
- kostenplaats_oms;
+ SELECT kavel,
+ lev_datum,
+ gebouw_code,
+ ins_discipline_key,
+ ins_discipline_omschrijving,
+ res_voorziening,
+ SUM (aantal),
+ REPLACE (TO_CHAR (stuksprijs, '9999990.99'), '.', ','),
+ REPLACE (TO_CHAR (btw_perc, '9999990.99'), '.', ','),
+ REPLACE (TO_CHAR (SUM (prijs), '9999990.99'), '.', ','),
+ SUM (verw_prijs),
+ SUM (btw),
+ SUM (verw_prijs + btw),
+ res_id,
+ kostenplaats_nr,
+ kostenplaats_oms
+ FROM (SELECT z.kavel,
+ TO_CHAR (x.res_rsv_artikel_levering, 'YYYY-MM-DD')
+ lev_datum,
+ DECODE (x.alg_ruimte_key,
+ NULL, 'Onbekend',
+ y.alg_gebouw_upper)
+ gebouw_code,
+ x.ins_discipline_key,
+ x.ins_discipline_omschrijving,
+ x.res_item_key,
+ x.res_voorziening,
+ x.aantal,
+ x.stuksprijs,
+ x.btw_perc,
+ x.prijs,
+ x.verw_prijs,
+ ROUND ( (x.verw_prijs * x.btw_perc) / 100, 2) btw,
+ x.res_id,
+ COALESCE (actkpn.afd_kostenplaats,
+ '*VERVALLEN[' || x.prs_kostenplaats_upper || ']')
+ kostenplaats_nr,
+ COALESCE (
+ actkpn.afd_omschrijving,
+ '*VERVALLEN[' || x.prs_kostenplaats_omschrijving || ']')
+ kostenplaats_oms
+ FROM (SELECT COALESCE (rar1.alg_ruimte_key, rar2.alg_ruimte_key)
+ alg_ruimte_key,
+ rra.res_rsv_artikel_levering,
+ rd.ins_discipline_key,
+ rd.ins_discipline_omschrijving,
+ res_rsv_artikel_key res_item_key,
+ LTRIM (ra.res_artikel_omschrijving)
+ || ' ('
+ || COALESCE (ra.res_artikel_eenheid, '')
+ || ')'
+ res_voorziening,
+ rra.res_rsv_artikel_aantal aantal,
+ ra.res_artikel_prijs stuksprijs,
+ ra.res_artikel_btw btw_perc,
+ rra.res_rsv_artikel_aantal * ra.res_artikel_prijs
+ prijs,
+ rra.res_rsv_artikel_prijs verw_prijs,
+ rrr.res_reservering_key
+ || '/'
+ || rrr.res_rsv_ruimte_volgnr
+ res_id,
+ rrr.prs_kostenplaats_key,
+ kp.prs_kostenplaats_upper,
+ kp.prs_kostenplaats_omschrijving
+ FROM res_rsv_ruimte rrr,
+ res_ruimte_opstelling rro,
+ ( SELECT res_ruimte_key,
+ MAX (alg_ruimte_key) alg_ruimte_key
+ FROM res_alg_ruimte
+ WHERE res_alg_ruimte_verwijder IS NULL
+ GROUP BY res_ruimte_key) rar1,
+ ( SELECT res_ruimte_key,
+ MAX (alg_ruimte_key) alg_ruimte_key
+ FROM res_alg_ruimte
+ WHERE res_alg_ruimte_verwijder IS NOT NULL
+ GROUP BY res_ruimte_key) rar2,
+ res_v_aanwezigrsv_artikel rra,
+ res_artikel ra,
+ res_discipline rd,
+ prs_kostensoort ks,
+ prs_kostenplaats kp
+ WHERE rrr.alg_ruimte_key IS NULL
+ AND rrr.res_ruimte_opstel_key =
+ rro.res_ruimte_opstel_key
+ AND rro.res_ruimte_key = rar1.res_ruimte_key(+)
+ AND rro.res_ruimte_key = rar2.res_ruimte_key(+)
+ AND rrr.res_rsv_ruimte_key = rra.res_rsv_ruimte_key
+ AND rra.res_status_bo_key = 5
+ AND rra.res_artikel_key = ra.res_artikel_key
+ AND ra.res_discipline_key = rd.ins_discipline_key
+ AND (rd.ins_discipline_omschrijving LIKE '%(N)'
+ OR rd.ins_discipline_omschrijving LIKE '%(Z)')
+ AND rd.prs_kostensoort_key = ks.prs_kostensoort_key
+ AND ks.prs_kostensoort_doorbelasten = 1
+ AND rrr.prs_kostenplaats_key =
+ kp.prs_kostenplaats_key
+ UNION ALL
+ SELECT rrr.alg_ruimte_key,
+ rra.res_rsv_artikel_levering,
+ rd.ins_discipline_key,
+ rd.ins_discipline_omschrijving,
+ res_rsv_artikel_key res_item_key,
+ LTRIM (ra.res_artikel_omschrijving)
+ || ' ('
+ || COALESCE (ra.res_artikel_eenheid, '')
+ || ')'
+ res_voorziening,
+ rra.res_rsv_artikel_aantal aantal,
+ ra.res_artikel_prijs stuksprijs,
+ ra.res_artikel_btw btw_perc,
+ rra.res_rsv_artikel_aantal * ra.res_artikel_prijs
+ prijs,
+ rra.res_rsv_artikel_prijs verw_prijs,
+ rrr.res_reservering_key
+ || '/'
+ || rrr.res_rsv_ruimte_volgnr
+ resid,
+ rrr.prs_kostenplaats_key,
+ kp.prs_kostenplaats_upper,
+ kp.prs_kostenplaats_omschrijving
+ FROM res_rsv_ruimte rrr,
+ res_v_aanwezigrsv_artikel rra,
+ res_artikel ra,
+ res_discipline rd,
+ prs_kostensoort ks,
+ prs_kostenplaats kp
+ WHERE rrr.res_ruimte_opstel_key IS NULL
+ AND rrr.res_rsv_ruimte_key = rra.res_rsv_ruimte_key
+ AND rra.res_status_bo_key = 5
+ AND rra.res_artikel_key = ra.res_artikel_key
+ AND ra.res_discipline_key = rd.ins_discipline_key
+ AND (rd.ins_discipline_omschrijving LIKE '%(N)'
+ OR rd.ins_discipline_omschrijving LIKE '%(Z)')
+ AND rd.prs_kostensoort_key = ks.prs_kostensoort_key
+ AND ks.prs_kostensoort_doorbelasten = 1
+ AND rrr.prs_kostenplaats_key =
+ kp.prs_kostenplaats_key) x
+ LEFT JOIN alg_v_ruimte_gegevens_all y
+ ON x.alg_ruimte_key = y.alg_ruimte_key
+ LEFT JOIN (SELECT ok.alg_onrgoed_key,
+ ud.fac_usrdata_omschr kavel
+ FROM alg_v_aanwezigonrgoedkenmerk ok,
+ fac_v_aanwezigusrdata ud
+ WHERE ok.alg_kenmerk_key = 1420 -- kavel
+ AND ok.alg_onrgoed_niveau = 'G'
+ --AND ud.fac_usrtab_key = 922
+ AND fac.safe_to_number (
+ ok.alg_onrgoedkenmerk_waarde) =
+ ud.fac_usrdata_key) z
+ ON y.alg_gebouw_key = z.alg_onrgoed_key
+ LEFT JOIN uwva_v_afd_plus_prj_kpn actkpn
+ ON x.prs_kostenplaats_key = actkpn.kostenplaats_key)
+ GROUP BY kavel,
+ lev_datum,
+ gebouw_code,
+ ins_discipline_key,
+ ins_discipline_omschrijving,
+ res_voorziening,
+ REPLACE (TO_CHAR (stuksprijs, '9999990.99'), '.', ','),
+ REPLACE (TO_CHAR (btw_perc, '9999990.99'), '.', ','),
+ res_id,
+ kostenplaats_nr,
+ kostenplaats_oms;
CREATE OR REPLACE VIEW uwva_v_rap_catn_actual
AS
@@ -4398,7 +4378,7 @@ CREATE OR REPLACE VIEW uwva_v_rap_catz_actual
AS
SELECT * FROM uwva_v_rap_cat_actual WHERE fclt_f_kavel = 'Zuid';
-/* Formatted on 3-12-2012 9:52:02 (QP5 v5.115.810.9015) */
+/* Formatted on 10-2-2014 11:36:42 (QP5 v5.136.908.31019) */
CREATE OR REPLACE VIEW uwva_v_rap_cat_frozen
(
fclt_f_exp_datum,
@@ -4409,150 +4389,136 @@ CREATE OR REPLACE VIEW uwva_v_rap_cat_frozen
fclt_f_voorziening,
aantal,
prijs_per_stuk,
- totaal,
- totaal_verwerkt
+ btw_perc,
+ tot_excl,
+ tot_verwerkt_excl,
+ tot_verwerkt_btw,
+ tot_verwerkt_incl
)
AS
- SELECT exp_datum,
- kavel,
- gebouw_code,
- ins_discipline_key,
- ins_discipline_omschrijving,
- res_voorziening,
- SUM (aantal),
- REPLACE (TO_CHAR (stuksprijs, '9999990.99'), '.', ','),
- REPLACE (TO_CHAR (SUM (prijs), '9999990.99'), '.', ','),
- SUM (verw_prijs)
- FROM (SELECT TO_CHAR (x.exp_datum, 'YYYY-MM-DD') exp_datum,
- z.kavel,
- DECODE (x.alg_ruimte_key,
- NULL, 'Onbekend',
- y.alg_gebouw_upper)
- gebouw_code,
- x.ins_discipline_key,
- x.ins_discipline_omschrijving,
- x.res_item_key,
- x.res_voorziening,
- x.aantal,
- x.stuksprijs,
- x.prijs,
- x.verw_prijs
- FROM (SELECT COALESCE (rar1.alg_ruimte_key,
- rar2.alg_ruimte_key)
- alg_ruimte_key,
- TRUNC (rra.res_rsv_artikel_verwerkt)
- exp_datum,
- rd.ins_discipline_key,
- rd.ins_discipline_omschrijving,
- res_rsv_artikel_key res_item_key,
- LTRIM (ra.res_artikel_omschrijving)
- || ' ('
- || COALESCE (ra.res_artikel_eenheid,
- '')
- || ')'
- res_voorziening,
- rra.res_rsv_artikel_aantal aantal,
- ra.res_artikel_prijs stuksprijs,
- rra.res_rsv_artikel_aantal
- * ra.res_artikel_prijs
- prijs,
- rra.res_rsv_artikel_prijs verw_prijs
- FROM res_rsv_ruimte rrr,
- res_ruimte_opstelling rro,
- ( SELECT res_ruimte_key,
- MAX (alg_ruimte_key)
- alg_ruimte_key
- FROM res_alg_ruimte
- WHERE res_alg_ruimte_verwijder IS NULL
- GROUP BY res_ruimte_key) rar1,
- ( SELECT res_ruimte_key,
- MAX (alg_ruimte_key)
- alg_ruimte_key
- FROM res_alg_ruimte
- WHERE res_alg_ruimte_verwijder IS NOT NULL
- GROUP BY res_ruimte_key) rar2,
- res_v_aanwezigrsv_artikel rra,
- res_artikel ra,
- res_discipline rd
- WHERE rrr.alg_ruimte_key IS NULL
- AND rrr.res_ruimte_opstel_key =
- rro.res_ruimte_opstel_key
- AND rro.res_ruimte_key =
- rar1.res_ruimte_key(+)
- AND rro.res_ruimte_key =
- rar2.res_ruimte_key(+)
- AND rrr.res_rsv_ruimte_key =
- rra.res_rsv_ruimte_key
- AND rra.res_artikel_key =
- ra.res_artikel_key
- AND ra.res_discipline_key =
- rd.ins_discipline_key
- AND (rd.ins_discipline_omschrijving LIKE
- '%(N)'
- OR rd.ins_discipline_omschrijving LIKE
- '%(Z)')
- AND rra.res_rsv_artikel_verwerkt >
- TRUNC (ADD_MONTHS (SYSDATE, -12),
- 'YYYY')
- UNION ALL
- SELECT rrr.alg_ruimte_key alg_ruimte_key,
- TRUNC (rra.res_rsv_artikel_verwerkt)
- exp_datum,
- rd.ins_discipline_key,
- rd.ins_discipline_omschrijving,
- res_rsv_artikel_key res_item_key,
- LTRIM (ra.res_artikel_omschrijving)
- || ' ('
- || COALESCE (ra.res_artikel_eenheid,
- '')
- || ')'
- res_voorziening,
- rra.res_rsv_artikel_aantal aantal,
- ra.res_artikel_prijs stuksprijs,
- rra.res_rsv_artikel_aantal
- * ra.res_artikel_prijs
- prijs,
- rra.res_rsv_artikel_prijs verw_prijs
- FROM res_rsv_ruimte rrr,
- res_v_aanwezigrsv_artikel rra,
- res_artikel ra,
- res_discipline rd
- WHERE rrr.res_ruimte_opstel_key IS NULL
- AND rrr.res_rsv_ruimte_key =
- rra.res_rsv_ruimte_key
- AND rra.res_artikel_key =
- ra.res_artikel_key
- AND ra.res_discipline_key =
- rd.ins_discipline_key
- AND (rd.ins_discipline_omschrijving LIKE
- '%(N)'
- OR rd.ins_discipline_omschrijving LIKE
- '%(Z)')
- AND rra.res_rsv_artikel_verwerkt >
- TRUNC (ADD_MONTHS (SYSDATE, -12),
- 'YYYY')) x
- LEFT JOIN
- alg_v_ruimte_gegevens_all y
- ON x.alg_ruimte_key = y.alg_ruimte_key
- LEFT JOIN
- (SELECT ok.alg_onrgoed_key,
- ud.fac_usrdata_omschr kavel
- FROM alg_v_aanwezigonrgoedkenmerk ok,
- fac_v_aanwezigusrdata ud
- WHERE ok.alg_kenmerk_key = 1420 -- kavel
- AND ok.alg_onrgoed_niveau = 'G'
- --AND ud.fac_usrtab_key = 922
- AND fac.safe_to_number (
- ok.alg_onrgoedkenmerk_waarde
- ) = ud.fac_usrdata_key) z
- ON y.alg_gebouw_key = z.alg_onrgoed_key)
- GROUP BY exp_datum,
- kavel,
- gebouw_code,
- ins_discipline_key,
- ins_discipline_omschrijving,
- res_voorziening,
- REPLACE (TO_CHAR (stuksprijs, '9999990.99'), '.', ',');
+ SELECT exp_datum,
+ kavel,
+ gebouw_code,
+ ins_discipline_key,
+ ins_discipline_omschrijving,
+ res_voorziening,
+ SUM (aantal),
+ REPLACE (TO_CHAR (stuksprijs, '9999990.99'), '.', ','),
+ REPLACE (TO_CHAR (btw_perc, '9999990.99'), '.', ','),
+ REPLACE (TO_CHAR (SUM (prijs), '9999990.99'), '.', ','),
+ SUM (verw_prijs),
+ SUM (btw),
+ SUM (verw_prijs + btw)
+ FROM (SELECT TO_CHAR (x.exp_datum, 'YYYY-MM-DD') exp_datum,
+ z.kavel,
+ DECODE (x.alg_ruimte_key,
+ NULL, 'Onbekend',
+ y.alg_gebouw_upper)
+ gebouw_code,
+ x.ins_discipline_key,
+ x.ins_discipline_omschrijving,
+ x.res_item_key,
+ x.res_voorziening,
+ x.aantal,
+ x.stuksprijs,
+ x.btw_perc,
+ x.prijs,
+ x.verw_prijs,
+ ROUND ( (x.verw_prijs * x.btw_perc) / 100, 2) btw
+ FROM (SELECT COALESCE (rar1.alg_ruimte_key, rar2.alg_ruimte_key)
+ alg_ruimte_key,
+ TRUNC (rra.res_rsv_artikel_verwerkt) exp_datum,
+ rd.ins_discipline_key,
+ rd.ins_discipline_omschrijving,
+ res_rsv_artikel_key res_item_key,
+ LTRIM (ra.res_artikel_omschrijving)
+ || ' ('
+ || COALESCE (ra.res_artikel_eenheid, '')
+ || ')'
+ res_voorziening,
+ rra.res_rsv_artikel_aantal aantal,
+ ra.res_artikel_prijs stuksprijs,
+ ra.res_artikel_btw btw_perc,
+ rra.res_rsv_artikel_aantal * ra.res_artikel_prijs
+ prijs,
+ rra.res_rsv_artikel_prijs verw_prijs
+ FROM res_rsv_ruimte rrr,
+ res_ruimte_opstelling rro,
+ ( SELECT res_ruimte_key,
+ MAX (alg_ruimte_key) alg_ruimte_key
+ FROM res_alg_ruimte
+ WHERE res_alg_ruimte_verwijder IS NULL
+ GROUP BY res_ruimte_key) rar1,
+ ( SELECT res_ruimte_key,
+ MAX (alg_ruimte_key) alg_ruimte_key
+ FROM res_alg_ruimte
+ WHERE res_alg_ruimte_verwijder IS NOT NULL
+ GROUP BY res_ruimte_key) rar2,
+ res_v_aanwezigrsv_artikel rra,
+ res_artikel ra,
+ res_discipline rd
+ WHERE rrr.alg_ruimte_key IS NULL
+ AND rrr.res_ruimte_opstel_key =
+ rro.res_ruimte_opstel_key
+ AND rro.res_ruimte_key = rar1.res_ruimte_key(+)
+ AND rro.res_ruimte_key = rar2.res_ruimte_key(+)
+ AND rrr.res_rsv_ruimte_key = rra.res_rsv_ruimte_key
+ AND rra.res_artikel_key = ra.res_artikel_key
+ AND ra.res_discipline_key = rd.ins_discipline_key
+ AND (rd.ins_discipline_omschrijving LIKE '%(N)'
+ OR rd.ins_discipline_omschrijving LIKE '%(Z)')
+ AND rra.res_rsv_artikel_verwerkt >
+ TRUNC (ADD_MONTHS (SYSDATE, -12), 'YYYY')
+ UNION ALL
+ SELECT rrr.alg_ruimte_key alg_ruimte_key,
+ TRUNC (rra.res_rsv_artikel_verwerkt) exp_datum,
+ rd.ins_discipline_key,
+ rd.ins_discipline_omschrijving,
+ res_rsv_artikel_key res_item_key,
+ LTRIM (ra.res_artikel_omschrijving)
+ || ' ('
+ || COALESCE (ra.res_artikel_eenheid, '')
+ || ')'
+ res_voorziening,
+ rra.res_rsv_artikel_aantal aantal,
+ ra.res_artikel_prijs stuksprijs,
+ ra.res_artikel_btw btw_perc,
+ rra.res_rsv_artikel_aantal * ra.res_artikel_prijs
+ prijs,
+ rra.res_rsv_artikel_prijs verw_prijs
+ FROM res_rsv_ruimte rrr,
+ res_v_aanwezigrsv_artikel rra,
+ res_artikel ra,
+ res_discipline rd
+ WHERE rrr.res_ruimte_opstel_key IS NULL
+ AND rrr.res_rsv_ruimte_key = rra.res_rsv_ruimte_key
+ AND rra.res_artikel_key = ra.res_artikel_key
+ AND ra.res_discipline_key = rd.ins_discipline_key
+ AND (rd.ins_discipline_omschrijving LIKE '%(N)'
+ OR rd.ins_discipline_omschrijving LIKE '%(Z)')
+ AND rra.res_rsv_artikel_verwerkt >
+ TRUNC (ADD_MONTHS (SYSDATE, -12), 'YYYY')) x
+ LEFT JOIN alg_v_ruimte_gegevens_all y
+ ON x.alg_ruimte_key = y.alg_ruimte_key
+ LEFT JOIN (SELECT ok.alg_onrgoed_key,
+ ud.fac_usrdata_omschr kavel
+ FROM alg_v_aanwezigonrgoedkenmerk ok,
+ fac_v_aanwezigusrdata ud
+ WHERE ok.alg_kenmerk_key = 1420 -- kavel
+ AND ok.alg_onrgoed_niveau = 'G'
+ --AND ud.fac_usrtab_key = 922
+ AND fac.safe_to_number (
+ ok.alg_onrgoedkenmerk_waarde) =
+ ud.fac_usrdata_key) z
+ ON y.alg_gebouw_key = z.alg_onrgoed_key)
+ GROUP BY exp_datum,
+ kavel,
+ gebouw_code,
+ ins_discipline_key,
+ ins_discipline_omschrijving,
+ res_voorziening,
+ REPLACE (TO_CHAR (stuksprijs, '9999990.99'), '.', ','),
+ REPLACE (TO_CHAR (btw_perc, '9999990.99'), '.', ',');
CREATE OR REPLACE VIEW uwva_v_rap_catn_frozen
AS
diff --git a/UWVA/uwva_misc.sql b/UWVA/uwva_misc.sql
index 724f704df..7a561556e 100644
--- a/UWVA/uwva_misc.sql
+++ b/UWVA/uwva_misc.sql
@@ -5586,7 +5586,8 @@ BEGIN
v_errorhint := 'Fout bij ontdooien abonnement (nieuwe versie).';
UPDATE cnt_contract c
- SET c.cnt_contract_verlenging = NULL
+ SET c.cnt_contract_verlenging = NULL,
+ c.cnt_contract_status = 0 -- UWVA#28403-patch/tijdelijk!
WHERE c.cnt_contract_nummer_intern =
rc.cnt_contract_nummer_intern
AND NOT EXISTS -- Beschouw alleen laatste versie van contracten
@@ -5673,6 +5674,48 @@ BEGIN
k.mld_srtkenmerk_key
AND srtk.mld_srtkenmerk_key = 105); --bsn
+ -- Delete Gevalsnummer + BSN bij vertaalwerkmeldingen die meer dan 60 dagen geleden zijn afgemeld. (UWVA#28316)
+ DELETE FROM mld_kenmerkmelding
+ WHERE mld_kenmerkmelding_key IN
+ (SELECT mld_kenmerkmelding_key
+ FROM mld_kenmerkmelding mk,
+ mld_melding m,
+ fac_tracking tr
+ WHERE mk.mld_kenmerk_key IN (702, 703) -- 702=Gevalsnummer, 703=BSN
+ AND mk.mld_melding_key = m.mld_melding_key
+ AND m.mld_stdmelding_key = 1301 -- Vertaalwerk
+ AND m.mld_melding_key = tr.fac_tracking_refkey
+ AND tr.fac_srtnotificatie_key = 18 -- MLDAFM
+ AND tr.fac_tracking_datum < SYSDATE - 60);
+
+ -- Anonimiseer naam bij vertaalwerkmeldingen die meer dan 60 dagen geleden zijn afgemeld. (UWVA#28316)
+ UPDATE mld_kenmerkmelding
+ SET mld_kenmerkmelding_waarde = 'Anoniem'
+ WHERE mld_kenmerkmelding_key IN
+ (SELECT mld_kenmerkmelding_key
+ FROM mld_kenmerkmelding mk, fac_tracking tr, mld_melding m
+ WHERE mk.mld_kenmerkmelding_waarde != 'Anoniem'
+ AND mk.mld_kenmerk_key = 701 -- Naam
+ AND mk.mld_melding_key = m.mld_melding_key
+ AND m.mld_stdmelding_key = 1301 -- Vertaalwerk
+ AND m.mld_melding_key = tr.fac_tracking_refkey
+ AND tr.fac_srtnotificatie_key = 18 -- MLDAFM
+ AND tr.fac_tracking_datum < SYSDATE - 60);
+
+ -- Delete/anonimiseer bovenstaande kenmerken ook uit Omschrijving van opdracht! (UWVA#28316)
+ EXECUTE IMMEDIATE 'ALTER TRIGGER MLD_T_MLD_OPDR_B_IU DISABLE';
+ UPDATE mld_opdr
+ SET mld_opdr_omschrijving = '[Geanonimiseerd; zie bovenliggende melding voor nog aanwezige gegevens.]'
+ WHERE mld_opdr_omschrijving NOT LIKE '[Geanonimiseerd;%]'
+ AND mld_melding_key IN
+ (SELECT mld_melding_key
+ FROM mld_melding m, fac_tracking tr
+ WHERE m.mld_stdmelding_key = 1301 -- Vertaalwerk
+ AND m.mld_melding_key = tr.fac_tracking_refkey
+ AND tr.fac_srtnotificatie_key = 18 -- MLDAFM
+ AND tr.fac_tracking_datum < SYSDATE - 60);
+ EXECUTE IMMEDIATE 'ALTER TRIGGER MLD_T_MLD_OPDR_B_IU ENABLE';
+
-- Delete BSN voor reserveringen ouder dan 31 dagen en een activiteitkey
-- hebben tussen 21 en 181 (UWVA#19128)
-- Nu ook tussen 281 en 283 (UWVA#23258)
@@ -5697,6 +5740,17 @@ BEGIN
AND srtk.res_srtkenmerk_key = 3 --bsn
AND r.res_rsv_ruimte_tot < SYSDATE - 31);
+ -- Delete BSN van alle bezoekers gelinkt aan afspraken ouder dan 31 dagen
+ -- (UWVA#28511)
+ DELETE FROM bez_kenmerkwaarde bk
+ WHERE bk.bez_kenmerk_key = 1 --bsn
+ AND EXISTS
+ (SELECT 1
+ FROM bez_bezoekers v, bez_afspraak b
+ WHERE v.bez_bezoekers_key = bk.bez_bezoekers_key
+ AND v.bez_afspraak_key = b.bez_afspraak_key
+ AND b.bez_afspraak_datum < SYSDATE - 31);
+
-- Anonimiseer bezoekersnaam voor reserveringen ouder dan 31 dagen en een
-- activiteitkey hebben tussen 21 en 181 (UWVA#19128)
-- Nu ook tussen 281 en 283 (UWVA#23258)
@@ -5717,6 +5771,16 @@ BEGIN
AND v.bez_afspraak_key = b.bez_afspraak_key
AND v.bez_afspraak_naam != 'Anoniem');
+ -- Verwijder opmerking van reserveringen ouder dan 31 dagen en een
+ -- activiteitkey hebben tussen 21 en 181, tussen 281 en 283 en tussen 321 en 323 (UWVA#27583)
+ UPDATE res_rsv_ruimte r
+ SET r.res_rsv_ruimte_opmerking = NULL
+ WHERE ( (r.res_activiteit_key > 20 AND r.res_activiteit_key < 182)
+ OR (r.res_activiteit_key > 280 AND r.res_activiteit_key < 284)
+ OR (r.res_activiteit_key > 320 AND r.res_activiteit_key < 324))
+ AND r.res_rsv_ruimte_tot < SYSDATE - 31
+ AND r.res_rsv_ruimte_opmerking IS NOT NULL;
+
-- Verwijder opmerking voor afspraken van reserveringen ouder dan 31 dagen en een
-- activiteitkey hebben tussen 21 en 181, tussen 281 en 283 en tussen 321 en 323 (UWVA#27583)
UPDATE bez_afspraak
@@ -5734,16 +5798,6 @@ BEGIN
AND b.res_rsv_ruimte_key = r.res_rsv_ruimte_key
AND b.bez_afspraak_opmerking IS NOT NULL);
- -- Verwijder opmerking van reserveringen ouder dan 31 dagen en een
- -- activiteitkey hebben tussen 21 en 181, tussen 281 en 283 en tussen 321 en 323 (UWVA#27583)
- UPDATE res_rsv_ruimte r
- SET r.res_rsv_ruimte_opmerking = NULL
- WHERE ( (r.res_activiteit_key > 20 AND r.res_activiteit_key < 182)
- OR (r.res_activiteit_key > 280 AND r.res_activiteit_key < 284)
- OR (r.res_activiteit_key > 320 AND r.res_activiteit_key < 324))
- AND r.res_rsv_ruimte_tot < SYSDATE - 31
- AND r.res_rsv_ruimte_opmerking IS NOT NULL;
-
COMMIT;
EXCEPTION
WHEN OTHERS
@@ -6136,7 +6190,7 @@ AS
-- CustOrders in de putorders.ini is gezet.
-- Alleen gebruikt in de abonnementen-hoek (UWVA#23124) en ooit geintroduceerd
-- icm. FOLDER-import (per UWVA79/UWVA#25612 vervallen)!
-/* Formatted on 4-9-2012 16:45:45 (QP5 v5.115.810.9015) */
+/* Formatted on 19-2-2014 12:10:02 (QP5 v5.136.908.31019) */
CREATE OR REPLACE VIEW UWVA_V_ORDERQUEUE
(
prs_bedrijf_key,
@@ -6147,58 +6201,56 @@ CREATE OR REPLACE VIEW UWVA_V_ORDERQUEUE
sender
)
AS
- SELECT DISTINCT c.cnt_prs_bedrijf_key,
- 'contract',
- c.cnt_contract_key,
- 2,
- c.cnt_contract_nummer_intern,
- NULL
- FROM cnt_v_aanwezigcontract c,
- (SELECT *
- FROM cnt_kenmerkcontract
- WHERE cnt_kenmerk_key = 700 -- 'Laatste cXML-update' (hidden)
- AND cnt_kenmerkcontract_verwijder IS NULL) kc,
- fac_tracking t,
- fac_srtnotificatie sn
- WHERE c.ins_discipline_key = 360 -- Abonnementen
- AND c.cnt_contract_status = 0 -- NIET Gesloten!
- AND c.cnt_contract_key = kc.cnt_contract_key(+) -- Al verzonden?
- AND c.cnt_contract_key = t.fac_tracking_refkey
- AND t.fac_srtnotificatie_key = sn.fac_srtnotificatie_key
- AND sn.fac_srtnotificatie_code IN ('CUST17', 'CUST18', 'CUST19') -- Verlengd/stopgezet/adres gewijzigd
- AND t.fac_tracking_datum >
- COALESCE (kc.cnt_kenmerkcontract_wijzig,
- kc.cnt_kenmerkcontract_aanmaak,
- TRUNC (SYSDATE - 1))
- UNION
- SELECT DISTINCT c.cnt_prs_bedrijf_key,
- 'contract',
- c.cnt_contract_key,
- 2,
- c.cnt_contract_nummer_intern,
- NULL
- FROM cnt_v_aanwezigcontract c,
- (SELECT *
- FROM cnt_kenmerkcontract
- WHERE cnt_kenmerk_key = 700 -- 'Laatste cXML-update' (hidden)
- AND cnt_kenmerkcontract_verwijder IS NULL) kc,
- fac_tracking t
- WHERE c.ins_discipline_key = 360 -- Abonnementen
- AND c.cnt_contract_status = 1 -- Gesloten!
- AND NOT EXISTS -- Beschouw alleen laatste versie van contracten
- (SELECT 1
- FROM cnt_v_aanwezigcontract
- WHERE cnt_contract_nummer_intern =
- c.cnt_contract_nummer_intern
- AND cnt_contract_versie > c.cnt_contract_versie)
- AND c.cnt_contract_key = kc.cnt_contract_key(+) -- Al verzonden?
- AND c.cnt_contract_key = t.fac_tracking_refkey
- AND t.fac_srtnotificatie_key = 139 -- 'CNTUPD'
- AND UPPER (t.fac_tracking_oms) LIKE '%GESLOTEN%'
- AND t.fac_tracking_datum >
- COALESCE (kc.cnt_kenmerkcontract_wijzig,
- kc.cnt_kenmerkcontract_aanmaak,
- TRUNC (SYSDATE - 1));
+ SELECT DISTINCT c.cnt_prs_bedrijf_key,
+ 'contract',
+ c.cnt_contract_key,
+ 2,
+ c.cnt_contract_nummer_intern,
+ NULL
+ FROM cnt_v_aanwezigcontract c,
+ (SELECT *
+ FROM cnt_kenmerkcontract
+ WHERE cnt_kenmerk_key = 700 -- 'Laatste cXML-update' (hidden)
+ AND cnt_kenmerkcontract_verwijder IS NULL) kc,
+ fac_tracking t
+ WHERE c.ins_discipline_key = 360 -- Abonnementen
+ AND c.cnt_contract_status = 0 -- NIET Gesloten!
+ AND c.cnt_contract_key = kc.cnt_contract_key(+) -- Al verzonden?
+ AND c.cnt_contract_key = t.fac_tracking_refkey
+ AND t.fac_srtnotificatie_key IN (320, 321, 322) -- CUST17/18/19=Verlengd/stopgezet/adres gewijzigd
+ AND t.fac_tracking_datum >
+ COALESCE (kc.cnt_kenmerkcontract_wijzig,
+ kc.cnt_kenmerkcontract_aanmaak,
+ TRUNC (SYSDATE - 1))
+ UNION
+ SELECT DISTINCT c.cnt_prs_bedrijf_key,
+ 'contract',
+ c.cnt_contract_key,
+ 2,
+ c.cnt_contract_nummer_intern,
+ NULL
+ FROM cnt_v_aanwezigcontract c,
+ (SELECT *
+ FROM cnt_kenmerkcontract
+ WHERE cnt_kenmerk_key = 700 -- 'Laatste cXML-update' (hidden)
+ AND cnt_kenmerkcontract_verwijder IS NULL) kc,
+ fac_tracking t
+ WHERE c.ins_discipline_key = 360 -- Abonnementen
+ AND c.cnt_contract_status = 1 -- Gesloten!
+ AND NOT EXISTS -- Beschouw alleen laatste versie van contracten
+ (SELECT 1
+ FROM cnt_v_aanwezigcontract
+ WHERE cnt_contract_nummer_intern =
+ c.cnt_contract_nummer_intern
+ AND cnt_contract_versie > c.cnt_contract_versie)
+ AND c.cnt_contract_key = kc.cnt_contract_key(+) -- Al verzonden?
+ AND c.cnt_contract_key = t.fac_tracking_refkey
+ AND t.fac_srtnotificatie_key = 139 -- 'CNTUPD'
+ AND UPPER (t.fac_tracking_oms) LIKE '%GESLOTEN%'
+ AND t.fac_tracking_datum >
+ COALESCE (kc.cnt_kenmerkcontract_wijzig,
+ kc.cnt_kenmerkcontract_aanmaak,
+ TRUNC (SYSDATE - 1));
-- UWVA#23124/UWVA#24109: Naast de CUST17-, CUST18- en CUST19-notificaties die via
-- de AFTERSALES-export (17/18) en de ABS-import (19) worden voorbereid, worden
@@ -9263,6 +9315,97 @@ AS
TO_NUMBER (TO_CHAR (SYSDATE + 1 / 1440, 'YYYYMMDDHH24'))
AND sn.fac_srtnotificatie_code = 'CUST22';
+-- UWVA#28572: MLD: rapport op behandelgroepen, vakgroeptype, vakgroep en mld
+CREATE OR REPLACE VIEW uwva_v_rap_mld_behandelgroep
+(
+ fclt_f_vakgroeptype,
+ fclt_f_vakgroep,
+ fclt_f_stdmelding,
+ fclt_f_behandelgroep
+)
+AS
+SELECT t.ins_srtdiscipline_omschrijving,
+ v.ins_discipline_omschrijving,
+ s.mld_stdmelding_omschrijving,
+ b.mld_behandelgroep_naam
+ FROM ins_srtdiscipline t,
+ mld_discipline v,
+ mld_stdmelding s,
+ mld_behandelgroep b,
+ mld_disc_params d
+ WHERE s.mld_stdmelding_verwijder IS NULL
+ AND v.ins_discipline_verwijder IS NULL
+ AND t.ins_srtdiscipline_verwijder IS NULL
+ AND (s.mld_stdmelding_vervaldatum IS NULL
+ OR s.mld_stdmelding_vervaldatum > SYSDATE)
+ AND t.ins_srtdiscipline_key = v.ins_srtdiscipline_key
+ AND v.ins_discipline_key = s.mld_ins_discipline_key
+ AND d.mld_ins_discipline_key = v.ins_discipline_key
+ AND b.mld_behandelgroep_key(+) = d.mld_behandelgroep_key;
+
+-- UWVA#28494: FDO CNT noti reminder naar LFM
+CREATE OR REPLACE VIEW UWVA_V_NOTI_CNT_LFM_REMINDER
+(
+ CODE,
+ SENDER,
+ RECEIVER,
+ TEXT,
+ KEY,
+ PAR1,
+ PAR2,
+ XKEY
+)
+AS
+ SELECT 'CUST23',
+ NULL,
+ fac.safe_to_number (ak.alg_onrgoedkenmerk_waarde),
+ 'Controle Facilitaire Dienstovereenkomst - Contract: '
+ || c.cnt_contract_omschrijving,
+ c.cnt_contract_key,
+ c.cnt_contract_nummer_intern,
+ NULL,
+ NULL
+ FROM cnt_contract c,
+ cnt_contract_plaats cp,
+ alg_gebouw g,
+ alg_onrgoedkenmerk ak
+ WHERE ins_discipline_key = 358
+ AND cnt_contract_looptijd_tot > SYSDATE
+ AND c.cnt_contract_verwijder IS NULL
+ AND c.cnt_contract_key = cp.cnt_contract_key
+ AND cp.cnt_contract_plaats_verwijder IS NULL
+ AND cp.cnt_alg_plaats_code = 'G'
+ AND g.alg_gebouw_key = cp.cnt_alg_plaats_key
+ AND alg_onrgoedkenmerk_verwijder IS NULL
+ AND alg_onrgoed_niveau = 'L'
+ AND alg_kenmerk_key = 1020
+ AND g.alg_locatie_key = ak.alg_onrgoed_key
+ UNION ALL
+ SELECT 'CUST23',
+ NULL,
+ fac.safe_to_number (ak.alg_onrgoedkenmerk_waarde),
+ 'Controle Facilitaire Dienstovereenkomst - '
+ || c.cnt_contract_omschrijving,
+ c.cnt_contract_key,
+ c.cnt_contract_nummer_intern,
+ NULL,
+ NULL
+ FROM cnt_contract c,
+ cnt_contract_plaats cp,
+ alg_locatie l,
+ alg_onrgoedkenmerk ak
+ WHERE ins_discipline_key = 358
+ AND cnt_contract_looptijd_tot > SYSDATE
+ AND c.cnt_contract_verwijder IS NULL
+ AND c.cnt_contract_key = cp.cnt_contract_key
+ AND cp.cnt_contract_plaats_verwijder IS NULL
+ AND cp.cnt_alg_plaats_code = 'L'
+ AND l.alg_locatie_key = cp.cnt_alg_plaats_key
+ AND alg_onrgoedkenmerk_verwijder IS NULL
+ AND alg_onrgoed_niveau = 'L'
+ AND alg_kenmerk_key = 1020
+ AND l.alg_locatie_key = ak.alg_onrgoed_key;
+
BEGIN DBMS_UTILITY.COMPILE_SCHEMA(USER, FALSE); END;
/
BEGIN adm.systrackscriptId('$Id$', 0); END;
diff --git a/UWVA/uwva_prs.sql b/UWVA/uwva_prs.sql
index e338ce972..4e1a96d2f 100644
--- a/UWVA/uwva_prs.sql
+++ b/UWVA/uwva_prs.sql
@@ -2212,6 +2212,80 @@ BEGIN
END uwva_update_prs;
/
+/* Formatted on 17-2-2014 11:48:12 (QP5 v5.136.908.31019) */
+CREATE OR REPLACE VIEW uwva_v_email_schrijfwijzer
+(
+ prs_key,
+ fac_id,
+ imp_id,
+ imp_empnum,
+ imp_nickname,
+ imp_lastname,
+ imp_spousename,
+ fac_email,
+ imp_email,
+ sw_email
+)
+AS
+ SELECT DISTINCT
+ p.prs_perslid_key,
+ kl.prs_kenmerklink_waarde,
+ ip.id,
+ ip.empnum,
+ ip.nickname,
+ ip.lastname,
+ ip.spousename,
+ p.prs_perslid_email,
+ ip.email,
+ DECODE (
+ INSTR (COALESCE (p.prs_perslid_email, ip.email), '@'),
+ NULL, -- geen email bekend -> ongewijzigd
+ COALESCE (p.prs_perslid_email, ip.email),
+ 0, -- geen '@' in email -> ongewijzigd
+ COALESCE (p.prs_perslid_email, ip.email),
+ CASE -- email met een '@'
+ WHEN INSTR (COALESCE (p.prs_perslid_email, ip.email) || '.', '.') <
+ INSTR (COALESCE (p.prs_perslid_email, ip.email), '@')
+ THEN -- . voor @ (dus meeste gevallen)
+ REPLACE (
+ REPLACE (
+ REPLACE (
+ REPLACE (
+ INITCAP(SUBSTR (LOWER(COALESCE (p.prs_perslid_email, ip.email)),
+ 1,
+ INSTR (COALESCE (p.prs_perslid_email, ip.email), '.', -1, 2) - 1))
+ || SUBSTR (LOWER(COALESCE (p.prs_perslid_email, ip.email)),
+ INSTR (COALESCE (p.prs_perslid_email, ip.email), '.', -1, 2)),
+ INITCAP(REPLACE (COALESCE (nickname, vnaam), ' ', '') || '.'),
+ REPLACE (INITCAP (COALESCE (nickname, vnaam)), ' ', '') || '.'),
+ LOWER(SUBSTR (TRIM (COALESCE (lastname, anaam)),
+ 1,
+ INSTR (TRIM (COALESCE (lastname, anaam)), ' ') - 1)),
+ SUBSTR (INITCAP (TRIM (COALESCE (lastname, anaam))),
+ 1,
+ INSTR (TRIM (COALESCE (lastname, anaam)), ' ') - 1)),
+ LOWER(SUBSTR (TRIM (COALESCE (lastname, anaam)),
+ INSTR (TRIM (COALESCE (lastname, anaam)), ' ', -1) + 1)),
+ SUBSTR (INITCAP (TRIM (COALESCE (lastname, anaam))),
+ INSTR (TRIM (COALESCE (lastname, anaam)), ' ', -1) + 1)),
+ LOWER (REPLACE (spousename, ' ', '')),
+ REPLACE (INITCAP (spousename), ' ', ''))
+ ELSE -- geen . voor @ (bkwi.nl/uwv.local; <30!) -> ongewijzigd
+ COALESCE (p.prs_perslid_email, ip.email)
+ END)
+ email_schrijfwijzer
+ FROM (SELECT prs_perslid_key,
+ REPLACE (prs_perslid_email, '$', '@') prs_perslid_email,
+ prs_perslid_voornaam vnaam,
+ prs_perslid_naam anaam
+ FROM prs_v_aanwezigperslid) p
+ LEFT JOIN prs_v_aanwezigkenmerklink kl
+ ON p.prs_perslid_key = kl.prs_link_key
+ AND kl.prs_kenmerk_key = 1232 -- ABS-ID
+ FULL JOIN (SELECT *
+ FROM uwva_imp_abs
+ WHERE SUBSTR (empnum, 1, 1) IN ('C', 'I', 'E', 'F', 'D', 'K')) ip
+ ON kl.prs_kenmerklink_waarde = ip.id;
-- ABS importfunctie, herziene versie volgens UWVA#18115, met aanvullingen voor Vinder (UWVA#19010)
CREATE OR REPLACE PROCEDURE uwva_import_abs (p_import_key IN NUMBER)
@@ -2607,42 +2681,48 @@ AS
-- ABS, dan wordt het type in Facilitor bijgewerkt (bijv van E naar I).
CURSOR c_prs_upd
IS
- SELECT DISTINCT SUBSTR(prefname, 1, 30) prs_perslid_naam,
- nickname prs_perslid_voornaam,
- titel prs_perslid_titel,
- account prs_perslid_oslogin,
- funcdscr prs_srtperslid_omschrijving,
- telno prs_perslid_telefoonnr,
- mobno prs_perslid_mobiel,
- faxno prs_perslid_faxnr,
- email email,
- initials prs_perslid_voorletters,
- DECODE( COALESCE( INSTR(prefname, spousename), 0),
- 0, prefix,
- DECODE( INSTR(prefname, lastname),
- 0, spouseprefix,
- CASE
- WHEN INSTR(prefname, lastname) <= INSTR(prefname, spousename)
- THEN prefix
- ELSE spouseprefix
- END))
- prs_perslid_tussenvoegsel,
- empnum prs_perslid_nr,
- empnum_noprefix prs_perslid_nr_noprefix,
- costcent prs_afdeling_naam,
- DECODE (gender, 'M', 1,
- 'V', 0,
- NULL)
- prs_perslid_geslacht,
- SUBSTR(empnum, 1, 1) employeetype,
- pandcode,
- id
- FROM (SELECT *
- FROM uwva_imp_abs
- WHERE SUBSTR(empnum, 1, 1)
- IN ('C', 'I', 'E', 'F', 'D', 'K')
- )
- ;
+SELECT DISTINCT
+ SUBSTR (prefname, 1, 30) prs_perslid_naam,
+ nickname prs_perslid_voornaam,
+ titel prs_perslid_titel,
+ account prs_perslid_oslogin,
+ funcdscr prs_srtperslid_omschrijving,
+ telno prs_perslid_telefoonnr,
+ mobno prs_perslid_mobiel,
+ faxno prs_perslid_faxnr,
+ email email,
+ initials prs_perslid_voorletters,
+ DECODE (
+ COALESCE (INSTR (prefname, spousename), 0),
+ 0,
+ prefix,
+ DECODE (
+ INSTR (prefname, lastname),
+ 0,
+ spouseprefix,
+ CASE
+ WHEN INSTR (prefname, lastname) <=
+ INSTR (prefname, spousename)
+ THEN
+ prefix
+ ELSE
+ spouseprefix
+ END))
+ prs_perslid_tussenvoegsel,
+ empnum prs_perslid_nr,
+ empnum_noprefix prs_perslid_nr_noprefix,
+ costcent prs_afdeling_naam,
+ DECODE (gender, 'M', 1, 'V', 0, NULL) prs_perslid_geslacht,
+ SUBSTR (empnum, 1, 1) employeetype,
+ pandcode,
+ id,
+ sw.sw_email
+ FROM (SELECT *
+ FROM uwva_imp_abs
+ WHERE SUBSTR (empnum, 1, 1) IN ('C', 'I', 'E', 'F', 'D', 'K')) ip
+ LEFT JOIN -- UWVA#27483: E-mail volgens schrijfwijzer (INSERT-only)!
+ uwva_v_email_schrijfwijzer sw
+ ON ip.id = sw.imp_id;
CURSOR c_prs_wp
IS
@@ -2681,7 +2761,7 @@ SELECT hrmloc.prs_perslid_key,
AND km1.prs_kenmerklink_verwijder IS NULL
AND km1.prs_kenmerklink_waarde = uia.id
AND uia.pandcode = kp.prs_kostenplaats_nr
- AND uia.pandcode != 'GDENM0'
+ --[UWVA#28818]AND uia.pandcode != 'GDENM0'
AND kp.prs_kostenplaats_verwijder IS NULL
AND kp.prs_kostenplaats_key = g.prs_kostenplaats_key
AND g.alg_gebouw_verwijder IS NULL
@@ -4221,6 +4301,7 @@ BEGIN
-- waaronder TELNO, MOBNR, FAXNR, ALTACCNT, géén actie vermeld. Hiermee
-- is bedoeld dat deze velden niet gebruikt moeten worden en dus niet voor
-- mutaties in Facilitor mogen dienen."
+ -- UWVA#27483: gebruik/formatteer e-mail adres volgens schrijfwijzer
-- UWVA#27630: stel e-mailadres (alles vóór de '@') in als alternatieve login
INSERT INTO prs_perslid (prs_perslid_naam,
prs_perslid_tussenvoegsel,
@@ -4244,9 +4325,9 @@ BEGIN
--rec_upd.prs_perslid_mobiel,
rec_upd.prs_perslid_nr,
rec_upd.prs_perslid_titel,
- rec_upd.email,
+ rec_upd.sw_email, -- Volgens schrijfwijzer
rec_upd.prs_perslid_oslogin,
- UPPER( SUBSTR(rec_upd.email, 1, INSTR(rec_upd.email, '@')-1 ) ),
+ UPPER( SUBSTR(rec_upd.email, 1, INSTR(rec_upd.email, '@')-1) ),
rec_upd.prs_perslid_geslacht,
v_srtperslid_key,
v_afdeling_key)
@@ -4705,14 +4786,24 @@ BEGIN
-- *** Update HRM-WP voor personen **************************************************************
v_errormsg := 'Try to open cursor c_prs_wp ';
+ -- Cursor levert alleen personen waarvoor iets moet gebeuren!
FOR rec_wp IN c_prs_wp
LOOP
BEGIN
v_aktie := 'NONE';
v_errormsg := 'NONE';
- -- Cursor levert alleen personen waarvoor iets moet gebeuren! Eerst
- -- dus maar eens de huidige HRM-WP(s) opruimen, tenzij dit toevallig
+-- UWVA#28818: Alleen personen waarvoor iets moet gebeuren, behalve igv.
+-- GDENM0, dan uitzonderingssituatie loggen!
+IF (rec_wp.pandcode = 'GDENM0')
+THEN
+ fac.imp_writelog (
+ p_import_key, 'I',
+ rec_wp.aanduiding || ': WPs niet bijgewerkt in DENM0!',
+ 'WP'
+ );
+ELSE
+ -- Eerst eens de huidige HRM-WP(s) opruimen, tenzij dit toevallig
-- de laagste/oudste WP op beoogde HRM-locatie is (dan behouden).
-- Per 5.3.2/FSN#26947 verdwijnt via trigger vanzelf de bezetting!
v_errormsg := 'Fout bij verwijderen (oude) HRM-WP(s)';
@@ -4973,6 +5064,7 @@ BEGIN
COMMIT;
v_buffercount := 0;
END IF;
+END IF;
EXCEPTION
WHEN OTHERS
THEN
@@ -5772,11 +5864,12 @@ AS
div.prs_afdeling_naam6 alt_divisie
FROM prs_kenmerklink,
prs_v_aanwezigafdeling afd,
+ prs_v_afdeling_boom ab,
prs_v_aanwezigafdeling div
WHERE prs_kenmerk_key = 1173
- AND afd.prs_afdeling_key = prs_kenmerklink_waarde
- AND afd.prs_afdeling_parentkey = div.prs_afdeling_key(+)
- AND div.prs_afdeling_parentkey IS NULL
+ AND afd.prs_afdeling_key = fac.safe_to_number(prs_kenmerklink_waarde)
+ AND ab.prs_afdeling_key = afd.prs_afdeling_key
+ AND div.prs_afdeling_key = ab.prs_afdeling_key1
AND prs_kenmerklink_verwijder IS NULL) f3
ON pl.prs_perslid_key = f3.prs_link_key
--1192 = Alternatieve functie (S)
diff --git a/VIAR/viar.sql b/VIAR/viar.sql
index d24aa0845..3184df61b 100644
--- a/VIAR/viar.sql
+++ b/VIAR/viar.sql
@@ -1429,8 +1429,35 @@ AS SELECT
WHERE mld_melding_key = m.mld_melding_key);
+---------------------------
+-- Incidentele Bestel Aanvragen (IBA's):
+-- Keuze van leverancier via view VIAR_V_IBA_LEVERANCIERS: Tbv domein 'leveranciers' bij verplichte keuze bij IBA waar leverancier moet worden gekozen.
+-- Keuze van BTW percentage via view VIAR_V_IBA_BTWPERC.
+CREATE OR REPLACE VIEW viar_v_iba_leveranciers
+(PRS_BEDRIJF_KEY,
+PRS_BEDRIJF_NAAM
+)
+AS
+SELECT prs_bedrijf_key, prs_bedrijf_naam
+FROM prs_bedrijf b
+WHERE B.PRS_BEDRIJF_INTERN IS NULL
+AND B.PRS_BEDRIJF_LEVERANCIER = 1
+AND b.prs_bedrijf_verwijder IS NULL;
+
+CREATE OR REPLACE VIEW viar_v_iba_btwperc
+(FIN_BTWTABELWAARDE_KEY,
+FIN_BTWTABELWAARDE_PERC
+)
+AS
+SELECT tw.fin_btwtabelwaarde_key, SUBSTR(' ' || to_char(tw.fin_btwtabelwaarde_perc) || '%', length(tw.fin_btwtabelwaarde_perc))
+FROM fin_btwtabelwaarde tw, fin_btwtabel t
+WHERE t.fin_btwtabel_default=1
+AND t.fin_btwtabel_key = tw.fin_btwtabel_key
+AND t.fin_btwtabel_verwijder IS NULL
+AND tw.fin_btwtabelwaarde_verwijder IS NULL;
+
----- Notificatie JOB voor MIPP-commisie
@@ -1501,7 +1528,7 @@ AS SELECT
BEGIN adm.systrackscriptId('$Id$', 0); END;
/
-BEGIN fac.registercustversion('VIAR', 1); END;
+BEGIN fac.registercustversion('VIAR', 2); END;
/
commit;
diff --git a/WIBC/wibc.sql b/WIBC/wibc.sql
index 8c6df7370..407d60542 100644
--- a/WIBC/wibc.sql
+++ b/WIBC/wibc.sql
@@ -15,7 +15,7 @@ AS
END;
/
-/* Formatted on 5-6-2013 15:30:45 (QP5 v5.115.810.9015) */
+/* Formatted on 10-3-2014 15:12:18 (QP5 v5.136.908.31019) */
CREATE OR REPLACE PACKAGE BODY WIBC
AS
PROCEDURE freezereserveringen (p_prskey IN NUMBER, p_periode IN NUMBER)
@@ -27,311 +27,149 @@ AS
-- Tevens wordt aan al deze reserveringen het factuurnummer gekoppeld.
CURSOR cobj
IS
- SELECT x.periode,
- x.res_rsv_ruimte_key,
- x.res_reservering_key,
- x.res_rsv_ruimte_volgnr,
- x.res_rsv_deel_key,
- x.res_status_bo_key
- FROM (SELECT rr.res_rsv_ruimte_key,
- rr.res_reservering_key,
- rr.res_rsv_ruimte_volgnr,
- DECODE (
- TO_CHAR (rr.res_rsv_ruimte_tot, 'yyyymm'),
- TO_CHAR (SYSDATE, 'yyyymm'),
- 0,
- 1
- )
- periode,
- rd.res_rsv_deel_key,
- rd.res_status_bo_key,
- rr.res_rsv_ruimte_contact_key,
- TRIM (bedr.prs_kenmerklink_waarde) bedrijf
- FROM res_v_aanwezigrsv_ruimte rr,
- res_v_aanwezigrsv_deel rd,
- prs_perslid p,
- (SELECT *
- FROM prs_v_aanwezigkenmerklink
- WHERE prs_kenmerk_key = 1000) bedr
- WHERE rr.res_status_fo_key IN (1, 2)
- AND COALESCE (rr.res_status_bo_key, 2) != 6 -- Nog niet AV
- AND rr.res_rsv_ruimte_dirtlevel = 0
- AND rr.res_rsv_ruimte_key =
- rd.res_rsv_ruimte_key
- AND rd.res_status_bo_key != 6 -- Nog niet AV
- AND rd.res_rsv_deel_dirtlevel = 0
- AND rd.res_rsv_ruimte_key IS NOT NULL -- Geen parkeerplaatsen
- AND rr.res_rsv_ruimte_contact_key =
- p.prs_perslid_key
- AND p.prs_afdeling_key IN (21, 22) -- Leden/Niet leden
- --AND TRUNC (rr.res_rsv_ruimte_tot) <
- -- TO_DATE (
- -- '01' || TO_CHAR (SYSDATE, 'mmyyyy'),
- -- 'ddmmyyyy'
- -- )
- AND rr.res_rsv_ruimte_tot < SYSDATE + (1 / 24)
- AND rr.res_rsv_ruimte_contact_key =
- bedr.prs_link_key(+)) x
- LEFT JOIN
- (SELECT c.bedrijf,
- COALESCE (mc.prs_link_key, c.prs_link_key)
- prs_link_key
- FROM ( SELECT UPPER(TRIM(kl.prs_kenmerklink_waarde))
- bedrijf,
- MIN (kl.prs_link_key)
- prs_link_key
- FROM prs_v_aanwezigkenmerklink kl,
- prs_perslid p
- WHERE kl.prs_kenmerk_key = 1000
- AND kl.prs_link_key =
- p.prs_perslid_key
- AND p.prs_afdeling_key IN
- (21, 22) -- Leden/Niet leden
- GROUP BY UPPER(TRIM(kl.prs_kenmerklink_waarde)))
- c
- LEFT JOIN
- ( SELECT UPPER(TRIM(kl.prs_kenmerklink_waarde))
- bedrijf,
- MIN (kl.prs_link_key)
- prs_link_key
- FROM prs_v_aanwezigkenmerklink kl,
- prs_perslid p
- WHERE kl.prs_kenmerk_key = 1000
- AND kl.prs_link_key =
- p.prs_perslid_key
- AND p.prs_afdeling_key IN
- (21, 22) -- Leden/Niet leden
- AND p.prs_srtperslid_key = 482
- GROUP BY UPPER(TRIM(kl.prs_kenmerklink_waarde)))
- mc
- ON c.bedrijf = mc.bedrijf) y
- ON UPPER (x.bedrijf) = y.bedrijf
- WHERE COALESCE (y.prs_link_key, x.res_rsv_ruimte_contact_key) =
- p_prskey
- AND x.periode = p_periode;
+ SELECT x.periode,
+ x.res_rsv_ruimte_key,
+ x.res_reservering_key,
+ x.res_rsv_ruimte_volgnr,
+ x.res_rsv_deel_key,
+ x.res_status_bo_key
+ FROM (SELECT DECODE (TO_CHAR (rr.res_rsv_ruimte_tot, 'yyyymm'),
+ TO_CHAR (SYSDATE, 'yyyymm'), 0,
+ 1)
+ periode,
+ rr.res_rsv_ruimte_key,
+ rr.res_reservering_key,
+ rr.res_rsv_ruimte_volgnr,
+ rd.res_rsv_deel_key,
+ rd.res_status_bo_key
+ FROM res_v_aanwezigrsv_ruimte rr,
+ res_v_aanwezigrsv_deel rd,
+ wibc_v_cp v
+ WHERE rr.res_status_fo_key IN (1, 2)
+ AND COALESCE (rr.res_status_bo_key, 2) != 6 -- Nog niet AV
+ AND rr.res_rsv_ruimte_dirtlevel = 0
+ AND rr.res_rsv_ruimte_key = rd.res_rsv_ruimte_key
+ AND rd.res_status_bo_key != 6 -- Nog niet AV
+ AND rd.res_rsv_deel_dirtlevel = 0
+ AND rd.res_rsv_ruimte_key IS NOT NULL -- Geen parkeerplaatsen
+ AND rr.res_rsv_ruimte_contact_key = v.cp_key
+ AND v.bcp_key = p_prskey
+ AND rr.res_rsv_ruimte_tot < SYSDATE + (1 / 24)) x
+ WHERE x.periode = p_periode;
CURSOR cart
IS
- SELECT x.periode,
- x.res_rsv_ruimte_key,
- x.res_reservering_key,
- x.res_rsv_ruimte_volgnr,
- x.res_rsv_artikel_key,
- x.res_artikel_key,
- x.res_status_bo_key,
- x.res_artikel_prijs_vast
- FROM (SELECT rr.res_rsv_ruimte_key,
- rr.res_reservering_key,
- rr.res_rsv_ruimte_volgnr,
- DECODE (
- TO_CHAR (rr.res_rsv_ruimte_tot, 'yyyymm'),
- TO_CHAR (SYSDATE, 'yyyymm'),
- 0,
- 1
- )
- periode,
- ra.res_rsv_artikel_key,
- ra.res_artikel_key,
- ra.res_status_bo_key,
- a.res_artikel_prijs_vast,
- rr.res_rsv_ruimte_contact_key,
- TRIM (bedr.prs_kenmerklink_waarde) bedrijf
- FROM res_v_aanwezigrsv_ruimte rr,
- res_v_aanwezigrsv_artikel ra,
- res_artikel a,
- prs_perslid p,
- (SELECT *
- FROM prs_v_aanwezigkenmerklink
- WHERE prs_kenmerk_key = 1000) bedr
- WHERE rr.res_status_fo_key IN (1, 2)
- AND COALESCE (rr.res_status_bo_key, 2) != 6 -- Nog niet AV
- AND rr.res_rsv_ruimte_dirtlevel = 0
- AND rr.res_rsv_ruimte_key =
- ra.res_rsv_ruimte_key
- AND ra.res_artikel_key = a.res_artikel_key
- AND ra.res_status_bo_key != 6 -- Nog niet AV
- AND ra.res_rsv_artikel_dirtlevel = 0
- AND rr.res_rsv_ruimte_contact_key =
- p.prs_perslid_key
- AND p.prs_afdeling_key IN (21, 22) -- Leden/Niet leden
- --AND TRUNC (rr.res_rsv_ruimte_tot) <
- -- TO_DATE (
- -- '01' || TO_CHAR (SYSDATE, 'mmyyyy'),
- -- 'ddmmyyyy'
- -- )
- AND rr.res_rsv_ruimte_tot < SYSDATE + (1 / 24)
- AND rr.res_rsv_ruimte_contact_key =
- bedr.prs_link_key(+)) x
- LEFT JOIN
- (SELECT c.bedrijf,
- COALESCE (mc.prs_link_key, c.prs_link_key)
- prs_link_key
- FROM ( SELECT UPPER(TRIM(kl.prs_kenmerklink_waarde))
- bedrijf,
- MIN (kl.prs_link_key)
- prs_link_key
- FROM prs_v_aanwezigkenmerklink kl,
- prs_perslid p
- WHERE kl.prs_kenmerk_key = 1000
- AND kl.prs_link_key =
- p.prs_perslid_key
- AND p.prs_afdeling_key IN
- (21, 22) -- Leden/Niet leden
- GROUP BY UPPER(TRIM(kl.prs_kenmerklink_waarde)))
- c
- LEFT JOIN
- ( SELECT UPPER(TRIM(kl.prs_kenmerklink_waarde))
- bedrijf,
- MIN (kl.prs_link_key)
- prs_link_key
- FROM prs_v_aanwezigkenmerklink kl,
- prs_perslid p
- WHERE kl.prs_kenmerk_key = 1000
- AND kl.prs_link_key =
- p.prs_perslid_key
- AND p.prs_afdeling_key IN
- (21, 22) -- Leden/Niet leden
- AND p.prs_srtperslid_key = 482
- GROUP BY UPPER(TRIM(kl.prs_kenmerklink_waarde)))
- mc
- ON c.bedrijf = mc.bedrijf) y
- ON UPPER (x.bedrijf) = y.bedrijf
- WHERE COALESCE (y.prs_link_key, x.res_rsv_ruimte_contact_key) =
- p_prskey
- AND x.periode = p_periode;
+ SELECT x.periode,
+ x.res_rsv_ruimte_key,
+ x.res_reservering_key,
+ x.res_rsv_ruimte_volgnr,
+ x.res_rsv_artikel_key,
+ x.res_artikel_key,
+ x.res_status_bo_key,
+ x.res_artikel_prijs_vast
+ FROM (SELECT DECODE (TO_CHAR (rr.res_rsv_ruimte_tot, 'yyyymm'),
+ TO_CHAR (SYSDATE, 'yyyymm'), 0,
+ 1)
+ periode,
+ rr.res_rsv_ruimte_key,
+ rr.res_reservering_key,
+ rr.res_rsv_ruimte_volgnr,
+ ra.res_rsv_artikel_key,
+ ra.res_artikel_key,
+ ra.res_status_bo_key,
+ a.res_artikel_prijs_vast
+ FROM res_v_aanwezigrsv_ruimte rr,
+ res_v_aanwezigrsv_artikel ra,
+ res_artikel a,
+ wibc_v_cp v
+ WHERE rr.res_status_fo_key IN (1, 2)
+ AND COALESCE (rr.res_status_bo_key, 2) != 6 -- Nog niet AV
+ AND rr.res_rsv_ruimte_dirtlevel = 0
+ AND rr.res_rsv_ruimte_key = ra.res_rsv_ruimte_key
+ AND ra.res_artikel_key = a.res_artikel_key
+ AND ra.res_status_bo_key != 6 -- Nog niet AV
+ AND ra.res_rsv_artikel_dirtlevel = 0
+ AND rr.res_rsv_ruimte_contact_key = v.cp_key
+ AND v.bcp_key = p_prskey
+ AND rr.res_rsv_ruimte_tot < SYSDATE + (1 / 24)) x
+ WHERE x.periode = p_periode;
CURSOR crui
IS
- SELECT x.periode,
- x.res_rsv_ruimte_key,
- x.res_reservering_key,
- x.res_rsv_ruimte_volgnr,
- x.res_status_bo_key,
- x.old_prijs,
- x.new_prijs
- FROM (SELECT rr.res_rsv_ruimte_key,
- rr.res_reservering_key,
- rr.res_rsv_ruimte_volgnr,
- DECODE (
- TO_CHAR (rr.res_rsv_ruimte_tot, 'yyyymm'),
- TO_CHAR (SYSDATE, 'yyyymm'),
- 0,
- 1
- )
- periode,
- rr.res_status_bo_key,
- COALESCE (rr.res_rsv_ruimte_prijs, 0)
- old_prijs,
- DECODE (
- SIGN( ( (rr.res_rsv_ruimte_tot
- - rr.res_rsv_ruimte_van)
- * 24)
- - 8),
- -1,
- DECODE (
- SIGN( ( (rr.res_rsv_ruimte_tot
- - rr.res_rsv_ruimte_van)
- * 24)
- - 4),
- -1,
- (rr.res_rsv_ruimte_tot
- - rr.res_rsv_ruimte_van)
- * 24
- * COALESCE (r.res_ruimte_prijs, 0),
- COALESCE (r.res_ruimte_prijs_ochtend, 0)
- + ( ( (rr.res_rsv_ruimte_tot
- - rr.res_rsv_ruimte_van)
- * 24)
- - 4)
- * COALESCE (r.res_ruimte_prijs, 0)
- ),
- COALESCE (r.res_ruimte_prijs_middag, 0)
- )
- new_prijs,
- rr.res_rsv_ruimte_contact_key,
- TRIM (bedr.prs_kenmerklink_waarde) bedrijf
- FROM res_v_aanwezigrsv_ruimte rr,
- res_ruimte_opstelling ro,
- res_ruimte r,
- prs_perslid p,
- (SELECT *
- FROM prs_v_aanwezigkenmerklink
- WHERE prs_kenmerk_key = 1000) bedr
- WHERE rr.res_status_fo_key IN (1, 2)
- AND COALESCE (rr.res_status_bo_key, 2) != 6 -- Nog niet AV
- AND rr.res_rsv_ruimte_dirtlevel = 0
- AND rr.res_rsv_ruimte_ordernr IS NULL -- Nog geen factuur!
- AND rr.res_ruimte_opstel_key =
- ro.res_ruimte_opstel_key(+)
- AND ro.res_ruimte_key = r.res_ruimte_key(+)
- AND rr.res_rsv_ruimte_contact_key =
- p.prs_perslid_key
- AND p.prs_afdeling_key IN (21, 22) -- Leden/Niet leden
- --AND TRUNC (rr.res_rsv_ruimte_tot) <
- -- TO_DATE (
- -- '01' || TO_CHAR (SYSDATE, 'mmyyyy'),
- -- 'ddmmyyyy'
- -- )
- AND rr.res_rsv_ruimte_tot < SYSDATE + (1 / 24)
- AND rr.res_rsv_ruimte_contact_key =
- bedr.prs_link_key(+)) x
- LEFT JOIN
- (SELECT c.bedrijf,
- COALESCE (mc.prs_link_key, c.prs_link_key)
- prs_link_key
- FROM ( SELECT UPPER(TRIM(kl.prs_kenmerklink_waarde))
- bedrijf,
- MIN (kl.prs_link_key)
- prs_link_key
- FROM prs_v_aanwezigkenmerklink kl,
- prs_perslid p
- WHERE kl.prs_kenmerk_key = 1000
- AND kl.prs_link_key =
- p.prs_perslid_key
- AND p.prs_afdeling_key IN
- (21, 22) -- Leden/Niet leden
- GROUP BY UPPER(TRIM(kl.prs_kenmerklink_waarde)))
- c
- LEFT JOIN
- ( SELECT UPPER(TRIM(kl.prs_kenmerklink_waarde))
- bedrijf,
- MIN (kl.prs_link_key)
- prs_link_key
- FROM prs_v_aanwezigkenmerklink kl,
- prs_perslid p
- WHERE kl.prs_kenmerk_key = 1000
- AND kl.prs_link_key =
- p.prs_perslid_key
- AND p.prs_afdeling_key IN
- (21, 22) -- Leden/Niet leden
- AND p.prs_srtperslid_key = 482
- GROUP BY UPPER(TRIM(kl.prs_kenmerklink_waarde)))
- mc
- ON c.bedrijf = mc.bedrijf) y
- ON UPPER (x.bedrijf) = y.bedrijf
- WHERE COALESCE (y.prs_link_key, x.res_rsv_ruimte_contact_key) =
- p_prskey
- AND x.periode = p_periode;
+ SELECT x.periode,
+ x.res_rsv_ruimte_key,
+ x.res_reservering_key,
+ x.res_rsv_ruimte_volgnr,
+ x.res_status_bo_key,
+ x.old_prijs,
+ x.new_prijs
+ FROM (SELECT DECODE (TO_CHAR (rr.res_rsv_ruimte_tot, 'yyyymm'),
+ TO_CHAR (SYSDATE, 'yyyymm'), 0,
+ 1)
+ periode,
+ rr.res_rsv_ruimte_key,
+ rr.res_reservering_key,
+ rr.res_rsv_ruimte_volgnr,
+ rr.res_status_bo_key,
+ COALESCE (rr.res_rsv_ruimte_prijs, 0) old_prijs,
+ DECODE (
+ SIGN( ( (rr.res_rsv_ruimte_tot
+ - rr.res_rsv_ruimte_van)
+ * 24)
+ - 8),
+ -1,
+ DECODE (
+ SIGN( ( (rr.res_rsv_ruimte_tot
+ - rr.res_rsv_ruimte_van)
+ * 24)
+ - 4),
+ -1,
+ (rr.res_rsv_ruimte_tot - rr.res_rsv_ruimte_van)
+ * 24
+ * COALESCE (r.res_ruimte_prijs, 0),
+ COALESCE (r.res_ruimte_prijs_ochtend, 0)
+ + ( ( (rr.res_rsv_ruimte_tot
+ - rr.res_rsv_ruimte_van)
+ * 24)
+ - 4)
+ * COALESCE (r.res_ruimte_prijs, 0)),
+ COALESCE (r.res_ruimte_prijs_middag, 0))
+ new_prijs
+ FROM res_v_aanwezigrsv_ruimte rr,
+ res_ruimte_opstelling ro,
+ res_ruimte r,
+ wibc_v_cp v
+ WHERE rr.res_status_fo_key IN (1, 2)
+ AND COALESCE (rr.res_status_bo_key, 2) != 6 -- Nog niet AV
+ AND rr.res_rsv_ruimte_dirtlevel = 0
+ AND rr.res_rsv_ruimte_ordernr IS NULL -- Nog geen factuur!
+ AND rr.res_ruimte_opstel_key = ro.res_ruimte_opstel_key(+)
+ AND ro.res_ruimte_key = r.res_ruimte_key(+)
+ AND rr.res_rsv_ruimte_contact_key = v.cp_key
+ AND v.bcp_key = p_prskey
+ AND rr.res_rsv_ruimte_tot < SYSDATE + (1 / 24)) x
+ WHERE x.periode = p_periode;
- c_applname VARCHAR2 (50) := 'FREEZE_RES';
- v_errormsg VARCHAR2 (1000);
- oracle_err_num NUMBER;
- oracle_err_mes VARCHAR2 (200);
- v_aanduiding VARCHAR2 (200) := '-';
- v_count NUMBER (10);
- v_count_upd NUMBER (10);
- v_factuurnr VARCHAR2 (20);
- v_prskey NUMBER (10);
- v_huurderlid VARCHAR2 (1) := 'N';
- v_factuurbedrag NUMBER (12, 2);
- v_prijs NUMBER (9, 2);
+ c_applname VARCHAR2 (50) := 'FREEZE_RES';
+ v_errormsg VARCHAR2 (1000);
+ oracle_err_num NUMBER;
+ oracle_err_mes VARCHAR2 (200);
+ v_aanduiding VARCHAR2 (200) := '-';
+ v_count NUMBER (10);
+ v_count_upd NUMBER (10);
+ v_factuurnr VARCHAR2 (20);
+ v_prskey NUMBER (10);
+ v_lidmaatschap_prijs NUMBER (8, 2);
+ v_huurderlid VARCHAR2 (1) := 'N';
+ v_factuurbedrag NUMBER (12, 2);
+ v_prijs NUMBER (9, 2);
BEGIN
-- Beginnen met toevoegen Factuur/Debiteur-entry in Eigen tabel met
-- key=82; als dat al niet kan, dan weten wij dat gelijk (nog zonder
-- gevolgschade)!
v_errormsg := 'Fout bij bepalen factuurnummer.';
- SELECT fac_s_user01.NEXTVAL INTO v_count FROM DUAL;
+ SELECT fac_s_user01.NEXTVAL INTO v_count FROM DUAL;
v_factuurnr :=
TO_CHAR (TRUNC (SYSDATE, 'MM') - 1, 'YYYY')
@@ -339,66 +177,18 @@ AS
v_errormsg := 'Fout bij bepalen debiteur.';
- SELECT COALESCE (y.prs_link_key, x.prs_perslid_key)
- INTO v_prskey
- FROM (SELECT p.prs_perslid_key,
- TRIM (bedr.prs_kenmerklink_waarde) bedrijf
- FROM prs_perslid p,
- (SELECT *
- FROM prs_v_aanwezigkenmerklink
- WHERE prs_kenmerk_key = 1000) bedr
- WHERE p.prs_perslid_key = p_prskey
- AND p.prs_perslid_key = bedr.prs_link_key(+)) x
- LEFT JOIN
- (SELECT c.bedrijf,
- COALESCE (mc.prs_link_key, c.prs_link_key)
- prs_link_key
- FROM ( SELECT UPPER (
- TRIM (kl.prs_kenmerklink_waarde)
- )
- bedrijf,
- MIN (kl.prs_link_key) prs_link_key
- FROM prs_v_aanwezigkenmerklink kl,
- prs_perslid p
- WHERE kl.prs_kenmerk_key = 1000
- AND kl.prs_link_key =
- p.prs_perslid_key
- AND p.prs_afdeling_key IN (21, 22) -- Leden/Niet leden
- GROUP BY UPPER(TRIM (
- kl.prs_kenmerklink_waarde
- ))) c
- LEFT JOIN
- ( SELECT UPPER (
- TRIM (kl.prs_kenmerklink_waarde)
- )
- bedrijf,
- MIN (kl.prs_link_key) prs_link_key
- FROM prs_v_aanwezigkenmerklink kl,
- prs_perslid p
- WHERE kl.prs_kenmerk_key = 1000
- AND kl.prs_link_key =
- p.prs_perslid_key
- AND p.prs_afdeling_key IN (21, 22) -- Leden/Niet leden
- AND p.prs_srtperslid_key = 482
- GROUP BY UPPER(TRIM (
- kl.prs_kenmerklink_waarde
- ))) mc
- ON c.bedrijf = mc.bedrijf) y
- ON UPPER (x.bedrijf) = y.bedrijf;
+ SELECT bcp_key, bcnt_prijs
+ INTO v_prskey, v_lidmaatschap_prijs
+ FROM wibc_v_cp
+ WHERE cp_key = p_prskey AND bcp_key = p_prskey;
v_errormsg := 'Fout bij bepalen ruimtekorting.';
- --SELECT COUNT ( * )
- -- INTO v_count
- -- FROM prs_v_aanwezigkenmerklink
- -- WHERE prs_link_key = v_prskey
- -- AND prs_kenmerk_key = 1023 -- Huurder
- -- AND prs_kenmerklink_waarde = '1';
- SELECT COUNT ( * )
- INTO v_count
- FROM wibc_v_rap_res_actual
- WHERE hide_f_debnr = SUBSTR ('000000' || TO_CHAR (v_prskey), -6)
- AND hide_f_restype = '1S';
+ SELECT COUNT ( * )
+ INTO v_count
+ FROM wibc_v_rap_res_actual
+ WHERE hide_f_debnr = SUBSTR ('000000' || TO_CHAR (v_prskey), -6)
+ AND hide_f_restype = '1S';
IF (v_count > 0)
THEN
@@ -407,11 +197,11 @@ AS
v_errormsg := 'Fout bij bepalen lidmaatschap.';
- SELECT COUNT ( * )
- INTO v_count
- FROM wibc_v_rap_res_actual
- WHERE hide_f_debnr = SUBSTR ('000000' || TO_CHAR (v_prskey), -6)
- AND hide_f_restype = '0L';
+ SELECT COUNT ( * )
+ INTO v_count
+ FROM wibc_v_rap_res_actual
+ WHERE hide_f_debnr = SUBSTR ('000000' || TO_CHAR (v_prskey), -6)
+ AND hide_f_restype = '0L';
IF (v_count > 0)
THEN
@@ -430,21 +220,23 @@ AS
fac_usrdata_code,
fac_usrdata_omschr,
fac_usrdata_aanmaak,
- fac_usrdata_vervaldatum)
- VALUES (82,
+ fac_usrdata_vervaldatum,
+ fac_usrdata_prijs)
+ VALUES (82,
v_factuurnr,
TO_CHAR (p_prskey) || v_huurderlid,
TRUNC (SYSDATE),
- TRUNC (SYSDATE + 24));
+ TRUNC (SYSDATE + 24),
+ v_lidmaatschap_prijs);
COMMIT;
v_errormsg := 'Fout bij bepalen factuurbedrag.';
- SELECT SUM (kosten + btwkosten)
- INTO v_factuurbedrag
- FROM wibc_v_rap_res_actual
- WHERE hide_f_debnr = SUBSTR ('000000' || TO_CHAR (v_prskey), -6);
+ SELECT SUM (kosten + btwkosten)
+ INTO v_factuurbedrag
+ FROM wibc_v_rap_res_actual
+ WHERE hide_f_debnr = SUBSTR ('000000' || TO_CHAR (v_prskey), -6);
-- Toevoegen pseudo-transactie in wibc_bankboek voor facturen met een
-- negatief bedrag (te betalen door WIBC aan klant).
@@ -464,7 +256,7 @@ AS
omschrijving,
boekdat_nieuw,
saldo_nieuw)
- VALUES (SYSDATE,
+ VALUES (SYSDATE,
'Geen',
NULL,
NULL,
@@ -502,28 +294,28 @@ AS
THEN
v_errormsg := 'Fout bij TV-en RES-object.';
- UPDATE res_rsv_deel
- SET res_status_bo_key = 5
- WHERE res_rsv_deel_key = rec.res_rsv_deel_key;
+ UPDATE res_rsv_deel
+ SET res_status_bo_key = 5
+ WHERE res_rsv_deel_key = rec.res_rsv_deel_key;
END IF;
v_errormsg := 'Fout bij bepalen res_rsv_deel_prijs.';
- SELECT res.getdeelprijs (rec.res_rsv_deel_key)
- INTO v_prijs
- FROM DUAL;
+ SELECT res.getdeelprijs (rec.res_rsv_deel_key)
+ INTO v_prijs
+ FROM DUAL;
v_errormsg := 'Fout bij bijwerken res_rsv_deel_prijs.';
- UPDATE res_rsv_deel
- SET res_rsv_deel_prijs = v_prijs
- WHERE res_rsv_deel_key = rec.res_rsv_deel_key;
+ UPDATE res_rsv_deel
+ SET res_rsv_deel_prijs = v_prijs
+ WHERE res_rsv_deel_key = rec.res_rsv_deel_key;
v_errormsg := 'Fout bij AV-en RES-object.';
- UPDATE res_rsv_deel
- SET res_status_bo_key = 6
- WHERE res_rsv_deel_key = rec.res_rsv_deel_key;
+ UPDATE res_rsv_deel
+ SET res_status_bo_key = 6
+ WHERE res_rsv_deel_key = rec.res_rsv_deel_key;
v_count_upd := v_count_upd + 1;
@@ -575,39 +367,39 @@ AS
THEN
v_errormsg := 'Fout bij TV-en RES-artikel.';
- UPDATE res_rsv_artikel
- SET res_status_bo_key = 5
- WHERE res_rsv_artikel_key = rec.res_rsv_artikel_key;
+ UPDATE res_rsv_artikel
+ SET res_status_bo_key = 5
+ WHERE res_rsv_artikel_key = rec.res_rsv_artikel_key;
IF (rec.res_artikel_prijs_vast = 1)
THEN
v_errormsg := 'Fout bij bepalen res_rsv_artikel_prijs.';
- SELECT res.getartikelprijs (rec.res_rsv_artikel_key)
- INTO v_prijs
- FROM DUAL;
+ SELECT res.getartikelprijs (rec.res_rsv_artikel_key)
+ INTO v_prijs
+ FROM DUAL;
v_errormsg := 'Fout bij bijwerken res_rsv_artikel_prijs.';
- UPDATE res_rsv_artikel
- SET res_rsv_artikel_prijs = v_prijs,
- res_rsv_artikel_inkoopprijs =
- (SELECT res_artikel_inkoopprijs
- FROM res_artikel
- WHERE res_artikel_key = rec.res_artikel_key),
- res_rsv_artikel_btw =
- (SELECT res_artikel_btw
- FROM res_artikel
- WHERE res_artikel_key = rec.res_artikel_key)
- WHERE res_rsv_artikel_key = rec.res_rsv_artikel_key;
+ UPDATE res_rsv_artikel
+ SET res_rsv_artikel_prijs = v_prijs,
+ res_rsv_artikel_inkoopprijs =
+ (SELECT res_artikel_inkoopprijs
+ FROM res_artikel
+ WHERE res_artikel_key = rec.res_artikel_key),
+ res_rsv_artikel_btw =
+ (SELECT res_artikel_btw
+ FROM res_artikel
+ WHERE res_artikel_key = rec.res_artikel_key)
+ WHERE res_rsv_artikel_key = rec.res_rsv_artikel_key;
END IF;
END IF;
v_errormsg := 'Fout bij AV-en RES-artikel.';
- UPDATE res_rsv_artikel
- SET res_status_bo_key = 6
- WHERE res_rsv_artikel_key = rec.res_rsv_artikel_key;
+ UPDATE res_rsv_artikel
+ SET res_status_bo_key = 6
+ WHERE res_rsv_artikel_key = rec.res_rsv_artikel_key;
v_count_upd := v_count_upd + 1;
@@ -657,9 +449,9 @@ AS
THEN
v_errormsg := 'Fout bij TV-en RES-ruimte.';
- UPDATE res_rsv_ruimte
- SET res_status_bo_key = 5
- WHERE res_rsv_ruimte_key = rec.res_rsv_ruimte_key;
+ UPDATE res_rsv_ruimte
+ SET res_status_bo_key = 5
+ WHERE res_rsv_ruimte_key = rec.res_rsv_ruimte_key;
fac.trackaction ('RESAFM',
rec.res_rsv_ruimte_key,
@@ -706,9 +498,9 @@ AS
v_errormsg := 'Fout bij bijwerken factuurnummer.';
- UPDATE res_rsv_ruimte
- SET res_rsv_ruimte_ordernr = v_factuurnr
- WHERE res_rsv_ruimte_key = rec.res_rsv_ruimte_key;
+ UPDATE res_rsv_ruimte
+ SET res_rsv_ruimte_ordernr = v_factuurnr
+ WHERE res_rsv_ruimte_key = rec.res_rsv_ruimte_key;
-- Niet voor "roomservice"!
IF (rec.res_status_bo_key = 5)
@@ -717,16 +509,16 @@ AS
THEN
v_errormsg := 'Fout bij bijwerken res_rsv_ruimte_prijs';
- UPDATE res_rsv_ruimte rr
- SET rr.res_rsv_ruimte_prijs = rec.new_prijs
- WHERE rr.res_rsv_ruimte_key = rec.res_rsv_ruimte_key;
+ UPDATE res_rsv_ruimte rr
+ SET rr.res_rsv_ruimte_prijs = rec.new_prijs
+ WHERE rr.res_rsv_ruimte_key = rec.res_rsv_ruimte_key;
END IF;
v_errormsg := 'Fout bij AV-en RES-ruimte.';
- UPDATE res_rsv_ruimte
- SET res_status_bo_key = 6
- WHERE res_rsv_ruimte_key = rec.res_rsv_ruimte_key;
+ UPDATE res_rsv_ruimte
+ SET res_status_bo_key = 6
+ WHERE res_rsv_ruimte_key = rec.res_rsv_ruimte_key;
fac.trackaction ('RESVER',
rec.res_rsv_ruimte_key,
@@ -1426,8 +1218,85 @@ EXCEPTION
END wibc_update_mt940;
/
+/* Formatted on 26-2-2014 17:14:02 (QP5 v5.136.908.31019) */
+CREATE OR REPLACE VIEW wibc_v_cp
+(
+ cp_key,
+ pcnt_soort,
+ pcnt_prijs,
+ bedrijf,
+ bcp_key,
+ bcnt_aantal,
+ bcnt_soort,
+ bcnt_prijs
+)
+AS
+ SELECT p.prs_perslid_key,
+ pcnt.contract,
+ pcnt.prijs,
+ pb.bedrijf,
+ COALESCE (bcp1.prs_link_key, bcp2.prs_link_key, p.prs_perslid_key),
+ bcnt.aantal,
+ DECODE (bcnt.min_contract,
+ bcnt.max_contract, bcnt.min_contract,
+ NULL),
+ COALESCE (bcnt.tot_prijs, pcnt.prijs) tot_prijs
+ FROM prs_v_aanwezigperslid p -- Personen (actual)
+ LEFT JOIN (SELECT prs_link_key,
+ ud.fac_usrdata_omschr contract,
+ ud.fac_usrdata_prijs prijs
+ FROM prs_v_aanwezigkenmerklink kl, fac_usrdata ud
+ WHERE kl.prs_kenmerk_key = 1021 -- Contractsoort
+ AND fac.safe_to_number (
+ kl.prs_kenmerklink_waarde) =
+ ud.fac_usrdata_key) pcnt -- Contract (persoon)
+ ON p.prs_perslid_key = pcnt.prs_link_key
+ LEFT JOIN (SELECT prs_link_key,
+ TRIM (prs_kenmerklink_waarde) bedrijf
+ FROM prs_v_aanwezigkenmerklink
+ WHERE prs_kenmerk_key = 1000) pb -- Bedrijf (persoon)
+ ON p.prs_perslid_key = pb.prs_link_key
+ LEFT JOIN ( SELECT UPPER (TRIM (kl.prs_kenmerklink_waarde)) bedrijf,
+ MIN (kl.prs_link_key) prs_link_key
+ FROM prs_v_aanwezigkenmerklink kl,
+ prs_v_aanwezigperslid p
+ WHERE kl.prs_kenmerk_key = 1000 -- Bedrijf
+ AND kl.prs_link_key = p.prs_perslid_key
+ AND p.prs_afdeling_key IN (21, 22) -- Leden/Niet leden
+ AND p.prs_srtperslid_key = 482 -- Main Contact
+ GROUP BY UPPER (TRIM (kl.prs_kenmerklink_waarde))) bcp1 -- CP1 (bedrijf)
+ ON UPPER (pb.bedrijf) = bcp1.bedrijf
+ LEFT JOIN ( SELECT UPPER (TRIM (kl.prs_kenmerklink_waarde)) bedrijf,
+ MIN (kl.prs_link_key) prs_link_key
+ FROM prs_v_aanwezigkenmerklink kl,
+ prs_v_aanwezigperslid p
+ WHERE kl.prs_kenmerk_key = 1000 -- Bedrijf
+ AND kl.prs_link_key = p.prs_perslid_key
+ AND p.prs_afdeling_key IN (21, 22) -- Leden/Niet leden
+ GROUP BY UPPER (TRIM (kl.prs_kenmerklink_waarde))) bcp2 -- CP2 (bedrijf)
+ ON UPPER (pb.bedrijf) = bcp2.bedrijf
+ LEFT JOIN ( SELECT UPPER (TRIM (kl1.prs_kenmerklink_waarde)) bedrijf,
+ COUNT ( * ) aantal,
+ MIN (ud.fac_usrdata_omschr) min_contract,
+ MAX (ud.fac_usrdata_omschr) max_contract,
+ SUM (ud.fac_usrdata_prijs) tot_prijs
+ FROM prs_v_aanwezigkenmerklink kl1,
+ prs_v_aanwezigperslid p,
+ prs_v_aanwezigkenmerklink kl2,
+ fac_usrdata ud
+ WHERE kl1.prs_kenmerk_key = 1000 -- Bedrijf
+ AND kl1.prs_link_key = p.prs_perslid_key
+ AND p.prs_afdeling_key IN (21, 22) -- Leden/Niet leden
+ AND kl1.prs_link_key = kl2.prs_link_key
+ AND kl2.prs_kenmerk_key = 1021 -- Contractsoort
+ AND fac.safe_to_number (
+ kl2.prs_kenmerklink_waarde) =
+ ud.fac_usrdata_key
+ GROUP BY UPPER (TRIM (kl1.prs_kenmerklink_waarde))) bcnt -- Contract (bedrijf)
+ ON UPPER (pb.bedrijf) = bcnt.bedrijf
+ WHERE p.prs_afdeling_key IN (21, 22);
-/* Formatted on 5-6-2013 16:30:45 (QP5 v5.115.810.9015) */
+/* Formatted on 10-3-2014 11:42:24 (QP5 v5.136.908.31019) */
CREATE OR REPLACE VIEW wibc_v_rap_res_actual
(
periode,
@@ -1438,6 +1307,7 @@ CREATE OR REPLACE VIEW wibc_v_rap_res_actual
adres,
postcode,
plaats,
+ land,
btwnr,
fclt_f_factuur,
factuurperiode,
@@ -1461,807 +1331,462 @@ CREATE OR REPLACE VIEW wibc_v_rap_res_actual
opmerking
)
AS
- SELECT DECODE (TO_CHAR (x.tot, 'yyyymm'),
- TO_CHAR (SYSDATE, 'yyyymm'), 0,
- 1)
- periode,
- SUBSTR (
- '000000'
- || TO_CHAR (COALESCE (y.prs_link_key, x.prs_perslid_key)),
- -6
- )
- debnr,
- COALESCE (x.bedrijf,
- SUBSTR ('000000' || TO_CHAR (x.prs_perslid_key), -6))
- bedrijf,
- TRIM (pa.prs_kenmerklink_waarde) pa,
- COALESCE (
- TRIM (tav.prs_kenmerklink_waarde),
- (SELECT DECODE (prs_perslid_geslacht,
- 0, 'Mevr. ',
- 1, 'Dhr. ',
- '')
- || DECODE (prs_perslid_voorletters,
- '', '',
- prs_perslid_voorletters || ' ')
- || DECODE (prs_perslid_tussenvoegsel,
- '', '',
- prs_perslid_tussenvoegsel || ' ')
- || prs_perslid_naam
- FROM prs_perslid
- WHERE prs_perslid_key =
- COALESCE (y.prs_link_key, x.prs_perslid_key))
- )
- tav,
- DECODE (fad.prs_kenmerklink_waarde,
- NULL, TRIM (cad.prs_kenmerklink_waarde),
- TRIM (fad.prs_kenmerklink_waarde))
- adres,
- DECODE (fad.prs_kenmerklink_waarde,
- NULL, TRIM (cpc.prs_kenmerklink_waarde),
- TRIM (fpc.prs_kenmerklink_waarde))
- postcode,
- DECODE (fad.prs_kenmerklink_waarde,
- NULL, TRIM (cpl.prs_kenmerklink_waarde),
- TRIM (fpl.prs_kenmerklink_waarde))
- plaats,
- btwnr.prs_kenmerklink_waarde btwnr,
- '***CONCEPT***' factuurnummer, -- Factuurnummer
- TO_CHAR (TRUNC (SYSDATE, 'mm') - 1, 'yyyy-mm') factuurperiode,
- TO_CHAR (SYSDATE, 'dd-mm-yyyy') factuurdatum,
- TO_CHAR (SYSDATE + 24, 'dd-mm-yyyy') vervaldatum,
- TO_CHAR (x.van, 'yyyy-mm-dd hh24:mi')
- || rvc.res_ruimte_nr
- || x.res_reservering_key
- sortering1, -- Factuurregels op datum-tijd en dan ruimtenr
- rvc.res_type || SUBSTR ('000000' || TO_CHAR (rvc.vnr), -6)
- sortering2, -- ..daarbinnen op type (1R2V3C) en dan volgnr
- x.res_reservering_key || '/' || x.res_rsv_ruimte_volgnr resnr,
- TO_CHAR (x.van, 'dd-mm-yyyy') datum_tijd,
- TO_CHAR (x.van, 'hh24:mi') van,
- TO_CHAR (x.tot, 'hh24:mi') tot,
- TO_CHAR (x.res_rsv_ruimte_bezoekers) bezoekers,
- x.res_activiteit_key,
- DECODE (
- rvc.res_type,
- '2V',
- rvc.res_voorziening || ' / ' || TO_CHAR (rvc.aantal) || ' uur',
- '3C',
- DECODE (x.res_activiteit_key,
- 50, x.res_rsv_ruimte_omschrijving,
- 70, x.res_rsv_ruimte_omschrijving,
- TO_CHAR (rvc.aantal) || ' * ' || rvc.res_voorziening),
- rvc.res_ruimte_nr -- '1R'
- )
- ruimte_voorzieningen,
- TO_CHAR (rvc.aantal) aantal,
- ROUND (
- DECODE (
- rvc.res_rsv_prijs,
- NULL,
- rvc.ps,
- rvc.res_rsv_prijs
- / DECODE (rvc.aantal, NULL, 1, 0, 1, rvc.aantal)
- ),
- 2
- )
- stuksprijs,
- ROUND (
- DECODE (
- rvc.res_type,
- '1R',
- DECODE (
- SIGN (rvc.aantal - 8),
- -1,
- DECODE (SIGN (rvc.aantal - 4),
- -1, rvc.aantal * rvc.ps,
- rvc.po + (rvc.aantal - 4) * rvc.ps),
- rvc.pm
- ),
- DECODE ( -- '2V' of '3C'
- x.res_activiteit_key,
- 50, -- Creditboeking
- -1 * COALESCE (rvc.res_rsv_prijs, rvc.aantal * rvc.ps),
- COALESCE (rvc.res_rsv_prijs, rvc.aantal * rvc.ps)
- )
- ),
- 2
- )
- netto,
- rvc.btw btwtarief,
- ROUND (
- DECODE (
- rvc.res_type,
- '1R',
- DECODE (
- SIGN (rvc.aantal - 8),
- -1,
- DECODE (SIGN (rvc.aantal - 4),
- -1, rvc.aantal * rvc.ps,
- rvc.po + (rvc.aantal - 4) * rvc.ps),
- rvc.pm
- ),
- DECODE ( -- '2V' of '3C'
- x.res_activiteit_key,
- 50, -- Creditboeking
- -1 * COALESCE (rvc.res_rsv_prijs, rvc.aantal * rvc.ps),
- COALESCE (rvc.res_rsv_prijs, rvc.aantal * rvc.ps)
- )
- )
- * rvc.btw
- / 100,
- 2
- )
- btw,
- x.res_rsv_ruimte_omschrijving oms,
- x.res_rsv_ruimte_opmerking opm
- FROM (SELECT rr.res_rsv_ruimte_key,
- rr.res_reservering_key,
- rr.res_rsv_ruimte_volgnr,
- rr.res_rsv_ruimte_van
- van,
- rr.res_rsv_ruimte_tot
- tot,
- rr.res_activiteit_key,
- rr.res_rsv_ruimte_bezoekers,
- rr.res_rsv_ruimte_omschrijving,
- rr.res_rsv_ruimte_opmerking,
- p.prs_perslid_key,
- TRIM(bedr.prs_kenmerklink_waarde)
- bedrijf
- FROM res_v_aanwezigrsv_ruimte rr,
- prs_perslid p,
- (SELECT *
- FROM prs_v_aanwezigkenmerklink
- WHERE prs_kenmerk_key =
- 1000)
- bedr
- WHERE rr.res_rsv_ruimte_ordernr IS NULL
- AND rr.res_status_fo_key IN
- (1, 2)
- AND COALESCE (
- rr.res_status_bo_key,
- 2
- ) != 6 -- Nog niet AV
- AND rr.res_rsv_ruimte_dirtlevel =
- 0
- --AND rr.res_rsv_ruimte_tot <
- -- TO_DATE (
- -- '01'
- -- || TO_CHAR (
- -- SYSDATE,
- -- 'mmyyyy'
- -- ),
- -- 'ddmmyyyy'
- -- )
- AND rr.res_rsv_ruimte_tot <
- SYSDATE
- + (1 / 24)
- AND rr.res_rsv_ruimte_contact_key =
- p.prs_perslid_key
- AND p.prs_afdeling_key IN
- (21, 22) -- Leden/Niet leden
- AND p.prs_perslid_key =
- bedr.prs_link_key(+))
- x
- LEFT JOIN
- (SELECT c.bedrijf,
- COALESCE (
- mc.prs_link_key,
- c.prs_link_key
- )
- prs_link_key
- FROM ( SELECT UPPER(TRIM(kl.prs_kenmerklink_waarde))
- bedrijf,
- MIN(kl.prs_link_key)
- prs_link_key
- FROM prs_v_aanwezigkenmerklink kl,
- prs_perslid p
- WHERE kl.prs_kenmerk_key =
- 1000
- AND kl.prs_link_key =
- p.prs_perslid_key
- AND p.prs_afdeling_key IN
- (21,
- 22) -- Leden/Niet leden
- GROUP BY UPPER(TRIM(kl.prs_kenmerklink_waarde)))
- c
- LEFT JOIN
- ( SELECT UPPER(TRIM(kl.prs_kenmerklink_waarde))
- bedrijf,
- MIN(kl.prs_link_key)
- prs_link_key
- FROM prs_v_aanwezigkenmerklink kl,
- prs_perslid p
- WHERE kl.prs_kenmerk_key =
- 1000
- AND kl.prs_link_key =
- p.prs_perslid_key
- AND p.prs_afdeling_key IN
- (21,
- 22) -- Leden/Niet leden
- AND p.prs_srtperslid_key =
- 482
- GROUP BY UPPER(TRIM(kl.prs_kenmerklink_waarde)))
- mc
- ON c.bedrijf =
- mc.bedrijf) y
- ON UPPER (x.bedrijf) = y.bedrijf
- LEFT JOIN -- 1060 = Factuur p.a.
- prs_v_aanwezigkenmerklink pa
- ON COALESCE (y.prs_link_key,
- x.prs_perslid_key) =
- pa.prs_link_key
- AND pa.prs_kenmerk_key = 1060
- LEFT JOIN -- 1040 = Factuur t.a.v.
- prs_v_aanwezigkenmerklink tav
- ON COALESCE (y.prs_link_key,
- x.prs_perslid_key) =
- tav.prs_link_key
- AND tav.prs_kenmerk_key = 1040
- LEFT JOIN
- prs_v_aanwezigkenmerklink cad
- ON COALESCE (y.prs_link_key,
- x.prs_perslid_key) =
- cad.prs_link_key
- AND cad.prs_kenmerk_key = 1001 -- C-Adres
- LEFT JOIN
- prs_v_aanwezigkenmerklink cpc
- ON COALESCE (y.prs_link_key, x.prs_perslid_key) =
- cpc.prs_link_key
- AND cpc.prs_kenmerk_key = 1002 -- C-Postcode
- LEFT JOIN
- prs_v_aanwezigkenmerklink cpl
- ON COALESCE (y.prs_link_key, x.prs_perslid_key) =
- cpl.prs_link_key
- AND cpl.prs_kenmerk_key = 1003 -- C-Plaats
- LEFT JOIN
- prs_v_aanwezigkenmerklink fad
- ON COALESCE (y.prs_link_key, x.prs_perslid_key) =
- fad.prs_link_key
- AND fad.prs_kenmerk_key = 1006 -- F-Adres
- LEFT JOIN
- prs_v_aanwezigkenmerklink fpc
- ON COALESCE (y.prs_link_key, x.prs_perslid_key) =
- fpc.prs_link_key
- AND fpc.prs_kenmerk_key = 1007 -- F-Postcode
- LEFT JOIN
- prs_v_aanwezigkenmerklink fpl
- ON COALESCE (y.prs_link_key, x.prs_perslid_key) =
- fpl.prs_link_key
- AND fpl.prs_kenmerk_key = 1008 -- F-Plaats
- LEFT JOIN
- prs_v_aanwezigkenmerklink btwnr
- ON COALESCE (y.prs_link_key, x.prs_perslid_key) =
- btwnr.prs_link_key
- AND btwnr.prs_kenmerk_key = 1005 -- BTW-nr
- LEFT JOIN
- (SELECT rrr.res_rsv_ruimte_key,
- rr.res_ruimte_nr,
- '1R' res_type,
- TO_NUMBER (NULL) vnr,
- NULL res_voorziening,
- rrr.res_rsv_ruimte_prijs res_rsv_prijs,
- (rrr.res_rsv_ruimte_tot - rrr.res_rsv_ruimte_van)
- * 24
- aantal, -- Duur in uren
- rr.res_ruimte_prijs ps, -- Uur-tarief
- rr.res_ruimte_prijs_ochtend po, -- Dagdeel-tarief
- rr.res_ruimte_prijs_middag pm, -- Dag-tarief
- 21 btw
- FROM res_v_aanwezigrsv_ruimte rrr,
- res_ruimte_opstelling rro,
- res_ruimte rr
- WHERE rrr.res_ruimte_opstel_key =
- rro.res_ruimte_opstel_key
- AND rro.res_ruimte_key = rr.res_ruimte_key
- UNION ALL
- SELECT rrd.res_rsv_ruimte_key,
- rr.res_ruimte_nr,
- '2V' res_type,
- rd.res_ins_deel_key vnr,
- LTRIM (ID.ins_deel_omschrijving)
- || DECODE (rd.res_deel_eenheid,
- NULL, '',
- ' (' || rd.res_deel_eenheid || ')')
- res_voorziening,
- rrd.res_rsv_deel_prijs res_rsv_prijs,
- (rrd.res_rsv_deel_tot - rrd.res_rsv_deel_van) * 24
- aantal, -- Duur in uren
- rd.res_deel_prijs ps, -- Uur-tarief
- TO_NUMBER (NULL) po, -- Dagdeel-tarief
- TO_NUMBER (NULL) pm, -- Dag-tarief
- 21 btw
- FROM res_v_aanwezigrsv_ruimte rrr,
- res_ruimte_opstelling rro,
- res_ruimte rr,
- res_v_aanwezigrsv_deel rrd,
- res_deel rd,
- ins_deel ID
- WHERE rrr.res_ruimte_opstel_key =
- rro.res_ruimte_opstel_key(+)
- AND rro.res_ruimte_key = rr.res_ruimte_key(+)
- AND rrr.res_rsv_ruimte_key = rrd.res_rsv_ruimte_key
- AND rrd.res_deel_key = rd.res_deel_key
- AND rd.res_ins_deel_key = ID.ins_deel_key
- UNION ALL
- SELECT rra.res_rsv_ruimte_key,
- rr.res_ruimte_nr,
- '3C' res_type,
- ra.res_artikel_volgnummer vnr,
- LTRIM (ra.res_artikel_omschrijving)
- || DECODE (ra.res_artikel_eenheid,
- NULL, '',
- ' (' || ra.res_artikel_eenheid || ')')
- res_voorziening,
- rra.res_rsv_artikel_prijs res_rsv_prijs,
- rra.res_rsv_artikel_aantal aantal,
- ra.res_artikel_prijs ps, -- Stuksprijs
- TO_NUMBER (NULL) po, -- Dagdeel-tarief
- TO_NUMBER (NULL) pm, -- Dag-tarief
- COALESCE (rra.res_rsv_artikel_btw,
- ra.res_artikel_btw,
- 21)
- btw
- FROM res_v_aanwezigrsv_ruimte rrr,
- res_ruimte_opstelling rro,
- res_ruimte rr,
- res_v_aanwezigrsv_artikel rra,
- res_artikel ra
- WHERE rrr.res_ruimte_opstel_key =
- rro.res_ruimte_opstel_key(+)
- AND rro.res_ruimte_key = rr.res_ruimte_key(+)
- AND rrr.res_rsv_ruimte_key = rra.res_rsv_ruimte_key
- AND rra.res_artikel_key = ra.res_artikel_key) rvc
- ON x.res_rsv_ruimte_key = rvc.res_rsv_ruimte_key
+ SELECT DECODE (TO_CHAR (x.tot, 'yyyymm'),
+ TO_CHAR (SYSDATE, 'yyyymm'), 0,
+ 1)
+ periode,
+ SUBSTR ('000000' || TO_CHAR (x.bcp_key), -6) debnr,
+ COALESCE (x.bedrijf, SUBSTR ('000000' || TO_CHAR (x.bcp_key), -6))
+ bedrijf,
+ TRIM (pa.prs_kenmerklink_waarde) pa,
+ COALESCE (
+ TRIM (tav.prs_kenmerklink_waarde),
+ (SELECT DECODE (prs_perslid_geslacht,
+ 0, 'Mevr. ',
+ 1, 'Dhr. ',
+ '')
+ || DECODE (prs_perslid_voorletters,
+ '', '',
+ prs_perslid_voorletters || ' ')
+ || DECODE (prs_perslid_tussenvoegsel,
+ '', '',
+ prs_perslid_tussenvoegsel || ' ')
+ || prs_perslid_naam
+ FROM prs_perslid
+ WHERE prs_perslid_key = x.bcp_key))
+ tav,
+ DECODE (fad.prs_kenmerklink_waarde,
+ NULL, TRIM (cad.prs_kenmerklink_waarde),
+ TRIM (fad.prs_kenmerklink_waarde))
+ adres,
+ DECODE (fad.prs_kenmerklink_waarde,
+ NULL, TRIM (cpc.prs_kenmerklink_waarde),
+ TRIM (fpc.prs_kenmerklink_waarde))
+ postcode,
+ DECODE (fad.prs_kenmerklink_waarde,
+ NULL, TRIM (cpl.prs_kenmerklink_waarde),
+ TRIM (fpl.prs_kenmerklink_waarde))
+ plaats,
+ DECODE (fad.prs_kenmerklink_waarde,
+ NULL, TRIM (cla.prs_kenmerklink_waarde),
+ TRIM (fla.prs_kenmerklink_waarde))
+ land,
+ btwnr.prs_kenmerklink_waarde btwnr,
+ '***CONCEPT***' factuurnummer, -- Factuurnummer
+ TO_CHAR (TRUNC (SYSDATE, 'mm') - 1, 'yyyy-mm') factuurperiode,
+ TO_CHAR (SYSDATE, 'dd-mm-yyyy') factuurdatum,
+ TO_CHAR (SYSDATE + 24, 'dd-mm-yyyy') vervaldatum,
+ TO_CHAR (x.van, 'yyyy-mm-dd hh24:mi')
+ || rvc.res_ruimte_nr
+ || x.res_reservering_key
+ sortering1, -- Factuurregels op datum-tijd en dan ruimtenr
+ rvc.res_type || SUBSTR ('000000' || TO_CHAR (rvc.vnr), -6)
+ sortering2, -- ..daarbinnen op type (1R2V3C) en dan volgnr
+ x.res_reservering_key || '/' || x.res_rsv_ruimte_volgnr resnr,
+ TO_CHAR (x.van, 'dd-mm-yyyy') datum_tijd,
+ TO_CHAR (x.van, 'hh24:mi') van,
+ TO_CHAR (x.tot, 'hh24:mi') tot,
+ TO_CHAR (x.res_rsv_ruimte_bezoekers) bezoekers,
+ x.res_activiteit_key,
+ DECODE (
+ rvc.res_type,
+ '2V',
+ rvc.res_voorziening || ' / ' || TO_CHAR (rvc.aantal) || ' uur',
+ '3C',
+ DECODE (x.res_activiteit_key,
+ 50, x.res_rsv_ruimte_omschrijving,
+ 70, x.res_rsv_ruimte_omschrijving,
+ TO_CHAR (rvc.aantal) || ' * ' || rvc.res_voorziening),
+ rvc.res_ruimte_nr -- '1R'
+ )
+ ruimte_voorzieningen,
+ TO_CHAR (rvc.aantal) aantal,
+ ROUND (
+ DECODE (
+ rvc.res_rsv_prijs,
+ NULL,
+ rvc.ps,
+ rvc.res_rsv_prijs
+ / DECODE (rvc.aantal, NULL, 1, 0, 1, rvc.aantal)),
+ 2)
+ stuksprijs,
+ ROUND (
+ DECODE (
+ rvc.res_type,
+ '1R',
+ DECODE (
+ SIGN (rvc.aantal - 8),
+ -1,
+ DECODE (SIGN (rvc.aantal - 4),
+ -1, rvc.aantal * rvc.ps,
+ rvc.po + (rvc.aantal - 4) * rvc.ps),
+ rvc.pm),
+ DECODE ( -- '2V' of '3C'
+ x.res_activiteit_key,
+ 50, -- Creditboeking
+ -1 * COALESCE (rvc.res_rsv_prijs, rvc.aantal * rvc.ps),
+ COALESCE (rvc.res_rsv_prijs, rvc.aantal * rvc.ps))),
+ 2)
+ netto,
+ rvc.btw btwtarief,
+ ROUND (
+ DECODE (
+ rvc.res_type,
+ '1R',
+ DECODE (
+ SIGN (rvc.aantal - 8),
+ -1,
+ DECODE (SIGN (rvc.aantal - 4),
+ -1, rvc.aantal * rvc.ps,
+ rvc.po + (rvc.aantal - 4) * rvc.ps),
+ rvc.pm),
+ DECODE ( -- '2V' of '3C'
+ x.res_activiteit_key,
+ 50, -- Creditboeking
+ -1 * COALESCE (rvc.res_rsv_prijs, rvc.aantal * rvc.ps),
+ COALESCE (rvc.res_rsv_prijs, rvc.aantal * rvc.ps)))
+ * rvc.btw
+ / 100,
+ 2)
+ btw,
+ x.res_rsv_ruimte_omschrijving oms,
+ x.res_rsv_ruimte_opmerking opm
+ FROM (SELECT rrr.res_rsv_ruimte_key,
+ rrr.res_reservering_key,
+ rrr.res_rsv_ruimte_volgnr,
+ rrr.res_rsv_ruimte_van van,
+ rrr.res_rsv_ruimte_tot tot,
+ rrr.res_activiteit_key,
+ rrr.res_rsv_ruimte_bezoekers,
+ rrr.res_rsv_ruimte_omschrijving,
+ rrr.res_rsv_ruimte_opmerking,
+ rrr.res_rsv_ruimte_contact_key,
+ v.bedrijf,
+ v.bcp_key
+ FROM res_v_aanwezigrsv_ruimte rrr, wibc_v_cp v
+ WHERE rrr.res_rsv_ruimte_ordernr IS NULL
+ AND rrr.res_status_fo_key IN (1, 2)
+ AND COALESCE (rrr.res_status_bo_key, 2) != 6 -- Nog niet AV
+ AND rrr.res_rsv_ruimte_dirtlevel = 0
+ AND rrr.res_rsv_ruimte_tot < SYSDATE + (1 / 24) -- Nu + uur!
+ AND rrr.res_rsv_ruimte_contact_key = v.cp_key) x
+ LEFT JOIN prs_v_aanwezigkenmerklink pa -- 1060 = Factuur p.a.
+ ON x.bcp_key = pa.prs_link_key AND pa.prs_kenmerk_key = 1060
+ LEFT JOIN prs_v_aanwezigkenmerklink tav -- 1040 = Factuur t.a.v.
+ ON x.bcp_key = tav.prs_link_key AND tav.prs_kenmerk_key = 1040
+ LEFT JOIN prs_v_aanwezigkenmerklink cad -- 1001 = C-Adres
+ ON x.bcp_key = cad.prs_link_key AND cad.prs_kenmerk_key = 1001
+ LEFT JOIN prs_v_aanwezigkenmerklink cpc -- 1002 = C-Postcode
+ ON x.bcp_key = cpc.prs_link_key AND cpc.prs_kenmerk_key = 1002
+ LEFT JOIN prs_v_aanwezigkenmerklink cpl -- 1003 = C-Plaats
+ ON x.bcp_key = cpl.prs_link_key AND cpl.prs_kenmerk_key = 1003
+ LEFT JOIN prs_v_aanwezigkenmerklink cla -- 1080 = C-Land
+ ON x.bcp_key = cla.prs_link_key AND cla.prs_kenmerk_key = 1080
+ LEFT JOIN prs_v_aanwezigkenmerklink fad -- F-Adres
+ ON x.bcp_key = fad.prs_link_key AND fad.prs_kenmerk_key = 1006
+ LEFT JOIN prs_v_aanwezigkenmerklink fpc -- F-Postcode
+ ON x.bcp_key = fpc.prs_link_key AND fpc.prs_kenmerk_key = 1007
+ LEFT JOIN prs_v_aanwezigkenmerklink fpl -- F-Plaats
+ ON x.bcp_key = fpl.prs_link_key AND fpl.prs_kenmerk_key = 1008
+ LEFT JOIN prs_v_aanwezigkenmerklink fla -- F-Land
+ ON x.bcp_key = fla.prs_link_key AND fla.prs_kenmerk_key = 1081
+ LEFT JOIN prs_v_aanwezigkenmerklink btwnr -- BTW-nr
+ ON x.bcp_key = btwnr.prs_link_key AND btwnr.prs_kenmerk_key = 1005
+ LEFT JOIN (SELECT rrr.res_rsv_ruimte_key,
+ rr.res_ruimte_nr,
+ '1R' res_type,
+ TO_NUMBER (NULL) vnr,
+ NULL res_voorziening,
+ rrr.res_rsv_ruimte_prijs res_rsv_prijs,
+ (rrr.res_rsv_ruimte_tot - rrr.res_rsv_ruimte_van)
+ * 24
+ aantal, -- Duur in uren
+ rr.res_ruimte_prijs ps, -- Uur-tarief
+ rr.res_ruimte_prijs_ochtend po, -- Dagdeel-tarief
+ rr.res_ruimte_prijs_middag pm, -- Dag-tarief
+ 21 btw
+ FROM res_v_aanwezigrsv_ruimte rrr,
+ res_ruimte_opstelling rro,
+ res_ruimte rr
+ WHERE rrr.res_ruimte_opstel_key =
+ rro.res_ruimte_opstel_key
+ AND rro.res_ruimte_key = rr.res_ruimte_key
+ UNION ALL
+ SELECT rrd.res_rsv_ruimte_key,
+ rr.res_ruimte_nr,
+ '2V' res_type,
+ rd.res_ins_deel_key vnr,
+ LTRIM (ID.ins_deel_omschrijving)
+ || DECODE (rd.res_deel_eenheid,
+ NULL, '',
+ ' (' || rd.res_deel_eenheid || ')')
+ res_voorziening,
+ rrd.res_rsv_deel_prijs res_rsv_prijs,
+ (rrd.res_rsv_deel_tot - rrd.res_rsv_deel_van)
+ * 24
+ aantal, -- Duur in uren
+ rd.res_deel_prijs ps, -- Uur-tarief
+ TO_NUMBER (NULL) po, -- Dagdeel-tarief
+ TO_NUMBER (NULL) pm, -- Dag-tarief
+ 21 btw
+ FROM res_v_aanwezigrsv_ruimte rrr,
+ res_ruimte_opstelling rro,
+ res_ruimte rr,
+ res_v_aanwezigrsv_deel rrd,
+ res_deel rd,
+ ins_deel ID
+ WHERE rrr.res_ruimte_opstel_key =
+ rro.res_ruimte_opstel_key(+)
+ AND rro.res_ruimte_key = rr.res_ruimte_key(+)
+ AND rrr.res_rsv_ruimte_key =
+ rrd.res_rsv_ruimte_key
+ AND rrd.res_deel_key = rd.res_deel_key
+ AND rd.res_ins_deel_key = ID.ins_deel_key
+ UNION ALL
+ SELECT rra.res_rsv_ruimte_key,
+ rr.res_ruimte_nr,
+ '3C' res_type,
+ ra.res_artikel_volgnummer vnr,
+ LTRIM (ra.res_artikel_omschrijving)
+ || DECODE (ra.res_artikel_eenheid,
+ NULL, '',
+ ' (' || ra.res_artikel_eenheid || ')')
+ res_voorziening,
+ rra.res_rsv_artikel_prijs res_rsv_prijs,
+ rra.res_rsv_artikel_aantal aantal,
+ ra.res_artikel_prijs ps, -- Stuksprijs
+ TO_NUMBER (NULL) po, -- Dagdeel-tarief
+ TO_NUMBER (NULL) pm, -- Dag-tarief
+ COALESCE (rra.res_rsv_artikel_btw,
+ ra.res_artikel_btw,
+ 21)
+ btw
+ FROM res_v_aanwezigrsv_ruimte rrr,
+ res_ruimte_opstelling rro,
+ res_ruimte rr,
+ res_v_aanwezigrsv_artikel rra,
+ res_artikel ra
+ WHERE rrr.res_ruimte_opstel_key =
+ rro.res_ruimte_opstel_key(+)
+ AND rro.res_ruimte_key = rr.res_ruimte_key(+)
+ AND rrr.res_rsv_ruimte_key =
+ rra.res_rsv_ruimte_key
+ AND rra.res_artikel_key = ra.res_artikel_key) rvc
+ ON x.res_rsv_ruimte_key = rvc.res_rsv_ruimte_key
UNION ALL -- Additionele lidmaatschapregels voor leden!
- SELECT 1 periode,
- SUBSTR (
- '000000'
- || TO_CHAR (COALESCE (y.prs_link_key, x.prs_perslid_key)),
- -6
- )
- debnr,
- COALESCE (x.bedrijf,
- SUBSTR ('000000' || TO_CHAR (x.prs_perslid_key), -6))
- bedrijf,
- TRIM (pa.prs_kenmerklink_waarde) pa,
- COALESCE (
- TRIM (tav.prs_kenmerklink_waarde),
- (SELECT DECODE (prs_perslid_geslacht,
- 0, 'Mevr. ',
- 1, 'Dhr. ',
- '')
- || DECODE (prs_perslid_voorletters,
- '', '',
- prs_perslid_voorletters || ' ')
- || DECODE (prs_perslid_tussenvoegsel,
- '', '',
- prs_perslid_tussenvoegsel || ' ')
- || prs_perslid_naam
- FROM prs_perslid
- WHERE prs_perslid_key =
- COALESCE (y.prs_link_key, x.prs_perslid_key))
- )
- tav,
- DECODE (fad.prs_kenmerklink_waarde,
- NULL, TRIM (cad.prs_kenmerklink_waarde),
- TRIM (fad.prs_kenmerklink_waarde))
- adres,
- DECODE (fad.prs_kenmerklink_waarde,
- NULL, TRIM (cpc.prs_kenmerklink_waarde),
- TRIM (fpc.prs_kenmerklink_waarde))
- postcode,
- DECODE (fad.prs_kenmerklink_waarde,
- NULL, TRIM (cpl.prs_kenmerklink_waarde),
- TRIM (fpl.prs_kenmerklink_waarde))
- plaats,
- btwnr.prs_kenmerklink_waarde btwnr,
- '***CONCEPT***' factuurnummer, -- Factuurnummer
- TO_CHAR (TRUNC (SYSDATE, 'mm') - 1, 'yyyy-mm') factuurperiode,
- TO_CHAR (SYSDATE, 'dd-mm-yyyy') factuurdatum,
- TO_CHAR (SYSDATE + 24, 'dd-mm-yyyy') vervaldatum,
- TO_CHAR (TRUNC (x.van - 1, 'mm'), 'yyyy-mm-dd hh24:mi')
- || x.lidmaatschap
- sortering1, -- Factuurregels op datum-tijd en dan ruimtenr
- '0L' sortering2, -- ..daarbinnen op type (0L1R1S2V3C)
- NULL resnr,
- NULL datum_tijd,
- NULL van,
- NULL tot,
- NULL bezoekers,
- NULL res_activiteit_key,
- 'Lidmaatschap ' || x.lidmaatschap ruimte_voorzieningen,
- NULL aantal,
- NULL stuksprijs,
- ROUND (250, 2) netto,
- 21 btwtarief,
- ROUND (250 * 21 / 100, 2) btw,
- NULL oms,
- NULL opm
+ SELECT 1 periode,
+ SUBSTR ('000000' || TO_CHAR (x.bcp_key), -6) debnr,
+ COALESCE (x.bedrijf, SUBSTR ('000000' || TO_CHAR (x.bcp_key), -6))
+ bedrijf,
+ TRIM (pa.prs_kenmerklink_waarde) pa,
+ COALESCE (
+ TRIM (tav.prs_kenmerklink_waarde),
+ (SELECT DECODE (prs_perslid_geslacht,
+ 0, 'Mevr. ',
+ 1, 'Dhr. ',
+ '')
+ || DECODE (prs_perslid_voorletters,
+ '', '',
+ prs_perslid_voorletters || ' ')
+ || DECODE (prs_perslid_tussenvoegsel,
+ '', '',
+ prs_perslid_tussenvoegsel || ' ')
+ || prs_perslid_naam
+ FROM prs_perslid
+ WHERE prs_perslid_key = x.bcp_key))
+ tav,
+ DECODE (fad.prs_kenmerklink_waarde,
+ NULL, TRIM (cad.prs_kenmerklink_waarde),
+ TRIM (fad.prs_kenmerklink_waarde))
+ adres,
+ DECODE (fad.prs_kenmerklink_waarde,
+ NULL, TRIM (cpc.prs_kenmerklink_waarde),
+ TRIM (fpc.prs_kenmerklink_waarde))
+ postcode,
+ DECODE (fad.prs_kenmerklink_waarde,
+ NULL, TRIM (cpl.prs_kenmerklink_waarde),
+ TRIM (fpl.prs_kenmerklink_waarde))
+ plaats,
+ DECODE (fad.prs_kenmerklink_waarde,
+ NULL, TRIM (cla.prs_kenmerklink_waarde),
+ TRIM (fla.prs_kenmerklink_waarde))
+ land,
+ btwnr.prs_kenmerklink_waarde btwnr,
+ '***CONCEPT***' factuurnummer, -- Factuurnummer
+ TO_CHAR (TRUNC (SYSDATE, 'mm') - 1, 'yyyy-mm') factuurperiode,
+ TO_CHAR (SYSDATE, 'dd-mm-yyyy') factuurdatum,
+ TO_CHAR (SYSDATE + 24, 'dd-mm-yyyy') vervaldatum,
+ TO_CHAR (TRUNC (TRUNC (SYSDATE, 'mm') - 1, 'mm'),
+ 'yyyy-mm-dd hh24:mi')
+ || TO_CHAR (SYSDATE, 'yyyy-mm')
+ sortering1, -- Factuurregels op datum-tijd en dan ruimtenr
+ '0L' sortering2, -- ..daarbinnen op type (0L1R1S2V3C)
+ NULL resnr,
+ NULL datum_tijd,
+ NULL van,
+ NULL tot,
+ NULL bezoekers,
+ NULL res_activiteit_key,
+ 'Lidmaatschap ' || x.pcnt_soort || TO_CHAR (SYSDATE, ' yyyy-mm')
+ ruimte_voorzieningen,
+ NULL aantal,
+ NULL stuksprijs,
+ ROUND (x.pcnt_prijs, 2) netto,
+ 21 btwtarief,
+ ROUND (x.pcnt_prijs * 21 / 100, 2) btw,
+ NULL oms,
+ NULL opm
FROM -- Lidmaatschap maandelijks vooruit (VANAF 2013)!
- ( SELECT TRIM(bedrijf.prs_kenmerklink_waarde)
- bedrijf,
- MIN (p.prs_perslid_key)
- prs_perslid_key,
- TRUNC (SYSDATE, 'mm') van,
- TO_CHAR (SYSDATE,
- 'yyyy-mm')
- lidmaatschap
- FROM prs_v_aanwezigperslid p,
- (SELECT *
- FROM prs_v_aanwezigkenmerklink
- WHERE prs_kenmerk_key =
- 1000)
- bedrijf,
- (SELECT *
- FROM prs_v_aanwezigkenmerklink
- WHERE prs_kenmerk_key =
- 1024)
- lidsinds,
- (SELECT *
- FROM prs_v_aanwezigkenmerklink
- WHERE prs_kenmerk_key =
- 1025)
- opgezegd
- WHERE p.prs_afdeling_key = 21 -- Leden
- AND p.prs_perslid_key =
- bedrijf.prs_link_key(+)
- AND p.prs_perslid_key =
- lidsinds.prs_link_key
- AND lidsinds.prs_link_key =
- opgezegd.prs_link_key(+)
- AND TRUNC (SYSDATE, 'mm') >=
- fac.safe_to_date (
- lidsinds.prs_kenmerklink_waarde,
- 'dd-mm-yyyy'
- )
- AND TRUNC (SYSDATE, 'mm') <
- COALESCE (
- fac.safe_to_date (
- opgezegd.prs_kenmerklink_waarde,
- 'dd-mm-yyyy'
- ),
- SYSDATE
- )
- GROUP BY TRIM(bedrijf.prs_kenmerklink_waarde)
- UNION ALL -- Lidmaatschap over 2012-12 achteraf (EENMALIG)!
- SELECT TRIM(bedrijf.prs_kenmerklink_waarde)
- bedrijf,
- MIN (p.prs_perslid_key)
- prs_perslid_key,
- TRUNC (SYSDATE, 'mm') van,
- '2012-12' lidmaatschap
- FROM prs_v_aanwezigperslid p,
- (SELECT *
- FROM prs_v_aanwezigkenmerklink
- WHERE prs_kenmerk_key =
- 1000)
- bedrijf,
- (SELECT *
- FROM prs_v_aanwezigkenmerklink
- WHERE prs_kenmerk_key =
- 1024)
- lidsinds
- WHERE p.prs_afdeling_key = 21 -- Leden
- AND p.prs_perslid_key =
- bedrijf.prs_link_key(+)
- AND p.prs_perslid_key =
- lidsinds.prs_link_key
- AND lidsinds.prs_kenmerklink_waarde LIKE
- '%2012'
- AND TO_CHAR (SYSDATE,
- 'yyyy-mm') =
- '2013-01' -- Alleen dan dus!
- GROUP BY TRIM(bedrijf.prs_kenmerklink_waarde))
- x
- LEFT JOIN
- (SELECT c.bedrijf,
- COALESCE (
- mc.prs_link_key,
- c.prs_link_key
- )
- prs_link_key
- FROM ( SELECT UPPER(TRIM(kl.prs_kenmerklink_waarde))
- bedrijf,
- MIN(kl.prs_link_key)
- prs_link_key
- FROM prs_v_aanwezigkenmerklink kl,
- prs_perslid p
- WHERE kl.prs_kenmerk_key =
- 1000
- AND kl.prs_link_key =
- p.prs_perslid_key
- AND p.prs_afdeling_key =
- 21 -- Leden
- GROUP BY UPPER(TRIM(kl.prs_kenmerklink_waarde)))
- c
- LEFT JOIN
- ( SELECT UPPER(TRIM(kl.prs_kenmerklink_waarde))
- bedrijf,
- MIN(kl.prs_link_key)
- prs_link_key
- FROM prs_v_aanwezigkenmerklink kl,
- prs_perslid p
- WHERE kl.prs_kenmerk_key =
- 1000
- AND kl.prs_link_key =
- p.prs_perslid_key
- AND p.prs_afdeling_key =
- 21 -- Leden
- AND p.prs_srtperslid_key =
- 482
- GROUP BY UPPER(TRIM(kl.prs_kenmerklink_waarde)))
- mc
- ON c.bedrijf = mc.bedrijf)
- y
- ON UPPER (x.bedrijf) = y.bedrijf
- LEFT JOIN -- 1060 = Factuur p.a.
- prs_v_aanwezigkenmerklink pa
- ON COALESCE (y.prs_link_key,
- x.prs_perslid_key) =
- pa.prs_link_key
- AND pa.prs_kenmerk_key = 1060
- LEFT JOIN -- 1040 = Factuur t.a.v.
- prs_v_aanwezigkenmerklink tav
- ON COALESCE (y.prs_link_key,
- x.prs_perslid_key) =
- tav.prs_link_key
- AND tav.prs_kenmerk_key = 1040
- LEFT JOIN -- 1001 = C-Adres
- prs_v_aanwezigkenmerklink cad
- ON COALESCE (y.prs_link_key, x.prs_perslid_key) =
- cad.prs_link_key
- AND cad.prs_kenmerk_key = 1001
- LEFT JOIN -- 1002 = C-Postcode
- prs_v_aanwezigkenmerklink cpc
- ON COALESCE (y.prs_link_key, x.prs_perslid_key) =
- cpc.prs_link_key
- AND cpc.prs_kenmerk_key = 1002
- LEFT JOIN -- 1003 = C-Plaats
- prs_v_aanwezigkenmerklink cpl
- ON COALESCE (y.prs_link_key, x.prs_perslid_key) =
- cpl.prs_link_key
- AND cpl.prs_kenmerk_key = 1003
- LEFT JOIN
- prs_v_aanwezigkenmerklink fad
- ON COALESCE (y.prs_link_key, x.prs_perslid_key) =
- fad.prs_link_key
- AND fad.prs_kenmerk_key = 1006 -- F-Adres
- LEFT JOIN
- prs_v_aanwezigkenmerklink fpc
- ON COALESCE (y.prs_link_key, x.prs_perslid_key) =
- fpc.prs_link_key
- AND fpc.prs_kenmerk_key = 1007 -- F-Postcode
- LEFT JOIN
- prs_v_aanwezigkenmerklink fpl
- ON COALESCE (y.prs_link_key, x.prs_perslid_key) =
- fpl.prs_link_key
- AND fpl.prs_kenmerk_key = 1008 -- F-Plaats
- LEFT JOIN
- prs_v_aanwezigkenmerklink btwnr
- ON COALESCE (y.prs_link_key, x.prs_perslid_key) =
- btwnr.prs_link_key
- AND btwnr.prs_kenmerk_key = 1005 -- BTW-nr
- WHERE NOT EXISTS
- (SELECT 1
- FROM fac_v_aanwezigusrdata
- WHERE fac_usrtab_key = 82
- AND TO_CHAR (fac_usrdata_aanmaak, 'yyyy-mm') =
- TO_CHAR (SYSDATE, 'yyyy-mm')
- AND fac.safe_to_number(SUBSTR (
- fac_usrdata_omschr,
- 1,
- LENGTH (
- fac_usrdata_omschr
- )
- - 1
- )) =
- COALESCE (y.prs_link_key, x.prs_perslid_key))
+ (SELECT v.bedrijf,
+ v.bcp_key,
+ SUBSTR (v.pcnt_soort, 1, INSTR (v.pcnt_soort, ' ', 1) - 1)
+ pcnt_soort,
+ v.pcnt_prijs
+ FROM wibc_v_cp v
+ WHERE v.pcnt_soort IS NOT NULL) x
+ LEFT JOIN prs_v_aanwezigkenmerklink pa -- 1060 = Factuur p.a.
+ ON x.bcp_key = pa.prs_link_key AND pa.prs_kenmerk_key = 1060
+ LEFT JOIN prs_v_aanwezigkenmerklink tav -- 1040 = Factuur t.a.v.
+ ON x.bcp_key = tav.prs_link_key AND tav.prs_kenmerk_key = 1040
+ LEFT JOIN prs_v_aanwezigkenmerklink cad -- 1001 = C-Adres
+ ON x.bcp_key = cad.prs_link_key AND cad.prs_kenmerk_key = 1001
+ LEFT JOIN prs_v_aanwezigkenmerklink cpc -- 1002 = C-Postcode
+ ON x.bcp_key = cpc.prs_link_key AND cpc.prs_kenmerk_key = 1002
+ LEFT JOIN prs_v_aanwezigkenmerklink cpl -- 1003 = C-Plaats
+ ON x.bcp_key = cpl.prs_link_key AND cpl.prs_kenmerk_key = 1003
+ LEFT JOIN prs_v_aanwezigkenmerklink cla -- 1080 = C-Land
+ ON x.bcp_key = cla.prs_link_key AND cla.prs_kenmerk_key = 1080
+ LEFT JOIN prs_v_aanwezigkenmerklink fad -- F-Adres
+ ON x.bcp_key = fad.prs_link_key AND fad.prs_kenmerk_key = 1006
+ LEFT JOIN prs_v_aanwezigkenmerklink fpc -- F-Postcode
+ ON x.bcp_key = fpc.prs_link_key AND fpc.prs_kenmerk_key = 1007
+ LEFT JOIN prs_v_aanwezigkenmerklink fpl -- F-Plaats
+ ON x.bcp_key = fpl.prs_link_key AND fpl.prs_kenmerk_key = 1008
+ LEFT JOIN prs_v_aanwezigkenmerklink fla -- F-Land
+ ON x.bcp_key = fla.prs_link_key AND fla.prs_kenmerk_key = 1081
+ LEFT JOIN prs_v_aanwezigkenmerklink btwnr -- BTW-nr
+ ON x.bcp_key = btwnr.prs_link_key AND btwnr.prs_kenmerk_key = 1005
+ WHERE NOT EXISTS
+ (SELECT 1
+ FROM fac_v_aanwezigusrdata
+ WHERE fac_usrtab_key = 82
+ AND TO_CHAR (fac_usrdata_aanmaak, 'yyyy-mm') =
+ TO_CHAR (SYSDATE, 'yyyy-mm')
+ AND fac.safe_to_number(SUBSTR (
+ fac_usrdata_omschr,
+ 1,
+ LENGTH (fac_usrdata_omschr)
+ - 1)) = x.bcp_key)
UNION ALL -- Additionele kortingregels voor huurders/leden!
- SELECT DECODE (TO_CHAR (x.van, 'yyyymm'),
- TO_CHAR (SYSDATE, 'yyyymm'), 0,
- 1)
- periode,
- SUBSTR (
- '000000'
- || TO_CHAR (COALESCE (y.prs_link_key, x.prs_perslid_key)),
- -6
- )
- debnr,
- COALESCE (x.bedrijf,
- SUBSTR ('000000' || TO_CHAR (x.prs_perslid_key), -6))
- bedrijf,
- TRIM (pa.prs_kenmerklink_waarde) pa,
- COALESCE (
- TRIM (tav.prs_kenmerklink_waarde),
- (SELECT DECODE (prs_perslid_geslacht,
- 0, 'Mevr. ',
- 1, 'Dhr. ',
- '')
- || DECODE (prs_perslid_voorletters,
- '', '',
- prs_perslid_voorletters || ' ')
- || DECODE (prs_perslid_tussenvoegsel,
- '', '',
- prs_perslid_tussenvoegsel || ' ')
- || prs_perslid_naam
- FROM prs_perslid
- WHERE prs_perslid_key =
- COALESCE (y.prs_link_key, x.prs_perslid_key))
- )
- tav,
- NULL adres,
- NULL postcode,
- NULL plaats,
- NULL btwnr,
- '***CONCEPT***' factuurnummer, -- Factuurnummer
- TO_CHAR (TRUNC (SYSDATE, 'mm') - 1, 'yyyy-mm') factuurperiode,
- TO_CHAR (SYSDATE, 'dd-mm-yyyy') factuurdatum,
- TO_CHAR (SYSDATE + 24, 'dd-mm-yyyy') vervaldatum,
- TO_CHAR (x.van, 'yyyy-mm-dd hh24:mi')
- || x.res_ruimte_nr
- || x.res_reservering_key
- sortering1, -- Factuurregels op datum-tijd en dan ruimtenr
- '1S' sortering2, -- ..daarbinnen op type (0L1R1S2V3C)
- x.res_reservering_key || '/' || x.res_rsv_ruimte_volgnr resnr,
- NULL datum_tijd,
- NULL van,
- NULL tot,
- NULL bezoekers,
- NULL res_activiteit_key,
- x.res_ruimte_nr || ' 20% korting' ruimte_voorzieningen,
- NULL aantal,
- NULL stuksprijs,
- ROUND (
- DECODE (
- SIGN (x.aantal - 8),
- -1,
- DECODE (SIGN (x.aantal - 4),
- -1, x.aantal * x.ps,
- x.po + (x.aantal - 4) * x.ps),
- x.pm
- )
- * -0.2,
- 2
- )
- netto,
- 21 btwtarief,
- ROUND (
- DECODE (
- SIGN (x.aantal - 8),
- -1,
- DECODE (SIGN (x.aantal - 4),
- -1, x.aantal * x.ps,
- x.po + (x.aantal - 4) * x.ps),
- x.pm
- )
- * -0.2
- * 21
- / 100,
- 2
- )
- btw,
- NULL oms,
- NULL opm
- FROM (SELECT TRIM (bedrijf.prs_kenmerklink_waarde) bedrijf,
- p.prs_perslid_key,
- rrr.res_reservering_key,
- rrr.res_rsv_ruimte_volgnr,
- rr.res_ruimte_nr,
- rrr.res_rsv_ruimte_van van,
- (rrr.res_rsv_ruimte_tot
- - rrr.res_rsv_ruimte_van)
- * 24
- aantal,
- rr.res_ruimte_prijs ps,
- rr.res_ruimte_prijs_ochtend po,
- rr.res_ruimte_prijs_middag pm
- FROM res_v_aanwezigrsv_ruimte rrr,
- res_ruimte_opstelling rro,
- res_ruimte rr,
- prs_perslid p,
- (SELECT *
- FROM prs_v_aanwezigkenmerklink
- WHERE prs_kenmerk_key = 1000) bedrijf,
- (SELECT *
- FROM prs_v_aanwezigkenmerklink
- WHERE prs_kenmerk_key = 1023) huurder,
- (SELECT *
- FROM prs_v_aanwezigkenmerklink
- WHERE prs_kenmerk_key = 1024) lidsinds,
- (SELECT *
- FROM prs_v_aanwezigkenmerklink
- WHERE prs_kenmerk_key = 1025) opgezegd
- WHERE rrr.res_rsv_ruimte_ordernr IS NULL
- AND rrr.res_status_fo_key IN (1, 2)
- AND rrr.res_status_bo_key != 6 -- Nog niet AV
- AND rrr.res_rsv_ruimte_dirtlevel = 0
- AND rrr.res_ruimte_opstel_key =
- rro.res_ruimte_opstel_key
- AND rro.res_ruimte_key = rr.res_ruimte_key
- --AND rrr.res_rsv_ruimte_tot <
- -- TO_DATE (
- -- '01' || TO_CHAR (SYSDATE, 'mmyyyy'),
- -- 'ddmmyyyy'
- -- )
- AND rrr.res_rsv_ruimte_tot <
- SYSDATE + (1 / 24)
- AND rrr.res_rsv_ruimte_contact_key =
- p.prs_perslid_key
- AND p.prs_afdeling_key IN (21, 22) -- Leden/Niet leden
- AND p.prs_perslid_key =
- bedrijf.prs_link_key(+)
- AND p.prs_perslid_key =
- huurder.prs_link_key(+)
- AND p.prs_perslid_key =
- lidsinds.prs_link_key(+)
- AND p.prs_perslid_key =
- opgezegd.prs_link_key(+)
- AND (huurder.prs_kenmerklink_waarde = 1
- OR (TRUNC (rrr.res_rsv_ruimte_van, 'mm') >=
- COALESCE (
- fac.safe_to_date (
- lidsinds.prs_kenmerklink_waarde,
- 'dd-mm-yyyy'
- ),
- SYSDATE
- )
- AND TRUNC (rrr.res_rsv_ruimte_van,
- 'mm') <
- COALESCE (
- fac.safe_to_date (
- opgezegd.prs_kenmerklink_waarde,
- 'dd-mm-yyyy'
- ),
- SYSDATE
- )))) x
- LEFT JOIN
- (SELECT c.bedrijf,
- COALESCE (mc.prs_link_key, c.prs_link_key)
- prs_link_key
- FROM ( SELECT UPPER(TRIM(kl.prs_kenmerklink_waarde))
- bedrijf,
- MIN (kl.prs_link_key)
- prs_link_key
- FROM prs_v_aanwezigkenmerklink kl,
- prs_perslid p
- WHERE kl.prs_kenmerk_key = 1000
- AND kl.prs_link_key =
- p.prs_perslid_key
- AND p.prs_afdeling_key IN
- (21, 22) -- Leden/Niet leden
- GROUP BY UPPER(TRIM(kl.prs_kenmerklink_waarde)))
- c
- LEFT JOIN
- ( SELECT UPPER(TRIM(kl.prs_kenmerklink_waarde))
- bedrijf,
- MIN (kl.prs_link_key)
- prs_link_key
- FROM prs_v_aanwezigkenmerklink kl,
- prs_perslid p
- WHERE kl.prs_kenmerk_key = 1000
- AND kl.prs_link_key =
- p.prs_perslid_key
- AND p.prs_afdeling_key IN
- (21, 22) -- Leden/Niet leden
- AND p.prs_srtperslid_key = 482
- GROUP BY UPPER(TRIM(kl.prs_kenmerklink_waarde)))
- mc
- ON c.bedrijf = mc.bedrijf) y
- ON UPPER (x.bedrijf) = y.bedrijf
- LEFT JOIN -- 1060 = Factuur p.a.
- prs_v_aanwezigkenmerklink pa
- ON COALESCE (y.prs_link_key, x.prs_perslid_key) =
- pa.prs_link_key
- AND pa.prs_kenmerk_key = 1060
- LEFT JOIN -- 1040 = Factuur t.a.v.
- prs_v_aanwezigkenmerklink tav
- ON COALESCE (y.prs_link_key, x.prs_perslid_key) =
- tav.prs_link_key
- AND tav.prs_kenmerk_key = 1040;
+ SELECT DECODE (TO_CHAR (x.van, 'yyyymm'),
+ TO_CHAR (SYSDATE, 'yyyymm'), 0,
+ 1)
+ periode,
+ SUBSTR ('000000' || TO_CHAR (x.bcp_key), -6) debnr,
+ COALESCE (x.bedrijf, SUBSTR ('000000' || TO_CHAR (x.bcp_key), -6))
+ bedrijf,
+ TRIM (pa.prs_kenmerklink_waarde) pa,
+ COALESCE (
+ TRIM (tav.prs_kenmerklink_waarde),
+ (SELECT DECODE (prs_perslid_geslacht,
+ 0, 'Mevr. ',
+ 1, 'Dhr. ',
+ '')
+ || DECODE (prs_perslid_voorletters,
+ '', '',
+ prs_perslid_voorletters || ' ')
+ || DECODE (prs_perslid_tussenvoegsel,
+ '', '',
+ prs_perslid_tussenvoegsel || ' ')
+ || prs_perslid_naam
+ FROM prs_perslid
+ WHERE prs_perslid_key = x.bcp_key))
+ tav,
+ NULL adres,
+ NULL postcode,
+ NULL plaats,
+ NULL land,
+ NULL btwnr,
+ '***CONCEPT***' factuurnummer, -- Factuurnummer
+ TO_CHAR (TRUNC (SYSDATE, 'mm') - 1, 'yyyy-mm') factuurperiode,
+ TO_CHAR (SYSDATE, 'dd-mm-yyyy') factuurdatum,
+ TO_CHAR (SYSDATE + 24, 'dd-mm-yyyy') vervaldatum,
+ TO_CHAR (x.van, 'yyyy-mm-dd hh24:mi')
+ || x.res_ruimte_nr
+ || x.res_reservering_key
+ sortering1, -- Factuurregels op datum-tijd en dan ruimtenr
+ '1S' sortering2, -- ..daarbinnen op type (0L1R1S2V3C)
+ x.res_reservering_key || '/' || x.res_rsv_ruimte_volgnr resnr,
+ NULL datum_tijd,
+ NULL van,
+ NULL tot,
+ NULL bezoekers,
+ NULL res_activiteit_key,
+ x.res_ruimte_nr || ' 20% korting' ruimte_voorzieningen,
+ NULL aantal,
+ NULL stuksprijs,
+ ROUND (
+ DECODE (
+ SIGN (x.aantal - 8),
+ -1,
+ DECODE (SIGN (x.aantal - 4),
+ -1, x.aantal * x.ps,
+ x.po + (x.aantal - 4) * x.ps),
+ x.pm)
+ * -0.2,
+ 2)
+ netto,
+ 21 btwtarief,
+ ROUND (
+ DECODE (
+ SIGN (x.aantal - 8),
+ -1,
+ DECODE (SIGN (x.aantal - 4),
+ -1, x.aantal * x.ps,
+ x.po + (x.aantal - 4) * x.ps),
+ x.pm)
+ * -0.2
+ * 21
+ / 100,
+ 2)
+ btw,
+ NULL oms,
+ NULL opm
+ FROM (SELECT v.bedrijf,
+ v.bcp_key,
+ rrr.res_reservering_key,
+ rrr.res_rsv_ruimte_volgnr,
+ rr.res_ruimte_nr,
+ rrr.res_rsv_ruimte_van van,
+ (rrr.res_rsv_ruimte_tot - rrr.res_rsv_ruimte_van) * 24
+ aantal,
+ rr.res_ruimte_prijs ps,
+ rr.res_ruimte_prijs_ochtend po,
+ rr.res_ruimte_prijs_middag pm
+ FROM res_v_aanwezigrsv_ruimte rrr,
+ res_ruimte_opstelling rro,
+ res_ruimte rr,
+ wibc_v_cp v,
+ (SELECT *
+ FROM prs_v_aanwezigkenmerklink
+ WHERE prs_kenmerk_key = 1023) huurder
+ WHERE rrr.res_rsv_ruimte_ordernr IS NULL
+ AND rrr.res_status_fo_key IN (1, 2)
+ AND rrr.res_status_bo_key != 6 -- Nog niet AV
+ AND rrr.res_rsv_ruimte_dirtlevel = 0
+ AND rrr.res_ruimte_opstel_key = rro.res_ruimte_opstel_key
+ AND rro.res_ruimte_key = rr.res_ruimte_key
+ AND rrr.res_rsv_ruimte_tot < SYSDATE + (1 / 24) -- Nu + uur!
+ AND rrr.res_rsv_ruimte_contact_key = v.cp_key
+ AND v.bcp_key = huurder.prs_link_key(+)
+ AND (v.bcnt_soort IS NOT NULL
+ OR huurder.prs_kenmerklink_waarde = 1)) x
+ LEFT JOIN prs_v_aanwezigkenmerklink pa -- 1060 = Factuur p.a.
+ ON x.bcp_key = pa.prs_link_key AND pa.prs_kenmerk_key = 1060
+ LEFT JOIN prs_v_aanwezigkenmerklink tav -- 1040 = Factuur t.a.v.
+ ON x.bcp_key = tav.prs_link_key AND tav.prs_kenmerk_key = 1040;
-/* Formatted on 5-6-2013 16:35:45 (QP5 v5.115.810.9015) */
+/* Formatted on 10-3-2014 12:30:30 (QP5 v5.136.908.31019) */
CREATE OR REPLACE VIEW wibc_v_rap_res_frozen
(
hide_f_debnr,
@@ -2271,6 +1796,7 @@ CREATE OR REPLACE VIEW wibc_v_rap_res_frozen
adres,
postcode,
plaats,
+ land,
btwnr,
fclt_f_factuur,
factuurperiode,
@@ -2294,488 +1820,418 @@ CREATE OR REPLACE VIEW wibc_v_rap_res_frozen
opmerking
)
AS
- SELECT SUBSTR ('000000' || TO_CHAR (x.prs_perslid_key), -6) debnr,
- COALESCE (bedr.prs_kenmerklink_waarde,
- SUBSTR ('000000' || TO_CHAR (x.prs_perslid_key), -6))
- bedrijf,
- TRIM (pa.prs_kenmerklink_waarde) pa,
- COALESCE (
- TRIM (tav.prs_kenmerklink_waarde),
- (SELECT DECODE (prs_perslid_geslacht,
- 0, 'Mevr. ',
- 1, 'Dhr. ',
- '')
- || DECODE (prs_perslid_voorletters,
- '', '',
- prs_perslid_voorletters || ' ')
- || DECODE (prs_perslid_tussenvoegsel,
- '', '',
- prs_perslid_tussenvoegsel || ' ')
- || prs_perslid_naam
- FROM prs_perslid
- WHERE prs_perslid_key = x.prs_perslid_key)
- )
- tav,
- DECODE (fad.prs_kenmerklink_waarde,
- NULL, TRIM (cad.prs_kenmerklink_waarde),
- TRIM (fad.prs_kenmerklink_waarde))
- adres,
- DECODE (fad.prs_kenmerklink_waarde,
- NULL, TRIM (cpc.prs_kenmerklink_waarde),
- TRIM (fpc.prs_kenmerklink_waarde))
- postcode,
- DECODE (fad.prs_kenmerklink_waarde,
- NULL, TRIM (cpl.prs_kenmerklink_waarde),
- TRIM (fpl.prs_kenmerklink_waarde))
- plaats,
- btwnr.prs_kenmerklink_waarde btwnr,
- x.factuurnummer,
- TO_CHAR (TRUNC (x.factuurdatum, 'mm') - 1, 'yyyy-mm')
- factuurperiode,
- TO_CHAR (x.factuurdatum, 'dd-mm-yyyy') factuurdatum,
- TO_CHAR (x.vervaldatum, 'dd-mm-yyyy') vervaldatum,
- TO_CHAR (x.van, 'yyyy-mm-dd hh24:mi')
- || rvc.res_ruimte_nr
- || x.res_reservering_key
- sortering1, -- Factuurregels op datum-tijd en dan ruimtenr
- rvc.res_type || SUBSTR ('000000' || TO_CHAR (rvc.vnr), -6)
- sortering2, -- ..daarbinnen op type (1R2V3C) en dan volgnr
- x.res_reservering_key || '/' || x.res_rsv_ruimte_volgnr resnr,
- TO_CHAR (x.van, 'dd-mm-yyyy') datum_tijd,
- TO_CHAR (x.van, 'hh24:mi') van,
- TO_CHAR (x.tot, 'hh24:mi') tot,
- TO_CHAR (x.res_rsv_ruimte_bezoekers) bezoekers,
- x.res_activiteit_key,
- DECODE (
- rvc.res_type,
- '2V',
- rvc.res_voorziening || ' / ' || TO_CHAR (rvc.aantal) || ' uur',
- '3C',
- DECODE (x.res_activiteit_key,
- 50, x.res_rsv_ruimte_omschrijving,
- 70, x.res_rsv_ruimte_omschrijving,
- TO_CHAR (rvc.aantal) || ' * ' || rvc.res_voorziening),
- rvc.res_ruimte_nr -- '1R'
- )
- ruimte_voorzieningen,
- TO_CHAR (rvc.aantal) aantal,
- ROUND (
- COALESCE (rvc.res_rsv_prijs, 0)
- / DECODE (rvc.aantal, NULL, 1, 0, 1, rvc.aantal),
- 2
- )
- stuksprijs,
- ROUND (
- DECODE ( -- '2V' of '3C'
- x.res_activiteit_key,
- 50, -- Creditboeking
- -1 * COALESCE (rvc.res_rsv_prijs, 0),
- COALESCE (rvc.res_rsv_prijs, 0)),
- 2
- )
- netto,
- rvc.btw btwtarief,
- ROUND (
- DECODE ( -- '2V' of '3C'
- x.res_activiteit_key,
- 50, -- Creditboeking
- -1 * COALESCE (rvc.res_rsv_prijs, 0),
- COALESCE (rvc.res_rsv_prijs, 0))
- * rvc.btw
- / 100,
- 2
- )
- btw,
- x.res_rsv_ruimte_omschrijving oms,
- x.res_rsv_ruimte_opmerking opm
- FROM (SELECT rr.res_rsv_ruimte_key,
- rr.res_reservering_key,
- rr.res_rsv_ruimte_volgnr,
- rr.res_rsv_ruimte_van
- van,
- rr.res_rsv_ruimte_tot
- tot,
- rr.res_activiteit_key,
- rr.res_rsv_ruimte_bezoekers,
- rr.res_rsv_ruimte_omschrijving,
- rr.res_rsv_ruimte_opmerking,
- fac.safe_to_number(SUBSTR (
- ud.fac_usrdata_omschr,
- 1,
- LENGTH(ud.fac_usrdata_omschr)
- - 1
- ))
- prs_perslid_key,
- ud.fac_usrdata_code
- factuurnummer,
- ud.fac_usrdata_aanmaak
- factuurdatum,
- ud.fac_usrdata_vervaldatum
- vervaldatum
- FROM res_v_aanwezigrsv_ruimte rr,
- fac_v_aanwezigusrdata ud
- WHERE rr.res_rsv_ruimte_ordernr =
- ud.fac_usrdata_code
- AND ud.fac_usrtab_key =
- 82) x
- LEFT JOIN -- 1060 = Factuur p.a.
- prs_v_aanwezigkenmerklink pa
- ON x.prs_perslid_key =
- pa.prs_link_key
- AND pa.prs_kenmerk_key = 1060
- LEFT JOIN -- 1040 = Factuur t.a.v.
- prs_v_aanwezigkenmerklink tav
- ON x.prs_perslid_key =
- tav.prs_link_key
- AND tav.prs_kenmerk_key = 1040
- LEFT JOIN -- 1000 = Bedrijf
- prs_v_aanwezigkenmerklink bedr
- ON x.prs_perslid_key = bedr.prs_link_key
- AND bedr.prs_kenmerk_key = 1000
- LEFT JOIN
- prs_v_aanwezigkenmerklink cad
- ON x.prs_perslid_key = cad.prs_link_key
- AND cad.prs_kenmerk_key = 1001 -- C-Adres
- LEFT JOIN
- prs_v_aanwezigkenmerklink cpc
- ON x.prs_perslid_key = cpc.prs_link_key
- AND cpc.prs_kenmerk_key = 1002 -- C-Postcode
- LEFT JOIN
- prs_v_aanwezigkenmerklink cpl
- ON x.prs_perslid_key = cpl.prs_link_key
- AND cpl.prs_kenmerk_key = 1003 -- C-Plaats
- LEFT JOIN
- prs_v_aanwezigkenmerklink fad
- ON x.prs_perslid_key = fad.prs_link_key
- AND fad.prs_kenmerk_key = 1006 -- F-Adres
- LEFT JOIN
- prs_v_aanwezigkenmerklink fpc
- ON x.prs_perslid_key = fpc.prs_link_key
- AND fpc.prs_kenmerk_key = 1007 -- F-Postcode
- LEFT JOIN
- prs_v_aanwezigkenmerklink fpl
- ON x.prs_perslid_key = fpl.prs_link_key
- AND fpl.prs_kenmerk_key = 1008 -- F-Plaats
- LEFT JOIN
- prs_v_aanwezigkenmerklink btwnr
- ON x.prs_perslid_key = btwnr.prs_link_key
- AND btwnr.prs_kenmerk_key = 1005 -- BTW-nr
- LEFT JOIN
- (SELECT rrr.res_rsv_ruimte_key,
- rr.res_ruimte_nr,
- '1R' res_type,
- TO_NUMBER (NULL) vnr,
- NULL res_voorziening,
- rrr.res_rsv_ruimte_prijs res_rsv_prijs,
- (rrr.res_rsv_ruimte_tot - rrr.res_rsv_ruimte_van)
- * 24
- aantal, -- Duur in uren
- 21 btw
- FROM res_v_aanwezigrsv_ruimte rrr,
- res_ruimte_opstelling rro,
- res_ruimte rr
- WHERE rrr.res_ruimte_opstel_key =
- rro.res_ruimte_opstel_key
- AND rro.res_ruimte_key = rr.res_ruimte_key
- UNION ALL
- SELECT rrd.res_rsv_ruimte_key,
- rr.res_ruimte_nr,
- '2V' res_type,
- rd.res_ins_deel_key vnr,
- LTRIM (ID.ins_deel_omschrijving)
- || DECODE (rd.res_deel_eenheid,
- NULL, '',
- ' (' || rd.res_deel_eenheid || ')')
- res_voorziening,
- rrd.res_rsv_deel_prijs res_rsv_prijs,
- (rrd.res_rsv_deel_tot - rrd.res_rsv_deel_van) * 24
- aantal, -- Duur in uren
- 21 btw
- FROM res_v_aanwezigrsv_ruimte rrr,
- res_ruimte_opstelling rro,
- res_ruimte rr,
- res_v_aanwezigrsv_deel rrd,
- res_deel rd,
- ins_deel ID
- WHERE rrr.res_ruimte_opstel_key =
- rro.res_ruimte_opstel_key(+)
- AND rro.res_ruimte_key = rr.res_ruimte_key(+)
- AND rrr.res_rsv_ruimte_key = rrd.res_rsv_ruimte_key
- AND rrd.res_deel_key = rd.res_deel_key
- AND rd.res_ins_deel_key = ID.ins_deel_key
- UNION ALL
- SELECT rra.res_rsv_ruimte_key,
- rr.res_ruimte_nr,
- '3C' res_type,
- ra.res_artikel_volgnummer vnr,
- LTRIM (ra.res_artikel_omschrijving)
- || DECODE (ra.res_artikel_eenheid,
- NULL, '',
- ' (' || ra.res_artikel_eenheid || ')')
- res_voorziening,
- --DECODE (ra.res_artikel_key, -1, -1, 1) * -- Korting
- rra.res_rsv_artikel_prijs res_rsv_prijs,
- rra.res_rsv_artikel_aantal aantal,
- COALESCE (rra.res_rsv_artikel_btw,
- ra.res_artikel_btw,
- 21)
- btw
- FROM res_v_aanwezigrsv_ruimte rrr,
- res_ruimte_opstelling rro,
- res_ruimte rr,
- res_v_aanwezigrsv_artikel rra,
- res_artikel ra
- WHERE rrr.res_ruimte_opstel_key =
- rro.res_ruimte_opstel_key(+)
- AND rro.res_ruimte_key = rr.res_ruimte_key(+)
- AND rrr.res_rsv_ruimte_key = rra.res_rsv_ruimte_key
- AND rra.res_artikel_key = ra.res_artikel_key) rvc
- ON x.res_rsv_ruimte_key = rvc.res_rsv_ruimte_key
+ SELECT SUBSTR ('000000' || TO_CHAR (x.prs_perslid_key), -6) debnr,
+ COALESCE (bedr.prs_kenmerklink_waarde,
+ SUBSTR ('000000' || TO_CHAR (x.prs_perslid_key), -6))
+ bedrijf,
+ TRIM (pa.prs_kenmerklink_waarde) pa,
+ COALESCE (
+ TRIM (tav.prs_kenmerklink_waarde),
+ (SELECT DECODE (prs_perslid_geslacht,
+ 0, 'Mevr. ',
+ 1, 'Dhr. ',
+ '')
+ || DECODE (prs_perslid_voorletters,
+ '', '',
+ prs_perslid_voorletters || ' ')
+ || DECODE (prs_perslid_tussenvoegsel,
+ '', '',
+ prs_perslid_tussenvoegsel || ' ')
+ || prs_perslid_naam
+ FROM prs_perslid
+ WHERE prs_perslid_key = x.prs_perslid_key))
+ tav,
+ DECODE (fad.prs_kenmerklink_waarde,
+ NULL, TRIM (cad.prs_kenmerklink_waarde),
+ TRIM (fad.prs_kenmerklink_waarde))
+ adres,
+ DECODE (fad.prs_kenmerklink_waarde,
+ NULL, TRIM (cpc.prs_kenmerklink_waarde),
+ TRIM (fpc.prs_kenmerklink_waarde))
+ postcode,
+ DECODE (fad.prs_kenmerklink_waarde,
+ NULL, TRIM (cpl.prs_kenmerklink_waarde),
+ TRIM (fpl.prs_kenmerklink_waarde))
+ plaats,
+ DECODE (fad.prs_kenmerklink_waarde,
+ NULL, TRIM (cla.prs_kenmerklink_waarde),
+ TRIM (fla.prs_kenmerklink_waarde))
+ land,
+ btwnr.prs_kenmerklink_waarde btwnr,
+ x.factuurnummer,
+ TO_CHAR (TRUNC (x.factuurdatum, 'mm') - 1, 'yyyy-mm')
+ factuurperiode,
+ TO_CHAR (x.factuurdatum, 'dd-mm-yyyy') factuurdatum,
+ TO_CHAR (x.vervaldatum, 'dd-mm-yyyy') vervaldatum,
+ TO_CHAR (x.van, 'yyyy-mm-dd hh24:mi')
+ || rvc.res_ruimte_nr
+ || x.res_reservering_key
+ sortering1, -- Factuurregels op datum-tijd en dan ruimtenr
+ rvc.res_type || SUBSTR ('000000' || TO_CHAR (rvc.vnr), -6)
+ sortering2, -- ..daarbinnen op type (1R2V3C) en dan volgnr
+ x.res_reservering_key || '/' || x.res_rsv_ruimte_volgnr resnr,
+ TO_CHAR (x.van, 'dd-mm-yyyy') datum_tijd,
+ TO_CHAR (x.van, 'hh24:mi') van,
+ TO_CHAR (x.tot, 'hh24:mi') tot,
+ TO_CHAR (x.res_rsv_ruimte_bezoekers) bezoekers,
+ x.res_activiteit_key,
+ DECODE (
+ rvc.res_type,
+ '2V',
+ rvc.res_voorziening || ' / ' || TO_CHAR (rvc.aantal) || ' uur',
+ '3C',
+ DECODE (x.res_activiteit_key,
+ 50, x.res_rsv_ruimte_omschrijving,
+ 70, x.res_rsv_ruimte_omschrijving,
+ TO_CHAR (rvc.aantal) || ' * ' || rvc.res_voorziening),
+ rvc.res_ruimte_nr -- '1R'
+ )
+ ruimte_voorzieningen,
+ TO_CHAR (rvc.aantal) aantal,
+ ROUND (
+ COALESCE (rvc.res_rsv_prijs, 0)
+ / DECODE (rvc.aantal, NULL, 1, 0, 1, rvc.aantal),
+ 2)
+ stuksprijs,
+ ROUND (
+ DECODE ( -- '2V' of '3C'
+ x.res_activiteit_key,
+ 50, -- Creditboeking
+ -1 * COALESCE (rvc.res_rsv_prijs, 0),
+ COALESCE (rvc.res_rsv_prijs, 0)),
+ 2)
+ netto,
+ rvc.btw btwtarief,
+ ROUND (
+ DECODE ( -- '2V' of '3C'
+ x.res_activiteit_key,
+ 50, -- Creditboeking
+ -1 * COALESCE (rvc.res_rsv_prijs, 0),
+ COALESCE (rvc.res_rsv_prijs, 0))
+ * rvc.btw
+ / 100,
+ 2)
+ btw,
+ x.res_rsv_ruimte_omschrijving oms,
+ x.res_rsv_ruimte_opmerking opm
+ FROM (SELECT rr.res_rsv_ruimte_key,
+ rr.res_reservering_key,
+ rr.res_rsv_ruimte_volgnr,
+ rr.res_rsv_ruimte_van van,
+ rr.res_rsv_ruimte_tot tot,
+ rr.res_activiteit_key,
+ rr.res_rsv_ruimte_bezoekers,
+ rr.res_rsv_ruimte_omschrijving,
+ rr.res_rsv_ruimte_opmerking,
+ fac.safe_to_number(SUBSTR (
+ ud.fac_usrdata_omschr,
+ 1,
+ LENGTH (ud.fac_usrdata_omschr) - 1))
+ prs_perslid_key,
+ ud.fac_usrdata_code factuurnummer,
+ ud.fac_usrdata_aanmaak factuurdatum,
+ ud.fac_usrdata_vervaldatum vervaldatum
+ FROM res_v_aanwezigrsv_ruimte rr, fac_v_aanwezigusrdata ud
+ WHERE rr.res_rsv_ruimte_ordernr = ud.fac_usrdata_code
+ AND ud.fac_usrtab_key = 82) x
+ LEFT JOIN prs_v_aanwezigkenmerklink pa -- 1060 = Factuur p.a.
+ ON x.prs_perslid_key = pa.prs_link_key AND pa.prs_kenmerk_key = 1060
+ LEFT JOIN prs_v_aanwezigkenmerklink tav -- 1040 = Factuur t.a.v.
+ ON x.prs_perslid_key = tav.prs_link_key AND tav.prs_kenmerk_key = 1040
+ LEFT JOIN prs_v_aanwezigkenmerklink bedr -- 1000 = Bedrijf
+ ON x.prs_perslid_key = bedr.prs_link_key AND bedr.prs_kenmerk_key = 1000
+ LEFT JOIN prs_v_aanwezigkenmerklink cad -- C-Adres
+ ON x.prs_perslid_key = cad.prs_link_key AND cad.prs_kenmerk_key = 1001
+ LEFT JOIN prs_v_aanwezigkenmerklink cpc -- C-Postcode
+ ON x.prs_perslid_key = cpc.prs_link_key AND cpc.prs_kenmerk_key = 1002
+ LEFT JOIN prs_v_aanwezigkenmerklink cpl -- C-Plaats
+ ON x.prs_perslid_key = cpl.prs_link_key AND cpl.prs_kenmerk_key = 1003
+ LEFT JOIN prs_v_aanwezigkenmerklink cla -- C-Land
+ ON x.prs_perslid_key = cla.prs_link_key AND cla.prs_kenmerk_key = 1080
+ LEFT JOIN prs_v_aanwezigkenmerklink fad -- F-Adres
+ ON x.prs_perslid_key = fad.prs_link_key AND fad.prs_kenmerk_key = 1006
+ LEFT JOIN prs_v_aanwezigkenmerklink fpc -- F-Postcode
+ ON x.prs_perslid_key = fpc.prs_link_key AND fpc.prs_kenmerk_key = 1007
+ LEFT JOIN prs_v_aanwezigkenmerklink fpl -- F-Plaats
+ ON x.prs_perslid_key = fpl.prs_link_key AND fpl.prs_kenmerk_key = 1008
+ LEFT JOIN prs_v_aanwezigkenmerklink fla -- F-Land
+ ON x.prs_perslid_key = fla.prs_link_key AND fla.prs_kenmerk_key = 1081
+ LEFT JOIN prs_v_aanwezigkenmerklink btwnr -- BTW-nr
+ ON x.prs_perslid_key = btwnr.prs_link_key AND btwnr.prs_kenmerk_key = 1005
+ LEFT JOIN (SELECT rrr.res_rsv_ruimte_key,
+ rr.res_ruimte_nr,
+ '1R' res_type,
+ TO_NUMBER (NULL) vnr,
+ NULL res_voorziening,
+ rrr.res_rsv_ruimte_prijs res_rsv_prijs,
+ (rrr.res_rsv_ruimte_tot - rrr.res_rsv_ruimte_van)
+ * 24
+ aantal, -- Duur in uren
+ 21 btw
+ FROM res_v_aanwezigrsv_ruimte rrr,
+ res_ruimte_opstelling rro,
+ res_ruimte rr
+ WHERE rrr.res_ruimte_opstel_key =
+ rro.res_ruimte_opstel_key
+ AND rro.res_ruimte_key = rr.res_ruimte_key
+ UNION ALL
+ SELECT rrd.res_rsv_ruimte_key,
+ rr.res_ruimte_nr,
+ '2V' res_type,
+ rd.res_ins_deel_key vnr,
+ LTRIM (ID.ins_deel_omschrijving)
+ || DECODE (rd.res_deel_eenheid,
+ NULL, '',
+ ' (' || rd.res_deel_eenheid || ')')
+ res_voorziening,
+ rrd.res_rsv_deel_prijs res_rsv_prijs,
+ (rrd.res_rsv_deel_tot - rrd.res_rsv_deel_van)
+ * 24
+ aantal, -- Duur in uren
+ 21 btw
+ FROM res_v_aanwezigrsv_ruimte rrr,
+ res_ruimte_opstelling rro,
+ res_ruimte rr,
+ res_v_aanwezigrsv_deel rrd,
+ res_deel rd,
+ ins_deel ID
+ WHERE rrr.res_ruimte_opstel_key =
+ rro.res_ruimte_opstel_key(+)
+ AND rro.res_ruimte_key = rr.res_ruimte_key(+)
+ AND rrr.res_rsv_ruimte_key =
+ rrd.res_rsv_ruimte_key
+ AND rrd.res_deel_key = rd.res_deel_key
+ AND rd.res_ins_deel_key = ID.ins_deel_key
+ UNION ALL
+ SELECT rra.res_rsv_ruimte_key,
+ rr.res_ruimte_nr,
+ '3C' res_type,
+ ra.res_artikel_volgnummer vnr,
+ LTRIM (ra.res_artikel_omschrijving)
+ || DECODE (ra.res_artikel_eenheid,
+ NULL, '',
+ ' (' || ra.res_artikel_eenheid || ')')
+ res_voorziening,
+ --DECODE (ra.res_artikel_key, -1, -1, 1) * -- Korting
+ rra.res_rsv_artikel_prijs res_rsv_prijs,
+ rra.res_rsv_artikel_aantal aantal,
+ COALESCE (rra.res_rsv_artikel_btw,
+ ra.res_artikel_btw,
+ 21)
+ btw
+ FROM res_v_aanwezigrsv_ruimte rrr,
+ res_ruimte_opstelling rro,
+ res_ruimte rr,
+ res_v_aanwezigrsv_artikel rra,
+ res_artikel ra
+ WHERE rrr.res_ruimte_opstel_key =
+ rro.res_ruimte_opstel_key(+)
+ AND rro.res_ruimte_key = rr.res_ruimte_key(+)
+ AND rrr.res_rsv_ruimte_key =
+ rra.res_rsv_ruimte_key
+ AND rra.res_artikel_key = ra.res_artikel_key) rvc
+ ON x.res_rsv_ruimte_key = rvc.res_rsv_ruimte_key
UNION ALL -- Additionele lidmaatschapregels voor leden!
- SELECT SUBSTR ('000000' || TO_CHAR (x.prs_perslid_key), -6) debnr,
- COALESCE (bedr.prs_kenmerklink_waarde,
- SUBSTR ('000000' || TO_CHAR (x.prs_perslid_key), -6))
- bedrijf,
- TRIM (pa.prs_kenmerklink_waarde) pa,
- COALESCE (
- TRIM (tav.prs_kenmerklink_waarde),
- (SELECT DECODE (prs_perslid_geslacht,
- 0, 'Mevr. ',
- 1, 'Dhr. ',
- '')
- || DECODE (prs_perslid_voorletters,
- '', '',
- prs_perslid_voorletters || ' ')
- || DECODE (prs_perslid_tussenvoegsel,
- '', '',
- prs_perslid_tussenvoegsel || ' ')
- || prs_perslid_naam
- FROM prs_perslid
- WHERE prs_perslid_key = x.prs_perslid_key)
- )
- tav,
- DECODE (fad.prs_kenmerklink_waarde,
- NULL, TRIM (cad.prs_kenmerklink_waarde),
- TRIM (fad.prs_kenmerklink_waarde))
- adres,
- DECODE (fad.prs_kenmerklink_waarde,
- NULL, TRIM (cpc.prs_kenmerklink_waarde),
- TRIM (fpc.prs_kenmerklink_waarde))
- postcode,
- DECODE (fad.prs_kenmerklink_waarde,
- NULL, TRIM (cpl.prs_kenmerklink_waarde),
- TRIM (fpl.prs_kenmerklink_waarde))
- plaats,
- btwnr.prs_kenmerklink_waarde btwnr,
- x.factuurnummer,
- TO_CHAR (TRUNC (x.factuurdatum, 'mm') - 1, 'yyyy-mm')
- factuurperiode,
- TO_CHAR (x.factuurdatum, 'dd-mm-yyyy') factuurdatum,
- TO_CHAR (x.vervaldatum, 'dd-mm-yyyy') vervaldatum,
- TO_CHAR (TRUNC (TRUNC (x.factuurdatum, 'mm') - 1, 'mm'),
- 'yyyy-mm-dd hh24:mi')
- || x.lidmaatschap
- sortering1, -- Factuurregels op datum-tijd en dan ruimtenr
- '0L' sortering2, -- ..daarbinnen op type (0L1R1S2V3C)
- NULL resnr,
- NULL datum_tijd,
- NULL van,
- NULL tot,
- NULL bezoekers,
- NULL res_activiteit_key,
- 'Lidmaatschap ' || x.lidmaatschap ruimte_voorzieningen,
- NULL aantal,
- NULL stuksprijs,
- ROUND (250, 2) netto,
- 21 btwtarief,
- ROUND (250 * 21 / 100, 2) btw,
- NULL oms,
- NULL opm
- FROM (SELECT fac.safe_to_number(SUBSTR (
- fac_usrdata_omschr,
- 1,
- LENGTH(fac_usrdata_omschr)
- - 1
- ))
- prs_perslid_key,
- fac_usrdata_code
- factuurnummer,
- fac_usrdata_aanmaak
- factuurdatum,
- fac_usrdata_vervaldatum
- vervaldatum,
- TO_CHAR (
- fac_usrdata_aanmaak,
- 'yyyy-mm'
- )
- lidmaatschap
- FROM fac_v_aanwezigusrdata
- WHERE fac_usrtab_key = 82
- AND SUBSTR (
- fac_usrdata_omschr,
- -1
- ) IN
- ('L', 'X') -- Lidmaatschap
- UNION ALL
- SELECT fac.safe_to_number(SUBSTR (
- fac_usrdata_omschr,
- 1,
- LENGTH(fac_usrdata_omschr)
- - 1
- ))
- prs_perslid_key,
- fac_usrdata_code
- factuurnummer,
- fac_usrdata_aanmaak
- factuurdatum,
- fac_usrdata_vervaldatum
- vervaldatum,
- '2012-12' lidmaatschap
- FROM fac_v_aanwezigusrdata
- WHERE fac_usrtab_key = 82
- AND SUBSTR (
- fac_usrdata_omschr,
- -1
- ) IN
- ('L', 'X') -- Lidmaatschap
- AND TO_CHAR (
- fac_usrdata_aanmaak,
- 'yyyy-mm'
- ) = '2013-01') x
- LEFT JOIN -- 1060 = Factuur p.a.
- prs_v_aanwezigkenmerklink pa
- ON x.prs_perslid_key = pa.prs_link_key
- AND pa.prs_kenmerk_key = 1060
- LEFT JOIN -- 1040 = Factuur t.a.v.
- prs_v_aanwezigkenmerklink tav
- ON x.prs_perslid_key = tav.prs_link_key
- AND tav.prs_kenmerk_key = 1040
- LEFT JOIN
- prs_v_aanwezigkenmerklink bedr
- ON x.prs_perslid_key = bedr.prs_link_key
- AND bedr.prs_kenmerk_key = 1000 -- Bedrijf
- LEFT JOIN
- prs_v_aanwezigkenmerklink cad
- ON x.prs_perslid_key = cad.prs_link_key
- AND cad.prs_kenmerk_key = 1001 -- C-Adres
- LEFT JOIN
- prs_v_aanwezigkenmerklink cpc
- ON x.prs_perslid_key = cpc.prs_link_key
- AND cpc.prs_kenmerk_key = 1002 -- C-Postcode
- LEFT JOIN
- prs_v_aanwezigkenmerklink cpl
- ON x.prs_perslid_key = cpl.prs_link_key
- AND cpl.prs_kenmerk_key = 1003 -- C-Plaats
- LEFT JOIN
- prs_v_aanwezigkenmerklink fad
- ON x.prs_perslid_key = fad.prs_link_key
- AND fad.prs_kenmerk_key = 1006 -- F-Adres
- LEFT JOIN
- prs_v_aanwezigkenmerklink fpc
- ON x.prs_perslid_key = fpc.prs_link_key
- AND fpc.prs_kenmerk_key = 1007 -- F-Postcode
- LEFT JOIN
- prs_v_aanwezigkenmerklink fpl
- ON x.prs_perslid_key = fpl.prs_link_key
- AND fpl.prs_kenmerk_key = 1008 -- F-Plaats
- LEFT JOIN
- prs_v_aanwezigkenmerklink btwnr
- ON x.prs_perslid_key = btwnr.prs_link_key
- AND btwnr.prs_kenmerk_key = 1005 -- BTW-nr
+ SELECT SUBSTR ('000000' || TO_CHAR (x.prs_perslid_key), -6) debnr,
+ COALESCE (bedr.prs_kenmerklink_waarde,
+ SUBSTR ('000000' || TO_CHAR (x.prs_perslid_key), -6))
+ bedrijf,
+ TRIM (pa.prs_kenmerklink_waarde) pa,
+ COALESCE (
+ TRIM (tav.prs_kenmerklink_waarde),
+ (SELECT DECODE (prs_perslid_geslacht,
+ 0, 'Mevr. ',
+ 1, 'Dhr. ',
+ '')
+ || DECODE (prs_perslid_voorletters,
+ '', '',
+ prs_perslid_voorletters || ' ')
+ || DECODE (prs_perslid_tussenvoegsel,
+ '', '',
+ prs_perslid_tussenvoegsel || ' ')
+ || prs_perslid_naam
+ FROM prs_perslid
+ WHERE prs_perslid_key = x.prs_perslid_key))
+ tav,
+ DECODE (fad.prs_kenmerklink_waarde,
+ NULL, TRIM (cad.prs_kenmerklink_waarde),
+ TRIM (fad.prs_kenmerklink_waarde))
+ adres,
+ DECODE (fad.prs_kenmerklink_waarde,
+ NULL, TRIM (cpc.prs_kenmerklink_waarde),
+ TRIM (fpc.prs_kenmerklink_waarde))
+ postcode,
+ DECODE (fad.prs_kenmerklink_waarde,
+ NULL, TRIM (cpl.prs_kenmerklink_waarde),
+ TRIM (fpl.prs_kenmerklink_waarde))
+ plaats,
+ DECODE (fad.prs_kenmerklink_waarde,
+ NULL, TRIM (cla.prs_kenmerklink_waarde),
+ TRIM (fla.prs_kenmerklink_waarde))
+ land,
+ btwnr.prs_kenmerklink_waarde btwnr,
+ x.factuurnummer,
+ TO_CHAR (TRUNC (x.factuurdatum, 'mm') - 1, 'yyyy-mm')
+ factuurperiode,
+ TO_CHAR (x.factuurdatum, 'dd-mm-yyyy') factuurdatum,
+ TO_CHAR (x.vervaldatum, 'dd-mm-yyyy') vervaldatum,
+ TO_CHAR (TRUNC (TRUNC (x.factuurdatum, 'mm') - 1, 'mm'),
+ 'yyyy-mm-dd hh24:mi')
+ || x.lidmaatschap
+ sortering1, -- Factuurregels op datum-tijd en dan ruimtenr
+ '0L' sortering2, -- ..daarbinnen op type (0L1R1S2V3C)
+ NULL resnr,
+ NULL datum_tijd,
+ NULL van,
+ NULL tot,
+ NULL bezoekers,
+ NULL res_activiteit_key,
+ 'Lidmaatschap '
+ || COALESCE (
+ SUBSTR (v.pcnt_soort, 1, INSTR (v.pcnt_soort, ' ', 1) - 1),
+ '')
+ || x.lidmaatschap
+ ruimte_voorzieningen,
+ NULL aantal,
+ NULL stuksprijs,
+ ROUND (COALESCE (v.pcnt_prijs, x.lidmaatschap_prijs), 2) netto,
+ 21 btwtarief,
+ ROUND (COALESCE (v.pcnt_prijs, x.lidmaatschap_prijs) * 21 / 100, 2)
+ btw,
+ NULL oms,
+ NULL opm
+ FROM (SELECT fac.safe_to_number(SUBSTR (fac_usrdata_omschr,
+ 1,
+ LENGTH (fac_usrdata_omschr) - 1))
+ prs_perslid_key,
+ fac_usrdata_code factuurnummer,
+ fac_usrdata_aanmaak factuurdatum,
+ fac_usrdata_vervaldatum vervaldatum,
+ TO_CHAR (fac_usrdata_aanmaak, ' yyyy-mm') lidmaatschap,
+ COALESCE (fac_usrdata_prijs, 250) lidmaatschap_prijs
+ FROM fac_v_aanwezigusrdata
+ WHERE fac_usrtab_key = 82
+ AND SUBSTR (fac_usrdata_omschr, -1) IN ('L', 'X') -- Lidmaatschap
+ UNION ALL
+ SELECT fac.safe_to_number(SUBSTR (fac_usrdata_omschr,
+ 1,
+ LENGTH (fac_usrdata_omschr) - 1))
+ prs_perslid_key,
+ fac_usrdata_code factuurnummer,
+ fac_usrdata_aanmaak factuurdatum,
+ fac_usrdata_vervaldatum vervaldatum,
+ ' 2012-12' lidmaatschap,
+ COALESCE (fac_usrdata_prijs, 250) lidmaatschap_prijs
+ FROM fac_v_aanwezigusrdata
+ WHERE fac_usrtab_key = 82
+ AND SUBSTR (fac_usrdata_omschr, -1) IN ('L', 'X') -- Lidmaatschap
+ AND TO_CHAR (fac_usrdata_aanmaak, 'yyyy-mm') = '2013-01') x
+ LEFT JOIN wibc_v_cp v
+ ON x.prs_perslid_key = v.bcp_key AND x.lidmaatschap_prijs = v.bcnt_prijs
+ LEFT JOIN prs_v_aanwezigkenmerklink pa -- 1060 = Factuur p.a.
+ ON x.prs_perslid_key = pa.prs_link_key AND pa.prs_kenmerk_key = 1060
+ LEFT JOIN prs_v_aanwezigkenmerklink tav -- 1040 = Factuur t.a.v.
+ ON x.prs_perslid_key = tav.prs_link_key AND tav.prs_kenmerk_key = 1040
+ LEFT JOIN prs_v_aanwezigkenmerklink bedr -- 1000 = Bedrijf
+ ON x.prs_perslid_key = bedr.prs_link_key AND bedr.prs_kenmerk_key = 1000
+ LEFT JOIN prs_v_aanwezigkenmerklink cad -- C-Adres
+ ON x.prs_perslid_key = cad.prs_link_key AND cad.prs_kenmerk_key = 1001
+ LEFT JOIN prs_v_aanwezigkenmerklink cpc -- C-Postcode
+ ON x.prs_perslid_key = cpc.prs_link_key AND cpc.prs_kenmerk_key = 1002
+ LEFT JOIN prs_v_aanwezigkenmerklink cpl -- C-Plaats
+ ON x.prs_perslid_key = cpl.prs_link_key AND cpl.prs_kenmerk_key = 1003
+ LEFT JOIN prs_v_aanwezigkenmerklink cla -- C-Land
+ ON x.prs_perslid_key = cla.prs_link_key AND cla.prs_kenmerk_key = 1080
+ LEFT JOIN prs_v_aanwezigkenmerklink fad -- F-Adres
+ ON x.prs_perslid_key = fad.prs_link_key AND fad.prs_kenmerk_key = 1006
+ LEFT JOIN prs_v_aanwezigkenmerklink fpc -- F-Postcode
+ ON x.prs_perslid_key = fpc.prs_link_key AND fpc.prs_kenmerk_key = 1007
+ LEFT JOIN prs_v_aanwezigkenmerklink fpl -- F-Plaats
+ ON x.prs_perslid_key = fpl.prs_link_key AND fpl.prs_kenmerk_key = 1008
+ LEFT JOIN prs_v_aanwezigkenmerklink fla -- F-Land
+ ON x.prs_perslid_key = fla.prs_link_key AND fla.prs_kenmerk_key = 1081
+ LEFT JOIN prs_v_aanwezigkenmerklink btwnr -- BTW-nr
+ ON x.prs_perslid_key = btwnr.prs_link_key AND btwnr.prs_kenmerk_key = 1005
UNION ALL -- Additionele kortingregels voor huurders/leden!
- SELECT SUBSTR ('000000' || TO_CHAR (x.prs_perslid_key), -6) debnr,
- COALESCE (bedr.prs_kenmerklink_waarde,
- SUBSTR ('000000' || TO_CHAR (x.prs_perslid_key), -6))
- bedrijf,
- TRIM (pa.prs_kenmerklink_waarde) pa,
- COALESCE (
- TRIM (tav.prs_kenmerklink_waarde),
- (SELECT DECODE (prs_perslid_geslacht,
- 0, 'Mevr. ',
- 1, 'Dhr. ',
- '')
- || DECODE (prs_perslid_voorletters,
- '', '',
- prs_perslid_voorletters || ' ')
- || DECODE (prs_perslid_tussenvoegsel,
- '', '',
- prs_perslid_tussenvoegsel || ' ')
- || prs_perslid_naam
- FROM prs_perslid
- WHERE prs_perslid_key = x.prs_perslid_key)
- )
- tav,
- NULL adres,
- NULL postcode,
- NULL plaats,
- NULL btwnr,
- x.factuurnummer,
- TO_CHAR (TRUNC (x.factuurdatum, 'mm') - 1, 'yyyy-mm')
- factuurperiode,
- TO_CHAR (x.factuurdatum, 'dd-mm-yyyy') factuurdatum,
- TO_CHAR (x.vervaldatum, 'dd-mm-yyyy') vervaldatum,
- TO_CHAR (x.van, 'yyyy-mm-dd hh24:mi')
- || x.res_ruimte_nr
- || x.res_reservering_key
- sortering1, -- Factuurregels op datum-tijd en dan ruimtenr
- '1S' sortering2, -- ..daarbinnen op type (0L1R1S2V3C)
- x.res_reservering_key || '/' || x.res_rsv_ruimte_volgnr resnr,
- NULL datum_tijd,
- NULL van,
- NULL tot,
- NULL bezoekers,
- NULL res_activiteit_key,
- x.res_ruimte_nr || ' 20% korting' ruimte_voorzieningen,
- NULL aantal,
- NULL stuksprijs,
- ROUND (COALESCE (x.res_rsv_ruimte_prijs, 0) * -0.2, 2) netto,
- 21 btwtarief,
- ROUND (COALESCE (x.res_rsv_ruimte_prijs, 0) * -0.2 * 21 / 100, 2)
- btw,
- NULL oms,
- NULL opm
- FROM (SELECT fac.safe_to_number(SUBSTR (
- fac_usrdata_omschr,
- 1,
- LENGTH (
- fac_usrdata_omschr
- )
- - 1
- ))
- prs_perslid_key,
- fac_usrdata_code factuurnummer,
- fac_usrdata_aanmaak factuurdatum,
- fac_usrdata_vervaldatum vervaldatum,
- rrr.res_reservering_key,
- rrr.res_rsv_ruimte_volgnr,
- rr.res_ruimte_nr,
- rrr.res_rsv_ruimte_van van,
- rrr.res_rsv_ruimte_prijs
- FROM fac_v_aanwezigusrdata ud,
- res_v_aanwezigrsv_ruimte rrr,
- res_ruimte_opstelling rro,
- res_ruimte rr
- WHERE ud.fac_usrtab_key = 82
- AND SUBSTR (ud.fac_usrdata_omschr, -1) IN
- ('H', 'L', 'X') -- Ruimtekorting
- AND ud.fac_usrdata_code =
- rrr.res_rsv_ruimte_ordernr
- AND rrr.res_status_bo_key = 6 -- AV (zou zo moeten zijn)
- AND rrr.res_ruimte_opstel_key =
- rro.res_ruimte_opstel_key
- AND rro.res_ruimte_key = rr.res_ruimte_key) x
- LEFT JOIN -- 1060 = Factuur p.a.
- prs_v_aanwezigkenmerklink pa
- ON x.prs_perslid_key = pa.prs_link_key
- AND pa.prs_kenmerk_key = 1060
- LEFT JOIN -- 1040 = Factuur t.a.v.
- prs_v_aanwezigkenmerklink tav
- ON x.prs_perslid_key = tav.prs_link_key
- AND tav.prs_kenmerk_key = 1040
- LEFT JOIN -- 1000 = Bedrijf
- prs_v_aanwezigkenmerklink bedr
- ON x.prs_perslid_key = bedr.prs_link_key
- AND bedr.prs_kenmerk_key = 1000;
+ SELECT SUBSTR ('000000' || TO_CHAR (x.prs_perslid_key), -6) debnr,
+ COALESCE (bedr.prs_kenmerklink_waarde,
+ SUBSTR ('000000' || TO_CHAR (x.prs_perslid_key), -6))
+ bedrijf,
+ TRIM (pa.prs_kenmerklink_waarde) pa,
+ COALESCE (
+ TRIM (tav.prs_kenmerklink_waarde),
+ (SELECT DECODE (prs_perslid_geslacht,
+ 0, 'Mevr. ',
+ 1, 'Dhr. ',
+ '')
+ || DECODE (prs_perslid_voorletters,
+ '', '',
+ prs_perslid_voorletters || ' ')
+ || DECODE (prs_perslid_tussenvoegsel,
+ '', '',
+ prs_perslid_tussenvoegsel || ' ')
+ || prs_perslid_naam
+ FROM prs_perslid
+ WHERE prs_perslid_key = x.prs_perslid_key))
+ tav,
+ NULL adres,
+ NULL postcode,
+ NULL plaats,
+ NULL land,
+ NULL btwnr,
+ x.factuurnummer,
+ TO_CHAR (TRUNC (x.factuurdatum, 'mm') - 1, 'yyyy-mm')
+ factuurperiode,
+ TO_CHAR (x.factuurdatum, 'dd-mm-yyyy') factuurdatum,
+ TO_CHAR (x.vervaldatum, 'dd-mm-yyyy') vervaldatum,
+ TO_CHAR (x.van, 'yyyy-mm-dd hh24:mi')
+ || x.res_ruimte_nr
+ || x.res_reservering_key
+ sortering1, -- Factuurregels op datum-tijd en dan ruimtenr
+ '1S' sortering2, -- ..daarbinnen op type (0L1R1S2V3C)
+ x.res_reservering_key || '/' || x.res_rsv_ruimte_volgnr resnr,
+ NULL datum_tijd,
+ NULL van,
+ NULL tot,
+ NULL bezoekers,
+ NULL res_activiteit_key,
+ x.res_ruimte_nr || ' 20% korting' ruimte_voorzieningen,
+ NULL aantal,
+ NULL stuksprijs,
+ ROUND (COALESCE (x.res_rsv_ruimte_prijs, 0) * -0.2, 2) netto,
+ 21 btwtarief,
+ ROUND (COALESCE (x.res_rsv_ruimte_prijs, 0) * -0.2 * 21 / 100, 2)
+ btw,
+ NULL oms,
+ NULL opm
+ FROM (SELECT fac.safe_to_number(SUBSTR (fac_usrdata_omschr,
+ 1,
+ LENGTH (fac_usrdata_omschr) - 1))
+ prs_perslid_key,
+ fac_usrdata_code factuurnummer,
+ fac_usrdata_aanmaak factuurdatum,
+ fac_usrdata_vervaldatum vervaldatum,
+ rrr.res_reservering_key,
+ rrr.res_rsv_ruimte_volgnr,
+ rr.res_ruimte_nr,
+ rrr.res_rsv_ruimte_van van,
+ rrr.res_rsv_ruimte_prijs
+ FROM fac_v_aanwezigusrdata ud,
+ res_v_aanwezigrsv_ruimte rrr,
+ res_ruimte_opstelling rro,
+ res_ruimte rr
+ WHERE ud.fac_usrtab_key = 82
+ AND SUBSTR (ud.fac_usrdata_omschr, -1) IN ('H', 'L', 'X') -- Ruimtekorting
+ AND ud.fac_usrdata_code = rrr.res_rsv_ruimte_ordernr
+ AND rrr.res_status_bo_key = 6 -- AV (zou zo moeten zijn)
+ AND rrr.res_ruimte_opstel_key = rro.res_ruimte_opstel_key
+ AND rro.res_ruimte_key = rr.res_ruimte_key) x
+ LEFT JOIN prs_v_aanwezigkenmerklink pa -- 1060 = Factuur p.a.
+ ON x.prs_perslid_key = pa.prs_link_key AND pa.prs_kenmerk_key = 1060
+ LEFT JOIN prs_v_aanwezigkenmerklink tav -- 1040 = Factuur t.a.v.
+ ON x.prs_perslid_key = tav.prs_link_key AND tav.prs_kenmerk_key = 1040
+ LEFT JOIN prs_v_aanwezigkenmerklink bedr -- 1000 = Bedrijf
+ ON x.prs_perslid_key = bedr.prs_link_key AND bedr.prs_kenmerk_key = 1000;
/* Formatted on 5-6-2013 15:05:55 (QP5 v5.115.810.9015) */
@@ -3381,7 +2837,7 @@ AS
BEGIN adm.systrackscriptId('$Id$', 0); END;
/
-BEGIN fac.registercustversion('WIBC', 2); END;
+BEGIN fac.registercustversion('WIBC', 3); END;
/
COMMIT;
spool off
diff --git a/WTCA/Once/WTCA23.sql b/WTCA/Once/WTCA23.sql
new file mode 100644
index 000000000..9026c2844
--- /dev/null
+++ b/WTCA/Once/WTCA23.sql
@@ -0,0 +1,37 @@
+-- Customer specific once-script WTCA23.
+--
+-- (c) 2014 SG|facilitor bv
+-- $Revision$
+-- $Id$
+--
+-- Support: +31 53 4800700
+SET ECHO ON
+SPOOL xWTCA23.lst
+SET DEFINE OFF
+
+-- WTCA#28500: 69=WEB_USER04 -> Functie verbonden aan Security Module!
+CREATE OR REPLACE VIEW wtca_v_rap_sec_incidenten AS SELECT NULL x FROM DUAL;
+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 ('Incidentenlijst', 'wtca_v_rap_sec_incidenten',
+ NULL,
+ NULL, NULL,
+ 0, 0,
+ 0,
+ 'Incidenten in periode.',
+ 69,
+ 0
+ );
+
+COMMIT;
+BEGIN adm.systrackscriptId('$Id$'); END;
+/
+SPOOL OFF
+@wtca.sql
diff --git a/WTCA/Once/WTCA26.sql b/WTCA/Once/WTCA26.sql
new file mode 100644
index 000000000..7541e378c
--- /dev/null
+++ b/WTCA/Once/WTCA26.sql
@@ -0,0 +1,37 @@
+-- Customer specific once-script WTCA26.
+--
+-- (c) 2014 SG|facilitor bv
+-- $Revision$
+-- $Id$
+--
+-- Support: +31 53 4800700
+SET ECHO ON
+SPOOL xWTCA26.lst
+SET DEFINE OFF
+
+-- WTCA#28744: 62=WEB_PRSSYS -> Alleen Marc/Christina?
+CREATE OR REPLACE VIEW wtca_v_rap_maand_actual_fact AS SELECT NULL x FROM DUAL;
+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 ('Factuurvoorstel', 'wtca_v_rap_maand_actual_fact',
+ NULL,
+ NULL, NULL,
+ 0, 0,
+ 1,
+ 'Periodeoverzicht gegroepeerd per complex.',
+ 62,
+ 0
+ );
+
+COMMIT;
+BEGIN adm.systrackscriptId('$Id$'); END;
+/
+SPOOL OFF
+@wtca.sql
diff --git a/WTCA/wtca.sql b/WTCA/wtca.sql
index 40c563dec..fc06254d3 100644
--- a/WTCA/wtca.sql
+++ b/WTCA/wtca.sql
@@ -2033,7 +2033,7 @@ AS
prs_dienst d
ON x.prs_dienst_key = d.prs_dienst_key;
-/* Formatted on 5-5-2011 14:02:24 (QP5 v5.115.810.9015) */
+/* Formatted on 13-2-2014 11:44:00 (QP5 v5.136.908.31019) */
CREATE OR REPLACE VIEW wtca_v_rap_maand_actual
(
maand,
@@ -2043,6 +2043,7 @@ CREATE OR REPLACE VIEW wtca_v_rap_maand_actual
fclt_f_kdrager,
fclt_f_kdrager_oms,
corr_kdrager,
+ hide_f_maatschap_key,
fclt_f_maatschap,
fclt_f_ksoort,
fclt_f_ksoort_oms,
@@ -2063,225 +2064,247 @@ CREATE OR REPLACE VIEW wtca_v_rap_maand_actual
fclt_3d_afdeling_key
)
AS
- SELECT TO_CHAR (SYSDATE, 'yyyy-mm'),
- COALESCE (c2.sla, a.sla),
- COALESCE (c2.prefix, a.prefix),
- a.opdracht,
- a.kdrager,
- a.kdrager_oms,
- c1.corr_kdrager,
- COALESCE (d.geb_maatschap, e.ter_maatschap),
- COALESCE (c2.corr_ksoort, a.ksoort),
- COALESCE (c2.corr_ksoort_oms, a.ksoort_oms),
- DECODE (c2.corr_ksoort,
- NULL, NULL,
- a.ksoort || '-' || a.ksoort_oms),
- DECODE (f.kdeel,
- 63, a.gebouw_terrein || ' (H)', -- Toevoeging (H)
- 37, a.gebouw_terrein || ' (I)', -- Toevoeging (I)
- a.gebouw_terrein),
- a.verdieping,
- a.ruimte,
- COALESCE (c2.vakgroep, a.vakgroep),
- COALESCE (c2.melding, a.melding),
- a.oms,
- a.opm,
- a.datum_aanmaak,
- a.datum_gepland,
- a.datum_gereed,
- a.bedrijf,
- a.cp,
- DECODE (f.kdeel,
- NULL, a.kosten,
- ROUND ( (f.kdeel * a.kosten) / 100, 2)),
- b.afdeling
- FROM (SELECT o.mld_opdr_key,
- COALESCE (og.alg_gebouw_key,
- og.alg_terreinsector_key)
- gebter_key,
- TO_CHAR (m.mld_melding_uitvoertijd)
- sla,
- sd.ins_srtdiscipline_prefix prefix,
- o.mld_melding_key
- || '/'
- || o.mld_opdr_bedrijfopdr_volgnr
- opdracht,
- kp.prs_kostenplaats_nr kdrager,
- kp.prs_kostenplaats_omschrijving
- kdrager_oms,
- COALESCE (ksm.prs_kostensoort_oms,
- ksv.prs_kostensoort_oms)
- ksoort,
- DECODE (
- ksm.prs_kostensoort_oms,
- NULL,
- ksv.prs_kostensoort_opmerking,
- ksm.prs_kostensoort_opmerking
- )
- ksoort_oms,
- COALESCE (og.alg_terreinsector_code,
- og.alg_gebouw_code)
- gebouw_terrein,
- og.alg_verdieping_code verdieping,
- og.alg_ruimte_nr ruimte,
- td.ins_discipline_omschrijving
- vakgroep,
- sm.mld_stdmelding_omschrijving
- melding,
- o.mld_opdr_omschrijving oms,
- o.mld_opdr_opmerking opm,
- TO_CHAR (o.mld_opdr_datumbegin,
- 'dd-mm-yyyy')
- datum_aanmaak, -- Of verzonden?
- TO_CHAR (
- fac.datumtijdplusuitvoertijd (
- o.mld_opdr_datumbegin,
- m.mld_melding_uitvoertijd,
- 'DAGEN'
- ),
- 'dd-mm-yyyy'
- )
- datum_gepland,
- TO_CHAR (
- fac.gettrackingdate (
- 'ORDAFM',
- o.mld_opdr_key
- ),
- 'dd-mm-yyyy'
- )
- datum_gereed,
- b.prs_bedrijf_naam bedrijf,
- o.mld_opdr_contactpersoon cp,
- o.mld_opdr_kosten kosten
- FROM mld_opdr o,
- prs_bedrijf b,
- mld_melding m,
- alg_v_allonrgoed_gegevens og,
- mld_stdmelding sm,
- ins_tab_discipline td,
- ins_srtdiscipline sd,
- prs_kostensoort ksm,
- prs_kostensoort ksv,
- prs_kostenplaats kp
- WHERE o.mld_statusopdr_key = 9
- AND o.mld_uitvoerende_keys =
- b.prs_bedrijf_key
- AND o.mld_melding_key =
- m.mld_melding_key
- AND m.mld_alg_onroerendgoed_keys =
- og.alg_onroerendgoed_keys
- AND m.mld_stdmelding_key =
- sm.mld_stdmelding_key
- AND sm.mld_ins_discipline_key =
- td.ins_discipline_key
- AND td.ins_srtdiscipline_key =
- sd.ins_srtdiscipline_key
- AND sm.prs_kostensoort_key =
- ksm.prs_kostensoort_key(+)
- AND td.prs_kostensoort_key =
- ksv.prs_kostensoort_key(+)
- AND o.prs_kostenplaats_key =
- kp.prs_kostenplaats_key
- AND kp.prs_kostenplaats_upper = 'WTC'
- AND fac.gettrackingdate (
- 'ORDAFR',
- o.mld_opdr_key
- ) <
- TO_DATE (
- TO_CHAR (SYSDATE, 'yyyymm')
- || '01',
- 'yyyymmdd'
- )) a
- LEFT JOIN
- (SELECT DISTINCT
- o.mld_opdr_key,
- p.prs_afdeling_key afdeling
- FROM mld_opdr o,
- prs_bedrijf b,
- prs_contactpersoon cp,
- prs_perslid p
- WHERE b.prs_bedrijf_key =
- cp.prs_bedrijf_key
- AND o.mld_uitvoerende_keys =
- b.prs_bedrijf_key
- AND cp.prs_perslid_key =
- p.prs_perslid_key) b
- ON a.mld_opdr_key = b.mld_opdr_key
- LEFT JOIN
- (SELECT ko.mld_opdr_key,
- ud.fac_usrdata_omschr corr_kdrager
- FROM mld_kenmerkopdr ko, fac_usrdata ud
- WHERE ko.mld_kenmerk_key = 1 -- Corr. kdrager
- AND ud.fac_usrdata_key =
- fac.safe_to_number (
- ko.mld_kenmerkopdr_waarde
- )) c1
- ON a.mld_opdr_key = c1.mld_opdr_key
- LEFT JOIN
- (SELECT ko.mld_opdr_key,
- TO_CHAR (sm.mld_stdmelding_uitvoertijd) sla,
- COALESCE (ksm.prs_kostensoort_oms,
- ksv.prs_kostensoort_oms)
- corr_ksoort,
- DECODE (ksm.prs_kostensoort_oms,
- NULL,
- ksv.prs_kostensoort_opmerking,
- ksm.prs_kostensoort_opmerking)
- corr_ksoort_oms,
- sd.ins_srtdiscipline_prefix prefix,
- td.ins_discipline_omschrijving vakgroep,
- sm.mld_stdmelding_omschrijving melding
- FROM mld_v_aanwezigkenmerkopdr ko,
- mld_stdmelding sm,
- ins_tab_discipline td,
- ins_srtdiscipline sd,
- prs_kostensoort ksm,
- prs_kostensoort ksv
- WHERE ko.mld_kenmerk_key = 41 -- Corr. melding
- AND sm.mld_stdmelding_key =
- fac.safe_to_number (
- ko.mld_kenmerkopdr_waarde
- )
- AND sm.prs_kostensoort_key =
- ksm.prs_kostensoort_key(+)
- AND sm.mld_ins_discipline_key =
- td.ins_discipline_key
- AND td.prs_kostensoort_key =
- ksv.prs_kostensoort_key(+)
- AND td.ins_srtdiscipline_key =
- sd.ins_srtdiscipline_key) c2
- ON a.mld_opdr_key = c2.mld_opdr_key
- LEFT JOIN
- (SELECT ok.alg_onrgoed_key,
- ud.fac_usrdata_omschr geb_maatschap
- FROM alg_v_aanwezigonrgoedkenmerk ok,
- fac_v_aanwezigusrdata ud
- WHERE ok.alg_kenmerk_key = 1020 -- Maatschap
- AND ud.fac_usrdata_key =
- fac.safe_to_number (
- ok.alg_onrgoedkenmerk_waarde
- )) d
- ON a.gebter_key = d.alg_onrgoed_key
- LEFT JOIN
- (SELECT ok.alg_onrgoed_key,
- ud.fac_usrdata_omschr ter_maatschap
- FROM alg_v_aanwezigonrgoedkenmerk ok,
- fac_v_aanwezigusrdata ud
- WHERE ok.alg_kenmerk_key = 1040 -- Maatschap
+ SELECT TO_CHAR (SYSDATE, 'yyyy-mm'),
+ COALESCE (c2.sla, a.sla),
+ COALESCE (c2.prefix, a.prefix),
+ a.opdracht,
+ a.kdrager,
+ a.kdrager_oms,
+ c1.corr_kdrager,
+ COALESCE (d.geb_maatschap_key, e.ter_maatschap_key),
+ COALESCE (d.geb_maatschap, e.ter_maatschap),
+ COALESCE (c2.corr_ksoort, a.ksoort),
+ COALESCE (c2.corr_ksoort_oms, a.ksoort_oms),
+ DECODE (c2.corr_ksoort,
+ NULL, NULL,
+ a.ksoort || '-' || a.ksoort_oms),
+ DECODE (f.kdeel,
+ 63, a.gebouw_terrein || ' (H)', -- Toevoeging (H)
+ 37, a.gebouw_terrein || ' (I)', -- Toevoeging (I)
+ a.gebouw_terrein),
+ a.verdieping,
+ a.ruimte,
+ COALESCE (c2.vakgroep, a.vakgroep),
+ COALESCE (c2.melding, a.melding),
+ a.oms,
+ a.opm,
+ a.datum_aanmaak,
+ a.datum_gepland,
+ a.datum_gereed,
+ a.bedrijf,
+ a.cp,
+ DECODE (f.kdeel,
+ NULL, a.kosten,
+ ROUND ( (f.kdeel * a.kosten) / 100, 2)),
+ b.afdeling
+ FROM (SELECT o.mld_opdr_key,
+ COALESCE (og.alg_gebouw_key, og.alg_terreinsector_key)
+ gebter_key,
+ TO_CHAR (m.mld_melding_uitvoertijd) sla,
+ sd.ins_srtdiscipline_prefix prefix,
+ o.mld_melding_key || '/' || o.mld_opdr_bedrijfopdr_volgnr
+ opdracht,
+ kp.prs_kostenplaats_nr kdrager,
+ kp.prs_kostenplaats_omschrijving kdrager_oms,
+ COALESCE (ksm.prs_kostensoort_oms, ksv.prs_kostensoort_oms)
+ ksoort,
+ DECODE (ksm.prs_kostensoort_oms,
+ NULL, ksv.prs_kostensoort_opmerking,
+ ksm.prs_kostensoort_opmerking)
+ ksoort_oms,
+ COALESCE (og.alg_terreinsector_code, og.alg_gebouw_code)
+ gebouw_terrein,
+ og.alg_verdieping_code verdieping,
+ og.alg_ruimte_nr ruimte,
+ td.ins_discipline_omschrijving vakgroep,
+ sm.mld_stdmelding_omschrijving melding,
+ o.mld_opdr_omschrijving oms,
+ o.mld_opdr_opmerking opm,
+ TO_CHAR (o.mld_opdr_datumbegin, 'dd-mm-yyyy') datum_aanmaak, -- Of verzonden?
+ TO_CHAR (
+ fac.datumtijdplusuitvoertijd (o.mld_opdr_datumbegin,
+ m.mld_melding_uitvoertijd,
+ 'DAGEN'),
+ 'dd-mm-yyyy')
+ datum_gepland,
+ TO_CHAR (fac.gettrackingdate ('ORDAFM', o.mld_opdr_key),
+ 'dd-mm-yyyy')
+ datum_gereed,
+ b.prs_bedrijf_naam bedrijf,
+ o.mld_opdr_contactpersoon cp,
+ o.mld_opdr_kosten kosten
+ FROM mld_opdr o,
+ prs_bedrijf b,
+ mld_melding m,
+ alg_v_allonrgoed_gegevens og,
+ mld_stdmelding sm,
+ ins_tab_discipline td,
+ ins_srtdiscipline sd,
+ prs_kostensoort ksm,
+ prs_kostensoort ksv,
+ prs_kostenplaats kp
+ WHERE o.mld_statusopdr_key = 9
+ AND o.mld_uitvoerende_keys = b.prs_bedrijf_key
+ AND o.mld_melding_key = m.mld_melding_key
+ AND m.mld_alg_onroerendgoed_keys =
+ og.alg_onroerendgoed_keys
+ AND m.mld_stdmelding_key = sm.mld_stdmelding_key
+ AND sm.mld_ins_discipline_key = td.ins_discipline_key
+ AND td.ins_srtdiscipline_key = sd.ins_srtdiscipline_key
+ AND sm.prs_kostensoort_key = ksm.prs_kostensoort_key(+)
+ AND td.prs_kostensoort_key = ksv.prs_kostensoort_key(+)
+ AND o.prs_kostenplaats_key = kp.prs_kostenplaats_key
+ AND kp.prs_kostenplaats_upper = 'WTC'
+ AND fac.gettrackingdate ('ORDAFR', o.mld_opdr_key) <
+ TO_DATE (TO_CHAR (SYSDATE, 'yyyymm') || '01',
+ 'yyyymmdd')) a
+ LEFT JOIN (SELECT DISTINCT
+ o.mld_opdr_key, p.prs_afdeling_key afdeling
+ FROM mld_opdr o,
+ prs_bedrijf b,
+ prs_contactpersoon cp,
+ prs_perslid p
+ WHERE b.prs_bedrijf_key = cp.prs_bedrijf_key
+ AND o.mld_uitvoerende_keys = b.prs_bedrijf_key
+ AND cp.prs_perslid_key = p.prs_perslid_key) b
+ ON a.mld_opdr_key = b.mld_opdr_key
+ LEFT JOIN (SELECT ko.mld_opdr_key,
+ ud.fac_usrdata_omschr corr_kdrager
+ FROM mld_kenmerkopdr ko, fac_usrdata ud
+ WHERE ko.mld_kenmerk_key = 1 -- Corr. kdrager
AND ud.fac_usrdata_key =
fac.safe_to_number (
- ok.alg_onrgoedkenmerk_waarde
- )) e
- ON a.gebter_key = e.alg_onrgoed_key
- LEFT JOIN
- (SELECT g.alg_gebouw_key, 63 kdeel -- 63% van A-HI (=1572) op TH
- FROM alg_gebouw g
- WHERE g.alg_gebouw_key = 1572
- UNION ALL
- SELECT g.alg_gebouw_key, 37 kdeel -- 37% van A-HI (=1572) op TI
- FROM alg_gebouw g
- WHERE g.alg_gebouw_key = 1572) f
- ON a.gebter_key = f.alg_gebouw_key;
+ ko.mld_kenmerkopdr_waarde)) c1
+ ON a.mld_opdr_key = c1.mld_opdr_key
+ LEFT JOIN (SELECT ko.mld_opdr_key,
+ TO_CHAR (sm.mld_stdmelding_uitvoertijd) sla,
+ COALESCE (ksm.prs_kostensoort_oms,
+ ksv.prs_kostensoort_oms)
+ corr_ksoort,
+ DECODE (ksm.prs_kostensoort_oms,
+ NULL, ksv.prs_kostensoort_opmerking,
+ ksm.prs_kostensoort_opmerking)
+ corr_ksoort_oms,
+ sd.ins_srtdiscipline_prefix prefix,
+ td.ins_discipline_omschrijving vakgroep,
+ sm.mld_stdmelding_omschrijving melding
+ FROM mld_v_aanwezigkenmerkopdr ko,
+ mld_stdmelding sm,
+ ins_tab_discipline td,
+ ins_srtdiscipline sd,
+ prs_kostensoort ksm,
+ prs_kostensoort ksv
+ WHERE ko.mld_kenmerk_key = 41 -- Corr. melding
+ AND sm.mld_stdmelding_key =
+ fac.safe_to_number (
+ ko.mld_kenmerkopdr_waarde)
+ AND sm.prs_kostensoort_key =
+ ksm.prs_kostensoort_key(+)
+ AND sm.mld_ins_discipline_key =
+ td.ins_discipline_key
+ AND td.prs_kostensoort_key =
+ ksv.prs_kostensoort_key(+)
+ AND td.ins_srtdiscipline_key =
+ sd.ins_srtdiscipline_key) c2
+ ON a.mld_opdr_key = c2.mld_opdr_key
+ LEFT JOIN (SELECT ok.alg_onrgoed_key,
+ ud.fac_usrdata_key geb_maatschap_key,
+ ud.fac_usrdata_omschr geb_maatschap
+ FROM alg_v_aanwezigonrgoedkenmerk ok,
+ fac_v_aanwezigusrdata ud
+ WHERE ok.alg_kenmerk_key = 1020 -- Maatschap
+ AND ud.fac_usrdata_key =
+ fac.safe_to_number (
+ ok.alg_onrgoedkenmerk_waarde)) d
+ ON a.gebter_key = d.alg_onrgoed_key
+ LEFT JOIN (SELECT ok.alg_onrgoed_key,
+ ud.fac_usrdata_key ter_maatschap_key,
+ ud.fac_usrdata_omschr ter_maatschap
+ FROM alg_v_aanwezigonrgoedkenmerk ok,
+ fac_v_aanwezigusrdata ud
+ WHERE ok.alg_kenmerk_key = 1040 -- Maatschap
+ AND ud.fac_usrdata_key =
+ fac.safe_to_number (
+ ok.alg_onrgoedkenmerk_waarde)) e
+ ON a.gebter_key = e.alg_onrgoed_key
+ LEFT JOIN (SELECT g.alg_gebouw_key, 63 kdeel -- 63% van A-HI (=1572) op TH
+ FROM alg_gebouw g
+ WHERE g.alg_gebouw_key = 1572
+ UNION ALL
+ SELECT g.alg_gebouw_key, 37 kdeel -- 37% van A-HI (=1572) op TI
+ FROM alg_gebouw g
+ WHERE g.alg_gebouw_key = 1572) f
+ ON a.gebter_key = f.alg_gebouw_key;
+
+/* Formatted on 13-2-2014 22:36:16 (QP5 v5.136.908.31019) */
+CREATE OR REPLACE VIEW wtca_v_rap_maand_actual_fact
+(
+ maand,
+ tot_datum,
+ opdr,
+ maatschap,
+ ksoort,
+ ksoort_oms,
+ fclt_f_complex,
+ gebouw_terrein,
+ verdieping,
+ ruimte,
+ vakgroep,
+ melding,
+ omschrijving,
+ opmerking,
+ aanmaak,
+ fclt_f_uitvoerende,
+ kosten,
+ fclt_3d_afdeling_key
+)
+AS
+ SELECT maand,
+ TO_CHAR (TO_DATE (maand || '-01', 'yyyy-mm-dd') - 1, 'dd-mm-yyyy'),
+ opdr,
+ fclt_f_maatschap,
+ fclt_f_ksoort,
+ fclt_f_ksoort_oms,
+ CASE
+ WHEN COALESCE (kosten, 0) = 0
+ THEN
+ '0'
+ WHEN hide_f_maatschap_key = 21
+ THEN
+ '924'
+ WHEN hide_f_maatschap_key = 22
+ THEN
+ '925'
+ WHEN UPPER (TRIM (fclt_f_ksoort_oms)) =
+ 'STORINGEN PARKEERGARAGE'
+ THEN
+ '929'
+ WHEN SUBSTR (UPPER (TRIM (fclt_f_gebouw_terrein)), -1) = 'H'
+ OR SUBSTR (UPPER (TRIM (fclt_f_gebouw_terrein)), -3) =
+ '(H)'
+ THEN
+ '928'
+ WHEN SUBSTR (UPPER (TRIM (fclt_f_gebouw_terrein)), -1) = 'I'
+ OR SUBSTR (UPPER (TRIM (fclt_f_gebouw_terrein)), -3) =
+ '(I)'
+ THEN
+ '927'
+ ELSE -- De rest
+ '0'
+ END
+ complex,
+ fclt_f_gebouw_terrein,
+ verdieping,
+ ruimte,
+ fclt_f_vakgroep,
+ fclt_f_melding,
+ omschrijving,
+ opmerking,
+ aanmaak,
+ fclt_f_uitvoerende,
+ kosten,
+ fclt_3d_afdeling_key
+ FROM wtca_v_rap_maand_actual;
/* Formatted on 5-5-2011 14:02:24 (QP5 v5.115.810.9015) */
CREATE OR REPLACE VIEW wtca_v_rap_maand_frozen
@@ -4027,9 +4050,153 @@ AS
ON opdr.mld_opdr_key = CORR.mld_opdr_key
GROUP BY uitv.prs_afdeling_key;
+/* Formatted on 9-1-2014 17:40:30 (QP5 v5.115.810.9015) */
+CREATE OR REPLACE VIEW wtca_v_hoofdhuurders
+(
+ huurder_key,
+ huurder_naam
+)
+AS
+ SELECT p.prs_perslid_key, pf.prs_perslid_naam_full
+ FROM prs_perslid p, prs_v_perslid_fullnames pf
+ WHERE p.prs_srtperslid_key = 6
+ AND p.prs_perslid_key = pf.prs_perslid_key;
+
+/* Formatted on 13-1-2014 14:24:42 (QP5 v5.115.810.9015) */
+CREATE OR REPLACE VIEW wtca_v_rap_onderhuurders
+(
+ naam_onderhuurder,
+ straat,
+ huisnummer,
+ naam_hoofdhuurder,
+ kosten_hoofdhuurder
+)
+AS
+ SELECT x.onderhuurder_naam,
+ k1.straat,
+ k2.huisnummer,
+ k3.naam_hoofdhuurder,
+ k4.kosten_hoofdhuurder
+ FROM (SELECT p.prs_perslid_key,
+ pf.prs_perslid_naam_full onderhuurder_naam
+ FROM prs_perslid p, prs_v_perslid_fullnames pf
+ WHERE p.prs_srtperslid_key = 4221
+ AND p.prs_perslid_key = pf.prs_perslid_key)
+ x
+ LEFT JOIN
+ (SELECT kl.prs_link_key,
+ ud.fac_usrdata_omschr straat
+ FROM prs_kenmerklink kl, fac_usrdata ud
+ WHERE kl.prs_kenmerk_key = 1000
+ AND fac.safe_to_number (
+ kl.prs_kenmerklink_waarde
+ ) = ud.fac_usrdata_key) k1
+ ON x.prs_perslid_key = k1.prs_link_key
+ LEFT JOIN
+ (SELECT kl.prs_link_key,
+ ud.fac_usrdata_omschr huisnummer
+ FROM prs_kenmerklink kl, fac_usrdata ud
+ WHERE kl.prs_kenmerk_key = 1001
+ AND fac.safe_to_number (
+ kl.prs_kenmerklink_waarde
+ ) = ud.fac_usrdata_key) k2
+ ON x.prs_perslid_key = k2.prs_link_key
+ LEFT JOIN
+ (SELECT kl.prs_link_key, v.huurder_naam naam_hoofdhuurder
+ FROM prs_kenmerklink kl, wtca_v_hoofdhuurders v
+ WHERE kl.prs_kenmerk_key = 1361
+ AND fac.safe_to_number (
+ kl.prs_kenmerklink_waarde
+ ) = v.huurder_key) k3
+ ON x.prs_perslid_key = k3.prs_link_key
+ LEFT JOIN
+ (SELECT kl.prs_link_key,
+ ud.fac_usrdata_omschr kosten_hoofdhuurder
+ FROM prs_kenmerklink kl, fac_usrdata ud
+ WHERE kl.prs_kenmerk_key = 1362
+ AND fac.safe_to_number (kl.prs_kenmerklink_waarde) =
+ ud.fac_usrdata_key) k4
+ ON x.prs_perslid_key = k4.prs_link_key;
+
+/* Formatted on 10-2-2014 13:05:55 (QP5 v5.136.908.31019) */
+CREATE OR REPLACE VIEW wtca_v_rap_dienstrapport
+(
+ hide_f_datum,
+ fclt_d_datum,
+ html_dienstrapportnr,
+ fclt_f_medewerker
+)
+AS
+ SELECT 0 - m.mld_melding_key,
+ TO_CHAR (m.mld_melding_datum, 'dd-mm-yyyy'),
+ --TO_CHAR (m.mld_melding_key) nummer,
+ ''
+ || m.mld_melding_key
+ || ''
+ html_nummer,
+ pf.prs_perslid_naam_full
+ FROM mld_melding m, prs_v_perslid_fullnames pf
+ WHERE m.mld_stdmelding_key = 3041
+ AND m.prs_perslid_key = pf.prs_perslid_key;
+
+CREATE OR REPLACE VIEW wtca_v_rap_sec_incidenten
+(
+ hide_f_datum,
+ fclt_d_datum,
+ html_incidentnr,
+ fclt_f_incident,
+ datum,
+ tijd,
+ plaats,
+ omschrijving,
+ fclt_f_bijlagen,
+ --html_details,
+ fclt_f_melder
+)
+AS
+ SELECT 0 - m.mld_melding_key,
+ TO_CHAR (m.mld_melding_datum, 'dd-mm-yyyy'),
+ --TO_CHAR (m.mld_melding_key) nummer,
+ ''
+ || m.mld_melding_key
+ || ''
+ html_details,
+ sm.mld_stdmelding_omschrijving incident,
+ TO_CHAR (m.mld_melding_datum, 'dd-mm-yyyy') datum,
+ TO_CHAR (m.mld_melding_datum, 'hh24:mi') tijd,
+ pa.alg_plaatsaanduiding plaats,
+ m.mld_melding_omschrijving omschrijving,
+ DECODE (km.aantal, NULL, '-', TO_CHAR (km.aantal)) bijlagen,
+ --'Details'
+ -- html_details,
+ pf.prs_perslid_naam_full melder
+ FROM mld_melding m,
+ mld_stdmelding sm,
+ alg_v_plaatsaanduiding_all pa,
+ prs_v_perslid_fullnames pf,
+ ( SELECT mld_melding_key, COUNT ( * ) aantal
+ FROM mld_kenmerkmelding
+ WHERE mld_kenmerk_key IN (101, 102, 103, 104) -- Bijlage1/2/3/4
+ AND mld_kenmerkmelding_verwijder IS NULL
+ GROUP BY mld_melding_key) km
+ WHERE m.mld_stdmelding_key = sm.mld_stdmelding_key
+ AND sm.mld_ins_discipline_key = 721 -- Incident
+ AND m.mld_alg_onroerendgoed_keys = pa.alg_onroerendgoed_keys
+ AND m.prs_perslid_key = pf.prs_perslid_key
+ AND m.mld_melding_key = km.mld_melding_key(+);
+
BEGIN adm.systrackscriptId('$Id$', 0); END;
/
-BEGIN fac.registercustversion('WTCA', 21); END;
+BEGIN fac.registercustversion('WTCA', 26); END;
/
COMMIT;
spool off