FCLT#65180 Veld delimiter in standaard imports

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

PRS/PRS_PAC.SRC

@@ -939,6 +939,7 @@ AS
      v_prs_perslid_dienstv_num       NUMBER;
 
      v_seq_of_columns                VARCHAR2 (200);
+     v_lim_header                    VARCHAR2(4000);
 
      TYPE array_t IS VARRAY (46) OF NUMBER (10);
 
@@ -950,12 +951,14 @@ AS
             FROM fac_imp_file
            WHERE fac_import_key = p_import_key
         ORDER BY fac_imp_file_index;
+
   BEGIN
      -- JGL: Ik zou graag een WHERE fac_import_key = p_import_key hieronder
      --      toevoegen zodat het script ook multi-user veilig is,
      --      Heel veel klant-specifieke imports(/aanvullingen) controleren
      --      echter niet op de fac_import_key en zouden flink de fout in gaan.
      --      Daarom vooralsnog hier toch maar alles verwijderen
+     -- NB:  In fac_import_perslid worden v_seq_of_columns en p_header gezet!
      DELETE FROM   fac_imp_perslid;
 
      SELECT COALESCE (MAX (fac_imp_file_index), 0) + 1
@@ -971,11 +974,13 @@ AS
      LOOP
         v_colnr.EXTEND;
         -- De volgorde de te importeren kolommen in de CSV uitlezen uit v_seq_of_columns
+        -- De field delimiter is hier altijd ";"
         fac.imp_getfield (v_seq_of_columns,
-                          v_fielddelimitor,
+                          ';',
                           v_colnr (v_index));
      END LOOP;
 
+
      -- Indien geen header check is opgegeven, gaan we niet op zoek naar een geldige header
      IF p_header IS NULL
      THEN
@@ -995,7 +1000,9 @@ AS
 
            IF v_header_is_valid = 0
            THEN
-              IF UPPER (v_newline) LIKE UPPER (p_header)
+              v_lim_header := fac.replace_delimiter(p_header, ';', v_fielddelimitor);
+
+              IF UPPER(v_newline) LIKE UPPER(v_lim_header)
               THEN
                  v_header_is_valid := 1;
               END IF;