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

UWVA#30622 Kopie pool res volgnummer altijd vanaf 1

Browse Source 
svn path=/Database/trunk/; revision=22976
This commit is contained in:
Jos Groot Lipman
2014-10-16 13:09:53 +00:00
parent 9f8abebef7
commit d053a7cd25
1 changed files with 9 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
RES/RES_PAC.SRC
View File

@@ -11,7 +11,8 @@ CREATE OR REPLACE PACKAGE res AS
newdate IN DATE,
puserkey NUMBER,
pmetbez NUMBER DEFAULT 1,
newreskey NUMBER DEFAULT NULL) RETURN NUMBER;
newreskey NUMBER DEFAULT NULL,
newvolgnr NUMBER DEFAULT NULL) RETURN NUMBER;
PROCEDURE res_sync_deelres (prsv_ruimte_key_from IN NUMBER, prsv_ruimte_key_to IN NUMBER, flags IN NUMBER, pres_copy_to_bez IN NUMBER);
PROCEDURE set_ruimte_dirty (prsv_ruimte_key IN NUMBER);
PROCEDURE set_ruimtes_clean (checkdate IN DATE);
@@ -41,6 +42,7 @@ AS
AS
nextkey res_reservering.res_reservering_key%TYPE;
rsv_key res_rsv_ruimte.res_rsv_ruimte_key%TYPE;
newvolgnr res_rsv_ruimte.res_rsv_ruimte_volgnr%TYPE;
BEGIN
SELECT res_s_res_reservering_key.NEXTVAL INTO nextkey FROM DUAL;
INSERT INTO res_reservering (res_reservering_key, res_reservering_ispool)
@@ -48,12 +50,14 @@ AS
FROM res_reservering
WHERE res_reservering_key = pres_key;
newvolgnr := 1;
FOR prsv_ruimte
IN (SELECT res_rsv_ruimte_key
FROM res_v_aanwezigrsv_ruimte
WHERE res_reservering_key = pres_key)
LOOP
rsv_key := res.res_copy_deelres (prsv_ruimte.res_rsv_ruimte_key, newdate, puserkey, pmetbez, nextkey);
rsv_key := res.res_copy_deelres (prsv_ruimte.res_rsv_ruimte_key, newdate, puserkey, pmetbez, nextkey, newvolgnr);
newvolgnr := newvolgnr + 1;
END LOOP;
RETURN nextkey;
END;
@@ -62,7 +66,8 @@ AS
newdate IN DATE,
puserkey NUMBER,
pmetbez NUMBER DEFAULT 1,
newreskey NUMBER DEFAULT NULL) RETURN NUMBER
newreskey NUMBER DEFAULT NULL,
newvolgnr NUMBER DEFAULT NULL) RETURN NUMBER
AS
nextvolg res_rsv_ruimte.res_rsv_ruimte_volgnr%TYPE;
nextkey res_rsv_ruimte.res_rsv_ruimte_key%TYPE;
@@ -85,7 +90,7 @@ AS
)
SELECT nextkey,
COALESCE(newreskey, res_reservering_key),
nextvolg,
COALESCE(newvolgnr, nextvolg),
res_rsv_ruimte_omschrijving,
res_rsv_ruimte_opmerking,
alg_ruimte_key,