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

Procedure cad_slnkpostdimensie0 aangepast i.v.m. verkeerde volgnummering.

Browse Source 
svn path=/Database/trunk/; revision=6684
This commit is contained in:
Bert in het Veld
1999-04-15 14:26:50 +00:00
parent f5d6f34af0
commit f2dc29129a
1 changed files with 20 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
CAD/CAD_PAC.SRC
View File

@@ -1112,7 +1112,7 @@ FUNCTION Bepaal_VolgnummerTxt(Omschrijving IN VARCHAR2) RETURN VARCHAR2 IS
ELSIF LPNCondName = 'LPN_PRS_WERKPLEK' THEN ELSIF LPNCondName = 'LPN_PRS_WERKPLEK' THEN
PlaatsDeel := 'W'; PlaatsDeel := 'W';
END IF; END IF;
LabelSymbool := cad_SLNKSTRUCTreadVALSTR(Session_id, 'LABEL'); LabelSymbool := cad_SLNKSTRUCTreadVALSTR(Session_id, 'LABELO');
LabelOK := FALSE; LabelOK := FALSE;
IF LabelSymbool IS NOT NULL THEN IF LabelSymbool IS NOT NULL THEN
LabelSymbool := SUBSTR(LabelSymbool,1,10); LabelSymbool := SUBSTR(LabelSymbool,1,10);
@@ -1693,7 +1693,8 @@ FUNCTION Bepaal_VolgnummerTxt(Omschrijving IN VARCHAR2) RETURN VARCHAR2 IS
SELECT cad_symbool_symbool, cad_symbool_layer INTO Symbool, SymboolLayer SELECT cad_symbool_symbool, cad_symbool_layer INTO Symbool, SymboolLayer
FROM cad_symbool FROM cad_symbool
WHERE cad_symbool_entry = 'PRS_WERKPLEK'; WHERE cad_symbool_entry = 'PRS_WERKPLEK';
IF BlockNaam = Symbool AND LayerNaam = SymboolLayer THEN IF BlockNaam = Symbool -- i.o.v. mb AND LayerNaam = SymboolLayer
THEN
/* Het is een werkplek - Check eerst of LPNCondkey wel ruimtekey is */ /* Het is een werkplek - Check eerst of LPNCondkey wel ruimtekey is */
IF LPNCondName = 'LPN_ALG_RUIMTE' THEN IF LPNCondName = 'LPN_ALG_RUIMTE' THEN
LPNCondKeyOK := CheckLPNCondKey(LPNCondName, LPNCondKey); LPNCondKeyOK := CheckLPNCondKey(LPNCondName, LPNCondKey);
@@ -1715,21 +1716,22 @@ FUNCTION Bepaal_VolgnummerTxt(Omschrijving IN VARCHAR2) RETURN VARCHAR2 IS
LPNCondKeyOK := FALSE; LPNCondKeyOK := FALSE;
END IF; END IF;
IF LPNCondKeyOK THEN IF LPNCondKeyOK THEN
LabelSymbool := cad_SLNKSTRUCTreadVALSTR(Session_id, 'LABEL'); LabelSymbool := cad_SLNKSTRUCTreadVALSTR(Session_id, 'LABELO');
LabelOK := FALSE; LabelOK := FALSE;
IF LabelSymbool IS NOT NULL THEN IF LabelSymbool IS NOT NULL THEN
LabelSymbool := SUBSTR(LabelSymbool,1,10); LabelSymbool := SUBSTR(LabelSymbool,1,3);
/* Vanuit AutoCAD voorstel voor een label binnengekregen */ /* Vanuit AutoCAD voorstel voor een label binnengekregen */
BEGIN BEGIN
SELECT prs_werkplek_key INTO Dummy SELECT prs_werkplek_key INTO Dummy
FROM all_v_aanwezigwerkplek FROM all_v_aanwezigwerkplek
WHERE prs_alg_ruimte_key = LPNCondKey WHERE prs_alg_ruimte_key = LPNCondKey
AND prs_werkplek_volgnr = LabelSymbool; AND prs_werkplek_volgnr = TO_NUMBER(LabelSymbool);
LabelOK := FALSE; LabelOK := FALSE;
EXCEPTION EXCEPTION
WHEN NO_DATA_FOUND THEN WHEN NO_DATA_FOUND THEN
/* Label bestaat nog niet */ /* Label bestaat nog niet */
LabelOK := TRUE; LabelOK := TRUE;
WerkplekNr := TO_NUMBER(LabelSymbool);
Omschrijving := LabelSymbool; Omschrijving := LabelSymbool;
END; END;
ELSE ELSE
@@ -1738,11 +1740,14 @@ FUNCTION Bepaal_VolgnummerTxt(Omschrijving IN VARCHAR2) RETURN VARCHAR2 IS
IF NOT LabelOK THEN IF NOT LabelOK THEN
/* Bepaal het volgnummer v/d toe te voegen werkplek */ /* Bepaal het volgnummer v/d toe te voegen werkplek */
BEGIN BEGIN
SELECT MAX(prs_werkplek_volgnr) + 1 SELECT MAX(prs_werkplek_volgnr) + 1
INTO WerkplekNr INTO WerkplekNr
FROM all_v_aanwezigwerkplek FROM all_v_aanwezigwerkplek
WHERE prs_alg_ruimte_key = LPNCondKey WHERE prs_alg_ruimte_key = LPNCondKey
AND prs_werkplek_module = 'PRR'; AND prs_werkplek_module = 'PRR';
IF WerkplekNr IS NULL THEN
WerkplekNr := 1;
END IF;
EXCEPTION EXCEPTION
WHEN NO_DATA_FOUND THEN WHEN NO_DATA_FOUND THEN
werkplekNr := 1; werkplekNr := 1;
@@ -1753,6 +1758,7 @@ FUNCTION Bepaal_VolgnummerTxt(Omschrijving IN VARCHAR2) RETURN VARCHAR2 IS
WHERE alg_ruimte_key = LPNCondKey; WHERE alg_ruimte_key = LPNCondKey;
Omschrijving := RuimteNr||' - '||TO_CHAR(WerkplekNr); Omschrijving := RuimteNr||' - '||TO_CHAR(WerkplekNr);
END IF; END IF;
INSERT INTO prs_werkplek(prs_werkplek_module, prs_werkplek_volgnr, prs_werkplek_omschrijving, INSERT INTO prs_werkplek(prs_werkplek_module, prs_werkplek_volgnr, prs_werkplek_omschrijving,
prs_alg_ruimte_key) VALUES ('PRR', WerkplekNr, Omschrijving, LPNCondKey); prs_alg_ruimte_key) VALUES ('PRR', WerkplekNr, Omschrijving, LPNCondKey);
RecordAdded := TRUE; RecordAdded := TRUE;
@@ -1988,7 +1994,7 @@ FUNCTION Bepaal_VolgnummerTxt(Omschrijving IN VARCHAR2) RETURN VARCHAR2 IS
SELECT alg_locatie_key INTO LocatieKey SELECT alg_locatie_key INTO LocatieKey
FROM alg_locatie FROM alg_locatie
WHERE alg_locatie_code = LocatieCode; WHERE alg_locatie_code = LocatieCode;
LabelSymbool := cad_SLNKSTRUCTreadVALSTR(Session_id, 'LABEL'); LabelSymbool := cad_SLNKSTRUCTreadVALSTR(Session_id, 'LABELO');
LabelOK := FALSE; LabelOK := FALSE;
IF LabelSymbool IS NOT NULL THEN IF LabelSymbool IS NOT NULL THEN
LabelSymbool := SUBSTR(LabelSymbool,1,10); LabelSymbool := SUBSTR(LabelSymbool,1,10);
@@ -2056,7 +2062,7 @@ FUNCTION Bepaal_VolgnummerTxt(Omschrijving IN VARCHAR2) RETURN VARCHAR2 IS
SELECT alg_locatie_key INTO LocatieKey SELECT alg_locatie_key INTO LocatieKey
FROM alg_locatie FROM alg_locatie
WHERE alg_locatie_code = LocatieCode; WHERE alg_locatie_code = LocatieCode;
LabelSymbool := cad_SLNKSTRUCTreadVALSTR(Session_id, 'LABEL'); LabelSymbool := cad_SLNKSTRUCTreadVALSTR(Session_id, 'LABELO');
LabelOK := FALSE; LabelOK := FALSE;
IF LabelSymbool IS NOT NULL THEN IF LabelSymbool IS NOT NULL THEN
LabelSymbool := SUBSTR(LabelSymbool,1,10); LabelSymbool := SUBSTR(LabelSymbool,1,10);
@@ -2137,7 +2143,7 @@ FUNCTION Bepaal_VolgnummerTxt(Omschrijving IN VARCHAR2) RETURN VARCHAR2 IS
WHEN NO_DATA_FOUND THEN WHEN NO_DATA_FOUND THEN
VerdiepingNr := NULL; VerdiepingNr := NULL;
END; END;
LabelSymbool := cad_SLNKSTRUCTreadVALSTR(Session_id, 'LABEL'); LabelSymbool := cad_SLNKSTRUCTreadVALSTR(Session_id, 'LABELO');
LabelOK := FALSE; LabelOK := FALSE;
IF LabelSymbool IS NOT NULL THEN IF LabelSymbool IS NOT NULL THEN
LabelSymbool := SUBSTR(LabelSymbool,1,10); LabelSymbool := SUBSTR(LabelSymbool,1,10);