VEST#76939 -- Locatie toekenning in prs import verbeterd

svn path=/Customer/trunk/; revision=59406

VEST/vest.sql

@@ -37,6 +37,12 @@ CURSOR c1 IS
      WHERE     i.prs_afdeling_naam =
                SUBSTR (p.prs_afdeling_omschrijving, 1, 15)
            AND p.prs_afdeling_verwijder IS NULL;
+           
+CURSOR c2 IS
+    SELECT DISTINCT f.alg_locatie_code, l.alg_locatie_code locatie
+    FROM fac_imp_perslid f, alg_locatie l
+    WHERE f.alg_locatie_code = l.alg_locatie_omschrijving;
+    
 BEGIN
    BEGIN
       SELECT fac_imp_file_line
@@ -90,11 +96,14 @@ BEGIN
                        'Achternaam;Voornaam;Tussenvoegsel;SamAccountName;Email;Afdeling;Functie;Titel/Aanhef;Geslacht;Telefoonnummer;Mobiel nummer;Personeelsnummer;Locatie;Gebouw;Verdieping;Ruimte%'
                        );
 
-UPDATE fac_imp_perslid
-SET alg_locatie_code = (
-SELECT a.alg_locatie_code
-FROM alg_locatie a
-WHERE fac_imp_perslid.alg_locatie_code = a.alg_locatie_omschrijving);
+  FOR rec IN c2
+   LOOP
+    BEGIN
+     UPDATE fac_imp_perslid
+     SET alg_locatie_code = rec.locatie
+     WHERE alg_locatie_code = rec.alg_locatie_code;
+    END;
+   END LOOP;
 
 UPDATE fac_imp_perslid
 SET alg_gebouw_code = '001'