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

cad_SLNKSTRUCTclear opgenomen in ...prepostdraw i.o.v. MB.

Browse Source 
svn path=/Database/trunk/; revision=6636
This commit is contained in:
Bert in het Veld
1999-03-29 15:05:26 +00:00
parent fa85a61128
commit 04082fcbee
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
CAD/CAD_PAC.SRC
View File

@@ -3,7 +3,7 @@
/* REVISIONS:
*
* --- 01.43 ---
* 18-03-1999 BIV #2278 - cad_SLNKPreDraw aangepast i.v.m. ins_deelkoppeling.
* 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.
* 11-03-1999 BIV #2278 - Procedures cad_slnkPredraw,cad_SLNKModify,cad_SLNKPostErase, cad_SLNKPostDraw uitgebreid
* i.v.m. LPN_PRS_WERKPLEK t.b.v. Facilitor 3.
@@ -1173,7 +1173,6 @@ CREATE OR REPLACE PACKAGE BODY cad AS
IF SeqNr IS NULL THEN
SeqNr := 1;
END IF;
cad_SLNKSTRUCTclear(Session_Id);
IF LPNName = 'LPN_INS_DEEL' THEN
cad.cad_SLNKSTRUCTinsertVALSTR(Session_Id,'LPNALIASINSA', SeqNr, 'LPN_INS_DEEL', 1);
cad.cad_SLNKSTRUCTinsertVALINT(Session_Id,'LPNKEYINSA', SeqNr, LPNKey, 1);
@@ -1669,6 +1668,7 @@ CREATE OR REPLACE PACKAGE BODY cad AS
END;
END IF;
END IF;
cad_SLNKSTRUCTclear(Session_Id);
IF RecordAdded THEN
cad_SLNKSTRUCTinsertVALSTR(Session_Id,'LPNALIASPREDRAW', 1, LPNName, 1);
cad_SLNKSTRUCTinsertVALINT(Session_Id,'LPNKEYPREDRAW', 1, LPNKey, 1);
@@ -1741,6 +1741,7 @@ CREATE OR REPLACE PACKAGE BODY cad AS
/* Onbekend object... */
NULL;
END;
cad_SLNKSTRUCTclear(Session_Id);
IF RecordAdded THEN
cad_SLNKSTRUCTinsertVALSTR(Session_Id,'LPNALIASPREDRAW', 1, LPNName, 1);
cad_SLNKSTRUCTinsertVALINT(Session_Id,'LPNKEYPREDRAW', 1, LPNKey, 1);
@@ -1965,6 +1966,7 @@ CREATE OR REPLACE PACKAGE BODY cad AS
END IF;
END IF;
END IF;
cad_SLNKSTRUCTclear(Session_Id);
IF RecordAdded THEN
cad_SLNKSTRUCTinsertVALSTR(Session_Id,'LPNALIASPREDRAW', 1, LPNName, 1);
cad_SLNKSTRUCTinsertVALINT(Session_Id,'LPNKEYPREDRAW', 1, LPNKey, 1);