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

FCLT#65984 Kenmerken doorgeven naar vervolg meldingen

Browse Source 
svn path=/Database/trunk/; revision=50148
This commit is contained in:
Erik Groener
2021-03-03 11:11:59 +00:00
parent 3ce7b2be04
commit f6a01d09f1
1 changed files with 19 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
MLD/MLD_PAC.SRC
View File

@@ -2001,6 +2001,7 @@ CREATE OR REPLACE PACKAGE BODY mld AS
l_nrofpossiblepredecessors NUMBER;
l_nrofrequiredpredecessors NUMBER;
l_prepredecessors NUMBER;
l_aantal_new_kenmerk NUMBER;
tmp NUMBER;
createthisnextstep BOOLEAN;
rootregistered BOOLEAN;
@@ -2618,15 +2619,24 @@ CREATE OR REPLACE PACKAGE BODY mld AS
AND kk.mld_kenmerk_niveau = 'A'
AND kk.mld_stdmelding_key IS NULL) x;
--DBMS_OUTPUT.PUT_LINE('ook aanwezig bij de nieuwe, met kenmerk_key');
--DBMS_OUTPUT.PUT_LINE(l_new_kenmerk_key);
--DBMS_OUTPUT.PUT_LINE('dus insert');
INSERT INTO mld_kenmerkmelding (mld_melding_key,
mld_kenmerk_key,
mld_kenmerkmelding_waarde)
VALUES (l_new_melding_key,
l_new_kenmerk_key,
r_mld_kenmerken.mld_kenmerkmelding_waarde);
--DBMS_OUTPUT.PUT_LINE(r_mld_kenmerken.mld_melding_key||' '||r_mld_kenmerken.mld_srtkenmerk_key||' '||r_mld_kenmerken.mld_kenmerk_groep||'->'||l_new_melding_key||' '||l_new_kenmerk_key);
--DBMS_OUTPUT.PUT_LINE('ook aanwezig bij de nieuwe, dus insert');
--Controleer of dit kenmerk al is toegevoegd (meerdere voorliggende meldingen met zelfde kenmerk!)
SELECT COUNT(*)
INTO l_aantal_new_kenmerk
FROM mld_kenmerkmelding
WHERE mld_melding_key = l_new_melding_key
AND mld_kenmerk_key = l_new_kenmerk_key;
IF (l_aantal_new_kenmerk = 0)
THEN
INSERT INTO mld_kenmerkmelding (mld_melding_key,
mld_kenmerk_key,
mld_kenmerkmelding_waarde)
VALUES (l_new_melding_key,
l_new_kenmerk_key,
r_mld_kenmerken.mld_kenmerkmelding_waarde);
END IF;
-- ELSE negeer dit record, we hebben deze al.
END IF;
EXCEPTION