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

VNOG#88326 Veranderde e-mailnotificaties na update versie 2025.1

Browse Source 
svn path=/Database/branches/DB50/; revision=68619
This commit is contained in:
Jos Groot Lipman
2025-04-01 14:55:36 +00:00
parent a7c9068806
commit 8110221e43
3 changed files with 26 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
FAC/FAC_PAC.SRC
View File

@@ -3848,7 +3848,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS
lcode := pcode;
loms := poms;
IF SUBSTR(lcode,1,1) = '#'
IF SUBSTR(lcode,1,1) = '#' -- later niemand notificeren
THEN
lcode := SUBSTR(lcode, 2);
IF poms IS NULL
@@ -3859,6 +3859,17 @@ CREATE OR REPLACE PACKAGE BODY fac AS
END IF;
END IF;
IF SUBSTR(lcode,1,1) = '@' -- later niet naar technische adressen notificeren
THEN
lcode := SUBSTR(lcode, 2);
IF poms IS NULL
THEN
loms := '@';
ELSE
loms := '@' || SUBSTR(loms, 1, 2047);
END IF;
END IF;
SELECT fac_srtnotificatie_key
INTO tkey
FROM fac_srtnotificatie

11
FAC/FAC_TRI.SRC
View File

@@ -596,16 +596,21 @@ CREATE_TRIGGER(fac_t_fac_tracking_b_i)
END IF;
-- dit event moet mogelijk ook actief worden genotificeerd,
-- dat kan expliciet worden onderdrukt door de omschrijving te prefixen met een #
-- dat kan expliciet worden onderdrukt door de omschrijving te prefixen met een # of @
IF SUBSTR(:new.fac_tracking_oms, 1, 1) = '#'
THEN
-- bedoeld om te onderdrukken, maar moeten we wel weer verwijderen
:new.fac_tracking_oms := SUBSTR(:new.fac_tracking_oms, 2);
-- En nu dus niet notificeren
NULL;
ELSIF SUBSTR(:new.fac_tracking_oms, 1, 1) = '@' -- Technische adressen niet notificeren, wel personen
THEN
:new.fac_tracking_oms := SUBSTR(:new.fac_tracking_oms, 2);
fac.notifytracking(:new.fac_srtnotificatie_key, :new.prs_perslid_key, :new.fac_tracking_oms, :new.fac_tracking_refkey, :new.fac_tracking_key);
-- geen newkey assignment zodat zo geen fac.notifytrackingbedrijven volgt
ELSE
fac.notifytracking(:new.fac_srtnotificatie_key, :new.prs_perslid_key, :new.fac_tracking_oms, :new.fac_tracking_refkey, :new.fac_tracking_key);
newkey := :new.fac_tracking_key;
fac.notifytracking(:new.fac_srtnotificatie_key, :new.prs_perslid_key, :new.fac_tracking_oms, :new.fac_tracking_refkey, :new.fac_tracking_key);
newkey := :new.fac_tracking_key;
END IF;
END BEFORE EACH ROW;

8
MLD/MLD_PAC.SRC
View File

@@ -528,9 +528,9 @@ CREATE OR REPLACE PACKAGE BODY mld AS
THEN
newstatus := pstatus;
eventcode := 'ORDNEW';
IF teverzenden IS NULL OR teverzenden = 0 -- gebruiker heeft aangegeven 'niet versturen'
IF l_notificeren = 1 AND (teverzenden IS NULL OR teverzenden = 0) -- gebruiker heeft aangegeven 'niet versturen'
THEN
l_notificeren := 0;
l_notificeren := 2; -- alleen niet naar technisch adres
END IF;
END IF;
WHEN 6 -- Proces Technisch voltooid (TV) (Afgemeld)
@@ -603,6 +603,10 @@ CREATE OR REPLACE PACKAGE BODY mld AS
THEN
eventcode := '#' || eventcode;
END IF;
IF l_notificeren = 2 AND eventcode IS NOT NULL
THEN
eventcode := '@' || eventcode; -- Niet naar technisch adres, wel naar personen
END IF;
fac.trackaction (eventcode, popdrachtkey, puserkey, NULL, NULL, new_fac_tracking_key);
IF popdr_note_key IS NOT NULL
THEN