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

Kleine aanpassingen gedaan i.v.m. BIS.

Browse Source 
svn path=/Database/trunk/; revision=6364
This commit is contained in:
Bert in het Veld
1998-11-23 15:42:58 +00:00
parent e95338bf29
commit 81607c1666
2 changed files with 9 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
CAD/CAD_PAC.SRC
View File

@@ -278,7 +278,8 @@ CREATE OR REPLACE PACKAGE BODY cad AS
BEGIN
DELETE FROM cad_slnkstruct
WHERE cad_slnkstruct_sessionid = Session_Id
AND cad_slnkstruct_entry <> 'FAC_MODULE';
AND cad_slnkstruct_entry <> 'FAC_MODULE'
OR cad_slnkstruct_entry <> 'SYNC';
COMMIT;
EXCEPTION
WHEN NO_DATA_FOUND THEN
@@ -291,8 +292,7 @@ CREATE OR REPLACE PACKAGE BODY cad AS
BEGIN
BEGIN
DELETE FROM cad_slnkstruct
WHERE cad_slnkstruct_sessionid = Session_Id
AND cad_slnkstruct_entry <> 'FAC_MODULE';
WHERE cad_slnkstruct_sessionid = Session_Id;
COMMIT;
EXCEPTION
WHEN NO_DATA_FOUND THEN
@@ -309,18 +309,20 @@ CREATE OR REPLACE PACKAGE BODY cad AS
SELECT max(cad_slnkstruct_seqnr) INTO aantal
FROM cad_slnkstruct
WHERE cad_slnkstruct_sessionid = Session_Id
AND cad_slnkstruct_entry <> 'FAC_MODULE';
AND cad_slnkstruct_entry <> 'FAC_MODULE'
OR cad_slnkstruct_entry <> 'SYNC';
IF aantal > 1 THEN
DELETE FROM cad_slnkstruct
WHERE cad_slnkstruct_seqnr = 1
AND cad_slnkstruct_sessionid = Session_Id
AND cad_slnkstruct_entry <> 'FAC_MODULE';
AND cad_slnkstruct_entry <> 'FAC_MODULE'
OR cad_slnkstruct_entry <> 'SYNC';
COMMIT;
UPDATE cad_slnkstruct
SET cad_slnkstruct_seqnr = cad_slnkstruct_seqnr - 1
WHERE cad_slnkstruct_sessionid = Session_Id
AND cad_slnkstruct_entry <> 'FAC_MODULE';
AND cad_slnkstruct_entry <> 'FAC_MODULE'
OR cad_slnkstruct_entry <> 'SYNC';
COMMIT;
END IF;
EXCEPTION

21
CAD/CAD_VIE.SRC
View File

@@ -101,27 +101,6 @@ CREATE_VIEW(cad_v_alg_terreinsector, CAD_PRIVILEGE)
alg_terreinsector_code
FROM alg_v_aanwezigterreinsector;
CREATE_VIEW(cad_v_bis_boring, CAD_PRIVILEGE)
(bis_boring_key,
bis_boring_nummer) AS
SELECT bis_boring_key,
bis_boring_nummer
FROM bis_v_aanwezigboring;
CREATE_VIEW(cad_v_bis_project, CAD_PRIVILEGE)
(bis_project_key,
bis_project_nr) AS
SELECT bis_project_key,
bis_project_nr
FROM bis_v_aanwezigproject;
CREATE_VIEW(cad_v_bis_ontgravingsvak, CAD_PRIVILEGE)
(bis_ontgravingsvak_key,
bis_ontgravingsvak_naam) AS
SELECT bis_ontgravingsvak_key,
bis_ontgravingsvak_naam
FROM bis_ontgravingsvak;
/* View met ALLE tekeningen, ongeacht de autorisatie; minimale kolommen, gebruikt in CAD_PAC.SRC */
CREATE_VIEW(cad_v_cad_tekening, CAD_PRIVILEGE) AS
SELECT ins_discipline_key,