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

Procedure cad_SLNKPredraw aangepast zodat multi_select in het boringen-

Browse Source 
scherm ook goed werk.

svn path=/Database/trunk/; revision=6416
This commit is contained in:
Bert in het Veld
1998-12-24 13:20:22 +00:00
parent 9fb63a0b0c
commit d86882c51b
1 changed files with 22 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
CAD/CAD_PAC.SRC
View File

@@ -521,7 +521,6 @@ CREATE OR REPLACE PACKAGE BODY cad AS
SELECT alg_locatie_key INTO locatie_key SELECT alg_locatie_key INTO locatie_key
FROM alg_v_aanweziglocatie FROM alg_v_aanweziglocatie
WHERE alg_locatie_code = LocCode; WHERE alg_locatie_code = LocCode;
IF LPNName = 'LPN_BIS_BORING' THEN IF LPNName = 'LPN_BIS_BORING' THEN
BEGIN BEGIN
SELECT cad_tekening_filenaam SELECT cad_tekening_filenaam
@@ -769,14 +768,16 @@ CREATE OR REPLACE PACKAGE BODY cad AS
SeqNr NUMBER(10); SeqNr NUMBER(10);
Datum DATE; Datum DATE;
BEGIN BEGIN
LPNName := cad_SLNKSTRUCTreadVALSTR(Session_id, 'LPNALIASINSA'); LPNName := cad_SLNKSTRUCTreadVALSTR(Session_id, 'LPNALIASPREDRAW');
LPNKey := cad_SLNKSTRUCTreadVALINT(Session_id, 'LPNKEYINSA'); LPNKey := cad_SLNKSTRUCTreadVALINT(Session_id, 'LPNKEYPREDRAW');
SeqNr := cad_SLNKSTRUCTreadVALINT(Session_id, 'SEQNR'); SeqNr := cad_SLNKSTRUCTreadVALINT(Session_id, 'SEQNR');
IF SeqNr IS NULL THEN IF SeqNr IS NULL THEN
SeqNr := 1; SeqNr := 1;
END IF; END IF;
IF LPNNAME = 'LPN_BIS_BORING' THEN IF LPNNAME = 'LPN_BIS_BORING' THEN
/* 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);
/* Bepaal of er sprake is van een veld(contour) of van een puntboring */
SELECT bis_veld_key, bis_boring_nummer INTO veld_key, boring_nummer SELECT bis_veld_key, bis_boring_nummer INTO veld_key, boring_nummer
FROM bis_v_aanwezigboring FROM bis_v_aanwezigboring
WHERE bis_boring_key = LPNKey; WHERE bis_boring_key = LPNKey;
@@ -792,7 +793,7 @@ CREATE OR REPLACE PACKAGE BODY cad AS
BEGIN BEGIN
SELECT ins_discipline_key INTO DisciplineKey SELECT ins_discipline_key INTO DisciplineKey
FROM ins_discipline FROM ins_discipline
WHERE ins_discipline_omschrijving = ' '; WHERE ins_discipline_omschrijving = 'Milieu';
EXCEPTION EXCEPTION
WHEN NO_DATA_FOUND THEN WHEN NO_DATA_FOUND THEN
DisciplineKey := NULL; DisciplineKey := NULL;
@@ -825,6 +826,8 @@ CREATE OR REPLACE PACKAGE BODY cad AS
cad.cad_SLNKstructinsertVALSTR(Session_Id,'LABELCOL',SeqNr, 'BIS_BORING_NUMMER', 1); cad.cad_SLNKstructinsertVALSTR(Session_Id,'LABELCOL',SeqNr, 'BIS_BORING_NUMMER', 1);
cad.cad_SLNKstructinsertVALSTR(Session_Id,'LABEL',SeqNr, boring_nummer, 1); cad.cad_SLNKstructinsertVALSTR(Session_Id,'LABEL',SeqNr, boring_nummer, 1);
ELSIF LPNNAME = 'LPN_ALG_TERREINSECTOR' THEN ELSIF LPNNAME = 'LPN_ALG_TERREINSECTOR' THEN
cad.cad_SLNKSTRUCTinsertVALSTR(Session_Id,'LPNALIASINSA', SeqNr, 'LPN_ALG_TERREINSECTOR', 1);
cad.cad_SLNKSTRUCTinsertVALINT(Session_Id,'LPNKEYINSA', SeqNr, LPNKey, 1);
cad.cad_SLNKstructinsertVALINT(Session_Id,'DIMENSION', SeqNr, 2, 1); cad.cad_SLNKstructinsertVALINT(Session_Id,'DIMENSION', SeqNr, 2, 1);
cad.cad_SLNKstructinsertVALSTR(Session_Id,'LAYER', SeqNr, 'SUBLOCATIE', 1); cad.cad_SLNKstructinsertVALSTR(Session_Id,'LAYER', SeqNr, 'SUBLOCATIE', 1);
cad.cad_SLNKstructinsertVALSTR(Session_Id,'LPNCOLINSA', SeqNr, 'ALG_TERREINSECTOR_KEY', 1); cad.cad_SLNKstructinsertVALSTR(Session_Id,'LPNCOLINSA', SeqNr, 'ALG_TERREINSECTOR_KEY', 1);
@@ -843,6 +846,8 @@ CREATE OR REPLACE PACKAGE BODY cad AS
WHERE alg_terreinsector_key = LPNKey; WHERE alg_terreinsector_key = LPNKey;
cad.cad_SLNKstructinsertVALSTR(Session_Id,'LABEL',SeqNr, Subloc_code, 1); cad.cad_SLNKstructinsertVALSTR(Session_Id,'LABEL',SeqNr, Subloc_code, 1);
ELSIF LPNNAME = 'LPN_BIS_PROJECT' THEN ELSIF LPNNAME = 'LPN_BIS_PROJECT' THEN
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_SLNKstructinsertVALINT(Session_Id,'DIMENSION', SeqNr, 2, 1);
cad.cad_SLNKstructinsertVALSTR(Session_Id,'LPNCOLINSA', SeqNr, 'BIS_PROJECT_KEY', 1); cad.cad_SLNKstructinsertVALSTR(Session_Id,'LPNCOLINSA', SeqNr, 'BIS_PROJECT_KEY', 1);
cad.cad_SLNKstructinsertVALSTR(Session_Id,'LABELCOL',SeqNr, 'BIS_PROJECT_NR', 1); cad.cad_SLNKstructinsertVALSTR(Session_Id,'LABELCOL',SeqNr, 'BIS_PROJECT_NR', 1);
@@ -861,6 +866,8 @@ CREATE OR REPLACE PACKAGE BODY cad AS
ProjectNr := SUBSTR(ProjectNr,1,2)||'-'||SUBSTR(ProjectNr,3,6); ProjectNr := SUBSTR(ProjectNr,1,2)||'-'||SUBSTR(ProjectNr,3,6);
cad.cad_SLNKstructinsertVALSTR(Session_Id,'LABEL',SeqNr, ProjectNr, 1); cad.cad_SLNKstructinsertVALSTR(Session_Id,'LABEL',SeqNr, ProjectNr, 1);
ELSIF LPNName = 'LPN_BIS_ONTGRAVINGSVAK' THEN ELSIF LPNName = 'LPN_BIS_ONTGRAVINGSVAK' THEN
cad.cad_SLNKSTRUCTinsertVALSTR(Session_Id,'LPNALIASINSA', SeqNr, 'LPN_BIS_ONTGRAVINGSVAK', 1);
cad.cad_SLNKSTRUCTinsertVALINT(Session_Id,'LPNKEYINSA', SeqNr, LPNKey, 1);
cad.cad_SLNKstructinsertVALINT(Session_Id,'DIMENSION', SeqNr, 2, 1); cad.cad_SLNKstructinsertVALINT(Session_Id,'DIMENSION', SeqNr, 2, 1);
cad.cad_SLNKstructinsertVALSTR(Session_Id,'LAYER', SeqNr, 'ONTGRAVINSVAK', 1); cad.cad_SLNKstructinsertVALSTR(Session_Id,'LAYER', SeqNr, 'ONTGRAVINSVAK', 1);
cad.cad_SLNKstructinsertVALSTR(Session_Id,'LPNCOLINSA', SeqNr, 'BIS_ONTGRAVINGSVAK_KEY', 1); cad.cad_SLNKstructinsertVALSTR(Session_Id,'LPNCOLINSA', SeqNr, 'BIS_ONTGRAVINGSVAK_KEY', 1);
@@ -869,10 +876,19 @@ CREATE OR REPLACE PACKAGE BODY cad AS
FROM bis_ontgravingsvak FROM bis_ontgravingsvak
WHERE bis_ontgravingsvak_key = LPNKey; WHERE bis_ontgravingsvak_key = LPNKey;
cad.cad_SLNKstructinsertVALSTR(Session_Id,'LABEL',SeqNr, Ontgraafvak_naam, 1); cad.cad_SLNKstructinsertVALSTR(Session_Id,'LABEL',SeqNr, Ontgraafvak_naam, 1);
SELECT alg_locatie_key INTO LocatieKey
FROM bis_ontgravingsvak
WHERE bis_ontgravingsvak_key = LPNKey;
SrcDwg := cad_getContourtekening(LocatieKey);
LoadDwg := cad_getPlattegrondtekening(LocatieKey);
AttachDwg1 := SrcDwg;
cad.cad_SLNKstructinsertVALSTR(Session_Id,'SRCDWG', 1, SrcDwg, 1);
cad.cad_SLNKstructinsertVALSTR(Session_Id,'LOADDWG', 1, LoadDwg, 1);
cad.cad_SLNKstructinsertVALSTR(Session_Id,'ATTACHDWG', 1, AttachDwg1, 1);
SELECT bis_ontgravingsvak_diepte INTO Diepte SELECT bis_ontgravingsvak_diepte INTO Diepte
FROM bis_ontgravingsvak FROM bis_ontgravingsvak
WHERE bis_ontgravingsvak_key = LPNKey; WHERE bis_ontgravingsvak_key = LPNKey;
cad.cad_SLNKstructinsertVALINT(Session_Id,'DEPTH', SeqNr, Diepte, 1); cad.cad_SLNKstructinsertVALREAL(Session_Id,'DEPTH', SeqNr, Diepte, 1);
SELECT bis_ontgravingsvak_aanmaak INTO Datum SELECT bis_ontgravingsvak_aanmaak INTO Datum
FROM bis_ontgravingsvak FROM bis_ontgravingsvak
WHERE bis_ontgravingsvak_key = LPNKey; WHERE bis_ontgravingsvak_key = LPNKey;