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

cad_slnkpostundo toegevoegd i.v.m. Undo vanuit AutoCAD.

Browse Source 
svn path=/Database/trunk/; revision=6708
This commit is contained in:
Bert in het Veld
1999-04-21 13:53:38 +00:00
parent 335cdb3d07
commit 60620cb368
1 changed files with 10 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
CAD/CAD_PAC.SRC
View File

@@ -1664,6 +1664,7 @@ FUNCTION Bepaal_VolgnummerTxt(Omschrijving IN VARCHAR2) RETURN VARCHAR2 IS
Code VARCHAR2(10);
RuimteKey alg_ruimte.alg_ruimte_key%TYPE;
WerkplekNr prs_werkplek.prs_werkplek_volgnr%TYPE;
VerdiepingKey alg_ruimte.alg_verdieping_key%TYPE;
LocatieKey alg_locatie.alg_locatie_key%TYPE;
SrtdeelKey ins_srtdeel.ins_srtdeel_key%TYPE;
Omschrijving VARCHAR2(30);
@@ -1674,13 +1675,14 @@ FUNCTION Bepaal_VolgnummerTxt(Omschrijving IN VARCHAR2) RETURN VARCHAR2 IS
IF LPNKeyINSO IS NOT NULL THEN
BEGIN
IF LPNAliasINSO = 'LPN_ALG_TERREINSECTOR' THEN
SELECT alg_terreinsector_key, alg_terreinsector_code INTO Dummy, Code
SELECT alg_locatie_key, alg_terreinsector_code INTO LocatieKey, Code
FROM alg_terreinsector
WHERE alg_terreinsector_key = LPNKeyINSO;
BEGIN
SELECT alg_terreinsector_key INTO Dummy
FROM alg_v_aanwezigterreinsector
WHERE alg_terreinsector_code = Code;
WHERE alg_locatie_key = LocatieKey
AND alg_terreinsector_code = Code;
RETURN FALSE;
EXCEPTION
WHEN NO_DATA_FOUND THEN
@@ -1691,13 +1693,14 @@ FUNCTION Bepaal_VolgnummerTxt(Omschrijving IN VARCHAR2) RETURN VARCHAR2 IS
RETURN TRUE;
END;
ELSIF LPNAliasINSO = 'LPN_ALG_GEBOUW' THEN
SELECT alg_gebouw_key, alg_gebouw_code INTO Dummy, Code
SELECT alg_locatie_key, alg_gebouw_code INTO LocatieKey, Code
FROM alg_gebouw
WHERE alg_gebouw_key = LPNKeyINSO;
BEGIN
SELECT alg_gebouw_key INTO Dummy
FROM alg_v_aanweziggebouw
WHERE alg_gebouw_code = Code;
WHERE alg_locatie_key = LocatieKey
AND alg_gebouw_code = Code;
RETURN FALSE;
EXCEPTION
WHEN NO_DATA_FOUND THEN
@@ -1708,13 +1711,14 @@ FUNCTION Bepaal_VolgnummerTxt(Omschrijving IN VARCHAR2) RETURN VARCHAR2 IS
RETURN TRUE;
END;
ELSIF LPNAliasINSO = 'LPN_ALG_RUIMTE' THEN
SELECT alg_ruimte_key, alg_ruimte_upper_nr INTO Dummy, Code
SELECT alg_verdieping_key, alg_ruimte_upper_nr INTO VerdiepingKey, Code
FROM alg_ruimte
WHERE alg_ruimte_key = LPNKeyINSO;
BEGIN
SELECT alg_ruimte_key INTO Dummy
FROM alg_v_aanwezigruimte
WHERE alg_ruimte_upper_nr = Code;
WHERE alg_verdieping_key = VerdiepingKey
AND alg_ruimte_upper_nr = Code;
RETURN FALSE;
EXCEPTION
WHEN NO_DATA_FOUND THEN