pnbr#362081: Inrichten bezoekersmodule + aanzetten

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

PNBR/pnbr.sql

@@ -133,6 +133,8 @@ AS
 
 CREATE OR REPLACE PACKAGE pnbr
 AS
+    PROCEDURE update_vertr_bezoeker  (p_bezoekers_key NUMBER);
+         
     PROCEDURE noti_bezoek;
 
     PROCEDURE noti_bezoek_gastheer;
@@ -157,7 +159,37 @@ END;
 
 CREATE OR REPLACE PACKAGE BODY pnbr
 AS
-    PROCEDURE noti_bezoek
+   PROCEDURE update_vertr_bezoeker (p_bezoekers_key IN NUMBER)
+    AS
+       oracle_err_num         NUMBER;
+       oracle_err_mes         VARCHAR2 (200);
+       v_errormsg             VARCHAR2 (200);
+       
+    BEGIN
+        -- Overschrijf de naam en het emailadres
+        UPDATE bez_bezoekers b
+           SET bez_afspraak_naam = 'Vertrouwelijk', bez_bezoekers_email = NULL
+         WHERE b.bez_bezoekers_key = p_bezoekers_key;
+        COMMIT;
+        
+    EXCEPTION
+        WHEN OTHERS
+        THEN
+            oracle_err_num := SQLCODE;
+            oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
+            v_errormsg :=
+                   'OTHERS (error '
+                || oracle_err_num
+                || '/'
+                || oracle_err_mes
+                || ')';
+            fac.writelog ('VERTR_BEZOEKER',
+                          'E',
+                          v_errormsg,
+                          '');
+    END;
+
+   PROCEDURE noti_bezoek
     AS
         -- cust01 brief naar cursusleider bij reserververingen
         -- cust02 dank/feedbackbrief naar cursusleider van reservering
@@ -7444,6 +7476,95 @@ EXCEPTION
 END;
 /
 
+CREATE OR REPLACE PROCEDURE pnbr_export_sms_bezoeker (
+    p_applname   IN VARCHAR2,
+    p_applrun    IN VARCHAR2,
+    p_filedir    IN VARCHAR2,
+    p_filename   IN VARCHAR2)
+AS
+    CURSOR bez IS
+        SELECT sn.fac_srtnotificatie_key,
+               4                      status,
+               '31652794464'        mobiel,  ---- nummer van de gastvrouwen/heren PNBR
+               t.fac_tracking_oms     text,
+               b.bez_afspraak_key,
+               b.bez_bezoekers_key,
+               t.fac_tracking_datum
+          FROM fac_tracking t, bez_bezoekers b, fac_srtnotificatie sn
+         WHERE     t.fac_srtnotificatie_key = 26   --- bezdon, aankomst bezoek
+               AND t.fac_tracking_refkey = b.bez_bezoekers_key
+               AND sn.fac_srtnotificatie_code = 'CUST07'
+               AND TRUNC (t.fac_tracking_datum) = TRUNC (SYSDATE)
+               AND b.bez_bezoekers_key NOT IN
+                       (SELECT kw.bez_bezoekers_key
+                          FROM bez_kenmerkwaarde kw, bez_kenmerk k
+                         WHERE     k.bez_kenmerk_key = kw.bez_kenmerk_key
+                               AND k.bez_kenmerk_upper = 'VERTROUWELIJK')  -- wanneer bezoek vertrouwelijk is geen sms
+               AND NOT EXISTS
+                       (SELECT bez_kenmerkwaarde_waarde
+                          FROM bez_kenmerkwaarde kw, bez_kenmerk k
+                         WHERE     k.bez_kenmerk_key = kw.bez_kenmerk_key
+                               AND k.bez_kenmerk_upper = 'SMS' -- sms verzonden
+                               AND kw.bez_bezoekers_key = b.bez_bezoekers_key);
+BEGIN
+    FOR rec IN bez
+    LOOP
+        -- de SMS berichten versturen
+        INSERT INTO fac_notificatie (fac_srtnotificatie_key,
+                                     fac_notificatie_status,
+                                     fac_notificatie_receiver_phone,
+                                     fac_notificatie_oms,
+                                     fac_notificatie_refkey,
+                                     fac_notificatie_extrakey,
+                                     fac_notificatie_prioriteit)
+             VALUES (rec.fac_srtnotificatie_key,
+                     rec.status,
+                     rec.mobiel,
+                     rec.text,
+                     rec.bez_afspraak_key,
+                     rec.bez_bezoekers_key,
+                     2);
+
+        -- een timestamp zetten dat de sms verstuurd is
+        pnbr.set_kenmerk ('BEZ', 1060, rec.bez_bezoekers_key, TO_CHAR (SYSDATE, 'yyyy-mm-dd hh24:mi:ss'), 0);
+       
+         COMMIT;
+                     
+    END LOOP;
+END;
+/
+
+-- Notificatie naar bezoeker binnen 3 dagen voor aanvang
+CREATE OR REPLACE VIEW PNBR_V_NOTI_BEZOEKERS
+(
+    SENDER,
+    RECEIVER,
+    TEXT,
+    CODE,
+    KEY,
+    XKEY,
+    XEMAIL,
+    XMOBILE
+)
+AS
+SELECT NULL                                         sender,
+       NULL                                         receiver,
+          'Uw bezoek op '
+       || TO_CHAR (bez_afspraak_datum, 'dd-mm-yyyy')
+       || ' aan het Provinciehuis Noord-Brabant'    text,
+       'CUST03'                                     code,
+       b.bez_afspraak_key                           key,
+       b.bez_bezoekers_key                          xkey,
+       bk.bez_kenmerkwaarde_waarde                  xemail,
+       NULL                                         xmobile
+  FROM bez_bezoekers b, bez_afspraak a, bez_kenmerkwaarde bk
+ WHERE     b.bez_afspraak_key = a.bez_afspraak_key
+       AND bk.bez_bezoekers_key = b.bez_bezoekers_key
+       AND bk.bez_kenmerk_key = 1001
+       AND TRIM (bk.bez_kenmerkwaarde_waarde) IS NOT NULL
+       AND TRUNC (a.bez_afspraak_datum) < TRUNC (SYSDATE) + 4
+       AND TRUNC (a.bez_afspraak_datum) > TRUNC (SYSDATE) - 1;
+           
 ------ payload end   ------
 
 SET DEFINE OFF