YKPN#79783 Ondersteuning van sensorlimieten: iets vergevingsgezinder (zoals asp)

svn path=/Database/trunk/; revision=61639

FAC/FAC_PACL.SRC

@@ -196,26 +196,31 @@ AS
 
    -- Oracle variant van de ASP-L functie
    -- Geef pautolcl=1 mee als je niet zeker weet of het een lcl is
-   FUNCTION L (pnaam IN VARCHAR2, pautolcl IN NUMBER DEFAULT 0)
-      RETURN VARCHAR2
+   -- Geeft de lcl zelf retour als deze niet gedefinieerd is (beter dan nodatafound)
+   FUNCTION l (pnaam IN VARCHAR2, pautolcl IN NUMBER DEFAULT 0)
+       RETURN VARCHAR2
    AS
-      retval fac_locale_xsl.fac_locale_xsl_tekst%TYPE;
+       retval   fac_locale_xsl.fac_locale_xsl_tekst%TYPE;
    BEGIN
-      --  Voor lcl_noti_* maar verder generiek
-      IF pautolcl = 1 AND pnaam NOT LIKE 'lcl_%' THEN
-        RETURN pnaam;
-      END IF;
-
-      SELECT COALESCE(fac_locale_xsl_cust, fac_locale_xsl_tekst)
-        INTO retval
-        FROM fac_locale_xsl
-       WHERE fac_locale_xsl_lang = lcl.getuserlanguage ()
-         AND fac_locale_xsl_label = pnaam
-         AND fac_locale_xsl_module = 'ASP';
-
-      RETURN retval;
+       --  Voor lcl_noti_* maar verder generiek
+       IF pautolcl = 1 AND pnaam NOT LIKE 'lcl_%'
+       THEN
+           RETURN pnaam;
+       END IF;
+       BEGIN
+           SELECT COALESCE (fac_locale_xsl_cust, fac_locale_xsl_tekst)
+             INTO retval
+             FROM fac_locale_xsl
+            WHERE     fac_locale_xsl_lang = lcl.getuserlanguage ()
+                  AND fac_locale_xsl_label = pnaam
+                  AND fac_locale_xsl_module = 'ASP';
+       EXCEPTION
+           WHEN NO_DATA_FOUND
+           THEN
+               retval := pnaam;
+       END;
+       RETURN retval;
    END;
-
    PROCEDURE fallback_languages
    AS
    BEGIN