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

Procedures SetKenmerkWaarde en GetKenmerkwaarde toegevoegd.

Browse Source 
svn path=/Database/trunk/; revision=7007
This commit is contained in:
Bert in het Veld
1999-08-16 10:57:28 +00:00
parent 8428969354
commit 2ca7fd0977
1 changed files with 18 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
CAD/CAD_PAC.SRC
View File

@@ -2,6 +2,7 @@
/* REVISIONS:
*
* 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).
* 02-06-1999 BIV Aantal argumenten functie fac_f_fac_get_description is gewijzigd de div. aanroepen ook aangepast.
@@ -93,6 +94,8 @@ CREATE OR REPLACE PACKAGE cad AS
PROCEDURE cad_getSymboolInfo(Session_Id NUMBER, Entry VARCHAR2);
PROCEDURE cad_SLNKgetBinnenBuiten(Session_Id NUMBER, LoadDwg VARCHAR2);
PROCEDURE cad_GetSrcDwgOfEntity2(Session_Id NUMBER, LPNAliasINSO VARCHAR2, LPNKey NUMBER);
PROCEDURE cad_SetKenmerkWaarde(DeelKey IN NUMBER, KenmerkKey IN NUMBER, KenmerkWaarde IN VARCHAR2);
PROCEDURE cad_GetKenmerkWaarde(Session_Id IN NUMBER, DeelKey IN NUMBER, KenmerkKey IN NUMBER);
/* Deze procedure is slechts eenmaal gebruikt t.b.v. grafische conversie BIS ...
* PROCEDURE cad_SLNKConvPreDraw(Session_Id NUMBER, LOC_X_COORD NUMBER, LOC_Y_COORD NUMBER);
@@ -3279,6 +3282,21 @@ FUNCTION Bepaal_VolgnummerTxt(Omschrijving IN VARCHAR2) RETURN VARCHAR2 IS
END;
cad_SLNKSTRUCTinsertVALSTR(Session_Id, 'SYNC', 1, 'AUTOCAD', 1);
END cad_getSymboolInfo;
PROCEDURE cad_SetKenmerkWaarde(DeelKey IN NUMBER, KenmerkKey IN NUMBER, KenmerkWaarde IN VARCHAR2) IS
BEGIN
WriteKenmerkWaarde(DeelKey, KenmerkKey, KenmerkWaarde);
END cad_GetKenmerkWaarde;
PROCEDURE Cad_GetKenmerkWaarde(Session_Id IN NUMBER, DeelKey IN NUMBER, KenmerkKey IN NUMBER) IS
KenmerkWaarde ins_kenmerkdeel.ins_kenmerkdeel_waarde%TYPE;
BEGIN
KenmerkWaarde := ReadKenmerkWaarde(DeelKey, KenmerkKey);
cad_SLNKSTRUCTinsertVALSTR(Session_Id, 'INFOS', 1, KenmerkWaarde, 1);
cad_SLNKSTRUCTinsertVALSTR(Session_Id, 'SYNC', 1, 'AUTOCAD', 1);
END cad_GetKenmerkWaarde;
END cad;
/