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

cad_getverhuistekening gebruikte verkeerde variable, en testlogmeldingen verwijderd.

Browse Source 
svn path=/Database/trunk/; revision=7227
This commit is contained in:
Erik Groener
1999-11-04 06:50:38 +00:00
parent 27787fbb0e
commit d214bf2b0a
1 changed files with 3 additions and 180 deletions
Download Patch File Download Diff File Expand all files Collapse all files

183
PRJ/PRJ_PAC.SRC
View File

@@ -4,6 +4,7 @@
**
** REVISIONS:
**
** 04-11-1999 EGR cad_getverhuistekening gebruikte verkeerde variable, en testlogmeldingen verwijderd.
** 15-10-1999 EGR In verwerk_project_gewijzigd de omschrijving van ruimte niet aanpassen.
** Bij nieuwe of verplaatste werkplek alleen in prj-omgeving kijken voor de omschrijving.
** Lengte van omschrijvingen overal in substr gezet.
@@ -322,30 +323,7 @@ CREATE OR REPLACE PACKAGE BODY prj AS
WHERE prs_alg_ruimte_key = CondKey
AND prj_project_key = ProjectKey
AND prs_werkplek_verwijder IS NULL;
-- /* Kijk of in de gewone tekening een werkplek voorkomt met een hoger nummer. */
-- SELECT TO_CHAR(NVL(MAX(prs_werkplek_volgnr),0) +1)
-- INTO NextVolgNr2
-- FROM prs_werkplek
-- WHERE prs_alg_ruimte_key = CondKey
-- AND prs_werkplek_verwijder IS NULL;
-- /* Neem de hoogste waarde van beide volgnummers. */
-- IF ((NextVolgNr1 IS NULL) AND (NextVolgNr2 IS NULL))
-- THEN
-- NextVolgNr := '1';
-- ELSIF ((NextVolgNr1 IS NULL) AND (NextVolgNr2 IS NOT NULL))
-- THEN
-- NextVolgNr := NextVolgNr2;
-- ELSIF ((NextVolgNr2 IS NULL) AND (NextVolgNr1 IS NOT NULL))
-- THEN
NextVolgNr := NextVolgNr1;
-- ELSE
-- IF TO_NUMBER(NextVolgNr1) > TO_NUMBER(NextVolgNr2)
-- THEN
-- NextVolgNr := NextVolgNr1;
-- ELSE
-- NextVolgNr := NextVolgNr2;
-- END IF;
-- END IF;
NextVolgNr := NextVolgNr1;
EXCEPTION
WHEN NO_DATA_FOUND
THEN NextVolgNr := '1';
@@ -464,15 +442,9 @@ CREATE OR REPLACE PACKAGE BODY prj AS
verdieping_key NUMBER(10);
discipline_key NUMBER(10);
BEGIN
--prj_err.err('> cad_f_deel_get_tekeningnaam');
locatie_key := prj.cad_f_deel_get_locatie(p_project,p_deel);
verdieping_key := prj.cad_f_deel_get_verdieping(p_project,p_deel);
discipline_key := prj.cad_f_deel_get_discipline(p_project,p_deel);
--prj_err.err('project_key ='||to_char(p_project));
--prj_err.err('deel_key ='||to_char(p_deel));
--prj_err.err('locatie_key ='||to_char(locatie_key));
--prj_err.err('verdieping_key='||to_char(verdieping_key));
--prj_err.err('discipline_key='||to_char(discipline_key));
IF (locatie_key IS NOT NULL AND
discipline_key IS NOT NULL)
THEN
@@ -514,8 +486,6 @@ CREATE OR REPLACE PACKAGE BODY prj AS
ELSE
tekeningnaam := NULL;
END IF;
--prj_err.err('tekeningnaam='||tekeningnaam);
--prj_err.err('< cad_f_deel_get_tekeningnaam');
RETURN tekeningnaam;
END cad_f_deel_get_tekeningnaam;
@@ -607,7 +577,6 @@ CREATE OR REPLACE PACKAGE BODY prj AS
,Verdiepingkey IN NUMBER
,Disciplinekey IN NUMBER) RETURN VARCHAR2 IS
project_code VARCHAR2(8);
tekening VARCHAR2(256);
disciplinetekening VARCHAR2(256);
BEGIN
BEGIN
@@ -633,7 +602,6 @@ CREATE OR REPLACE PACKAGE BODY prj AS
FUNCTION cad_getPlattegrondtekening(Locatiekey IN NUMBER
,Projectkey IN NUMBER) RETURN VARCHAR2 IS
project_code VARCHAR2(8);
tekening VARCHAR2(256);
plattegrondtekening VARCHAR2(256);
BEGIN
BEGIN
@@ -659,7 +627,6 @@ CREATE OR REPLACE PACKAGE BODY prj AS
,Projectkey IN NUMBER
,Verdiepingkey IN NUMBER) RETURN VARCHAR2 IS
project_code VARCHAR2(8);
tekening VARCHAR2(256);
Plattegrondtekening VARCHAR2(256);
BEGIN
BEGIN
@@ -684,7 +651,6 @@ CREATE OR REPLACE PACKAGE BODY prj AS
FUNCTION cad_getContourtekening(Locatiekey IN NUMBER
,Projectkey IN NUMBER) RETURN VARCHAR2 IS
project_code VARCHAR2(8);
tekening VARCHAR2(256);
contourtekening VARCHAR2(256);
BEGIN
BEGIN
@@ -710,7 +676,6 @@ CREATE OR REPLACE PACKAGE BODY prj AS
,Projectkey IN NUMBER
,Verdiepingkey IN NUMBER) RETURN VARCHAR2 IS
project_code VARCHAR2(8);
tekening VARCHAR2(256);
contourtekening VARCHAR2(256);
BEGIN
BEGIN
@@ -734,13 +699,12 @@ CREATE OR REPLACE PACKAGE BODY prj AS
*/
FUNCTION cad_getVerhuisTekening(Projectkey IN NUMBER) RETURN VARCHAR2 IS
project_code VARCHAR2(8);
tekening VARCHAR2(256);
verhuistekening VARCHAR2(256);
BEGIN
BEGIN
project_code := prj.bepaal_projectcode(Projectkey);
SELECT substr(project_code ||'\'|| cad_tekening_filenaam,1,256)
INTO tekening
INTO verhuistekening
FROM prj_v_verhuis
WHERE prj_project_key = Projectkey;
EXCEPTION
@@ -820,7 +784,6 @@ CREATE OR REPLACE PACKAGE BODY prj AS
Dummy NUMBER(10);
ReturnVal BOOLEAN;
BEGIN
--prj_err.err('> CheckLPNCondKey');
IF LPNCondName = 'LPN_ALG_TERREINSECTOR'
THEN
BEGIN
@@ -882,7 +845,6 @@ CREATE OR REPLACE PACKAGE BODY prj AS
ELSE
ReturnVal := FALSE;
END IF;
--prj_err.err('< CheckLPNCondKey');
RETURN ReturnVal;
END CheckLPNCondKey;
@@ -906,7 +868,6 @@ CREATE OR REPLACE PACKAGE BODY prj AS
LabelSymbool VARCHAR2(256);
LabelOK BOOLEAN;
BEGIN
--prj_err.err('> AddDeel');
BEGIN
SELECT prj_project_locatie_key
, prj_project_nr
@@ -1006,7 +967,6 @@ CREATE OR REPLACE PACKAGE BODY prj AS
WHEN NO_DATA_FOUND
THEN LPNKey := NULL;
END;
--prj_err.err('< AddDeel');
RETURN LPNKey;
END AddDeel;
@@ -1120,11 +1080,9 @@ CREATE OR REPLACE PACKAGE BODY prj AS
,LPNKeyINSO IN NUMBER) IS
SrcDwg cad_slnkstruct.cad_slnkstruct_valstr%TYPE;
BEGIN
--prj_err.err('> cad_GetSrcDwgOfEntity2');
SrcDwg := prj.cad_GetSrcDwgOfEntity(Session_Id,LPNAliasINSO,LPNKeyINSO);
cad.cad_SLNKSTRUCTinsertVALSTR(Session_Id, 'INFOS', 1, srcdwg , 1);
cad.cad_SLNKSTRUCTinsertVALSTR(Session_Id, 'SYNC' , 1, 'AUTOCAD', 1);
--prj_err.err('< cad_GetSrcDwgOfEntity2');
END cad_GetSrcDwgOfEntity2;
/* prj.cad_SLNKPreDraw
@@ -1164,7 +1122,6 @@ CREATE OR REPLACE PACKAGE BODY prj AS
Omschrijving VARCHAR2(30);
SrtTekening VARCHAR2(20);
BEGIN
--prj_err.err('> cad_SLNKPreDraw');
LPNName := cad.cad_SLNKSTRUCTreadVALSTR(Session_id, 'LPNALIASPREDRAW');
LPNKey := cad.cad_SLNKSTRUCTreadVALINT(Session_id, 'LPNKEYPREDRAW');
SeqNr := cad.cad_SLNKSTRUCTreadVALINT(Session_id, 'SEQNR');
@@ -1175,17 +1132,14 @@ CREATE OR REPLACE PACKAGE BODY prj AS
END IF;
IF LPNName = 'LPN_INS_DEEL'
THEN
--prj_err.err('LPN_INS_DEEL');
cad.cad_SLNKSTRUCTinsertVALSTR(Session_Id,'LPNALIASINSA', SeqNr, 'LPN_INS_DEEL', 1);
cad.cad_SLNKSTRUCTinsertVALINT(Session_Id,'LPNKEYINSA' , SeqNr, LPNKey , 1);
--prj_err.err('Bepaal soortdeelkey');
/* Bepaal soortdeelkey */
SELECT ins_srtdeel_key
INTO SrtdeelKey
FROM prj_deel
WHERE ins_deel_key = LPNKey
AND prj_project_key = LPNProjectKey;
--prj_err.err('Lees de grafische gegevens');
/* Lees de grafische gegevens uit tabel ins_srtdeel */
SELECT ins_srtdeel_cadlaycolor
, ins_srtdeel_cadlaylinetype
@@ -1201,7 +1155,6 @@ CREATE OR REPLACE PACKAGE BODY prj AS
, Dimensie
FROM ins_srtdeel
WHERE ins_srtdeel_key = SrtdeelKey;
--prj_err.err('schrijf de grafische gegevens');
cad.cad_SLNKSTRUCTinsertVALINT(Session_Id,'DIMENSION' , SeqNr, Dimensie , 1);
cad.cad_SLNKstructinsertVALSTR(Session_Id,'LPNCOLINSA' , SeqNr, 'INS_DEEL_KEY', 1);
cad.cad_SLNKstructinsertVALINT(Session_Id,'LAYERCOLOR' , SeqNr, LayerColor , 1);
@@ -1218,7 +1171,6 @@ CREATE OR REPLACE PACKAGE BODY prj AS
FROM prj_deel
WHERE ins_deel_key = LPNKey
AND prj_project_key = LPNProjectKey;
--prj_err.err('Plaatsdeel, keydeel='|| plaatsdeel ||','|| to_char(keydeel));
IF PlaatsDeel = 'T'
THEN /* Terreinsector */
cad.cad_SLNKstructinsertVALSTR(Session_Id,'LPNALIASCONDA', SeqNr, 'LPN_ALG_TERREINSECTOR', 1);
@@ -1237,7 +1189,6 @@ CREATE OR REPLACE PACKAGE BODY prj AS
ELSE
LPNKeyCond := KeyDeel;
END IF;
--prj_err.err('lpnkeycond='||to_char(keydeel));
cad.cad_SLNKstructinsertVALINT(Session_Id,'LPNKEYCONDA', SeqNr, LPNKeyCond, 1);
SELECT ins_alg_locatie_key
INTO LocatieKey
@@ -1246,9 +1197,7 @@ CREATE OR REPLACE PACKAGE BODY prj AS
AND prj_project_key = LPNProjectKey;
Locatiecode := cad.bepaal_locatiecode(LocatieKey);
ProjectCode := prj.bepaal_projectcode(LPNProjectKey);
--prj_err.err('code locatie,project:'||locatiecode||projectcode);
SrcDwg := prj.cad_GetSrcDwgOfEntity(Session_Id, 'LPN_INS_DEEL', LPNKey);
--prj_err.err('srcdwg='||srcdwg);
/* Bepaal LoadDwg */
IF PlaatsDeel = 'T'
THEN /* Terreinsector */
@@ -1261,11 +1210,6 @@ CREATE OR REPLACE PACKAGE BODY prj AS
AND prj_project_key = LPNProjectKey;
LoadDwg := prj.cad_getVerdiepPlgrnd_tekening(LocatieKey, LPNProjectKey, Verdiepingkey);
END IF;
--prj_err.err('loaddwg='||loaddwg);
-- IF LoadDwg IS NULL
-- THEN
-- LoadDwg := cad_MaakCadTekening('LPN_INS_DEEL', LPNKey, 'P', LPNProjectKey);
-- END IF;
/* Bepaal Attachdwg's */
IF PlaatsDeel = 'T'
THEN /* Terreinsector */
@@ -1275,20 +1219,13 @@ CREATE OR REPLACE PACKAGE BODY prj AS
/* Contourtekening verdieping */
AttachDwg1 := prj.cad_getVerdiepCntr_tekening(LocatieKey, LPNProjectKey,Verdiepingkey);
END IF;
--prj_err.err('attatchdwg='||attachdwg1);
-- IF AttachDwg1 IS NULL
-- THEN
-- AttachDwg1 := cad_MaakCadTekening('LPN_INS_DEEL', LPNKey, 'C', LPNProjectKey);
-- END IF;
AttachDwg2 := SrcDwg;
cad.cad_SLNKstructinsertVALSTR(Session_Id,'SRCDWG' , SeqNr, SrcDwg , 1);
cad.cad_SLNKstructinsertVALSTR(Session_Id,'LOADDWG' , SeqNr, LoadDwg , 1);
cad.cad_SLNKstructinsertVALSTR(Session_Id,'ATTACHDWG', SeqNr, AttachDwg1, 1);
cad.cad_SLNKstructinsertVALSTR(Session_Id,'ATTACHDWG', SeqNr, Attachdwg2, 0);
--prj_err.err('voor plaatsdee=T');
IF PlaatsDeel = 'T'
THEN
--prj_err.err('Voeg tekeningen zonder verdieping in struct toe.');
DECLARE
CURSOR D_tekeningen IS
SELECT cad_tekening_filenaam
@@ -1300,7 +1237,6 @@ CREATE OR REPLACE PACKAGE BODY prj AS
BEGIN
FOR TekenRec IN D_tekeningen
LOOP
--prj_err.err('- '||ProjectCode ||'\'|| Tekenrec.cad_tekening_filenaam);
cad.cad_SLNKstructinsertVALSTR(Session_Id
,'ATTACHDWG'
,SeqNr
@@ -1309,7 +1245,6 @@ CREATE OR REPLACE PACKAGE BODY prj AS
END LOOP;
END;
ELSE
--prj_err.err('Voeg tekeningen met verdieping in struct toe.');
DECLARE
CURSOR D_tekeningen IS
SELECT cad_tekening_filenaam
@@ -1321,7 +1256,6 @@ CREATE OR REPLACE PACKAGE BODY prj AS
BEGIN
FOR TekenRec IN D_tekeningen
LOOP
--prj_err.err('- '||ProjectCode ||'\'|| Tekenrec.cad_tekening_filenaam);
cad.cad_SLNKstructinsertVALSTR(Session_Id,'ATTACHDWG'
,SeqNr
,substr(ProjectCode ||'\'|| Tekenrec.cad_tekening_filenaam,1,256)
@@ -1329,16 +1263,13 @@ CREATE OR REPLACE PACKAGE BODY prj AS
END LOOP;
END;
END IF;
--prj_err.err('Na plaatsdeel=T');
cad.cad_SLNKstructinsertVALSTR(Session_Id,'LABELCOL', SeqNr, 'INS_DEEL_CADLABEL', 1);
SELECT ins_deel_omschrijving
INTO Omschrijving
FROM prj_deel
WHERE ins_deel_key = LPNKey
AND prj_project_key = LPNProjectKey;
--prj_err.err('omschrijving='||omschrijving);
cad.cad_SLNKstructinsertVALSTR(Session_Id,'LABEL',SeqNr, Omschrijving, 1);
--prj_err.err('einde lpn_ins_deel');
ELSIF LPNName = 'LPN_ALG_GEBOUW'
THEN
cad.cad_SLNKSTRUCTinsertVALSTR(Session_Id,'LPNALIASINSA', SeqNr, 'LPN_ALG_GEBOUW', 1);
@@ -1358,10 +1289,6 @@ CREATE OR REPLACE PACKAGE BODY prj AS
Locatiecode := cad.bepaal_locatiecode(LocatieKey);
ProjectCode := prj.bepaal_projectcode(LPNProjectKey);
LoadDwg := prj.cad_getPlattegrondtekening(LocatieKey,LPNProjectKey);
-- IF LoadDwg IS NULL
-- THEN
-- LoadDwg := cad_MaakCadTekening('LPN_ALG_GEBOUW', LPNKey, 'P', LPNProjectKey);
-- END IF;
/* Schrijf SrcDwg weg in cad_slnkstruct */
SrcDwg := prj.cad_GetSrcDwgOfEntity(Session_Id, 'LPN_ALG_GEBOUW', LPNKey);
AttachDwg1 := SrcDwg;
@@ -1393,7 +1320,6 @@ CREATE OR REPLACE PACKAGE BODY prj AS
cad.cad_SLNKstructinsertVALSTR(Session_Id,'LABEL',SeqNr, gebouwcode, 1);
ELSIF LPNName = 'LPN_ALG_RUIMTE'
THEN
--prj_err.err('> Ruimte');
cad.cad_SLNKSTRUCTinsertVALSTR(Session_Id,'LPNALIASINSA', SeqNr, 'LPN_ALG_RUIMTE', 1);
cad.cad_SLNKSTRUCTinsertVALINT(Session_Id,'LPNKEYINSA' , SeqNr, LPNKey , 1);
cad.cad_SLNKstructinsertVALINT(Session_Id,'DIMENSION' , SeqNr, 2 , 1);
@@ -1404,43 +1330,23 @@ CREATE OR REPLACE PACKAGE BODY prj AS
cad.cad_SLNKstructinsertVALINT(Session_Id,'LAYERCOLOR' , SeqNr, LayerColor , 1);
cad.cad_SLNKstructinsertVALSTR(Session_Id,'LAYERLINETYPE', SeqNr, LayerLinetype, 1);
cad.cad_SLNKstructinsertVALSTR(Session_Id,'LAYER' , SeqNr, Layernaam , 1);
--prj_err.err('LPNALIASINSA '||'LPN_ALG_RUIMTE');
--prj_err.err('LPNKEYINSA '|| to_char(LPNKey));
--prj_err.err('DIMENSION '|| to_char(2));
--prj_err.err('LPNCOLINSA '|| 'ALG_RUIMTE_KEY');
--prj_err.err('LAYERCOLOR '|| to_char(LayerColor));
--prj_err.err('LAYERLINETYPE '|| LayerLinetype);
--prj_err.err('LAYER '|| Layernaam);
SELECT prj_project_locatie_key
INTO locatiekey
FROM prj_project
WHERE prj_project_key = LPNProjectKey;
--prj_err.err('verdieping');
SELECT alg_verdieping_key
INTO verdiepingkey
FROM prj_ruimte
WHERE alg_ruimte_key = LPNKey
AND prj_project_key = LPNProjectKey
AND alg_ruimte_verwijder IS NULL;
--prj_err.err('1');
-- LocatieCode := cad.bepaal_locatiecode(LocatieKey);
LoadDwg := prj.cad_getVerdiepPlgrnd_tekening(Locatiekey, LPNProjectKey, Verdiepingkey);
--prj_err.err('loaddwg1: '|| loaddwg);
-- IF LoadDwg IS NULL
-- THEN
--prj_err.err('2');
-- LoadDwg := cad_MaakCadTekening('LPN_ALG_RUIMTE', LPNKey, 'P', LPNProjectKey);
--prj_err.err('loaddwg2: '|| loaddwg);
-- END IF;
/* Schrijf SrcDwg weg in cad_slnkstruct */
SrcDwg := prj.cad_GetSrcDwgOfEntity(Session_Id, 'LPN_ALG_RUIMTE', LPNKey);
AttachDwg1 := SrcDwg;
cad.cad_SLNKstructinsertVALSTR(Session_Id,'SRCDWG' , SeqNr, SrcDwg , 1);
cad.cad_SLNKstructinsertVALSTR(Session_Id,'LOADDWG' , SeqNr, LoadDwg , 1);
cad.cad_SLNKstructinsertVALSTR(Session_Id,'ATTACHDWG', SeqNr, AttachDwg1, 1);
--prj_err.err('SRCDWG : '||SrcDwg);
--prj_err.err('LOADDWG : '||LoadDwg);
--prj_err.err('ATTACHDWG: '||AttachDwg1);
DECLARE
CURSOR D_tekeningen IS
SELECT cad_tekening_filenaam
@@ -1450,29 +1356,22 @@ CREATE OR REPLACE PACKAGE BODY prj AS
AND ins_discipline_key IN (SELECT ins_discipline_key
FROM INS_v_aanwezigdiscipline);
BEGIN
--prj_err.err('voor lus');
FOR TekenRec IN D_tekeningen
LOOP
--prj_err.err(to_char(seqnr)||'-'||ProjectCode ||'\'|| Tekenrec.cad_tekening_filenaam);
cad.cad_SLNKstructinsertVALSTR(Session_Id
,'ATTACHDWG'
,SeqNr
,substr(ProjectCode ||'\'|| Tekenrec.cad_tekening_filenaam,1,256)
,0);
END LOOP;
--prj_err.err('na lus');
END;
--prj_err.err('3');
cad.cad_SLNKstructinsertVALSTR(Session_Id,'LABELCOL', SeqNr, 'ALG_RUIMTE_CADLABEL', 1);
--prj_err.err('4');
SELECT alg_ruimte_nr
INTO RuimteNr
FROM prj_ruimte
WHERE alg_ruimte_key = LPNKey
AND prj_project_key = LPNProjectKey;
--prj_err.err('LABEL '||ruimtenr);
cad.cad_SLNKstructinsertVALSTR(Session_Id,'LABEL',SeqNr, RuimteNr, 1);
--prj_err.err('< Ruimte');
ELSIF LPNNAME = 'LPN_PRS_WERKPLEK'
THEN
cad.cad_SLNKSTRUCTinsertVALSTR(Session_Id,'LPNALIASINSA', SeqNr, 'LPN_PRS_WERKPLEK', 1);
@@ -1518,10 +1417,6 @@ CREATE OR REPLACE PACKAGE BODY prj AS
/* Schrijf SrcDwg weg in cad_slnkstruct */
SrcDwg := prj.cad_GetSrcDwgOfEntity(Session_Id, 'LPN_PRS_WERKPLEK', LPNKey);
LoadDwg := prj.cad_getVerdiepPlgrnd_tekening(LocatieKey, LPNProjectKey, Verdiepingkey);
-- IF LoadDwg IS NULL
-- THEN
-- LoadDwg := cad_MaakCadTekening('LPN_PRS_WERKPLEK', LPNKey, 'P', LPNProjectKey);
-- END IF;
AttachDwg1 := SrcDwg;
cad.cad_SLNKstructinsertVALSTR(Session_Id,'SRCDWG' , SeqNr, SrcDwg , 1);
cad.cad_SLNKstructinsertVALSTR(Session_Id,'LOADDWG' , SeqNr, LoadDwg , 1);
@@ -1570,10 +1465,6 @@ CREATE OR REPLACE PACKAGE BODY prj AS
LocatieCode := cad.bepaal_locatiecode(LocatieKey);
ProjectCode := prj.bepaal_projectcode(LPNProjectKey);
LoadDwg := prj.cad_getPlattegrondtekening(LocatieKey,LPNProjectKey);
-- IF LoadDwg IS NULL
-- THEN
-- LoadDwg := cad_MaakCadTekening('LPN_ALG_TERREINSECTOR', LPNKey, 'P', LPNProjectKey);
-- END IF;
/* Schrijf SrcDwg weg in cad_slnkstruct */
SrcDwg := prj.cad_GetSrcDwgOfEntity(Session_Id, 'LPN_ALG_TERREINSECTOR', LPNKey);
AttachDwg1 := SrcDwg;
@@ -1606,7 +1497,6 @@ CREATE OR REPLACE PACKAGE BODY prj AS
cad.cad_SLNKstructinsertVALSTR(Session_Id,'LABEL',SeqNr, Subloc_code, 1);
END IF;
cad.cad_SLNKSTRUCTinsertVALSTR(Session_Id, 'SYNC', 1, 'AUTOCAD', 1);
--prj_err.err('< cad_SLNKPreDraw');
END cad_SLNKPreDraw;
/* prj.cad_SLNKPrePostUndo
@@ -1633,7 +1523,6 @@ CREATE OR REPLACE PACKAGE BODY prj AS
Dummy NUMBER(10);
RetValue BOOLEAN;
BEGIN
--prj_err.err('> cad_SLNKPrePostUndo');
LPNAliasINSO := cad.cad_SLNKSTRUCTreadVALSTR(Session_id, 'LPNALIASINSO');
LPNKeyINSO := cad.cad_SLNKSTRUCTreadVALINT(Session_id, 'LPNKEYINSO');
IF LPNKeyINSO IS NOT NULL
@@ -1804,7 +1693,6 @@ CREATE OR REPLACE PACKAGE BODY prj AS
cad.cad_SLNKSTRUCTinsertVALINT(Session_Id,'PROJECTKEY' , 1, ProjectKey , 1);
prj.cad_SLNKPreDraw(Session_Id);
END IF;
--prj_err.err('< cad_SLNKPrePostUndo');
RETURN RetValue;
END cad_SLNKPrePostUndo;
@@ -1869,7 +1757,6 @@ CREATE OR REPLACE PACKAGE BODY prj AS
LPNProjectKey cad_slnkstruct.cad_slnkstruct_valint%TYPE;
DisciplineKey ins_srtgroep.ins_discipline_key%TYPE;
BEGIN
--prj_err.err('> cad_SLNKPrePostDimensie0');
Dimensie := 0;
LayerNaam := cad.cad_SLNKSTRUCTreadVALSTR(Session_id, 'LAYER');
LPNCondName := cad.cad_SLNKSTRUCTreadVALSTR(Session_id, 'LPNALIASCONDO');
@@ -1946,11 +1833,6 @@ CREATE OR REPLACE PACKAGE BODY prj AS
Omschrijving := prj.prj_f_fac_get_description('LPN_PRS_WERKPLEK', LPNCondKey, LPNProjectKey, NULL, NULL);
WerkplekNr := to_number(substr(Omschrijving,instr(Omschrijving,'-',1)+1));
END IF;
--prj_err.err('insert');
--prj_err.err('volgnr '|| to_char(WerkplekNr));
--prj_err.err('omschr '|| Omschrijving);
--prj_err.err('ruimte '|| to_char(lpncondkey));
--prj_err.err('project '|| to_char(lpnprojectkey));
INSERT INTO prj_werkplek
( prs_werkplek_volgnr
, prs_werkplek_omschrijving
@@ -2100,7 +1982,6 @@ CREATE OR REPLACE PACKAGE BODY prj AS
ELSE
cad.cad_SLNKSTRUCTinsertVALSTR(Session_Id, 'SYNC', 1, 'AUTOCAD', 1);
END IF;
--prj_err.err('< cad_SLNKPrePostDimensie0');
END cad_SLNKPrePostDimensie0;
/* prj.cad_SLNKPrePostDimensie1
@@ -2122,18 +2003,12 @@ CREATE OR REPLACE PACKAGE BODY prj AS
LoadDwg cad_slnkstruct.cad_slnkstruct_valstr%TYPE;
SeqNr cad_slnkstruct.cad_slnkstruct_valint%TYPE;
BEGIN
--prj_err.err('> cad_SLNKPrePostDimensie1');
Dimensie := 1;
LPNCondName := cad.cad_SLNKSTRUCTreadVALSTR(Session_id, 'LPNALIASCONDO');
LPNCondKey := cad.cad_SLNKSTRUCTreadVALINT(Session_id, 'LPNKEYCONDO');
LPNProjectKey := cad.cad_SLNKSTRUCTreadVALINT(Session_id, 'PROJECTKEY');
LayerNaam := cad.cad_SLNKSTRUCTreadVALSTR(Session_id, 'LAYER');
LoadDwg := cad.cad_SLNKSTRUCTreadVALSTR(Session_id, 'LOADDWG');
--prj_err.err('LPNALIASCONDO '|| LPNCondName);
--prj_err.err('LPNKEYCONDO '|| to_char(LPNCondKey));
--prj_err.err('PROJECTKEY '|| to_char(LPNProjectKey));
--prj_err.err('LAYER '|| LayerNaam);
--prj_err.err('LOADDWG '|| LoadDwg);
/*
** Check of het een soortdeel is...
*/
@@ -2199,7 +2074,6 @@ CREATE OR REPLACE PACKAGE BODY prj AS
ELSE
cad.cad_SLNKSTRUCTinsertVALSTR(Session_Id, 'SYNC', 1, 'AUTOCAD', 1);
END IF;
--prj_err.err('< cad_SLNKPrePostDimensie1');
END cad_SLNKPrePostDimensie1;
/* prj.cad_SLNKPrePostDimensie2
@@ -2240,7 +2114,6 @@ CREATE OR REPLACE PACKAGE BODY prj AS
LabelSymbool VARCHAR2(256);
LabelOK BOOLEAN;
BEGIN
--prj_err.err('> cad_SLNKPrePostDimensie2');
Dimensie := 2;
LayerNaam := cad.cad_SLNKSTRUCTreadVALSTR(Session_id, 'LAYER');
LoadDwg := cad.cad_SLNKSTRUCTreadVALSTR(Session_id, 'LOADDWG');
@@ -2248,12 +2121,6 @@ CREATE OR REPLACE PACKAGE BODY prj AS
LPNCondName := cad.cad_SLNKSTRUCTreadVALSTR(Session_id, 'LPNALIASCONDO');
LPNCondKey := cad.cad_SLNKSTRUCTreadVALINT(Session_id, 'LPNKEYCONDO');
LPNProjectKey := cad.cad_SLNKSTRUCTreadVALINT(Session_id, 'PROJECTKEY');
--prj_err.err('layernaam = '|| Layernaam);
--prj_err.err('loaddwg = '|| LoadDwg);
--prj_err.err('blocknaam = '|| BlockNaam);
--prj_err.err('lpncondname = '|| LPNCondName);
--prj_err.err('lpnconkey = '|| to_char(LPNCondKey));
--prj_err.err('lpnprojectkey = '|| to_char(LPNProjectKey));
SELECT cad_symbool_layer
INTO SymboolLayer
FROM cad_symbool
@@ -2550,18 +2417,13 @@ CREATE OR REPLACE PACKAGE BODY prj AS
cad.cad_SLNKSTRUCTclear(Session_Id);
IF RecordAdded
THEN
--prj_err.err('LPNALIASPREDRAW '||LPNName);
--prj_err.err('LPNKEYPREDRAW '||to_char(LPNKey));
--prj_err.err('PROJECTKEY '||to_char(LPNProjectKey));
cad.cad_SLNKSTRUCTinsertVALSTR(Session_Id,'LPNALIASPREDRAW', 1, LPNName , 1);
cad.cad_SLNKSTRUCTinsertVALINT(Session_Id,'LPNKEYPREDRAW' , 1, LPNKey , 1);
cad.cad_SLNKSTRUCTinsertVALINT(Session_Id,'PROJECTKEY' , 1, LPNProjectKey, 1);
--prj_err.err('roep cad_slnkpredraw aan met session '||to_char(session_id));
prj.cad_SLNKPreDraw(Session_Id);
ELSE
cad.cad_SLNKSTRUCTinsertVALSTR(Session_Id, 'SYNC', 1, 'AUTOCAD', 1);
END IF;
--prj_err.err('< cad_SLNKPrePostDimensie2');
END cad_SLNKPrePostDimensie2;
/* prj.cad_slnkprepostdraw
@@ -2572,15 +2434,11 @@ CREATE OR REPLACE PACKAGE BODY prj AS
Project_Key cad_slnkstruct.cad_slnkstruct_valint%TYPE;
UndoOK BOOLEAN;
BEGIN
--prj_err.err('> cad_SLNKPrePostDraw');
Project_Key := cad.cad_SLNKSTRUCTreadVALINT(Session_id,'PROJECTKEY');
--prj_err.err('SessionId='||to_char(Session_Id)||' Projectkey='||to_char(project_key));
UndoOK:= cad_SLNKPrePostUndo(Session_Id,Project_Key);
IF NOT UndoOK
THEN
--prj_err.err('undo not ok');
Dimensie := cad.cad_SLNKSTRUCTreadVALINT(Session_id, 'DIMENSION');
--prj_err.err('Dimensie='||to_char(dimensie));
IF Dimensie = 0
THEN
cad_SLNKPrePostDimensie0(Session_Id);
@@ -2595,9 +2453,7 @@ CREATE OR REPLACE PACKAGE BODY prj AS
END IF;
ELSE
NULL;
--prj_err.err('undo ok');
END IF;
--prj_err.err('< cad_SLNKPrePostDraw');
END cad_SLNKPrePostDraw;
/* prj.cad_slnkpostdraw
@@ -2627,7 +2483,6 @@ CREATE OR REPLACE PACKAGE BODY prj AS
DoDeelUpdate BOOLEAN;
LinkToRoom NUMBER;
BEGIN
--prj_err.err('> cad_SLNKPostDraw');
LPNName := cad.cad_SLNKSTRUCTreadVALSTR(Session_id, 'LPNALIASINSO');
LPNKey := cad.cad_SLNKSTRUCTreadVALINT(Session_id, 'LPNKEYINSO');
LPNCondName := cad.cad_SLNKSTRUCTreadVALSTR(Session_id, 'LPNALIASCONDO');
@@ -2723,7 +2578,6 @@ CREATE OR REPLACE PACKAGE BODY prj AS
END IF;
IF DODeelUpdate
THEN
--prj_err.err('cad_SLNKPostDraw '||Plaatsdeel||' ,'||to_char(plaatsKey));
UPDATE prj_deel
SET ins_alg_ruimte_key = LPNCondKey
, ins_alg_ruimte_type = Plaatsdeel
@@ -2760,9 +2614,7 @@ CREATE OR REPLACE PACKAGE BODY prj AS
WHERE alg_terreinsector_key = LPNKey;
END IF;
COMMIT;
--prj_err.err('Geen LPNName=LPNALIASINSO bekend.');
cad.cad_SLNKSTRUCTinsertVALSTR(Session_Id, 'SYNC', 1, 'AUTOCAD', 1); /* ORACLE is klaar */
--prj_err.err('< cad_SLNKPostDraw');
END cad_SLNKpostdraw;
/* prj.cad_slnkpostErase
@@ -2778,16 +2630,11 @@ CREATE OR REPLACE PACKAGE BODY prj AS
Eerste BOOLEAN;
WerkPlekFound BOOLEAN;
BEGIN
--prj_err.err('> cad_SLNKPostErase');
CheckDatum := cad.cad_SLNKSTRUCTreadVALSTR(Session_id, 'DATE');
Datum := TO_DATE(CheckDatum, 'DD-MM-YYYY');
LPNName := cad.cad_SLNKSTRUCTreadVALSTR(Session_id, 'LPNALIASDELO');
LPNKey := cad.cad_SLNKSTRUCTreadVALINT(Session_id, 'LPNKEYDELO');
LPNProjectKey := cad.cad_SLNKSTRUCTreadVALINT(Session_id, 'PROJECTKEY');
--prj_err.err('CheckDatum='||CheckDatum);
--prj_err.err('LPNName='||LPNName);
--prj_err.err('LPNKey='||to_char(LPNKey));
--prj_err.err('LPNProjectKey='||to_char(LPNProjectKey));
IF LPNName = 'LPN_INS_DEEL'
THEN
UPDATE prj_deel
@@ -2944,7 +2791,6 @@ CREATE OR REPLACE PACKAGE BODY prj AS
WHERE alg_terreinsector_key = LPNKey;
COMMIT;
END IF;
--prj_err.err('< cad_SLNKPostErase');
cad.cad_SLNKSTRUCTinsertVALSTR(Session_Id, 'SYNC', 1, 'AUTOCAD', 1);
END cad_SLNKpostErase;
@@ -2980,7 +2826,6 @@ CREATE OR REPLACE PACKAGE BODY prj AS
LPNCondKeyOK BOOLEAN:= FALSE;
DoDeelUpdate BOOLEAN;
BEGIN
--prj_err.err('> cad_SLNKPostModify');
LPNName := cad.cad_SLNKSTRUCTreadVALSTR(Session_id,'LPNALIASMODO');
LPNKey := cad.cad_SLNKSTRUCTreadVALINT(Session_id,'LPNKEYMODO');
LPNProjectKey := cad.cad_SLNKSTRUCTreadVALINT(Session_id,'PROJECTKEY');
@@ -3184,12 +3029,6 @@ CREATE OR REPLACE PACKAGE BODY prj AS
EXCEPTION
WHEN DUP_VAL_ON_INDEX
THEN
-- SELECT MAX(prs_werkplek_volgnr) + 1
-- INTO WerkplekNr
-- FROM prj_werkplek
-- WHERE prs_alg_ruimte_key = LPNCondKey
-- AND prj_project_key = LPNProjectKey
-- AND prs_werkplek_verwijder IS NULL;
Omschrijving := prj.prj_f_fac_get_description('LPN_PRS_WERKPLEK', LPNCondKey, LPNProjectKey, NULL, NULL);
WerkplekNr := to_number(substr(Omschrijving,instr(Omschrijving,'-',1)+1));
UPDATE prj_werkplek
@@ -3212,11 +3051,9 @@ CREATE OR REPLACE PACKAGE BODY prj AS
WHERE alg_terreinsector_key = LPNKey;
END IF;
COMMIT;
--prj_err.err('LPNAliasMODO='||LPNAliasMODO||' ,LPNKeyMODO='||to_char(LPNKeyMODO));
srcdwg := prj.cad_GetSrcDwgOfEntity(Session_Id,LPNAliasMODO,LPNKeyMODO);
cad.cad_SLNKSTRUCTinsertVALSTR(Session_Id, 'SRCDWG', 1, srcdwg , 1);
cad.cad_SLNKSTRUCTinsertVALSTR(Session_Id, 'SYNC', 1, 'AUTOCAD', 1);
--prj_err.err('< cad_SLNKPostModify');
END cad_SLNKpostModify;
/* prj.cad_SLNKDelenbijWerkplek
@@ -3235,7 +3072,6 @@ CREATE OR REPLACE PACKAGE BODY prj AS
AND prj_project_key = LPNProjectKey
AND ins_deel_verwijder IS NULL;
BEGIN
--prj_err.err('> cad_SLNKDelenBijWerkplek');
LPNKey := cad.cad_SLNKSTRUCTreadVALINT(Session_id, 'INFOI');
LPNProjectKey := cad.cad_SLNKSTRUCTreadVALINT(Session_id, 'PROJECTKEY');
BEGIN
@@ -3255,7 +3091,6 @@ CREATE OR REPLACE PACKAGE BODY prj AS
END;
END;
cad.cad_SLNKSTRUCTinsertVALSTR(Session_Id, 'SYNC', 1, 'AUTOCAD', 1);
--prj_err.err('< cad_SLNKDelenBijWerkplek');
END cad_SLNKDelenbijWerkplek;
/* prj.verwerk_log_clear
@@ -3529,7 +3364,6 @@ CREATE OR REPLACE PACKAGE BODY prj AS
aantal_hersteld := aantal_hersteld + 1;
END LOOP;
COMMIT;
-- prj.verwerk_log(to_char(aantal_hersteld)||' objecten vervangen.',p_session,p_projectkey);
/*
** WERKPLEKKEN
*/
@@ -3553,7 +3387,6 @@ CREATE OR REPLACE PACKAGE BODY prj AS
aantal_hersteld := aantal_hersteld + 1;
END LOOP;
COMMIT;
-- prj.verwerk_log(to_char(aantal_hersteld)||' werkplekken vervangen.',p_session,p_projectkey);
/*
** RUIMTEN
*/
@@ -3577,7 +3410,6 @@ CREATE OR REPLACE PACKAGE BODY prj AS
aantal_hersteld := aantal_hersteld + 1;
END LOOP;
COMMIT;
-- prj.verwerk_log(to_char(aantal_hersteld)||' ruimten vervangen.',p_session,p_projectkey);
END verwerk_project_hersteld;
/* prj.verwerk_project_nieuw
@@ -3679,7 +3511,6 @@ CREATE OR REPLACE PACKAGE BODY prj AS
aantal_toegevoegd := aantal_toegevoegd + 1;
END LOOP;
COMMIT;
-- prj.verwerk_log(to_char(aantal_toegevoegd)||' nieuwe ruimten toegevoegd.',p_session,p_projectkey);
/*
** WERKPLEKKEN
*/
@@ -3713,7 +3544,6 @@ CREATE OR REPLACE PACKAGE BODY prj AS
aantal_toegevoegd := aantal_toegevoegd + 1;
END LOOP;
COMMIT;
-- prj.verwerk_log(to_char(aantal_toegevoegd)||' nieuwe werkplekken toegevoegd.',p_session,p_projectkey);
/*
** OBJECTEN
*/
@@ -3754,7 +3584,6 @@ CREATE OR REPLACE PACKAGE BODY prj AS
aantal_toegevoegd := aantal_toegevoegd + 1;
END LOOP;
COMMIT;
-- prj.verwerk_log(to_char(aantal_toegevoegd)||' nieuwe objecten toegevoegd.',p_session,p_projectkey);
END verwerk_project_nieuw;
/* prj.verwerk_project_gewijzigd
@@ -3849,7 +3678,6 @@ CREATE OR REPLACE PACKAGE BODY prj AS
aantal_gewijzigd := aantal_gewijzigd + 1;
END LOOP;
COMMIT;
-- prj.verwerk_log(to_char(aantal_gewijzigd)||' objecten gewijzigd.',p_session,p_projectkey);
/*
** De WERKPLEKKEN bestaat na uitvoering van het project nog steeds, maar de
** gegevens kunnen gewijzigd zijn.
@@ -3873,7 +3701,6 @@ CREATE OR REPLACE PACKAGE BODY prj AS
aantal_gewijzigd := aantal_gewijzigd + 1;
END LOOP;
COMMIT;
-- prj.verwerk_log(to_char(aantal_gewijzigd)||' werkplekken gewijzigd.',p_session,p_projectkey);
/*
** De RUIMTEN bestaat na uitvoering van het project nog steeds, maar de
** gegevens kunnen gewijzigd zijn.
@@ -3891,7 +3718,6 @@ CREATE OR REPLACE PACKAGE BODY prj AS
aantal_gewijzigd := aantal_gewijzigd + 1;
END LOOP;
COMMIT;
-- prj.verwerk_log(to_char(aantal_gewijzigd)||' ruimten gewijzigd.',p_session,p_projectkey);
END verwerk_project_gewijzigd;
/* prj.verwerk_project_verwijderd
@@ -3953,7 +3779,6 @@ CREATE OR REPLACE PACKAGE BODY prj AS
aantal_verwijderd := aantal_verwijderd + 1;
END LOOP;
COMMIT;
-- prj.verwerk_log(to_char(aantal_verwijderd)||' objecten uit project verwijderd.',p_session,p_projectkey);
/*
** In de projectsituatie zijn deze WERKPLEKKEN verwijderd. Daarmee zijn ook de
** objecten die nog aan deze werkplekken verbonden zijn verwijderd.
@@ -3968,7 +3793,6 @@ CREATE OR REPLACE PACKAGE BODY prj AS
aantal_verwijderd := aantal_verwijderd + 1;
END LOOP;
COMMIT;
-- prj.verwerk_log(to_char(aantal_verwijderd)||' werkplekken uit project verwijderd.',p_session,p_projectkey);
/*
** In de projectsituatie zijn deze RUIMTEN verwijderd. Daarmee zijn ook de
** werkplekken en objecten die zich nog in deze ruimten bevonden verwijderd.
@@ -3983,7 +3807,6 @@ CREATE OR REPLACE PACKAGE BODY prj AS
aantal_verwijderd := aantal_verwijderd + 1;
END LOOP;
COMMIT;
-- prj.verwerk_log(to_char(aantal_verwijderd)||' ruimten uit project verwijderd.',p_session,p_projectkey);
END verwerk_project_verwijderd;
/* prj.verwerk_project