diff --git a/VEBE/vebe.sql b/VEBE/vebe.sql index 3ace0e4eb..8438d5386 100644 --- a/VEBE/vebe.sql +++ b/VEBE/vebe.sql @@ -2462,6 +2462,215 @@ AS FROM fac_tracking WHERE fac_srtnotificatie_key = 449); +CREATE OR REPLACE PROCEDURE vebe_export_clean_att (p_applname IN VARCHAR2, + p_applrun IN VARCHAR2, + p_filedir IN VARCHAR2, + p_filename IN VARCHAR2) +IS + -- De bijlagen uit de workflow 'Aanvraag leaseauto' kunnen worden opgeschoond. + -- Enkel bijlagen die zijn bijgevoegd in de stappen 'Overeenkomst&Matrix' en 'Bestellen auto' (KVI) moeten bewaard blijven. + CURSOR c_attachments + IS + SELECT b.fac_bijlagen_key, + (SELECT MAX (t.fac_tracking_datum) + FROM fac_tracking t, fac_srtnotificatie sn + WHERE t.fac_tracking_refkey = start_m.mld_melding_key + AND sn.fac_srtnotificatie_key = t.fac_srtnotificatie_key + AND sn.fac_srtnotificatie_code = 'MLDAFM') + FROM fac_bijlagen b, + mld_melding m, + mld_melding start_m, + mld_kenmerk km + WHERE b.fac_bijlagen_verwijder IS NULL + AND m.mld_melding_start_key = start_m.mld_melding_key + AND m.mld_melding_key = b.fac_bijlagen_refkey + AND km.mld_kenmerk_key = b.fac_bijlagen_kenmerk_key + AND km.mld_kenmerk_niveau NOT LIKE '%O%' --Geen opdrachtkenmerk + AND b.fac_bijlagen_module = 'MLD' + AND start_m.mld_melding_status IN (1, 5, 6, 99) --Workflow mag niet meer actief zijn. + AND start_m.mld_stdmelding_key = 301 --Start nieuwe leaseaanvraag (start workflow) + AND (SELECT MAX (t.fac_tracking_datum) + FROM fac_tracking t, fac_srtnotificatie sn + WHERE t.fac_tracking_refkey = start_m.mld_melding_key + AND sn.fac_srtnotificatie_key = + t.fac_srtnotificatie_key + AND sn.fac_srtnotificatie_code = 'MLDAFM') < + SYSDATE - 183 -- Workflow langer dan half jaar gestopt + ORDER BY b.fac_bijlagen_key DESC; +BEGIN + -- Verwijder de bijlagen die uit de workflows die langer dan een half jaar geleden zijn afgerond (behalve ovk/matrix/kvi). + FOR rec IN c_attachments + LOOP + BEGIN + UPDATE fac_bijlagen + SET fac_bijlagen_verwijder = SYSDATE + WHERE fac_bijlagen_key = rec.fac_bijlagen_key; + END; + END LOOP; + + COMMIT; +EXCEPTION + WHEN OTHERS + THEN + oracle_err_num := SQLCODE; + oracle_err_mes := SUBSTR (SQLERRM, 1, 100); + v_errormsg := + 'OTHERS (vebe_export_clean_att error ' + || oracle_err_num + || '/' + || oracle_err_mes + || ')'; + COMMIT; +END vebe_export_clean_att; +/ + +CREATE OR REPLACE VIEW vebe_v_rap_lease_aanvr +AS + SELECT m.melding_key AS melding_nr, + m.melding_start_key AS melding_startnr, + m.melder AS berijder, + m.afdeling_omschrijving, + m.invoerder, + m.soortmelding AS vakgroeptype, + m.productgroep AS vakgroep, + sm.mld_stdmelding_key, + m.subproductgroep AS std_melding, + m.behandelaar, + m.melding_status, + m.melding_datum, + m.melding_afgemeld, + m.doorlooptijd_werkdgn, + m.onderwerp, + (SELECT DISTINCT (c.nummer) + FROM mld_kenmerkmelding kmm, + mld_kenmerk km, + cnt_v_udr_contract c + WHERE kmm.mld_kenmerk_key = km.mld_kenmerk_key + AND km.mld_kenmerk_key = 421 + AND c.nummer = kmm.mld_kenmerkmelding_waarde + AND mld_kenmerkmelding_verwijder IS NULL + AND kmm.mld_melding_key = m2.mld_melding_start_key) + AS contractnummer, + (SELECT DISTINCT (c.contractsoort) + FROM mld_kenmerkmelding kmm, + mld_kenmerk km, + cnt_v_udr_contract c + WHERE kmm.mld_kenmerk_key = km.mld_kenmerk_key + AND km.mld_kenmerk_key = 421 + AND c.nummer = kmm.mld_kenmerkmelding_waarde + AND mld_kenmerkmelding_verwijder IS NULL + AND kmm.mld_melding_key = m2.mld_melding_start_key) + AS contractsoort, + (SELECT DISTINCT (c.omschrijving) + FROM mld_kenmerkmelding kmm, + mld_kenmerk km, + cnt_v_udr_contract c + WHERE kmm.mld_kenmerk_key = km.mld_kenmerk_key + AND km.mld_kenmerk_key = 421 + AND c.nummer = kmm.mld_kenmerkmelding_waarde + AND mld_kenmerkmelding_verwijder IS NULL + AND kmm.mld_melding_key = m2.mld_melding_start_key) + AS contractomschrijving, + (SELECT DISTINCT (c.contractpartij) + FROM mld_kenmerkmelding kmm, + mld_kenmerk km, + cnt_v_udr_contract c + WHERE kmm.mld_kenmerk_key = km.mld_kenmerk_key + AND km.mld_kenmerk_key = 421 + AND c.nummer = kmm.mld_kenmerkmelding_waarde + AND mld_kenmerkmelding_verwijder IS NULL + AND kmm.mld_melding_key = m2.mld_melding_start_key) + AS contractpartij, + (SELECT DISTINCT (c.contractafdeling) + FROM mld_kenmerkmelding kmm, + mld_kenmerk km, + cnt_v_udr_contract c + WHERE kmm.mld_kenmerk_key = km.mld_kenmerk_key + AND km.mld_kenmerk_key = 421 + AND c.nummer = kmm.mld_kenmerkmelding_waarde + AND mld_kenmerkmelding_verwijder IS NULL + AND kmm.mld_melding_key = m2.mld_melding_start_key) + AS contractafdeling, + (SELECT DISTINCT (c.contractbeheerder) + FROM mld_kenmerkmelding kmm, + mld_kenmerk km, + cnt_v_udr_contract c + WHERE kmm.mld_kenmerk_key = km.mld_kenmerk_key + AND km.mld_kenmerk_key = 421 + AND c.nummer = kmm.mld_kenmerkmelding_waarde + AND mld_kenmerkmelding_verwijder IS NULL + AND kmm.mld_melding_key = m2.mld_melding_start_key) + AS contractbeheerder, + (SELECT DISTINCT (c.begindatum) + FROM mld_kenmerkmelding kmm, + mld_kenmerk km, + cnt_v_udr_contract c + WHERE kmm.mld_kenmerk_key = km.mld_kenmerk_key + AND km.mld_kenmerk_key = 421 + AND c.nummer = kmm.mld_kenmerkmelding_waarde + AND mld_kenmerkmelding_verwijder IS NULL + AND kmm.mld_melding_key = m2.mld_melding_start_key) + AS contract_begindatum, + (SELECT DISTINCT (c.einddatum) + FROM mld_kenmerkmelding kmm, + mld_kenmerk km, + cnt_v_udr_contract c + WHERE kmm.mld_kenmerk_key = km.mld_kenmerk_key + AND km.mld_kenmerk_key = 421 + AND c.nummer = kmm.mld_kenmerkmelding_waarde + AND mld_kenmerkmelding_verwijder IS NULL + AND kmm.mld_melding_key = m2.mld_melding_start_key) + AS contract_einddatum, + (SELECT DISTINCT (c.opzegdatum) + FROM mld_kenmerkmelding kmm, + mld_kenmerk km, + cnt_v_udr_contract c + WHERE kmm.mld_kenmerk_key = km.mld_kenmerk_key + AND km.mld_kenmerk_key = 421 + AND c.nummer = kmm.mld_kenmerkmelding_waarde + AND mld_kenmerkmelding_verwijder IS NULL + AND kmm.mld_melding_key = m2.mld_melding_start_key) + AS contract_opzegdatum, + (SELECT DISTINCT (c.rappeldatum) + FROM mld_kenmerkmelding kmm, + mld_kenmerk km, + cnt_v_udr_contract c + WHERE kmm.mld_kenmerk_key = km.mld_kenmerk_key + AND km.mld_kenmerk_key = 421 + AND c.nummer = kmm.mld_kenmerkmelding_waarde + AND mld_kenmerkmelding_verwijder IS NULL + AND kmm.mld_melding_key = m2.mld_melding_start_key) + AS contract_rappeldatum, + (SELECT DISTINCT (c.fase_actief) + FROM mld_kenmerkmelding kmm, + mld_kenmerk km, + cnt_v_udr_contract c + WHERE kmm.mld_kenmerk_key = km.mld_kenmerk_key + AND km.mld_kenmerk_key = 421 + AND c.nummer = kmm.mld_kenmerkmelding_waarde + AND mld_kenmerkmelding_verwijder IS NULL + AND kmm.mld_melding_key = m2.mld_melding_start_key) + AS contract_fase, + (SELECT DISTINCT (c.status) + FROM mld_kenmerkmelding kmm, + mld_kenmerk km, + cnt_v_udr_contract c + WHERE kmm.mld_kenmerk_key = km.mld_kenmerk_key + AND km.mld_kenmerk_key = 421 + AND c.nummer = kmm.mld_kenmerkmelding_waarde + AND mld_kenmerkmelding_verwijder IS NULL + AND kmm.mld_melding_key = m2.mld_melding_start_key) + AS contract_status + FROM mld_v_udr_melding m, + mld_melding m2, + mld_stdmelding sm, + ins_tab_discipline disc + WHERE m2.mld_melding_key = m.melding_key + AND disc.ins_srtdiscipline_key = 21 -- Workflow leaseaanvraag + AND m2.mld_melding_start_key IS NOT NULL -- Het moet wel onderdeel zijn van een workflow en geen losse melding + AND m2.mld_stdmelding_key = sm.mld_stdmelding_key + AND sm.mld_ins_discipline_key = disc.ins_discipline_key; + -- payload end --- SET DEFINE OFF