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

In dimensie 0 en 1 nog controle op ins_srtdeel_verwijder toegevoegd.

Browse Source 
svn path=/Database/trunk/; revision=7115
This commit is contained in:
Erik Groener
1999-09-27 11:10:56 +00:00
parent b98a8b5144
commit d55d8ec2dd
1 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
CAD/CAD_PAC.SRC
View File

@@ -2,7 +2,7 @@
/* REVISIONS:
*
* 27-09-1999 EGR cad_slnkPrePostDimensie0, cad_slnkPrePostDimensie2: Bij selecteren van ins_srtdeel_key met behulp
* 27-09-1999 EGR cad_slnkPrePostDimensie0, 1 en 2: Bij selecteren van ins_srtdeel_key met behulp
* van layer en symbol ook controleren of objectsoort niet verwijderd is.
* 27-08-1999 EGR cad_SLNKSTRUCTshift aangepast zodat PROJECTKEY met seqnr=1 tijdens shift niet wordt verwijderd.
* 25-08-1999 EGR Functies Bepaal_locatiecode,cad_getLayerColor,cad_getLayerLinetype,cad_getLayerName,cad_SLNKSTRUCTreadVALSTR2
@@ -2140,7 +2140,8 @@ FUNCTION Bepaal_VolgnummerTxt(Omschrijving IN VARCHAR2) RETURN VARCHAR2 IS
FROM ins_srtdeel
WHERE ins_srtdeel_dimensie = Dimensie
AND UPPER(ins_srtdeel_cadlayer) = UPPER(LayerNaam)
AND UPPER(ins_srtdeel_acadsymbol) = UPPER(BlockNaam);
AND UPPER(ins_srtdeel_acadsymbol) = UPPER(BlockNaam)
AND ins_srtdeel_verwijder IS NULL;
IF SrtDeelKey IS NOT NULL THEN
/* Het is een srtdeel, dus voeg een deel toe */
IF LPNCondName = 'LPN_ALG_TERREINSECTOR' OR LPNCondName = 'LPN_ALG_RUIMTE' OR
@@ -2254,7 +2255,8 @@ FUNCTION Bepaal_VolgnummerTxt(Omschrijving IN VARCHAR2) RETURN VARCHAR2 IS
SELECT MIN(ins_srtdeel_key) INTO SrtDeelKey
FROM ins_srtdeel
WHERE ins_srtdeel_dimensie = Dimensie
AND UPPER(ins_srtdeel_cadlayer) = UPPER(LayerNaam);
AND UPPER(ins_srtdeel_cadlayer) = UPPER(LayerNaam)
AND ins_srtdeel_verwijder IS NULL;
IF SrtDeelKey IS NOT NULL THEN
/* Het is een srtdeel */
IF LPNCondName = 'LPN_ALG_TERREINSECTOR' OR LPNCondName = 'LPN_ALG_RUIMTE' OR