VOLK#69977 Ole Brans kan in een melding geen 'plaats' zoeken

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

VOLK/volk.sql

@@ -452,7 +452,7 @@ BEGIN
         RETURN;
     END IF;
 
-    -- 'NR' betekent dat op basis van Login wordt gematched.
+    -- Match op 'NR'
     prs.update_perslid (p_import_key, 'NR', NULL);
 
     volk_update_autorisaties (p_import_key);
@@ -468,23 +468,11 @@ BEGIN
     END LOOP;
 
     COMMIT;
-
-    -- er is een virtuele default werkplek waar alle medewerkers opgezet moeten worden
-    -- dit ivm een autorisatiescope op locaties
-    SELECT alg_ruimte_key
-      INTO v_ruimte_key
-      FROM ALG_RUIMTE
-     WHERE UPPER (alg_ruimte_omschrijving) LIKE 'VIRTUELE WERKPLEK%';
-
-    --- v_virtual := 1;
    
     FOR rec IN c_persLid
     LOOP
         BEGIN
-            prs.movetoruimte (rec.prs_perslid_key,
-                              v_ruimte_key,
-                              'A',
-                              1);
+            volk.movetoruimte(rec.prs_perslid_key);                              
         END;
     END LOOP;
 END volk_update_perslid;
@@ -1043,6 +1031,8 @@ AS
     PROCEDURE mld_after_insert (p_melding_key IN NUMBER);
     
     PROCEDURE opschonen_registraties_fb;
+    
+    PROCEDURE movetoruimte (p_perslid_key NUMBER);
 END;
 /
 
@@ -1105,6 +1095,46 @@ AS
                           '');
     END;
     
+    PROCEDURE movetoruimte (p_perslid_key NUMBER)
+    AS
+        v_ruimte_key       NUMBER (10);
+        v_verdieping_key   NUMBER (10);
+    BEGIN
+        SELECT MIN (x.alg_ruimte_key)
+          INTO v_ruimte_key
+          FROM (SELECT r1.alg_ruimte_key
+                  FROM alg_v_aanwezigruimte r1, alg_verdieping v1
+                 WHERE     r1.alg_srtruimte_key = 21                    -- Fictief
+                       AND SUBSTR (r1.alg_ruimte_nr, 1, 1) = '_'
+                       AND r1.alg_verdieping_key = v1.alg_verdieping_key
+                       AND v1.alg_gebouw_key = 124) x
+               LEFT JOIN
+               (  SELECT prs_alg_ruimte_key, COUNT (*) aant
+                    FROM prs_werkplek wp
+                    GROUP BY prs_alg_ruimte_key) wp
+                   ON x.alg_ruimte_key = wp.prs_alg_ruimte_key
+         WHERE COALESCE (wp.aant, 0) < 9999;
+
+        IF v_ruimte_key IS NULL
+        THEN
+            INSERT INTO alg_ruimte (alg_verdieping_key, -- Begane grond Croeselaan
+                                    alg_srtruimte_key,
+                                    alg_ruimte_nr)
+                 VALUES (1437, 21, '_Quqelequ')
+              RETURNING alg_ruimte_key
+                   INTO v_ruimte_key;
+
+            UPDATE alg_ruimte
+               SET alg_ruimte_nr = '_' || TO_CHAR (v_ruimte_key)
+             WHERE alg_ruimte_key = v_ruimte_key;
+        END IF;
+
+        prs.movetoruimte (p_perslid_key,
+                          v_ruimte_key,
+                          'A',
+                          1);
+    END;
+    
 END;
 /