AADS#23501 backport to DB15

svn path=/Database/branches/DB15a/; revision=11520

FAC/FAC_PAC.SRC

@@ -984,18 +984,20 @@ CREATE OR REPLACE PACKAGE BODY fac AS
    AS
         l_parseline VARCHAR2(1024);
         l_nr        NUMBER(10);
-
+        l_field     VARCHAR2(1024);
    BEGIN
         l_parseline :=p_parseline;
         l_nr        :=p_nr;
         WHILE l_nr >= 1
         LOOP
            -- look for the next kolom in p_parseline
-           fac.imp_getfield (l_parseline, p_fielddelimitor, p_field);
+           fac.imp_getfield (l_parseline, p_fielddelimitor, l_field);
            l_nr := l_nr -1;
         END LOOP;
         -- Trimmen met die hap!
-        p_field:=TRIM(p_field);
+        -- En nu pas het veld toekennen aan de parameter van de procedure
+        -- omdat de lengte korter kan zijn dan de lengte van de eerdere velden.
+        p_field:=TRIM(l_field);
    END;
 
    PROCEDURE imp_writelog (