From 6e32c59f9bf2710eba293ab387a3fcd804b39f2b Mon Sep 17 00:00:00 2001
From: Jos Migo <jos.migo@aareon.nl>
Date: Wed, 6 Dec 2023 09:41:56 +0000
Subject: [PATCH] ALLR#80708 -- Zichtbaarheid werkplekreserveringen via
 workday-koppeling

svn path=/Customer/trunk/; revision=62853
---
 AA/ALLR/allr.sql | 40 +++++++++++++++++++++++++++++++++++++---
 1 file changed, 37 insertions(+), 3 deletions(-)

diff --git a/AA/ALLR/allr.sql b/AA/ALLR/allr.sql
index 840faffdb..6317c9d93 100644
--- a/AA/ALLR/allr.sql
+++ b/AA/ALLR/allr.sql
@@ -318,9 +318,17 @@ 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',