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

MARX#66033 Planbord resource voorzieningen/ reserveringen onder mld_opdrachten savepoint

Browse Source 
svn path=/Database/trunk/; revision=51350
This commit is contained in:
Jos Groot Lipman
2021-05-10 10:26:53 +00:00
parent d35ac74ac6
commit e0766b4be2
2 changed files with 12 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
RES/RES_PAC.SRC
View File

@@ -855,6 +855,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_prs_perslid_key res_deel.res_prs_perslid_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;
@@ -868,6 +869,7 @@ AS
BEGIN
SELECT d.res_deel_key,
rd.res_ins_deel_key,
rd.res_prs_perslid_key,
rd.res_deel_vervaldatum,
d.res_rsv_ruimte_key,
res_rsv_deel_key,
@@ -879,6 +881,7 @@ AS
res_disc_params_preposttime / 24
INTO lres_deel_key,
lres_ins_deel_key,
lres_prs_perslid_key,
lres_deel_vervaldatum,
lrsv_ruimte_key,
lrsv_deel_key,
@@ -910,7 +913,8 @@ AS
FROM res_v_aanwezigrsv_deel rad, -- de andere
res_deel rd
WHERE rd.res_deel_key = rad.res_deel_key
AND rd.res_ins_deel_key = lres_ins_deel_key -- Er kunnen meerdere res_deel-en zijn met dezelfde ins_deel_key
AND (rd.res_ins_deel_key = lres_ins_deel_key -- Er kunnen meerdere res_deel-en zijn met dezelfde ins_deel_key/ prs_perslid_key
OR rd.res_prs_perslid_key = lres_prs_perslid_key)
-- Er is overlap als
-- A) de andere ruimte begint voor ons einde
-- B) en eindigt na ons begin
@@ -922,10 +926,12 @@ AS
THEN
newdirtlevel := 512; -- Overlap
END IF;
IF NOT res_deel_in_scope (lres_deel_key, lrsv_ruimte_key) OR
lres_deel_vervaldatum <= lrsv_deel_tot
THEN
newdirtlevel := newdirtlevel + 256; -- OutOfScope/Not Allowed
IF lres_prs_perslid_key IS NULL THEN
IF NOT res_deel_in_scope (lres_deel_key, lrsv_ruimte_key) OR
lres_deel_vervaldatum <= lrsv_deel_tot
THEN
newdirtlevel := newdirtlevel + 256; -- OutOfScope/Not Allowed
END IF;
END IF;
IF (lrsv_deel_van < lruimtevan OR lrsv_deel_tot > lruimtetot)
THEN

2
RES/RES_VIE.SRC
View File

@@ -350,7 +350,7 @@ CREATE_VIEW(res_v_res_catalogus, 0)
AS SELECT *
FROM INS_TAB_DISCIPLINE
WHERE ins_discipline_module = 'RES'
AND ins_discipline_min_level IN (1,2,3);
AND ins_discipline_min_level IN (1,2,3,4);
-- View levert op in welke alg_ruimtes uit een bepaalde catalogus besteld mag worden