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

Wijziging aangebracht in cad_slnkPostModify.

Browse Source 
svn path=/Database/trunk/; revision=6582
This commit is contained in:
Bert in het Veld
1999-03-10 14:53:36 +00:00
parent 781532b78c
commit 9c24505fdb
1 changed files with 30 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

42
CAD/CAD_PAC.SRC
View File

@@ -125,7 +125,7 @@ CREATE OR REPLACE PACKAGE BODY cad AS
SELECT alg_verdieping_key INTO verdieping_key
FROM alg_ruimte
WHERE alg_ruimte_key =
(SELECT prs_alg_ruimte_key FROM prs_werkplek
(SELECT prs_alg_ruimte_key FROM PRS_WERKPLEK
WHERE prs_werkplek_key = WerkplekKey);
RETURN verdieping_key;
EXCEPTION
@@ -514,6 +514,24 @@ CREATE OR REPLACE PACKAGE BODY cad AS
END cad_SLNKSTRUCTreadVALINT;
FUNCTION cad_SLNKSTRUCTreadVALINT2(Session_Id IN NUMBER, Entry IN VARCHAR2, SeqNr IN NUMBER) RETURN NUMBER IS
Value NUMBER;
BEGIN
BEGIN
SELECT cad_slnkstruct_valint INTO Value
FROM cad_slnkstruct
WHERE cad_slnkstruct_sessionid = Session_Id
AND cad_slnkstruct_entry = Entry
AND cad_slnkstruct_seqnr = 1
AND cad_slnkstruct_seqnr = SeqNr;
RETURN Value;
EXCEPTION
WHEN NO_DATA_FOUND THEN
RETURN NULL;
END;
END cad_SLNKSTRUCTreadVALINT2;
FUNCTION cad_SLNKSTRUCTreadVALSTR(Session_Id IN NUMBER, Entry IN VARCHAR2) RETURN VARCHAR2 IS
Value VARCHAR2(128);
BEGIN
@@ -894,7 +912,7 @@ CREATE OR REPLACE PACKAGE BODY cad AS
WHEN NO_DATA_FOUND THEN
RETURN FALSE;
END;
ELSIF LPNCondName = 'LPN_ALG_WERKPLEK' THEN
ELSIF LPNCondName = 'LPN_PRS_WERKPLEK' THEN
BEGIN
SELECT prs_werkplek_key INTO Dummy
FROM prs_werkplek
@@ -905,7 +923,7 @@ CREATE OR REPLACE PACKAGE BODY cad AS
RETURN FALSE;
END;
ELSE
raise_application_error(-20000, 'alg_m239');
RETURN FALSE;
END IF;
END CheckLPNKey;
@@ -988,7 +1006,7 @@ CREATE OR REPLACE PACKAGE BODY cad AS
END IF;
IF PlaatsDeel = 'W' THEN /* Bepaal ruimte waarin werkplek zich bevindt en geef ruimtekey ervan door */
SELECT prs_alg_ruimte_key INTO LPNKeyCond
FROM prs_werkplek
FROM PRS_WERKPLEK
WHERE prs_werkplek_key =
(SELECT ins_alg_ruimte_key FROM ins_deel
WHERE ins_deel_key = LPNKey);
@@ -1349,18 +1367,18 @@ CREATE OR REPLACE PACKAGE BODY cad AS
BEGIN
DECLARE
Cursor RuimteWerkplek IS
SELECT prs_werkplek_key
SELECT prs_werkplek_key
FROM prs_werkplek
WHERE prs_alg_ruimte_key = LPNKey;
BEGIN
Eerste := TRUE;
FOR WerkplekRec IN RuimteWerkplek LOOP
IF Eerste THEN
cad_SLNKSTRUCTinsertVALSTR(Session_Id, 'LPNALIASDELA', 1,'LPN_ALG_WERKPLEK', 1);
cad_SLNKSTRUCTinsertVALSTR(Session_Id, 'LPNALIASDELA', 1,'LPN_PRS_WERKPLEK', 1);
cad_SLNKSTRUCTinsertVALINT(Session_Id, 'LPNKEYDELA', 1, WerkplekRec.prs_werkplek_key, 1);
Eerste := FALSE;
ELSE
cad_SLNKSTRUCTinsertVALSTR(Session_Id, 'LPNALIASDELA', 1,'LPN_ALG_WERKPLEK', 0);
cad_SLNKSTRUCTinsertVALSTR(Session_Id, 'LPNALIASDELA', 1,'LPN_PRS_WERKPLEK', 0);
cad_SLNKSTRUCTinsertVALINT(Session_Id, 'LPNKEYDELA', 1, WerkplekRec.prs_werkplek_key, 0);
END IF;
END LOOP;
@@ -1512,18 +1530,18 @@ CREATE OR REPLACE PACKAGE BODY cad AS
IF LPNName = 'LPN_INS_DEEL' THEN
/* Bepaal nieuwe plek v/h deel */
LPNCondName := cad_SLNKSTRUCTreadVALSTR(Session_id, 'LPNALIASCONDO');
LPNCondKey := cad_SLNKSTRUCTreadVALSTR(Session_id, 'LPNKEYCONDO');
LPNCondKey := cad_SLNKSTRUCTreadVALINT(Session_id, 'LPNKEYCONDO');
IF LPNCondKey IS NOT NULL THEN
/* Check of key wel bestaat - kan zijn dat tekening niet helemaal up-to-date is */
LPNKeyOk := CheckLPNKey(LPNCondName, LPNKey);
LPNKeyOk := CheckLPNKey(LPNCondName, LPNCondKey);
IF NOT LPNKeyOK THEN
Seqnr := 2;
LOOP
LPNCondKey := cad_SLNKSTRUCTreadVALSTR2(Session_id, 'LPNKEYCONDO', Seqnr);
LPNCondKey := cad_SLNKSTRUCTreadVALINT2(Session_id, 'LPNKEYCONDO', Seqnr);
IF LPNCondKey IS NULL THEN
EXIT;
END IF;
LPNKeyOK := CheckLPNKey(LPNCondName, LPNKey);
LPNKeyOK := CheckLPNKey(LPNCondName, LPNCondKey);
EXIT WHEN LPNKeyOK;
Seqnr := Seqnr + 1;
END LOOP;
@@ -1533,7 +1551,7 @@ CREATE OR REPLACE PACKAGE BODY cad AS
RuimteType := 'T';
ELSIF LPNCondName = 'LPN_ALG_RUIMTE' THEN
RuimteType := 'R';
ELSIF LPNCondName = 'LPN_ALG_WERKPLEK' THEN
ELSIF LPNCondName = 'LPN_PRS_WERKPLEK' THEN
RuimteType := 'W';
END IF;
UPDATE ins_deel