From 21695af29fa212a279146c69dc0117ad0ceed3d4 Mon Sep 17 00:00:00 2001 From: Erik Groener Date: Wed, 25 Aug 1999 06:48:46 +0000 Subject: [PATCH] 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. svn path=/Database/trunk/; revision=7021 --- CAD/CAD_PAC.SRC | 17 ++++++++++++++--- 1 file changed, 14 insertions(+), 3 deletions(-) diff --git a/CAD/CAD_PAC.SRC b/CAD/CAD_PAC.SRC index 2d0479b8..14f2075c 100644 --- a/CAD/CAD_PAC.SRC +++ b/CAD/CAD_PAC.SRC @@ -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