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

SM44 fixrapport - #79 - cad_SLNKPrePostDimensie2 aangepast. Bij check op srtdeel werd ook gecheckt op <Blocknaam>, dit is overbodig voor dimensie 2.

Browse Source 
Aangepast.

svn path=/Database/trunk/; revision=6795
This commit is contained in:
Bert in het Veld
1999-05-17 09:23:28 +00:00
parent 5e5a94c12a
commit ad6c21cb07
1 changed files with 9 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
CAD/CAD_PAC.SRC
View File

@@ -1125,6 +1125,7 @@ FUNCTION Bepaal_VolgnummerTxt(Omschrijving IN VARCHAR2) RETURN VARCHAR2 IS
SELECT ins_srtdeel_code INTO SrtDeelCode
FROM ins_srtdeel
WHERE ins_srtdeel_key = SrtdeelKey;
/* vervangen door nieuwe functie in FAC_PAC.SRC
Zoekstring := RTRIM(SrtDeelCode)||' - 0%';
Antistring := RTRIM(SrtDeelCode)||' - 00%';
BEGIN
@@ -1154,8 +1155,13 @@ FUNCTION Bepaal_VolgnummerTxt(Omschrijving IN VARCHAR2) RETURN VARCHAR2 IS
WHEN NO_DATA_FOUND THEN
VolgnrTxt := RTRIM(SrtdeelCode)||' - 01';
END;
Omschrijving := VolgnrTxt;
Omschrijving := VolgnrTxt;
*/
VolgnrTxt := FAC_F_FAC_GET_DESCRIPTION('LPN_INS_DEEL', LocatieKey, SrtDeelCode);
END IF;
INSERT INTO ins_deel(ins_srtdeel_key, ins_alg_ruimte_key, ins_alg_ruimte_type, ins_deel_aantal,
ins_deel_omschrijving) VALUES(SrtdeelKey, LPNCondKey, PlaatsDeel, 1, Omschrijving);
COMMIT;
@@ -2414,8 +2420,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_acadsymbol) = UPPER(BlockNaam);
AND UPPER(ins_srtdeel_cadlayer) = UPPER(LayerNaam);
-- SM44 Fix #79 AND UPPER(ins_srtdeel_acadsymbol) = UPPER(BlockNaam);
IF SrtDeelKey IS NOT NULL THEN
/* Het is een srtdeel... */
IF LPNCondName = 'LPN_ALG_TERREINSECTOR' OR LPNCondName = 'LPN_ALG_RUIMTE' OR