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

HGCU#89695 Kwartaalbevriezing monitoring verschilt van andere PPS-methoden

Browse Source 
svn path=/Customer/trunk/; revision=69659
This commit is contained in:
Arthur Egberink
2025-07-03 12:55:04 +00:00
parent 2a0f1abc2d
commit 18b18fe6a7
1 changed files with 15 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
HGCU/hgcu.sql
View File

@@ -832,7 +832,8 @@ AS
SELECT mld_melding_key
FROM hgcu_v_monitoring
WHERE status = 'Afgemeld'
AND gereed < TRUNC (SYSDATE, 'MONTH')
-- AND gereed < TRUNC (SYSDATE, 'Q') ******
AND gereed < TO_DATE('20250401', 'YYYYMMDD')
AND afw IS NULL -- geen afwijkingen die goedgekeurd moeten worden
AND afgerond IS NULL; -- expliciete goedkeuring staat niet aan
@@ -849,7 +850,8 @@ AS
m.*
FROM mld_melding m
WHERE m.mld_melding_parentkey IS NULL
AND fac.gettrackingdate ('MLDAFM', m.mld_melding_key) < TRUNC (SYSDATE, 'MONTH')
-- AND fac.gettrackingdate ('MLDAFM', m.mld_melding_key) < TRUNC (SYSDATE, 'Q') ******
AND fac.gettrackingdate ('MLDAFM', m.mld_melding_key) < TO_DATE('20250401', 'yyyymmdd')
AND m.mld_melding_key NOT IN
(SELECT melding_key FROM hgcu_monitoring WHERE melding_key IS NOT NULL)) m,
hgcu_v_monitoring mo
@@ -859,7 +861,9 @@ AS
CURSOR c3
IS
SELECT * FROM hgcu_v_monitoring_tot;
SELECT * FROM hgcu_v_monitoring_tot
WHERE gereed < TO_DATE('20250401', 'YYYYMMDD'); -- *******
v_exportdate DATE;
v_lastexport DATE;
@@ -867,15 +871,18 @@ AS
v_status NUMBER;
BEGIN
v_exportdate := SYSDATE;
v_exportdate := SYSDATE;
v_exportdate := SYSDATE - 20; -- *******
-- Als ik deze maand al een freeze heb uitgevoerd dan mag ik dat niet nog een keer doen.
SELECT MAX(export_datum)
INTO v_lastexport
FROM hgcu_monitoring;
DELETE imp_log WHERE COALESCE(imp_log_applicatie, 'QueQeLeQue') = p_applname;
DELETE fac_rapport WHERE fac_rapport_node = 'FREEZE';
IF TRUNC (COALESCE(v_lastexport, SYSDATE-100), 'MONTH') <> TRUNC(v_exportdate, 'MONTH')
IF (TRUNC (COALESCE(v_lastexport, SYSDATE-100), 'Q') <> TRUNC(v_exportdate, 'Q')) OR 1=1 -- ******
THEN
-- Zet de meldingen die geen afwijking kennen en die niet op status afgerond staan naar status verwerkt
FOR rec IN c1
@@ -1007,8 +1014,8 @@ BEGIN
SELECT mld_melding_key, DECODE(mld_melding_indult, 1, 'Ja', 'Nee'), v_exportdate
FROM mld_melding m
WHERE m.mld_melding_status = 6 -- Historie
AND fac.gettrackingdate ('MLDAFM', m.mld_melding_key) <
TRUNC (SYSDATE, 'MONTH')
-- AND fac.gettrackingdate ('MLDAFM', m.mld_melding_key) < TRUNC (SYSDATE, 'Q') *******
AND fac.gettrackingdate ('MLDAFM', m.mld_melding_key) < TO_DATE('20250401', 'YYYYMMDD')
AND m.mld_melding_key NOT IN (SELECT nm.melding_key
FROM hgcu_monitoring nm
WHERE nm.melding_key IS NOT NULL);
@@ -1030,7 +1037,7 @@ BEGIN
END hgcu_select_freeze_monitoring;
/
CREATE OR REPLACE PROCEDURE hgcu_export_freeze_monintoring (
CREATE OR REPLACE PROCEDURE hgcu_export_freeze_monitoring (
p_applname IN VARCHAR2,
p_applrun IN VARCHAR2,
p_filedir IN VARCHAR2,