admin/Customer
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

VEBE#57982 Herinrichting wagenparkbeheer met workflow

Browse Source 
svn path=/Customer/trunk/; revision=48937
This commit is contained in:
Sander Schepers
2020-11-24 20:45:33 +00:00
parent f8acbb65c7
commit 2f7ab92efd
1 changed files with 209 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

209
VEBE/vebe.sql
View File

@@ -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