From 22fca1b8c07d2bf3bbc2b2b61b26813d64382994 Mon Sep 17 00:00:00 2001
From: Norbert Wassink <norbert.wassink@aareon.nl>
Date: Fri, 21 Feb 2025 09:20:57 +0000
Subject: [PATCH] STER#83920 -- Sterk huis implementatie, youforce import
 aanpassing. Logica om bepaalde mensen uit te sluiten van de update

svn path=/Customer/trunk/; revision=68129
---
 STER/STER.sql | 29 ++++++++++++++++++++++-------
 1 file changed, 22 insertions(+), 7 deletions(-)

diff --git a/STER/STER.sql b/STER/STER.sql
index d0825a434..9c5560d5c 100644
--- a/STER/STER.sql
+++ b/STER/STER.sql
@@ -122,6 +122,7 @@ IS
     v_budgethouder_key						NUMBER;
     v_count												NUMBER;
     v_primary_kostcode						VARCHAR2(12);
+    v_youforce_excl						VARCHAR2(1);
     
 BEGIN
 	  
@@ -131,15 +132,22 @@ BEGIN
 	  v_count:=0;
 	  FOR rec IN c
 	  LOOP
-	  
+            v_youforce_excl:='0';
 	  		IF UPPER(rec.prs_perslid_nr) <> 'PERSOONSNUMMER' AND
 					 UPPER(rec.prs_kostenplaats_code) <> 'KOSTENPLAATS'	  		
 				THEN
 	  			v_file_index:=rec.file_index;
 				  v_aanduiding := 'Persoon kan niet gevonden worden op basis van personeels nr'|| rec.prs_perslid_nr;
 				  BEGIN
-				  	SELECT p.prs_perslid_key
-						  INTO v_perslid_key
+				  	SELECT p.prs_perslid_key,
+                           COALESCE((SELECT pkl.prs_kenmerklink_waarde from prs_kenmerklink pkl, prs_kenmerk pk
+                             WHERE     pk.prs_kenmerk_code='YOUFORCE_EXCLUDE'
+                                   AND pkl.prs_kenmerk_key=pkl.prs_kenmerk_key
+                                   AND pkl.prs_link_key=p.prs_perslid_key
+                                   AND pk.prs_kenmerk_niveau='P'
+                                   AND pk.prs_kenmerk_verwijder IS NULL),'0') youforce_excl	                    
+						  INTO v_perslid_key, 
+                               v_youforce_excl
 							FROM prs_perslid p
 						 WHERE     p.PRS_perslid_NR=rec.prs_perslid_nr 
 						       AND p.prs_perslid_verwijder IS NULL;
@@ -153,8 +161,15 @@ BEGIN
                     IF v_perslid_key=-1 THEN    
                         BEGIN
                             v_aanduiding := 'Persoon kan niet gevonden worden op basis van personeels nr'|| rec.prs_perslid_nr||' of email '||rec.prs_perslid_email;
-                            SELECT p.prs_perslid_key
-                              INTO v_perslid_key
+                            SELECT p.prs_perslid_key,
+                                  COALESCE((SELECT pkl.prs_kenmerklink_waarde from prs_kenmerklink pkl, prs_kenmerk pk
+                             WHERE     pk.prs_kenmerk_code='YOUFORCE_EXCLUDE'
+                                   AND pkl.prs_kenmerk_key=pkl.prs_kenmerk_key
+                                   AND pkl.prs_link_key=p.prs_perslid_key
+                                   AND pk.prs_kenmerk_niveau='P'
+                                   AND pk.prs_kenmerk_verwijder IS NULL),'0') youforce_excl	                    
+						  INTO v_perslid_key, 
+                               v_youforce_excl
                               FROM prs_perslid p
 						     WHERE     UPPER(p.prs_perslid_email)=UPPER(rec.prs_perslid_email)
 						           AND p.prs_perslid_verwijder IS NULL;
@@ -274,8 +289,8 @@ BEGIN
 					END;
 					
 					
-					-- ALs ik v_perslid_key heb en een v_afdeling_key update prs_perslid met de afdeling_key,
-					IF v_perslid_key>0 AND v_afdeling_key>0
+					-- ALs ik v_perslid_key heb en een v_afdeling_key en youforce_excl =0 update dan prs_perslid met de afdeling_key,
+					IF v_perslid_key>0 AND v_afdeling_key>0 AND v_youforce_excl='0'
 					THEN
 								v_count:=v_count+1;
 								UPDATE prs_perslid