diff --git a/AA/aaxx.sql b/AA/aaxx.sql index 10897137a..6d033c85e 100644 --- a/AA/aaxx.sql +++ b/AA/aaxx.sql @@ -1102,7 +1102,7 @@ AS ), 'EY', DECODE (fac.safe_to_number(substr(fin_factuur_boekmaand, 1,4)) - fac.safe_to_number(to_char(sysdate, 'yyyy')), 1, '1350400', -- boekmaand ligt in de toekomst in verband met gebroken boekjaar - 0, k.prs_kostensoort_refcode, -- boekmaand ligt in huidig jaar + 0, k.prs_kostensoort_refcode, -- boekmaand ligt in huidig jaar -- boekmaand ligt in het verleden, dus bedragen mogen naar balansrekening. DECODE (substr(k.prs_kostensoort_upper,1,3), 'CF ', '1350813', 'CV ', '1350814', @@ -6725,10 +6725,10 @@ AS AND dc.ins_srtcontrole_key = sc.ins_srtcontrole_key AND dc.ins_controlemode_key = cm.ins_controlemode_key AND dc.prs_perslid_key = pf.prs_perslid_key(+); - + ------------------------------------------------------------------------------- -- EXPORTFUNCTIE - DWH_KENMERK_INSPECTIE -------------------------------------------------------------------------------- +------------------------------------------------------------------------------- CREATE OR REPLACE VIEW aaxx_v_dwh_kenmerk_inspectie ( deelsrtcontrole_key, @@ -6745,7 +6745,7 @@ AS FROM ins_kmdeelsrtcontr kds, ins_kenmerk k, ins_srtkenmerk srt WHERE kds.ins_kenmerk_key = k.ins_kenmerk_key AND srt.ins_srtkenmerk_key = k.ins_srtkenmerk_key - AND ins_kmdeelsrtcontr_verwijder IS NULL; + AND ins_kmdeelsrtcontr_verwijder IS NULL; ------------------------------------------------------------------------------- @@ -13331,15 +13331,8 @@ BEGIN -- Vlaggetjes zetten zoals mld_edit_note.asp dat doet BEGIN - SELECT fac_setting_pvalue - INTO v_flag_on_fenote - FROM fac_setting - WHERE fac_setting_name = 'mld_flag_on_fenote'; - - SELECT fac_setting_pvalue - INTO v_flag_on_bonote - FROM fac_setting - WHERE fac_setting_name = 'mld_flag_on_bonote'; + v_flag_on_fenote := fac.getsetting('mld_flag_on_fenote'); + v_flag_on_bonote := fac.getsetting('mld_flag_on_bonote'); IF v_flag_on_fenote <> 0 AND v_flag_on_fenote IS NOT NULL THEN diff --git a/ARAI/arai.sql b/ARAI/arai.sql index b5eea9483..f79410b3c 100644 --- a/ARAI/arai.sql +++ b/ARAI/arai.sql @@ -8522,6 +8522,31 @@ BEGIN sender, 0); -- 0 is NIET zichtbaar FE (want is system-user, zinloos). + -- Vlaggetjes zetten zoals mld_edit_note.asp dat doet + IF 1=0 -- ARAI heeft geen melding valggetjes, dus onderstaande kan voor nu weg. + THEN + BEGIN + v_flag_on_fenote := fac.getsetting('mld_flag_on_fenote'); + v_flag_on_bonote := fac.getsetting('mld_flag_on_bonote'); + + IF v_flag_on_bonote <> 0 AND v_flag_on_bonote IS NOT NULL + THEN + UPDATE mld_melding + SET mld_melding_flag = v_flag_on_bonote + WHERE mld_melding_key = v_mldkey + AND ( (mld_melding_flag = v_flag_on_fenote) + OR (mld_melding_flag = 0 OR mld_melding_flag IS NULL)); + + END IF; + EXCEPTION + WHEN OTHERS + THEN + DBMS_OUTPUT.put_line( 'Niet gelukt om flag ' + || v_flag_on_bonote + || ' te zetten.'); + END; + END IF; -- ARAI heef geen vlaggetjes + -- Default tracking is even goed genoeg fac.trackaction ('MLDNOT', v_mldkey, @@ -8561,39 +8586,6 @@ BEGIN NULL, 2, NULL); - - -- Vlaggetjes zetten zoals mld_edit_note.asp dat doet - - IF 1=0 -- ARAI heeft geen melding valggetjes, dus onderstaande kan voor nu weg. - THEN - BEGIN - SELECT fac_setting_pvalue - INTO v_flag_on_fenote - FROM fac_setting - WHERE fac_setting_name = 'mld_flag_on_fenote'; - - SELECT fac_setting_pvalue - INTO v_flag_on_bonote - FROM fac_setting - WHERE fac_setting_name = 'mld_flag_on_bonote'; - - IF v_flag_on_bonote <> 0 AND v_flag_on_bonote IS NOT NULL - THEN - UPDATE mld_melding - SET mld_melding_flag = v_flag_on_bonote - WHERE mld_melding_key = v_mldkey - AND ( (mld_melding_flag = v_flag_on_fenote) - OR (mld_melding_flag = 0 OR mld_melding_flag IS NULL)); - - END IF; - EXCEPTION - WHEN OTHERS - THEN - DBMS_OUTPUT.put_line( 'Niet gelukt om flag ' - || v_flag_on_bonote - || ' te zetten.'); - END; - END IF; -- ARAI heef geen vlaggetjes END IF; -- Bestaande melding en behandelaar is bekend. ELSE -- GEEN bestaande melding gevonden, we gaan een nieuwe mnelding toevoegen.... diff --git a/CSUN/CSUN.sql b/CSUN/CSUN.sql index 2393d961e..cca752f3c 100644 --- a/CSUN/CSUN.sql +++ b/CSUN/CSUN.sql @@ -864,15 +864,8 @@ BEGIN -- Vlaggetjes zetten zoals mld_edit_note.asp dat doet BEGIN - SELECT fac_setting_pvalue - INTO v_flag_on_fenote - FROM fac_setting - WHERE fac_setting_name = 'mld_flag_on_fenote'; - - SELECT fac_setting_pvalue - INTO v_flag_on_bonote - FROM fac_setting - WHERE fac_setting_name = 'mld_flag_on_bonote'; + v_flag_on_fenote := fac.getsetting('mld_flag_on_fenote'); + v_flag_on_bonote := fac.getsetting('mld_flag_on_bonote'); IF v_flag_on_fenote <> 0 AND v_flag_on_fenote IS NOT NULL THEN diff --git a/HSLE/hsle.sql b/HSLE/hsle.sql index 2524c5609..8cdcc5e2a 100644 --- a/HSLE/hsle.sql +++ b/HSLE/hsle.sql @@ -341,6 +341,28 @@ BEGIN NULL, '#Notitie toegevoegd vanuit e-mail'); -- # voorkomt notificatie + -- Vlaggetjes zetten zoals mld_edit_note.asp dat doet + BEGIN + v_flag_on_fenote := fac.getsetting('mld_flag_on_fenote'); + v_flag_on_bonote := fac.getsetting('mld_flag_on_bonote'); + + IF v_flag_on_bonote <> 0 AND v_flag_on_bonote IS NOT NULL + THEN + UPDATE mld_melding + SET mld_melding_flag = v_flag_on_bonote + WHERE mld_melding_key = v_mldkey + AND ( (mld_melding_flag = v_flag_on_fenote) + OR (mld_melding_flag = 0 OR mld_melding_flag IS NULL)); + + END IF; + EXCEPTION + WHEN OTHERS + THEN + DBMS_OUTPUT.put_line( 'Niet gelukt om flag ' + || v_flag_on_bonote + || ' te zetten.'); + END; + -- Bepalen van de behandelaar van deze melding BEGIN SELECT mld_melding_behandelaar_key @@ -373,35 +395,6 @@ BEGIN NULL, 2, NULL); - - -- Vlaggetjes zetten zoals mld_edit_note.asp dat doet - BEGIN - SELECT fac_setting_pvalue - INTO v_flag_on_fenote - FROM fac_setting - WHERE fac_setting_name = 'mld_flag_on_fenote'; - - SELECT fac_setting_pvalue - INTO v_flag_on_bonote - FROM fac_setting - WHERE fac_setting_name = 'mld_flag_on_bonote'; - - IF v_flag_on_bonote <> 0 AND v_flag_on_bonote IS NOT NULL - THEN - UPDATE mld_melding - SET mld_melding_flag = v_flag_on_bonote - WHERE mld_melding_key = v_mldkey - AND ( (mld_melding_flag = v_flag_on_fenote) - OR (mld_melding_flag = 0 OR mld_melding_flag IS NULL)); - - END IF; - EXCEPTION - WHEN OTHERS - THEN - DBMS_OUTPUT.put_line( 'Niet gelukt om flag ' - || v_flag_on_bonote - || ' te zetten.'); - END; END IF; ELSE @@ -1184,7 +1177,7 @@ CREATE OR REPLACE VIEW hsle_v_rap_ict_rfc mld_opdr_plandatum, mld_opdr_uren ) -AS +AS SELECT m.mld_melding_key, to_date(to_char(fac.gettrackingdate ('MLDNEW', m.mld_melding_key), 'dd-mm-yyyy'),'dd-mm-yyyy'), (SELECT to_date(km.mld_kenmerkmelding_waarde,'dd-mm-yyyy') @@ -1198,7 +1191,7 @@ AS AND km.mld_kenmerk_key = k.mld_kenmerk_key(+) AND k.mld_srtkenmerk_key = 140 AND fac.safe_to_number(km.mld_kenmerkmelding_waarde) = ud.fac_usrdata_key(+)), - CASE + CASE -- Onderstaande WHEN-THEN volgorde is cruciaal voor tonen juiste status... WHEN m.mld_melding_status IN (1) THEN 'Afgewezen' -- Afgewezen (1) @@ -1229,11 +1222,11 @@ AS m.mld_melding_omschrijving, CASE WHEN m.mld_melding_kto_type = 'M' - THEN to_char(m.mld_melding_kto_key) + THEN to_char(m.mld_melding_kto_key) END, --CASE -- WHEN m.mld_melding_kto_type = 'M' - -- THEN + -- THEN -- '