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

UWVA#31991: einddatum bij reserveerbare objecten.

Browse Source 
svn path=/Database/trunk/; revision=25457
This commit is contained in:
Maykel Geerdink
2015-06-15 13:01:09 +00:00
parent d5c30f9d91
commit c5e2cf789e
1 changed files with 25 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
RES/RES_PAC.SRC
View File

@@ -634,6 +634,7 @@ AS
preposttime NUMBER(5,4); -- we gaan nog delen door 24, res_disc_params.res_disc_params_preposttime%TYPE is dan te klein;
lres_deel_key res_rsv_deel.res_deel_key%TYPE;
lres_ins_deel_key res_deel.res_ins_deel_key%TYPE;
lres_deel_vervaldatum res_deel.res_deel_vervaldatum%TYPE;
lrsv_ruimte_key res_rsv_deel.res_rsv_ruimte_key%TYPE;
lrsv_deel_key res_rsv_deel.res_rsv_deel_key%TYPE;
lrsv_deel_van res_rsv_deel.res_rsv_deel_van%TYPE;
@@ -646,6 +647,7 @@ AS
BEGIN
SELECT d.res_deel_key,
rd.res_ins_deel_key,
rd.res_deel_vervaldatum,
d.res_rsv_ruimte_key,
res_rsv_deel_key,
res_rsv_deel_van,
@@ -654,21 +656,32 @@ AS
r.res_rsv_ruimte_tot,
res_rsv_deel_verwijder,
res_disc_params_preposttime / 24
INTO lres_deel_key,lres_ins_deel_key,lrsv_ruimte_key,lrsv_deel_key,lrsv_deel_van,lrsv_deel_tot,
lruimtevan,lruimtetot,lres_rsv_deel_verwijder,
preposttime
FROM res_rsv_deel d, res_rsv_ruimte r, res_deel rd, res_disc_params dp
WHERE d.res_rsv_ruimte_key = r.res_rsv_ruimte_key
AND res_rsv_deel_key = prsv_deel_key
AND d.res_deel_key = rd.res_deel_key
AND rd.res_discipline_key = dp.res_ins_discipline_key;
INTO lres_deel_key,
lres_ins_deel_key,
lres_deel_vervaldatum,
lrsv_ruimte_key,
lrsv_deel_key,
lrsv_deel_van,
lrsv_deel_tot,
lruimtevan,lruimtetot,
lres_rsv_deel_verwijder,
preposttime
FROM res_rsv_deel d,
res_rsv_ruimte r,
res_deel rd,
res_disc_params dp
WHERE d.res_rsv_ruimte_key = r.res_rsv_ruimte_key
AND res_rsv_deel_key = prsv_deel_key
AND d.res_deel_key = rd.res_deel_key
AND rd.res_discipline_key = dp.res_ins_discipline_key;
END;
-- 1 Minuut marge voor afrondfouten
IF preposttime > 1/24/60 THEN
preposttime := preposttime - 1/24/60;
END IF;
newdirtlevel := 0; -- Begin 'Clean'
IF lres_rsv_deel_verwijder IS NULL THEN
IF lres_rsv_deel_verwijder IS NULL
THEN
-- Oke, hoeveel overlappende res_deel hebben we nu
SELECT COUNT (DISTINCT res_rsv_deel_key)
@@ -688,9 +701,10 @@ AS
THEN
newdirtlevel := 512; -- Overlap
END IF;
IF NOT res_deel_in_scope (lres_deel_key, lrsv_ruimte_key)
IF NOT res_deel_in_scope (lres_deel_key, lrsv_ruimte_key) OR
lres_deel_vervaldatum <= lrsv_deel_tot
THEN
newdirtlevel := newdirtlevel + 256; -- OutOfScope
newdirtlevel := newdirtlevel + 256; -- OutOfScope/Not Allowed
END IF;
IF (lrsv_deel_van < lruimtevan OR lrsv_deel_tot > lruimtetot)
THEN