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

FCLT#85890 Technisch adres interne bedrijven geen vertraging bij versturen

Browse Source 
* Tasker opstarten bij wijzigen notbefore
* ORDNEW notificeren wel als teverzenden = 1 natuurlijk

svn path=/Database/branches/DB50/; revision=68078
This commit is contained in:
Jos Groot Lipman
2025-02-19 13:04:08 +00:00
parent 1046a64edb
commit dd8f872cb5
3 changed files with 42 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
FAC/FAC_PAC.SRC
View File

@@ -2416,15 +2416,37 @@ CREATE OR REPLACE PACKAGE BODY fac AS
AND aa.prs_afdeling_key = p.prs_afdeling_key
AND ba.prs_bedrijf_key = aa.prs_bedrijf_key
AND ba.prs_bedrijfadres_startdatum <= SYSDATE
-- AND ba.prs_bedrijfadres_type = 'G' // maakt me dat uit?
AND ba.prs_bedrijfadres_type = 'G' // maakt me dat uit? Ja, eventuele 'E'RP negeren
AND basrt.prs_bedrijfadres_key = ba.prs_bedrijfadres_key
AND basrt.fac_srtnotificatie_key = skey
)
LOOP
putnotificationsrtprio (NULL, NULL, pcode, pref, poptmessage, 0 /* poptstatus */,
NULL, NULL, pxref, pprio, psender, NULL,
pbedrijfadreskey => bedrijfadresrec.prs_bedrijfadres_key -- enige bijzondere, rest gewoon blind doorgeven
);
INSERT INTO fac_notificatie (fac_srtnotificatie_key,
fac_notificatie_status,
prs_perslid_key_sender,
fac_notificatie_oms,
fac_notificatie_refkey,
fac_notificatie_extrakey,
fac_notificatie_prioriteit,
fac_notificatie_sender_email,
fac_notificatie_lang,
fac_notificatie_systeemadres,
fac_notificatie_attachments,
prs_bedrijfadres_key,
fac_notificatie_notbefore)
VALUES (skey,
0,
pfrom,
soms,
pref,
pxref,
pprio,
psender,
llang,
lsysteem,
pattach,
bedrijfadresrec.prs_bedrijfadres_key, -- enige bijzondere, rest gewoon blind doorgeven,
SYSDATE); -- hier geen delay + NVL(l_srtnoti_delay/ 60/ 60/ 24, 0));
END LOOP;
END IF;

18
FAC/FAC_TRI.SRC
View File

@@ -397,12 +397,22 @@ BEGIN
-- Always clear the notify_to_statinfo bit, even when no :new.prs_perslid_key_receiver
:NEW.fac_notificatie_status := BITAND (:NEW.fac_notificatie_status, 255 - 1);
:NEW.fac_notificatie_queue:=UPPER(:NEW.fac_notificatie_queue);
END;
/
IF BITAND(:NEW.fac_notificatie_status, 255 - 64) > 0 -- Alleen custom-queue negeren we
OR :NEW.prs_bedrijfadres_key IS NOT NULL
OR :NEW.fac_notificatie_systeemadres IS NOT NULL
CREATE_TRIGGER(fac_t_fac_notificatie_A_IU)
AFTER INSERT OR UPDATE
ON fac_notificatie
FOR EACH ROW
BEGIN
IF INSERTING OR UPDATING ('fac_notificatie_notbefore')
THEN
tsk.starttask(p_taskcode => 'PUTORDERS', p_nextrun => :NEW.fac_notificatie_notbefore);
IF BITAND(:NEW.fac_notificatie_status, 255 - 64) > 0 -- Alleen custom-queue negeren we
OR :NEW.prs_bedrijfadres_key IS NOT NULL
OR :NEW.fac_notificatie_systeemadres IS NOT NULL
THEN
tsk.starttask(p_taskcode => 'PUTORDERS', p_nextrun => :NEW.fac_notificatie_notbefore);
END IF;
END IF;
END;
/

2
MLD/MLD_PAC.SRC
View File

@@ -526,7 +526,7 @@ CREATE OR REPLACE PACKAGE BODY mld AS
THEN
newstatus := pstatus;
eventcode := 'ORDNEW';
IF teverzenden IS NULL OR teverzenden = 1 -- gebruiker heeft aangegeven 'niet versturen'
IF teverzenden IS NULL OR teverzenden = 0 -- gebruiker heeft aangegeven 'niet versturen'
THEN
l_notificeren := 0;
END IF;