diff --git a/CAD/CAD_PAC.SRC b/CAD/CAD_PAC.SRC index e989e835..f41fd19d 100644 --- a/CAD/CAD_PAC.SRC +++ b/CAD/CAD_PAC.SRC @@ -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