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

Kleine wijziging in KILL-trajecten.

Browse Source 
svn path=/Database/trunk/; revision=6423
This commit is contained in:
Bert in het Veld
1999-01-12 15:52:10 +00:00
parent 57e2e57cb1
commit f828ebcde6
1 changed files with 32 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

48
CAD/CAD_PAC.SRC
View File

@@ -566,7 +566,7 @@ CREATE OR REPLACE PACKAGE BODY cad AS
SELECT BIS_BT1.bis_boring_key, BIS_BT1.bis_traject_key
FROM cad_slnkstruct CAD_S, bis_v_boring_trajecten BIS_BT1
WHERE CAD_S.cad_slnkstruct_sessionid = Session_Id
AND CAD_S.cad_slnkstruct_entry = 'LPNKEYMODO'
AND CAD_S.cad_slnkstruct_entry = 'LPNKEYDELO'
AND CAD_S.cad_slnkstruct_valint = BIS_BT1.bis_boring_key
AND (BIS_BT1.bis_boring_key, BIS_BT1.bis_traject_einddiepte) IN
(SELECT MAX(BIS_BT2.bis_boring_key), MAX(BIS_BT2.bis_traject_einddiepte)
@@ -577,7 +577,9 @@ CREATE OR REPLACE PACKAGE BODY cad AS
/* Als Diepte > einddiepte laatste traject v/e boring -> verwijder hele boring */
BEGIN
Eerste := TRUE;
INSERT INTO llog(log_omschrijving) values ('Als Diepte > einddiepte laatste traject v/e boring -> verwijder hele boring.');
FOR TrajectRec IN EindTrajectGroter LOOP
INSERT INTO llog(log_omschrijving) values('Boringkey : '||TO_CHAR(TrajectRec.bis_boring_key));
UPDATE bis_boring
SET bis_boring_verwijderdatum = Datum
WHERE bis_boring_key = TrajectRec.bis_boring_key
@@ -598,13 +600,15 @@ CREATE OR REPLACE PACKAGE BODY cad AS
SELECT CAD_S.cad_slnkstruct_valint, bis_traject_key
FROM cad_slnkstruct CAD_S, bis_v_boring_trajecten BIS_BT
WHERE CAD_S.cad_slnkstruct_sessionid = Session_Id
AND CAD_S.cad_slnkstruct_entry = 'LPNKEYMODO'
AND CAD_S.cad_slnkstruct_entry = 'LPNKEYDELO'
AND CAD_S.cad_slnkstruct_valint = BIS_BT.bis_boring_key
AND BIS_BT.bis_traject_begindiepte < Diepte;
/* Hele traject valt binnen het ontgravingsvak */
BEGIN
INSERT INTO llog(log_omschrijving) values ('Hele traject valt binnen het ontgravingsvak.');
FOR TrajectRec IN TrajectKleinerDiepte LOOP
INSERT INTO llog(log_omschrijving) values('Trajectkey : '||TO_CHAR(TrajectRec.bis_traject_key));
UPDATE bis_traject
SET bis_traject_einddatum = Datum
WHERE bis_traject_key = TrajectRec.bis_traject_key;
@@ -616,13 +620,15 @@ CREATE OR REPLACE PACKAGE BODY cad AS
SELECT CAD_S.cad_slnkstruct_valint, BIS_BT.bis_traject_key
FROM cad_slnkstruct CAD_S, bis_v_boring_trajecten BIS_BT
WHERE CAD_S.cad_slnkstruct_sessionid = Session_Id
AND CAD_S.cad_slnkstruct_entry = 'LPNKEYMODO'
AND CAD_S.cad_slnkstruct_entry = 'LPNKEYDELO'
AND CAD_S.cad_slnkstruct_valint = BIS_BT.bis_boring_key
AND BIS_BT.bis_traject_begindiepte < Diepte
AND BIS_BT.bis_traject_einddiepte > Diepte;
/* Het traject valt gedeeltelijk binnen het ontgravingsvak */
BEGIN
INSERT INTO llog(log_omschrijving) values ('Het traject valt gedeeltelijk binnen het ontgravingsvak');
FOR TrajectRec IN TrajectOverlap LOOP
INSERT INTO llog(log_omschrijving) values ('Trajectkey : '||TO_CHAR(TrajectRec.bis_traject_key);
UPDATE bis_traject
SET bis_traject_begindiepte = Diepte
WHERE bis_traject_key = TrajectRec.bis_traject_key;
@@ -927,11 +933,13 @@ CREATE OR REPLACE PACKAGE BODY cad AS
VeldKey NUMBER(10);
Oppervlak NUMBER(13,3);
Diepte NUMBER(8,2);
Volume NUMBER(8,2);
Volume NUMBER(12,4);
Datum DATE;
BEGIN
LPNName := cad_SLNKSTRUCTreadVALSTR(Session_id, 'LPNALIASINSO');
LPNKey := cad_SLNKSTRUCTreadVALINT(Session_id, 'LPNKEYINSO');
INSERT INTO LLOG(log_omschrijving) VALUES (LPNName);
COMMIT;
IF LPNName = 'LPN_BIS_BORING' THEN
UPDATE bis_boring
SET bis_boring_getekend = 'TRUE'
@@ -947,28 +955,36 @@ CREATE OR REPLACE PACKAGE BODY cad AS
SET bis_veld_oppervlakte = Oppervlak
WHERE bis_veld_key = Veldkey;
END IF;
ELSIF LPNName = 'LPN_BIS_ONTGRAVINGSVAK' THEN
Oppervlak := cad_SLNKSTRUCTreadVALREAL(Session_id, 'AREA');
Diepte:= cad_SLNKSTRUCTreadVALREAL(Session_id, 'DEPTH');
Volume := Oppervlak * Diepte;
Datum := TO_DATE(cad_SLNKSTRUCTreadVALSTR(Session_id, 'DATE'), 'DD-MM-YYYY');
INSERT INTO llog(log_omschrijving) VALUES ('LPNKey : '||TO_CHAR(LPNKey));
INSERT INTO llog(log_omschrijving) VALUES ('Oppervlak : '||TO_CHAR(Oppervlak));
INSERT INTO llog(log_omschrijving) VALUES ('Diepte : '||TO_CHAR(Diepte));
INSERT INTO llog(log_omschrijving) VALUES ('Volume : '||TO_CHAR(Volume));
INSERT INTO llog(log_omschrijving) VALUES ('Datum : '||TO_CHAR(Datum));
COMMIT;
UPDATE bis_ontgravingsvak
SET bis_ontgravingsvak_volume = Volume,
bis_ontgravingsvak_diepte = Diepte
WHERE bis_ontgravingsvak_key = LPNKey;
/* "Onthoofden" van trajecten */
cad_KILLtrajecten(Session_Id, Diepte, Datum);
ELSIF LPNName = 'LPN_ALG_TERREINSECTOR' THEN
Oppervlak := cad_SLNKSTRUCTreadVALREAL(Session_id, 'AREA');
UPDATE alg_terreinsector
SET alg_terreinsector_oppervlak = Oppervlak
WHERE alg_terreinsector_key = LPNKey;
INSERT INTO LLOG(log_omschrijving) VALUES ('LPN_ALG_TERREINSECTOR');
COMMIT;
ELSIF LPNName = 'LPN_BIS_PROJECT' THEN
Oppervlak := cad_SLNKSTRUCTreadVALREAL(Session_id, 'AREA');
UPDATE bis_project
SET bis_project_oppervlakte = Oppervlak
WHERE bis_project_key = LPNKey;
ELSIF LPNName = 'LPN_BIS_ONTGRAVINGSVAK' THEN
Oppervlak := cad_SLNKSTRUCTreadVALREAL(Session_id, 'AREA');
Diepte:= cad_SLNKSTRUCTreadVALREAL(Session_id, 'DEPTH');
Volume := Oppervlak * Diepte;
Datum := TO_DATE(cad_SLNKSTRUCTreadVALSTR(Session_id, 'DATE'), 'DD-MM-YYYY');
UPDATE bis_ontgravingsvak
SET bis_ontgravingsvak_volume = Volume,
bis_ontgravingsvak_diepte = Diepte
WHERE bis_ontgravingsvak_key = LPNKey;
/* "Onthoofden" van trajecten */
cad_KILLtrajecten(Session_Id, Diepte, Datum);
END IF;
cad_SLNKSTRUCTinsertVALSTR(Session_Id, 'SYNC', 1, 'AUTOCAD', 1); /* ORACLE is klaar */
END cad_SLNKpostdraw;
@@ -1056,7 +1072,7 @@ CREATE OR REPLACE PACKAGE BODY cad AS
VeldKey NUMBER(10);
Oppervlak NUMBER(13,3);
Diepte NUMBER(8,2);
Volume NUMBER(8,2);
Volume NUMBER(12,4);
Datum DATE;
BEGIN
LPNName := cad_SLNKSTRUCTreadVALSTR(Session_id, 'LPNALIASMODO');