From 40ba4b876d3a10031c0f95dd185b9305b6ec05d0 Mon Sep 17 00:00:00 2001 From: Jos Groot Lipman Date: Tue, 11 Mar 2014 10:05:12 +0000 Subject: [PATCH] Merge DB20 patches svn path=/Customer/trunk/; revision=20938 --- AA/AAAR/Once/AAAR#28375.sql | 701 +++++++++ AA/AAAR/Once/AAAR#28541.sql | 51 + AA/AADO/Once/AADO#28649.sql | 107 ++ AA/AADO/Once/AADO#28926.sql | 56 + AA/AADS/Once/AADS#28348.sql | 23 + AA/AADS/Once/AADS#28974.sql | 35 + AA/AADS/aads.sql | 280 +++- AA/AAEN/Once/AAEN#28419.sql | 67 + AA/AAEN/Once/AAEN#28605.sql | 67 + AA/AAEN/Once/AAEN#28609.sql | 6 + AA/AAEN/Once/AAEN#28638.sql | 13 + AA/AAEN/Once/AAEN#28718.sql | 20 + AA/AAEN/Once/AAEN#28771.sql | 3 + AA/AAEN/Once/AAEN#28825.sql | 18 + AA/AAEN/aaen.sql | 378 ++--- AA/AAES/aaes.sql | 107 +- AA/AAEY/Once/AAEY#28321.sql | 8 + AA/AAEY/Once/AAEY#28791.sql | 144 ++ AA/AAEY/aaey.sql | 42 +- AA/AAHU/ONCE/AAHU#28704.sql | 3 + AA/AAIT/aait.sql | 171 +-- AA/AANS/Once/AANS#28440.sql | 21 + AA/AANS/Once/AANS#28507.sql | 34 + AA/AANS/Once/AANS#28522.sql | 27 + AA/AANS/Once/AANS#28659.sql | 19 + AA/AASA/aasa.sql | 297 +++- AA/AASA/once/AASA#28727.sql | 331 ++++ AA/AASA/once/AASA#28788.sql | 6 + AA/AASA/once/AASA#28859.sql | 40 + AA/AAVL/Once/AAVL#28719.sql | 5 + AA/AAVL/aavl.sql | 6 +- AA/AAZC/Once/AAZC#28891.sql | 44 + AA/AAZC/aazc.sql | 4 +- AA/Once/AAEN#28444.sql | 46 + AA/Once/AAFM#28175.sql | 46 + AA/aaxx.sql | 1208 ++++++++++----- ALLI/Once/alli09.sql | 116 ++ ALLI/alli.sql | 307 +++- ARAI/Once/arai14.sql | 126 ++ ARAI/arai.sql | 238 ++- CSUN/CSUN.sql | 27 +- DEMO/demo.sql | 328 ++++ GDFS/gdfs.sql | 3 +- HAYG/hayg.sql | 383 +++++ HAYG/prs_pack.sql | 1114 ++++++++++++++ Hout/hout.sql | 491 +++--- IVET/Once/IVET19.sql | 28 + IVET/ivet.sql | 581 ++++--- Logi/Once/LOGI#27979.sql | 52 + MAYF/Once/mayf4.sql | 41 + MAYF/mayf.sql | 91 +- NETS/nets.sql | 184 ++- NYBU/nybu.sql | 1220 ++++++++++----- NYBU/once/nybu4.sql | 77 + NYBU/once/nybu5.sql | 93 ++ PCHD/Once/PCHD#27234.sql | 14 + PNBR/pnbr.sql | 18 + PZHO/Once/PZHO#28114.sql | 295 ++++ PZHO/Once/PZHO46.sql | 43 + PZHO/pzho.sql | 199 ++- RENK/renk.sql | 874 +++++------ RTWE/rtwe.sql | 121 ++ SBSH/Once/sbsh5.sql | 57 + SBSH/sbsh.sql | 95 ++ UWVA/Once/uwva#28505.sql | 27 + UWVA/Once/uwva86.sql | 242 +++ UWVA/uwva_fin.sql | 632 ++++---- UWVA/uwva_misc.sql | 271 +++- UWVA/uwva_prs.sql | 181 ++- VIAR/viar.sql | 29 +- WIBC/wibc.sql | 2828 ++++++++++++++--------------------- WTCA/Once/WTCA23.sql | 37 + WTCA/Once/WTCA26.sql | 37 + WTCA/wtca.sql | 605 +++++--- 74 files changed, 12065 insertions(+), 4474 deletions(-) create mode 100644 AA/AAAR/Once/AAAR#28375.sql create mode 100644 AA/AAAR/Once/AAAR#28541.sql create mode 100644 AA/AADO/Once/AADO#28649.sql create mode 100644 AA/AADO/Once/AADO#28926.sql create mode 100644 AA/AADS/Once/AADS#28348.sql create mode 100644 AA/AADS/Once/AADS#28974.sql create mode 100644 AA/AAEN/Once/AAEN#28419.sql create mode 100644 AA/AAEN/Once/AAEN#28605.sql create mode 100644 AA/AAEN/Once/AAEN#28609.sql create mode 100644 AA/AAEN/Once/AAEN#28638.sql create mode 100644 AA/AAEN/Once/AAEN#28718.sql create mode 100644 AA/AAEN/Once/AAEN#28771.sql create mode 100644 AA/AAEN/Once/AAEN#28825.sql create mode 100644 AA/AAEY/Once/AAEY#28321.sql create mode 100644 AA/AAEY/Once/AAEY#28791.sql create mode 100644 AA/AAHU/ONCE/AAHU#28704.sql create mode 100644 AA/AANS/Once/AANS#28440.sql create mode 100644 AA/AANS/Once/AANS#28507.sql create mode 100644 AA/AANS/Once/AANS#28522.sql create mode 100644 AA/AANS/Once/AANS#28659.sql create mode 100644 AA/AASA/once/AASA#28727.sql create mode 100644 AA/AASA/once/AASA#28788.sql create mode 100644 AA/AASA/once/AASA#28859.sql create mode 100644 AA/AAVL/Once/AAVL#28719.sql create mode 100644 AA/AAZC/Once/AAZC#28891.sql create mode 100644 AA/Once/AAEN#28444.sql create mode 100644 AA/Once/AAFM#28175.sql create mode 100644 ALLI/Once/alli09.sql create mode 100644 ARAI/Once/arai14.sql create mode 100644 HAYG/hayg.sql create mode 100644 HAYG/prs_pack.sql create mode 100644 IVET/Once/IVET19.sql create mode 100644 Logi/Once/LOGI#27979.sql create mode 100644 MAYF/Once/mayf4.sql create mode 100644 NYBU/once/nybu4.sql create mode 100644 NYBU/once/nybu5.sql create mode 100644 PCHD/Once/PCHD#27234.sql create mode 100644 PZHO/Once/PZHO#28114.sql create mode 100644 PZHO/Once/PZHO46.sql create mode 100644 RTWE/rtwe.sql create mode 100644 SBSH/Once/sbsh5.sql create mode 100644 UWVA/Once/uwva#28505.sql create mode 100644 UWVA/Once/uwva86.sql create mode 100644 WTCA/Once/WTCA23.sql create mode 100644 WTCA/Once/WTCA26.sql 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