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

UWVA#18350 parkeer kopie

Browse Source 
svn path=/Database/trunk/; revision=10399
This commit is contained in:
Jos Groot Lipman
2010-09-07 09:14:14 +00:00
parent 512dcc7d63
commit af243a62a6
1 changed files with 12 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
RES/RES_PAC.SRC
View File

@@ -1,10 +1,8 @@
#ifdef RES
/* RES_PAC.SRC
*
* $Revision: 61 $
* $Modtime: 21-07-10 15:55 $
*
* $Revision: 62 $
* $Modtime: 6-09-10 16:03 $
*/
CREATE OR REPLACE PACKAGE res AS
@@ -105,6 +103,7 @@ AS
rsv_to res_rsv_ruimte%ROWTYPE;
new_ruimte_van DATE;
new_ruimte_tot DATE;
bez_parkingdiscipline_key NUMBER;
BEGIN
SELECT *
INTO rsv_from
@@ -216,9 +215,11 @@ AS
-- 128 Voorzieningen (delen)
IF BITAND (flags, 128) = 128
THEN
bez_parkingdiscipline_key := fac.safe_to_number (fac.getsetting ('vis_parking_key'));
-- Verwijder de huidige artikelen voor de te wijzigen rsv_ruimte
DELETE FROM res_rsv_deel
WHERE res_rsv_ruimte_key = prsv_ruimte_key_to;
WHERE res_rsv_ruimte_key = prsv_ruimte_key_to
AND res_deel_key not in (select res_deel_key from res_deel where res_discipline_key = bez_parkingdiscipline_key); -- die komen straks wel
-- Kopieer de delen van referentie ruimte, hanteer dezelfde tijd-offset tov de ruimte als bij het origineel
BEGIN
INSERT INTO res_rsv_deel (res_deel_key, res_rsv_deel_aantal, res_rsv_ruimte_key, res_rsv_deel_prijs, res_status_bo_key, res_rsv_deel_van, res_rsv_deel_tot
@@ -230,8 +231,10 @@ AS
2, -- ingevoerd
TRUNC (rsv_to.res_rsv_ruimte_van) + (ra.res_rsv_deel_van - TRUNC (rsv_from.res_rsv_ruimte_van)),
TRUNC (rsv_to.res_rsv_ruimte_van) + (ra.res_rsv_deel_tot - TRUNC (rsv_from.res_rsv_ruimte_tot))
FROM res_rsv_deel ra
WHERE ra.res_rsv_ruimte_key = prsv_ruimte_key_from;
FROM res_rsv_deel ra, res_deel rd
WHERE ra.res_rsv_ruimte_key = prsv_ruimte_key_from
AND ra.res_deel_key = rd.res_deel_key
AND rd.res_discipline_key <> bez_parkingdiscipline_key; -- die komen straks wel
END;
END IF;
-- 256 Catering (artikelen)
@@ -1097,4 +1100,6 @@ AS
END res;
/
REGISTERRUN('$Workfile: RES_PAC.SRC $','$Revision: 62 $')
#endif // RES