ALLR#80708 -- Zichtbaarheid werkplekreserveringen via workday-koppeling

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

AA/ALLR/allr.sql

@@ -318,8 +318,16 @@ IS
     CURSOR c_vis
     IS
          SELECT p.prs_perslid_key,
-                p.prs_perslid_visibility
-           FROM prs_perslid p;
+                p.prs_perslid_naam,
+                p.prs_perslid_visibility,
+                (SELECT MAX(ft.fac_tracking_refkey) FROM fac_tracking ft WHERE ft.fac_srtnotificatie_key = 57 AND INSTR(ft.fac_tracking_oms, 'Naamzichtbaarheid:')>0 AND ft.fac_tracking_refkey = p.prs_perslid_key AND ft.prs_perslid_key NOT IN (4) )
+                 mutatie_self
+           FROM prs_perslid p, prs_v_afdeling a
+          WHERE p.prs_afdeling_key = a.prs_afdeling_key
+          AND a.prs_bedrijf_key = 321
+          AND p.prs_perslid_visibility = 0
+          AND p.prs_perslid_verwijder IS NULL
+          AND p.prs_perslid_inactief IS NULL ;
           
     v_count_imp                NUMBER;
     v_count_allr               NUMBER;
@@ -566,6 +574,32 @@ BEGIN
            END;
         END LOOP;
 
+
+        -- en tot slot de personen op visible JA zetten (zie ticket ALLR#80708)
+        FOR rec IN c_vis
+        LOOP
+           BEGIN
+              v_errorhint := 'Personen op visible JA zetten ';
+              v_aanduiding := rec.prs_perslid_key || '-' || rec.prs_perslid_naam;
+              
+              
+              -- alleen voor die personen die niet buiten koppeling om de setting zelf in personenkaart hebben laten omzetten
+              IF rec.mutatie_self IS NULL 
+              THEN
+              
+                 UPDATE prs_perslid
+                    SET prs_perslid_visibility = 1
+                  WHERE prs_perslid_key = rec.prs_perslid_key ;
+              
+                 -- tracking
+                 BEGIN fac.trackaction('PRSUPD', rec.prs_perslid_key, 4, NULL, 'Naamzichtbaarheid: 0 --> 1 (uit workday-koppeling)'); END;
+              
+              END IF;
+
+           END;
+        END LOOP;
+
+
     ELSE
        fac.imp_writelog (p_import_key,
                          'E',