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

Kleine aanpassing in ...Predraw (zie testrapport 98.sf20xxx/mb - #5010).

Browse Source 
svn path=/Database/trunk/; revision=6417
This commit is contained in:
Bert in het Veld
1999-01-07 10:19:50 +00:00
parent d86882c51b
commit 51a6dcdd60
1 changed files with 12 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
CAD/CAD_PAC.SRC
View File

@@ -705,13 +705,15 @@ CREATE OR REPLACE PACKAGE BODY cad AS
Datum DATE;
BEGIN
/* Bepaal of er sprake is van een veld(contour) of van een puntboring */
LPNName := cad_SLNKSTRUCTreadVALSTR(Session_id, 'LPNALIASINSA');
LPNKey := cad_SLNKSTRUCTreadVALINT(Session_id, 'LPNKEYINSA');
LPNName := cad_SLNKSTRUCTreadVALSTR(Session_id, 'LPNALIASPREDRAW');
LPNKey := cad_SLNKSTRUCTreadVALINT(Session_id, 'LPNKEYPREDRAW');
SeqNr := cad_SLNKSTRUCTreadVALINT(Session_id, 'SEQNR');
IF SeqNr IS NULL THEN
SeqNr := 1;
END IF;
/* Bepaal of er sprake is van een veld(contour) of van een puntboring */
cad.cad_SLNKSTRUCTinsertVALSTR(Session_Id,'LPNALIASINSA', SeqNr, 'LPN_BIS_BORING', 1);
cad.cad_SLNKSTRUCTinsertVALINT(Session_Id,'LPNKEYINSA', SeqNr, LPNKey, 1);
SELECT bis_veld_key, bis_boring_nummer INTO veld_key, boring_nummer
FROM bis_v_aanwezigboring
WHERE bis_boring_key = LPNKey;
@@ -811,8 +813,8 @@ CREATE OR REPLACE PACKAGE BODY cad AS
/* Zoek juiste boringsymbool bij Boringnummer */
Boring_Symbol := cad_GETBoringSymbolName(LPNKey);
cad.cad_SLNKstructinsertVALSTR(Session_Id,'BLOCK', SeqNr, Boring_Symbol, 1);
cad.cad_SLNKstructinsertVALSTR(Session_Id,'LAYER', SeqNr, 'BORING', 1);
END IF;
cad.cad_SLNKstructinsertVALSTR(Session_Id,'LAYER', SeqNr, 'BORING', 1);
cad.cad_SLNKstructinsertVALSTR(Session_Id,'LPNCOLINSA', SeqNr, 'BIS_BORING_KEY', 1);
cad.cad_SLNKstructinsertVALSTR(Session_Id,'LPNALIASCONDA', SeqNr, 'LPN_ALG_TERREINSECTOR', 1);
cad.cad_SLNKstructinsertVALSTR(Session_Id,'LPNCOLCONDA', SeqNr, 'ALG_TERREINSECTOR_KEY', 1);
@@ -849,6 +851,7 @@ CREATE OR REPLACE PACKAGE BODY cad AS
cad.cad_SLNKSTRUCTinsertVALSTR(Session_Id,'LPNALIASINSA', SeqNr, 'LPN_BIS_PROJECT', 1);
cad.cad_SLNKSTRUCTinsertVALINT(Session_Id,'LPNKEYINSA', SeqNr, LPNKey, 1);
cad.cad_SLNKstructinsertVALINT(Session_Id,'DIMENSION', SeqNr, 2, 1);
cad.cad_SLNKstructinsertVALSTR(Session_Id,'LAYER', SeqNr, 'PROJECT', 1);
cad.cad_SLNKstructinsertVALSTR(Session_Id,'LPNCOLINSA', SeqNr, 'BIS_PROJECT_KEY', 1);
cad.cad_SLNKstructinsertVALSTR(Session_Id,'LABELCOL',SeqNr, 'BIS_PROJECT_NR', 1);
SELECT alg_locatie_key INTO Locatiekey
@@ -999,6 +1002,11 @@ CREATE OR REPLACE PACKAGE BODY cad AS
cad_SLNKSTRUCTinsertVALSTR(Session_Id, 'LPNALIASDELA', 1,'LPN_BIS_BORING', 0);
cad_SLNKSTRUCTinsertVALINT(Session_Id, 'LPNKEYDELA', 1, BoringRec.bis_boring_key, 0);
END IF;
/* Sublocatie grafisch verwijderd zet getekend veld van de boring op 'FALSE' */
UPDATE bis_boring
SET bis_boring_getekend = 'FALSE'
WHERE bis_boring_key = BoringRec.bis_boring_key;
COMMIT;
END LOOP;
END;
END;