Nu dan goed DB15

svn path=/Database/branches/DB15/; revision=12197

FAC/FAC_PAC.SRC

@@ -1,4 +1,4 @@
-/*  $Revision: 235 $
+/*  $Revision$
  *  $Modtime: 12-03-12 13:01 $
  */
 
@@ -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 (
@@ -3524,4 +3526,4 @@ CREATE OR REPLACE PACKAGE BODY fac AS
 END fac;
 /
 
-REGISTERRUN('$Workfile: FAC_PAC.SRC $','$Revision: 235 $')
+REGISTERRUN('$Workfile: FAC_PAC.SRC $','$Revision$')