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

cad_slnkPrePostDimensie0, cad_slnkPrePostDimensie2: Bij selecteren van ins_srtdeel_key met behulp van layer en symbol ook controleren of objectsoort niet verwijderd is.

Browse Source 
svn path=/Database/trunk/; revision=7113
This commit is contained in:
Erik Groener
1999-09-27 09:57:08 +00:00
parent 1fa6bc64f2
commit 0549e206e4
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
CAD/CAD_PAC.SRC
View File

@@ -2,6 +2,8 @@
/* REVISIONS: /* REVISIONS:
* *
* 27-09-1999 EGR cad_slnkPrePostDimensie0, cad_slnkPrePostDimensie2: 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. * 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 * 25-08-1999 EGR Functies Bepaal_locatiecode,cad_getLayerColor,cad_getLayerLinetype,cad_getLayerName,cad_SLNKSTRUCTreadVALSTR2
* ,cad_SLNKSTRUCTreadVALINT2 en pragma voor Bepaal_locatiecode toegevoegd zodat deze functies ook in de PRJ_PAC * ,cad_SLNKSTRUCTreadVALINT2 en pragma voor Bepaal_locatiecode toegevoegd zodat deze functies ook in de PRJ_PAC
@@ -2175,7 +2177,8 @@ FUNCTION Bepaal_VolgnummerTxt(Omschrijving IN VARCHAR2) RETURN VARCHAR2 IS
SELECT MIN(ins_srtdeel_key) INTO SrtDeelKey SELECT MIN(ins_srtdeel_key) INTO SrtDeelKey
FROM ins_srtdeel FROM ins_srtdeel
WHERE ins_srtdeel_dimensie = Dimensie WHERE ins_srtdeel_dimensie = Dimensie
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 IF SrtDeelKey IS NOT NULL THEN
/* Het is een srtdeel */ /* Het is een srtdeel */
IF LPNCondName = 'LPN_ALG_TERREINSECTOR' OR LPNCondName = 'LPN_ALG_RUIMTE' OR IF LPNCondName = 'LPN_ALG_TERREINSECTOR' OR LPNCondName = 'LPN_ALG_RUIMTE' OR
@@ -2567,7 +2570,8 @@ FUNCTION Bepaal_VolgnummerTxt(Omschrijving IN VARCHAR2) RETURN VARCHAR2 IS
SELECT MIN(ins_srtdeel_key) INTO SrtDeelKey SELECT MIN(ins_srtdeel_key) INTO SrtDeelKey
FROM ins_srtdeel FROM ins_srtdeel
WHERE ins_srtdeel_dimensie = Dimensie 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;
-- SM44 Fix #79 AND UPPER(ins_srtdeel_acadsymbol) = UPPER(BlockNaam); -- SM44 Fix #79 AND UPPER(ins_srtdeel_acadsymbol) = UPPER(BlockNaam);
IF SrtDeelKey IS NOT NULL THEN IF SrtDeelKey IS NOT NULL THEN
/* Het is een srtdeel... */ /* Het is een srtdeel... */