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

Functies Bepaal_locatiecode, cad_getLayerColor, cad_getLayerLinetype, cad_getLayerName, cad_SLNKSTRUCTreadVALSTR2,

Browse Source 
cad_SLNKSTRUCTreadVALINT2 en pragma voor Bepaal_locatiecode toegevoegd zodat deze functies ook in de PRJ_PAC gebruikt kunnen worden.
In cad_SLNKSTRUCTclear worden ook entries voor PROJECTKEY niet meer gewist.

svn path=/Database/trunk/; revision=7021
This commit is contained in:
Erik Groener
1999-08-25 06:48:46 +00:00
parent aa6bdfabfe
commit 21695af29f
1 changed files with 14 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
CAD/CAD_PAC.SRC
View File

@@ -2,6 +2,10 @@
/* REVISIONS:
*
* 25-08-1999 EGR Functies Bepaal_locatiecode,cad_getLayerColor,cad_getLayerLinetype,cad_getLayerName,cad_SLNKSTRUCTreadVALSTR2
* ,cad_SLNKSTRUCTreadVALINT2 en pragma voor Bepaal_locatiecode toegevoegd zodat deze functies ook in de PRJ_PAC
* gebruikt kunnen worden.
* In cad_SLNKSTRUCTclear worden ook entries voor PROJECTKEY niet meer gewist.
* 16-08-1999 BIV Procedures cad_SetKenmerkWaarde en cad_GetKenmerkWaarde toegevoegd om de kenmerken vanuit AutoCAD te kunnen zetten
* 05-08-1999 BIV Procedure cad_GetSrcDwgOfEntity2 toegevoegd aangezien de functie cad_GetSrcDwgOfEntity vanuit
* AutoCAD niet goed gaat (TIMEOUT).
@@ -108,7 +112,12 @@ CREATE OR REPLACE PACKAGE cad AS
FUNCTION cad_getLocatieCode_Tekening(TekeningNaam IN VARCHAR2) RETURN VARCHAR2;
FUNCTION cad_getTekeningNaam_LoadDwg(LoadDwg IN VARCHAR2) RETURN VARCHAR2;
FUNCTION cad_GetSrcDwgOfEntity(Session_Id NUMBER, LPNAliasINSO VARCHAR2, LPNKey NUMBER) RETURN VARCHAR2;
FUNCTION Bepaal_locatiecode(locatie_key IN NUMBER) RETURN VARCHAR2;
FUNCTION cad_getLayerColor(Entry IN VARCHAR2) RETURN NUMBER;
FUNCTION cad_getLayerLinetype(Entry IN VARCHAR2) RETURN VARCHAR2;
FUNCTION cad_getLayerName(Entry IN VARCHAR2) RETURN VARCHAR2;
FUNCTION cad_SLNKSTRUCTreadVALSTR2(Session_Id IN NUMBER, Entry IN VARCHAR2, SeqNr IN NUMBER) RETURN VARCHAR2;
FUNCTION cad_SLNKSTRUCTreadVALINT2(Session_Id IN NUMBER, Entry IN VARCHAR2, SeqNr IN NUMBER) RETURN NUMBER;
/* garandeer dat de functies de database-state en package-state niet beinvloeden
* (anders kunnen ze niet zondermeer in een view worden gebruikt)
@@ -125,7 +134,8 @@ CREATE OR REPLACE PACKAGE cad AS
PRAGMA RESTRICT_REFERENCES (cad_getVerdiepCntr_tekening, WNDS, WNPS);
PRAGMA RESTRICT_REFERENCES (cad_getLocatieCode_Tekening, WNDS, WNPS);
PRAGMA RESTRICT_REFERENCES (cad_getTekeningNaam_LoadDwg, WNDS, WNPS);
END cad;
PRAGMA RESTRICT_REFERENCES (Bepaal_locatiecode, WNDS, WNPS);
END cad;
/
CREATE OR REPLACE PACKAGE BODY cad AS
@@ -535,7 +545,8 @@ CREATE OR REPLACE PACKAGE BODY cad AS
DELETE FROM cad_slnkstruct
WHERE cad_slnkstruct_sessionid = Session_Id
AND cad_slnkstruct_entry <> 'FAC_MODULE'
AND cad_slnkstruct_entry <> 'SYNC';
AND cad_slnkstruct_entry <> 'SYNC'
AND cad_slnkstruct_entry <> 'PROJECTKEY';
COMMIT;
EXCEPTION
WHEN NO_DATA_FOUND THEN