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

cad_slnkstructshift aangepast zodat projectkey met sequencenummer 1 nooit verwijderd wordt.

Browse Source 
svn path=/Database/trunk/; revision=7027
This commit is contained in:
Erik Groener
1999-08-26 06:32:26 +00:00
parent 3bed578038
commit c8a9a24116
1 changed files with 22 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

39
CAD/CAD_PAC.SRC
View File

@@ -568,30 +568,35 @@ CREATE OR REPLACE PACKAGE BODY cad AS
PROCEDURE cad_SLNKSTRUCTshift(Session_Id NUMBER) IS
aantal NUMBER(10);
aantal NUMBER(10);
BEGIN
BEGIN
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 <> '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 <> 'SYNC';
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 <> '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 <> 'SYNC'
AND cad_slnkstruct_entry <> 'PROJECTKEY';
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 <> 'SYNC';
SET cad_slnkstruct_seqnr = cad_slnkstruct_seqnr - 1
WHERE cad_slnkstruct_sessionid = Session_Id
AND cad_slnkstruct_entry <> 'FAC_MODULE'
AND cad_slnkstruct_entry <> 'SYNC';
COMMIT;
END IF;
EXCEPTION
WHEN NO_DATA_FOUND THEN
WHEN NO_DATA_FOUND
THEN
NULL;
END;
END cad_SLNKSTRUCTshift;