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

FCLT#90601 Exchange via tasker eigen queue

Browse Source 
svn path=/Database/trunk/; revision=70253
This commit is contained in:
Jos Groot Lipman
2025-09-09 12:41:18 +00:00
parent 53e23da0c6
commit 42208c7b16
2 changed files with 16 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
FAC/FAC_PAC.SRC
View File

@@ -2845,7 +2845,8 @@ CREATE OR REPLACE PACKAGE BODY fac AS
-- Ruim alle totaal verwerkte notificaties op.
-- Putorders heeft de meeste al wel gedaan maar iets als portal only komt niet per se langs putorders
DELETE FROM fac_notificatie
WHERE fac_notificatie_status IN (0, 16)
WHERE fac_notificatie_queue = 'DEFAULT'
AND fac_notificatie_status IN (0, 16)
AND fac_notificatie_systeemadres IS NULL
AND prs_bedrijfadres_key IS NULL;
END;
@@ -6504,8 +6505,14 @@ CREATE OR REPLACE PACKAGE BODY fac AS
-- Wissen oude (gisteren) popups van Putorders.
UPDATE fac_notificatie n
SET n.fac_notificatie_status = BITAND(n.fac_notificatie_status, 255 - 8)
WHERE BITAND (n.fac_notificatie_status, 8) = 8
AND TRUNC (n.fac_notificatie_datum) < TRUNC (SYSDATE);
WHERE n.fac_notificatie_queue = 'DEFAULT'
AND BITAND (n.fac_notificatie_status, 8) = 8
AND n.fac_notificatie_datum < TRUNC(SYSDATE);
DELETE FROM fac_notificatie
WHERE fac_notificatie_queue = 'EXCHANGE'
AND fac_notificatie_datum < TRUNC(SYSDATE);
-- nu records deleten die niets meer doen
fac.cleannotifications();

10
FAC/FAC_TRI.SRC
View File

@@ -343,7 +343,9 @@ BEGIN
-- Kopieer direct naar statusinformatie op de portal indien van toepassing
-- Daarbij worden alle oude berichten (eerst) verwijderd
IF BITAND (:NEW.fac_notificatie_status, 1) = 1 AND :new.prs_perslid_key_receiver IS NOT NULL
IF BITAND (:NEW.fac_notificatie_status, 1) = 1
AND :new.prs_perslid_key_receiver IS NOT NULL
AND :new.fac_notificatie_queue = 'DEFAULT'
THEN
-- strip zodat we alleen de eerste regel overhouden
loms := SUBSTR(:NEW.fac_notificatie_oms, 1, 512);
@@ -412,7 +414,7 @@ BEGIN
OR :NEW.fac_notificatie_systeemadres IS NOT NULL
THEN
tsk.starttask(p_taskcode => 'PUTORDERS', p_nextrun => :NEW.fac_notificatie_notbefore);
ELSIF :NEW.fac_notificatie_queue = 'EXCHANGE' -- future use
ELSIF :NEW.fac_notificatie_queue = 'EXCHANGE'
THEN
tsk.starttask(p_taskcode => 'EXCHANGE', p_nextrun => :NEW.fac_notificatie_notbefore);
END IF;
@@ -585,9 +587,9 @@ CREATE_TRIGGER(fac_t_fac_tracking_b_i)
ON fac_tracking
COMPOUND TRIGGER
newkey fac_tracking.fac_tracking_key%TYPE;
srtkey fac_tracking.fac_srtnotificatie_key%TYPE;
srtkey fac_tracking.fac_srtnotificatie_key%TYPE;
refkey fac_tracking.fac_tracking_refkey%TYPE;
omschr fac_tracking.fac_tracking_oms%TYPE;
omschr fac_tracking.fac_tracking_oms%TYPE;
prskey fac_tracking.prs_perslid_key%TYPE;
notify_bedrijven BOOLEAN := FALSE;