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

FCLT#85890 MLDNEW alleen notificeren als teverzenden==1

Browse Source 
svn path=/Database/trunk/; revision=68029
This commit is contained in:
Jos Groot Lipman
2025-02-18 09:35:12 +00:00
parent 7496291734
commit 5a1b82f28a
1 changed files with 11 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
MLD/MLD_PAC.SRC
View File

@@ -460,14 +460,17 @@ CREATE OR REPLACE PACKAGE BODY mld AS
AS
currentstatus mld_opdr.mld_statusopdr_key%TYPE;
newstatus mld_opdr.mld_statusopdr_key%TYPE;
eventcode fac_srtnotificatie.fac_srtnotificatie_code%TYPE;
teverzenden mld_opdr.mld_opdr_teverzenden%TYPE;
eventcode VARCHAR2(10); -- tabelsize is 6
typeopdr_key mld_typeopdr.mld_typeopdr_key%TYPE;
typeopdr_isofferte mld_typeopdr.mld_typeopdr_isofferte%TYPE;
statusopdr_key_refiat mld_opdr.mld_statusopdr_key_refiat%TYPE;
new_fac_tracking_key fac_tracking.fac_tracking_key%TYPE;
l_notificeren NUMBER;
BEGIN
SELECT mld_statusopdr_key, mld_typeopdr_key, mld_statusopdr_key_refiat
INTO currentstatus, typeopdr_key, statusopdr_key_refiat
l_notificeren := pnotificeren;
SELECT mld_statusopdr_key, mld_typeopdr_key, mld_statusopdr_key_refiat, mld_opdr_teverzenden
INTO currentstatus, typeopdr_key, statusopdr_key_refiat, teverzenden
FROM mld_opdr
WHERE mld_opdr_key = popdrachtkey;
CASE pstatus
@@ -523,6 +526,10 @@ CREATE OR REPLACE PACKAGE BODY mld AS
THEN
newstatus := pstatus;
eventcode := 'ORDNEW';
IF teverzenden IS NULL OR teverzenden = 1 -- gebruiker heeft aangegeven 'niet versturen'
THEN
l_notificeren := 0;
END IF;
END IF;
WHEN 6 -- Proces Technisch voltooid (TV) (Afgemeld)
THEN
@@ -590,7 +597,7 @@ CREATE OR REPLACE PACKAGE BODY mld AS
IF statusopdr_key_refiat IS NULL OR
newstatus = 3 OR newstatus = 4 OR newstatus = 10
THEN
IF pnotificeren = 0 AND eventcode IS NOT NULL
IF l_notificeren = 0 AND eventcode IS NOT NULL
THEN
eventcode := '#' || eventcode;
END IF;