From 8957bdb3df429e017a7cd922dfe690a6ede4589d Mon Sep 17 00:00:00 2001 From: Jos Groot Lipman Date: Wed, 21 Aug 2024 08:46:15 +0000 Subject: [PATCH] FCLT#80823 Aanroep van fac_import_genericcsv (p_import_key); is niet meer nodig svn path=/Customer/trunk/; revision=65968 --- AAGB/aagb.sql | 1 - BAUS/baus.sql | 2 +- PIVP/PIVP.sql | 1646 ++++++++++++++++++++++++------------------------- PROR/PROR.sql | 797 ++++++++++++------------ WSKO/WSKO.sql | 396 ++++++------ ZLMV/ZLMV.sql | 60 +- 6 files changed, 1447 insertions(+), 1455 deletions(-) diff --git a/AAGB/aagb.sql b/AAGB/aagb.sql index e68517418..ff87022e7 100644 --- a/AAGB/aagb.sql +++ b/AAGB/aagb.sql @@ -147,7 +147,6 @@ IS ORDER BY fac_imp_csv_key; BEGIN -- - fac_import_genericcsv (p_import_key); -- Eerst opruiming v_count_tot := 0; diff --git a/BAUS/baus.sql b/BAUS/baus.sql index c9b8b4e36..6832d58f2 100644 --- a/BAUS/baus.sql +++ b/BAUS/baus.sql @@ -373,7 +373,7 @@ AS CREATE OR REPLACE PROCEDURE baus_import_taak_km (p_import_key IN NUMBER) AS BEGIN - fac_import_genericcsv (p_import_key); + NULL; END baus_import_taak_km; / diff --git a/PIVP/PIVP.sql b/PIVP/PIVP.sql index b95e98a1e..43e052508 100644 --- a/PIVP/PIVP.sql +++ b/PIVP/PIVP.sql @@ -41,11 +41,11 @@ AS PROCEDURE afmelden_reserveringen; - + PROCEDURE inactivate_prs; - - - + + + END; / @@ -93,11 +93,11 @@ AS oracle_err_mes VARCHAR2 (200); CURSOR res_ruimte IS - SELECT res.res_rsv_ruimte_key res_key + SELECT res.res_rsv_ruimte_key res_key FROM res_rsv_ruimte res WHERE res.res_status_bo_key = 2 --- geregistreerd, nog niet verwerkt - AND (res.res_status_fo_key = 2 - OR (res.res_rsv_ruimte_verwijder IS NOT NULL + AND (res.res_status_fo_key = 2 + OR (res.res_rsv_ruimte_verwijder IS NOT NULL AND res.res_status_fo_key=1 AND TRUNC(res.res_rsv_ruimte_van)-TRUNC(res.res_rsv_ruimte_verwijder)<3)) AND res.RES_RSV_RUIMTE_EXTERNSYNCDATE IS NULL AND TRUNC(res.res_rsv_ruimte_van)< TRUNC(SYSDATE); @@ -355,13 +355,13 @@ AS BEGIN -- inactiveren personen die 12 maanden niet hebben ingelogd pivp.inactivate_prs (); - - -- zaalreservereing afmelden ook die verwijderd zijn - pivp.afmelden_reserveringen; - + + -- zaalreservereing afmelden ook die verwijderd zijn + pivp.afmelden_reserveringen; + -- conditiescore aggregratie over de gebouwen. - cnd.update_aggr_scores(NULL, NULL); - + cnd.update_aggr_scores(NULL, NULL); + END; / @@ -765,22 +765,22 @@ AS -- De importvelden: v_alg_ruimte_nr VARCHAR2(100); - + v_gebouw_code VARCHAR2(100); - + v_ins_discipline_txt VARCHAR2(100); - + v_ins_discipline_omschrijving VARCHAR2(100); d_ins_discipline_omschrijving VARCHAR2(100); - + v_ins_srtgroep_code VARCHAR2(100); v_ins_srtgroep_omschrijving VARCHAR2(100); d_ins_srtgroep_omschrijving VARCHAR2(100); - + v_ins_srtdeel_code VARCHAR2(100); v_ins_srtdeel_omschrijving VARCHAR2(100); d_ins_srtdeel_omschrijving VARCHAR2(100); - + v_ins_deel_txt VARCHAR2(100); v_ins_deel_code VARCHAR2(100); v_ins_deel_eenheid VARCHAR2(100); @@ -789,7 +789,7 @@ AS v_ins_deel_component VARCHAR2(1000); v_ins_srtcontrole_periode_txt VARCHAR2(100); v_ins_srtcontrole_prijs_txt VARCHAR2(100); - + v_ins_deel_percentage NUMBER; v_ins_srtcontrole_periode NUMBER; v_kenmerk1 VARCHAR2(1000); @@ -825,10 +825,10 @@ AS v_srtk_merk_key NUMBER; v_discipline_key NUMBER; v_srtgroep_key NUMBER; - + v_startjaar NUMBER; v_cyclus NUMBER; - + CURSOR c IS @@ -837,7 +837,7 @@ AS WHERE fac_import_key = p_import_key ORDER BY fac_imp_file_index; - + BEGIN v_count_error := 0; @@ -847,7 +847,7 @@ BEGIN DELETE fac_imp_ins; - + FOR rec IN c LOOP @@ -871,7 +871,7 @@ BEGIN v_errormsg := 'Fout opvragen K5 te importeren rij '||v_count_import; fac.imp_getfield_nr (v_newline, c_fielddelimitor, 5, v_ins_discipline_omschrijving); v_errormsg := 'Fout opvragen K6te importeren rij '||v_count_import; - fac.imp_getfield_nr (v_newline, c_fielddelimitor, 6, v_ins_srtgroep_code); + fac.imp_getfield_nr (v_newline, c_fielddelimitor, 6, v_ins_srtgroep_code); v_errormsg := 'Fout opvragen K7 te importeren rij '||v_count_import; fac.imp_getfield_nr (v_newline, c_fielddelimitor, 7, v_ins_srtgroep_omschrijving); v_errormsg := 'Fout opvragen K8 te importeren rij '||v_count_import; @@ -907,20 +907,20 @@ BEGIN v_errormsg := 'Fout opvragen te importeren rij '||v_count_import; fac.imp_getfield_nr (v_newline, c_fielddelimitor, 30, v_kenmerk15); -- startjaar - + -- fac.imp_getfield_nr (v_newline, c_fielddelimitor, 29, v_ins_srtcontrole_periode_txt); -- fac.imp_getfield_nr (v_newline, c_fielddelimitor, 24, v_ins_srtcontrole_prijs_txt); - + -- fac.imp_getfield_nr (v_newline, c_fielddelimitor, 4, v_kenmerk1); -- code RVB -- fac.imp_getfield_nr (v_newline, c_fielddelimitor, 8, v_kenmerk2); -- opmerking -- fac.imp_getfield_nr (v_newline, c_fielddelimitor, 9, v_kenmerk3); -- taak -- fac.imp_getfield_nr (v_newline, c_fielddelimitor, 16, v_kenmerk5); -- fabrikant / merk -- fac.imp_getfield_nr (v_newline, c_fielddelimitor, 28, v_kenmerk7); -- percentage -- fac.imp_getfield_nr (v_newline, c_fielddelimitor, 30, v_kenmerk9); -- startjaar - + v_errormsg := 'vervangen , door . '||v_count_import; v_ins_srtdeel_code := REPLACE(v_ins_srtdeel_code,',','.'); - + v_errormsg := 'Euro teken verwijderen '||v_count_import; -- v_kenmerk14 := REPLACE(v_kenmerk14,',','.'); @@ -949,7 +949,7 @@ BEGIN EXCEPTION WHEN NO_DATA_FOUND THEN d_ins_srtgroep_omschrijving := SUBSTR (v_ins_srtdeel_code, 1, 2) || '-'|| v_ins_srtgroep_omschrijving; - END; + END; v_errormsg := 'Fout bij toevoegen te impoteren v_ins_srtdeel_omschrijving: ' || v_ins_srtdeel_code; d_ins_srtdeel_omschrijving:=''; @@ -961,7 +961,7 @@ BEGIN EXCEPTION WHEN NO_DATA_FOUND THEN d_ins_srtdeel_omschrijving := v_ins_srtdeel_omschrijving; - END; + END; v_errormsg := 'Fout bij toevoegen te impoteren v_alg_ruimte_nr: ' || v_alg_ruimte_nr; --SELECT alg_locatie_code, alg_gebouw_upper, alg_verdieping_volgnr @@ -969,11 +969,11 @@ BEGIN --FROM alg_v_ruimte_gegevens rg --WHERE UPPER(rg.alg_ruimte_nr) = UPPER(v_alg_ruimte_nr); BEGIN - + SELECT alg_locatie_code, alg_gebouw_upper, alg_verdieping_volgnr INTO v_alg_locatie_code,v_alg_gebouw_code, v_alg_verdieping_volgnr FROm alg_v_ruimte_gegevens rg WHERE UPPER(rg.alg_ruimte_nr) = UPPER(v_alg_ruimte_nr) AND rg.alg_gebouw_upper = UPPER(v_gebouw_code) AND rg.alg_verdieping_volgnr=v_alg_verdieping_volgnr; - EXCEPTION + EXCEPTION WHEN NO_DATA_FOUND THEN v_alg_locatie_code:='PP'; @@ -981,39 +981,39 @@ BEGIN v_alg_verdieping_volgnr:='0'; v_alg_ruimte_nr:='_000'; END; - + IF v_ins_deel_component IS NOT NULL THEN - v_ins_deel_omschrijving :=v_ins_deel_omschrijving||'-'||v_ins_deel_component; + v_ins_deel_omschrijving :=v_ins_deel_omschrijving||'-'||v_ins_deel_component; END IF; v_errormsg := '1 Fout bij toevoegen te impoteren startjaar('||v_ins_deel_omschrijving||'): ' || v_kenmerk15; v_ins_deel_aanmaak := NULL; - + IF v_kenmerk15 IS NOT NULL THEN IF v_kenmerk15='0' THEN v_ins_deel_aanmaak := to_date('01012099' , 'ddmmyyyy'); ELSE - + v_startjaar:= to_number(v_kenmerk15); - + v_cyclus := to_number(v_kenmerk12); -- IF v_startjaar=2022 THEN v_startjaar:=v_startjaar-v_cyclus; -- END IF; v_ins_deel_aanmaak := TO_DATE('0101'||v_startjaar,'ddmmyyyy'); END IF; - + ELSE v_ins_deel_aanmaak := SYSDATE; END IF; - - + + /* IF v_ins_deel_aanmaak_text IS NOT NULL THEN IF v_ins_deel_aanmaak_text='0' THEN v_ins_deel_aanmaak := to_date('01012022' , 'ddmmyyyy'); - ELSE + ELSE v_ins_deel_aanmaak := to_date('0101' || v_ins_deel_aanmaak_text, 'ddmmyyyy'); END IF; ELSE @@ -1125,11 +1125,11 @@ BEGIN ins_kenmerkwaarde2, -- Bouwjaar ? ins_kenmerkwaarde3, -- eenheid ? ins_kenmerkwaarde10, -- Srt Taak Groep - ins_kenmerkwaarde11, -- Srt Taak - ins_kenmerkwaarde12, -- Periode + ins_kenmerkwaarde11, -- Srt Taak + ins_kenmerkwaarde12, -- Periode ins_kenmerkwaarde13, -- Interval (4=jaarlijks) - ins_kenmerkwaarde14, -- bedrag /matriaal - ins_kenmerkwaarde15) -- Taak opm + ins_kenmerkwaarde14, -- bedrag /matriaal + ins_kenmerkwaarde15) -- Taak opm VALUES (SUBSTR(d_ins_discipline_omschrijving, 1,60), SUBSTR(d_ins_srtgroep_omschrijving, 1, 60), SUBSTR(v_ins_srtdeel_code,1,10), @@ -1152,7 +1152,7 @@ BEGIN v_kenmerk14, v_kenmerk13 ); - + END IF; EXCEPTION WHEN OTHERS @@ -1167,7 +1167,7 @@ BEGIN v_errorhint); END; - + END LOOP; COMMIT; @@ -1183,7 +1183,7 @@ EXCEPTION v_errormsg, v_errorhint); END; -/ +/ --Einde pivp_import_assets_ini; @@ -1191,9 +1191,9 @@ CREATE OR REPLACE PROCEDURE PIVP_UPDATE_ASSETS_INI(p_import_key IN NUMBER) AS CURSOR sel IS SELECT * FROM fac_imp_ins; - - - + + + oracle_err_num NUMBER; oracle_err_mes VARCHAR2 (200); @@ -1213,25 +1213,25 @@ AS v_srtcontrole_level INS_SRTCONTROLE.INS_SRTCONTROLE_LEVEL%TYPE; v_percentage NUMBER; v_materiaal INS_SRTCONTROLEDL_XCP.INS_SRTCONTROLEDL_XCP_MATERIA%TYPE; - - ins_deel_key NUMBER; + + ins_deel_key NUMBER; ins_srtdeel_key NUMBER; v_count NUMBER; v_error NUMBER; - + BEGIN - + fac_update_ins(p_import_key); - - + + -- LOOP Over alle geimporteerde objecten FOR rec IN sel LOOP v_error:=0; BEGIN v_count:=0; - + -- volgens mij is deze niet meer nodig --v_materiaal := FAC.safe_to_number (REPLACE(rec.INS_KENMERKWAARDE14,'.','')); v_materiaal := FAC.safe_to_number (rec.INS_KENMERKWAARDE14); @@ -1241,8 +1241,8 @@ BEGIN SELECT ins_deel_key, ins_srtdeel_key INTO v_deel_key, v_srtdeel_key FROM ins_deel - WHERE ins_deel_omschrijving = rec.ins_deel_omschrijving; - + WHERE ins_deel_omschrijving = rec.ins_deel_omschrijving; + --Haal de taakgroep op v_errorhint := 'Zoek taak categorie'; BEGIN @@ -1255,22 +1255,22 @@ BEGIN v_error :=1; -- loggen dat deze taak groep niet bekend is END; - - - - - -- Als taakgroep is Cerificering dan geen MJOB - - -- Heeft deze objectsoort al deze keuring - - -- heb ik al een XCP Record... --- SELECT COUNT(*) --- INTO v_count --- FROM ins_srtcontroledl_xcp --- WHERE ins_deel_key=v_deel_key --- AND ins_srtcontroledl_xcp_periode=COALESCE (TO_NUMBER (rec.ins_kenmerkwaarde12),0) + + + -- Als taakgroep is Cerificering dan geen MJOB + + -- Heeft deze objectsoort al deze keuring + + + + -- heb ik al een XCP Record... +-- SELECT COUNT(*) +-- INTO v_count +-- FROM ins_srtcontroledl_xcp +-- WHERE ins_deel_key=v_deel_key +-- AND ins_srtcontroledl_xcp_periode=COALESCE (TO_NUMBER (rec.ins_kenmerkwaarde12),0) -- AND ins_srtcontroledl_xcp_materia = v_materiaal; IF v_error=0 -- ik heb het object en taak categorie @@ -1285,7 +1285,7 @@ BEGIN v_srtcontrole_omschrijving:=v_srtcontrole_omschrijving||'-'||rec.ins_kenmerkwaarde15; END IF; v_srtcontrole_omschrijving:=v_srtcontrole_omschrijving || '-'|| rec.ins_srtdeel_code; - -- Heb ik deze srtcontrole al + -- Heb ik deze srtcontrole al SELECT ins_srtcontrole_key, ins_srtcontrole_periode, ins_srtcontrole_materiaal, @@ -1299,15 +1299,15 @@ BEGIN AND ins_srtcontrole_niveau = 'S' AND ctr_discipline_key = v_taakcat_key AND ins_srtcontrole_omschrijving=v_srtcontrole_omschrijving; - + -- srtcontrole is er . - -- Wijkt deze af van de srtcontrole op begied van periode, materiaal - - + -- Wijkt deze af van de srtcontrole op begied van periode, materiaal + + -- IF v_srtcontrole_periode <> COALESCE (TO_NUMBER (rec.ins_kenmerkwaarde12),0) -- OR v_srtcontrole_materiaal <> v_materiaal - -- THEN - INSERT INTO ins_srtcontroledl_xcp + -- THEN + INSERT INTO ins_srtcontroledl_xcp (ins_srtcontrole_key, ins_deel_key, ins_srtcontroledl_xcp_eenheid) @@ -1319,7 +1319,7 @@ BEGIN UPDATE ins_srtcontroledl_xcp SET ins_srtcontroledl_xcp_periode = COALESCE (TO_NUMBER (rec.ins_kenmerkwaarde12),0) WHERE ins_srtcontroledl_xcp_key = v_srtcontroledl_xcp_key; --- END IF; +-- END IF; -- IF v_srtcontrole_materiaal <> v_materiaal -- THEN UPDATE ins_srtcontroledl_xcp @@ -1335,8 +1335,8 @@ BEGIN -- indien deze anders zijn dan moet er een uitzonderings record gemaakt worden -- vast leggen op bais vam welke criteria de srtconmtyrole gechekd wordt. -- periode, kosten evt percentage - - EXCEPTION + + EXCEPTION WHEN NO_DATA_FOUND THEN v_errorhint := 'Bepalen level'; v_srtcontrole_level := 10; @@ -1347,9 +1347,9 @@ BEGIN v_srtcontrole_omschrijving:=v_srtcontrole_omschrijving||'-'||rec.ins_kenmerkwaarde15; END IF; v_srtcontrole_omschrijving:=v_srtcontrole_omschrijving || '-'|| rec.ins_srtdeel_code; - + v_errorhint := 'Aanmaken srtcontrole'; - + -- nu moet we een ins_srtcontrole aanmaken INSERT INTO ins_srtcontrole ( ins_srtinstallatie_key, @@ -1381,7 +1381,7 @@ BEGIN RETURNING ins_srtcontroledl_xcp_key INTO v_srtcontroledl_xcp_key; END; - + END IF; END; END LOOP; @@ -1411,22 +1411,22 @@ AS -- De importvelden: v_alg_ruimte_nr VARCHAR2(100); - + v_gebouw_code VARCHAR2(100); - + v_ins_discipline_txt VARCHAR2(100); - + v_ins_discipline_omschrijving VARCHAR2(100); d_ins_discipline_omschrijving VARCHAR2(100); - + v_ins_srtgroep_code VARCHAR2(100); v_ins_srtgroep_omschrijving VARCHAR2(100); d_ins_srtgroep_omschrijving VARCHAR2(100); - + v_ins_srtdeel_code VARCHAR2(100); v_ins_srtdeel_omschrijving VARCHAR2(100); d_ins_srtdeel_omschrijving VARCHAR2(100); - + v_ins_deel_txt VARCHAR2(100); v_ins_deel_code VARCHAR2(100); v_ins_deel_eenheid VARCHAR2(100); @@ -1436,7 +1436,7 @@ AS v_ins_deel_component VARCHAR2(1000); v_ins_srtcontrole_periode_txt VARCHAR2(100); v_ins_srtcontrole_prijs_txt VARCHAR2(100); - + v_ins_deel_percentage NUMBER; v_ins_srtcontrole_periode NUMBER; v_kenmerk1 VARCHAR2(1000); @@ -1472,13 +1472,13 @@ AS v_srtk_merk_key NUMBER; v_discipline_key NUMBER; v_srtgroep_key NUMBER; - + v_startjaar NUMBER; v_cyclus NUMBER; v_component NUMBER; v_msdcode NUMBER; - - + + CURSOR c IS @@ -1487,7 +1487,7 @@ AS WHERE fac_import_key = p_import_key ORDER BY fac_imp_file_index; - + BEGIN v_count_error := 0; @@ -1499,14 +1499,14 @@ BEGIN DELETE fac_imp_ins; - + FOR rec IN c LOOP BEGIN v_errormsg := 'Fout FETCH te importeren rij'; - - + + v_newline := rec.fac_imp_file_line; v_errormsg := 'Fout opvragen te importeren rij '||v_count_import; v_aanduiding := ''; @@ -1524,24 +1524,24 @@ BEGIN v_ins_deel_omschrijving:=''; v_ins_deel_opmerking:=''; v_ins_deel_omschrijving_compleet:=''; - - + + -- Lees alle veldwaarden fac.imp_getfield_nr (v_newline, c_fielddelimitor, 2, v_gebouw_code); fac.imp_getfield_nr (v_newline, c_fielddelimitor, 3, v_alg_verdieping_volgnr); - fac.imp_getfield_nr (v_newline, c_fielddelimitor, 4, v_alg_ruimte_nr); + fac.imp_getfield_nr (v_newline, c_fielddelimitor, 4, v_alg_ruimte_nr); fac.imp_getfield_nr (v_newline, c_fielddelimitor, 5, v_ins_discipline_omschrijving); - fac.imp_getfield_nr (v_newline, c_fielddelimitor, 6, v_ins_srtgroep_code); + fac.imp_getfield_nr (v_newline, c_fielddelimitor, 6, v_ins_srtgroep_code); fac.imp_getfield_nr (v_newline, c_fielddelimitor, 7, v_ins_srtgroep_omschrijving); - + fac.imp_getfield_nr (v_newline, c_fielddelimitor, 8, v_ins_srtdeel_code); fac.imp_getfield_nr (v_newline, c_fielddelimitor, 9, v_ins_srtdeel_omschrijving); fac.imp_getfield_nr (v_newline, c_fielddelimitor, 14, v_ins_deel_aantal); - + fac.imp_getfield_nr (v_newline, c_fielddelimitor, 10, v_ins_deel_omschrijving); fac.imp_getfield_nr (v_newline, c_fielddelimitor, 12, v_ins_deel_component); fac.imp_getfield_nr (v_newline, c_fielddelimitor, 11, v_ins_deel_opmerking); - + fac.imp_getfield_nr (v_newline, c_fielddelimitor, 16, v_kenmerk4); -- bouwjaar fac.imp_getfield_nr (v_newline, c_fielddelimitor, 13, v_kenmerk1); -- Oprognose code @@ -1554,7 +1554,7 @@ BEGIN fac.imp_getfield_nr (v_newline, c_fielddelimitor, 32, v_kenmerk14); -- kosten fac.imp_getfield_nr (v_newline, c_fielddelimitor, 30, v_kenmerk16); -- startjaar - + IF v_ins_srtgroep_code!='00' THEN v_ins_srtdeel_code := REPLACE(v_ins_srtdeel_code,',','.'); v_ins_deel_aantal := REPLACE(v_ins_deel_aantal,',','.'); @@ -1578,17 +1578,17 @@ BEGIN VALUES ('INS', SUBSTR (v_ins_srtdeel_code, 1, 1) || '-'|| v_ins_discipline_omschrijving, 1) RETURNING ins_discipline_key INTO v_discipline_key; - + INSERT INTO ins_disc_params (ins_discipline_key, ins_disc_params_autonum) - VALUES (v_discipline_key, 2); - d_ins_discipline_omschrijving:=SUBSTR (v_ins_srtdeel_code, 1, 1) || '-'|| v_ins_discipline_omschrijving; + VALUES (v_discipline_key, 2); + d_ins_discipline_omschrijving:=SUBSTR (v_ins_srtdeel_code, 1, 1) || '-'|| v_ins_discipline_omschrijving; END; v_errormsg := 'Fout bij toevoegen te impoteren v_ins_srtgroep_omschrijving: ' || v_ins_srtdeel_code ||'(REGEL '||v_count_import||')'; d_ins_srtgroep_omschrijving:=''; - - + + BEGIN v_errormsg := 'Fout bij toevoegen te impoteren v_ins_srtgroep_omschrijving(2): ' || v_ins_srtdeel_code ||'(REGEL '||v_count_import||')'; SELECT ins_srtgroep_key,sg.ins_srtgroep_omschrijving @@ -1606,7 +1606,7 @@ BEGIN RETURNING ins_srtgroep_key INTO v_srtgroep_key; d_ins_srtgroep_omschrijving := SUBSTR (v_ins_srtdeel_code, 1, 2) || '-'|| v_ins_srtgroep_omschrijving; - END; + END; v_errormsg := 'Fout bij toevoegen te impoteren v_ins_srtdeel_omschrijving: ' || v_ins_srtdeel_code||'(REGEL '||v_count_import||')'; d_ins_srtdeel_omschrijving:=''; @@ -1629,19 +1629,19 @@ BEGIN 17); d_ins_srtdeel_omschrijving := v_ins_srtdeel_omschrijving; - END; + END; v_errormsg := 'Fout bij toevoegen te impoteren v_alg_ruimte_nr: ' || v_alg_ruimte_nr; - + v_alg_locatie_code:=''; v_alg_gebouw_code :=''; v_alg_verdieping_volgnr:=-4; BEGIN - + SELECT alg_locatie_code, alg_gebouw_upper, alg_verdieping_volgnr INTO v_alg_locatie_code,v_alg_gebouw_code, v_alg_verdieping_volgnr FROm alg_v_ruimte_gegevens rg WHERE UPPER(rg.alg_ruimte_nr) = UPPER(v_alg_ruimte_nr) AND rg.alg_gebouw_upper = UPPER(v_gebouw_code) AND rg.alg_verdieping_volgnr=v_alg_verdieping_volgnr; - EXCEPTION + EXCEPTION WHEN NO_DATA_FOUND THEN v_alg_locatie_code:='PP'; @@ -1649,59 +1649,59 @@ BEGIN v_alg_verdieping_volgnr:='0'; v_alg_ruimte_nr:='_000'; END; - + IF v_ins_deel_component IS NOT NULL AND LENGTH(v_ins_deel_component)>1 THEN v_ins_deel_omschrijving_compleet :=v_ins_deel_omschrijving||'-'||v_ins_deel_component; ELSIF v_kenmerk1 IS NOT NULL AND LENGTH(v_kenmerk1)>1 THEN v_ins_deel_omschrijving_compleet :=v_ins_deel_omschrijving||'-'||v_kenmerk1; - ELSE + ELSE v_ins_deel_omschrijving_compleet :=v_ins_deel_omschrijving; END IF; - - - - - + + + + + v_errormsg := '1 Fout bij toevoegen te impoteren startjaar('||v_ins_deel_omschrijving||'): ' || v_kenmerk16||'(REGEL '||v_count_import||')'; v_ins_deel_aanmaak := NULL; - + IF v_kenmerk12 IS NULL THEN v_cyclus:=1; - ELSE + ELSE v_cyclus := to_number(v_kenmerk12); END IF; - + IF v_kenmerk16 IS NOT NULL THEN IF v_kenmerk16='0' THEN v_ins_deel_aanmaak := to_date('01012022' , 'ddmmyyyy'); ELSE - + v_startjaar:= to_number(v_kenmerk16); - + v_startjaar:=v_startjaar-v_cyclus; - + v_ins_deel_aanmaak := TO_DATE('0101'||v_startjaar,'ddmmyyyy'); END IF; - + ELSE v_ins_deel_aanmaak := to_date('01012022' , 'ddmmyyyy'); END IF; - + v_errormsg := '1 Fout bij bepalen cyclus ('||v_ins_deel_omschrijving||'): ' || v_kenmerk12||'(REGEL '||v_count_import||')'; IF v_kenmerk12 IS NOT NULL AND LENGTH(v_kenmerk12)>1 THEN IF v_kenmerk12=0 THEN v_kenmerk12:=99; -- deze gaan we als eenmalige post inlezen END IF; - ELSE + ELSE v_kenmerk12:=1; -- deze gaan we als eenmalige post inlezen END IF; - - + + v_ongeldig:=0; IF v_ongeldig=0 THEN v_errormsg:='Fout bij insert regel '||v_count_tot; @@ -1721,11 +1721,11 @@ BEGIN ins_kenmerkwaarde2, -- Bouwjaar ? ins_kenmerkwaarde3, -- eenheid ? ins_kenmerkwaarde10, -- Srt Taak Groep - ins_kenmerkwaarde11, -- Srt Taak - ins_kenmerkwaarde12, -- Periode + ins_kenmerkwaarde11, -- Srt Taak + ins_kenmerkwaarde12, -- Periode ins_kenmerkwaarde13, -- Interval (4=jaarlijks) - ins_kenmerkwaarde14, -- bedrag /matriaal - ins_kenmerkwaarde15, -- Taak opm + ins_kenmerkwaarde14, -- bedrag /matriaal + ins_kenmerkwaarde15, -- Taak opm ins_kenmerkwaarde16) -- Taak startjaar VALUES (SUBSTR(d_ins_discipline_omschrijving, 1,60), SUBSTR(d_ins_srtgroep_omschrijving, 1, 60), @@ -1748,18 +1748,18 @@ BEGIN 4, v_kenmerk14, v_kenmerk13, - v_kenmerk16 + v_kenmerk16 ); -- fac.imp_writelog (p_import_key, -- 'S', -- v_errormsg, - -- v_errorhint); + -- v_errorhint); ELSE v_ongeldig:=0; v_ins_deel_omschrijving_compleet:=''; END IF; END IF; - + EXCEPTION WHEN OTHERS THEN @@ -1774,11 +1774,11 @@ BEGIN END; END LOOP; - - + + -- loop nog een keer over de periodiek taken en kijk of deze taak ook voor dat object geld en maak er anders een xcp record voor met een cyclus van 99 jaar. - - + + COMMIT; EXCEPTION @@ -1819,8 +1819,8 @@ AS v_srtcontrole_level INS_SRTCONTROLE.INS_SRTCONTROLE_LEVEL%TYPE; v_percentage NUMBER; v_materiaal INS_SRTCONTROLEDL_XCP.INS_SRTCONTROLEDL_XCP_MATERIA%TYPE; - - ins_deel_key NUMBER; + + ins_deel_key NUMBER; ins_srtdeel_key NUMBER; v_count NUMBER; v_error NUMBER; @@ -1828,30 +1828,30 @@ AS v_taak_afmeld_date DATE; v_taak_afmeld_jaar NUMBER; v_taak_nextyear NUMBER; - + BEGIN - + fac_update_ins(p_import_key); v_count:=0; - + -- LOOP Over alle geimporteerde objecten FOR rec IN sel LOOP v_error:=0; BEGIN - + v_count:=v_count+1; -- volgens mij is deze niet meer nodig v_materiaal := FAC.safe_to_number (REPLACE(rec.INS_KENMERKWAARDE14,'.','')); - + -- Haal het object op v_errorhint := 'Zoek object'; SELECT ins_deel_key, ins_srtdeel_key INTO v_deel_key, v_srtdeel_key FROM ins_deel - WHERE ins_deel_omschrijving = rec.ins_deel_omschrijving; - + WHERE ins_deel_omschrijving = rec.ins_deel_omschrijving; + --Haal de taakgroep op v_errorhint := 'Zoek taak categorie'; BEGIN @@ -1861,25 +1861,25 @@ BEGIN WHERE UPPER (ins_discipline_omschrijving) = UPPER (rec.ins_kenmerkwaarde10); EXCEPTION WHEN NO_DATA_FOUND THEN - v_taakcat_key:=5; + v_taakcat_key:=5; END; v_taak_cyclus := TO_NUMBER(COALESCE(rec.ins_kenmerkwaarde12,0)); v_taak_nextyear := TO_NUMBER(rec.ins_kenmerkwaarde16); - + IF (v_taak_cyclus=0 AND v_taak_nextyear>=2022) OR (v_taak_cyclus <> 0 AND v_taak_nextyear <> 0) THEN BEGIN IF v_taak_cyclus=1 AND v_taak_nextyear <=2022 THEN v_taak_afmeld_jaar := 2022; - ELSE + ELSE --v_taak_afmeld_jaar := v_taak_nextyear - v_taak_cyclus; v_taak_afmeld_jaar := v_taak_nextyear; END IF; v_taak_afmeld_date := TO_DATE('0101'||v_taak_afmeld_jaar,'ddmmyyyy'); - + v_srtcontrole_omschrijving:=''; v_srtcontrole_omschrijving:= SUBSTR(rec.ins_kenmerkwaarde11,0,50); IF rec.ins_kenmerkwaarde15 IS NOT NULL @@ -1887,7 +1887,7 @@ BEGIN v_srtcontrole_omschrijving:=v_srtcontrole_omschrijving||'-'||rec.ins_kenmerkwaarde15; END IF; v_srtcontrole_omschrijving:=v_srtcontrole_omschrijving || '-'|| rec.ins_srtdeel_code; - -- Heb ik deze srtcontrole al + -- Heb ik deze srtcontrole al SELECT ins_srtcontrole_key, ins_srtcontrole_periode, ins_srtcontrole_materiaal, @@ -1901,18 +1901,18 @@ BEGIN AND ins_srtcontrole_niveau = 'S' AND ctr_discipline_key = v_taakcat_key AND ins_srtcontrole_omschrijving=v_srtcontrole_omschrijving; - - + + -- srtcontrole is er . - -- Wijkt deze af van de srtcontrole op begied van periode, materiaal - - + -- Wijkt deze af van de srtcontrole op begied van periode, materiaal + + -- IF v_srtcontrole_periode <> COALESCE (TO_NUMBER (rec.ins_kenmerkwaarde12),0) -- OR v_srtcontrole_materiaal <> v_materiaal - -- THEN + -- THEN - INSERT INTO ins_srtcontroledl_xcp + INSERT INTO ins_srtcontroledl_xcp (ins_srtcontrole_key, ins_deel_key, ins_srtcontroledl_xcp_aantal, @@ -1931,11 +1931,11 @@ BEGIN rec.ins_kenmerkwaarde3) RETURNING ins_srtcontroledl_xcp_key INTO v_srtcontroledl_xcp_key; - + -- END IF; - - EXCEPTION + + EXCEPTION WHEN NO_DATA_FOUND THEN v_errorhint := 'Bepalen level'; v_srtcontrole_level := 10; @@ -1946,19 +1946,19 @@ BEGIN v_srtcontrole_omschrijving:=v_srtcontrole_omschrijving||'-'||rec.ins_kenmerkwaarde15; END IF; v_srtcontrole_omschrijving:=v_srtcontrole_omschrijving || '-'|| rec.ins_srtdeel_code; - + IF v_taak_cyclus=0 THEN v_taak_cyclus:=99; END IF; - + v_errorhint := 'Aanmaken srtcontrole'; fac.imp_writelog (p_import_key, 'W', v_count||'-'||v_taak_cyclus||-v_taak_nextyear, v_errorhint); - + -- nu moet we een ins_srtcontrole aanmaken - + INSERT INTO ins_srtcontrole ( ins_srtinstallatie_key, ins_srtcontrole_niveau, @@ -1993,7 +1993,7 @@ BEGIN RETURNING ins_srtcontroledl_xcp_key INTO v_srtcontroledl_xcp_key; - + COMMIT; WHEN OTHERS THEN @@ -2004,9 +2004,9 @@ BEGIN fac.imp_writelog (p_import_key, 'E', v_count||'-'||v_errormsg, - v_errorhint); + v_errorhint); END; - + END IF; EXCEPTION WHEN OTHERS @@ -2020,18 +2020,18 @@ BEGIN v_count||'-'||v_errormsg, v_errorhint); END; - END LOOP; - + END LOOP; + END; / --- Einde PIVP_UPDATE_ASSETS +-- Einde PIVP_UPDATE_ASSETS CREATE OR REPLACE PROCEDURE PIVP_IMPORT_EXACT_DEBITEUREN (p_import_key NUMBER) AS - + CURSOR c IS SELECT * @@ -2039,7 +2039,7 @@ AS WHERE fac_import_key = p_import_key ORDER BY fac_imp_file_index; - + c_fielddelimitor VARCHAR2 (1) := ';'; v_newline VARCHAR2 (4000); -- Input line v_errormsg VARCHAR2 (1000); @@ -2048,10 +2048,10 @@ AS oracle_err_mes VARCHAR2 (200); header_is_valid NUMBER; v_count_import NUMBER; - + -- De importvelden: - v_debiteur_code VARCHAR2(100); - v_debiteur_naam VARCHAR2(100); + v_debiteur_code VARCHAR2(100); + v_debiteur_naam VARCHAR2(100); v_ruimte_nrs VARCHAR2(4000); v_ruimte_code VARCHAR2(100); v_cnt_achternaam VARCHAR2(100); @@ -2063,35 +2063,35 @@ AS v_plaats VARCHAR2(100); v_telefoon VARCHAR2(100); v_naam VARCHAR2(30); - + v_ruimteseperator VARCHAR2(1) :='|'; - + v_ruimtecounter NUMBER; v_subcounter NUMBER; BEGIN - - header_is_valid := 0; + + header_is_valid := 0; v_count_import := 0; v_subcounter:=0; - - + + DELETE FROM fac_imp_kpn; DELETE FROM fac_imp_organisatie; DELETE FROM fac_imp_ext_bedrijf; -- DELETE FROM fac_imp_csv; - + FOR rec IN c LOOP v_subcounter:=0; v_errormsg := 'Fout FETCH te importeren rij'; v_count_import:=v_count_import+1; - + v_newline := rec.fac_imp_file_line; v_errormsg := 'Fout opvragen te importeren rij '||v_count_import; - + -- Lees alle veldwaarden fac.imp_getfield_nr (v_newline, c_fielddelimitor, 1, v_debiteur_code); fac.imp_getfield_nr (v_newline, c_fielddelimitor, 2, v_debiteur_naam); @@ -2104,15 +2104,15 @@ BEGIN fac.imp_getfield_nr (v_newline, c_fielddelimitor, 9, v_postcode); fac.imp_getfield_nr (v_newline, c_fielddelimitor, 10, v_plaats); fac.imp_getfield_nr (v_newline, c_fielddelimitor, 11, v_telefoon); - - + + v_naam:= v_cnt_voornaam||COALESCE(v_cnt_tussenv,' '||v_cnt_tussenv,'')||' '||v_cnt_achternaam; - + fac.imp_writelog (p_import_key, 'W', v_count_import||';'||v_debiteur_code||';'||v_debiteur_naam||';'||v_ruimte_nrs, v_errorhint); - + INSERT INTO fac_imp_kpn (prs_kostenplaats_nr, prs_kostenplaats_omschrijving, prs_kostenplaats_module) @@ -2120,7 +2120,7 @@ BEGIN v_debiteur_naam, 'PRS' ); - + INSERT INTO fac_imp_organisatie(prs_bedrijf_naam, prs_afdeling_naam, prs_afdeling_omschrijving, @@ -2149,8 +2149,8 @@ BEGIN v_cnt_email, 1); - -- hoeveel ruimtes hebben we in de lijst staan -/* SELECT (LENGTH(v_ruimte_nrs) - NVL(LENGTH(REPLACE(v_ruimte_nrs,v_ruimteseperator)),0)) / LENGTH(v_ruimteseperator) + -- hoeveel ruimtes hebben we in de lijst staan +/* SELECT (LENGTH(v_ruimte_nrs) - NVL(LENGTH(REPLACE(v_ruimte_nrs,v_ruimteseperator)),0)) / LENGTH(v_ruimteseperator) INTO v_ruimtecounter FROM dual; @@ -2168,11 +2168,11 @@ BEGIN v_ruimte_nrs, v_debiteur_naam, v_count_import); - ELSE + ELSE v_subcounter:=1; v_ruimtecounter:=v_ruimtecounter+1; -- we moeten er 1 bij optellen ander missen we de laatste ruimte - WHILE (v_subcounter<=v_ruimtecounter) - LOOP + WHILE (v_subcounter<=v_ruimtecounter) + LOOP fac.imp_getfield_nr (v_ruimte_nrs, v_ruimteseperator, v_subcounter, v_ruimte_code); INSERT INTO FAC_IMP_CSV (FAC_IMPORT_KEY, @@ -2185,15 +2185,15 @@ BEGIN v_ruimte_code, v_debiteur_naam, v_count_import); - v_subcounter:=v_subcounter+1; + v_subcounter:=v_subcounter+1; END LOOP; - END IF; -*/ - END LOOP; - - - + END IF; +*/ + END LOOP; + + + END; / @@ -2201,58 +2201,58 @@ END; CREATE OR REPLACE PROCEDURE PIVP_UPDATE_EXACT_DEBITEUREN (p_import_key NUMBER) AS CURSOR huurders IS - SELECT * - FROM fac_imp_csv + SELECT * + FROM fac_imp_csv WHERE fac_import_key=p_import_key; oracle_err_num NUMBER; oracle_err_mes VARCHAR2 (200); v_errormsg VARCHAR2 (1000); v_errorhint VARCHAR2 (1000); - + v_gebouw_code VARCHAR2(12); v_ruimte_nr VARCHAR2(20); - - v_ruimte_key NUMBER; + + v_ruimte_key NUMBER; v_afdeling_key NUMBER; v_ruimteafdeling_key NUMBER; v_huurder_key NUMBER; BEGIN - + fac_update_kpn(p_import_key); fac_update_organisatie(p_import_key); fac_update_ext_bedrijf(p_import_key); /* FOR rec in huurders - LOOP - v_huurder_key:=-1; + LOOP + v_huurder_key:=-1; BEGIN v_errormsg:='Fout bij ophalen ruimte '||rec.FAC_IMP_CSV_COL02; v_gebouw_code:=SUBSTR(rec.FAC_IMP_CSV_COL02,1,INSTR(rec.FAC_IMP_CSV_COL02,'-')-1); v_ruimte_nr := SUBSTR(rec.FAC_IMP_CSV_COL02,INSTR(rec.FAC_IMP_CSV_COL02,'-')+1,LENGTH(rec.FAC_IMP_CSV_COL02)); - SELECT alg_ruimte_key - INTO v_ruimte_key - FROM alg_v_onroerendgoed_gegevens - WHERE alg_ruimte_nr=v_ruimte_nr - AND alg_gebouw_code=v_gebouw_code; - + SELECT alg_ruimte_key + INTO v_ruimte_key + FROM alg_v_onroerendgoed_gegevens + WHERE alg_ruimte_nr=v_ruimte_nr + AND alg_gebouw_code=v_gebouw_code; + v_errormsg:='Fout bij ophalen afdeling '||rec.FAC_IMP_CSV_COL01; - SELECT prs_afdeling_key - INTO v_afdeling_key - FROM prs_afdeling + SELECT prs_afdeling_key + INTO v_afdeling_key + FROM prs_afdeling WHERE prs_afdeling_naam=rec.fac_imp_csv_col01; BEGIN v_errormsg:='Fout bij ophalen ruimteafdeling bezetting'; -- Eerst kijken of deze afdeling/debiteur al aan de ruimte is gekoppeld - SELECT prs_ruimteafdeling_key - INTO v_ruimteafdeling_key - FROM prs_ruimteafdeling - WHERE prs_afdeling_key=v_afdeling_key - AND alg_ruimte_key=v_ruimte_key + SELECT prs_ruimteafdeling_key + INTO v_ruimteafdeling_key + FROM prs_ruimteafdeling + WHERE prs_afdeling_key=v_afdeling_key + AND alg_ruimte_key=v_ruimte_key AND prs_ruimteafdeling_verwijder IS NULL; - EXCEPTION WHEN NO_DATA_FOUND THEN + EXCEPTION WHEN NO_DATA_FOUND THEN INSERT INTO prs_ruimteafdeling(PRS_AFDELING_KEY, ALG_RUIMTE_KEY, PRS_RUIMTEAFDELING_BEZETTING) @@ -2260,13 +2260,13 @@ BEGIN v_ruimte_key, 100); END; - SELECT fac_usrdata_key - INTO v_huurder_key - FROM pivp_v_huurdersbedrijf + SELECT fac_usrdata_key + INTO v_huurder_key + FROM pivp_v_huurdersbedrijf WHERE fac_usrdata_omschr = rec.fac_imp_csv_col03; IF v_huurder_key>0 THEN alg.upsertkenmerk(1021,v_ruimte_key,v_huurder_key); - ELSE + ELSE fac.imp_writelog (p_import_key, 'W', 'Huurder '|| rec.fac_imp_csv_col03||' niet kunnen vinden als leveranciers/huurders' , @@ -2280,14 +2280,14 @@ BEGIN 'niet gevonden'); END; END LOOP; - */ - + */ + END; / -- EINDE IMPORT EXACT_DEBITEUREN -CREATE OR REPLACE PROCEDURE PIVP_IMPORT_EXACT_RUIMTES(p_import_key IN NUMBER) +CREATE OR REPLACE PROCEDURE PIVP_IMPORT_EXACT_RUIMTES(p_import_key IN NUMBER) AS CURSOR c @@ -2297,7 +2297,7 @@ AS WHERE fac_import_key = p_import_key ORDER BY fac_imp_file_index; - + c_fielddelimitor VARCHAR2 (1) := ';'; v_newline VARCHAR2 (4000); -- Input line v_errormsg VARCHAR2 (1000); @@ -2306,7 +2306,7 @@ AS oracle_err_mes VARCHAR2 (200); header_is_valid NUMBER; v_count_import NUMBER; - + -- De importvelden: v_huurder_key NUMBER; v_huurder_code VARCHAR2(100); @@ -2333,14 +2333,14 @@ AS v_hrTp_kenm_key NUMBER; v_vhrbr_kenm_key NUMBER; BEGIN - header_is_valid := 0; + header_is_valid := 0; v_count_import := 0; v_subcounter:=0; - - + + DELETE FROM fac_imp_onrgoed2; - + SELECT alg_kenmerk_key INTO v_huurder_kenm_key FROM alg_kenmerk WHERE alg_kenmerk_upper='HUURDER' AND alg_kenmerk_verwijder IS NULL; -- SELECT alg_kenmerk_key INTO v_vvo_kenm_key FROM alg_kenmerk WHERE alg_kenmerk_upper='VVO'; SELECT alg_kenmerk_key INTO v_hrTp_kenm_key FROM alg_kenmerk WHERE alg_kenmerk_upper='VERHUURTYPE' AND alg_kenmerk_verwijder IS NULL; @@ -2348,13 +2348,13 @@ BEGIN FOR rec IN c LOOP - + v_errormsg := 'Fout FETCH te importeren rij'; v_count_import:=v_count_import+1; IF v_count_import>1 THEN v_newline := rec.fac_imp_file_line; v_errormsg := 'Fout opvragen te importeren rij '||v_count_import; - + -- Lees alle veldwaarden fac.imp_getfield_nr (v_newline, c_fielddelimitor, 1, v_locatie_code); fac.imp_getfield_nr (v_newline, c_fielddelimitor, 2, v_gebouw_code); @@ -2369,10 +2369,10 @@ BEGIN fac.imp_getfield_nr (v_newline, c_fielddelimitor, 11, v_srtruimte); fac.imp_getfield_nr (v_newline, c_fielddelimitor, 13, v_km_vvo); fac.imp_getfield_nr (v_newline, c_fielddelimitor, 15, v_km_verhuurtype); - - v_ruimte_nr := SUBSTR(v_ruimte_nr, INSTR(v_ruimte_nr,'-')+1, LENGTH(v_ruimte_nr)); - + v_ruimte_nr := SUBSTR(v_ruimte_nr, INSTR(v_ruimte_nr,'-')+1, LENGTH(v_ruimte_nr)); + + v_verdieping_nr := fac.safe_to_number(v_verdieping_volgnr); v_bvo_nr := fac.safe_to_number(REPLACE(v_bvo,',','.')); @@ -2384,7 +2384,7 @@ BEGIN AND k.fac_kenmerkdomein_key = d.fac_kenmerkdomein_key AND d.fac_usrtab_key = ud.fac_usrtab_key AND UPPER (TRIM (ud.fac_usrdata_CODE)) = UPPER (v_km_verhuurtype); - EXCEPTION WHEN NO_DATA_FOUND + EXCEPTION WHEN NO_DATA_FOUND THEN v_verhuurtype:=null; END; @@ -2395,19 +2395,19 @@ BEGIN FROM prs_bedrijf b WHERE b.prs_leverancier_nr = v_huurder_code AND b.prs_bedrijf_huurder = 1 - AND b.prs_bedrijf_verwijder IS NULL; + AND b.prs_bedrijf_verwijder IS NULL; EXCEPTION WHEN NO_DATA_FOUND THEN v_huurder_naam:=NULL; END; - + /* IF SUBSTR(v_huurder_codeoud,1,2)='DB' THEN BEGIN - UPDATE prs_bedrijf pb - SET pb.prs_leverancier_nr=v_huurder_code - WHERE pb.prs_bedrijf_naam_upper = UPPER(v_huurder_naam) + UPDATE prs_bedrijf pb + SET pb.prs_leverancier_nr=v_huurder_code + WHERE pb.prs_bedrijf_naam_upper = UPPER(v_huurder_naam) AND pb.prs_leverancier_nr=v_huurder_codeoud; EXCEPTION WHEN NO_DATA_FOUND THEN null; @@ -2420,7 +2420,7 @@ BEGIN alg_srtruimte_omschrijving, alg_ruimte_nr, alg_ruimte_omschrijving, - alg_ruimte_bruto_vloeropp, + alg_ruimte_bruto_vloeropp, alg_kenmerkwaarde1, alg_kenmerkwaarde2, alg_kenmerkwaarde3, @@ -2432,26 +2432,26 @@ BEGIN v_srtruimte, v_ruimte_nr, v_ruimte_omsc, - v_bvo_nr, + v_bvo_nr, DECODE(v_km_verhuurbaar, NULL, NULL, v_vhrbr_kenm_key||'='||v_km_verhuurbaar), v_km_vvo, DECODE(v_km_verhuurtype, NULL, NULL, v_hrTp_kenm_key||'='||v_verhuurtype), DECODE(v_huurder_naam, NULL, NULL, v_huurder_kenm_key||'='||v_huurder_naam) ); END IF; - END LOOP; - + END LOOP; + END; / -CREATE OR REPLACE PROCEDURE PIVP_UPDATE_EXACT_RUIMTES(p_import_key IN NUMBER) +CREATE OR REPLACE PROCEDURE PIVP_UPDATE_EXACT_RUIMTES(p_import_key IN NUMBER) AS CURSOR C IS - SELECT a.alg_ruimte_key, fio.alg_kenmerkwaarde2 - FROM fac_imp_onrgoed2 fio, alg_v_allonrgoed_gegevens a + SELECT a.alg_ruimte_key, fio.alg_kenmerkwaarde2 + FROM fac_imp_onrgoed2 fio, alg_v_allonrgoed_gegevens a WHERE a.alg_ruimte_nr=fio.alg_ruimte_nr AND a.alg_gebouw_code = fio.alg_gebouw_code AND a.alg_verdieping_code=to_char(fio.alg_verdieping_volgnr) @@ -2459,39 +2459,39 @@ AS AND fio.alg_kenmerkwaarde2 IS NOT NULL; BEGIN - fac_update_onrgoed2(p_import_key); - + fac_update_onrgoed2(p_import_key); + FOR rec in c - LOOP + LOOP -- Nu gaan we de VVO kolom data wegschrijvene in de alg_ruimte_opp_alt1 kolom -- we gaan gelijk de extrensync date zetten zodat we weten bij mutatie welke ruimtes er geexporteerd moeten worden naare exact toe - UPDATE alg_ruimte - SET alg_ruimte_opp_alt1= fac.safe_to_number(REPLACE(rec.alg_kenmerkwaarde2,',','.')), + UPDATE alg_ruimte + SET alg_ruimte_opp_alt1= fac.safe_to_number(REPLACE(rec.alg_kenmerkwaarde2,',','.')), alg_ruimte_externsyncdate=SYSDATE WHERE alg_ruimte_key=rec.alg_ruimte_key - AND alg_ruimte_verwijder IS NULL; - - END LOOP; + AND alg_ruimte_verwijder IS NULL; + + END LOOP; END; / CREATE OR REPLACE PROCEDURE PIVP_IMPORT_EXACT_RUIMTEHUURD(p_import_key NUMBER) -AS +AS BEGIN - fac_import_genericcsv(p_import_key); + NULL; END; -/ +/ CREATE OR REPLACE PROCEDURE PIVP_UPDATE_EXACT_RUIMTEHUURD(p_import_key NUMBER) AS CURSOR csv IS - SELECT * - FROM fac_imp_csv + SELECT * + FROM fac_imp_csv WHERE fac_import_key=p_import_key; v_errormsg VARCHAR2 (1000); - v_errorhint VARCHAR2 (1000); + v_errorhint VARCHAR2 (1000); v_ruimte_nr VARCHAR2(100); v_gebouw_code VARCHAR2(100); v_debiteur VARCHAR2(100); @@ -2508,7 +2508,7 @@ BEGIN v_insert_counter:=0; FOR rec IN csv LOOP - + IF UPPER(rec.fac_imp_csv_col01)<>'RUIMTE' THEN v_counter:=v_counter+1; v_gebouw_code:=SUBSTR(rec.fac_imp_csv_col01,1,INSTR(rec.fac_imp_csv_col01,'-')-1); @@ -2517,10 +2517,10 @@ BEGIN BEGIN v_errorhint:='Ruimte '||v_ruimte_nr||'in gebouw '||v_gebouw_code||' niet gevonden'; v_errormsg:='Ruimte niet gevonden'; - SELECT alg_ruimte_key - INTO v_ruimte_key - FROM alg_v_onroerendgoed_gegevens - WHERE alg_ruimte_nr=v_ruimte_nr + SELECT alg_ruimte_key + INTO v_ruimte_key + FROM alg_v_onroerendgoed_gegevens + WHERE alg_ruimte_nr=v_ruimte_nr AND alg_gebouw_code=v_gebouw_code; EXCEPTION WHEN NO_DATA_FOUND THEN v_ruimte_key:=-1; @@ -2528,61 +2528,61 @@ BEGIN 'W', v_errorhint , v_errormsg); - END; + END; IF v_ruimte_key>0 THEN BEGIN v_errorhint:='Huurder '||v_debiteur||' niet gevonden'; v_errormsg:='Huurder niet gevonden'; SELECT prs_bedrijf_key , p.prs_bedrijf_naam INTO v_huurder_key , v_huurder_naam - FROM prs_bedrijf p + FROM prs_bedrijf p WHERE p.prs_leverancier_nr = v_debiteur AND p.prs_bedrijf_huurder=1 AND p.prs_bedrijf_verwijder IS NULL; - + EXCEPTION WHEN NO_DATA_FOUND THEN v_huurder_key:=-1; fac.imp_writelog (p_import_key, 'W', v_errorhint , v_errormsg); - END; + END; END IF; IF v_huurder_key>0 AND v_ruimte_key>0 - THEN + THEN BEGIN SELECT p.prs_leverancier_nr, p.prs_bedrijf_naam INTO v_huidige_huurder_nr, v_huidige_huurder_naam - FROM alg_v_onroerendgoed_gegevens alg, alg_onrgoedkenmerk aok, prs_bedrijf p - WHERE alg.alg_ruimte_key=v_ruimte_key + FROM alg_v_onroerendgoed_gegevens alg, alg_onrgoedkenmerk aok, prs_bedrijf p + WHERE alg.alg_ruimte_key=v_ruimte_key AND aok.alg_onrgoed_key = alg.alg_ruimte_key AND aok.alg_kenmerk_key=1021 AND p.prs_bedrijf_key=aok.alg_onrgoedkenmerk_waarde; - + IF v_debiteur<>v_huidige_huurder_nr THEN v_tracking_msg :='IMP: Huurder gewijzigd van '||v_huidige_huurder_naam||'('|| v_huidige_huurder_nr||')'||' naar '||v_huurder_naam||'('||v_debiteur||')'; END IF; - EXCEPTION WHEN NO_DATA_FOUND + EXCEPTION WHEN NO_DATA_FOUND THEN v_tracking_msg :='IMP: Nieuwe huurder '||v_huurder_naam||'('||v_debiteur||')'; - + END; - END IF; - - IF v_ruimte_key>0 AND v_huurder_key>0 THEN + END IF; + + IF v_ruimte_key>0 AND v_huurder_key>0 THEN alg.upsertkenmerk(1021,v_ruimte_key,v_huurder_key); fac.trackaction ('ALGRUP', v_ruimte_key, 3, SYSDATE, v_tracking_msg); - v_insert_counter:=v_insert_counter+1; + v_insert_counter:=v_insert_counter+1; END IF; fac.imp_writelog (p_import_key, 'W', 'Regels ingelezen :'||v_counter||' waarvan '||v_insert_counter||' geupdate', v_errormsg); END IF; - + END LOOP; - DELETE FROM fac_imp_csv WHERE fac_import_key=p_import_key; + DELETE FROM fac_imp_csv WHERE fac_import_key=p_import_key; END; / @@ -2598,29 +2598,29 @@ AS CURSOR sel IS SELECT * from fac_imp_ext_bedrijf; - - v_prs_bedrijf_key NUMBER; + + v_prs_bedrijf_key NUMBER; v_kenmerk_key NUMBER :=0; - + BEGIN fac_update_ext_bedrijf(p_import_key); - + SELECT prs_kenmerk_key into v_kenmerk_key FROM prs_kenmerk WHERE prs_kenmerk_upper='EXACT ID' AND prs_kenmerk_niveau='B' AND prs_kenmerk_verwijder IS NULL; - IF v_kenmerk_key >0 + IF v_kenmerk_key >0 THEN FOR rec IN sel LOOP BEGIN v_prs_bedrijf_key :=0; SELECT b.prs_bedrijf_key INTO v_prs_bedrijf_key FROM prs_bedrijf b WHERE b.PRS_LEVERANCIER_NR = rec.PRS_LEVERANCIER_NR; - - INSERT INTO prs_kenmerklink(prs_link_key, - prs_kenmerklink_niveau, - prs_kenmerk_key, + + INSERT INTO prs_kenmerklink(prs_link_key, + prs_kenmerklink_niveau, + prs_kenmerk_key, prs_kenmerklink_waarde) VALUES(v_prs_bedrijf_key, - 'B', - v_kenmerk_key, + 'B', + v_kenmerk_key, rec.PRS_LEVERANCIER_NR); EXCEPTION WHEN NO_DATA_FOUND THEN @@ -2629,26 +2629,26 @@ BEGIN 'Relatie niet gevonden', 'relatieNr :'||rec.prs_leverancier_nr); END; - - + + END LOOP; - ELSE + ELSE fac.imp_writelog (p_import_key, 'W', 'Exact ID kenmkerk niet gevonden', 'Exact ID kenmkerk niet gevonden'); END IF; - - - - + + + + END; / CREATE OR REPLACE VIEW PIVP_V_MLD_FACT_RAP AS -SELECT m.mld_melding_key melding_nr, - isd.ins_srtdiscipline_omschrijving melding_vakgroep , +SELECT m.mld_melding_key melding_nr, + isd.ins_srtdiscipline_omschrijving melding_vakgroep , md.ins_discipline_omschrijving melding_groep, msm.mld_stdmelding_omschrijving melding_soort, m.mld_melding_onderwerp melding_onderwerp, @@ -2658,7 +2658,7 @@ SELECT m.mld_melding_key melding_nr, FROM mld_melding m, mld_stdmelding msm, mld_discipline md, - ins_srtdiscipline isd, + ins_srtdiscipline isd, mld_kenmerk mk, mld_srtkenmerk msk, mld_kenmerkmelding mkm @@ -2687,7 +2687,7 @@ AS (SELECT prs_perslid_externid FROM prs_perslid WHERE prs_perslid_key = rrr.res_rsv_ruimte_contact_key) besteller, - (SELECT DISTINCT lev.PRS_BEDRIJF_EMAIL + (SELECT DISTINCT lev.PRS_BEDRIJF_EMAIL FROM res_rsv_artikel rar, res_artikel art, res_disc_params dsp, @@ -2719,7 +2719,7 @@ AS AND ros.res_opstelling_key = rop.res_opstelling_key AND rer.res_ruimte_key = rop.res_ruimte_key AND rarm.res_ruimte_key = rer.res_ruimte_key - AND alg.alg_ruimte_key = rarm.alg_ruimte_key + AND alg.alg_ruimte_key = rarm.alg_ruimte_key UNION ALL SELECT DISTINCT(rrr.res_rsv_ruimte_key) rrr_key, rrr.res_reservering_key reservering_key, @@ -2735,7 +2735,7 @@ AS (SELECT pa.PRS_PERSLID_EMAIL FROM PRS_V_PERSLID_GEGEVENS pa WHERE pa.prs_perslid_key = rrr.res_rsv_ruimte_contact_key) besteller, - (SELECT DISTINCT lev.prs_bedrijf_email + (SELECT DISTINCT lev.prs_bedrijf_email FROM res_rsv_artikel rar, res_artikel art, res_disc_params dsp, @@ -2760,10 +2760,10 @@ AS WHERE rrr.res_status_fo_key = 2 AND rra.RES_RSV_RUIMTE_KEY = rrr.RES_RSV_RUIMTE_KEY AND alg.alg_ruimte_key = rrr.alg_ruimte_key - ORDER BY reservering_key) + ORDER BY reservering_key) WHERE aanmk_datum > SYSDATE-2/24 OR last_upd>aanmk_datum AND last_upd > SYSDATE-2/24; - + CREATE OR REPLACE VIEW PIVP_V_NOTI_CATERAAR @@ -2777,20 +2777,20 @@ CREATE OR REPLACE VIEW PIVP_V_NOTI_CATERAAR xemail, xmobile ) -AS +AS SELECT NULL, NULL, 'Er is een '|| CASE WHEN last_upd > aanmk_datum THEN 'gewijzigde' - ELSE 'nieuwe' END + ELSE 'nieuwe' END ||' Catering aanvraag voor '||datum_van||', reservering numer '||reservering_key, 'CUST01', reservering_key, - rrr_key, + rrr_key, cateraar, NULL FROM PIVP_V_CATERINGRESER - WHERE TRUNC(datum_van) > TRUNC(SYSDATE) + WHERE TRUNC(datum_van) > TRUNC(SYSDATE) AND (AANMK_DATUM> SYSDATE-2/24 OR LAST_UPD> SYSDATE-2/24); -- Notificatie naar operations als een nieuwe reservering een afwijkende opstelling heeft @@ -2806,29 +2806,29 @@ CREATE OR REPLACE VIEW PIVP_V_NOTI_RESNEW_OPER xemail, xmobile ) -AS +AS SELECT NULL sender, NULL receiver, - 'Reservering '||rrr.res_reservering_key||'/'||rrr.RES_RSV_RUIMTE_VOLGNR||' heeft een afwijkende opstelling.' text, + 'Reservering '||rrr.res_reservering_key||'/'||rrr.RES_RSV_RUIMTE_VOLGNR||' heeft een afwijkende opstelling.' text, 'CUST03' code, rrr.res_reservering_key key, - rrr.res_rsv_ruimte_key xkey, - (SELECT listagg(p.prs_perslid_email, ';' ) within group (order by p.prs_perslid_email) - from fac_groep fg, fac_gebruikersgroep fgg , prs_perslid p - where fg.fac_groep_upper='BO_ASS_JOHN-ANTHONY-PETER-SCHM' - AND fgg.FAC_GROEP_KEY = fg.FAC_GROEP_KEY - AND p.PRS_PERSLID_KEY = fgg.PRS_PERSLID_KEY) xemail, + rrr.res_rsv_ruimte_key xkey, + (SELECT listagg(p.prs_perslid_email, ';' ) within group (order by p.prs_perslid_email) + from fac_groep fg, fac_gebruikersgroep fgg , prs_perslid p + where fg.fac_groep_upper='BO_ASS_JOHN-ANTHONY-PETER-SCHM' + AND fgg.FAC_GROEP_KEY = fg.FAC_GROEP_KEY + AND p.PRS_PERSLID_KEY = fgg.PRS_PERSLID_KEY) xemail, NULL xmobile - FROM res_rsv_ruimte rrr, res_ruimte_opstelling rro, fac_tracking ft - WHERE rrr.res_status_bo_key = 2 AND rrr.res_rsv_ruimte_verwijder IS NULL + FROM res_rsv_ruimte rrr, res_ruimte_opstelling rro, fac_tracking ft + WHERE rrr.res_status_bo_key = 2 AND rrr.res_rsv_ruimte_verwijder IS NULL AND rro.res_ruimte_opstel_key = rrr.res_ruimte_opstel_key AND rro.res_ruimte_opstel_default IS NULL AND ft.fac_tracking_refkey = rrr.res_rsv_ruimte_key AND ft.fac_srtnotificatie_key=116 AND ft.fac_tracking_datum> SYSDATE-1 - AND NOT EXISTS (SElECT * - FROM fac_tracking ft - WHERE fac_tracking_refkey=rrr.res_rsv_ruimte_key + AND NOT EXISTS (SElECT * + FROM fac_tracking ft + WHERE fac_tracking_refkey=rrr.res_rsv_ruimte_key AND ft.fac_srtnotificatie_key=223 AND ft.fac_tracking_oms LIKE '%CUST04%'); @@ -2845,7 +2845,7 @@ CREATE OR REPLACE VIEW PIVP_V_NOTI_RES_SPECZAAL xmobile ) AS - SELECT + SELECT NULL sender, NULL receiver, 'Reservering '|| rrr.res_reservering_key||'/'||rrr.res_rsv_ruimte_volgnr||' is aangemaakt door '||p.prs_perslid_naam_friendly text, @@ -2853,20 +2853,20 @@ AS rrr.res_rsv_ruimte_key key, NULL xkey, 'communications@pivotpark.com' xemail, - NULL xmobile - FROM res_rsv_ruimte rrr, - res_activiteit ra, - res_activiteitdiscipline rad, - res_discipline rd, - fac_notificatie_job f, - prs_v_perslid_fullnames p + NULL xmobile + FROM res_rsv_ruimte rrr, + res_activiteit ra, + res_activiteitdiscipline rad, + res_discipline rd, + fac_notificatie_job f, + prs_v_perslid_fullnames p WHERE rrr.res_activiteit_key = ra.res_activiteit_key AND ra.res_activiteit_key = rad.res_activiteit_key AND rad.res_discipline_key =rd.ins_discipline_key AND UPPER(rd.ins_discipline_omschrijving)='PIVOT PARK (SPECIALE ZALEN)' AND p.prs_perslid_key = rrr.res_rsv_ruimte_contact_key - AND rrr.res_rsv_ruimte_aanmaak - BETWEEN f.fac_notificatie_job_lastrun + AND rrr.res_rsv_ruimte_aanmaak + BETWEEN f.fac_notificatie_job_lastrun AND f.fac_notificatie_job_nextrun; @@ -2881,7 +2881,7 @@ CREATE OR REPLACE VIEW PIVP_V_NIEUWEGEBRUIKERS aanmaakdatum ) AS - SELECT p.prs_perslid_key,p.prs_perslid_naam, p.prs_perslid_voornaam, prs_perslid_email, prs_perslid_aanmaak + SELECT p.prs_perslid_key,p.prs_perslid_naam, p.prs_perslid_voornaam, prs_perslid_email, prs_perslid_aanmaak FROM prs_perslid p, fac_gebruikersgroep fg, fac_groep fgr WHERE p.prs_perslid_aanmaak> SYSDATE-1 AND p.prs_perslid_verwijder IS NULL @@ -2901,12 +2901,12 @@ CREATE OR REPLACE VIEW PIVP_V_NOTI_NIEUWEGEBRUIKER xemail, xmobile ) -AS +AS SELECT NULL, 112, -- REANNE 'Gebruiker '||Naam||', '||Voornaam||' heeft zich op '||TO_CHAR(aanmaakdatum,'DD-MM-YYYY')||' geregistreerd op pivp.facilitor.nl', 'CUST02', - perslid_key, + perslid_key, NULL, NULL, NULL @@ -2916,74 +2916,74 @@ AS 110, -- JOHN TIESSENS 'Gebruiker '||Naam||', '||Voornaam||' heeft zich op '||TO_CHAR(aanmaakdatum,'DD-MM-YYYY')||' geregistreerd op pivp.facilitor.nl', 'CUST02', - perslid_key, + perslid_key, NULL, NULL, NULL FROM pivp_v_nieuwegebruikers; - -CREATE OR REPLACE VIEW PIVP_V_MLDEXPORT + +CREATE OR REPLACE VIEW PIVP_V_MLDEXPORT AS - SELECT m.mld_melding_key melding_key, - msm.mld_stdmelding_omschrijving stdmelding, - md.ins_discipline_omschrijving vagroep, + SELECT m.mld_melding_key melding_key, + msm.mld_stdmelding_omschrijving stdmelding, + md.ins_discipline_omschrijving vagroep, isd.ins_srtdiscipline_omschrijving vakgroepType, - m.mld_melding_onderwerp onderwerp, - m.mld_melding_datum aanmaakdatum, - (SELECT MAX(ft.fac_tracking_datum) - FROM fac_tracking ft + m.mld_melding_onderwerp onderwerp, + m.mld_melding_datum aanmaakdatum, + (SELECT MAX(ft.fac_tracking_datum) + FROM fac_tracking ft WHERE ft.fac_srtnotificatie_key=47 -- MLDAFM - AND ft.fac_tracking_refkey=m.mld_melding_key) afmelddatum, - p.prs_perslid_key aanvrager, + AND ft.fac_tracking_refkey=m.mld_melding_key) afmelddatum, + p.prs_perslid_key aanvrager, p.prs_afdeling_key bedrijf_key, pa.prs_afdeling_omschrijving bedrijf_naam, pa.prs_afdeling_naam debiteurnr, mkm.mld_kenmerkmelding_waarde factuurbedrag, - SUBSTR(md.ins_discipline_omschrijving,1,6) vakgroep_code, + SUBSTR(md.ins_discipline_omschrijving,1,6) vakgroep_code, (SElECT SUBSTR(d.FAC_USRDATA_OMSCHR,0,6) - FROM mld_kenmerk mk1, mld_kenmerkmelding mkm1, pivp_v_diensten d + FROM mld_kenmerk mk1, mld_kenmerkmelding mkm1, pivp_v_diensten d WHERE UPPER(mk1.mld_kenmerk_omschrijving)='DIENSTEN CODE' AND mkm1.mld_kenmerk_key = mk1.MLD_KENMERK_KEY AND mkm1.mld_melding_key = m.mld_melding_key AND d.fac_usrdata_key = fac.safe_to_number(mkm1.mld_kenmerkmelding_waarde)) dienstencode, (SElECT mkm1.MLD_KENMERKMELDING_WAARDE - FROM mld_kenmerk mk1, mld_kenmerkmelding mkm1 + FROM mld_kenmerk mk1, mld_kenmerkmelding mkm1 WHERE UPPER(mk1.mld_kenmerk_omschrijving)='UW REFERENTIE' AND mkm1.mld_kenmerk_key = mk1.MLD_KENMERK_KEY AND mkm1.mld_melding_key = m.mld_melding_key) ponummer, (SElECT mkm1.MLD_KENMERKMELDING_WAARDE - FROM mld_kenmerk mk1, mld_kenmerkmelding mkm1 + FROM mld_kenmerk mk1, mld_kenmerkmelding mkm1 WHERE UPPER(mk1.mld_kenmerk_omschrijving)='FACTUUR INFO' AND mkm1.mld_kenmerk_key = mk1.MLD_KENMERK_KEY AND mkm1.mld_melding_key = m.mld_melding_key) factuurinfo, (SElECT mkm1.MLD_KENMERKMELDING_WAARDE - FROM mld_kenmerk mk1, mld_kenmerkmelding mkm1 + FROM mld_kenmerk mk1, mld_kenmerkmelding mkm1 WHERE UPPER(mk1.mld_kenmerk_omschrijving)='P2P ORDERNR' AND mkm1.mld_kenmerk_key = mk1.MLD_KENMERK_KEY - AND mkm1.mld_melding_key = m.mld_melding_key) p2pordernr - FROM mld_melding m , - prs_perslid p, - prs_afdeling pa, - mld_stdmelding msm, - mld_discipline md, - ins_srtdiscipline isd , - mld_kenmerkmelding mkm, + AND mkm1.mld_melding_key = m.mld_melding_key) p2pordernr + FROM mld_melding m , + prs_perslid p, + prs_afdeling pa, + mld_stdmelding msm, + mld_discipline md, + ins_srtdiscipline isd , + mld_kenmerkmelding mkm, mld_kenmerk mk - WHERE m.mld_melding_status=5 - AND m.prs_perslid_key=p.prs_perslid_key + WHERE m.mld_melding_status=5 + AND m.prs_perslid_key=p.prs_perslid_key AND pa.prs_afdeling_key=p.prs_afdeling_key AND pa.prs_bedrijf_key <> (SELECT prs_bedrijf_key -- alleen aanvrage die door niet PP medewrkers zijn gedaan - FROM prs_bedrijf pb + FROM prs_bedrijf pb WHERE pb.prs_bedrijf_naam_upper='PIVOTPARK') AND msm.mld_stdmelding_key = m.mld_stdmelding_key AND md.ins_discipline_key= msm.mld_ins_discipline_key - AND isd.ins_srtdiscipline_key = md.ins_srtdiscipline_key + AND isd.ins_srtdiscipline_key = md.ins_srtdiscipline_key -- AND m.mld_melding_einddatum BETWEEN TO_DATE('01-08-2022','dd-mm-yyyy') AND SYSDATE - AND UPPER(mk.mld_kenmerk_omschrijving)='FACTUUR BEDRAG' + AND UPPER(mk.mld_kenmerk_omschrijving)='FACTUUR BEDRAG' AND mkm.mld_melding_key = m.mld_melding_key AND mkm.mld_kenmerk_key=mk.mld_kenmerk_key AND fac.safe_to_number(mkm.mld_kenmerkmelding_waarde)>0 @@ -2993,120 +2993,120 @@ AS CREATE OR REPLACE VIEW PIVP_V_CONTACTEXPORT AS - SELECT mld_melding_key, - (SELECT mkm.mld_kenmerkmelding_waarde - FROM mld_kenmerkmelding mkm, mld_kenmerk mk - WHERE mkm.mld_melding_key=m.mld_melding_key + SELECT mld_melding_key, + (SELECT mkm.mld_kenmerkmelding_waarde + FROM mld_kenmerkmelding mkm, mld_kenmerk mk + WHERE mkm.mld_melding_key=m.mld_melding_key AND mkm.mld_kenmerk_key=mk.mld_kenmerk_key AND UPPER(mk.mld_kenmerk_omschrijving)='VOORNAAM PASHOUDER' AND mk.mld_stdmelding_key=m.mld_stdmelding_key) voornaam, - (SELECT mkm.mld_kenmerkmelding_waarde - FROM mld_kenmerkmelding mkm, mld_kenmerk mk - WHERE mkm.mld_melding_key=m.mld_melding_key + (SELECT mkm.mld_kenmerkmelding_waarde + FROM mld_kenmerkmelding mkm, mld_kenmerk mk + WHERE mkm.mld_melding_key=m.mld_melding_key AND mkm.mld_kenmerk_key=mk.mld_kenmerk_key AND UPPER(mk.mld_kenmerk_omschrijving)='TUSSENVOEGSEL PASHOUDER' AND mk.mld_stdmelding_key=m.mld_stdmelding_key) tussenvoegsel, - (SELECT mkm.mld_kenmerkmelding_waarde - FROM mld_kenmerkmelding mkm, mld_kenmerk mk - WHERE mkm.mld_melding_key=m.mld_melding_key + (SELECT mkm.mld_kenmerkmelding_waarde + FROM mld_kenmerkmelding mkm, mld_kenmerk mk + WHERE mkm.mld_melding_key=m.mld_melding_key AND mkm.mld_kenmerk_key=mk.mld_kenmerk_key AND UPPER(mk.mld_kenmerk_omschrijving)='ACHTERNAAM PASHOUDER' AND mk.mld_stdmelding_key=m.mld_stdmelding_key) achternaam, pa.prs_afdeling_naam debiteurnr, - (SELECT mkm.mld_kenmerkmelding_waarde - FROM mld_kenmerkmelding mkm, mld_kenmerk mk - WHERE mkm.mld_melding_key=m.mld_melding_key + (SELECT mkm.mld_kenmerkmelding_waarde + FROM mld_kenmerkmelding mkm, mld_kenmerk mk + WHERE mkm.mld_melding_key=m.mld_melding_key AND mkm.mld_kenmerk_key=mk.mld_kenmerk_key AND UPPER(mk.mld_kenmerk_omschrijving)='BEDRIJFSMAILADRES PASHOUDER' AND mk.mld_stdmelding_key=m.mld_stdmelding_key) email, - (SELECT COALESCE(mkm.mld_kenmerkmelding_waarde,'-') - FROM mld_kenmerkmelding mkm, mld_kenmerk mk - WHERE mkm.mld_melding_key=m.mld_melding_key + (SELECT COALESCE(mkm.mld_kenmerkmelding_waarde,'-') + FROM mld_kenmerkmelding mkm, mld_kenmerk mk + WHERE mkm.mld_melding_key=m.mld_melding_key AND mkm.mld_kenmerk_key=mk.mld_kenmerk_key AND UPPER(mk.mld_kenmerk_omschrijving)='FUNCTIE' AND mk.mld_stdmelding_key=m.mld_stdmelding_key) Functie, - (SELECT mkm.mld_kenmerkmelding_waarde - FROM mld_kenmerkmelding mkm, mld_kenmerk mk - WHERE mkm.mld_melding_key=m.mld_melding_key + (SELECT mkm.mld_kenmerkmelding_waarde + FROM mld_kenmerkmelding mkm, mld_kenmerk mk + WHERE mkm.mld_melding_key=m.mld_melding_key AND mkm.mld_kenmerk_key=mk.mld_kenmerk_key AND UPPER(mk.mld_kenmerk_omschrijving)='AFDELING' AND mk.mld_stdmelding_key=m.mld_stdmelding_key) afdeling, - (SELECT mkm.mld_kenmerkmelding_waarde + (SELECT mkm.mld_kenmerkmelding_waarde FROM mld_kenmerkmelding mkm , mld_kenmerk mk - WHERE mkm.mld_melding_key=m.mld_melding_key + WHERE mkm.mld_melding_key=m.mld_melding_key AND mkm.mld_kenmerk_key=mk.mld_kenmerk_key AND UPPER(mk.mld_kenmerk_omschrijving)='ALGEMEEN TELEFOONNR' AND mk.mld_stdmelding_key=m.mld_stdmelding_key) telefoonnummer, - (SELECT mkm.mld_kenmerkmelding_waarde - FROM mld_kenmerkmelding mkm, mld_kenmerk mk - WHERE mkm.mld_melding_key=m.mld_melding_key + (SELECT mkm.mld_kenmerkmelding_waarde + FROM mld_kenmerkmelding mkm, mld_kenmerk mk + WHERE mkm.mld_melding_key=m.mld_melding_key AND mkm.mld_kenmerk_key=mk.mld_kenmerk_key AND UPPER(mk.mld_kenmerk_omschrijving)='MOBIEL NR' AND mk.mld_stdmelding_key=m.mld_stdmelding_key) mobiel, - (SELECT fu.fac_usrdata_omschr - FROM mld_kenmerkmelding mkm, mld_kenmerk mk, fac_usrdata fu - WHERE mkm.mld_melding_key=m.mld_melding_key + (SELECT fu.fac_usrdata_omschr + FROM mld_kenmerkmelding mkm, mld_kenmerk mk, fac_usrdata fu + WHERE mkm.mld_melding_key=m.mld_melding_key AND mkm.mld_kenmerk_key=mk.mld_kenmerk_key AND UPPER(mk.mld_kenmerk_omschrijving)='VOORKEURSTAAL' AND mk.mld_stdmelding_key=m.mld_stdmelding_key AND fu.fac_usrdata_key=mkm.mld_kenmerkmelding_waarde) voorkeurstaal, - DECODE((SELECT mkm.mld_kenmerkmelding_waarde - FROM mld_kenmerkmelding mkm, mld_kenmerk mk - WHERE mkm.mld_melding_key=m.mld_melding_key + DECODE((SELECT mkm.mld_kenmerkmelding_waarde + FROM mld_kenmerkmelding mkm, mld_kenmerk mk + WHERE mkm.mld_melding_key=m.mld_melding_key AND mkm.mld_kenmerk_key=mk.mld_kenmerk_key AND UPPER(mk.mld_kenmerk_omschrijving)='CXO' AND mk.mld_stdmelding_key=m.mld_stdmelding_key),'1','Yes','','No') CxO, - DECODE((SELECT mkm.MLD_KENMERKMELDING_WAARDE - FROM mld_kenmerkmelding mkm, mld_kenmerk mk - WHERE mkm.mld_melding_key=m.mld_melding_key + DECODE((SELECT mkm.MLD_KENMERKMELDING_WAARDE + FROM mld_kenmerkmelding mkm, mld_kenmerk mk + WHERE mkm.mld_melding_key=m.mld_melding_key AND mkm.mld_kenmerk_key=mk.mld_kenmerk_key AND UPPER(mk.mld_kenmerk_omschrijving)='EHS' AND mk.mld_stdmelding_key=m.mld_stdmelding_key),'1','Yes','','No') EHS, - DECODE((SELECT mkm.MLD_KENMERKMELDING_WAARDE - FROM mld_kenmerkmelding mkm, mld_kenmerk mk - WHERE mkm.mld_melding_key=m.mld_melding_key + DECODE((SELECT mkm.MLD_KENMERKMELDING_WAARDE + FROM mld_kenmerkmelding mkm, mld_kenmerk mk + WHERE mkm.mld_melding_key=m.mld_melding_key AND mkm.mld_kenmerk_key=mk.mld_kenmerk_key AND UPPER(mk.mld_kenmerk_omschrijving)='OPERATIONS' AND mk.mld_stdmelding_key=m.mld_stdmelding_key),'1','Yes','','No') operations, - DECODE((SELECT mkm.mld_kenmerkmelding_waarde - FROM mld_kenmerkmelding mkm, mld_kenmerk mk - WHERE mkm.mld_melding_key=m.mld_melding_key + DECODE((SELECT mkm.mld_kenmerkmelding_waarde + FROM mld_kenmerkmelding mkm, mld_kenmerk mk + WHERE mkm.mld_melding_key=m.mld_melding_key AND mkm.mld_kenmerk_key=mk.mld_kenmerk_key AND UPPER(mk.mld_kenmerk_omschrijving)='SECRETARIAAT' AND mk.mld_stdmelding_key=m.mld_stdmelding_key),'1','Yes','','No') Secr, - DECODE((SELECT mkm.mld_kenmerkmelding_waarde - FROM mld_kenmerkmelding mkm, mld_kenmerk mk - WHERE mkm.mld_melding_key=m.mld_melding_key + DECODE((SELECT mkm.mld_kenmerkmelding_waarde + FROM mld_kenmerkmelding mkm, mld_kenmerk mk + WHERE mkm.mld_melding_key=m.mld_melding_key AND mkm.mld_kenmerk_key=mk.mld_kenmerk_key AND UPPER(mk.mld_kenmerk_omschrijving)='MEDEWERKER' AND mk.mld_stdmelding_key=m.mld_stdmelding_key),'1','Yes','','No') medw, - DECODE((SELECT mkm.mld_kenmerkmelding_waarde - FROM mld_kenmerkmelding mkm, mld_kenmerk mk - WHERE mkm.mld_melding_key=m.mld_melding_key + DECODE((SELECT mkm.mld_kenmerkmelding_waarde + FROM mld_kenmerkmelding mkm, mld_kenmerk mk + WHERE mkm.mld_melding_key=m.mld_melding_key AND mkm.mld_kenmerk_key=mk.mld_kenmerk_key AND UPPER(mk.mld_kenmerk_omschrijving)='COMMUNITY NEWSLETTER' AND mk.mld_stdmelding_key=m.mld_stdmelding_key),61,'Yes','No') comm_letter, DECODE((SELECT mkm.mld_kenmerkmelding_waarde - FROM mld_kenmerkmelding mkm, mld_kenmerk mk - WHERE mkm.mld_melding_key=m.mld_melding_key + FROM mld_kenmerkmelding mkm, mld_kenmerk mk + WHERE mkm.mld_melding_key=m.mld_melding_key AND mkm.mld_kenmerk_key=mk.mld_kenmerk_key AND UPPER(mk.mld_kenmerk_omschrijving)='CORPORATE NEWSLETTER' AND mk.mld_stdmelding_key=m.mld_stdmelding_key),61,'Yes','No') corp_letter, DECODE((SELECT mkm.mld_kenmerkmelding_waarde - FROM mld_kenmerkmelding mkm, mld_kenmerk mk - WHERE mkm.mld_melding_key=m.mld_melding_key + FROM mld_kenmerkmelding mkm, mld_kenmerk mk + WHERE mkm.mld_melding_key=m.mld_melding_key AND mkm.mld_kenmerk_key=mk.mld_kenmerk_key AND UPPER(mk.mld_kenmerk_omschrijving)='ACTIVITEITEN NEWSLETTER' - AND mk.mld_stdmelding_key=m.mld_stdmelding_key),61,'Yes','No') act_letter + AND mk.mld_stdmelding_key=m.mld_stdmelding_key),61,'Yes','No') act_letter FROM mld_melding m, mld_stdmelding msm, prs_perslid p, prs_afdeling pa WHERE m.mld_stdmelding_key= msm.mld_stdmelding_key AND UPPER(msm.mld_stdmelding_omschrijving)='TOEGANGSPAS VOOR BEWONER' ---m.mld_stdmelding_key=1421 -- A=1421 O/P=87 - AND m.mld_melding_status=5 -- Melding moet afgemeld zijn - AND m.mld_melding_externsyncdate IS NULl + AND m.mld_melding_status=5 -- Melding moet afgemeld zijn + AND m.mld_melding_externsyncdate IS NULl AND p.prs_perslid_key=m.prs_perslid_key AND pa.prs_afdeling_key = p.prs_afdeling_key; - + @@ -3117,17 +3117,17 @@ CREATE OR REPLACE VIEW PIVP_V_THEMA_HUURDERS waarde ) AS - SELECT r.alg_ruimte_key, - (SELECT PRS_LEVERANCIER_NR - FROM prs_bedrijf + SELECT r.alg_ruimte_key, + (SELECT PRS_LEVERANCIER_NR + FROM prs_bedrijf WHERE prs_bedrijf_key=aok.ALG_ONRGOEDKENMERK_WAARDE) waarde - FROM alg_ruimte r, - alg_kenmerk ak, - alg_onrgoedkenmerk aok - WHERE ak.alg_kenmerk_omschrijving='Huurder' - AND ak.alg_kenmerk_niveau='R' - AND aok.alg_kenmerk_key = ak.alg_kenmerk_key - AND r.alg_ruimte_key=aok.alg_onrgoed_key(+); + FROM alg_ruimte r, + alg_kenmerk ak, + alg_onrgoedkenmerk aok + WHERE ak.alg_kenmerk_omschrijving='Huurder' + AND ak.alg_kenmerk_niveau='R' + AND aok.alg_kenmerk_key = ak.alg_kenmerk_key + AND r.alg_ruimte_key=aok.alg_onrgoed_key(+); @@ -3136,56 +3136,56 @@ CREATE OR REPLACE VIEW PIVP_V_ZAALMUT AS SELECT rrr.res_reservering_key, rrr.res_rsv_ruimte_volgnr, - rr.res_ruimte_nr, - rrr.res_rsv_ruimte_van, + rr.res_ruimte_nr, + rrr.res_rsv_ruimte_van, rrr.res_rsv_ruimte_tot, ft.fac_tracking_oms, - ft.fac_tracking_datum - FROM res_rsv_ruimte rrr, - res_ruimte_opstelling rro, + ft.fac_tracking_datum + FROM res_rsv_ruimte rrr, + res_ruimte_opstelling rro, res_ruimte rr, - fac_tracking ft + fac_tracking ft WHERE rrr.res_status_bo_key=2 AND rrr.res_rsv_ruimte_van > SYSDATE - AND rro.res_ruimte_opstel_key = rrr.res_ruimte_opstel_key + AND rro.res_ruimte_opstel_key = rrr.res_ruimte_opstel_key AND rr.res_ruimte_key = rro.res_ruimte_key AND rr.res_ruimte_key IN (45,61) AND ft.fac_tracking_refkey = rrr.res_rsv_ruimte_key AND ft.fac_srtnotificatie_key = 117 AND ft.fac_tracking_datum> SYSDATE-1; - + CREATE OR REPLACE VIEW PIVP_V_ZAALRESREVERING AS SELECT rrr.res_rsv_ruimte_key, rrr.res_reservering_key, rrr.RES_RSV_RUIMTE_VOLGNR, - rr.res_ruimte_nr, + rr.res_ruimte_nr, TRUNC(rrr.res_rsv_ruimte_van) datum, TO_CHAR(rrr.res_rsv_ruimte_van,'HH24:MI') van, - TO_CHAR(rrr.res_rsv_ruimte_tot,'HH24:MI') tot, - RES.GETRESRUIMTEPRIJS(rr.res_ruimte_key,rrr.res_rsv_ruimte_van, rrr.res_rsv_ruimte_tot) prijs, - p.prs_perslid_naam, - pa.prs_afdeling_omschrijving, - pa.prs_afdeling_naam - FROM res_rsv_ruimte rrr, - res_activiteit ra, - res_activiteitdiscipline rad, - prs_perslid p, - prs_afdeling pa, - res_ruimte_opstelling rro, + TO_CHAR(rrr.res_rsv_ruimte_tot,'HH24:MI') tot, + RES.GETRESRUIMTEPRIJS(rr.res_ruimte_key,rrr.res_rsv_ruimte_van, rrr.res_rsv_ruimte_tot) prijs, + p.prs_perslid_naam, + pa.prs_afdeling_omschrijving, + pa.prs_afdeling_naam + FROM res_rsv_ruimte rrr, + res_activiteit ra, + res_activiteitdiscipline rad, + prs_perslid p, + prs_afdeling pa, + res_ruimte_opstelling rro, res_ruimte rr WHERE rrr.res_status_bo_key=5 - AND rro.res_ruimte_opstel_key = rrr.res_ruimte_opstel_key - AND rr.res_ruimte_key = rro.res_ruimte_key - AND ra.res_activiteit_key=10 - AND ra.res_activiteit_key=rrr.res_activiteit_key - AND rad.res_activiteit_key=ra.res_activiteit_key + AND rro.res_ruimte_opstel_key = rrr.res_ruimte_opstel_key + AND rr.res_ruimte_key = rro.res_ruimte_key + AND ra.res_activiteit_key=10 + AND ra.res_activiteit_key=rrr.res_activiteit_key + AND rad.res_activiteit_key=ra.res_activiteit_key AND rad.res_discipline_key=21 -- alleen betaalde zalen O=21 A=281, P=21 - AND p.prs_perslid_key=rrr.res_rsv_ruimte_host_key - AND pa.prs_afdeling_key=p.prs_afdeling_key - AND pa.prs_bedrijf_key<>81 -- PIVP uitsluiten O=81, P=81 + AND p.prs_perslid_key=rrr.res_rsv_ruimte_host_key + AND pa.prs_afdeling_key=p.prs_afdeling_key + AND pa.prs_bedrijf_key<>81 -- PIVP uitsluiten O=81, P=81 AND res.getresruimteprijs(rr.res_ruimte_key,rrr.res_rsv_ruimte_van, rrr.res_rsv_ruimte_tot) > 0; @@ -3200,9 +3200,9 @@ CREATE OR REPLACE VIEW PIVP_V_RESEXPORT van, tot, bedrag, - reserveerder, - bedrijf_naam, - debiteurnr, + reserveerder, + bedrijf_naam, + debiteurnr, verwijderdatum, externsyncdate, ponummer @@ -3212,44 +3212,44 @@ AS rrr.res_reservering_key, rrr.RES_RSV_RUIMTE_VOLGNR, rr.res_ruimte_nr, - rrr.res_rsv_ruimte_van, + rrr.res_rsv_ruimte_van, TRUNC(rrr.res_rsv_ruimte_van) datum, TO_CHAR(rrr.res_rsv_ruimte_van,'HH24:MI') van, TO_CHAR(rrr.res_rsv_ruimte_tot,'HH24:MI') tot, - COALESCE(rrr.res_rsv_ruimte_totaal,res.getresruimteprijs(rr.res_ruimte_key,rrr.res_rsv_ruimte_van, rrr.res_rsv_ruimte_tot)) prijs, - -- res.getresruimteprijs(rr.res_ruimte_key,rrr.res_rsv_ruimte_van, rrr.res_rsv_ruimte_tot) org_prijs, - p.prs_perslid_naam, - pa.prs_afdeling_omschrijving, + COALESCE(rrr.res_rsv_ruimte_totaal,res.getresruimteprijs(rr.res_ruimte_key,rrr.res_rsv_ruimte_van, rrr.res_rsv_ruimte_tot)) prijs, + -- res.getresruimteprijs(rr.res_ruimte_key,rrr.res_rsv_ruimte_van, rrr.res_rsv_ruimte_tot) org_prijs, + p.prs_perslid_naam, + pa.prs_afdeling_omschrijving, pa.prs_afdeling_naam, rrr.res_rsv_ruimte_verwijder, rrr.res_rsv_ruimte_externsyncdate, - (SELECT rkw.res_kenmerkreservering_waarde - FROM res_srtkenmerk rs, res_kenmerk rk, res_kenmerkwaarde rkw - WHERE rs.res_srtkenmerk_upper='PONUMMER' + (SELECT rkw.res_kenmerkreservering_waarde + FROM res_srtkenmerk rs, res_kenmerk rk, res_kenmerkwaarde rkw + WHERE rs.res_srtkenmerk_upper='PONUMMER' AND rk.res_srtkenmerk_key=rs.res_srtkenmerk_key AND rkw.res_kenmerk_key=rk.res_kenmerk_key - AND rkw.res_rsv_ruimte_key=rrr.res_rsv_ruimte_key) ponummer - FROM res_rsv_ruimte rrr, - res_activiteit ra, + AND rkw.res_rsv_ruimte_key=rrr.res_rsv_ruimte_key) ponummer + FROM res_rsv_ruimte rrr, + res_activiteit ra, res_activiteitdiscipline rad, - res_discipline rdi, - prs_perslid p, + res_discipline rdi, + prs_perslid p, prs_afdeling pa, - prs_bedrijf pb, - res_ruimte_opstelling rro, + prs_bedrijf pb, + res_ruimte_opstelling rro, res_ruimte rr WHERE rrr.res_status_bo_key=5 - AND rro.res_ruimte_opstel_key = rrr.res_ruimte_opstel_key - AND rr.res_ruimte_key = rro.res_ruimte_key + AND rro.res_ruimte_opstel_key = rrr.res_ruimte_opstel_key + AND rr.res_ruimte_key = rro.res_ruimte_key AND ra.res_activiteit_key IN (10, 50) - AND ra.res_activiteit_key=rrr.res_activiteit_key - AND rad.res_activiteit_key=ra.res_activiteit_key + AND ra.res_activiteit_key=rrr.res_activiteit_key + AND rad.res_activiteit_key=ra.res_activiteit_key AND rdi.ins_discipline_key = rad.res_discipline_key - AND UPPER(rdi.ins_discipline_omschrijving) IN ('PIVOT PARK (BETAALDE ZALEN)','PIVOT PARK (SPECIALE ZALEN)') -- alleen betaalde zalen - AND p.prs_perslid_key=rrr.res_rsv_ruimte_host_key - AND pa.prs_afdeling_key=p.prs_afdeling_key + AND UPPER(rdi.ins_discipline_omschrijving) IN ('PIVOT PARK (BETAALDE ZALEN)','PIVOT PARK (SPECIALE ZALEN)') -- alleen betaalde zalen + AND p.prs_perslid_key=rrr.res_rsv_ruimte_host_key + AND pa.prs_afdeling_key=p.prs_afdeling_key AND pa.prs_bedrijf_key=pb.prs_bedrijf_key - AND pb.prs_bedrijf_naam_upper<>'PIVOTPARK' -- PIVP uitsluiten voor facturatie + AND pb.prs_bedrijf_naam_upper<>'PIVOTPARK' -- PIVP uitsluiten voor facturatie AND res.getresruimteprijs(rr.res_ruimte_key,rrr.res_rsv_ruimte_van, rrr.res_rsv_ruimte_tot) > 0 AND rrr.res_rsv_ruimte_dirtlevel=0; @@ -3271,23 +3271,23 @@ AS debieteur, bedrijfsnaam, bo_status, - beschikbaar ) + beschikbaar ) AS SELECT rrr.res_rsv_ruimte_key, rrr.res_reservering_key, rrr.res_rsv_ruimte_volgnr, - rr.res_ruimte_nr, - rd.ins_discipline_omschrijving, + rr.res_ruimte_nr, + rd.ins_discipline_omschrijving, rrr.res_rsv_ruimte_van, rrr.res_rsv_ruimte_tot, res.getdeelresprijs(rrr.res_rsv_ruimte_key) prijs, - to_char(rrr.res_rsv_ruimte_van,'MM-YYYY') maand, + to_char(rrr.res_rsv_ruimte_van,'MM-YYYY') maand, (rrr.res_rsv_ruimte_tot-rrr.res_rsv_ruimte_van)*24 duur, (SELECT prs_perslid_naam_friendly FROM prs_v_perslid_fullnames_all where prs_perslid_key=p.prs_perslid_key) aanvrager, pb.prs_bedrijf_naam, pa.prs_afdeling_naam, pa.prs_afdeling_omschrijving, - rsb.res_status_bo_omschrijving, + rsb.res_status_bo_omschrijving, 10 uur_beschikbaar FROM res_rsv_ruimte rrr, res_activiteit ra, @@ -3297,11 +3297,11 @@ AS prs_perslid p, prs_afdeling pa, prs_bedrijf pb, - res_status_bo rsb - where rrr.res_rsv_ruimte_verwijder IS NULL + res_status_bo rsb + where rrr.res_rsv_ruimte_verwijder IS NULL AND rrr.res_status_fo_key IN (1,2) AND p.prs_perslid_key = rrr.res_rsv_ruimte_host_key - AND pa.prs_afdeling_key = p.prs_afdeling_key + AND pa.prs_afdeling_key = p.prs_afdeling_key AND pb.prs_bedrijf_key = pa.prs_bedrijf_key AND ra.res_activiteit_key = rrr.res_activiteit_key AND ra.res_activiteit_key =10 -- alleen vergaderingen @@ -3309,7 +3309,7 @@ AS AND rr.res_ruimte_key = rro.res_ruimte_key AND rd.ins_discipline_key=rr.res_discipline_key AND rsb.res_status_bo_key = rrr.res_status_bo_key; - + CREATE OR REPLACE VIEW PIVP_V_RAP_ZAALBEZETTING ( @@ -3319,15 +3319,15 @@ CREATE OR REPLACE VIEW PIVP_V_RAP_ZAALBEZETTING percentage ) AS - SELECT ruimte_nr, + SELECT ruimte_nr, maand, - to_char(datum_van,'YYYY-MM'), - SUM(duur)/SUM(beschikbaar)*100 percentage - FROM pivp_v_rap_zaalres - WHERE UPPER(bedrijfsonderdeel) NOT like '%PIVOTPARK%' - GROUP by ruimte_nr, maand, datum_van; - - + to_char(datum_van,'YYYY-MM'), + SUM(duur)/SUM(beschikbaar)*100 percentage + FROM pivp_v_rap_zaalres + WHERE UPPER(bedrijfsonderdeel) NOT like '%PIVOTPARK%' + GROUP by ruimte_nr, maand, datum_van; + + CREATE OR REPLACE VIEW PIVP_V_RAP_ZAALBEZETTING_ALL ( ruimte_nr, @@ -3336,52 +3336,52 @@ CREATE OR REPLACE VIEW PIVP_V_RAP_ZAALBEZETTING_ALL percentage ) AS - SELECT ruimte_nr, + SELECT ruimte_nr, maand, - to_char(datum_van,'YYYY-MM'), - SUM(duur)/SUM(beschikbaar)*100 percentage - FROM pivp_v_rap_zaalres - GROUP by ruimte_nr, maand, datum_van; + to_char(datum_van,'YYYY-MM'), + SUM(duur)/SUM(beschikbaar)*100 percentage + FROM pivp_v_rap_zaalres + GROUP by ruimte_nr, maand, datum_van; CREATE OR REPLACE VIEW PIVP_V_RAP_KLACHTEN AS - SELECT NVL(m.mld_melding_start_key,m.mld_melding_key) hoofd_key, + SELECT NVL(m.mld_melding_start_key,m.mld_melding_key) hoofd_key, m.mld_melding_key, - DECODE(UPPER(ms.mld_stdmelding_omschrijving), 'PREVENTIEVE MAATREGEL','PREVENTIEVE MAATREGEL','CORRECTIEVE MAATREGEL','CORRECTIEVE MAATREGEL','HOOFDMELDING') soort, + DECODE(UPPER(ms.mld_stdmelding_omschrijving), 'PREVENTIEVE MAATREGEL','PREVENTIEVE MAATREGEL','CORRECTIEVE MAATREGEL','CORRECTIEVE MAATREGEL','HOOFDMELDING') soort, m.mld_melding_onderwerp, - m.mld_melding_omschrijving, - TO_CHAR(m.mld_melding_datum,'DD-MM-YYYY') mld_melding_datum, + m.mld_melding_omschrijving, + TO_CHAR(m.mld_melding_datum,'DD-MM-YYYY') mld_melding_datum, TO_CHAR(COALESCE(m.mld_melding_einddatum,m.mld_melding_einddatum_std),'DD-MM-YYYY') mld_plandatum, TO_CHAR(m.mld_melding_locked_date,'DD-MM-YYYY') mld_afmelddatum, - (SELECT s.mld_statuses_omschrijving - FROM mld_statuses s - WHERE s.mld_statuses_key= m.mld_melding_status) mld_status, - (SELECT p.prs_perslid_naam_friendly + (SELECT s.mld_statuses_omschrijving + FROM mld_statuses s + WHERE s.mld_statuses_key= m.mld_melding_status) mld_status, + (SELECT p.prs_perslid_naam_friendly FROM prs_v_perslid_fullnames p - WHERE p.prs_perslid_key = m.mld_melding_behandelaar_key) behandelaar, - (SELECT SUBSTR(p.prs_perslid_voornaam,1,1)||SUBSTR(p.prs_perslid_naam,1,1) - FROM prs_perslid p - WHERE p.prs_perslid_key=m.mld_melding_behandelaar_key) initialen, - (SELECT COALESCE(p.prs_perslid_telefoonnr, p.prs_perslid_mobiel) + WHERE p.prs_perslid_key = m.mld_melding_behandelaar_key) behandelaar, + (SELECT SUBSTR(p.prs_perslid_voornaam,1,1)||SUBSTR(p.prs_perslid_naam,1,1) + FROM prs_perslid p + WHERE p.prs_perslid_key=m.mld_melding_behandelaar_key) initialen, + (SELECT COALESCE(p.prs_perslid_telefoonnr, p.prs_perslid_mobiel) FROM prs_perslid p - WHERE p.prs_perslid_key = m.mld_melding_behandelaar_key) beh_telefoon, - (SELECT p.prs_perslid_naam_friendly + WHERE p.prs_perslid_key = m.mld_melding_behandelaar_key) beh_telefoon, + (SELECT p.prs_perslid_naam_friendly FROM prs_v_perslid_fullnames p WHERE p.prs_perslid_key = m.prs_perslid_key) aanvrager, - (SELECT pa.prs_afdeling_naam from prs_afdeling pa, prs_perslid p - WHERE p.prs_perslid_key=m.prs_perslid_key + (SELECT pa.prs_afdeling_naam from prs_afdeling pa, prs_perslid p + WHERE p.prs_perslid_key=m.prs_perslid_key AND pa.prs_afdeling_key=p.prs_afdeling_key) bedrijf_nr, - (SELECT pa.prs_afdeling_omschrijving from prs_afdeling pa, prs_perslid p - WHERE p.prs_perslid_key=m.prs_perslid_key - AND pa.prs_afdeling_key=p.prs_afdeling_key) bedrijf, + (SELECT pa.prs_afdeling_omschrijving from prs_afdeling pa, prs_perslid p + WHERE p.prs_perslid_key=m.prs_perslid_key + AND pa.prs_afdeling_key=p.prs_afdeling_key) bedrijf, m.mld_melding_opmerking, - (SELECT p.prs_perslid_naam_friendly + (SELECT p.prs_perslid_naam_friendly FROM fac_tracking ft, prs_v_perslid_fullnames p WHERE ft.fac_tracking_refkey=534 AND ft.fac_srtnotificatie_key=47 AND p.prs_perslid_key = ft.prs_perslid_key) afmelder, - (SELECT fud.fac_usrdata_omschr FROM mld_kenmerkmelding km, mld_kenmerk k, fac_usrdata fud + (SELECT fud.fac_usrdata_omschr FROM mld_kenmerkmelding km, mld_kenmerk k, fac_usrdata fud where km.mld_melding_key=m.mld_melding_key AND k.mld_kenmerk_key = km.mld_kenmerk_key AND UPPER(k.mld_kenmerk_omschrijving)='BETREFT FM NUMMER' @@ -3397,12 +3397,12 @@ AS (SELECT km.mld_kenmerkmelding_waarde FROM mld_kenmerkmelding km, mld_kenmerk k WHERE km.mld_melding_key=m.mld_melding_key AND k.mld_kenmerk_key = km.mld_kenmerk_key - AND UPPER(k.mld_kenmerk_omschrijving)='DATUM GEREED') datum_gereed - FROM mld_melding m , mld_stdmelding ms, mld_discipline md, ins_srtdiscipline isd + AND UPPER(k.mld_kenmerk_omschrijving)='DATUM GEREED') datum_gereed + FROM mld_melding m , mld_stdmelding ms, mld_discipline md, ins_srtdiscipline isd WHERE m.mld_stdmelding_key = ms.mld_stdmelding_key AND md.ins_discipline_key=ms.mld_ins_discipline_key AND isd.ins_srtdiscipline_key = md.ins_srtdiscipline_key - AND isd.ins_srtdiscipline_omschrijving='Klacht' + AND isd.ins_srtdiscipline_omschrijving='Klacht' ORDER BY hoofd_key; @@ -3413,46 +3413,46 @@ AS m.mld_melding_omschrijving, m.mld_melding_datum, m.mld_melding_einddatum, - (SELECT s.mld_statuses_omschrijving - FROM mld_statuses s + (SELECT s.mld_statuses_omschrijving + FROM mld_statuses s WHERE s.mld_statuses_key= m.mld_melding_status) mld_status, - (SELECT p.prs_perslid_naam_friendly + (SELECT p.prs_perslid_naam_friendly FROM prs_v_perslid_fullnames p - WHERE p.prs_perslid_key = m.mld_melding_behandelaar_key) behandelaar, - (SELECT p.prs_perslid_naam_friendly + WHERE p.prs_perslid_key = m.mld_melding_behandelaar_key) behandelaar, + (SELECT p.prs_perslid_naam_friendly FROM prs_v_perslid_fullnames p WHERE p.prs_perslid_key = m.prs_perslid_key) aanvrager, m.mld_melding_opmerking, - (SELECT p.prs_perslid_naam_friendly + (SELECT p.prs_perslid_naam_friendly FROM fac_tracking ft, prs_v_perslid_fullnames p WHERE ft.fac_tracking_refkey=534 AND ft.fac_srtnotificatie_key=47 AND p.prs_perslid_key = ft.prs_perslid_key) afmelder, - (SELECT COUNT(*) - FROM mld_melding - WHERE mld_melding_start_key=m.mld_melding_key) maatregelen - FROM mld_melding m , mld_stdmelding ms, mld_discipline md, ins_srtdiscipline isd + (SELECT COUNT(*) + FROM mld_melding + WHERE mld_melding_start_key=m.mld_melding_key) maatregelen + FROM mld_melding m , mld_stdmelding ms, mld_discipline md, ins_srtdiscipline isd WHERE m.mld_stdmelding_key = ms.mld_stdmelding_key AND md.ins_discipline_key=ms.mld_ins_discipline_key AND isd.ins_srtdiscipline_key = md.ins_srtdiscipline_key AND isd.ins_srtdiscipline_omschrijving='Klacht' AND m.mld_melding_start_key IS NULL; - -CREATE OR REPLACE VIEW PIVP_V_HUURDERSRAPPORT + +CREATE OR REPLACE VIEW PIVP_V_HUURDERSRAPPORT AS - SELECT ok.alg_onrgoedkenmerk_waarde bedrijf_key, - SUM(ar.alg_ruimte_bruto_vloeropp) totaal_op - FROM alg_ruimte ar, alg_onrgoedkenmerk ok, prs_bedrijf p - WHERE p.prs_bedrijf_key=90 - AND ok.alg_onrgoedkenmerk_waarde =p.prs_bedrijf_key - AND ok.alg_onrgoed_key = ar.alg_ruimte_key - AND ok.alg_onrgoed_niveau='R' - AND ok.alg_kenmerk_key=1040 - GROUP BY ok.alg_onrgoedkenmerk_waarde; + SELECT ok.alg_onrgoedkenmerk_waarde bedrijf_key, + SUM(ar.alg_ruimte_bruto_vloeropp) totaal_op + FROM alg_ruimte ar, alg_onrgoedkenmerk ok, prs_bedrijf p + WHERE p.prs_bedrijf_key=90 + AND ok.alg_onrgoedkenmerk_waarde =p.prs_bedrijf_key + AND ok.alg_onrgoed_key = ar.alg_ruimte_key + AND ok.alg_onrgoed_niveau='R' + AND ok.alg_kenmerk_key=1040 + GROUP BY ok.alg_onrgoedkenmerk_waarde; + - CREATE OR REPLACE VIEW PIVP_V_HUURDERSBEDRIJF ( @@ -3462,26 +3462,26 @@ CREATE OR REPLACE VIEW PIVP_V_HUURDERSBEDRIJF ) AS SELECT b.prs_bedrijf_key, b.prs_bedrijf_naam , prs_leverancier_nr - FROM prs_bedrijf b - WHERE b.prs_bedrijf_huurder=1 + FROM prs_bedrijf b + WHERE b.prs_bedrijf_huurder=1 AND prs_bedrijf_verwijder IS NULL; - - - - + + + + CREATE OR REPLACE VIEW PIVP_V_DIENSTEN ( FAC_USRDATA_KEY, FAC_USRDATA_OMSCHR ) AS - SELECT md.ins_discipline_key, - md.ins_discipline_omschrijving - FROM mld_discipline md - WHERE SUBSTR(md.ins_discipline_omschrijving,1,2)='FM' + SELECT md.ins_discipline_key, + md.ins_discipline_omschrijving + FROM mld_discipline md + WHERE SUBSTR(md.ins_discipline_omschrijving,1,2)='FM' AND md.ins_discipline_verwijder IS NULL ORDER BY 2; - + CREATE OR REPLACE VIEW PIVP_V_RUIMTEEXPORT ( @@ -3496,29 +3496,29 @@ CREATE OR REPLACE VIEW PIVP_V_RUIMTEEXPORT huurder, relatie_code, verhuurbaar, - soort_ruimte, + soort_ruimte, ruimte_type_verhuur, mutatie_datum, sync_datum ) AS - SELECT alg.alg_ruimte_key, + SELECT alg.alg_ruimte_key, alg.alg_locatie_code locatie_code, - agb.alg_gebouw_code gebouw_code, - alg.alg_verdieping_code verdieping_code, - agb.alg_gebouw_code||'-'||alg.alg_ruimte_nr ruimte_nr, - alg.alg_ruimte_omschrijving ruimte_omschrijving, + agb.alg_gebouw_code gebouw_code, + alg.alg_verdieping_code verdieping_code, + agb.alg_gebouw_code||'-'||alg.alg_ruimte_nr ruimte_nr, + alg.alg_ruimte_omschrijving ruimte_omschrijving, alg.alg_ruimte_bruto_vloeropp wo, - alg.alg_ruimte_opp_alt1 vvo, - (SELECT fac_usrdata_omschr - FROM pivp_v_huurdersbedrijf, alg_onrgoedkenmerk aok, alg_kenmerk ak + alg.alg_ruimte_opp_alt1 vvo, + (SELECT fac_usrdata_omschr + FROM pivp_v_huurdersbedrijf, alg_onrgoedkenmerk aok, alg_kenmerk ak WHERE aok.alg_onrgoed_key =alg.alg_ruimte_key AND aok.alg_kenmerk_key=ak.alg_kenmerk_key AND UPPER(ak.alg_kenmerk_omschrijving)='HUURDER' and ak.alg_kenmerk_verwijder IS NULL AND fac_usrdata_key=fac.safe_to_number(aok.alg_onrgoedkenmerk_waarde)) huurder, - (SELECT pb.prs_leverancier_nr - FROM prs_bedrijf pb, pivp_v_huurdersbedrijf, alg_onrgoedkenmerk aok, alg_kenmerk ak + (SELECT pb.prs_leverancier_nr + FROM prs_bedrijf pb, pivp_v_huurdersbedrijf, alg_onrgoedkenmerk aok, alg_kenmerk ak WHERE aok.alg_onrgoed_key =alg.alg_ruimte_key AND aok.alg_kenmerk_key=ak.alg_kenmerk_key AND UPPER(ak.alg_kenmerk_omschrijving)='HUURDER' @@ -3526,35 +3526,35 @@ AS AND pb.prs_bedrijf_naam=fac_usrdata_omschr and ak.alg_kenmerk_verwijder IS NULL) relatie_code, (SELECT DECODE(fud.fac_usrdata_code,'Verhuurbaar','1','Verhuurbaar zonder servicekosten','1','0') - FROM alg_onrgoedkenmerk aok, alg_kenmerk ak, fac_usrdata fud + FROM alg_onrgoedkenmerk aok, alg_kenmerk ak, fac_usrdata fud WHERE aok.alg_onrgoed_key =alg.alg_ruimte_key AND aok.alg_kenmerk_key=ak.alg_kenmerk_key AND UPPER(ak.alg_kenmerk_omschrijving)='VERHUURBAAR' - AND fud.fac_usrdata_key=fac.safe_to_number(aok.alg_onrgoedkenmerk_waarde) - and ak.alg_kenmerk_verwijder IS NULL) verhuurbaar, - alg.alg_srtruimte_omschrijving soort_ruimte, + AND fud.fac_usrdata_key=fac.safe_to_number(aok.alg_onrgoedkenmerk_waarde) + and ak.alg_kenmerk_verwijder IS NULL) verhuurbaar, + alg.alg_srtruimte_omschrijving soort_ruimte, --alg.alg_srtruimte_omschrijving ruimte_omsc2, (SELECT fud.fac_usrdata_code - FROM alg_onrgoedkenmerk aok, alg_kenmerk ak, fac_usrdata fud + FROM alg_onrgoedkenmerk aok, alg_kenmerk ak, fac_usrdata fud WHERE aok.alg_onrgoed_key =alg.alg_ruimte_key AND aok.alg_kenmerk_key=ak.alg_kenmerk_key AND UPPER(ak.alg_kenmerk_omschrijving)='VERHUURTYPE' - AND fud.fac_usrdata_key=fac.safe_to_number(aok.alg_onrgoedkenmerk_waarde) + AND fud.fac_usrdata_key=fac.safe_to_number(aok.alg_onrgoedkenmerk_waarde) and ak.alg_kenmerk_verwijder IS NULL) ruimte_type_verhuur, - (SELECT MAX(fac_tracking_datum) - FROM fac_tracking ft, fac_srtnotificatie fs - WHERE fs.fac_srtnotificatie_code='ALGRUP' - AND ft.fac_srtnotificatie_key = fs.FAC_SRTNOTIFICATIE_KEY + (SELECT MAX(fac_tracking_datum) + FROM fac_tracking ft, fac_srtnotificatie fs + WHERE fs.fac_srtnotificatie_code='ALGRUP' + AND ft.fac_srtnotificatie_key = fs.FAC_SRTNOTIFICATIE_KEY AND ft.FAC_TRACKING_REFKEY=alg.alg_ruimte_key) mut_datum, - (SELECT alg_ruimte_externsyncdate - FROM alg_ruimte ar + (SELECT alg_ruimte_externsyncdate + FROM alg_ruimte ar WHERE ar.alg_ruimte_key=alg.alg_ruimte_key) sync_datum FROM alg_v_ruimte_gegevens alg, alg_gebouw agb - WHERE agb.alg_gebouw_key = alg.alg_gebouw_key + WHERE agb.alg_gebouw_key = alg.alg_gebouw_key AND alg.alg_ruimte_nr NOT LIKE '_000'; - - - + + + CREATE OR REPLACE VIEW PIVP_V_ZAALRESERVERINGEN @@ -3572,13 +3572,13 @@ CREATE OR REPLACE VIEW PIVP_V_ZAALRESERVERINGEN ) AS SELECT res.res_reservering_key||'/'||res.res_rsv_ruimte_volgnr reserveringnr, - rr.res_ruimte_nr ruimte, - res.res_rsv_ruimte_omschrijving omschrijving, - res.res_rsv_ruimte_opmerking opmerking, - res.res_rsv_ruimte_van van, - res.res_rsv_ruimte_tot tot, - pvf.prs_perslid_naam_friendly host, - pa.prs_afdeling_omschrijving bedrijf, + rr.res_ruimte_nr ruimte, + res.res_rsv_ruimte_omschrijving omschrijving, + res.res_rsv_ruimte_opmerking opmerking, + res.res_rsv_ruimte_van van, + res.res_rsv_ruimte_tot tot, + pvf.prs_perslid_naam_friendly host, + pa.prs_afdeling_omschrijving bedrijf, RES.GETRESRUIMTEPRIJS(rr.res_ruimte_key,res.res_rsv_ruimte_van, res.res_rsv_ruimte_tot) prijs, res.res_rsv_ruimte_verwijder verwijder_datum FROM res_rsv_ruimte res, res_ruimte_opstelling rro, res_ruimte rr, prs_perslid pp, prs_afdeling pa, prs_v_perslid_fullnames pvf @@ -3588,7 +3588,7 @@ AS AND pp.prs_perslid_key = res.res_rsv_ruimte_host_key AND pa.prs_afdeling_key = pp.prs_afdeling_key AND (res.res_rsv_ruimte_verwijder IS NULL OR (res.res_rsv_ruimte_verwijder IS NOT NULL AND res.res_rsv_ruimte_van < res.res_rsv_ruimte_verwijder)); - + @@ -3690,13 +3690,13 @@ AS FAC_GEBRUIKERSGROEP fgg, prs_perslid p, fac_srtnotificatie fs - WHERE TO_CHAR (SYSDATE, 'dd') = '02' -- Op de ochtend na 1ste van de maand! + WHERE TO_CHAR (SYSDATE, 'dd') = '02' -- Op de ochtend na 1ste van de maand! AND UPPER (r.fac_usrrap_omschrijving) = UPPER('BEHEER: Hidden rapportage tbv. Exact Diensten facturatie') AND fs.fac_srtnotificatie_code='CUST03' AND fg.fac_groep_omschrijving='PIVP_NotificatieGroep' - AND fgg.fac_groep_key = fg.fac_groep_key + AND fgg.fac_groep_key = fg.fac_groep_key AND p.prs_perslid_key = fgg.prs_perslid_key; - + CREATE OR REPLACE VIEW PIVP_V_noti_exact_res AS @@ -3713,11 +3713,11 @@ AS fac_gebruikersgroep fgg, prs_perslid p, fac_srtnotificatie fs - WHERE TO_CHAR (SYSDATE, 'dd') = '02' -- Op de ochtend na 1ste van de maand! + WHERE TO_CHAR (SYSDATE, 'dd') = '02' -- Op de ochtend na 1ste van de maand! AND UPPER (r.fac_usrrap_omschrijving) = UPPER('BEHEER: Hidden rapportage tbv. Exact res') AND fs.fac_srtnotificatie_code='CUST04' AND fg.fac_groep_omschrijving='PIVP_NotificatieGroep' - AND fgg.fac_groep_key = fg.fac_groep_key + AND fgg.fac_groep_key = fg.fac_groep_key AND p.prs_perslid_key = fgg.prs_perslid_key; @@ -3727,7 +3727,7 @@ AS SELECT gebouw_code, ruimte_nr, ins_deel_key - object, + object, object_opmerking, object_soort, object_groep, @@ -3738,19 +3738,19 @@ AS TRIM(SUBSTR(materiaal,0,INSTR(materiaal,'-->')-1)) prijs_van, CASE WHEN INSTR(MATERIAAL,CHR(10))>0 THEN TRIM(SUBSTR(materiaal,INSTR(materiaal,'-->')+3,INSTR(SUBSTR(materiaal,INSTR(materiaal,'-->')+3),CHR(12),1,1))) - ELSE TRIM(SUBSTR(materiaal,INSTR(materiaal,'-->')+3)) + ELSE TRIM(SUBSTR(materiaal,INSTR(materiaal,'-->')+3)) END as prijs_naar, TRIM(SUBSTR(aantal,0,INSTR(aantal,'-->')-1)) hoeveelheid_van, CASE WHEN INSTR(aantal,CHR(10))>0 THEN - TRIM(SUBSTR( aantal,INSTR(aantal,'-->')+3,INSTR(SUBSTR(aantal,INSTR(aantal,'-->')+3),CHR(10)))) - ELSE + TRIM(SUBSTR( aantal,INSTR(aantal,'-->')+3,INSTR(SUBSTR(aantal,INSTR(aantal,'-->')+3),CHR(10)))) + ELSE TRIM(SUBSTR(aantal,INSTR(aantal,'-->')+3)) END AS hoeveelheid_naar, TRIM(SUBSTR(startdatum,0,INSTR(startdatum,'-->')-1)) startdatum_van, CASE WHEN INSTR(startdatum,CHR(10))>0 THEN - TRIM(SUBSTR(startdatum,INSTR(startdatum,'-->')+3,INSTR(SUBSTR(startdatum,INSTR(startdatum,'-->')+3),CHR(10)))) + TRIM(SUBSTR(startdatum,INSTR(startdatum,'-->')+3,INSTR(SUBSTR(startdatum,INSTR(startdatum,'-->')+3),CHR(10)))) ELSE - TRIM(SUBSTR(startdatum,INSTR(aantal,'-->')+3)) + TRIM(SUBSTR(startdatum,INSTR(aantal,'-->')+3)) END AS startdaum_naar FROM ( SELECT a.alg_gebouw_code gebouw_code, @@ -3766,27 +3766,27 @@ AS p.prs_perslid_naam_friendly door, CASE WHEN instr(fac_tracking_oms,'Materiaal' ) >0 then SUBSTR(fac_tracking_oms, INSTR(fac_tracking_oms,'Materiaal (EUR): ')+17) ELSE - '' + '' END as materiaal, CASE WHEN instr(fac_tracking_oms,'Hoeveelheid: ' ) >0 then SUBSTR(fac_tracking_oms, INSTR(fac_tracking_oms,'Hoeveelheid: ')+13) ELSE - '' + '' END as aantal, CASE WHEN instr(fac_tracking_oms,'Startdatum: ' ) >0 then SUBSTR(fac_tracking_oms, INSTR(fac_tracking_oms,'Startdatum: ')+12) ELSE - '' + '' END as startdatum , CASE WHEN instr(fac_tracking_oms,'Periode: ' ) >0 then SUBSTR(fac_tracking_oms, INSTR(fac_tracking_oms,'Periode: ')+9) ELSE - 'LEEG' - END as periode + 'LEEG' + END as periode FROM fac_tracking ft, ins_deel i, ins_srtdeel isd, ins_srtgroep isg, ins_discipline id, alg_v_allonrgoed_gegevens a, - prs_v_perslid_fullnames p + prs_v_perslid_fullnames p WHERE ft.fac_srtnotificatie_key = 137 -- INSUPD AND i.ins_deel_key = fac_tracking_refkey AND a.alg_ruimte_key = i.ins_alg_ruimte_key @@ -3810,14 +3810,14 @@ AS WHERE afmelddatum BETWEEN p_startDate AND p_endDate; CURSOR mld_regel( c_bedrijf_key NUMBER, - p_startDate DATE, + p_startDate DATE, p_endDate DATE) IS - SELECT * + SELECT * FROM pivp_v_mldexport - WHERE bedrijf_key=c_bedrijf_key - AND afmelddatum BETWEEN p_startDate AND p_endDate; - - + WHERE bedrijf_key=c_bedrijf_key + AND afmelddatum BETWEEN p_startDate AND p_endDate; + + v_bestand VARCHAR2(100); v_order_count NUMBER :=0; v_amount_sum NUMBER:=0; @@ -3833,9 +3833,9 @@ AS v_currentyear VARCHAR2(10); v_currenthuurder VARCHAR2(10); v_factuurregel VARCHAR2(120); - + BEGIN - + v_dagboek:='70'; v_leverancier:=0; v_count :=0; @@ -3843,25 +3843,25 @@ BEGIN v_currenthuurder :=''; - DELETE FROM fac_rapport + DELETE FROM fac_rapport WHERE fac_rapport.fac_rapport_node LIKE 'EXM_MLD%'; - + -- Exports vinden plaats op maand basis - + v_startmonth := TO_CHAR(TO_NUMBER(TO_CHAR(SYSDATE,'MM'))-1); v_currentyear := TO_CHAR(TO_NUMBER(TO_CHAR(SYSDATE,'YYYY'))); IF v_startmonth = '0' THEN v_currentyear := TO_CHAR(TO_NUMBER(TO_CHAR(SYSDATE,'YYYY'))-1); v_startmonth:='12'; - END IF; + END IF; v_startdate := TO_DATE('01-'||v_startmonth||'-'||v_currentyear,'DD-MM-YYYY'); - + v_enddate := LAST_DAY(v_startdate); v_factuurdatum:=v_enddate; -- IF v_currentmonth=1 OR v_currentmonth=4 OR v_currentmonth=7 OR v_currentmonth=10 -- THEN /*CASE v_currentmonth - WHEN 1 THEN + WHEN 1 THEN v_startDate:= TO_DATE('01-10-'||TO_CHAR(TO_NUMBER(TO_CHAR(SYSDATE,'YYYY')-1)),'DD-MM-YYYY'); v_endDate:= TO_DATE('31-12-'||TO_CHAR(TO_NUMBER(TO_CHAR(SYSDATE,'YYYY')-1)),'DD-MM-YYYY'); WHEN 4 THEN @@ -3873,57 +3873,57 @@ BEGIN ELSE v_startDate:= TO_DATE('01-07-'||TO_CHAR(SYSDATE,'YYYY'),'DD-MM-YYYY'); v_endDate:= TO_DATE('30-09-'||TO_CHAR(SYSDATE,'YYYY'),'DD-MM-YYYY'); - END CASE; - v_bestand:= 'EXM_MLD'; + END CASE; + v_bestand:= 'EXM_MLD'; */ -- PUUR OM EENVOUDIGER TE KUNNEN TESTEN -- v_startDate:=TO_DATE('01-03-2023','DD-MM-YYYY'); - -- v_endDate:=TO_DATE('31-03-2023','DD-MM-YYYY'); + -- v_endDate:=TO_DATE('31-03-2023','DD-MM-YYYY'); -- v_factuurdatum := TO_DATE('31-03-2023','DD-MM-YYYY'); v_bestand:= 'EXM_MLD'; FOR rec in mld(v_startDate, v_endDate) LOOP v_count:=v_count+1; - IF v_count=1 THEN + IF v_count=1 THEN pivp.add_xml_row (v_bestand, ''); pivp.add_xml_row (v_bestand, ''); pivp.add_xml_row (v_bestand, ''); END IF; - - + + FOR rec_regel IN mld_regel(rec.bedrijf_key,v_startDate, v_endDate) LOOP - v_sub_count:=v_sub_count+1; + v_sub_count:=v_sub_count+1; IF v_sub_count=1 THEN - - pivp.add_xml_row (v_bestand, ''); + + pivp.add_xml_row (v_bestand, ''); pivp.add_xml_element (v_bestand, 'Description', 'Geleverde diensten.'); IF LENGTH(rec_regel.ponummer)>1 THEN pivp.add_xml_element(v_bestand, 'YourRef',rec_regel.ponummer); END IF; pivp.add_xml_row (v_bestand, ''); -- vaste waarde pivp.add_xml_row (v_bestand, ''); -- persoon waarop geboekt wordt in Exact - - - pivp.add_xml_row (v_bestand, ''); + + + pivp.add_xml_row (v_bestand, ''); pivp.add_xml_element (v_bestand, 'CalcIncludeVAT', 'N'); - pivp.add_xml_row (v_bestand, ''); + pivp.add_xml_row (v_bestand, ''); pivp.add_xml_row (v_bestand, ''); pivp.add_xml_element (v_bestand, 'Date', TO_CHAR(v_factuurdatum,'YYYY-MM-DD') ); pivp.add_xml_row (v_bestand, ''); - - + + END IF; pivp.add_xml_row (v_bestand, ''); - - + + IF LENGTH(rec_regel.factuurinfo)>0 THEN - v_factuurregel:= rec_regel.melding_key||' - '||rec_regel.factuurinfo; + v_factuurregel:= rec_regel.melding_key||' - '||rec_regel.factuurinfo; ELSE IF LENGTH(rec_regel.onderwerp)>0 THEN - v_factuurregel:= rec_regel.melding_key||'('||rec_regel.dienstencode||')-'||rec_regel.onderwerp; - ELSE - v_factuurregel:= rec_regel.melding_key||'-'||rec_regel.vagroep; + v_factuurregel:= rec_regel.melding_key||'('||rec_regel.dienstencode||')-'||rec_regel.onderwerp; + ELSE + v_factuurregel:= rec_regel.melding_key||'-'||rec_regel.vagroep; END IF; END IF; IF LENGTH(rec_regel.ponummer)>0 THEN @@ -3931,34 +3931,34 @@ BEGIN END IF; -- Vaste waardes die evt worden aangepast bij vervolg project pivp.add_xml_row (v_bestand, ''); -- vaste waarde - pivp.add_xml_row (v_bestand, ''); + pivp.add_xml_row (v_bestand, ''); pivp.add_xml_row (v_bestand, ''); pivp.add_xml_row (v_bestand, ''); - - pivp.add_xml_element (v_bestand, 'Text', SUBSTR(v_factuurregel,0,120)); + + pivp.add_xml_element (v_bestand, 'Text', SUBSTR(v_factuurregel,0,120)); pivp.add_xml_element (v_bestand, 'Description', 'P2P ordernr.:'||rec_regel.p2pordernr); pivp.add_xml_row (v_bestand, ''); pivp.add_xml_element (v_bestand, 'Quantity', '1' ); pivp.add_xml_row (v_bestand, ''); - pivp.add_xml_row (v_bestand, ''); - pivp.add_xml_element (v_bestand, 'Value', rec_regel.factuurbedrag); + pivp.add_xml_row (v_bestand, ''); + pivp.add_xml_element (v_bestand, 'Value', rec_regel.factuurbedrag); pivp.add_xml_row (v_bestand, ''); pivp.add_xml_row (v_bestand, ''); pivp.add_xml_element (v_bestand, 'Date', TO_CHAR(rec_regel.afmelddatum, 'YYYY-MM-DD') ); pivp.add_xml_row (v_bestand, ''); pivp.add_xml_row (v_bestand, ''); - - + + UPDATE mld_melding set mld_melding_externsyncdate=SYSDATE WHERE mld_melding_key=rec_regel.melding_key; - + END LOOP; - IF v_sub_count>0 THEN + IF v_sub_count>0 THEN pivp.add_xml_row (v_bestand, ''); END IF; - - + + v_sub_count:=0; - + END LOOP; IF v_count>0 THEN pivp.add_xml_row (v_bestand, ''); @@ -3967,11 +3967,11 @@ BEGIN IF v_count=0 THEN -- We hebben niets om te exporteren dan gooien we ook XML tags weg. DELETE FROM fac_rapport WHERE fac_rapport_node = v_bestand; - END IF; - + END IF; + fac.writelog (p_applname, 'S', 'Exact export uitgevoerd.','Regels: '||v_count||' Periode : '||v_startDate||'-'||v_enddate); - --END IF; - + --END IF; + END; / @@ -3985,18 +3985,18 @@ AS FROM pivp_v_resexport WHERE datum BETWEEN p_startDate AND p_endDate AND externsyncdate IS NULL; - + CURSOR res_regel( c_debiteur_nr VARCHAR2, - p_startDate DATE, + p_startDate DATE, p_endDate DATE) IS - SELECT * + SELECT * FROM pivp_v_resexport WHERE debiteurnr=c_debiteur_nr AND datum BETWEEN p_startDate AND p_endDate AND externsyncdate IS NULL - ORDER by datum; - + ORDER by datum; + v_bestand VARCHAR2(100); v_order_count NUMBER :=0; v_amount_sum NUMBER:=0; @@ -4013,9 +4013,9 @@ AS v_currenthuurder VARCHAR2(10); v_factuurdatum DATE; v_factuurregel VARCHAR2(120); - + BEGIN - + v_dagboek:='70'; v_dienstencode:='FM-221'; -- alle reservering worden op deze dienstencode geboekt v_leverancier:=0; @@ -4024,101 +4024,101 @@ BEGIN v_currenthuurder :=''; - DELETE FROM fac_rapport + DELETE FROM fac_rapport WHERE fac_rapport_node LIKE 'EXR_RES'; - + -- eerst controlerene of we de eerste van een nieuw kwartaal zijn. - + v_currentmonth := TO_NUMBER(TO_CHAR(SYSDATE,'MM')); v_startmonth := TO_CHAR(TO_NUMBER(TO_CHAR(SYSDATE,'MM'))-1); v_currentyear := TO_CHAR(TO_NUMBER(TO_CHAR(SYSDATE,'YYYY'))); IF v_startmonth = '0' THEN v_currentyear := TO_CHAR(TO_NUMBER(TO_CHAR(SYSDATE,'YYYY'))-1); v_startmonth:='12'; - END IF; + END IF; IF v_currentmonth = 5 AND v_currentYear= '2023' THEN -- alleen voor begin de eerste 4 maanden kunnen exporteen v_startDate := TO_DATE('01-01-2023','DD-MM-YYYY'); v_endDate := TO_DATE('30-04-2023','DD-MM-YYYY'); - ELSE + ELSE v_startDate := TO_DATE('01-'||v_startmonth||'-'||v_currentyear,'DD-MM-YYYY'); - v_endDate := LAST_DAY(v_startDate); + v_endDate := LAST_DAY(v_startDate); END IF; - + v_factuurdatum:=v_enddate; - + -- v_currentmonth :=10; --IF v_currentmonth=1 OR v_currentmonth=4 OR v_currentmonth=7 OR v_currentmonth=10 --THEN -- CASE v_currentmonth - -- WHEN 1 THEN + -- WHEN 1 THEN -- v_startDate:= TO_DATE('01-10-'||TO_CHAR(TO_NUMBER(TO_CHAR(SYSDATE,'YYYY')-1)),'DD-MM-YYYY'); -- v_endDate:= TO_DATE('31-12-'||TO_CHAR(TO_NUMBER(TO_CHAR(SYSDATE,'YYYY')-1)),'DD-MM-YYYY'); -- v_factuurdatum:=TO_DATE('31-12-'||TO_CHAR(TO_NUMBER(TO_CHAR(SYSDATE,'YYYY')-1)),'DD-MM-YYYY'); -- WHEN 4 THEN -- v_startDate:= TO_DATE('01-01-'||TO_CHAR(SYSDATE,'YYYY'),'DD-MM-YYYY'); - -- v_endDate:= TO_DATE('30-03-'||TO_CHAR(SYSDATE,'YYYY'),'DD-MM-YYYY'); + -- v_endDate:= TO_DATE('30-03-'||TO_CHAR(SYSDATE,'YYYY'),'DD-MM-YYYY'); -- v_factuurdatum:=TO_DATE('31-03-'||TO_CHAR(TO_NUMBER(TO_CHAR(SYSDATE,'YYYY'))),'DD-MM-YYYY'); -- WHEN 7 THEN -- v_startDate:= TO_DATE('01-04-'||TO_CHAR(SYSDATE,'YYYY'),'DD-MM-YYYY'); - -- v_endDate:= TO_DATE('30-06-'||TO_CHAR(SYSDATE,'YYYY'),'DD-MM-YYYY'); + -- v_endDate:= TO_DATE('30-06-'||TO_CHAR(SYSDATE,'YYYY'),'DD-MM-YYYY'); -- v_factuurdatum:=TO_DATE('30-06-'||TO_CHAR(TO_NUMBER(TO_CHAR(SYSDATE,'YYYY'))),'DD-MM-YYYY'); -- ELSE -- v_startDate:= TO_DATE('01-07-'||TO_CHAR(SYSDATE,'YYYY'),'DD-MM-YYYY'); - -- v_endDate:= TO_DATE('30-09-'||TO_CHAR(SYSDATE,'YYYY'),'DD-MM-YYYY'); + -- v_endDate:= TO_DATE('30-09-'||TO_CHAR(SYSDATE,'YYYY'),'DD-MM-YYYY'); -- v_factuurdatum:=TO_DATE('30-09-'||TO_CHAR(TO_NUMBER(TO_CHAR(SYSDATE,'YYYY'))),'DD-MM-YYYY'); -- END CASE; - - + + -- PUUR OM EENVOUDIGER TE KUNNEN TESTEN --v_startDate:=TO_DATE('01-01-2023','DD-MM-YYYY'); --v_endDate:=TO_DATE('31-03-2023','DD-MM-YYYY'); --v_factuurdatum := TO_DATE('31-03-2023','DD-MM-YYYY'); ------ - - v_bestand:= 'EXR_RES'; + + v_bestand:= 'EXR_RES'; FOR rec in res(v_startDate, v_endDate) LOOP - + v_count:=v_count+1; IF v_count=1 THEN pivp.add_xml_row (v_bestand, ''); pivp.add_xml_row (v_bestand, ''); pivp.add_xml_row (v_bestand, ''); END IF; - - -- AFhandelen van alle reservering voor deze klant + + -- AFhandelen van alle reservering voor deze klant FOR rec_regel IN res_regel(rec.debiteurnr,v_startDate, v_endDate) LOOP v_sub_count:=v_sub_count+1; IF v_sub_count=1 THEN - pivp.add_xml_row (v_bestand, ''); + pivp.add_xml_row (v_bestand, ''); pivp.add_xml_element (v_bestand, 'Description', 'Zaalreserveringen'); -- pivp.add_xml_element(v_bestand, 'YourRef','Uwe referentie'); pivp.add_xml_row (v_bestand, ''); pivp.add_xml_row (v_bestand, ''); -- persoon waarop geboekt wordt in Exact - - pivp.add_xml_row (v_bestand, ''); + + pivp.add_xml_row (v_bestand, ''); pivp.add_xml_element (v_bestand, 'CalcIncludeVAT', 'N'); - pivp.add_xml_row (v_bestand, ''); + pivp.add_xml_row (v_bestand, ''); pivp.add_xml_row (v_bestand, ''); pivp.add_xml_element (v_bestand, 'Date', TO_CHAR(v_factuurdatum,'YYYY-MM-DD')); - pivp.add_xml_row (v_bestand, ''); - - - - - END IF; - pivp.add_xml_row (v_bestand, ''); - - + pivp.add_xml_row (v_bestand, ''); + + + + + END IF; + pivp.add_xml_row (v_bestand, ''); + + -- Vaste waardes worden in vervolg project evt aangepast pivp.add_xml_row (v_bestand, ''); -- vaste waarde - pivp.add_xml_row (v_bestand, ''); + pivp.add_xml_row (v_bestand, ''); pivp.add_xml_row (v_bestand, ''); - pivp.add_xml_row (v_bestand, ''); - - + pivp.add_xml_row (v_bestand, ''); + + v_factuurregel := rec_regel.reservering_nr||'/'||rec_regel.reservering_volgnr||'-'||rec_regel.ruimte_nr||' ('||TO_CHAR(rec_regel.datum,'DD-MM-YYYY')||' '||rec_regel.van||'-'||rec_regel.tot||')'; -- IF LENGTH(rec_regel.ponummer)>0 THEN -- v_factuurregel:= v_factuurregel || CHR(12)||rec_regel.ponummer; @@ -4127,47 +4127,47 @@ BEGIN pivp.add_xml_row (v_bestand, ''); pivp.add_xml_element (v_bestand, 'Quantity', '1' ); pivp.add_xml_row (v_bestand, ''); - pivp.add_xml_row (v_bestand, ''); - - IF rec_regel.verwijderdatum IS NOT NULL - AND (rec_regel.verwijderdatum - rec_regel.res_rsv_ruimte_van)<3 + pivp.add_xml_row (v_bestand, ''); + + IF rec_regel.verwijderdatum IS NOT NULL + AND (rec_regel.verwijderdatum - rec_regel.res_rsv_ruimte_van)<3 THEN pivp.add_xml_element (v_bestand, 'Value', ROUND(rec_regel.bedrag*0.5,2)); - ELSE + ELSE pivp.add_xml_element (v_bestand, 'Value', rec_regel.bedrag); END IF; pivp.add_xml_row (v_bestand, ''); pivp.add_xml_row (v_bestand, ''); pivp.add_xml_element (v_bestand, 'Date', TO_CHAR(rec_regel.datum, 'YYYY-MM-DD') ); pivp.add_xml_row (v_bestand, ''); - - - pivp.add_xml_row (v_bestand, ''); - - + + + pivp.add_xml_row (v_bestand, ''); + + UPDATE res_rsv_ruimte set res_rsv_ruimte_externsyncdate=SYSDATE WHERE res_rsv_ruimte_key=rec_regel.rrr_key; - - + + END LOOP; - IF v_sub_count>=1 THEN + IF v_sub_count>=1 THEN pivp.add_xml_row (v_bestand, ''); - END IF; + END IF; v_sub_count:=0; - + END LOOP; - IF v_count>0 THEN + IF v_count>0 THEN pivp.add_xml_row (v_bestand, ''); - pivp.add_xml_row (v_bestand, ''); + pivp.add_xml_row (v_bestand, ''); END IF; - + IF v_count=0 THEN DELETE FROM fac_rapport WHERE fac_rapport_node=v_bestand; END IF; - - + + fac.writelog (p_applname, 'S', 'Exact reservering export uitgevoerd. Aantal Klanten :'||v_count,'Periode :('||v_startDate||'-'||v_enddate); - --END IF; - + --END IF; + END; / @@ -4181,8 +4181,8 @@ CREATE OR REPLACE VIEW PIVP_V_EXPORT_EXACT_MLD ( ) AS SELECT fac_rapport_regel ,fac_rapport_volgnr, fac_rapport_node - FROM fac_rapport - WHERE fac_rapport_node LIKE 'EXM_%' + FROM fac_rapport + WHERE fac_rapport_node LIKE 'EXM_%' ORDER BY fac_rapport_node,fac_rapport_volgnr; @@ -4195,8 +4195,8 @@ CREATE OR REPLACE VIEW PIVP_V_EXPORT_EXACT_RES ( ) AS SELECT fac_rapport_regel ,fac_rapport_volgnr, fac_rapport_node - FROM fac_rapport - WHERE fac_rapport_node LIKE 'EXR_%' + FROM fac_rapport + WHERE fac_rapport_node LIKE 'EXR_%' ORDER BY fac_rapport_node,fac_rapport_volgnr; @@ -4210,27 +4210,27 @@ AS CURSOR contacts IS SELECT * FROM PIVP_V_CONTACTEXPORT; - - v_bestand VARCHAR2(100); - v_counter NUMBER; + + v_bestand VARCHAR2(100); + v_counter NUMBER; v_relatie_code VARCHAR2(10); BEGIN v_bestand := 'EXA_CONTACT'; v_counter :=0; v_relatie_code :='--------'; - + DELETE FROM fac_rapport where fac_rapport_node='EXA_CONTACT'; COMMIT; - + pivp.add_xml_row (v_bestand, ''); pivp.add_xml_row (v_bestand, ''); pivp.add_xml_row (v_bestand, ''); - + FOR rec IN contacts LOOP v_counter:=v_counter+1; - IF v_relatie_code != rec.debiteurnr + IF v_relatie_code != rec.debiteurnr THEN IF v_counter>1 THEN pivp.add_xml_row (v_bestand, ''); @@ -4238,7 +4238,7 @@ BEGIN END IF; pivp.add_xml_row (v_bestand, ''); pivp.add_xml_row (v_bestand, ''); - + END IF; v_counter:=v_counter+1; pivp.add_xml_row (v_bestand, ''); @@ -4252,11 +4252,11 @@ BEGIN END IF; pivp.add_xml_element (v_bestand, 'Email', rec.email); pivp.add_xml_element (v_bestand, 'Phone', rec.telefoonnummer); - pivp.add_xml_element (v_bestand, 'Mobile', rec.mobiel); + pivp.add_xml_element (v_bestand, 'Mobile', rec.mobiel); pivp.add_xml_row (v_bestand, ''); pivp.add_xml_row (v_bestand, ''); pivp.add_xml_row (v_bestand, ''); - + pivp.add_xml_row (v_bestand, ''||rec.cxo||''); pivp.add_xml_row (v_bestand, ''||rec.ehs||''); pivp.add_xml_row (v_bestand, ''||rec.secr||''); @@ -4269,29 +4269,29 @@ BEGIN -- pivp.add_xml_row (v_bestand, '0'); pivp.add_xml_row (v_bestand, ''); pivp.add_xml_row (v_bestand, ''); - pivp.add_xml_row (v_bestand, ''); + pivp.add_xml_row (v_bestand, ''); v_relatie_code := rec.debiteurnr; - + -- UPDATE mld_melding set MLD_MELDING_EXTERNSYNCDATE=SYSDATE WHERE mld_melding_key=rec.mld_melding_key; - + END LOOP; pivp.add_xml_row (v_bestand, ''); pivp.add_xml_row (v_bestand, ''); pivp.add_xml_row (v_bestand, ''); pivp.add_xml_row (v_bestand, ''); - + IF v_counter=0 THEN DELETE FROM fac_rapport WHERE fac_rapport_node=v_bestand; END IF; - - + + fac.writelog (p_applname, 'S', 'Exact contact export uitgevoerd.','Aantal geexporteerde contacten is: '||v_counter); END; / - + CREATE OR REPLACE PROCEDURE PIVP_SELECT_EXACT_CONTACT (p_applname IN VARCHAR2, p_applrun IN VARCHAR2 ) @@ -4308,9 +4308,9 @@ CREATE OR REPLACE VIEW PIVP_V_EXPORT_EXACT_CONTACT ( ) AS SELECT fac_rapport_regel ,fac_rapport_volgnr - FROM fac_rapport - WHERE fac_rapport_node LIKE 'EXA_CONTACT%' - ORDER BY fac_rapport_node,fac_rapport_volgnr; + FROM fac_rapport + WHERE fac_rapport_node LIKE 'EXA_CONTACT%' + ORDER BY fac_rapport_node,fac_rapport_volgnr; -- EINDE EXPORT CONTACTEN @@ -4328,29 +4328,29 @@ AS FROM pivp_v_ruimteexport WHERE verhuurbaar ='1' AND (sync_datum IS NULL OR sync_datum'); pivp.add_xml_row (v_bestand, ''); pivp.add_xml_row (v_bestand, ''); - + FOR rec IN ruimtes - LOOP + LOOP v_counter:=v_counter+1; pivp.add_xml_row (v_bestand, ''); pivp.add_xml_element (v_bestand, 'Description', rec.ruimte_nr); - pivp.add_xml_row (v_bestand, ''); + pivp.add_xml_row (v_bestand, ''); pivp.add_xml_row (v_bestand, ''); pivp.add_xml_row (v_bestand, 'Opbrengst diversen 21%'); pivp.add_xml_row (v_bestand, ''); @@ -4360,33 +4360,33 @@ BEGIN pivp.add_xml_row (v_bestand, ''); pivp.add_xml_row (v_bestand, 'Asset Management'); pivp.add_xml_row (v_bestand, ''); - + pivp.add_xml_row (v_bestand, ''); pivp.add_xml_row (v_bestand, ''); pivp.add_xml_row (v_bestand, ''||rec.wo||''); pivp.add_xml_row (v_bestand, ''||REPLACE(rec.vvo,',','.')||''); - pivp.add_xml_row (v_bestand, ''); - pivp.add_xml_row (v_bestand, ''); + pivp.add_xml_row (v_bestand, ''); + pivp.add_xml_row (v_bestand, ''); pivp.add_xml_row (v_bestand, ''||rec.verhuurbaar||''); - pivp.add_xml_row (v_bestand, '0'); + pivp.add_xml_row (v_bestand, '0'); pivp.add_xml_row (v_bestand, ''); - pivp.add_xml_row (v_bestand, ''); - pivp.add_xml_row (v_bestand, ''||rec.ruimte_type_verhuur||''); + pivp.add_xml_row (v_bestand, ''); + pivp.add_xml_row (v_bestand, ''||rec.ruimte_type_verhuur||''); pivp.add_xml_row (v_bestand, ''); - + pivp.add_xml_row (v_bestand, ''); pivp.add_xml_row (v_bestand, ''); - + UPDATE alg_ruimte SET alg_ruimte_externsyncdate=SYSDATE WHERE alg_ruimte_key=rec.alg_ruimte_key; - - END LOOP; + + END LOOP; pivp.add_xml_row (v_bestand, ''); pivp.add_xml_row (v_bestand, ''); - + IF v_counter=0 THEN - DELETE FROM fac_rapport WHERE fac_rapport_node=v_bestand; + DELETE FROM fac_rapport WHERE fac_rapport_node=v_bestand; END IF; - + fac.writelog (p_applname, 'S', 'Exact ruimte export uitgevoerd.','Aantal geexporteerde verhuurbare ruimtes is: '||v_counter); END; / @@ -4408,8 +4408,8 @@ CREATE OR REPLACE VIEW PIVP_V_EXPORT_EXACT_RUIMTE ( ) AS SELECT fac_rapport_regel ,fac_rapport_volgnr - FROM fac_rapport - WHERE fac_rapport_node = 'EXA_RUIMTE' + FROM fac_rapport + WHERE fac_rapport_node = 'EXA_RUIMTE' ORDER BY fac_rapport_node,fac_rapport_volgnr; -- Export in exact formaat die alle ruutes expoerteerd @@ -4421,29 +4421,29 @@ AS SELECT * FROM pivp_v_ruimteexport WHERE verhuurbaar= '1'; - - v_bestand VARCHAR2(100); - v_counter NUMBER; + + v_bestand VARCHAR2(100); + v_counter NUMBER; v_relatie_code VARCHAR2(10); BEGIN v_bestand := 'EXA_RUIMTE_A'; v_counter :=0; v_relatie_code :='--------'; - + DELETE FROM fac_rapport where fac_rapport_node='EXA_RUIMTE_A'; COMMIT; - + pivp.add_xml_row (v_bestand, ''); pivp.add_xml_row (v_bestand, ''); pivp.add_xml_row (v_bestand, ''); - + FOR rec IN ruimtes - LOOP + LOOP v_counter:=v_counter+1; pivp.add_xml_row (v_bestand, ''); pivp.add_xml_element (v_bestand, 'Description', rec.ruimte_nr); - pivp.add_xml_row (v_bestand, ''); + pivp.add_xml_row (v_bestand, ''); -- pivp.add_xml_row (v_bestand, ''); -- pivp.add_xml_row (v_bestand, 'Opbrengst diversen 21%'); -- pivp.add_xml_row (v_bestand, ''); @@ -4458,28 +4458,28 @@ BEGIN pivp.add_xml_row (v_bestand, ''); pivp.add_xml_row (v_bestand, ''||rec.wo||''); pivp.add_xml_row (v_bestand, ''||REPLACE(rec.vvo,',','.')||''); - pivp.add_xml_row (v_bestand, ''); - pivp.add_xml_row (v_bestand, ''); + pivp.add_xml_row (v_bestand, ''); + pivp.add_xml_row (v_bestand, ''); pivp.add_xml_row (v_bestand, ''||rec.verhuurbaar||''); - pivp.add_xml_row (v_bestand, '0'); + pivp.add_xml_row (v_bestand, '0'); pivp.add_xml_row (v_bestand, ''); - pivp.add_xml_row (v_bestand, ''); - pivp.add_xml_row (v_bestand, ''||rec.ruimte_type_verhuur||''); + pivp.add_xml_row (v_bestand, ''); + pivp.add_xml_row (v_bestand, ''||rec.ruimte_type_verhuur||''); pivp.add_xml_row (v_bestand, ''); - + pivp.add_xml_row (v_bestand, ''); pivp.add_xml_row (v_bestand, ''); - - - + + + END LOOP; pivp.add_xml_row (v_bestand, ''); pivp.add_xml_row (v_bestand, ''); - + IF v_counter=0 THEN - DELETE FROM fac_rapport WHERE fac_rapport_node=v_bestand; + DELETE FROM fac_rapport WHERE fac_rapport_node=v_bestand; END IF; - + fac.writelog (p_applname, 'S', 'Exact ruimte export uitgevoerd.','Aantal geexporteerde verhuurbare ruimtes is: '||v_counter); END; / @@ -4503,8 +4503,8 @@ CREATE OR REPLACE VIEW PIVP_V_EXPORT_EXACT_ALL_RUIMTE ( ) AS SELECT fac_rapport_regel ,fac_rapport_volgnr - FROM fac_rapport - WHERE fac_rapport_node = 'EXA_RUIMTE_A' + FROM fac_rapport + WHERE fac_rapport_node = 'EXA_RUIMTE_A' ORDER BY fac_rapport_node,fac_rapport_volgnr; diff --git a/PROR/PROR.sql b/PROR/PROR.sql index 606337cd1..7ab1d98d2 100644 --- a/PROR/PROR.sql +++ b/PROR/PROR.sql @@ -2,11 +2,11 @@ -- $Id$ -- -- Script containing customer specific sql statements for the FACILITOR database --- --- --- --- --- +-- +-- +-- +-- +-- DEFINE thisfile = 'PROR.SQL' DEFINE dbuser = 'PROR' @@ -37,14 +37,14 @@ AS PROCEDURE add_xml_element (p_bestand IN VARCHAR2, p_tag IN VARCHAR2, p_value IN VARCHAR2); - + PROCEDURE inactivate_prs; - + PROCEDURE mandateer_prs(p_perslid_key IN NUMBER); - - - + + + END; / @@ -102,62 +102,62 @@ AS WHERE p.prs_perslid_login < TRUNC (ADD_MONTHS (SYSDATE, -12), 'mm') AND NOT EXISTS (SELECT * -- alleen de NIET AFAS account moeten worden verwijderd - FROM prs_kenmerklink pkl, prs_kenmerk pk + FROM prs_kenmerklink pkl, prs_kenmerk pk WHERE pk.prs_kenmerk_upper='AFAS ACCOUNT' AND pk.prs_kenmerk_key = pkl.prs_kenmerk_key AND pkl.prs_link_key=p.prs_perslid_key AND pkl.prs_kenmerklink_waarde='1') - AND p.prs_perslid_nr NOT LIKE 'P%' -- Alle P accounts komen via SCIM koppeling ,die geeft door als account inactief is + AND p.prs_perslid_nr NOT LIKE 'P%' -- Alle P accounts komen via SCIM koppeling ,die geeft door als account inactief is GROUP BY p.prs_perslid_key, p.prs_perslid_oslogin; - - - -- Alle personen die via de SCIM koppeling zijn aangemkaat en die inactief zijn gemaakt. + + + -- Alle personen die via de SCIM koppeling zijn aangemkaat en die inactief zijn gemaakt. CURSOR prs_del_scim IS SELECT p.prs_perslid_key, p.prs_perslid_oslogin FROM prs_v_aanwezigperslid p WHERE p.prs_perslid_inactief < TRUNC (ADD_MONTHS (SYSDATE, -12), 'mm') AND NOT EXISTS (SELECT * -- alleen de NIET AFAS account moeten worden verwijderd - FROM prs_kenmerklink pkl, prs_kenmerk pk + FROM prs_kenmerklink pkl, prs_kenmerk pk WHERE pk.prs_kenmerk_upper='AFAS ACCOUNT' AND pk.prs_kenmerk_key = pkl.prs_kenmerk_key AND pkl.prs_link_key=p.prs_perslid_key AND pkl.prs_kenmerklink_waarde='1') - AND p.prs_perslid_nr LIKE 'P%' -- Alle P accounts komen via SCIM koppeling ,die geeft door als account inactief is + AND p.prs_perslid_nr LIKE 'P%' -- Alle P accounts komen via SCIM koppeling ,die geeft door als account inactief is GROUP BY p.prs_perslid_key, p.prs_perslid_oslogin; - BEGIN - -- Eerst alle in Facilitro aangemaakt accounts + BEGIN + -- Eerst alle in Facilitro aangemaakt accounts FOR rec IN prs_del LOOP - prs.delete_perslid(NULL, rec.prs_perslid_key); + prs.delete_perslid(NULL, rec.prs_perslid_key); END LOOP; - + -- Alle inactive personen die initieel via de scim koppeling zijn aangemaakt FOR rec2 IN prs_del_scim LOOP - prs.delete_perslid(NULL, rec2.prs_perslid_key); + prs.delete_perslid(NULL, rec2.prs_perslid_key); END LOOP; - + END; -- Mandateren op alle kostenplaatsen - PROCEDURE mandateer_prs(p_perslid_key IN NUMBER) + PROCEDURE mandateer_prs(p_perslid_key IN NUMBER) AS oracle_err_num NUMBER; oracle_err_mes VARCHAR2 (200); - v_errormsg VARCHAR2 (200); + v_errormsg VARCHAR2 (200); v_count NUMBER; BEGIN v_errormsg :='Mandatering voor '||(p_perslid_key); - + SELECT COUNT(*) INTO v_count - FROM prs_perslidkostenplaats + FROM prs_perslidkostenplaats WHERE prs_perslid_key=p_perslid_key; IF v_COUNT=0 THEN INSERT INTO prs_perslidkostenplaats(prs_perslid_key, prs_perslidkostenplaats_boeken, prs_perslidkostenplaats_inzage, - prs_perslidkostenplaats_aanmk) + prs_perslidkostenplaats_aanmk) VALUES(p_perslid_key, 1, 0, @@ -178,11 +178,11 @@ AS 'E', v_errormsg, ''); - + END; - + END; / @@ -209,7 +209,7 @@ AS FROM fac_imp_csv WHERE fac_import_key=p_import_key ORDER BY fac_imp_csv_key; - + v_errormsg VARCHAR2 (1000); v_errorhint VARCHAR2 (1000); @@ -220,20 +220,18 @@ AS v_parent VARCHAR2(10); BEGIN v_count:=0; - + DELETE FROM fac_imp_organisatie; COMMIT; - - fac_import_genericcsv(p_import_key); FOR rec IN c1 LOOP - if v_count>0 + if v_count>0 THEN IF (rec.prs_laag = '1') THEN v_parent:=rec.prs_laag1; - ELSE + ELSE v_parent:=rec.prs_laag2; END IF; INSERT INTO fac_imp_organisatie ( @@ -244,7 +242,7 @@ BEGIN prs_afdeling_externid) VALUES ( rec.prs_bedrijf, - rec.prs_afdeling_code, + rec.prs_afdeling_code, v_parent, rec.prs_afdeling_naam, rec.prs_laag); @@ -262,19 +260,19 @@ EXCEPTION fac.imp_writelog (p_import_key, 'E', v_errormsg, - v_errorhint); - + v_errorhint); + END; / CREATE OR REPLACE PROCEDURE pror_update_afas_organisatie(p_import_key IN NUMBER) AS - + CURSOR c1 IS SELECT prs_afdeling_naam, prs_afdeling_omschrijving, prs_afdeling_naam_parent, - prs_afdeling_externid + prs_afdeling_externid FROM fac_imp_organisatie ORDER BY prs_afdeling_externid; v_date DATE; @@ -283,16 +281,16 @@ AS v_bedrijf_key NUMBER :=-1; v_afdeling_key NUMBER :=-1; BEGIN - - - SELECT prs_bedrijf_key - INTO v_bedrijf_key - FROM prs_bedrijf - WHERE prs_bedrijf_naam_upper='PRORAIL' + + + SELECT prs_bedrijf_key + INTO v_bedrijf_key + FROM prs_bedrijf + WHERE prs_bedrijf_naam_upper='PRORAIL' AND prs_bedrijf_verwijder IS NULL; - + IF v_bedrijf_key>0 THEN - + FOR rec in C1 LOOP -- kijk of de afdeling al bestaat en dezelfde parent heeft @@ -302,25 +300,25 @@ BEGIN IF rec.prs_afdeling_naam_parent='50035512' -- deze moeten onder het berdijf worden gezet. THEN v_prs_afdeling_parentkey:=TO_NUMBER(NULL); - ELSE - v_bedrijf_key := to_number(NULL); - SELECT prs_afdeling_key INTO v_prs_afdeling_parentkey - FROM prs_afdeling + ELSE + v_bedrijf_key := to_number(NULL); + SELECT prs_afdeling_key INTO v_prs_afdeling_parentkey + FROM prs_afdeling WHERE prs_afdeling_naam=rec.prs_afdeling_naam_parent AND prs_afdeling_verwijder IS NULL; END IF; - SELECT COUNT(*) INTO v_count + SELECT COUNT(*) INTO v_count FROM prs_afdeling a1 - where a1.prs_afdeling_naam = rec.prs_afdeling_naam + where a1.prs_afdeling_naam = rec.prs_afdeling_naam AND a1.prs_afdeling_verwijder IS NULL; - IF v_count=0 - THEN + IF v_count=0 + THEN INSERT INTO PRS_AFDELING (prs_afdeling_naam, prs_afdeling_omschrijving, prs_bedrijf_key, - prs_afdeling_parentkey + prs_afdeling_parentkey ) VALUES (rec.prs_afdeling_naam, @@ -328,47 +326,47 @@ BEGIN v_bedrijf_key, v_prs_afdeling_parentkey ) - RETURNING prs_afdeling_key + RETURNING prs_afdeling_key INTO v_afdeling_key; - + -- Wat was de afdeling waar deze in afas ondervalt IF rec.prs_afdeling_externid != '1' - THEN + THEN SELECT p.prs_afdeling_key INTO v_prs_afdeling_parentkey FROM fac_imp_csv csv, prs_afdeling p WHERE csv.fac_imp_csv_col02=rec.prs_afdeling_naam AND p.prs_afdeling_naam=csv.fac_imp_csv_col04 - AND p.prs_afdeling_verwijder IS NULL; - - + AND p.prs_afdeling_verwijder IS NULL; + + flx.setflex('PRS', 1020,v_afdeling_key, 'A', v_prs_afdeling_parentkey); -- D=1021, A=1041 P=1020 flx.setflex('PRS', 1021,v_afdeling_key, 'A', rec.prs_afdeling_externid); -- D=1020 A=1040 P=1021 END IF; COMMIT; - ELSE + ELSE IF rec.prs_afdeling_externid != '1' - THEN + THEN -- Wat is de nieuwe parent afdeling SELECT p.prs_afdeling_key INTO v_prs_afdeling_parentkey FROM fac_imp_csv csv, prs_afdeling p WHERE csv.fac_imp_csv_col02=rec.prs_afdeling_naam AND p.prs_afdeling_naam=csv.fac_imp_csv_col04 - AND p.prs_afdeling_verwijder IS NULL; - + AND p.prs_afdeling_verwijder IS NULL; + -- Wta is de huidge afdeling_key - SELECT prs_afdeling_key - INTO v_afdeling_key - FROM prs_afdeling where prs_afdeling_naam= rec.prs_afdeling_naam - AND prs_afdeling_verwijder IS NULL; - + SELECT prs_afdeling_key + INTO v_afdeling_key + FROM prs_afdeling where prs_afdeling_naam= rec.prs_afdeling_naam + AND prs_afdeling_verwijder IS NULL; + flx.setflex('PRS', 1020,v_afdeling_key,'A', v_prs_afdeling_parentkey); -- D=1021, A=1041 P=1020 flx.setflex('PRS', 1021,v_afdeling_key,'A', rec.prs_afdeling_externid); -- D=1020 A=1040 P=1021 END IF; END IF; - END IF; + END IF; END LOOP; END IF; -- Nu even opruimen @@ -388,7 +386,7 @@ AS fac_imp_csv_col03 prs_tussenvoegsel, fac_imp_csv_col04 prs_achternaam, fac_imp_csv_col05 prs_perslid_nr, - fac_imp_csv_col06 prs_afd1_code, + fac_imp_csv_col06 prs_afd1_code, fac_imp_csv_col07 prs_functie, fac_imp_csv_col08 prs_email, fac_imp_csv_col09 prs_telefoon, @@ -404,42 +402,41 @@ AS oracle_err_num NUMBER; oracle_err_mes VARCHAR2 (200); v_count NUMBER; - + v_afdelingnaam VARCHAR2(20); v_afd_count NUMBER; v_srtperslid_omschrijving VARCHAR2(60); BEGIN v_count:=0; - + DELETE FROM fac_imp_perslid; - fac_import_genericcsv(p_import_key); - + FOR rec IN c1 LOOP IF v_count>0 THEN - -- ALs een per op niveau 9 zit heeft de - - + -- ALs een per op niveau 9 zit heeft de + + -- controleren of de afdeling wel beschikbaar is anders onder Onbekend zetten - SELECT COUNT(*) INTO v_afd_count - FROM prs_afdeling - WHERE prs_afdeling_naam=rec.prs_afd1_code + SELECT COUNT(*) INTO v_afd_count + FROM prs_afdeling + WHERE prs_afdeling_naam=rec.prs_afd1_code AND prs_afdeling_verwijder IS NULL; - + IF v_afd_count=0 THEN v_afdelingnaam :='Onbekend'; ELSE v_afdelingnaam := rec.prs_afd1_code; END IF; - + IF rec.prs_functie IS NULL THEN v_srtperslid_omschrijving:='Onbekend'; - ELSE - v_srtperslid_omschrijving:= rec.prs_functie; + ELSE + v_srtperslid_omschrijving:= rec.prs_functie; END IF; - - + + INSERT INTO fac_imp_perslid(fac_import_key, prs_afdeling_naam, prs_perslid_voornaam, @@ -447,9 +444,9 @@ BEGIN prs_perslid_tussenvoegsel, prs_perslid_naam, prs_perslid_email, - prs_perslid_telefoonnr, + prs_perslid_telefoonnr, prs_srtperslid_omschrijving, - prs_perslid_oslogin, + prs_perslid_oslogin, prs_perslid_nr, prs_kenmerk1) VALUES(p_import_key, @@ -460,14 +457,14 @@ BEGIN rec.prs_achternaam, -- LTRIM(rec.prs_tussenvoegsel||' '||rec.prs_achternaam), rec.prs_email, - rec.prs_telefoon, + rec.prs_telefoon, v_srtperslid_omschrijving, -- rec.prs_perslid_nr, SUBSTR(rec.prs_email,0,30), rec.prs_perslid_nr, '1000=1'); -- AFAS account kenmerk D=1022, A=1020, P=1000 END IF; - v_count:=v_count+1; + v_count:=v_count+1; END LOOP; DELETE FROM fac_imp_csv where fac_import_key=p_import_key; EXCEPTION @@ -481,8 +478,8 @@ EXCEPTION fac.imp_writelog (p_import_key, 'E', v_errormsg, - v_errorhint); - + v_errorhint); + END; / @@ -491,35 +488,35 @@ AS CURSOR p_del -- We doen dit alleen voor de afas aqccounts IS SELECT p.prs_perslid_key - FROM prs_perslid p, prs_kenmerklink kl, prs_kenmerk pk + FROM prs_perslid p, prs_kenmerklink kl, prs_kenmerk pk WHERE p.prs_perslid_verwijder IS NULL AND pk.prs_kenmerk_upper='AFAS ACCOUNT' AND kl.prs_kenmerk_key = pk.prs_kenmerk_key - AND kl.prs_link_key=p.prs_perslid_key - AND kl.prs_kenmerklink_waarde='1' - AND p.prs_perslid_nr NOT IN (SELECT prs_perslid_nr + AND kl.prs_link_key=p.prs_perslid_key + AND kl.prs_kenmerklink_waarde='1' + AND p.prs_perslid_nr NOT IN (SELECT prs_perslid_nr FROM fac_imp_perslid); CURSOR p_mandaat IS - SELECT p.prs_perslid_key - FROM fac_imp_perslid f, prs_perslid p + SELECT p.prs_perslid_key + FROM fac_imp_perslid f, prs_perslid p WHERE f.prs_perslid_email = p.prs_perslid_email - AND p.prs_perslid_verwijder IS NULL - AND p.prs_perslid_key NOT IN (SELECT DISTINCT prs_perslid_key + AND p.prs_perslid_verwijder IS NULL + AND p.prs_perslid_key NOT IN (SELECT DISTINCT prs_perslid_key FROM prs_perslidkostenplaats pk); CURSOR p_autgroep -- welke afas accounts hebben nog geen autgroep IS - SELECT p.prs_perslid_key - FROM prs_perslid p, prs_kenmerklink kl, prs_kenmerk pk - WHERE p.prs_perslid_verwijder is null + SELECT p.prs_perslid_key + FROM prs_perslid p, prs_kenmerklink kl, prs_kenmerk pk + WHERE p.prs_perslid_verwijder is null AND pk.prs_kenmerk_upper='AFAS ACCOUNT' AND kl.prs_kenmerk_key = pk.prs_kenmerk_key - AND kl.prs_link_key=p.prs_perslid_key - AND kl.prs_kenmerklink_waarde=1 - AND NOT EXISTS (SELECT 'x' - FROM fac_gebruikersgroep f + AND kl.prs_link_key=p.prs_perslid_key + AND kl.prs_kenmerklink_waarde=1 + AND NOT EXISTS (SELECT 'x' + FROM fac_gebruikersgroep f WHERE f.prs_perslid_key=p.prs_perslid_key); v_errormsg VARCHAR2 (1000); @@ -527,55 +524,55 @@ AS v_aanduiding VARCHAR2 (1000); oracle_err_num NUMBER; oracle_err_mes VARCHAR2 (200); - + v_date DATE; v_defaultgroep NUMBER:=1; v_count NUMBER; v_aanwezig NUMBER; BEGIN - + -- Hebben we wel een gevuld bestand binnen gekregen SELECT COUNT(*) INTO v_count FROM fac_imp_perslid; - + SELECT COUNT(*) INTO v_aanwezig - FROM prs_perslid p, prs_kenmerklink kl, prs_kenmerk pk + FROM prs_perslid p, prs_kenmerklink kl, prs_kenmerk pk WHERE p.prs_perslid_verwijder IS NULL AND pk.prs_kenmerk_upper='AFAS ACCOUNT' AND kl.prs_kenmerk_key = pk.prs_kenmerk_key - AND kl.prs_link_key=p.prs_perslid_key - AND kl.prs_kenmerklink_waarde='1'; - - + AND kl.prs_link_key=p.prs_perslid_key + AND kl.prs_kenmerklink_waarde='1'; + + IF (v_count/v_aanwezig) > 0.85 -- we gaan uit van minimaal 85% aanwezig in import file THEN v_errormsg := 'Fout bij update van personen.'; - prs.update_perslid (p_import_key, 'NR', 'A', 1); - - - v_errormsg := 'Fout bij verwijderen van personen.'; + prs.update_perslid (p_import_key, 'NR', 'A', 1); + + + v_errormsg := 'Fout bij verwijderen van personen.'; FOR rec IN p_del LOOP prs.delete_perslid (p_import_key, rec.prs_perslid_key); END LOOP; - + v_errormsg := 'Fout bij mandateren van personen.'; FOR rec_man IN p_mandaat LOOP pror.mandateer_prs(rec_man.prs_perslid_key); END LOOP; - + v_errormsg := 'Fout bij toevoegen personen aan autorisatiegroep.'; FOR rec2 IN p_autgroep LOOP - INSERT INTO fac_gebruikersgroep(FAC_GROEP_KEY, prs_perslid_key) + INSERT INTO fac_gebruikersgroep(FAC_GROEP_KEY, prs_perslid_key) VALUES(v_defaultgroep, rec2.prs_perslid_key); END LOOP; - + COMMIT; - + END IF; EXCEPTION @@ -588,8 +585,8 @@ EXCEPTION fac.imp_writelog (p_import_key, 'E', v_errormsg, - v_errorhint); - + v_errorhint); + END; / @@ -617,14 +614,14 @@ BEGIN fac_update_ins(p_import_key); FOR rec IN ins LOOP - UPDATE ins_deel i - SET i.ins_deel_opmerking=(SELECT al.alg_locatie_code||'-'||a.alg_plaatsaanduiding||' ('||a.alg_ruimte_omschrijving||')' - FROM alg_v_allonrgoed_gegevens a, alg_locatie al - WHERE a.alg_locatie_key = al.alg_locatie_key - AND a.alg_ruimte_key=i.ins_alg_ruimte_key) + UPDATE ins_deel i + SET i.ins_deel_opmerking=(SELECT al.alg_locatie_code||'-'||a.alg_plaatsaanduiding||' ('||a.alg_ruimte_omschrijving||')' + FROM alg_v_allonrgoed_gegevens a, alg_locatie al + WHERE a.alg_locatie_key = al.alg_locatie_key + AND a.alg_ruimte_key=i.ins_alg_ruimte_key) WHERE i.ins_deel_omschrijving=rec.ins_deel_omschrijving; END LOOP; - + END; / @@ -636,7 +633,7 @@ BEGIN -- inactiveren personen die 12 maanden niet hebben ingelogd pror.inactivate_prs (); - + END; / @@ -655,7 +652,7 @@ CREATE OR REPLACE VIEW PROR_V_NSECURE_UPDATE key, xkey, xemail, - xmobile + xmobile ) AS SELECT NULL sender, @@ -663,59 +660,59 @@ AS 'CUST03' code, 'Opdracht '||o.mld_melding_key||'/'||o.mld_opdr_bedrijfopdr_volgnr||' met NSecureNr '||ko.mld_kenmerkopdr_waarde||' is gewijzigd' text, o.mld_opdr_key, - null xkey, - (SELECT b.prs_bedrijf_email - FROM prs_bedrijf b - WHERE b.prs_leverancier_nr ='313341' - AND b.prs_bedrijf_uitvoerende='1' + null xkey, + (SELECT b.prs_bedrijf_email + FROM prs_bedrijf b + WHERE b.prs_leverancier_nr ='313341' + AND b.prs_bedrijf_uitvoerende='1' AND b.prs_bedrijf_verwijder IS NULL) xemail, NULL xmobile FROM mld_opdr o, mld_kenmerkopdr ko, mld_kenmerk km WHERE o.mld_statusopdr_key IN (5,8) -- toegekend, geaccpeteerd - AND o.mld_uitvoerende_keys=(SELECT b.prs_bedrijf_key - FROM prs_bedrijf b - WHERE b.prs_leverancier_nr ='313341' - AND b.prs_bedrijf_uitvoerende='1' + AND o.mld_uitvoerende_keys=(SELECT b.prs_bedrijf_key + FROM prs_bedrijf b + WHERE b.prs_leverancier_nr ='313341' + AND b.prs_bedrijf_uitvoerende='1' AND b.prs_bedrijf_verwijder IS NULL) AND ko.mld_opdr_key = o.MLD_OPDR_KEY AND ko.mld_kenmerk_key = km.mld_kenmerk_key AND km.mld_kenmerk_omschrijving='NSecure Nr' - AND LENGTH(ko.mld_kenmerkopdr_waarde)>2 + AND LENGTH(ko.mld_kenmerkopdr_waarde)>2 AND ( - ( o.mld_opdr_verzonden < (SELECT MAX(ft.fac_tracking_datum) - FROM fac_tracking ft + ( o.mld_opdr_verzonden < (SELECT MAX(ft.fac_tracking_datum) + FROM fac_tracking ft WHERE ft.fac_tracking_refkey=o.mld_opdr_key -- Alleen een update AND ft.fac_srtnotificatie_key=80 AND lower(ft.fac_tracking_oms) like '%gewijzigd%omschrijving%veranderd%' - AND ft.prs_perslid_key != 621) - AND (SELECT MAX(ft.fac_tracking_datum) - FROM fac_tracking ft + AND ft.prs_perslid_key != 621) + AND (SELECT MAX(ft.fac_tracking_datum) + FROM fac_tracking ft WHERE ft.fac_tracking_refkey=o.mld_opdr_key -- Alleen een update AND ft.fac_srtnotificatie_key=80 AND lower(ft.fac_tracking_oms) like '%gewijzigd%omschrijving%veranderd%' - AND ft.prs_perslid_key != 621) - > - COALESCE((SELECT MAX(ft.fac_tracking_datum) - FROM fac_tracking ft + AND ft.prs_perslid_key != 621) + > + COALESCE((SELECT MAX(ft.fac_tracking_datum) + FROM fac_tracking ft WHERE ft.fac_tracking_refkey=o.mld_opdr_key -- Alleen een update AND ft.fac_srtnotificatie_key=220 -- ORDTRL - AND LOWER(ft.fac_tracking_oms) like '%cust03%'), o.mld_opdr_verzonden) - ) - OR - ( o.mld_opdr_verzonden < (SELECT MAX(mld_opdr_note_aanmaak) - FROM mld_opdr_note - WHERE mld_opdr_key=o.mld_opdr_key - AND mld_opdr_note_flag in (4,5)) - AND (SELECT MAX(mld_opdr_note_aanmaak) - FROM mld_opdr_note - WHERE mld_opdr_key=o.mld_opdr_key - AND mld_opdr_note_flag in (4,5)) - > - COALESCE((SELECT MAX(ft.fac_tracking_datum) - FROM fac_tracking ft + AND LOWER(ft.fac_tracking_oms) like '%cust03%'), o.mld_opdr_verzonden) + ) + OR + ( o.mld_opdr_verzonden < (SELECT MAX(mld_opdr_note_aanmaak) + FROM mld_opdr_note + WHERE mld_opdr_key=o.mld_opdr_key + AND mld_opdr_note_flag in (4,5)) + AND (SELECT MAX(mld_opdr_note_aanmaak) + FROM mld_opdr_note + WHERE mld_opdr_key=o.mld_opdr_key + AND mld_opdr_note_flag in (4,5)) + > + COALESCE((SELECT MAX(ft.fac_tracking_datum) + FROM fac_tracking ft WHERE ft.fac_tracking_refkey=o.mld_opdr_key -- Alleen een update AND ft.fac_srtnotificatie_key=220 -- ORDTRL - AND LOWER(ft.fac_tracking_oms) like '%cust03%'), o.mld_opdr_verzonden) + AND LOWER(ft.fac_tracking_oms) like '%cust03%'), o.mld_opdr_verzonden) ) ); @@ -739,12 +736,12 @@ AS SELECT DISTINCT res_reservering_key||'/'||res_rsv_ruimte_volgnr reserveringNr, res_reservering_key key, 'CUST02' cust_code, - 'Reservering '||res_reservering_key||'/'||res_rsv_ruimte_volgnr||' op '|| TO_CHAR(leverdatum,'DD-MM-YYYY HH24:MI')||' is verwijderd buiten annulerings horizon.' text, - (SElECT p.prs_perslid_naam_friendly - FROM prs_v_perslid_fullnames_all p + 'Reservering '||res_reservering_key||'/'||res_rsv_ruimte_volgnr||' op '|| TO_CHAR(leverdatum,'DD-MM-YYYY HH24:MI')||' is verwijderd buiten annulerings horizon.' text, + (SElECT p.prs_perslid_naam_friendly + FROM prs_v_perslid_fullnames_all p WHERE p.prs_perslid_key= gastheer_key) gastheer, - NULL receiver, - NULL sender, + NULL receiver, + NULL sender, 'cateringmanagerprorail@prorail.nl' xemail, NULL xmobile, res_rsv_ruimte_key xkey @@ -754,33 +751,33 @@ AS WHERE res_rsv_ruimte_key = r.res_rsv_ruimte_key AND ra.res_artikel_key = rra.res_artikel_key AND ra.res_discipline_key = rd.ins_discipline_key - AND rdp.res_ins_discipline_key=rd.ins_discipline_key) annuleer_dagen + AND rdp.res_ins_discipline_key=rd.ins_discipline_key) annuleer_dagen FROM (SELECT DISTINCT res.res_rsv_ruimte_key res_rsv_ruimte_key, res.res_reservering_key res_reservering_key, res.res_rsv_ruimte_volgnr res_rsv_ruimte_volgnr, res.res_rsv_ruimte_host_key gastheer_key, - res.res_rsv_ruimte_verwijder datum_verwijder, + res.res_rsv_ruimte_verwijder datum_verwijder, fac.safe_to_date ( TO_CHAR (res.res_rsv_ruimte_van, 'DD-MM-YYYY')||' 12:00', 'DD-MM-YYYY HH24:MI') leverdatum FROM res_rsv_ruimte res, res_rsv_artikel rra - WHERE res.res_rsv_ruimte_verwijder IS NOT NULL + WHERE res.res_rsv_ruimte_verwijder IS NOT NULL AND res.res_rsv_ruimte_externnr IS NOT NULL AND res.res_status_fo_key=4 - AND rra.res_rsv_ruimte_key=res.res_rsv_ruimte_key) r) x + AND rra.res_rsv_ruimte_key=res.res_rsv_ruimte_key) r) x WHERE datum_verwijder> leverdatum - annuleer_dagen - AND NOT EXISTS (SELECT rkw.res_kenmerk_key - FROM res_kenmerkwaarde rkw, + AND NOT EXISTS (SELECT rkw.res_kenmerk_key + FROM res_kenmerkwaarde rkw, res_kenmerk rk WHERE rkw.res_rsv_ruimte_key=x.res_rsv_ruimte_key AND rk.res_kenmerk_key = rkw.res_kenmerk_key AND UPPER(rk.res_kenmerk_omschrijving)='EXTERNSYNCDATUM') - AND NOT EXISTS (SElECT * - FROM fac_tracking ft + AND NOT EXISTS (SElECT * + FROM fac_tracking ft WHERE fac_tracking_refkey=x.res_rsv_ruimte_key AND ft.fac_srtnotificatie_key=223 - AND ft.fac_tracking_oms LIKE '%CUST02%'); + AND ft.fac_tracking_oms LIKE '%CUST02%'); -- Noifictaie View tbv reservereing gedaan door contact<>host @@ -793,18 +790,18 @@ CREATE OR REPLACE VIEW pror_v_res_other_contact key, xkey, xemail, - xmobile + xmobile ) AS - SELECT - NULL sender, + SELECT + NULL sender, rrr.res_rsv_ruimte_contact_key receiver, 'CUST01' code, 'Reservering '||rrr.res_reservering_key||'/ '||rrr.res_rsv_ruimte_volgnr|| --- ' is door '||(SELECT prs_perslid_naam_friendly --- FROM prs_v_perslid_fullnames p, fac_tracking ft --- WHERE ft.fac_tracking_refkey=rrr.res_rsv_ruimte_key --- AND fac_srtnotificatie_key=116 +-- ' is door '||(SELECT prs_perslid_naam_friendly +-- FROM prs_v_perslid_fullnames p, fac_tracking ft +-- WHERE ft.fac_tracking_refkey=rrr.res_rsv_ruimte_key +-- AND fac_srtnotificatie_key=116 -- AND p.prs_perslid_key= ft.prs_perslid_key)|| ' voor u aangemaakt.' text, rrr.res_rsv_ruimte_key key, @@ -812,15 +809,15 @@ AS NULL xemail, NULL xmobile FROM res_rsv_ruimte rrr - WHERE rrr.res_rsv_ruimte_host_key<>rrr.res_rsv_ruimte_contact_key -- DIT MOET ANDERS - AND NOT EXISTS (SELECT * - FROM fac_tracking ft - WHERE fac_tracking_refkey=rrr.res_rsv_ruimte_key + WHERE rrr.res_rsv_ruimte_host_key<>rrr.res_rsv_ruimte_contact_key -- DIT MOET ANDERS + AND NOT EXISTS (SELECT * + FROM fac_tracking ft + WHERE fac_tracking_refkey=rrr.res_rsv_ruimte_key AND ft.fac_srtnotificatie_key=223 AND ft.fac_tracking_oms LIKE '%CUST01%') - AND rrr.res_rsv_ruimte_aanmaak BETWEEN SYSDATE-1 AND SYSDATE; - - + AND rrr.res_rsv_ruimte_aanmaak BETWEEN SYSDATE-1 AND SYSDATE; + + -- EINDE NOTIFICATIE VIEWS @@ -841,26 +838,26 @@ CREATE OR REPLACE VIEW pror_v_SerMdwKalender URL ) AS - SELECT rrr.res_rsv_ruimte_host_key user_key, - CASE WHEN rro.res_ruimte_opstel_tijd>0 AND (SELECT COUNT(*) - FROM res_rsv_deel rrd + SELECT rrr.res_rsv_ruimte_host_key user_key, + CASE WHEN rro.res_ruimte_opstel_tijd>0 AND (SELECT COUNT(*) + FROM res_rsv_deel rrd WHERE rrd.res_rsv_ruimte_key = rrr.res_rsv_ruimte_key)>0 THEN 'Opstelling + Vergadermiddel' WHEN rro.res_ruimte_opstel_tijd>0 then 'Opstelling' - ELSE 'Vergadermiddel' end title, - rrr.res_rsv_ruimte_van van, + ELSE 'Vergadermiddel' end title, + rrr.res_rsv_ruimte_van van, rrr.res_rsv_ruimte_tot tot, rrr.res_rsv_ruimte_key item_key, '#009900' color, - '#ffffff' textcolor, - '?u=reservering' || chr (38) || 'k=' || rrr.res_rsv_ruimte_key url - FROM res_rsv_ruimte rrr, res_activiteit ra, res_ruimte_opstelling rro - WHERE rrr.res_activiteit_key=ra.res_activiteit_key - AND UPPER(ra.res_activiteit_omschrijving)='VERGADERING' + '#ffffff' textcolor, + '?u=reservering' || chr (38) || 'k=' || rrr.res_rsv_ruimte_key url + FROM res_rsv_ruimte rrr, res_activiteit ra, res_ruimte_opstelling rro + WHERE rrr.res_activiteit_key=ra.res_activiteit_key + AND UPPER(ra.res_activiteit_omschrijving)='VERGADERING' AND TRUNC(rrr.res_rsv_ruimte_van)>= TRUNC(SYSDATE-30) -- we laten alleen een 30 dagen terug zien. AND rrr.res_ruimte_opstel_key= rro.res_ruimte_opstel_key - AND rrr.res_rsv_ruimte_verwijder IS NULL - AND (rro.res_ruimte_opstel_tijd> 0 OR (SELECT COUNT(*) - FROM res_rsv_deel rrd + AND rrr.res_rsv_ruimte_verwijder IS NULL + AND (rro.res_ruimte_opstel_tijd> 0 OR (SELECT COUNT(*) + FROM res_rsv_deel rrd WHERE rrd.res_rsv_ruimte_key = rrr.res_rsv_ruimte_key)>0 ); @@ -873,7 +870,7 @@ AS SELECT * FROM ( SELECT DISTINCT(rrr.res_rsv_ruimte_key) rrr_key, rrr.res_reservering_key reservering_key, - rrr.res_rsv_ruimte_volgnr, + rrr.res_rsv_ruimte_volgnr, rrr.res_rsv_ruimte_aanmaak aanmk_datum, (SELECT MAX (fac_tracking_datum) FROM fac_tracking @@ -885,7 +882,7 @@ AS (SELECT prs_perslid_externid FROM prs_perslid WHERE prs_perslid_key = rrr.res_rsv_ruimte_contact_key) besteller, - (SELECT DISTINCT lev.PRS_BEDRIJF_EMAIL + (SELECT DISTINCT lev.PRS_BEDRIJF_EMAIL FROM res_rsv_artikel rar, res_artikel art, res_disc_params dsp, @@ -917,11 +914,11 @@ AS AND ros.res_opstelling_key = rop.res_opstelling_key AND rer.res_ruimte_key = rop.res_ruimte_key AND rarm.res_ruimte_key = rer.res_ruimte_key - AND alg.alg_ruimte_key = rarm.alg_ruimte_key + AND alg.alg_ruimte_key = rarm.alg_ruimte_key UNION ALL SELECT DISTINCT(rrr.res_rsv_ruimte_key) rrr_key, rrr.res_reservering_key reservering_key, - rrr.res_rsv_ruimte_volgnr, + rrr.res_rsv_ruimte_volgnr, rrr.res_rsv_ruimte_aanmaak aanmk_datum, (SELECT MAX (fac_tracking_datum) FROM fac_tracking @@ -933,7 +930,7 @@ AS (SELECT pa.PRS_PERSLID_EMAIL FROM PRS_V_PERSLID_GEGEVENS pa WHERE pa.prs_perslid_key = rrr.res_rsv_ruimte_contact_key) besteller, - (SELECT DISTINCT lev.prs_bedrijf_email + (SELECT DISTINCT lev.prs_bedrijf_email FROM res_rsv_artikel rar, res_artikel art, res_disc_params dsp, @@ -958,7 +955,7 @@ AS WHERE rrr.res_status_fo_key = 2 AND rra.RES_RSV_RUIMTE_KEY = rrr.RES_RSV_RUIMTE_KEY AND alg.alg_ruimte_key = rrr.alg_ruimte_key - ORDER BY reservering_key) + ORDER BY reservering_key) WHERE aanmk_datum > SYSDATE-2/24 OR last_upd>aanmk_datum AND last_upd > SYSDATE-2/24; @@ -968,71 +965,71 @@ AS -- Dez worden naar Provat geexporteerd/rapport wordt door provat aangeroepen --- CREATE OR REPLACE VIEW pror_v_mld_provat -AS +AS SELECT m.mld_melding_key melding_key, m.mld_melding_datum begin_datum, (SELECT p.prs_perslid_naam||','|| p.prs_perslid_voornaam||' '||p.prs_perslid_tussenvoegsel FROM prs_perslid p WHERE p.prs_perslid_key=m.prs_perslid_key) contact, md.ins_discipline_omschrijving Service, - ms.mld_stdmelding_omschrijving omschrijving, - (SELECT al.alg_locatie_omschrijving - FROM alg_locatie al + ms.mld_stdmelding_omschrijving omschrijving, + (SELECT al.alg_locatie_omschrijving + FROM alg_locatie al WHERE al.alg_locatie_key=m.mld_alg_locatie_key) ||'-'|| a.alg_gebouw_naam locatie, (SELECT ins_discipline_omschrijving FROM mld_discipline md WHERE md.ins_discipline_key = m.mld_ins_discipline_key) assignee, --- DEZE MOET NOG WORDERN GEVULD. '' type_request, - (SELECT ms.mld_statuses_omschrijving - FROM mld_statuses ms + (SELECT ms.mld_statuses_omschrijving + FROM mld_statuses ms WHERE ms.mld_statuses_key=m.mld_melding_status) mld_status, - '' kostenplaats, + '' kostenplaats, TO_CHAR(SUBSTR(m.mld_melding_omschrijving,1,4000)) onderwerp, - (SELECT listagg(x.kenmerkwaardes, ', ' ) within group (order by x.volgnr) - FROM + (SELECT listagg(x.kenmerkwaardes, ', ' ) within group (order by x.volgnr) + FROM (SELECT k.mld_kenmerk_omschrijving||':'||COALESCE(fud.fac_usrdata_code, km.mld_kenmerkmelding_waarde) kenmerkwaardes, - k.mld_kenmerk_volgnummer volgnr - FROM mld_kenmerkmelding km, - mld_kenmerk k, - mld_srtkenmerk skm, - fac_kenmerkdomein fk, - fac_usrdata fud, - fac_usrtab fut - WHERE mld_melding_key=m.mld_melding_key - AND k.mld_kenmerk_key = km.mld_kenmerk_key + k.mld_kenmerk_volgnummer volgnr + FROM mld_kenmerkmelding km, + mld_kenmerk k, + mld_srtkenmerk skm, + fac_kenmerkdomein fk, + fac_usrdata fud, + fac_usrtab fut + WHERE mld_melding_key=m.mld_melding_key + AND k.mld_kenmerk_key = km.mld_kenmerk_key AND skm.mld_srtkenmerk_key(+) = k.mld_srtkenmerk_key AND fk.fac_kenmerkdomein_key(+) = skm.fac_kenmerkdomein_key AND fut.fac_usrtab_key(+) = fk.fac_usrtab_key AND fud.fac_usrtab_key(+) = fut.fac_usrtab_key AND fud.fac_usrdata_key(+) = FAC.SAFE_TO_NUMBER(km.mld_kenmerkmelding_waarde) AND k.mld_kenmerk_volgnummer>0) x - ) kenmerkwaardes, - (SELECT MAX (f.fac_tracking_datum) - FROM fac_tracking f + ) kenmerkwaardes, + (SELECT MAX (f.fac_tracking_datum) + FROM fac_tracking f WHERE f.FAC_TRACKING_REFKEY=m.mld_melding_key AND f.FAC_SRTNOTIFICATIE_KEY=55 AND f.FAC_TRACKING_DATUM>m.mld_melding_datum) mld_update, - (SELECT mk.mld_kenmerkmelding_waarde - FROM mld_kenmerkmelding mk, - mld_kenmerk k - WHERE mk.MLD_melding_KEY=m.mld_melding_key - AND mk.mld_kenmerk_key=k.mld_kenmerk_key - AND UPPER(k.mld_kenmerk_omschrijving)='PROVATEXPORTFLAG') provat_flag, - (SELECT mk.mld_kenmerkmelding_waarde + (SELECT mk.mld_kenmerkmelding_waarde FROM mld_kenmerkmelding mk, mld_kenmerk k - WHERE mk.mld_melding_key=m.mld_melding_key + WHERE mk.MLD_melding_KEY=m.mld_melding_key AND mk.mld_kenmerk_key=k.mld_kenmerk_key - AND UPPER(k.mld_kenmerk_omschrijving)='PROVATEXPORT') export_provat - FROM mld_melding m, - mld_stdmelding ms, + AND UPPER(k.mld_kenmerk_omschrijving)='PROVATEXPORTFLAG') provat_flag, + (SELECT mk.mld_kenmerkmelding_waarde + FROM mld_kenmerkmelding mk, + mld_kenmerk k + WHERE mk.mld_melding_key=m.mld_melding_key + AND mk.mld_kenmerk_key=k.mld_kenmerk_key + AND UPPER(k.mld_kenmerk_omschrijving)='PROVATEXPORT') export_provat + FROM mld_melding m, + mld_stdmelding ms, mld_discipline md, - alg_v_allonrgoed_gegevens a + alg_v_allonrgoed_gegevens a WHERE m.mld_stdmelding_key=ms.mld_stdmelding_key AND md.ins_discipline_key= ms.mld_ins_discipline_key - AND (UPPER(ms.mld_stdmelding_omschrijving)='INZET BHV OF ONGEVAL MELDEN' + AND (UPPER(ms.mld_stdmelding_omschrijving)='INZET BHV OF ONGEVAL MELDEN' OR UPPER(ms.mld_stdmelding_omschrijving)='ONVEILIGE SITUATIE MELDEN' OR UPPER(ms.mld_stdmelding_omschrijving)='BEVEILIGINGSINCIDENT MELDEN') - AND a.alg_locatie_key=m.mld_alg_locatie_key + AND a.alg_locatie_key=m.mld_alg_locatie_key AND a.alg_onroerendgoed_keys=m.mld_alg_onroerendgoed_keys - AND m.mld_melding_status IN (2,3,4,5,7); - + AND m.mld_melding_status IN (2,3,4,5,7); + --- -- View tbv alle bookmarks @@ -1040,10 +1037,10 @@ AS --- CREATE OR REPLACE VIEW pror_v_bkms_biomni AS - SELECT - CASE WHEN (SELECT USER FROM DUAL)='PROR_TEST' + SELECT + CASE WHEN (SELECT USER FROM DUAL)='PROR_TEST' THEN 'https://fmis.testprorail.nl/?u='||fac_bookmark_id||CHR(38)||'mld_defaultstdmelding='||ms.MLD_STDMELDING_KEY - ELSE 'https://fmis.prorail.nl/?u='||fac_bookmark_id||CHR(38)||'mld_defaultstdmelding='||ms.MLD_STDMELDING_KEY + ELSE 'https://fmis.prorail.nl/?u='||fac_bookmark_id||CHR(38)||'mld_defaultstdmelding='||ms.MLD_STDMELDING_KEY END url, ms.MLD_STDMELDING_OMSCHRIJVING FROM fac_bookmark fb, mld_stdmelding ms @@ -1058,34 +1055,34 @@ AS CREATE OR REPLACE VIEW pror_v_mld_biomni AS SELECT m.mld_melding_key mld_key, - id.ins_srtdiscipline_prefix||m.mld_melding_key mld_key_inclprefix, - COALESCE(m.mld_melding_onderwerp, ms.mld_stdmelding_omschrijving) omschrijving, - mst.mld_statuses_omschrijving, + id.ins_srtdiscipline_prefix||m.mld_melding_key mld_key_inclprefix, + COALESCE(m.mld_melding_onderwerp, ms.mld_stdmelding_omschrijving) omschrijving, + mst.mld_statuses_omschrijving, m.mld_melding_datum aanvraag_datum, COALESCE(p.prs_perslid_email,m.mld_melding_email_ext) email_aanvrager, - (SELECT a.mld_melding_note_omschrijving - FROM (SELECT mld_melding_note_omschrijving - FROM mld_melding_note - WHERE mld_melding_key=m.mld_melding_key - ORDER BY mld_melding_note_aanmaak desc) a + (SELECT a.mld_melding_note_omschrijving + FROM (SELECT mld_melding_note_omschrijving + FROM mld_melding_note + WHERE mld_melding_key=m.mld_melding_key + ORDER BY mld_melding_note_aanmaak desc) a WHERE ROWNUM=1) notitie, - CASE WHEN (SELECT USER FROM DUAL)='PROR_TEST' + CASE WHEN (SELECT USER FROM DUAL)='PROR_TEST' THEN 'https://fmis.testprorail.nl/appl/mld/mld_melding.asp?urole=fe'||chr(38)||'mld_key='||m.mld_melding_key - ELSE 'https://fmis.prorail.nl/appl/mld/mld_melding.asp?urole=fe'||chr(38)||'mld_key='||m.mld_melding_key + ELSE 'https://fmis.prorail.nl/appl/mld/mld_melding.asp?urole=fe'||chr(38)||'mld_key='||m.mld_melding_key END response_url - --'https://fmis.prorail.nl/appl/mld/mld_melding.asp?urole=fe'||chr(38)||'mld_key='||m.mld_melding_key response_url - FROM mld_melding m, - mld_stdmelding ms, - mld_discipline md, - ins_srtdiscipline id, - mld_statuses mst, - prs_perslid p - WHERE p.prs_perslid_key=m.prs_perslid_key + --'https://fmis.prorail.nl/appl/mld/mld_melding.asp?urole=fe'||chr(38)||'mld_key='||m.mld_melding_key response_url + FROM mld_melding m, + mld_stdmelding ms, + mld_discipline md, + ins_srtdiscipline id, + mld_statuses mst, + prs_perslid p + WHERE p.prs_perslid_key=m.prs_perslid_key AND ms.mld_stdmelding_key = m.mld_stdmelding_key - AND md.ins_discipline_key=ms.mld_ins_discipline_key - AND id.ins_srtdiscipline_key = md.ins_srtdiscipline_key + AND md.ins_discipline_key=ms.mld_ins_discipline_key + AND id.ins_srtdiscipline_key = md.ins_srtdiscipline_key AND mst.mld_statuses_key=m.mld_melding_status - AND ( p.prs_perslid_email IS NOT NULL + AND ( p.prs_perslid_email IS NOT NULL OR m.mld_melding_email_ext IS NOT NULL) ORDER BY m.mld_melding_datum; @@ -1157,7 +1154,7 @@ CREATE OR REPLACE VIEW pror_v_cat_reserveringincl voorziening_tot, voorziening_aantal, voorziening_prijs, - voorziening_opmerking + voorziening_opmerking ) AS SELECT rrr.res_rsv_ruimte_key, @@ -1354,11 +1351,11 @@ AS TO_CHAR (voorz.van, 'hh24:mi'), TO_CHAR (voorz.tot, 'hh24:mi'), voorz.aantal, - ROUND(voorz.prijs,2), - (SELECT rk.res_kenmerkartikel_waarde - FROM res_kenmerkartikel rk - WHERE rk.res_rsv_artikel_key=voorz.rrr_dl_art_key - AND rk.res_kenmerkartikel_verwijder IS NULL) voorz_opm + ROUND(voorz.prijs,2), + (SELECT rk.res_kenmerkartikel_waarde + FROM res_kenmerkartikel rk + WHERE rk.res_rsv_artikel_key=voorz.rrr_dl_art_key + AND rk.res_kenmerkartikel_verwijder IS NULL) voorz_opm FROM res_v_aanwezigrsv_ruimte rrr, res_activiteit ra, res_srtactiviteit rsa, @@ -1468,8 +1465,8 @@ AS m.uitvoertijd_hoog mlduitv_hoog, m.uitvoertijd_normaal mlduitv_normaal, m.uitvoertijd_laag mlduitv_laag, - (SELECT a.alg_srtruimte_omschrijving - FROM alg_srtruimte a + (SELECT a.alg_srtruimte_omschrijving + FROM alg_srtruimte a WHERE a.alg_srtruimte_key=ms.alg_srtruimte_key) srtruimte, ms.mld_stdmsrtruimte_t_accept_pr1.tijdsduur||' '|| DECODE(ms.mld_stdmsrtruimte_t_accept_pr1.eenheid,'U','Uren','D','Dagen') ruimteacc_kritisch, @@ -1490,26 +1487,26 @@ AS pd.prs_dienst_omschrijving dienst, b.prs_bedrijf_naam leverancier, b.prs_leverancier_nr leverancierNr, - (SELECT alg_locatie_code - FROM alg_locatie al, - alg_gebouw ag - WHERE ag.alg_gebouw_key= pdl.alg_gebouw_key - AND al.alg_locatie_key=ag.alg_locatie_key) locatie_code, - (SELECT alg_gebouw_code - FROM alg_gebouw + (SELECT alg_locatie_code + FROM alg_locatie al, + alg_gebouw ag + WHERE ag.alg_gebouw_key= pdl.alg_gebouw_key + AND al.alg_locatie_key=ag.alg_locatie_key) locatie_code, + (SELECT alg_gebouw_code + FROM alg_gebouw WHERE alg_gebouw_key=pdl.alg_gebouw_key) gebouw_code, - pdl.prs_bdl_t_uitvoertijd.tijdsduur||' '|| DECODE(pdl.prs_bdl_t_uitvoertijd.tijdsduur,'U','Uren','D','Dagen') bedruitv_normaal + pdl.prs_bdl_t_uitvoertijd.tijdsduur||' '|| DECODE(pdl.prs_bdl_t_uitvoertijd.tijdsduur,'U','Uren','D','Dagen') bedruitv_normaal FROM mld_v_rap_stdmelding m, mld_stdmelding msm, mld_stdmsrtruimte ms, PRS_DIENST pd, prs_bedrijfdienstlocatie pdl, - prs_bedrijf b + prs_bedrijf b WHERE msm.mld_stdmelding_key=m.melding_key AND pd.prs_dienst_key(+) = msm.prs_dienst_key AND pdl.prs_dienst_key = pd.prs_dienst_key AND b.prs_bedrijf_key = pdl.prs_bedrijf_key - AND m.melding_key=ms.mld_stdmelding_key(+); + AND m.melding_key=ms.mld_stdmelding_key(+); @@ -1520,25 +1517,25 @@ AS -- PROVAT EXPORT -- De geexporteerde meldingen een export datum meegeven. CREATE OR REPLACE PROCEDURE PROR_SELECT_PROVAT(p_applname IN VARCHAR2, - p_applrun IN VARCHAR2 + p_applrun IN VARCHAR2 ) AS v_kenmerk_key NUMBER; - CURSOR c + CURSOR c IS - SELECT * - FROM pror_v_mld_provat + SELECT * + FROM pror_v_mld_provat WHERE provat_flag IS NULL OR (provat_flag='0' AND mld_update>TO_DATE(export_provat,'DD-MM-YYYY')); BEGIN - + FOR rec in c LOOP - flx.setflex('MLD',823,rec.melding_key,'1'); -- Deze mogen geexporteerd worden A = 1041 P=823 - + flx.setflex('MLD',823,rec.melding_key,'1'); -- Deze mogen geexporteerd worden A = 1041 P=823 + END LOOP; - - + + END; / @@ -1546,7 +1543,7 @@ END; -- -- Export view voor alle meldingen die naar ProVat geexporteerd moeten die syncstatus=1 hebben -- -CREATE OR REPLACE VIEW PROR_V_EXPORT_PROVAT +CREATE OR REPLACE VIEW PROR_V_EXPORT_PROVAT ( result, result_order @@ -1555,13 +1552,13 @@ AS SELECT 'SLA-escalatieniveau;Requestnr;Begindatum;Contact;Service;Omschrijving;Gebouw;Assignee;Type request;Status;Kostenplaats;Omschrijving' heaeder,0 FROM DUAL UNION ALL SELECT ';'||melding_key||';'||TO_CHAR(begin_datum,'DD-MM-YYYY HH24:MI:SS')||';'||contact||';'||service||';'||omschrijving||';'||locatie||';'||assignee||';'||type_request||';'||mld_status||';;'||REPLACE(REPLACE(REPLACE(onderwerp, CHR(10),''),CHR(13),''),';',' ')||', '||kenmerkwaardes, 1 - FROM pror_v_mld_provat - WHERE provat_flag='1' + FROM pror_v_mld_provat + WHERE provat_flag='1' ORDER BY 1 DESC; - --- alle geexporteerde meldingen de sync date en syncstatus goedzetten + +-- alle geexporteerde meldingen de sync date en syncstatus goedzetten CREATE OR REPLACE PROCEDURE PROR_EXPORT_PROVAT(p_applname IN VARCHAR2, p_applrun IN VARCHAR2, p_index IN VARCHAR2, @@ -1570,22 +1567,22 @@ CREATE OR REPLACE PROCEDURE PROR_EXPORT_PROVAT(p_applname IN VARCHAR2, AS CURSOR c IS - SELECT * - FROM pror_v_mld_provat + SELECT * + FROM pror_v_mld_provat WHERE provat_flag='1'; BEGIN FOR rec IN C - LOOP - + LOOP + flx.setflex('MLD',757,rec.melding_key,TO_CHAR(SYSDATE,'DD-MM-YYYY')); -- A = 1021 P=757 flx.setflex('MLD',823,rec.melding_key,'0'); -- A = 1041 P=823 - END LOOP; + END LOOP; END; -/ --- EINDE PROVAT EXPORT - +/ +-- EINDE PROVAT EXPORT + -- EXPORT VAN CATERING BESTELLINGE TBV Eurest --- +-- -- VIEW TBV EUREST EXPORT (ook gebruikt in rapportage) CREATE OR REPLACE VIEW pror_v_select_eurest_cat AS @@ -1595,8 +1592,8 @@ AS 'Regulier' extra_opmerking, rrr.res_rsv_ruimte_van van, rrr.res_rsv_ruimte_tot tot, - (SELECT prs_perslid_naam_friendly - FROM prs_v_perslid_fullnames + (SELECT prs_perslid_naam_friendly + FROM prs_v_perslid_fullnames WHERE prs_perslid_key=rrr.res_rsv_ruimte_contact_key) aanvrager, p.prs_perslid_telefoonnr telefoon, p.prs_perslid_email email, @@ -1626,16 +1623,16 @@ AS AND rarm.res_ruimte_key = rr.res_ruimte_key AND rarm.res_alg_ruimte_verwijder IS NULL AND alg.alg_ruimte_key = rarm.alg_ruimte_key)) ruimtenr, - rrr.res_activiteit_key activiteit_key + rrr.res_activiteit_key activiteit_key FROM res_rsv_artikel rra, res_rsv_ruimte rrr, prs_kostenplaats k, prs_v_perslid_gegevens p WHERE rrr.res_rsv_ruimte_van > TO_DATE('01-05-2022','DD-MM-YYYY') AND rrr.res_rsv_ruimte_key = rra.res_rsv_ruimte_key - AND rrr.prs_kostenplaats_key = k.prs_kostenplaats_key(+) + AND rrr.prs_kostenplaats_key = k.prs_kostenplaats_key(+) AND rrr.res_status_bo_key = 2 -- afgemeld - AND rrr.res_status_fo_key = 2 + AND rrr.res_status_fo_key = 2 AND p.prs_perslid_key=rrr.res_rsv_ruimte_contact_key AND rra.res_rsv_artikel_verwijder IS NULL AND rrr.res_rsv_ruimte_verwijder IS NULL @@ -1651,8 +1648,8 @@ AS 'Bezorgen' extra_opmerking, rrr.res_rsv_ruimte_van van, rrr.res_rsv_ruimte_tot tot, - (SELECT prs_perslid_naam_friendly - FROM prs_v_perslid_fullnames + (SELECT prs_perslid_naam_friendly + FROM prs_v_perslid_fullnames WHERE prs_perslid_key=rrr.res_rsv_ruimte_contact_key) aanvrager, p.prs_perslid_telefoonnr telefoon, p.prs_perslid_email email, @@ -1684,7 +1681,7 @@ AS AND rarm.res_ruimte_key = rr.res_ruimte_key AND rarm.res_alg_ruimte_verwijder IS NULL AND alg.alg_ruimte_key = rarm.alg_ruimte_key)) ruimtenr, - rrr.res_activiteit_key activiteit_key + rrr.res_activiteit_key activiteit_key FROM res_rsv_artikel rra, res_rsv_ruimte rrr, prs_kostenplaats k, @@ -1693,14 +1690,14 @@ AS AND rrr.res_rsv_ruimte_key = rra.res_rsv_ruimte_key AND rrr.prs_kostenplaats_key = k.prs_kostenplaats_key(+) AND rrr.res_status_fo_key = 2 -- Alleen definitieve res - AND rrr.res_rsv_ruimte_cvab_mode IS NOT NULL -- betreft een losse catering - AND p.prs_perslid_key=rrr.res_rsv_ruimte_contact_key + AND rrr.res_rsv_ruimte_cvab_mode IS NOT NULL -- betreft een losse catering + AND p.prs_perslid_key=rrr.res_rsv_ruimte_contact_key AND rrr.res_rsv_ruimte_key NOT IN (SELECT rkw.RES_RSV_RUIMTE_KEY FROM res_kenmerkwaarde rkw, res_kenmerk rk WHERE rkw.RES_RSV_RUIMTE_KEY = rrr.RES_RSV_RUIMTE_KEY AND rk.RES_KENMERK_KEY = rkw.RES_KENMERK_KEY AND rk.RES_KENMERK_OMSCHRIJVING='ExternSyncDatum') -- AND rrr.res_rsv_ruimte_externsyncdate IS NULL - UNION -- alle te laat verwijderde outlook reservereingen met catering + UNION -- alle te laat verwijderde outlook reservereingen met catering SELECT distinct rrr.res_rsv_ruimte_key rrr_key, rrr.res_reservering_key||'/'||rrr.res_rsv_ruimte_volgnr reservering, rrr.res_rsv_ruimte_opmerking opmerking, @@ -1735,8 +1732,8 @@ AS AND rr.res_ruimte_key = rro.res_ruimte_key AND rarm.res_ruimte_key = rr.res_ruimte_key AND rarm.res_alg_ruimte_verwijder IS NULL - AND alg.alg_ruimte_key = rarm.alg_ruimte_key)) ruimtenr, - rrr.res_activiteit_key activiteit_key + AND alg.alg_ruimte_key = rarm.alg_ruimte_key)) ruimtenr, + rrr.res_activiteit_key activiteit_key FROM res_rsv_ruimte rrr, prs_kostenplaats k, prs_v_perslid_gegevens p, @@ -1746,35 +1743,35 @@ AS WHERE res_rsv_ruimte_key = r.res_rsv_ruimte_key AND ra.res_artikel_key = rra.res_artikel_key AND ra.res_discipline_key = rd.ins_discipline_key - AND rdp.res_ins_discipline_key=rd.ins_discipline_key) annuleer_dagen + AND rdp.res_ins_discipline_key=rd.ins_discipline_key) annuleer_dagen FROM (SELECT DISTINCT res.res_rsv_ruimte_key res_rsv_ruimte_key, res.res_reservering_key res_reservering_key, res.res_rsv_ruimte_volgnr res_rsv_ruimte_volgnr, res.res_rsv_ruimte_host_key gastheer_key, - res.res_rsv_ruimte_verwijder datum_verwijder, + res.res_rsv_ruimte_verwijder datum_verwijder, fac.safe_to_date ( TO_CHAR (res.res_rsv_ruimte_van, 'DD-MM-YYYY')||' 12:00', 'DD-MM-YYYY HH24:MI') leverdatum FROM res_rsv_ruimte res, res_rsv_artikel rra - WHERE res.res_rsv_ruimte_verwijder IS NOT NULL + WHERE res.res_rsv_ruimte_verwijder IS NOT NULL AND res.res_rsv_ruimte_externnr IS NOT NULL -- AND res.res_status_fo_key=4 AND rra.res_rsv_ruimte_key=res.res_rsv_ruimte_key) r) x WHERE rrr.res_rsv_ruimte_van > TO_DATE('01-05-2022','DD-MM-YYYY') AND rrr.res_rsv_ruimte_key = x.res_rsv_ruimte_key - AND rrr.prs_kostenplaats_key = k.prs_kostenplaats_key(+) - AND p.prs_perslid_key=rrr.res_rsv_ruimte_contact_key - AND x.datum_verwijder> x.leverdatum - x.annuleer_dagen -- bepalen of de annulering te laat was + AND rrr.prs_kostenplaats_key = k.prs_kostenplaats_key(+) + AND p.prs_perslid_key=rrr.res_rsv_ruimte_contact_key + AND x.datum_verwijder> x.leverdatum - x.annuleer_dagen -- bepalen of de annulering te laat was AND rrr.res_rsv_ruimte_key NOT IN (SELECT rkw.RES_RSV_RUIMTE_KEY FROM res_kenmerkwaarde rkw, res_kenmerk rk WHERE rkw.RES_RSV_RUIMTE_KEY = rrr.RES_RSV_RUIMTE_KEY AND rk.RES_KENMERK_KEY = rkw.RES_KENMERK_KEY - AND rk.RES_KENMERK_OMSCHRIJVING='ExternSyncDatum') - AND rrr.res_rsv_ruimte_key NOT IN (SELECT rkw.res_rsv_ruimte_key -- deze zijn door kenmerk uitgesloten van facturatie (aangegeven door cateraar) - FROM res_kenmerkwaarde rkw, res_kenmerk rk + AND rk.RES_KENMERK_OMSCHRIJVING='ExternSyncDatum') + AND rrr.res_rsv_ruimte_key NOT IN (SELECT rkw.res_rsv_ruimte_key -- deze zijn door kenmerk uitgesloten van facturatie (aangegeven door cateraar) + FROM res_kenmerkwaarde rkw, res_kenmerk rk WHERE rkw.res_rsv_ruimte_key = rrr.res_rsv_ruimte_key AND rkw.res_kenmerk_key = rk.res_kenmerk_key - AND rk.res_kenmerk_omschrijving='Niet factureren'); + AND rk.res_kenmerk_omschrijving='Niet factureren'); CREATE OR REPLACE PROCEDURE PROR_SELECT_EUREST_CAT( p_applname IN VARCHAR2, @@ -1785,14 +1782,14 @@ AS CURSOR sel IS SELECT p.*, - (SELECT alg.alg_gebouw_code - FROM alg_v_allonrgoed_gegevens alg + (SELECT alg.alg_gebouw_code + FROM alg_v_allonrgoed_gegevens alg WHERE alg.alg_plaatsaanduiding=p.loc_gb_ruimtenr) gebouw_code, (SELECT k.res_kenmerk_key from res_kenmerk k - WHERE k.res_kenmerk_omschrijving='ExternSyncDatum' - AND k.res_activiteit_key = p.activiteit_key) kenmerk_sync_key - FROM PROR_V_SELECT_EUREST_CAT p - WHERE TRUNC(p.van) <= TRUNC(LAST_DAY(ADD_MONTHS(SYSDATE,-1))); + WHERE k.res_kenmerk_omschrijving='ExternSyncDatum' + AND k.res_activiteit_key = p.activiteit_key) kenmerk_sync_key + FROM PROR_V_SELECT_EUREST_CAT p + WHERE TRUNC(p.van) <= TRUNC(LAST_DAY(ADD_MONTHS(SYSDATE,-1))); CURSOR sel_art(p_rrr_key NUMBER) IS @@ -1805,8 +1802,8 @@ AS rra.res_rsv_artikel_prijs totprijs, ra.res_artikel_prijs prijs, rd.ins_discipline_omschrijving catalogus, - (SELECT rka.res_kenmerkartikel_waarde - from res_kenmerkartikel rka, res_kenmerk rk, res_srtkenmerk rsk + (SELECT rka.res_kenmerkartikel_waarde + from res_kenmerkartikel rka, res_kenmerk rk, res_srtkenmerk rsk where rka.res_rsv_artikel_key=rra.res_rsv_artikel_key AND rk.res_kenmerk_key=rka.res_kenmerk_key AND rsk.res_srtkenmerk_key = rk.res_srtkenmerk_key @@ -1829,7 +1826,7 @@ AS v_artikelprijs NUMBER; v_maand NUMBER; v_jaar NUMBER; - + BEGIN v_bestand :='EUR-EX'; v_counter:=0; @@ -1842,7 +1839,7 @@ BEGIN -- IF fac.safe_to_number((TO_CHAR(SYSDATE,'MM'))) = 1 THEN -- v_maand:=12 -- v_jaar := fac_safe_to_number(TO_CHAR(SYSDATE,'YYYY'))-1; - -- END IF; + -- END IF; -- eerst opschonen DELETE FROM fac_rapport @@ -1894,29 +1891,29 @@ BEGIN LOOP pror.add_xml_row(v_bestand, ''); pror.add_xml_element (v_bestand, 'Start',TO_CHAR(rec_art.van,'HH24:MI')); - pror.add_xml_row(v_bestand, ''); - pror.add_xml_element (v_bestand, 'Description',rec_art.artikel_omschrijving); + pror.add_xml_row(v_bestand, ''); + pror.add_xml_element (v_bestand, 'Description',rec_art.artikel_omschrijving); pror.add_xml_element (v_bestand, 'Reference',rec_art.artikelnr); pror.add_xml_row(v_bestand, ''); - + v_artikelprijs:=0; - - IF UPPER(rec_art.catalogus) LIKE 'MAATWERK%' + + IF UPPER(rec_art.catalogus) LIKE 'MAATWERK%' THEN IF rec_art.totprijs IS NOT NULL THEN v_artikelprijs := rec_art.totprijs/rec_art.aantal; ELSE v_artikelprijs := rec_art.prijs; - END IF; - + END IF; + ELSE - v_artikelprijs := rec_art.prijs; - + v_artikelprijs := rec_art.prijs; + END IF; - pror.add_xml_element (v_bestand, 'QuantityOrdered',rec_art.aantal); + pror.add_xml_element (v_bestand, 'QuantityOrdered',rec_art.aantal); pror.add_xml_row(v_bestand, ''); - + pror.add_xml_element (v_bestand, 'NetPrice',ROUND(v_artikelPrijs/(1+rec_art.btw/100),2)); pror.add_xml_element (v_bestand, 'BrtPrice',v_artikelprijs); @@ -1928,9 +1925,9 @@ BEGIN END LOOP; pror.add_xml_row(v_bestand, ''); pror.add_xml_row(v_bestand, ''); - + flx.setflex('RES',rec.kenmerk_sync_key,rec.rrr_key,TO_CHAR(TRUNC(SYSDATE),'DD-MM-YYYY')); - + -- UPDATE res_rsv_ruimte SET res_rsv_ruimte_externsyncdate=SYSDATE WHERE res_rsv_ruimte_key=rec.rrr_key; END LOOP; pror.add_xml_row (v_bestand, ''); @@ -1953,11 +1950,11 @@ CREATE OR REPLACE VIEW PROR_V_EXPORT_EUREST_CAT AS SELECT fac_rapport_regel, fac_rapport_volgnr FROM fac_rapport - WHERE fac_rapport_node LIKE 'EUR-EX%'; - -- EINDE EXPORT COMPASSGROUP - - - + WHERE fac_rapport_node LIKE 'EUR-EX%'; + -- EINDE EXPORT COMPASSGROUP + + + CREATE OR REPLACE PROCEDURE PROR_EXPORT_NSECURE_UPD(p_applname IN VARCHAR2, p_applrun IN VARCHAR2, p_filedir IN VARCHAR2, @@ -1968,55 +1965,55 @@ AS v_errorhint VARCHAR2 (100); v_aanduiding VARCHAR2 (100); v_locatie_key NUMBER; - v_lengte NUMBER; + v_lengte NUMBER; v_new_note VARCHAR2 (4000); v_note_key NUMBER; - - - CURSOR upd + + + CURSOR upd IS - SELECT o.mld_opdr_key, M.MLD_MELDING_KEY from mld_opdr o, mld_melding m - WHERE o.MLD_STATUSOPDR_KEY IN (5,8) + SELECT o.mld_opdr_key, M.MLD_MELDING_KEY from mld_opdr o, mld_melding m + WHERE o.MLD_STATUSOPDR_KEY IN (5,8) AND m.mld_melding_key = o.mld_melding_key - AND o.MLD_UITVOERENDE_KEYS=(select b.prs_bedrijf_key - from prs_bedrijf b - where b.PRS_LEVERANCIER_NR ='313341' - and b.PRS_BEDRIJF_UITVOERENDE='1' + AND o.MLD_UITVOERENDE_KEYS=(select b.prs_bedrijf_key + from prs_bedrijf b + where b.PRS_LEVERANCIER_NR ='313341' + and b.PRS_BEDRIJF_UITVOERENDE='1' AND b.PRS_BEDRIJF_VERWIJDER IS NULL) - AND o.MLD_OPDR_EXTERNSYNCDATE < (select MAX(mld_melding_note_aanmaak) - from mld_melding_note + AND o.MLD_OPDR_EXTERNSYNCDATE < (select MAX(mld_melding_note_aanmaak) + from mld_melding_note where mld_melding_key=6 and mld_melding_note_flag =1); - + BEGIN FOR rec IN upd LOOP - - SELECT MLD_MELDING_NOTE_OMSCHRIJVING + + SELECT MLD_MELDING_NOTE_OMSCHRIJVING INTO v_new_note - FROM (SELECT MAX(mld_MELDING_note_aanmaak), mld_MELDING_key, mld_melding_note_key, MLD_melding_NOTE_OMSCHRIJVING + FROM (SELECT MAX(mld_MELDING_note_aanmaak), mld_MELDING_key, mld_melding_note_key, MLD_melding_NOTE_OMSCHRIJVING from mld_melding_note where mld_melding_key=rec.mld_melding_key - GROUP BY mld_melding_key,mld_melding_note_key,MLD_melding_NOTE_OMSCHRIJVING); + GROUP BY mld_melding_key,mld_melding_note_key,MLD_melding_NOTE_OMSCHRIJVING); -- Gaan we hem nu in de melding kenmerk notite zetten SELECT k.mld_kenmerk_key INTO v_note_key FROM mld_kenmerk k, mld_srtkenmerk sk WHERE sk.mld_srtkenmerk_key = k.mld_srtkenmerk_key AND UPPER (sk.mld_srtkenmerk_omschrijving) = 'UPDATE NOTITIES'; - + v_errorhint := 'Verwijderen kenmerk bij de opdracht : ' || rec.mld_melding_key; - + DELETE MLD_KENMERKOPDR ko WHERE ko.mld_opdr_key = rec.mld_opdr_key AND ko.mld_kenmerk_key = v_note_key; - - + + mld.upsertopdrachtkenmerk (v_note_key, rec.mld_opdr_key, v_new_note); - + v_errorhint := 'Opdracht opnieuw te verzenden naar Nsecure voor opdracht : ' || rec.mld_melding_key; @@ -2024,8 +2021,8 @@ BEGIN -- Eerst zetten we de opdracht opnieuw klaar om te verzenden UPDATE mld_opdr o SET mld_opdr_teverzenden = 2, mld_opdr_verzonden = NULL - WHERE o.mld_opdr_key = rec.mld_opdr_key; - + WHERE o.mld_opdr_key = rec.mld_opdr_key; + END LOOP; EXCEPTION WHEN OTHERS @@ -2036,10 +2033,10 @@ EXCEPTION fac.writelog (p_applname, 'E', oracle_err_num || '/' || oracle_err_mes, - v_errorhint); + v_errorhint); END; -/ - +/ + ------ payload end ------ SET DEFINE OFF diff --git a/WSKO/WSKO.sql b/WSKO/WSKO.sql index acf2a46e3..b8e11308a 100644 --- a/WSKO/WSKO.sql +++ b/WSKO/WSKO.sql @@ -37,26 +37,24 @@ AS fac_imp_csv_col02 kostenplaats_nr, fac_imp_csv_col03 kostengroep, fac_imp_csv_col04 kostensoort, - fac_imp_csv_col05 periode, + fac_imp_csv_col05 periode, fac_imp_csv_col06 budget FROM fac_imp_csv WHERE fac_import_key=p_import_key ORDER BY fac_imp_csv_key; - + v_errormsg VARCHAR2 (1000); v_errorhint VARCHAR2 (1000); v_aanduiding VARCHAR2 (1000); oracle_err_num NUMBER; oracle_err_mes VARCHAR2 (200); - + v_header_valid NUMBER:=0; v_prs_kostenplaats_key NUMBER; v_prs_kostensoortgrp_key NUMBER; v_prs_kostensoort_key NUMBER; v_alg_gebouw_code VARCHAR2(20); BEGIN - --fac_import_genericcsv(p_import_key); - FOR rec IN imp_csv LOOP IF v_header_valid = 0 @@ -69,22 +67,22 @@ BEGIN AND UPPER(rec.budget) = 'BUDGET (EURO)') THEN v_header_valid:=1; - END IF; + END IF; ELSE v_aanduiding:='Ophalen gebouw op bais van kostenplaats '||rec.kostenplaats_nr||' mislukt'; - SELECT g.alg_gebouw_code + SELECT g.alg_gebouw_code INTO v_alg_gebouw_code - FROM prs_kostenplaats p, - alg_gebouw g - WHERE p.prs_kostenplaats_nr=rec.kostenplaats_nr - AND g.prs_kostenplaats_key = p.prs_kostenplaats_key + FROM prs_kostenplaats p, + alg_gebouw g + WHERE p.prs_kostenplaats_nr=rec.kostenplaats_nr + AND g.prs_kostenplaats_key = p.prs_kostenplaats_key AND p.prs_kostenplaats_verwijder IS NULL; - + IF v_alg_gebouw_code IS NULL THEN - fac.imp_writelog (p_import_key, 'E', v_aanduiding || v_errorhint, 'Kan locatie niet 1-duidig bepalen'); + fac.imp_writelog (p_import_key, 'E', v_aanduiding || v_errorhint, 'Kan locatie niet 1-duidig bepalen'); END IF; - + v_aanduiding:='Ophalen kostenplaats '||rec.kostenplaats_nr||' mislukt'; SELECT p.prs_kostenplaats_key INTO v_prs_kostenplaats_key @@ -93,9 +91,9 @@ BEGIN AND p.prs_kostenplaats_verwijder IS NULL; IF v_prs_kostenplaats_key IS NULL THEN - fac.imp_writelog (p_import_key, 'E', v_aanduiding || v_errorhint, 'Kan kostenplaats niet 1-duidig bepalen'); - END IF; - + fac.imp_writelog (p_import_key, 'E', v_aanduiding || v_errorhint, 'Kan kostenplaats niet 1-duidig bepalen'); + END IF; + v_aanduiding:='Ophalen kostengroep '||rec.kostengroep||' mislukt'; SELECT g.prs_kostensoortgrp_key INTO v_prs_kostensoortgrp_key @@ -104,10 +102,10 @@ BEGIN IF v_prs_kostensoortgrp_key IS NULL THEN fac.imp_writelog (p_import_key, 'E', v_aanduiding || v_errorhint, 'Kan kostensoortgroep niet 1-duidig bepalen'); - - END IF; - - + + END IF; + + v_aanduiding:='Ophalen kostensoort '||rec.kostensoort||' mislukt'; SELECT k.prs_kostensoort_key INTO v_prs_kostensoort_key @@ -118,16 +116,16 @@ BEGIN IF v_prs_kostensoort_key IS NULL THEN fac.imp_writelog (p_import_key, 'E', v_aanduiding || v_errorhint, 'Kan kostensoort niet 1-duidig bepalen'); - - END IF; + + END IF; END IF; - - + + END LOOP; - + IF v_header_valid=0 THEN - fac.imp_writelog (p_import_key, 'E', 'Geen valide header gevonden', 'Header fout'); + fac.imp_writelog (p_import_key, 'E', 'Geen valide header gevonden', 'Header fout'); END IF; EXCEPTION WHEN NO_DATA_FOUND @@ -139,7 +137,7 @@ WHEN NO_DATA_FOUND fac.imp_writelog (p_import_key, 'E', v_errormsg, - v_errorhint); + v_errorhint); END; / @@ -153,7 +151,7 @@ AS fac_imp_csv_col02 kostenplaats_nr, fac_imp_csv_col03 kostengroep, fac_imp_csv_col04 kostensoort, - fac_imp_csv_col05 periode, + fac_imp_csv_col05 periode, fac_imp_csv_col06 budget FROM fac_imp_csv WHERE fac_import_key=p_import_key @@ -167,7 +165,7 @@ AS oracle_err_mes VARCHAR2 (200); v_count NUMBER:=0; v_ongeldig NUMBER:=0; - + v_ins_discipline_key NUMBER; v_bgt_project_key NUMBER; v_bgt_kostenrubriek_key NUMBER; @@ -183,122 +181,122 @@ AS v_alg_gebouw_code VARCHAR(20); v_alg_gebouw_naam VARCHAR(60); BEGIN - - - BEGIN - v_aanduiding:='Ophalen budget project disciplne Investering budgettering mislukt'; - SELECT ins_discipline_key - INTO v_ins_discipline_key + + + BEGIN + v_aanduiding:='Ophalen budget project disciplne Investering budgettering mislukt'; + SELECT ins_discipline_key + INTO v_ins_discipline_key FROM ins_tab_discipline i WHERE i.ins_discipline_module='BGT' AND i.ins_discipline_omschrijving='Investering' - AND i.ins_discipline_verwijder IS NULL; + AND i.ins_discipline_verwijder IS NULL; EXCEPTION WHEN NO_DATA_FOUND THEN - INSERT - INTO ins_tab_discipline (ins_discipline_omschrijving, + INSERT + INTO ins_tab_discipline (ins_discipline_omschrijving, ins_discipline_module, - ins_discipline_aanmaak, - ins_discipline_kpnverplicht) + ins_discipline_aanmaak, + ins_discipline_kpnverplicht) VALUES ('Investering', 'BGT', SYSDATE, 0) - RETURNING ins_discipline_key - INTO v_ins_discipline_key; - INSERT INTO bgt_disc_params (bgt_ins_discipline_key) + RETURNING ins_discipline_key + INTO v_ins_discipline_key; + INSERT INTO bgt_disc_params (bgt_ins_discipline_key) VALUES(v_ins_discipline_key ); END; - + IF v_ins_discipline_key = NULL THEN fac.imp_writelog (p_import_key, 'E', v_aanduiding || v_errorhint, 'Kan budget project disciplne niet 1-duidig bepalen of aanmaken'); v_ongeldig := 1; - ELSE + ELSE BEGIN v_aanduiding:='Ophalen budget project Budgettering mislukt'; SELECT p.bgt_project_key - INTO v_bgt_project_key + INTO v_bgt_project_key FROM bgt_project p WHERE p.bgt_project_code='Budgettering' AND p.ins_discipline_key = v_ins_discipline_key AND bgt_project_verwijder IS NULL; EXCEPTION - WHEN NO_DATA_FOUND + WHEN NO_DATA_FOUND THEN - - INSERT - INTO bgt_project (ins_discipline_key, - bgt_project_code, - bgt_project_omschrijving, + + INSERT + INTO bgt_project (ins_discipline_key, + bgt_project_code, + bgt_project_omschrijving, bgt_project_aanmaak) - VALUES (v_ins_discipline_key, - 'Budgettering', - 'Budgettering', + VALUES (v_ins_discipline_key, + 'Budgettering', + 'Budgettering', SYSDATE) RETURNING bgt_project_key - INTO v_bgt_project_key; + INTO v_bgt_project_key; END; - + END IF; - + IF v_bgt_project_key = NULL OR v_ongeldig=1 THEN fac.imp_writelog (p_import_key, 'E', v_aanduiding || v_errorhint, 'Kan project niet 1-duidig bepalen of aanmaken'); v_ongeldig := 1; - ELSE + ELSE FOR rec IN bdgt LOOP - IF v_count>0 + IF v_count>0 THEN BEGIN v_aanduiding:='Ophalen budget project Budgettering mislukt'; SELECT p.bgt_project_key - INTO v_bgt_project_key + INTO v_bgt_project_key FROM bgt_project p WHERE p.bgt_project_code=rec.periode AND p.ins_discipline_key = v_ins_discipline_key AND bgt_project_verwijder IS NULL; EXCEPTION - WHEN NO_DATA_FOUND + WHEN NO_DATA_FOUND THEN - - INSERT - INTO bgt_project (ins_discipline_key, - bgt_project_code, - bgt_project_omschrijving, + + INSERT + INTO bgt_project (ins_discipline_key, + bgt_project_code, + bgt_project_omschrijving, bgt_project_aanmaak) - VALUES (v_ins_discipline_key, - rec.periode, - rec.periode, + VALUES (v_ins_discipline_key, + rec.periode, + rec.periode, SYSDATE) RETURNING bgt_project_key - INTO v_bgt_project_key; + INTO v_bgt_project_key; END; - - + + v_aanduiding:='Ophalen locatie '||rec.locatie||' via kostenplaats '||rec.kostenplaats_nr||' is mislukt'; SELECT g.alg_gebouw_code , g.alg_gebouw_naam INTO v_alg_gebouw_code, v_alg_gebouw_naam - FROM prs_kostenplaats p, - alg_gebouw g - WHERE p.prs_kostenplaats_nr=rec.kostenplaats_nr - AND g.PRS_KOSTENPLAATS_KEY = p.PRS_KOSTENPLAATS_KEY + FROM prs_kostenplaats p, + alg_gebouw g + WHERE p.prs_kostenplaats_nr=rec.kostenplaats_nr + AND g.PRS_KOSTENPLAATS_KEY = p.PRS_KOSTENPLAATS_KEY AND p.prs_kostenplaats_verwijder IS NULL; BEGIN v_aanduiding:='Ophalen budget project kostenrubriek '||v_alg_gebouw_code||' mislukt'; - SELECT k.bgt_kostenrubriek_key + SELECT k.bgt_kostenrubriek_key INTO v_bgt_kostenrubriek_key FROM bgt_kostenrubriek k WHERE k.bgt_project_key=v_bgt_project_key AND k.bgt_kostenrubriek_code=v_alg_gebouw_code AND k.bgt_kostenrubriek_oms=rec.kostenplaats_nr||'-'||SUBSTR(v_alg_gebouw_naam,1,55); EXCEPTION - WHEN NO_DATA_FOUND + WHEN NO_DATA_FOUND THEN - - INSERT + + INSERT INTO bgt_kostenrubriek (bgt_project_key, bgt_kostenrubriek_code, bgt_kostenrubriek_oms) @@ -306,45 +304,45 @@ BEGIN v_alg_gebouw_code, rec.periode||'-'||SUBSTR(v_alg_gebouw_naam,1,55)) RETURNING bgt_kostenrubriek_key - INTO v_bgt_kostenrubriek_key; + INTO v_bgt_kostenrubriek_key; END; - + v_aanduiding:='OPhalen kostenplaatsnr '||rec.kostenplaats_nr||' mislukt'; - + SELECT k.prs_kostenplaats_key, k.prs_kostenplaatsgrp_key INTO v_kostenplaats_key, v_kostenplaatsgrp_key FROM prs_kostenplaats k WHERE k.prs_kostenplaats_nr=rec.kostenplaats_nr AND k.prs_kostenplaats_verwijder IS NULL; - + v_aanduiding:='OPhalen kostensoort en kostengroep '||rec.kostengroep||'-'||rec.kostensoort||' mislukt'; - SELECT s.prs_kostensoort_key, s.prs_kostensoortgrp_key + SELECT s.prs_kostensoort_key, s.prs_kostensoortgrp_key INTO v_kostensoort_key, v_kostensoortgrp_key FROM prs_kostensoort s, prs_kostensoortgrp g WHERE s.prs_kostensoort_oms=rec.kostensoort AND g.prs_kostensoortgrp_oms=rec.kostengroep AND s.prs_kostensoortgrp_key=g.prs_kostensoortgrp_key AND s.prs_kostensoort_verwijder IS NULL; - + v_budget := fac.safe_to_number(REPLACE(rec.budget,'.','')); - + v_periode_start := fac.safe_to_date('01-01-'||rec.periode,'DD-MM-YYYY'); v_periode_eind := fac.safe_to_date('31-12-'||rec.periode,'DD-MM-YYYY'); - - + + IF v_kostenplaats_key>0 AND v_kostenplaatsgrp_key>0 AND v_kostensoort_key>0 AND v_kostensoortgrp_key>0 AND v_budget>0 THEN - + -- Eerst kijken of hij er al is BEGIN - + SELECT b.bgt_budget_key, b.bgt_budget_bedrag - INTO v_budget_key, v_budget_nu - FROM bgt_budget b + INTO v_budget_key, v_budget_nu + FROM bgt_budget b WHERE b.ins_discipline_key=v_ins_discipline_key AND b.bgt_project_key=v_bgt_project_key AND b.bgt_kostenrubriek_key=v_bgt_kostenrubriek_key @@ -354,19 +352,19 @@ BEGIN AND b.prs_kostenplaats_key=v_kostenplaats_key AND b.bgt_budget_begin= v_periode_start AND b.bgt_budget_eind= v_periode_eind; - + v_aanduiding := 'Aanpassen budget van '||rec.kostenplaats_nr||'-'||rec.kostengroep||'-'||rec.kostensoort||' van '||v_budget_nu|| '-> '||v_budget; - UPDATE bgt_budget b + UPDATE bgt_budget b SET b.bgt_budget_bedrag=v_budget WHERE bgt_budget_key=v_budget_key; - + fac.imp_writelog (p_import_key, 'I', v_aanduiding , 'Aanpassen budget bedrag'); - - + + EXCEPTION - WHEN NO_DATA_FOUND - THEN - INSERT + WHEN NO_DATA_FOUND + THEN + INSERT INTO bgt_budget(ins_discipline_key, bgt_project_key, bgt_kostenrubriek_key, @@ -387,20 +385,20 @@ BEGIN v_budget, v_periode_start, v_periode_eind); - - END; - - END IF; + + END; + + END IF; END IF; v_count:=v_count+1; - + END LOOP; END IF; - - - + + + EXCEPTION -WHEN NO_DATA_FOUND +WHEN NO_DATA_FOUND THEN v_errorhint := v_errormsg || ' - ' || v_aanduiding; oracle_err_num := SQLCODE; @@ -425,8 +423,8 @@ AS fac_imp_csv_col04 ins_groep_oms, fac_imp_csv_col05 ins_srtdeel_code, fac_imp_csv_col06 ins_srtdeel_oms, - fac_imp_csv_col07 ins_deel_omschrijving, - fac_imp_csv_col08 ins_deel_bouwjaar, + fac_imp_csv_col07 ins_deel_omschrijving, + fac_imp_csv_col08 ins_deel_bouwjaar, fac_imp_csv_col09 ins_deel_aantal, fac_imp_csv_col10 ins_srtgroep_eenheid, fac_imp_csv_col11 taak_omschrijving, @@ -437,7 +435,7 @@ AS FROM fac_imp_csv WHERE fac_import_key=p_import_key ORDER BY fac_imp_csv_key; - + v_errormsg VARCHAR2 (1000); v_errorhint VARCHAR2 (1000); v_aanduiding VARCHAR2 (1000); @@ -456,51 +454,51 @@ AS v_count NUMBER; v_count_new NUMBER; v_error NUMBER; - - + + BEGIN fac_import_file2csv(p_import_key); v_count:=0; - + v_error:=0; FOR rec in obj LOOP - IF rec.locatie_oms<>'Locatie' + IF rec.locatie_oms<>'Locatie' THEN v_error:=0; v_aanduiding:='Fout bij ophalen ruimte voor object '||rec.ins_deel_omschrijving; - + BEGIN SELECT alg_ruimte_key, a.alg_locatie_key, g.prs_kostenplaats_key INTO v_alg_ruimte_key, v_alg_locatie_key , v_prs_kostenplaats_key - FROM alg_v_allonrgoed_gegevens a, alg_locatie l, alg_gebouw g + FROM alg_v_allonrgoed_gegevens a, alg_locatie l, alg_gebouw g WHERE l.alg_locatie_code=rec.locatie_code AND a.alg_locatie_key = l.alg_locatie_key AND a.alg_gebouw_code=rec.locatie_code AND a.alg_verdieping_code='0' AND a.alg_ruimte_nr='0.00' AND g.alg_gebouw_key = a.alg_gebouw_key; - + EXCEPTION WHEN OTHERS THEN v_alg_ruimte_key:=-1; END; - + v_errorhint:='Taak wordt overgeslagen.'; IF rec.ins_deel_omschrijving IS NULL OR LENGTH(rec.ins_deel_omschrijving)=0 THEN - v_aanduiding := 'Geen valide object omschrijving bij object:'||rec.ins_deel_omschrijving; + v_aanduiding := 'Geen valide object omschrijving bij object:'||rec.ins_deel_omschrijving; v_error:=1; END IF; IF rec.taak_omschrijving IS NULL OR LENGTH(TRIM(rec.taak_omschrijving))=0 THEN - v_aanduiding := 'Geen valide taak omschrijving bij object:'||rec.ins_deel_omschrijving; + v_aanduiding := 'Geen valide taak omschrijving bij object:'||rec.ins_deel_omschrijving; v_error:=1; END IF; IF rec.taak_cyclus IS NULL OR LENGTH(rec.taak_cyclus)=0 THEN - v_aanduiding := 'Geen valide taak cyclus.'||rec.ins_deel_omschrijving; + v_aanduiding := 'Geen valide taak cyclus.'||rec.ins_deel_omschrijving; v_error:=1; END IF; IF rec.taak_datum IS NULL OR LENGTH(rec.taak_datum)<4 @@ -513,11 +511,11 @@ BEGIN v_aanduiding := 'Geen valide taak kosten.'||rec.ins_deel_omschrijving; v_error:=1; END IF; - + IF v_error=0 AND v_alg_ruimte_key>0 - THEN - + THEN + BEGIN SELECT i.ins_deel_key INTO v_ins_deel_key @@ -526,35 +524,35 @@ BEGIN AND i.ins_alg_locatie_key=v_alg_locatie_key AND i.ins_deel_omschrijving = rec.ins_deel_omschrijving AND i.ins_deel_verwijder IS NULL; - - UPDATE fac_imp_csv + + UPDATE fac_imp_csv SET fac_imp_csv_col50=v_ins_deel_key, fac_imp_csv_col51=v_prs_kostenplaats_key WHERE fac_imp_csv_key = rec.fac_imp_csv_key; - COMMIT; + COMMIT; EXCEPTION - WHEN NO_DATA_FOUND THEN + WHEN NO_DATA_FOUND THEN fac.imp_writelog (p_import_key, 'E', 'Object '|| rec.ins_deel_omschrijving||' niet gevonden.', v_errorhint); - END; - ELSE + END; + ELSE fac.imp_writelog (p_import_key, 'W', v_aanduiding, v_errorhint); - END IF; + END IF; ELSE - DELETE - FROM fac_imp_csv + DELETE + FROM fac_imp_csv WHERE fac_imp_csv_key=rec.fac_imp_csv_key; COMMIT; - END IF; + END IF; END LOOP; - - + + EXCEPTION -WHEN NO_DATA_FOUND +WHEN NO_DATA_FOUND THEN v_errorhint := v_errormsg || ' - ' || v_aanduiding; oracle_err_num := SQLCODE; @@ -579,8 +577,8 @@ AS fac_imp_csv_col04 ins_groep_oms, fac_imp_csv_col05 ins_srtdeel_code, fac_imp_csv_col06 ins_srtdeel_oms, - fac_imp_csv_col07 ins_deel_omschrijving, - fac_imp_csv_col08 ins_deel_bouwjaar, + fac_imp_csv_col07 ins_deel_omschrijving, + fac_imp_csv_col08 ins_deel_bouwjaar, fac_imp_csv_col09 ins_deel_aantal, fac_imp_csv_col10 ins_srtgroep_eenheid, fac_imp_csv_col11 taak_omschrijving, @@ -594,14 +592,14 @@ AS WHERE fac_import_key=p_import_key AND fac_imp_csv_col50 IS NOT NULL ORDER BY fac_imp_csv_key; - + v_errormsg VARCHAR2 (1000); v_errorhint VARCHAR2 (1000); v_aanduiding VARCHAR2 (1000); oracle_err_num NUMBER; oracle_err_mes VARCHAR2 (200); - + v_srtkenmerk_doc NUMBER; v_ins_srtcontrole_niveau VARCHAR2(1); v_taakcat_key NUMBER; @@ -622,54 +620,54 @@ BEGIN v_ins_srtcontrole_niveau:='S'; v_count_new:=0; v_count_update:=0; - - + + BEGIN SELECT ins_srtkenmerk_key INTO v_srtkenmerk_doc FROM ins_srtkenmerk i WHERE i.ins_srtkenmerk_code='DOCUMENTEN' AND i.ins_srtkenmerk_verwijder IS NULL; - EXCEPTION + EXCEPTION WHEN NO_DATA_FOUND THEN v_srtkenmerk_doc:=-1; END; - + FOR rec IN obj - LOOP + LOOP IF rec.locatie_oms<>'Locatie' THEN v_deel_key := rec.ins_deel_key; v_eenheid:=4; v_default_eenheid:=4; - + v_errormsg :='Ophalen objctsoort'; SELECT i.ins_srtdeel_key INTO v_ins_srtdeel_key FROM ins_deel i WHERE i.ins_deel_key=v_deel_key; - - + + v_errormsg :='Ophalen taakcetegorie '||rec.taak_omschrijving; -- Gaan we eerst check of er onderhoud controles zijn SELECT i.ins_discipline_key - INTO v_taakcat_key + INTO v_taakcat_key FROM ins_tab_discipline i , ctr_disc_params p - WHERE i.ins_discipline_module='CTR' + WHERE i.ins_discipline_module='CTR' AND UPPER(i.ins_discipline_omschrijving) = UPPER('MJOB FACILITAIR') AND i.ins_discipline_verwijder IS NULL - AND p.ctr_ins_discipline_key=i.ins_discipline_key; - - v_taak_default_cyclus:=0; + AND p.ctr_ins_discipline_key=i.ins_discipline_key; + + v_taak_default_cyclus:=0; v_taak_datum := fac.safe_to_date('01-01-'||rec.taak_datum,'DD-MM-YYYY'); - + v_aanduiding:='Ophalen srtcontrole'||rec.taak_omschrijving; BEGIN SELECT ins_srtcontrole_key INTO v_srtcontrole_key - FROM ins_srtcontrole - where ins_srtinstallatie_key=v_ins_srtdeel_key + FROM ins_srtcontrole + where ins_srtinstallatie_key=v_ins_srtdeel_key AND ins_srtcontrole_niveau=v_ins_srtcontrole_niveau AND UPPER(ins_srtcontrole_omschrijving) = UPPER(SUBSTR(rec.taak_omschrijving,0,60)) AND ins_srtcontrole_periode=v_taak_default_cyclus @@ -681,7 +679,7 @@ BEGIN -- ins_srtcontrole is er niet dus maken we hem aan, INSERT INTO ins_srtcontrole (ins_srtinstallatie_key, ins_srtcontrole_niveau, - ins_srtcontrole_omschrijving, + ins_srtcontrole_omschrijving, ins_srtcontrole_periode, ins_srtcontrole_eenheid, ins_srtcontrole_mode, @@ -702,11 +700,11 @@ BEGIN ins_srtkenmerk_key, ins_srtinstallatie_key, ins_kenmerk_niveau, - ins_kenmerk_bewerkniveau, + ins_kenmerk_bewerkniveau, ins_kenmerk_groep, ins_kenmerk_volgnummer, - ins_kenmerk_hint, - ins_kenmerk_omschrijving + ins_kenmerk_hint, + ins_kenmerk_omschrijving ) VALUES ( v_srtkenmerk_doc, @@ -716,37 +714,37 @@ BEGIN 0, 10, '', - 'Documenten' - ); - END IF; + 'Documenten' + ); + END IF; END; IF LENGTH(rec.taak_cyclus)>0 THEN v_taak_cyclus:=fac.safe_to_number(rec.taak_cyclus); - ELSE + ELSE v_taak_cyclus:= v_taak_default_cyclus; END IF; IF LENGTH(rec.ins_deel_aantal)>0 - THEN + THEN v_aantal:=fac.safe_to_number(rec.ins_deel_aantal); ELSE v_aantal:=1; - END IF; + END IF; IF LENGTH(rec.taak_kosten)>0 - THEN + THEN v_taak_kosten:=COALESCE(fac.safe_to_number(REPLACE(rec.taak_kosten,'.','')),0)/v_aantal; ELSE v_taak_kosten:=0; END IF; - - BEGIN + + BEGIN SELECT ins_srtcontroledl_xcp_key INTO v_srtcontroledl_xcp_key - FROM ins_srtcontroledl_xcp + FROM ins_srtcontroledl_xcp WHERE ins_deel_key=v_deel_key AND ins_srtcontrole_key=v_srtcontrole_key; --AND ins_srtcontroledl_xcp_eenheid=v_eenheid; - - -- we hebben een xcp record dan updaten we nu alleen de startdatum + + -- we hebben een xcp record dan updaten we nu alleen de startdatum UPDATE ins_srtcontroledl_xcp SET INS_SRTCONTROLEDL_XCP_STARTDAT=v_taak_datum, ins_srtcontroledl_xcp_periode=v_taak_cyclus, @@ -754,11 +752,11 @@ BEGIN ins_srtcontroledl_xcp_eenheid=v_eenheid WHERE ins_srtcontroledl_xcp_key = v_srtcontroledl_xcp_key; v_count_update:=v_count_update+1; - - EXCEPTION + + EXCEPTION WHEN NO_DATA_FOUND THEN - -- Er is nog geen XCP record dus maken we er 1 met de verwachte startdatum - INSERT INTO ins_srtcontroledl_xcp + -- Er is nog geen XCP record dus maken we er 1 met de verwachte startdatum + INSERT INTO ins_srtcontroledl_xcp (ins_srtcontrole_key, ins_deel_key, ins_srtcontroledl_xcp_eenheid, @@ -770,14 +768,14 @@ BEGIN VALUES (v_srtcontrole_key, v_deel_key, v_eenheid, - v_aantal, + v_aantal, v_taak_kosten, v_taak_cyclus, v_taak_datum, - rec.prs_kostenplaats_key); + rec.prs_kostenplaats_key); v_count_new:=v_count_new+1; END; - END IF; + END IF; END LOOP; fac.imp_writelog (p_import_key, 'I', @@ -787,7 +785,7 @@ BEGIN 'I', 'Geupdate taken taken :'||v_count_update, v_errorhint); - + END; / -- EINDE Import functies @@ -804,8 +802,8 @@ AS FROM (SELECT kp.prs_kostenplaats_nr, kp.prs_kostenplaats_key, kp.prs_perslid_key, - (SELECT prs_perslid_naam_friendly - FROM prs_v_perslid_fullnames p + (SELECT prs_perslid_naam_friendly + FROM prs_v_perslid_fullnames p WHERE p.prs_perslid_key=kp.prs_perslid_key) budgethouder, g.alg_gebouw_naam, ksg.prs_kostensoortgrp_key, @@ -825,7 +823,7 @@ AS ks.prs_kostensoort_key AND o.mld_typeopdr_key = ot.MLD_TYPEOPDR_KEY AND UPPER(ot.mld_typeopdr_omschrijving)='OFFERTE INVESTERING' - AND ot.mld_typeopdr_isofferte=1 + AND ot.mld_typeopdr_isofferte=1 AND o.mld_statusopdr_key IN (5, 6, 7, @@ -883,27 +881,27 @@ opdracht_bedrag ) AS SELECT k.prs_kostenplaats_key, - k.prs_kostenplaats_nr, + k.prs_kostenplaats_nr, ksg.prs_kostensoortgrp_key, ksg.prs_kostensoortgrp_oms, ks.prs_kostensoort_key, ks.prs_kostensoort_oms, - o.mld_melding_key||'/'||o.mld_opdr_bedrijfopdr_volgnr mld_opdr_nr, + o.mld_melding_key||'/'||o.mld_opdr_bedrijfopdr_volgnr mld_opdr_nr, o.mld_opdr_key, so.mld_statusopdr_omschrijving, CASE - WHEN ot.mld_typeopdr_isofferte = 1 + WHEN ot.mld_typeopdr_isofferte = 1 THEN 'Offerte' ELSE 'Opdracht' END opdracht_soort, TO_CHAR (m.mld_melding_omschrijving) omschrijving, CASE - WHEN ot.mld_typeopdr_isofferte = 1 + WHEN ot.mld_typeopdr_isofferte = 1 THEN mld_opdr_kosten ELSE 0 END offerte_bedrag, CASE - WHEN ot.mld_typeopdr_isofferte = 0 + WHEN ot.mld_typeopdr_isofferte = 0 THEN mld_opdr_kosten ELSE 0 END opdracht_bedrag @@ -932,7 +930,7 @@ CREATE OR REPLACE VIEW WSKO_V_INOPSLAG mld_url ) AS - SELECT i.ins_deel_key, + SELECT i.ins_deel_key, d.ins_discipline_omschrijving, isg.ins_srtgroep_omschrijving, isd.ins_srtdeel_omschrijving, @@ -944,21 +942,21 @@ AS ins_srtdeel isd, ins_srtgroep isg, ins_discipline d, - mld_stdmelding msm - WHERE a.alg_ruimte_nr='9.99' + mld_stdmelding msm + WHERE a.alg_ruimte_nr='9.99' AND a.alg_gebouw_code='SB_PAP' AND i.ins_alg_ruimte_key=a.alg_ruimte_key AND isd.ins_srtdeel_key = i.ins_srtdeel_key AND isg.Ins_srtgroep_key = isd.ins_srtgroep_key AND d.ins_discipline_key = isg.ins_discipline_key AND msm.mld_stdmelding_code='UITOPSLAG' - AND i.ins_deel_key NOT IN (SELECT mo.ins_deel_key + AND i.ins_deel_key NOT IN (SELECT mo.ins_deel_key FROM mld_melding m , mld_stdmelding ms, mld_melding_object mo WHERE m.mld_stdmelding_key=ms.mld_stdmelding_key AND ms.mld_stdmelding_code='UITOPSLAG' - AND mo.mld_melding_key = m.mld_melding_key + AND mo.mld_melding_key = m.mld_melding_key AND m.mld_melding_status IN (0,2,3,4)); -- EINDE rapportage views diff --git a/ZLMV/ZLMV.sql b/ZLMV/ZLMV.sql index 0c7342d43..cc81c8609 100644 --- a/ZLMV/ZLMV.sql +++ b/ZLMV/ZLMV.sql @@ -2,11 +2,11 @@ -- $Id$ -- -- Script containing customer specific sql statements for the FACILITOR database --- --- --- --- --- +-- +-- +-- +-- +-- DEFINE thisfile = 'ZLMV.SQL' @@ -30,7 +30,7 @@ SET DEFINE OFF ------ payload begin ------ CREATE OR REPLACE PACKAGE ZLMV AS - + PROCEDURE inactivate_prs; PROCEDURE anonimiseer_bezoeker; @@ -390,7 +390,7 @@ AS FROM fac_imp_csv WHERE fac_import_key=p_import_key ORDER BY fac_imp_csv_key; - + v_header NUMBER:=0; v_afdeling_code VARCHAR2(15); v_functie VARCHAR2(60); @@ -398,28 +398,26 @@ BEGIN v_header :=0; DELETE FROM fac_imp_perslid; DELETE FROM fac_imp_organisatie; - - -- Eerst de csv inlezen naar standaard csv imp tabel - fac_import_genericcsv(p_import_key); - FOR rec in C1 + + FOR rec in C1 LOOP IF rec.prs_voornaam='GivenName' AND v_header=0 - THEN + THEN v_header:=1; ELSE BEGIN - SELECT prs_afdeling_naam - INTO v_afdeling_code - FROM prs_afdeling - WHERE UPPER(prs_afdeling_omschrijving)=UPPER(rec.prs_afdeling); + SELECT prs_afdeling_naam + INTO v_afdeling_code + FROM prs_afdeling + WHERE UPPER(prs_afdeling_omschrijving)=UPPER(rec.prs_afdeling); EXCEPTION WHEN NO_DATA_FOUND THEN - v_afdeling_code:='Onbekend'; + v_afdeling_code:='Onbekend'; END; - + IF length(rec.prs_titel)>1 THEN v_functie:=rec.prs_titel; - ELSE + ELSE v_functie:='Onbekend'; END IF; INSERT INTO fac_imp_perslid(fac_import_key, @@ -438,7 +436,7 @@ BEGIN v_functie); END IF; END LOOP; - + END; / @@ -447,12 +445,12 @@ CREATE OR REPLACE PROCEDURE ZLMV_UPDATE_IMPPERSLID(p_import_key IN NUMBER) AS CURSOR p_del IS - SELECT * - FROM prs_perslid p + SELECT * + FROM prs_perslid p WHERE p.prs_perslid_verwijder IS NULL - AND p.prs_perslid_email NOT IN (SELECT prs_perslid_email + AND p.prs_perslid_email NOT IN (SELECT prs_perslid_email FROM fac_imp_perslid); - + CURSOR p_wrkplk IS SELECT p.prs_perslid_key, a.alg_ruimte_key @@ -463,24 +461,24 @@ AS AND p.prs_perslid_verwijder IS NULL AND UPPER(a.alg_ruimte_omschrijving)='FACILITAIR' AND a.alg_ruimte_nr='0.31'; - + oracle_err_num NUMBER; oracle_err_mes VARCHAR2 (200); v_errormsg VARCHAR2 (200); v_aanduiding VARCHAR2 (200); v_errorhint VARCHAR2 (200); - + BEGIN prs.update_perslid (p_import_key, 'EMAIL', 'A', 1); - + -- Opschonen van personen die niet meer in de import zitten FOR rec IN p_del LOOP prs.delete_perslid (p_import_key, rec.prs_perslid_key); END LOOP; - - -- Alle medewerkers Fcailitrair krijgen werkplek in Ruimte Facilitair gebouw C2 + + -- Alle medewerkers Fcailitrair krijgen werkplek in Ruimte Facilitair gebouw C2 FOR rec IN p_wrkplk LOOP v_aanduiding := 'Perslidkey: ' || rec.prs_perslid_key; @@ -507,8 +505,8 @@ BEGIN END; END LOOP; - - + + END; /