diff --git a/AA/aaxx.sql b/AA/aaxx.sql index 3122e950b..0aa2d3ed7 100644 --- a/AA/aaxx.sql +++ b/AA/aaxx.sql @@ -303,7 +303,7 @@ BEGIN INTO v_kenmerk_niveau FROM ins_kenmerk k WHERE ins_kenmerk_key = p_kenmerk_key; - + IF v_kenmerk_niveau = 'C' THEN SELECT sk.ins_srtkenmerk_kenmerktype, sk.fac_kenmerkdomein_key, @@ -316,7 +316,7 @@ BEGIN AND ikds.ins_kmdeelsrtcontr_verwijder IS NULL AND ikds.ins_kenmerk_key = p_kenmerk_key AND ikds.ins_kenmerk_key = k.ins_kenmerk_key - AND k.ins_srtkenmerk_key = sk.ins_srtkenmerk_key; + AND k.ins_srtkenmerk_key = sk.ins_srtkenmerk_key; ELSE SELECT sk.ins_srtkenmerk_kenmerktype, sk.fac_kenmerkdomein_key, @@ -624,7 +624,7 @@ AS AND kp.prs_kostenplaats_nr = p_prs_kostenplaats_nr ORDER BY COALESCE(a.prs_afdeling_verwijder, sysdate) DESC; v_result VARCHAR2(100); - + BEGIN v_result := 'Onbekend - ' || p_prs_kostenplaats_nr; BEGIN @@ -1253,7 +1253,7 @@ AS '2015', DECODE (kg.prs_kostensoortgrp_key, 2, '8210531', -- Core Variable 61, '8110532', -- Core Variable Enduser 41, '8210531', -- Under Management - 21, DECODE (SUBSTR ( k.prs_kostensoort_upper, 1, 7), 'NC INV ', '8210532', + 21, DECODE (SUBSTR ( k.prs_kostensoort_upper, 1, 7), 'NC INV ', '8210532', 'NC PROJ', '8110555'), 'Onbekend'), 'Onbekend' @@ -1729,7 +1729,7 @@ BEGIN UPDATE fin_factuur SET prs_kostensoort_key = reck.std_kostensoort_key WHERE fin_factuur_key = reck.fin_factuur_key; - + -- Pas de login aan INSERT INTO fac_tracking (fac_tracking_refkey, fac_srtnotificatie_key, fac_tracking_oms) SELECT reck.fin_factuur_key, fac_srtnotificatie_key, 'Kostensoort aangepast in factuur export' @@ -1738,7 +1738,7 @@ BEGIN END IF; END; END LOOP; - + v_logdate := SYSDATE; @@ -1799,7 +1799,7 @@ BEGIN (SELECT prs_kostensoortgrp_oms || DECODE (aaxx_get_user, 'LB', ' ' || exact_code, 'SABIC', ' ' || DECODE (to_char(opdr_datum, 'YYYY'), '2012', k.prs_kostenplaats_nr, '2013', k.prs_kostenplaats_nr, - aaxx_get_top_dep_code(k.prs_kostenplaats_nr)) + aaxx_get_top_dep_code(k.prs_kostenplaats_nr)) ) FROM prs_kostensoortgrp ksg WHERE ksg.prs_kostensoortgrp_key = ks.prs_kostensoortgrp_key) @@ -1817,7 +1817,7 @@ BEGIN WHERE km.mld_kenmerk_key = k.mld_kenmerk_key AND ( ( aaxx_get_user <> 'DBS' AND k.mld_srtkenmerk_key = 143) -- opdrachtnummer OR ( aaxx_get_user = 'DBS' AND k.mld_srtkenmerk_key = 55) -- projectnaam - ) + ) AND km.mld_melding_key = m.mld_melding_key) || ')' omschrijving, @@ -1991,7 +1991,7 @@ BEGIN OR ( aaxx_get_user = 'LB' AND ks.prs_kostensoort_upper LIKE 'NC%' AND ks.prs_kostensoort_upper <> 'NC DERDEN' - AND ks.prs_kostensoort_upper <> 'NC PROJ' + AND ks.prs_kostensoort_upper <> 'NC PROJ' ) OR ( aaxx_get_user = 'SABIC' AND ( ( o.mld_opdr_datumbegin < to_date ('20140101', 'yyyymmdd') -- Voor sabic geldt in 2014 een ander mechanisme (AASA#28673) @@ -2006,7 +2006,7 @@ BEGIN AND ks.prs_kostensoort_upper <> 'CV CONS AUT' AND ks.prs_kostensoort_upper <> 'CV SCH OVR' AND ks.prs_kostensoort_upper <> 'CV DOC POST' - AND ks.prs_kostensoort_upper <> 'CV AFVAL REST' + AND ks.prs_kostensoort_upper <> 'CV AFVAL REST' ) ) AND ( ks.prs_kostensoort_upper <> 'CV EIG BOUW PL' OR ot.mld_typeopdr_omschrijving = 'Workorder') @@ -2169,7 +2169,7 @@ BEGIN DECODE (aaxx_get_user, 'DBS', DECODE (ks.prs_kostensoort_upper, 'CV EIG BOUW PL', '913757', 'CV EIG INST PL', '913757', - substr(aaxx_get_lev2_dep_code(k.prs_kostenplaats_nr),1,6)), + substr(aaxx_get_lev2_dep_code(k.prs_kostenplaats_nr),1,6)), 'LB', exact_code, 'DOW', k.prs_kostenplaats_nr, 'NS', SUBSTR (prs_kostenplaats_nr, 1, 30), @@ -2179,7 +2179,7 @@ BEGIN DECODE (aaxx_get_user, 'DBS', DECODE (ks.prs_kostensoort_upper, 'CV EIG BOUW PL', '913757', 'CV EIG INST PL', '913757', - substr(aaxx_get_lev2_dep_code(k.prs_kostenplaats_nr),1,6)), + substr(aaxx_get_lev2_dep_code(k.prs_kostenplaats_nr),1,6)), 'LB', DECODE(g.alg_locatie_key, 1, '911928', -- Worldwide Headquarters 2, '911927', -- Maasvlakte @@ -2301,7 +2301,7 @@ BEGIN AND ( ( aaxx_get_user = 'LB' AND ks.prs_kostensoort_upper LIKE 'NC%' -- LyondellBasell AND ks.prs_kostensoort_upper <> 'NC DERDEN' - AND ks.prs_kostensoort_upper <> 'NC PROJ' + AND ks.prs_kostensoort_upper <> 'NC PROJ' ) OR ( aaxx_get_user = 'DBS' AND ks.prs_kostensoort_upper IN ( @@ -2436,7 +2436,7 @@ BEGIN omschrijving, fin_factuurregel_totaal, TO_NUMBER(NULL) btw, -- deprecated - DECODE (aaxx_get_user, 'DSM', 5, + DECODE (aaxx_get_user, 'DSM', 5, 'ZCN', DECODE (fin_btwtabelwaarde_code, '13', '5', fin_btwtabelwaarde_code), --AAZC#34134 fin_btwtabelwaarde_code) fin_btwtabelwaarde_code, TO_CHAR (opdr_datum, 'YYYY'), @@ -2445,7 +2445,7 @@ BEGIN FROM alg_locatie l WHERE l.alg_locatie_key = g.alg_locatie_key), COALESCE(exact_code, alg_gebouw_code)), - DECODE (aaxx_get_user, + DECODE (aaxx_get_user, 'DOW', DECODE(SUBSTR(ks.prs_kostensoort_upper, 1,5), 'NC P ', 'NCP', 'NC/CV') || substr(aaxx_get_top_dep_code(k.prs_kostenplaats_nr),1,6), ''), @@ -2513,7 +2513,7 @@ BEGIN ( aaxx_get_user = 'LB' AND ks.prs_kostensoort_upper LIKE 'NC%' -- LyondellBasell AND ks.prs_kostensoort_upper <> 'NC DERDEN' - AND ks.prs_kostensoort_upper <> 'NC PROJ' + AND ks.prs_kostensoort_upper <> 'NC PROJ' ) OR ( aaxx_get_user = 'VL' @@ -2707,7 +2707,7 @@ END; -- Uitleg van de kolommen zoals ze naar Exact gaan: -- 01 Regelnummer Vaste waarde 0 -- 02 Factuurcode Vaste waarde 3 --- 03 Debiteurnummer Kostenplaatsnummer +-- 03 Debiteurnummer Kostenplaatsnummer -- 04 Referentie “Hospitality” plus de eerste drie posities van de maand voor catering en kostensoortgroep omschrijving voor opdrachten -- 05 Referentie 1 Leeg -- 06 Referentie 2 Leeg @@ -2717,13 +2717,13 @@ END; -- 10 Magazijn 1 -- 11 Extra artikel omschrijving Leeg -- 12 Vertegenwoordigers Leeg --- 13 Kostenplaats Exact_code van het gebouw +-- 13 Kostenplaats Exact_code van het gebouw -- 14 Selectiecode Leeg -- 15 Bedrag in vreemde valuta Leeg -- 16 Netto prijs Leeg -- 17 Valutacode EUR -- 18 Wisselkoers Leeg --- 19 Betalingsconditie E6 +-- 19 Betalingsconditie E6 -- 20 Leveringswijze 1 -- 21 Vrachtkosten Leeg -- 22 Orderkosten Leeg @@ -2857,8 +2857,8 @@ AS FROM aaxx_verkoopbuffer WHERE naar_exact IS NULL GROUP BY replace(prs_kostensoortgrp_oms, ',', ''), debiteur, DECODE(aaxx_get_user, 'DBS', '', 'ZCN', '', 'DOW', '', prs_kostenplaats_nr), groepering, DECODE(aaxx_get_user, 'DBS', '', 'LB', '02610001', 'DOW', '02510001', 'DSM', '02210001', 'NS',exact_code_gebouw), opdr_jaar - UNION ALL --- Uitleg subregel: + UNION ALL +-- Uitleg subregel: -- 01 Regelnummer Vaste waarde 1 -- 02 - Vaste waarde 5 -- 03 - Leeg @@ -2892,14 +2892,14 @@ AS -- 31 Artikelsoort V -- 32 Omschrijving “Hospitality services” voor catering en “SA### vakgroep opdrachtnummer(kenmerk)” voor meerwerk -- 33 Hoeveelheid 1 --- 34 BTW code 4 +-- 34 BTW code 4 -- 35 Prijslijst Leeg -- 36 Korting 0 -- 37 Prijs Bedrag -- 38 Nettoprijs Leeg --- 39 Kostenplaats Kostenplaats +-- 39 Kostenplaats Kostenplaats -- 40 Tekst voor tekstregels Leeg --- 41 Grootboek rekening V +-- 41 Grootboek rekening V -- 42 - Leeg -- 43 - Leeg -- 44 - Leeg @@ -4847,7 +4847,7 @@ AS AND c.prs_afdeling_key_eig = a.prs_afdeling_key AND c.prs_perslid_key_beh = pf.prs_perslid_key AND tc.cnt_typecontract_key = 6; - + CREATE OR REPLACE VIEW AAXX_V_DWH_KENMERK_CONTRACT ( CNT_CONTRACT_KEY, @@ -4862,7 +4862,7 @@ AS kc.cnt_kenmerkcontract_waarde) FROM cnt_kenmerk k, cnt_srtkenmerk sk, cnt_kenmerkcontract kc WHERE k.cnt_srtkenmerk_key = sk.cnt_srtkenmerk_key - AND kc.cnt_kenmerk_key = k.cnt_kenmerk_key; + AND kc.cnt_kenmerk_key = k.cnt_kenmerk_key; ------------------------------------------------------------------------------- -- EXPORTFUNCTIE - DWH_FIN_FACTUUR @@ -4900,7 +4900,7 @@ CREATE OR REPLACE VIEW aaxx_v_dwh_fin_factuur fin_factuurregel_omschrijving, fin_factuurregel_referentie, fin_btwtabelwaarde_code, - fin_btwtabelwaarde_oms + fin_btwtabelwaarde_oms ) AS SELECT f.fin_factuur_key, @@ -4955,7 +4955,7 @@ AS fr.fin_factuurregel_omschrijving, fr.fin_factuurregel_referentie, btw.fin_btwtabelwaarde_code, - btw.fin_btwtabelwaarde_oms + btw.fin_btwtabelwaarde_oms FROM fin_factuur f, fin_factuurregel fr, fin_btwtabelwaarde btw, @@ -7051,7 +7051,7 @@ AS AND cog.alg_locatie_key = l.alg_locatie_key(+) AND cog.alg_gebouw_key = g.alg_gebouw_key(+) AND cnt_contract_verwijder IS NULL; - + ------------------------------------------------------------------------------- -- EXPORTFUNCTIE - DWH_SEARCH_RESULTS ------------------------------------------------------------------------------- @@ -7124,7 +7124,7 @@ AS WHERE fgc.fac_gui_counter_group = 'menu' AND fgc.prs_perslid_key = pf.prs_perslid_key(+) AND m.fac_menu_key = fac_gui_counter_refkey - AND mi.fac_menuitems_key(+) = m.fac_menuitems_key; + AND mi.fac_menuitems_key(+) = m.fac_menuitems_key; ------------------------------------------------------------------------------- -- Rapportage tbv berekening aantal key users @@ -7632,8 +7632,8 @@ AS 'SABIC', 34, 2)); --- AAVL#33405 rapportage factuurvoorstel inkoopfacturen tbv bestellingen. --- Het resultaat kan met onderstaande importroutines ingelezen worden. +-- AAVL#33405 rapportage factuurvoorstel inkoopfacturen tbv bestellingen. +-- Het resultaat kan met onderstaande importroutines ingelezen worden. CREATE OR REPLACE VIEW AAXX_V_RAP_BES_INKFACTUUR ( FCLT_X_BEDRIJFNAAM, @@ -7713,7 +7713,7 @@ AS ma.alg_locatie_key, ft.fac_tracking_datum, bes_srtdeel_btw, - ft.fac_tracking_datum; + ft.fac_tracking_datum; CREATE OR REPLACE PROCEDURE aaxx_import_factuur (p_import_key IN NUMBER) AS @@ -8372,7 +8372,7 @@ BEGIN END IF; -- als we versie 1 van een contract gaan toevoegen moeten we het initiele contract met - -- versie NULL gaan omzetten naar versie 0. + -- versie NULL gaan omzetten naar versie 0. IF rec.versie = '1' THEN UPDATE cnt_contract @@ -9572,8 +9572,8 @@ BEGIN fac.imp_writelog (p_import_key, 'I', 'Persoon ' || rec_del.prs_perslid_naam || ' (' || rec_del.prs_perslid_voornaam || ') zou verwijderd moeten worden', - ''); - aaxx.prs_del_perslid (p_import_key, rec_del.prs_perslid_key, 0, 0); + ''); + aaxx.prs_del_perslid (p_import_key, rec_del.prs_perslid_key, 0, 0); END IF; END; END LOOP; @@ -9778,7 +9778,7 @@ BEGIN ELSE v_datumtijd := fac.safe_to_date(v_datumtijd_tekst, 'yyyy-mm-dd hh24:mi:ss'); END IF; - + IF v_datumtijd = NULL THEN v_ongeldig := 0; @@ -10038,7 +10038,7 @@ BEGIN AND mld_melding_status IN (4, 7) AND NOT EXISTS ( -- Afhandeling in melding niet aanpassen voor projecten SELECT std.mld_stdmelding_key - FROM mld_stdmelding std, + FROM mld_stdmelding std, ins_tab_discipline d, ins_srtdiscipline sd WHERE m.mld_stdmelding_key = std.mld_stdmelding_key @@ -11601,7 +11601,7 @@ BEGIN SUBSTR (v_stdmelding_en, 1, 60), SUBSTR (v_stdmelding_hint_en, 1, 1000)); ELSE -- geen geldige header aangetroffen - IF rec1.fac_imp_file_index = 1 + IF rec1.fac_imp_file_index = 1 THEN fac.imp_writelog (p_import_key, 'I', @@ -11681,14 +11681,14 @@ AS VALUES (p_key, UPPER(p_kolom), UPPER(p_lang), SUBSTR(p_value,1,300)); RETURN; END; - + UPDATE fac_locale SET fac_locale_tekst = SUBSTR(p_value,1,300) WHERE UPPER(fac_locale_kolomnaam) = UPPER(p_kolom) AND fac_locale_kolomkeyval = p_key AND UPPER(fac_locale_lang) = UPPER(p_lang); RETURN; END; - + BEGIN SELECT MAX (fac_module_version) INTO currentversion FROM fac_module; @@ -13003,8 +13003,8 @@ AS FROM fac_notificatie_job WHERE fac_notificatie_job_view = 'AAXX_V_NOTI_SM_RECEPTIE'); --- AAIT#31201 automatische notificatie naar melder van PR meldingen sturen --- 2 weken voorafgaand aan de einddatum van een project (PR melding). +-- AAIT#31201 automatische notificatie naar melder van PR meldingen sturen +-- 2 weken voorafgaand aan de einddatum van een project (PR melding). CREATE OR REPLACE VIEW aaxx_v_noti_mld_projecten ( sender, @@ -13035,7 +13035,7 @@ AS AND m.mld_melding_status NOT IN (1, 5, 6) AND m.mld_melding_einddatum BETWEEN SYSDATE + 13 AND SYSDATE + 14; --- AAIT#32784 inzage in zoekgedrag. View te gebruiken icm 20151 rapport mogelijkheden. +-- AAIT#32784 inzage in zoekgedrag. View te gebruiken icm 20151 rapport mogelijkheden. CREATE OR REPLACE VIEW AAXX_V_GUI_SEARCHRESULTS ( Zoekterm, @@ -13064,7 +13064,7 @@ AS AND fgc.fac_gui_counter_info IS NOT NULL AND fgc.prs_perslid_key = pf.prs_perslid_key AND choice.fac_gui_counter_refkey(+) = fgc.fac_gui_counter_key - AND result.fac_gui_counter_refkey(+) = fgc.fac_gui_counter_key; + AND result.fac_gui_counter_refkey(+) = fgc.fac_gui_counter_key; -- procedure om ontvangen emails te processen. De klant specifieke eigenschappen, keys e.d. moeten -- in de aanroep meegegeven worden. @@ -13073,7 +13073,8 @@ CREATE OR REPLACE PROCEDURE aaxx_processemail ( pto IN VARCHAR2, psubject IN VARCHAR2, pbody IN VARCHAR2, - pextra IN VARCHAR2) + psessionid IN VARCHAR2, + puserkey IN NUMBER DEFAULT NULL) AS sender_key prs_perslid.prs_perslid_key%TYPE; melder_key prs_perslid.prs_perslid_key%TYPE; @@ -13430,7 +13431,7 @@ BEGIN INSERT INTO fac_result (fac_result_sessionid, fac_result_naam, fac_result_waarde) - VALUES ('hMailServer', + VALUES (psessionid, 'kenmerkpath', 'MLD\M' || TO_CHAR (TRUNC (mldkey / 1000), 'FM0000') @@ -13473,7 +13474,7 @@ BEGIN INSERT INTO fac_result (fac_result_sessionid, fac_result_naam, fac_result_waarde) - VALUES ('hMailServer', + VALUES (psessionid, 'kenmerkpath', 'MLD\O' || TO_CHAR (TRUNC (opdrkey / 1000), 'FM0000') @@ -13490,7 +13491,7 @@ BEGIN INSERT INTO fac_result (fac_result_sessionid, fac_result_naam, fac_result_waarde) - VALUES ('hMailServer', + VALUES (psessionid, 'errormsg', 'Database fout - Neem contact op met uw systeembeheerder ' || errormsg); @@ -13502,7 +13503,7 @@ EXCEPTION INSERT INTO fac_result (fac_result_sessionid, fac_result_naam, fac_result_waarde) - VALUES ('hMailServer', + VALUES (psessionid, 'errormsg', 'Database fout - Neem contact op met uw systeembeheerder ' || errormsg); diff --git a/ARAI/arai.sql b/ARAI/arai.sql index 0934d1b75..b5eea9483 100644 --- a/ARAI/arai.sql +++ b/ARAI/arai.sql @@ -8387,11 +8387,11 @@ WHERE COALESCE(prs_bedrijf_intern,0) = 0; CREATE OR REPLACE PROCEDURE arai_processemail - (pfrom IN VARCHAR2, + (pfrom IN VARCHAR2, pto IN VARCHAR2, psubject IN VARCHAR2, pbody IN VARCHAR2, - pextra IN VARCHAR2, + psessionid IN VARCHAR2, puserkey IN NUMBER DEFAULT NULL ) AS @@ -8707,7 +8707,7 @@ BEGIN INSERT INTO fac_result (fac_result_sessionid, fac_result_naam, fac_result_waarde) - VALUES ('hMailServer', + VALUES (psessionid, 'kenmerkpath', 'MLD\M' || to_char( TRUNC(v_mldkey/1000), 'FM0000') || '___\M' || v_mldkey || '\' || kkey || '\'); END IF; @@ -8719,7 +8719,7 @@ BEGIN INSERT INTO fac_result (fac_result_sessionid, fac_result_naam, fac_result_waarde) - VALUES ('hMailServer', 'errormsg', errormsg); + VALUES (psessionid, 'errormsg', errormsg); END IF; EXCEPTION WHEN OTHERS @@ -8740,7 +8740,7 @@ EXCEPTION INSERT INTO fac_result (fac_result_sessionid, fac_result_naam, fac_result_waarde) - VALUES ('hMailServer', + VALUES (psessionid, 'errormsg', 'Database fout - Neem contact op met uw systeembeheerder'); END; diff --git a/CSUN/CSUN.sql b/CSUN/CSUN.sql index 5856f5e71..2efa5da85 100644 --- a/CSUN/CSUN.sql +++ b/CSUN/CSUN.sql @@ -488,7 +488,7 @@ END; -- stuur mail notificatie naar alternatief emailadres dat bij de melding staat. srtkenmerk_key = 1 -- en stuur mail naar de BB-er die via een CSU locatie waar hij/zij een werkplek heeft onder hetzelfde --- district als de locatie waar de melding op is ingevoerd. Uitzondering is het pand Gustav Mahlerlaan 10 +-- district als de locatie waar de melding op is ingevoerd. Uitzondering is het pand Gustav Mahlerlaan 10 -- in A'dam (hoofdgebouw ABN key = 6218) deze heeft een vast emailadres. CREATE OR REPLACE PROCEDURE csun_export_mailnoti ( p_applname IN VARCHAR2, @@ -616,7 +616,8 @@ CREATE OR REPLACE PROCEDURE csun_processemail (pfrom IN VARCHAR2, pto IN VARCHAR2, psubject IN VARCHAR2, pbody IN VARCHAR2, - pextra IN VARCHAR2) + psessionid IN VARCHAR2, + puserkey IN NUMBER DEFAULT NULL) AS sender prs_perslid.prs_perslid_key%TYPE; kostenplaats prs_afdeling.prs_kostenplaats_key%TYPE; @@ -994,7 +995,7 @@ BEGIN INSERT INTO fac_result (fac_result_sessionid, fac_result_naam, fac_result_waarde) - VALUES ('hMailServer', + VALUES (psessionid, 'kenmerkpath', 'MLD\M' || TO_CHAR (TRUNC (mldkey / 1000), 'FM0000') @@ -1011,7 +1012,7 @@ BEGIN INSERT INTO fac_result (fac_result_sessionid, fac_result_naam, fac_result_waarde) - VALUES ('hMailServer', + VALUES (psessionid, 'errormsg', 'Database fout - Neem contact op met uw systeembeheerder ' || errormsg); @@ -1023,7 +1024,7 @@ EXCEPTION INSERT INTO fac_result (fac_result_sessionid, fac_result_naam, fac_result_waarde) - VALUES ('hMailServer', + VALUES (psessionid, 'errormsg', 'Database fout - Neem contact op met uw systeembeheerder ' || errormsg); @@ -1293,7 +1294,7 @@ AS AND fac.safe_to_number (alg_onrgoedkenmerk_waarde) = pf.prs_perslid_key) bud, - (SELECT max(prs_perslid_naam_full) || DECODE (count(p.prs_perslid_key), 1, '', '*') + (SELECT max(prs_perslid_naam_full) || DECODE (count(p.prs_perslid_key), 1, '', '*') FROM prs_v_perslid_fullnames pf, prs_perslid p, alg_locatie l2, @@ -1538,7 +1539,7 @@ AS BEGIN v_error_hint := 'Verwijderen oude records'; -- Eerst opruiming - DELETE + DELETE FROM imp_log l WHERE EXISTS (SELECT i.fac_import_key @@ -1607,14 +1608,14 @@ BEGIN END IF; ELSE -- Insert geformatteerde import record - IF v_error = 0 + IF v_error = 0 THEN v_error_hint := 'Fout bij toevoegen te impoteren locatie [' || v_locatie_code || ']'; - + INSERT INTO csun_imp_project (accountcode, accountnaam, project, @@ -1701,7 +1702,7 @@ IS v_ongeldig NUMBER (1); v_count_update NUMBER (10); v_count_tot NUMBER (10); - + -- De importvelden: v_locatie_key NUMBER (10); v_bud_key NUMBER (10); @@ -1710,14 +1711,14 @@ IS v_locatie_code VARCHAR2 (10); CURSOR c_account - IS + IS SELECT distinct accountcode, accountnaam FROM csun_imp_project WHERE COALESCE(UPPER(vervallen), 'N') <> 'J'; - + CURSOR c_district (c_accountcode IN VARCHAR2) IS - SELECT distinct dm, voornaam, voorletters, tussenvoegsels, achternaam + SELECT distinct dm, voornaam, voorletters, tussenvoegsels, achternaam FROM csun_imp_project WHERE accountcode = c_accountcode AND COALESCE(UPPER(vervallen), 'N') <> 'J'; @@ -1730,7 +1731,7 @@ IS AND COALESCE(UPPER(vervallen), 'N') <> 'J'; CURSOR c_verv (c_accountcode IN VARCHAR2) - IS + IS SELECT alg_locatie_key, fac_usrdata_code FROM alg_locatie l, alg_onrgoedkenmerk aogka, @@ -1753,7 +1754,7 @@ IS WHERE aogkv.alg_kenmerk_key = 1160 -- vervaldatum AND l.alg_locatie_key = aogkv.alg_onrgoed_key); - CURSOR c_del + CURSOR c_del IS SELECT alg_locatie_key, alg_locatie_code FROM alg_locatie l, alg_onrgoedkenmerk aogk @@ -1771,9 +1772,9 @@ IS FROM alg_onrgoedkenmerk WHERE alg_kenmerk_key = p_kenmerk_key AND alg_onrgoed_key = p_onrgoed_key; - + RETURN v_waarde; - + EXCEPTION WHEN NO_DATA_FOUND THEN RETURN NULL; @@ -1806,7 +1807,7 @@ BEGIN LOOP BEGIN v_error_hint := 'Ophalen data voor dm: ' || rec_d.dm || ' Naam:' || rec_d.achternaam; - + BEGIN SELECT alg_onrgoed_key INTO v_district_key @@ -1821,16 +1822,16 @@ BEGIN AND aog.alg_onrgoed_key = d.alg_district_key AND d.alg_district_verwijder IS NULL AND aog.alg_onrgoedkenmerk_verwijder IS NULL; - + EXCEPTION WHEN NO_DATA_FOUND THEN fac.imp_writelog ( p_import_key, 'E', 'Import locaties afgebroken, distrinctmanager niet gevonden ( district mngr:' || rec_d.dm || '(' || rec_d.voorletters || ' ' || rec_d.tussenvoegsels || ' ' || rec_d.achternaam || ')' || '- account:' || rec_a.accountcode || '-' || rec_a.accountnaam || ')', - v_error_hint); + v_error_hint); END; - IF v_district_key IS NOT NULL THEN + IF v_district_key IS NOT NULL THEN FOR rec IN c(rec_a.accountcode, rec_d.dm) LOOP BEGIN @@ -1838,7 +1839,7 @@ BEGIN -- Get BUD reference v_error_hint := 'Bepalen bb referentie: ' || rec.dm; v_bud_key := get_alg_kenmerk (1060, v_district_key); - + BEGIN v_error_hint := 'Kijk of de locatie al bestaat: ' || rec.project; SELECT alg_onrgoed_key @@ -1848,21 +1849,21 @@ BEGIN AND alg_onrgoedkenmerk_waarde = rec.project AND alg_onrgoed_key = alg_locatie_key AND alg_locatie_verwijder IS NULL; - - EXCEPTION WHEN NO_DATA_FOUND + + EXCEPTION WHEN NO_DATA_FOUND THEN - -- Kijk of de locatieomschrijving al voorkomt. Als dat het geval is mogen we de + -- Kijk of de locatieomschrijving al voorkomt. Als dat het geval is mogen we de -- nieuwe locatie niet aanmaken. - SELECT count(*) + SELECT count(*) INTO v_count FROM alg_locatie WHERE alg_locatie_upper = UPPER(SUBSTR(rec.omschrijving,1,50)) AND alg_locatie_verwijder IS NULL; - + IF v_count = 0 THEN IF rec.code IS NULL THEN v_locatie_code := rec.project; - ELSE + ELSE v_locatie_code := rec.code; END IF; INSERT INTO alg_locatie (alg_district_key, alg_locatie_code, alg_locatie_omschrijving) @@ -1874,10 +1875,10 @@ BEGIN p_import_key, 'E', 'Import locaties afgebroken, locatie omschrijving bestaat al ( district mngr:' || rec_d.dm || '(' || rec_d.voorletters || ' ' || rec_d.tussenvoegsels || ' ' || rec_d.achternaam || ')' || '- account:' || rec_a.accountcode || '-' || rec_a.accountnaam || ' Projectnr: ' || rec.project || ')', - 'Locatie met omschrijving: ' || rec.omschrijving || ' bestaat al'); + 'Locatie met omschrijving: ' || rec.omschrijving || ' bestaat al'); END IF; END; - + IF v_locatie_key IS NOT NULL THEN UPDATE alg_locatie SET alg_locatie_omschrijving = SUBSTR(rec.omschrijving,1,50), @@ -1886,14 +1887,14 @@ BEGIN alg_locatie_postcode = rec.postcode, alg_locatie_plaats = rec.woonplaats WHERE alg_locatie_key = v_locatie_key; - + csun_set_kenmerk ('ALG', 1006, v_locatie_key, v_bud_key, 0); csun_set_kenmerk ('ALG', 1000, v_locatie_key, v_account_key, 0); csun_set_kenmerk ('ALG', 1040, v_locatie_key, rec.project, 0); -- reanimeer verwijderde locaties - csun_set_kenmerk ('ALG', 1160, v_locatie_key, NULL, 0); + csun_set_kenmerk ('ALG', 1160, v_locatie_key, NULL, 0); END IF; - + EXCEPTION WHEN OTHERS THEN oracle_err_mes := SUBSTR (SQLERRM, 1, 150); v_errormsg := '(ORACLE error ' || oracle_err_mes || ')'; @@ -1902,7 +1903,7 @@ BEGIN 'E', 'Import locaties afgebroken ( district mngr:' || rec_d.dm || '(' || rec_d.voorletters || ' ' || rec_d.tussenvoegsels || ' ' || rec_d.achternaam || ')' || '- account:' || rec_a.accountcode || '-' || rec_a.accountnaam || ' Projectnr: ' || rec.project || '):' || v_errormsg, v_error_hint); - + END; END LOOP; END IF; @@ -1917,7 +1918,7 @@ BEGIN v_error_hint); END; END LOOP; - + FOR rec_verv IN c_verv(rec_a.accountcode) LOOP BEGIN @@ -1925,7 +1926,7 @@ BEGIN csun_set_kenmerk ('ALG', 1160, rec_verv.alg_locatie_key, TO_CHAR(SYSDATE, 'dd-mm-yyyy'), 0); END; END LOOP; - + EXCEPTION WHEN OTHERS THEN oracle_err_mes := SUBSTR (SQLERRM, 1, 150); v_errormsg := '(ORACLE error ' || oracle_err_mes || ')'; @@ -1939,16 +1940,16 @@ BEGIN END LOOP; csun_export_set_werkplek (p_import_key); - + FOR rec_del IN c_del LOOP BEGIN v_error_hint := 'Verwijderen gebouwen - Locatie_code: ' || rec_del.alg_locatie_code; UPDATE alg_gebouw SET alg_gebouw_verwijder = SYSDATE WHERE alg_locatie_key = rec_del.alg_locatie_key; - + v_error_hint := 'Verwijderen locatie - Locatie_code: ' || rec_del.alg_locatie_code; UPDATE alg_locatie SET alg_locatie_verwijder = SYSDATE WHERE alg_locatie_key = rec_del.alg_locatie_key; - + EXCEPTION WHEN OTHERS THEN oracle_err_mes := SUBSTR (SQLERRM, 1, 150); v_errormsg := '(ORACLE error ' || oracle_err_mes || ')'; @@ -2214,10 +2215,10 @@ INSERT INTO prs_perslidwerkplek (prs_perslid_key, prs_perslidwerkplek_bezetting, AND EXISTS (SELECT alg_onrgoedkenmerk_key FROM alg_onrgoedkenmerk aog, prs_kenmerklink kl - WHERE (aog.alg_onrgoedkenmerk_waarde = kl.prs_kenmerklink_waarde + WHERE (aog.alg_onrgoedkenmerk_waarde = kl.prs_kenmerklink_waarde OR kl.prs_kenmerklink_waarde = 'alles') AND aog.alg_onrgoed_key = wpg.alg_locatie_key - AND kl.prs_link_key = p.prs_perslid_key + AND kl.prs_link_key = p.prs_perslid_key AND aog.alg_kenmerk_key = 1123 -- klantspecifieke regioindeling AND kl.prs_kenmerk_key = 1060))) -- klantspecifieke regioautorisatie) AND fac.safe_to_number (aogk.alg_onrgoedkenmerk_waarde) = diff --git a/HOUT/hout.sql b/HOUT/hout.sql index a2f28f4cf..f804f4fa0 100644 --- a/HOUT/hout.sql +++ b/HOUT/hout.sql @@ -3494,7 +3494,8 @@ CREATE OR REPLACE PROCEDURE HOUT_processemail (pfrom IN VARCHAR2, pto IN VARCHAR2, psubject IN VARCHAR2, pbody IN VARCHAR2, - pextra IN VARCHAR2) + psessionid IN VARCHAR2, + puserkey IN NUMBER DEFAULT NULL) AS v_errormsg VARCHAR2 (1000); oracle_err_num NUMBER; @@ -3593,7 +3594,7 @@ BEGIN INSERT INTO fac_result (fac_result_sessionid, fac_result_naam, fac_result_waarde) - VALUES ('hMailServer', + VALUES (psessionid, 'errormsg', 'Onvanger ongeldig - Neem contact op met uw systeembeheerder '); END CASE; @@ -3617,7 +3618,7 @@ EXCEPTION INSERT INTO fac_result (fac_result_sessionid, fac_result_naam, fac_result_waarde) - VALUES ('hMailServer', + VALUES (psessionid, 'errormsg', 'Database fout - Neem contact op met uw systeembeheerder '); @@ -3641,7 +3642,7 @@ AS FROM imp_log WHERE imp_log_applicatie = 'PROCESSEMAIL' AND imp_log_datum > SYSDATE - 30; - + -- HOUT#27713 CREATE OR REPLACE VIEW HOUT_V_RAP_PRJ_OVZ @@ -3718,7 +3719,7 @@ AS AND prm.prs_perslid_key = m.prs_perslid_key AND m.fac_activiteit_key IS NULL AND srt.ins_srtdiscipline_key = 181 -- vakgroeptype project support centre - ORDER BY 1, 2; + ORDER BY 1, 2; /* Formatted on 10-2-2014 14:48:12 (QP5 v5.136.908.31019) */ /* diff --git a/HSLE/hsle.sql b/HSLE/hsle.sql index 65cc3b1c2..64018f30f 100644 --- a/HSLE/hsle.sql +++ b/HSLE/hsle.sql @@ -234,8 +234,8 @@ CREATE OR REPLACE PROCEDURE hsle_processemail pto IN VARCHAR2, psubject IN VARCHAR2, pbody IN VARCHAR2, - pextra IN VARCHAR2 - ) + psessionid IN VARCHAR2, + puserkey IN NUMBER DEFAULT NULL) AS sender prs_perslid.prs_perslid_key%TYPE; kostenplaats prs_afdeling.prs_kostenplaats_key%TYPE; @@ -506,7 +506,7 @@ BEGIN INSERT INTO fac_result (fac_result_sessionid, fac_result_naam, fac_result_waarde) - VALUES ('hMailServer', + VALUES (psessionid, 'kenmerkpath', 'MLD\M' || to_char( TRUNC(v_mldkey/1000), 'FM0000') || '___\M' || v_mldkey || '\' || kkey || '\'); END IF; @@ -517,7 +517,7 @@ BEGIN INSERT INTO fac_result (fac_result_sessionid, fac_result_naam, fac_result_waarde) - VALUES ('hMailServer', 'errormsg', errormsg); + VALUES (psessionid, 'errormsg', errormsg); END IF; EXCEPTION WHEN OTHERS @@ -538,7 +538,7 @@ EXCEPTION INSERT INTO fac_result (fac_result_sessionid, fac_result_naam, fac_result_waarde) - VALUES ('hMailServer', + VALUES (psessionid, 'errormsg', 'Database fout - Neem contact op met uw systeembeheerder'); END;