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

Procedure cad_slnkstructPredraw aangepast. per LPN_ worden nu ook alle disciplinetekeningen die de gebruiker mag zien in CAD_SLNKSTRUCT geschreven.

Browse Source 
svn path=/Database/trunk/; revision=6711
This commit is contained in:
Bert in het Veld
1999-04-22 14:40:24 +00:00
parent 32912eb930
commit e3598020b2
1 changed files with 70 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

71
CAD/CAD_PAC.SRC
View File

@@ -1352,8 +1352,8 @@ FUNCTION Bepaal_VolgnummerTxt(Omschrijving IN VARCHAR2) RETURN VARCHAR2 IS
SELECT ins_alg_locatie_key INTO LocatieKey
FROM ins_deel
WHERE ins_deel_key = LPNKey;
Locatiecode := Bepaal_locatiecode(LocatieKey);
IF SrcDwg IS NOT NULL THEN
Locatiecode := Bepaal_locatiecode(LocatieKey);
SrcDwg := Locatiecode||'\'||SrcDwg;
ELSE
SrcDwg := cad_MaakCadTekening('LPN_INS_DEEL', LPNKey, 'D');
@@ -1384,6 +1384,19 @@ FUNCTION Bepaal_VolgnummerTxt(Omschrijving IN VARCHAR2) RETURN VARCHAR2 IS
cad_SLNKstructinsertVALSTR(Session_Id,'LOADDWG', SeqNr, LoadDwg, 1);
cad_SLNKstructinsertVALSTR(Session_Id,'ATTACHDWG', SeqNr, AttachDwg1, 1);
cad_SLNKstructinsertVALSTR(Session_Id,'ATTACHDWG', SeqNr, Attachdwg2, 0);
DECLARE Cursor D_tekeningen IS
SELECT cad_tekening_filenaam
FROM cad_v_discipline
WHERE alg_locatie_key = LocatieKey
AND alg_verdieping_key = VerdiepingKey
AND ins_discipline_key IN
(SELECT ins_discipline_key
FROM INS_v_aanwezigdiscipline);
BEGIN
FOR TekenRec IN D_tekeningen LOOP
cad_SLNKstructinsertVALSTR(Session_Id,'ATTACHDWG', SeqNr, LocatieCode||'\'||Tekenrec.cad_tekening_filenaam, 0);
END LOOP;
END;
cad_SLNKstructinsertVALSTR(Session_Id,'LABELCOL', SeqNr, 'INS_DEEL_CADLABEL', 1);
SELECT ins_deel_omschrijving INTO Omschrijving
FROM ins_deel
@@ -1403,6 +1416,7 @@ FUNCTION Bepaal_VolgnummerTxt(Omschrijving IN VARCHAR2) RETURN VARCHAR2 IS
SELECT alg_locatie_key INTO Locatiekey
FROM alg_gebouw
WHERE alg_gebouw_key = LPNKey;
Locatiecode := Bepaal_locatiecode(LocatieKey);
LoadDwg := cad_getPlattegrondtekening(LocatieKey);
IF LoadDwg IS NULL THEN
LoadDwg := cad_MaakCadTekening('LPN_ALG_GEBOUW', LPNKey, 'P');
@@ -1415,6 +1429,19 @@ FUNCTION Bepaal_VolgnummerTxt(Omschrijving IN VARCHAR2) RETURN VARCHAR2 IS
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);
DECLARE Cursor D_tekeningen IS
SELECT cad_tekening_filenaam
FROM cad_v_discipline
WHERE alg_locatie_key = LocatieKey
AND alg_verdieping_key IS NULL
AND ins_discipline_key IN
(SELECT ins_discipline_key
FROM INS_v_aanwezigdiscipline);
BEGIN
FOR TekenRec IN D_tekeningen LOOP
cad_SLNKstructinsertVALSTR(Session_Id,'ATTACHDWG', SeqNr, LocatieCode||'\'||Tekenrec.cad_tekening_filenaam, 0);
END LOOP;
END;
cad.cad_SLNKstructinsertVALSTR(Session_Id,'LABELCOL',SeqNr, 'ALG_GEBOUW_CADLABEL', 1);
SELECT alg_gebouw_code INTO gebouwcode
FROM alg_v_aanweziggebouw
@@ -1435,6 +1462,7 @@ FUNCTION Bepaal_VolgnummerTxt(Omschrijving IN VARCHAR2) RETURN VARCHAR2 IS
INTO locatiekey, verdiepingkey
FROM alg_v_ruimte_gegevens
WHERE alg_ruimte_key = LPNKey;
LocatieCode := Bepaal_locatiecode(LocatieKey);
LoadDwg := cad_getVerdiepPlgrnd_tekening(Locatiekey, Verdiepingkey);
IF LoadDwg IS NULL THEN
LoadDwg := cad_MaakCadTekening('LPN_ALG_RUIMTE', LPNKey, 'P');
@@ -1447,6 +1475,19 @@ FUNCTION Bepaal_VolgnummerTxt(Omschrijving IN VARCHAR2) RETURN VARCHAR2 IS
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);
DECLARE Cursor D_tekeningen IS
SELECT cad_tekening_filenaam
FROM cad_v_discipline
WHERE alg_locatie_key = LocatieKey
AND alg_verdieping_key = VerdiepingKey
AND ins_discipline_key IN
(SELECT ins_discipline_key
FROM INS_v_aanwezigdiscipline);
BEGIN
FOR TekenRec IN D_tekeningen LOOP
cad_SLNKstructinsertVALSTR(Session_Id,'ATTACHDWG', SeqNr, LocatieCode||'\'||Tekenrec.cad_tekening_filenaam, 0);
END LOOP;
END;
cad.cad_SLNKstructinsertVALSTR(Session_Id,'LABELCOL', SeqNr, 'ALG_RUIMTE_CADLABEL', 1);
SELECT alg_ruimte_nr INTO RuimteNr
FROM alg_ruimte
@@ -1481,6 +1522,7 @@ FUNCTION Bepaal_VolgnummerTxt(Omschrijving IN VARCHAR2) RETURN VARCHAR2 IS
WHERE alg_ruimte_key =
(SELECT prs_alg_ruimte_key FROM prs_werkplek
WHERE prs_werkplek_key = LPNKey);
LocatieCode := Bepaal_locatiecode(LocatieKey);
SrcDwg := cad_getVerdiepCntr_tekening(LocatieKey, Verdiepingkey); /* Contourtekening verdieping */
IF SrcDwg IS NULL THEN
SrcDwg := cad_MaakCadTekening('LPN_PRS_WERKPLEK', LPNKey, 'C');
@@ -1493,6 +1535,19 @@ FUNCTION Bepaal_VolgnummerTxt(Omschrijving IN VARCHAR2) RETURN VARCHAR2 IS
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);
DECLARE Cursor D_tekeningen IS
SELECT cad_tekening_filenaam
FROM cad_v_discipline
WHERE alg_locatie_key = LocatieKey
AND alg_verdieping_key = VerdiepingKey
AND ins_discipline_key IN
(SELECT ins_discipline_key
FROM INS_v_aanwezigdiscipline);
BEGIN
FOR TekenRec IN D_tekeningen LOOP
cad_SLNKstructinsertVALSTR(Session_Id,'ATTACHDWG', SeqNr, LocatieCode||'\'||Tekenrec.cad_tekening_filenaam, 0);
END LOOP;
END;
cad.cad_SLNKstructinsertVALSTR(Session_Id,'LABELCOL',SeqNr, 'PRS_WERKPLEK_CADLABEL', 1);
SELECT prs_werkplek_volgnr INTO WerkplekNr
FROM prs_werkplek
@@ -1516,6 +1571,7 @@ FUNCTION Bepaal_VolgnummerTxt(Omschrijving IN VARCHAR2) RETURN VARCHAR2 IS
SELECT alg_locatie_key INTO Locatiekey
FROM alg_terreinsector
WHERE alg_terreinsector_key = LPNKey;
LocatieCode := Bepaal_locatiecode(LocatieKey);
LoadDwg := cad_getPlattegrondtekening(LocatieKey);
IF LoadDwg IS NULL THEN
LoadDwg := cad_MaakCadTekening('LPN_ALG_TERREINSECTOR', LPNKey, 'P');
@@ -1528,6 +1584,19 @@ FUNCTION Bepaal_VolgnummerTxt(Omschrijving IN VARCHAR2) RETURN VARCHAR2 IS
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);
DECLARE Cursor D_tekeningen IS
SELECT cad_tekening_filenaam
FROM cad_v_discipline
WHERE alg_locatie_key = LocatieKey
AND alg_verdieping_key IS NULL
AND ins_discipline_key IN
(SELECT ins_discipline_key
FROM INS_v_aanwezigdiscipline);
BEGIN
FOR TekenRec IN D_tekeningen LOOP
cad_SLNKstructinsertVALSTR(Session_Id,'ATTACHDWG', SeqNr, LocatieCode||'\'||Tekenrec.cad_tekening_filenaam, 0);
END LOOP;
END;
cad.cad_SLNKstructinsertVALSTR(Session_Id,'LABELCOL',SeqNr, 'ALG_TERREINSECTOR_CADLABEL', 1);
SELECT alg_terreinsector_code INTO Subloc_code
FROM alg_v_aanwezigterreinsector