BRWN#67183 -- Implementatie Brabant Wonen (BRWN)

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

BRWN/BRWN.sql

@@ -26,6 +26,15 @@ SET DEFINE OFF
 -- Personen import
 CREATE OR REPLACE PROCEDURE brwn_import_perslid (p_import_key IN NUMBER)
 AS
+
+    CURSOR c_afd
+    IS
+       SELECT DISTINCT prs_kenmerk2 prs_afdeling_omschrijving
+         FROM fac_imp_perslid
+        WHERE NOT EXISTS (SELECT 1 FROM prs_afdeling
+                                  WHERE prs_afdeling_verwijder IS NULL
+                                    AND UPPER(prs_afdeling_omschrijving) = UPPER(prs_kenmerk2));
+
     v_seq_of_columns   VARCHAR (255);
     oracle_err_num     NUMBER;
     oracle_err_mes     VARCHAR2 (200);
@@ -83,6 +92,18 @@ BEGIN
        SET prs_perslid_naam = SUBSTR(prs_kenmerk3, INSTR(prs_kenmerk3,prs_perslid_naam), 60),
            prs_perslid_tussenvoegsel = substr(prs_kenmerk3, length(prs_perslid_voornaam)+2, INSTR(prs_kenmerk3,prs_perslid_naam) - (length(prs_perslid_voornaam)+3));
 
+    -- We gaan de afdeling en aanmaken als ze nog niet bestaan
+    FOR rec IN c_afd
+    LOOP
+       BEGIN
+          INSERT INTO prs_afdeling (prs_afdeling_naam, prs_afdeling_omschrijving, prs_bedrijf_key)
+               VALUES (SUBSTR(rec.prs_afdeling_omschrijving, 1,15), SUBSTR(rec.prs_afdeling_omschrijving, 1,60), 6);
+       EXCEPTION WHEN OTHERS
+       THEN
+          fac.imp_writelog (p_import_key, 'E', rec.prs_afdeling_omschrijving || ' Kan afdeling niet toevoegen', '');
+       END;
+    END LOOP;
+
     -- We gaan op zoek naar de afdelinsnaam die hoort bij de omschrijving in kenmerk2
     UPDATE fac_imp_perslid
        SET prs_afdeling_naam =
@@ -90,6 +111,10 @@ BEGIN
                   FROM prs_afdeling
                  WHERE UPPER (prs_afdeling_omschrijving) = UPPER (prs_kenmerk2));
 
+    -- Is de organisatie niet ingevuld dan komen de mensen onder afdeling NI te vallen.
+    -- In het kenmerk staat dan de afdeling zoals ze geimporteerd zijn.
+    UPDATE fac_imp_perslid SET prs_afdeling_naam = SUBSTR(prs_kenmerk2, 1,15) WHERE prs_afdeling_naam IS NULL;
+
     UPDATE fac_imp_perslid
        SET prs_perslid_oslogin =
                SUBSTR (prs_perslid_email, 1, INSTR (prs_perslid_email, '@') - 1);
@@ -101,15 +126,20 @@ CREATE OR REPLACE PROCEDURE brwn_update_perslid (p_import_key IN NUMBER)
 IS
    CURSOR c_del IS
       SELECT p.prs_perslid_key, p.prs_perslid_nr, pf.prs_perslid_naam_full, p.prs_perslid_oslogin
-        FROM fac_imp_perslid i, prs_perslid p, prs_v_perslid_fullnames_all pf, prs_afdeling a
+        FROM fac_imp_perslid i, prs_perslid p, prs_v_perslid_fullnames_all pf, prs_v_afdeling a
        WHERE p.prs_afdeling_key = a.prs_afdeling_key
          AND a.prs_bedrijf_key = 6 -- Brabant Wonen
-         AND p.prs_perslid_oslogin = i.prs_perslid_oslogin(+)
+         AND p.prs_perslid_email = i.prs_perslid_email(+)
          AND pf.prs_perslid_key = p.prs_perslid_key
-         AND (SUBSTR(p.prs_perslid_oslogin,1,1) <> '_' OR p.prs_perslid_oslogin IS NULL)
-         AND i.prs_perslid_oslogin IS NULL
+         AND i.prs_perslid_email IS NULL
          AND p.prs_perslid_verwijder IS NULL;
 
+   CURSOR c_updafd IS
+      SELECT prs_perslid_key, prs_kenmerk2
+        FROM fac_imp_perslid
+       WHERE prs_perslid_key IS NOT NULL;
+
+
     v_bedrijf_key        NUMBER (10);
     v_afdeling_key1      NUMBER (10);
     v_afdeling_key2      NUMBER (10);
@@ -131,7 +161,7 @@ BEGIN
        FROM fac_imp_perslid
       WHERE fac_import_key = p_import_key;
 
-    IF v_count > 2000
+    IF v_count > 200
     THEN
        FOR rec IN c_del LOOP
           BEGIN
@@ -146,6 +176,9 @@ BEGIN
     -- Standaard zetten we de zichtbaarheid aan
     UPDATE prs_perslid SET prs_perslid_visibility = 1 WHERE prs_perslid_aanmaak < SYSDATE - 1;
 
+    FOR rec IN c_updafd LOOP
+       FLX.setflex ('PRS', 1000, rec.prs_perslid_key, 'P', rec.prs_kenmerk2);  -- afdeling volgens AD
+    END LOOP;
     -- Zorg ervoor dat er geen persoonsgegevens achterblijven in de import tabel.
     -- DELETE fac_imp_perslid;
     COMMIT;
@@ -205,6 +238,26 @@ SELECT rrr.res_rsv_ruimte_van,
        AND TRUNC (res_rsv_ruimte_van) < TRUNC (SYSDATE) + 21
        AND res_rsv_ruimte_van > TRUNC (SYSDATE);
 
+-- Notificatie naar secretariaat bij nieuwe bestelling
+CREATE OR REPLACE VIEW brwn_v_noti_bo_bes
+AS
+    SELECT NULL                    sender,
+           NULL                    receiver,
+           'Facilitor: Er is een nieuwe bestelling ' || bes_bestelling_key  text,
+           'CUST01'                code,
+           bes_bestelling_key      key,
+           NULL     xkey,
+           'Secretariaat@brabantwonen.nl'     xemail,
+           NULL                    xmobile,
+           NULL                    attachments
+      FROM bes_bestelling      b
+     WHERE b.bes_bestelling_datum BETWEEN (SELECT fac_notificatie_job_nextrun - fac_notificatie_job_interval / 24
+                                             FROM fac_notificatie_job
+                                            WHERE fac_notificatie_job_view = 'BRWN_V_NOTI_BO_BES')
+                                      AND (SELECT fac_notificatie_job_nextrun
+                                             FROM fac_notificatie_job
+                                            WHERE fac_notificatie_job_view = 'BRWN_V_NOTI_BO_BES');
+
 ------ payload end   ------
 
 SET DEFINE OFF