SGGR#83501 update perslid WD aangepast zodat de juiste verantwoordelijke wordt weggeschreven bij medewerkers

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

SGGR/sggr.sql

@@ -1,3 +1,4 @@
+/*<TOAD_FILE_CHUNK>*/
 --
 -- $Id$
 --
@@ -41,7 +42,7 @@ AS
 END;
 /
 
-
+/*<TOAD_FILE_CHUNK>*/
 CREATE OR REPLACE PACKAGE BODY sggr
 AS
     FUNCTION find_str (p_string IN VARCHAR2, p_search IN VARCHAR2)
@@ -125,6 +126,7 @@ AS
 END;
 /
 
+/*<TOAD_FILE_CHUNK>*/
 /* de te factureren contracten */
 
 CREATE OR REPLACE VIEW sggr_v_rap_cnt_periode_saas
@@ -484,6 +486,7 @@ BEGIN
 END;
 /
 
+/*<TOAD_FILE_CHUNK>*/
 CREATE OR REPLACE VIEW sggr_v_export_INDEXWERK
 (
     RESULT,
@@ -847,7 +850,8 @@ EXCEPTION
 END;
 /
 
-  -- Standaard volgorde van de kolommen in het CSV-formaat)
+/*<TOAD_FILE_CHUNK>*/
+-- Standaard volgorde van de kolommen in het CSV-formaat)
   -- Variabelelijst
   -- v_alg_locatie_code 1
   -- v_alg_gebouw_code 2
@@ -932,7 +936,7 @@ EXCEPTION
 END sggr_import_prs;
 /
 
-
+/*<TOAD_FILE_CHUNK>*/
 CREATE OR REPLACE PROCEDURE sggr_update_prs (p_import_key IN NUMBER)
 IS
     -- Maximaal percentage aan nieuwe medewerkers tov. actieve medewerkers met een e-mail
@@ -1025,6 +1029,7 @@ BEGIN
 END sggr_update_prs;
 /
 
+/*<TOAD_FILE_CHUNK>*/
 -- overzicht met te accepteren meldingen voor teamleiders/managers
 CREATE OR REPLACE VIEW SGGR_V_RAP_ACC
 (
@@ -1801,7 +1806,7 @@ BEGIN
 END;
 /
 
-
+/*<TOAD_FILE_CHUNK>*/
 CREATE OR REPLACE VIEW SGGR_V_RAP_AUTO_REGISTRATIE
 (
     TIMESTAMP,
@@ -3576,6 +3581,7 @@ BEGIN
 END sggr_import_ib_actie;
 /
 
+/*<TOAD_FILE_CHUNK>*/
 CREATE OR REPLACE PROCEDURE sggr_update_ib_actie (p_import_key IN NUMBER)
 IS
     v_aanduiding     VARCHAR2 (200);
@@ -3714,6 +3720,7 @@ BEGIN
 END sggr_update_ib_actie;
 /
 
+/*<TOAD_FILE_CHUNK>*/
 CREATE OR REPLACE VIEW SGGR_V_RAP_ACC_VV
 (
     MLD_MELDING_KEY,
@@ -3841,6 +3848,7 @@ BEGIN
 END sggr_import_perslid_wd;
 /
 
+/*<TOAD_FILE_CHUNK>*/
 CREATE OR REPLACE PROCEDURE sggr_update_perslid_wd (p_import_key IN NUMBER)
 IS
     -- Maximaal percentage aan nieuwe medewerkers tov. actieve medewerkers met een e-mail
@@ -3949,19 +3957,19 @@ BEGIN
     -- De manager blijkt niet voor iedereen in WD goed te staan waardoor de leidinggevende leeg gelaten wordt 
     -- Fallback: we nemen de manager uit het kenmerk leidinggevende over
      FOR rec IN c_onb
-        LOOP
-            BEGIN
-                UPDATE prs_perslid mdw
-                   SET mdw.prs_perslid_key_verantw = rec.prs_perslid_key_verantw
-                 WHERE mdw.prs_perslid_key = rec.prs_perslid_key;
+        LOOP        
+            UPDATE prs_perslid mdw
+              SET mdw.prs_perslid_key_verantw = rec.prs_perslid_key_verantw
+            WHERE mdw.prs_perslid_key = rec.prs_perslid_key;
                  
-                 COMMIT;
-            END;
+            COMMIT;
+        
         END LOOP;
                                          
 END sggr_update_perslid_wd;
 /
 
+/*<TOAD_FILE_CHUNK>*/
 ------ payload end   ------
 
 SET DEFINE OFF
@@ -3971,8 +3979,10 @@ BEGIN
 END;
 /
 
+/*<TOAD_FILE_CHUNK>*/
 COMMIT;
 SET ECHO OFF
 SPOOL OFF
 SET DEFINE ON
-PROMPT Logfile of this upgrade is: &fcltlogfile
+PROMPT Logfile of this upgrade is: &fcltlogfile
+