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

NMMS#30564 -- View voor monitoring is traag

Browse Source 
svn path=/Customer/trunk/; revision=22789
This commit is contained in:
Arthur Egberink
2014-10-06 08:40:20 +00:00
parent 65d1efacde
commit 7430429a76
1 changed files with 24 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

43
NMMS/nmms.sql
View File

@@ -28,29 +28,30 @@ AS
p_index IN NUMBER)
RETURN NUMBER
AS
CURSOR c
IS
SELECT m2.mld_melding_datum van,
fac.gettrackingdate ('MLDAFM', m2.mld_melding_key) tot,
m2.mld_melding_key
FROM mld_melding m1,
mld_melding m2,
mld_stdmelding std1,
mld_stdmelding std2
WHERE m1.mld_melding_key = p_melding_key
AND m1.mld_stdmelding_key = std1.mld_stdmelding_key
AND m2.mld_stdmelding_key = std2.mld_stdmelding_key
AND std1.prs_dienst_key = std2.prs_dienst_key
AND m1.mld_alg_onroerendgoed_keys = m2.mld_alg_onroerendgoed_keys
AND m1.mld_melding_datum BETWEEN m2.mld_melding_datum
AND fac.gettrackingdate (
'MLDAFM',
m2.mld_melding_key);
CURSOR c
IS
SELECT m2.mld_melding_datum van, m2.mld_melding_key
FROM mld_melding m1,
mld_melding m2,
mld_stdmelding std1,
mld_stdmelding std2
WHERE m1.mld_melding_key = p_melding_key
AND m1.mld_stdmelding_key = std1.mld_stdmelding_key
AND m2.mld_stdmelding_key = std2.mld_stdmelding_key
AND std1.prs_dienst_key = std2.prs_dienst_key
AND m1.mld_melding_key <> m2.mld_melding_key
AND m1.mld_alg_onroerendgoed_keys = m2.mld_alg_onroerendgoed_keys
AND m1.mld_melding_datum BETWEEN m2.mld_melding_datum
AND fac.gettrackingdate (
'MLDAFM',
m2.mld_melding_key)
ORDER BY m2.mld_melding_datum;
v_melding_key NUMBER;
l_melding_key NUMBER;
v_datum_begin DATE;
l_datum_begin DATE;
v_loop_index NUMBER;
BEGIN
v_melding_key := p_melding_key;
@@ -59,9 +60,12 @@ AS
FROM mld_melding
WHERE mld_melding_key = p_melding_key;
v_loop_index := 1;
FOR rec IN c
LOOP
IF p_index < 10
-- door de sortering op de cursor hoeven we alleen het eerste record te gebruiken.
IF p_index < 10 AND v_loop_index = 1
THEN
BEGIN
l_melding_key :=
@@ -78,6 +82,7 @@ AS
v_datum_begin := l_datum_begin;
v_melding_key := l_melding_key;
END IF;
v_loop_index := v_loop_index + 1;
END IF;
END LOOP;