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

Procedure cad_GetSrcDwgOfEntity2 toegevoegd aangezien de functie cad_GetSrcDwgOfEntity een timeout veroorzaakte in AutoCAD.

Browse Source 
svn path=/Database/trunk/; revision=7002
This commit is contained in:
Bert in het Veld
1999-08-05 08:04:20 +00:00
parent af7ca5a726
commit 1736d0362f
1 changed files with 66 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

67
CAD/CAD_PAC.SRC
View File

@@ -2,6 +2,8 @@
/* REVISIONS:
*
* 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.
* 20-05-1999 BIV Procedure cad_GetSrcDwgOfEntity toegevoegd die source_dwg in cad_slnkstruct zet.
* 19-05-1999 BIV Bepaal_VolgnummerTxt niet meer gebruiken. Hier nu functie fac_f_fac_get_description voor.
@@ -1262,7 +1264,7 @@ FUNCTION Bepaal_VolgnummerTxt(Omschrijving IN VARCHAR2) RETURN VARCHAR2 IS
FUNCTION cad_GetSrcDwgOfEntity(Session_Id NUMBER, LPNAliasINSO VARCHAR2, LPNKey NUMBER) RETURN VARCHAR2 IS
SrcDwg cad_slnkstruct.cad_slnkstruct_valstr%TYPE;
SrcDwg cad_slnkstruct.cad_slnkstruct_valstr%TYPE;
LocatieCode alg_locatie.alg_locatie_code%TYPE;
LocatieKey alg_locatie.alg_locatie_key%TYPE;
VerdiepingKey alg_verdieping.alg_verdieping_key%TYPE;
@@ -1325,6 +1327,69 @@ FUNCTION Bepaal_VolgnummerTxt(Omschrijving IN VARCHAR2) RETURN VARCHAR2 IS
RETURN SrcDwg;
END cad_GetSrcDwgOfEntity;
PROCEDURE cad_GetSrcDwgOfEntity2(Session_Id NUMBER, LPNAliasINSO VARCHAR2, LPNKey NUMBER) IS
SrcDwg cad_slnkstruct.cad_slnkstruct_valstr%TYPE;
LocatieCode alg_locatie.alg_locatie_code%TYPE;
LocatieKey alg_locatie.alg_locatie_key%TYPE;
VerdiepingKey alg_verdieping.alg_verdieping_key%TYPE;
BEGIN
IF LPNAliasINSO = 'LPN_INS_DEEL' THEN
/* Bepaal Disciplinetekening */
SrcDwg := cad_f_deel_get_tekeningnaam(LPNKey);
SELECT ins_alg_locatie_key INTO LocatieKey
FROM ins_deel
WHERE ins_deel_key = LPNKey;
Locatiecode := Bepaal_locatiecode(LocatieKey);
IF SrcDwg IS NOT NULL THEN
SrcDwg := Locatiecode||'\'||SrcDwg;
ELSE
SrcDwg := cad_MaakCadTekening('LPN_INS_DEEL', LPNKey, 'D');
END IF;
ELSIF LPNAliasINSO = 'LPN_ALG_TERREINSECTOR' THEN
SELECT alg_locatie_key INTO Locatiekey
FROM alg_terreinsector
WHERE alg_terreinsector_key = LPNKey;
SrcDwg := cad_getContourtekening(LocatieKey);
IF SrcDwg IS NULL THEN
SrcDwg := cad_MaakCadTekening('LPN_ALG_TERREINSECTOR', LPNKey, 'C');
END IF;
ELSIF LPNAliasINSO = 'LPN_ALG_GEBOUW' THEN
SELECT alg_locatie_key INTO Locatiekey
FROM alg_gebouw
WHERE alg_gebouw_key = LPNKey;
SrcDwg := cad_getContourtekening(LocatieKey);
IF SrcDwg IS NULL THEN
SrcDwg := cad_MaakCadTekening('LPN_ALG_GEBOUW', LPNKey, 'C');
END IF;
ELSIF LPNAliasINSO = 'LPN_ALG_RUIMTE' THEN
SELECT alg_locatie_key, alg_verdieping_key
INTO locatiekey, verdiepingkey
FROM alg_v_ruimte_gegevens
WHERE alg_ruimte_key = LPNKey;
SrcDwg := cad_getVerdiepCntr_tekening(Locatiekey, Verdiepingkey);
IF SrcDwg IS NULL THEN
SrcDwg := cad_MaakCadTekening('LPN_ALG_RUIMTE', LPNKey, 'C');
END IF;
ELSIF LPNAliasINSO = 'LPN_PRS_WERKPLEK' THEN
SELECT alg_locatie_key, alg_verdieping_key
INTO Locatiekey, Verdiepingkey
FROM alg_v_ruimte_gegevens
WHERE alg_ruimte_key =
(SELECT prs_alg_ruimte_key FROM prs_werkplek
WHERE prs_werkplek_key = LPNKey);
SrcDwg := cad_getVerdiepCntr_tekening(LocatieKey, Verdiepingkey); /* Contourtekening verdieping */
IF SrcDwg IS NULL THEN
SrcDwg := cad_MaakCadTekening('LPN_PRS_WERKPLEK', LPNKey, 'C');
END IF;
ELSE
/* Komt hier in de toekomst een ERROR-melding ? */
NULL;
END IF;
cad_SLNKSTRUCTinsertVALSTR(Session_Id, 'INFOS', 1, srcdwg, 1);
cad_SLNKSTRUCTinsertVALSTR(Session_Id, 'SYNC', 1, 'AUTOCAD', 1);
END cad_GetSrcDwgOfEntity2;
PROCEDURE cad_SLNKPreDraw(Session_Id NUMBER) IS
LPNName cad_slnkstruct.cad_slnkstruct_valstr%TYPE;