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

Procedure cad_slnkgetBinnenBuiten toegevoegd. Deze procedure schrijft een ENTRY INFOI in cad_slnkstruct waarbij INFOI de waarde 0(=binnen) en 1(=buiten) kan hebben.

Browse Source 
svn path=/Database/trunk/; revision=6663
This commit is contained in:
Bert in het Veld
1999-04-12 14:59:04 +00:00
parent 89509d4bd9
commit 861f4989fd
1 changed files with 11 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
CAD/CAD_PAC.SRC
View File

@@ -3,6 +3,7 @@
/* REVISIONS:
*
* --- 01.43 ---
* 12-04-1999 BIV Procedure cad_SLNKgetBinnenBuiten toegevoegd. Deze bepaalt a.h.v. LoadDwg of binnen of buiten.
* 30-03-1999 BIV Procedure cad_SLNKDelenbijWerkplek.
* 18-03-1999 BIV #2278 - cad_SLNKPostDraw aangepast i.v.m. ins_deelkoppeling.
* 12-03-1999 BIV #2278 - Procedure cad_SLNKPrePostDraw toegevoegd t.b.v. tekenen "vanuit" AutoCAD.
@@ -75,8 +76,7 @@ CREATE OR REPLACE PACKAGE cad AS
PROCEDURE cad_SLNKPrePostDraw(Session_Id NUMBER);
PROCEDURE cad_SLNKDelenbijWerkplek(Session_Id NUMBER);
PROCEDURE cad_getSymboolInfo(Session_Id NUMBER, Entry VARCHAR2);
-- PROCEDURE cad_SLNKgetBinnenBuiten(LoadDwg IN VARCHAR2);
PROCEDURE cad_SLNKgetBinnenBuiten(Session_Id NUMBER, LoadDwg IN VARCHAR2);
/* 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);
@@ -413,9 +413,8 @@ CREATE OR REPLACE PACKAGE BODY cad AS
END;
END cad_getVerdiepCntr_tekening;
/*
PROCEDURE cad_SLNKgetBinnenBuiten(Session_Id IN NUMBER, LoadDwg IN VARCHAR2) IS
-- Bepaal a.h.v. de LoadDwg of het hier gaat om een buitentekening(terreinsector) of binnentekening
/* Bepaal a.h.v. de LoadDwg of het hier gaat om een buitentekening(terreinsector) of binnentekening */
TekeningNaam VARCHAR2(256);
LocatieCode VARCHAR2(5);
LocatieKey NUMBER(10);
@@ -429,19 +428,19 @@ CREATE OR REPLACE PACKAGE BODY cad AS
FROM alg_locatie
WHERE UPPER(alg_locatie_code) = UPPER(LocatieCode);
BEGIN
DECLARE
SELECT alg_verdieping_key INTO Dummy
FROM cad_v_plattegrond
WHERE alg_locatie_key = LocatieKey
AND cad_tekening_filenaam = TekeningNaam;
Plaats := 0;
EXCEPTION
WHEN NO_DATA_FOUND THEN
Plaats := 1;
END;
Plaats := 1;
END;
cad_SLNKSTRUCTinsertVALINT(Session_Id, 'INFOI', 1, Plaats, 1);
cad_SLNKSTRUCTinsertVALSTR(Session_Id, 'SYNC', 1, 'AUTOCAD', 1);
END cad_SLNKgetBinnenBuiten;
*/
PROCEDURE cad_SLNKSTRUCTdelete(Session_Id NUMBER, Entry VARCHAR2) IS
BEGIN