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

PCHW#52255 -- Meldingen worden niet afgemeld tijdens freeze.

Browse Source 
svn path=/Customer/trunk/; revision=37068
This commit is contained in:
Arthur Egberink
2018-02-20 08:49:19 +00:00
parent f82a61cd77
commit 08a352ef66
1 changed files with 25 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
PCHX/pchx_mon.sql
View File

@@ -1368,9 +1368,9 @@ AS
(SELECT melding_key FROM pchx_monitoring WHERE melding_key IS NOT NULL)
) m,
pchx_v_monitoring mo
WHERE m_start <> m.mld_melding_key AND m_start = mo.melding_key
AND ( (status = 'Afgemeld' AND afw IS NULL) -- startmelding mag niet hangen op goedkeuring
OR (status = 'Historie'));
WHERE m_start <> m.mld_melding_key AND m_start = mo.melding_key
AND ( (status = 'Afgemeld' AND afw IS NULL) -- startmelding mag niet hangen op goedkeuring
OR (status = 'Historie'));
CURSOR c3
IS
@@ -1395,6 +1395,7 @@ AS
v_lastexport DATE;
v_kortingen_totaal NUMBER(11,2);
v_svd_totaal NUMBER(11,2);
v_status NUMBER;
BEGIN
v_exportdate := SYSDATE;
-- Als ik deze maand al een freeze heb uitgevoerd dan mag ik dat niet nog een keer doen.
@@ -1402,6 +1403,8 @@ BEGIN
INTO v_lastexport
FROM pchx_monitoring;
DELETE imp_log WHERE COALESCE(imp_log_applicatie, 'QueQeLeQue') = p_applname;
IF TRUNC (COALESCE(v_lastexport, SYSDATE-100), 'MONTH') <> TRUNC(v_exportdate, 'MONTH')
THEN
-- Zet de meldingen die geen afwijking kennen en die niet op status afgerond staan naar status verwerkt
@@ -1409,7 +1412,17 @@ BEGIN
LOOP
BEGIN
BEGIN
fac.writelog (p_applname, 'I', 'Melding wordt op verwerkt gezet: ' || rec.melding_key , '');
mld.setmeldingstatus (rec.melding_key, 6, NULL);
SELECT mld_melding_status
INTO v_status
FROM mld_melding
WHERE mld_melding_key = rec.melding_key;
fac.writelog (p_applname, 'I', 'Melding is op verwerkt gezet: ' || rec.melding_key , v_status);
END;
END;
END LOOP;
@@ -1422,7 +1435,16 @@ BEGIN
IF rec.mld_melding_status = 6 OR rec.mld_melding_status = 5 -- verwerkt of afgemeld
THEN
BEGIN
fac.writelog (p_applname, 'I', 'Slave melding wordt op verwerkt gezet: ' || rec.mld_melding_key , '');
mld.setmeldingstatus (rec.mld_melding_key, 6, NULL);
SELECT mld_melding_status
INTO v_status
FROM mld_melding
WHERE mld_melding_key = rec.mld_melding_key;
fac.writelog (p_applname, 'I', 'Slave melding is op verwerkt gezet: ' || rec.mld_melding_key , v_status);
END;
END IF;
END;