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