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

22
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
PlaatsDeel := 'W';
END IF;
LabelSymbool := cad_SLNKSTRUCTreadVALSTR(Session_id, 'LABEL');
LabelSymbool := cad_SLNKSTRUCTreadVALSTR(Session_id, 'LABELO');
LabelOK := FALSE;
IF LabelSymbool IS NOT NULL THEN
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
FROM cad_symbool
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 */
IF LPNCondName = 'LPN_ALG_RUIMTE' THEN
LPNCondKeyOK := CheckLPNCondKey(LPNCondName, LPNCondKey);
@@ -1715,21 +1716,22 @@ FUNCTION Bepaal_VolgnummerTxt(Omschrijving IN VARCHAR2) RETURN VARCHAR2 IS
LPNCondKeyOK := FALSE;
END IF;
IF LPNCondKeyOK THEN
LabelSymbool := cad_SLNKSTRUCTreadVALSTR(Session_id, 'LABEL');
LabelSymbool := cad_SLNKSTRUCTreadVALSTR(Session_id, 'LABELO');
LabelOK := FALSE;
IF LabelSymbool IS NOT NULL THEN
LabelSymbool := SUBSTR(LabelSymbool,1,10);
LabelSymbool := SUBSTR(LabelSymbool,1,3);
/* Vanuit AutoCAD voorstel voor een label binnengekregen */
BEGIN
SELECT prs_werkplek_key INTO Dummy
FROM all_v_aanwezigwerkplek
WHERE prs_alg_ruimte_key = LPNCondKey
AND prs_werkplek_volgnr = LabelSymbool;
AND prs_werkplek_volgnr = TO_NUMBER(LabelSymbool);
LabelOK := FALSE;
EXCEPTION
WHEN NO_DATA_FOUND THEN
/* Label bestaat nog niet */
LabelOK := TRUE;
WerkplekNr := TO_NUMBER(LabelSymbool);
Omschrijving := LabelSymbool;
END;
ELSE
@@ -1743,6 +1745,9 @@ FUNCTION Bepaal_VolgnummerTxt(Omschrijving IN VARCHAR2) RETURN VARCHAR2 IS
FROM all_v_aanwezigwerkplek
WHERE prs_alg_ruimte_key = LPNCondKey
AND prs_werkplek_module = 'PRR';
IF WerkplekNr IS NULL THEN
WerkplekNr := 1;
END IF;
EXCEPTION
WHEN NO_DATA_FOUND THEN
werkplekNr := 1;
@@ -1753,6 +1758,7 @@ FUNCTION Bepaal_VolgnummerTxt(Omschrijving IN VARCHAR2) RETURN VARCHAR2 IS
WHERE alg_ruimte_key = LPNCondKey;
Omschrijving := RuimteNr||' - '||TO_CHAR(WerkplekNr);
END IF;
INSERT INTO prs_werkplek(prs_werkplek_module, prs_werkplek_volgnr, prs_werkplek_omschrijving,
prs_alg_ruimte_key) VALUES ('PRR', WerkplekNr, Omschrijving, LPNCondKey);
RecordAdded := TRUE;
@@ -1988,7 +1994,7 @@ FUNCTION Bepaal_VolgnummerTxt(Omschrijving IN VARCHAR2) RETURN VARCHAR2 IS
SELECT alg_locatie_key INTO LocatieKey
FROM alg_locatie
WHERE alg_locatie_code = LocatieCode;
LabelSymbool := cad_SLNKSTRUCTreadVALSTR(Session_id, 'LABEL');
LabelSymbool := cad_SLNKSTRUCTreadVALSTR(Session_id, 'LABELO');
LabelOK := FALSE;
IF LabelSymbool IS NOT NULL THEN
LabelSymbool := SUBSTR(LabelSymbool,1,10);
@@ -2056,7 +2062,7 @@ FUNCTION Bepaal_VolgnummerTxt(Omschrijving IN VARCHAR2) RETURN VARCHAR2 IS
SELECT alg_locatie_key INTO LocatieKey
FROM alg_locatie
WHERE alg_locatie_code = LocatieCode;
LabelSymbool := cad_SLNKSTRUCTreadVALSTR(Session_id, 'LABEL');
LabelSymbool := cad_SLNKSTRUCTreadVALSTR(Session_id, 'LABELO');
LabelOK := FALSE;
IF LabelSymbool IS NOT NULL THEN
LabelSymbool := SUBSTR(LabelSymbool,1,10);
@@ -2137,7 +2143,7 @@ FUNCTION Bepaal_VolgnummerTxt(Omschrijving IN VARCHAR2) RETURN VARCHAR2 IS
WHEN NO_DATA_FOUND THEN
VerdiepingNr := NULL;
END;
LabelSymbool := cad_SLNKSTRUCTreadVALSTR(Session_id, 'LABEL');
LabelSymbool := cad_SLNKSTRUCTreadVALSTR(Session_id, 'LABELO');
LabelOK := FALSE;
IF LabelSymbool IS NOT NULL THEN
LabelSymbool := SUBSTR(LabelSymbool,1,10);