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

LLOg vewijderd.

Browse Source 
svn path=/Database/trunk/; revision=6424
This commit is contained in:
Bert in het Veld
1999-01-12 16:50:18 +00:00
parent f828ebcde6
commit ed73a9cb79
1 changed files with 1 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
CAD/CAD_PAC.SRC
View File

@@ -577,9 +577,7 @@ 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
@@ -606,9 +604,7 @@ CREATE OR REPLACE PACKAGE BODY cad AS
/* 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;
@@ -626,9 +622,7 @@ CREATE OR REPLACE PACKAGE BODY cad AS
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;
@@ -938,8 +932,6 @@ CREATE OR REPLACE PACKAGE BODY cad AS
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'
@@ -960,12 +952,7 @@ CREATE OR REPLACE PACKAGE BODY cad AS
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
@@ -977,8 +964,6 @@ CREATE OR REPLACE PACKAGE BODY cad AS
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