From 2796116da7d76e2e0a4d4e304175a296391bcca4 Mon Sep 17 00:00:00 2001
From: Alex Tiehuis <notexist@aareon.nl>
Date: Mon, 24 Jun 2019 09:51:27 +0000
Subject: [PATCH] FCLT#58230 BSSC AiAi PL/SQL: numeric or value error:
 character string buffer too small

svn path=/Database/trunk/; revision=43057
---
 FAC/FAC_PACL.SRC | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/FAC/FAC_PACL.SRC b/FAC/FAC_PACL.SRC
index 94dab51f..971ec0cf 100644
--- a/FAC/FAC_PACL.SRC
+++ b/FAC/FAC_PACL.SRC
@@ -137,7 +137,7 @@ AS
    FUNCTION xl (pnaam IN VARCHAR2, pkey IN NUMBER, pdefault IN VARCHAR2, plang IN VARCHAR2)
       RETURN VARCHAR2
    AS
-      retval VARCHAR2(2000); --fac_locale.fac_locale_tekst%TYPE;
+      retval fac_locale_xsl.fac_locale_xsl_tekst%TYPE;
    BEGIN
       BEGIN
         -- language vertaling, geen dialect. Geldt voor kolommen
@@ -165,7 +165,8 @@ AS
       RETURN VARCHAR2
    AS
       requiredlang fac_version.fac_version_lang%TYPE;
-      retval VARCHAR2(2000); --fac_locale.fac_locale_tekst%TYPE;
+      retval fac_locale_xsl.fac_locale_xsl_tekst%TYPE;
+
    BEGIN
       -- Cache de databasetaal in een package-global
       IF fcltdblanguage IS NULL
@@ -198,7 +199,7 @@ AS
    FUNCTION L (pnaam IN VARCHAR2, pautolcl IN NUMBER DEFAULT 0)
       RETURN VARCHAR2
    AS
-      retval VARCHAR2(2000); --fac_locale.fac_locale_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