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

LOGI#22026

Browse Source 
svn path=/Customer/trunk/; revision=15168
This commit is contained in:
Maarten van der Heide
2012-03-13 10:54:12 +00:00
parent bd85acd172
commit 9951506807
1 changed files with 39 additions and 38 deletions
Download Patch File Download Diff File Expand all files Collapse all files

77
Logi/logi.sql
View File

@@ -1,7 +1,7 @@
-- Script containing customer specific configuration sql statements for LOGI
-- (c) 2008 Facilitor
-- $Revision: 6 $
-- $Modtime: 24-02-12 12:45 $
-- $Revision: 7 $
-- $Modtime: 13-03-12 11:12 $
--
-- Support: +31 53 4800700
@@ -1488,7 +1488,7 @@ AS
WHERE 1 = 0
/
/* Formatted on 10-2-2012 15:55:55 (QP5 v5.115.810.9015) */
/* Formatted on 13-3-2012 11:12:13 (QP5 v5.115.810.9015) */
CREATE OR REPLACE PROCEDURE logi_select_auto_stuff (p_applname IN VARCHAR2,
p_applrun IN VARCHAR2)
AS
@@ -1506,7 +1506,7 @@ AS
res_ruimte rr
WHERE rrr.res_ruimte_opstel_key = rro.res_ruimte_opstel_key
AND rro.res_ruimte_key = rr.res_ruimte_key
AND rr.res_discipline_key IN (-1)
AND rr.res_discipline_key IN (621, 622, 623, 624, 625, 641)
AND EXISTS
(SELECT 1
FROM res_v_aanwezigrsv_ruimte rrr2,
@@ -1515,7 +1515,8 @@ AS
WHERE rrr2.res_ruimte_opstel_key =
rro2.res_ruimte_opstel_key
AND rro2.res_ruimte_key = rr2.res_ruimte_key
AND rr2.res_discipline_key IN (-1)
AND rr2.res_discipline_key IN
(621, 622, 623, 624, 625, 641)
AND rrr2.res_rsv_ruimte_key <>
rrr.res_rsv_ruimte_key
AND rrr2.res_rsv_ruimte_contact_key =
@@ -1539,7 +1540,7 @@ AS
res_ruimte rr
WHERE rrr.res_ruimte_opstel_key = rro.res_ruimte_opstel_key
AND rro.res_ruimte_key = rr.res_ruimte_key
AND rr.res_discipline_key IN (-1)
AND rr.res_discipline_key IN (621, 622, 623, 624, 625, 641)
AND TRUNC (rrr.res_rsv_ruimte_van) > TRUNC (SYSDATE) + 15;
CURSOR cresduur -- WP-RES langer dan toegestane duur (1 uur) -> update!
@@ -1556,7 +1557,7 @@ AS
res_ruimte rr
WHERE rrr.res_ruimte_opstel_key = rro.res_ruimte_opstel_key
AND rro.res_ruimte_key = rr.res_ruimte_key
AND rr.res_discipline_key IN (-1)
AND rr.res_discipline_key IN (621, 623)
AND (rrr.res_rsv_ruimte_tot - rrr.res_rsv_ruimte_van) * 24 > 1;
v_errormsg VARCHAR2 (1000);
@@ -1572,7 +1573,7 @@ BEGIN
v_errormsg := 'Fout bij verwijderen reservering';
UPDATE res_rsv_ruimte
SET res_rsv_ruimte_verwijder = NULL
SET res_rsv_ruimte_verwijder = SYSDATE
WHERE res_rsv_ruimte_key = r.res_rsv_ruimte_key;
fac.trackaction ('RESDEL',
@@ -1594,18 +1595,18 @@ BEGIN
|| '/'
|| oracle_err_mes
|| ')';
fac.imp_writelog (p_applname,
'E',
r.aanduiding || v_errormsg,
'RES_WP-botsing');
fac.writelog (p_applname,
'E',
r.aanduiding || v_errormsg,
'RES_WP-botsing');
COMMIT;
END;
END LOOP;
fac.imp_writelog (p_applname,
'S',
'#RES_WP-botsing deletes: ' || TO_CHAR (v_count),
'');
fac.writelog (p_applname,
'S',
'#RES_WP-botsing deletes: ' || TO_CHAR (v_count),
'');
COMMIT;
@@ -1617,7 +1618,7 @@ BEGIN
v_errormsg := 'Fout bij verwijderen reservering';
UPDATE res_rsv_ruimte
SET res_rsv_ruimte_verwijder = NULL
SET res_rsv_ruimte_verwijder = SYSDATE
WHERE res_rsv_ruimte_key = r.res_rsv_ruimte_key;
fac.trackaction ('RESDEL',
@@ -1639,18 +1640,18 @@ BEGIN
|| '/'
|| oracle_err_mes
|| ')';
fac.imp_writelog (p_applname,
'E',
r.aanduiding || v_errormsg,
'RES_WP-horizon');
fac.writelog (p_applname,
'E',
r.aanduiding || v_errormsg,
'RES_WP-horizon');
COMMIT;
END;
END LOOP;
fac.imp_writelog (p_applname,
'S',
'#RES_WP-horizon deletes: ' || TO_CHAR (v_count),
'');
fac.writelog (p_applname,
'S',
'#RES_WP-horizon deletes: ' || TO_CHAR (v_count),
'');
COMMIT;
@@ -1684,18 +1685,18 @@ BEGIN
|| '/'
|| oracle_err_mes
|| ')';
fac.imp_writelog (p_applname,
'E',
r.aanduiding || v_errormsg,
'RES_WP-tottijd');
fac.writelog (p_applname,
'E',
r.aanduiding || v_errormsg,
'RES_WP-tottijd');
COMMIT;
END;
END LOOP;
fac.imp_writelog (p_applname,
'S',
'#RES_WP-tottijd updates: ' || TO_CHAR (v_count),
'');
fac.writelog (p_applname,
'S',
'#RES_WP-tottijd updates: ' || TO_CHAR (v_count),
'');
COMMIT;
EXCEPTION
@@ -1705,15 +1706,15 @@ EXCEPTION
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
v_errormsg :=
'ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
fac.imp_writelog (p_applname,
'E',
'Proces AUTO_STUFF afgebroken!',
v_errormsg);
fac.writelog (p_applname,
'E',
'Proces AUTO_STUFF afgebroken!',
v_errormsg);
COMMIT;
END;
/
BEGIN adm.systrackscript('$Workfile: logi.sql $', '$Revision: 6 $', 0); END;
BEGIN adm.systrackscript('$Workfile: logi.sql $', '$Revision: 7 $', 0); END;
/
BEGIN fac.registercustversion('LOGI', 9); END;
/