From db0b6805aaaa90415cd952e8f24605f5e0b77854 Mon Sep 17 00:00:00 2001
From: Suzan Wiegerinck <suzan.wiegerinck@aareon.nl>
Date: Thu, 22 May 2025 09:32:31 +0000
Subject: [PATCH] SGGR#88059 Workday import aanpassen: Bij BM en Embrace de
 namen uit de mailadressen verwijderen (alles vanaf eerste ' (' kan eruit)

svn path=/Customer/trunk/; revision=69106
---
 SGGR/sggr.sql | 19 +++++++++++++------
 1 file changed, 13 insertions(+), 6 deletions(-)

diff --git a/SGGR/sggr.sql b/SGGR/sggr.sql
index 58f0a6fc2..bc66f5bd3 100644
--- a/SGGR/sggr.sql
+++ b/SGGR/sggr.sql
@@ -2070,7 +2070,7 @@ CREATE OR REPLACE VIEW SGGR_V_RAPP_HOTELAANVRAGEN
     GERESERVEERDE
 )
 AS
-    SELECT    '<a class="details" onclick=''FcltMgr.openDetail("'
+     SELECT    '<a class="details" onclick=''FcltMgr.openDetail("'
            || 'appl/mld/mld_melding.asp?urole=fe&'
            || 'mld_key='
            || m.mld_melding_key
@@ -2094,7 +2094,7 @@ AS
            m.mld_stdmelding_omschrijving,
            m.mld_melding_datum,
            m.mld_melding_onderwerp,
-           TO_CHAR(SUBSTR(m.mld_melding_omschrijving,1,4000)),
+           TO_CHAR (SUBSTR (m.mld_melding_omschrijving, 1, 4000)),
            m.prs_perslid_key_voor,
            m.prs_perslid_naam_friendly,
            CASE m.mld_melding_status
@@ -2221,7 +2221,7 @@ AS
            m.mld_stdmelding_omschrijving,
            m.mld_melding_datum,
            m.mld_melding_onderwerp,
-           TO_CHAR(SUBSTR(m.mld_melding_omschrijving,1,4000)),
+           TO_CHAR (SUBSTR (m.mld_melding_omschrijving, 1, 4000)),
            m.prs_perslid_key_voor,
            m.prs_perslid_naam_friendly,
            CASE m.mld_melding_status
@@ -2342,7 +2342,7 @@ AS
              m.mld_stdmelding_omschrijving,
              m.mld_melding_datum,
              m.mld_melding_onderwerp,
-             TO_CHAR(SUBSTR(m.mld_melding_omschrijving,1,4000)),
+             TO_CHAR (SUBSTR (m.mld_melding_omschrijving, 1, 4000)),
              m.prs_perslid_key_voor,
              m.prs_perslid_naam_friendly,
              CASE m.mld_melding_status
@@ -2540,7 +2540,7 @@ AS
              m.mld_stdmelding_omschrijving,
              m.mld_melding_datum,
              m.mld_melding_onderwerp,
-             TO_CHAR(SUBSTR(m.mld_melding_omschrijving,1,4000)),
+             TO_CHAR (SUBSTR (m.mld_melding_omschrijving, 1, 4000)),
              m.prs_perslid_key_voor,
              m.prs_perslid_naam_friendly,
              CASE m.mld_melding_status
@@ -4028,6 +4028,12 @@ BEGIN
                  WHERE p.fac_imp_file_index = i.fac_imp_file_index)
      WHERE UPPER (i.prs_perslid_email) LIKE '%@AAREON%';
 
+    -- dan nog de namen uit de mailadressen verwijderen (format Embrace)
+    UPDATE fac_imp_perslid ip
+        SET ip.prs_perslid_email =
+               SUBSTR (ip.prs_perslid_email, 1, INSTR (ip.prs_perslid_email, '(') - 2)
+                  WHERE ip.prs_perslid_email LIKE '%(%';
+    
     -- De juiste afdelingen bepalen
     UPDATE fac_imp_perslid i
        SET i.prs_afdeling_naam =
@@ -4053,7 +4059,8 @@ IS
     CURSOR c_del IS
         SELECT p.prs_perslid_key, p.prs_perslid_email
           FROM prs_v_aanwezigperslid p
-         WHERE p.prs_perslid_oslogin IS NULL
+         WHERE  ( p.prs_perslid_oslogin NOT LIKE '\_%' ESCAPE '\' -- accounts met een _ moeten bewaard blijven
+               OR p.prs_perslid_oslogin IS NULL)
                AND p.prs_perslid_apikey IS NULL               -- API accounts moeten bewaard blijven
                AND NOT EXISTS
                        (SELECT 1