MDUX#70774 Ondersteuning bij personen bijwerken dmv REST API

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

MDUX/mdux.sql

@@ -5,7 +5,7 @@
 
 DEFINE thisfile = 'MDUX.SQL'
 DEFINE dbuser   = '^MDUX'
-DEFINE custid   = 'MDUX'
+DEFINE custid   = 'MDUX' 
 
 SET ECHO ON
 SET DEFINE ON
@@ -5102,6 +5102,77 @@ BEGIN
     mdux_huurautos_afmelden ();
 END;
 /
+
+CREATE OR REPLACE PACKAGE MDUX
+AS
+   PROCEDURE verwijderen_personen;
+END;
+/
+
+CREATE OR REPLACE PACKAGE BODY MDUX
+AS
+    -- Dagelijks verwijderen personen (deze worden vanuit MISA via REST API aangemaakt/bijgehouden)
+    -- Een enddate bepaalt vanuit MISA (AFAS) dat de persoon verwijderd mag worden.
+    PROCEDURE verwijderen_personen
+    AS
+        c_applname       VARCHAR2 (50) := 'VERWIJDEREN_PERSONEN';
+        v_errormsg       VARCHAR2 (1000);
+        oracle_err_num   NUMBER;
+        oracle_err_mes   VARCHAR2 (200);
+        v_aanduiding     VARCHAR2 (200);
+
+        -- Alle personen verwijderen die niet meer in import bestand voorkomen.
+        CURSOR c_del IS
+              SELECT p.prs_perslid_key,
+                     p.prs_perslid_nr,
+                     pf.prs_perslid_naam_full
+                FROM prs_perslid p, prs_v_perslid_fullnames_all pf
+               WHERE     pf.prs_perslid_key = p.prs_perslid_key
+                     AND p.prs_perslid_nr IS NOT NULL
+                     AND p.prs_perslid_einddatum IS NOT NULL
+                     AND TRUNC (p.prs_perslid_einddatum) <= TRUNC (SYSDATE)
+                     AND p.prs_perslid_verwijder IS NULL
+                     AND p.prs_perslid_apikey IS NULL
+            ORDER BY 2;
+    BEGIN
+        --         LET OP: DAILY-taak draait dagelijks na middernacht (begin van dag)
+        FOR rec IN c_del
+        LOOP
+            BEGIN
+                prs.delete_perslid (NULL, rec.prs_perslid_key);
+            END;
+        END LOOP;
+    EXCEPTION
+        WHEN OTHERS
+        THEN
+            oracle_err_num := SQLCODE;
+            oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
+            v_errormsg :=
+                   'ORACLE (error '
+                || oracle_err_num
+                || '/'
+                || oracle_err_mes
+                || ')';
+            fac.writelog (c_applname,
+                          'E',
+                          v_aanduiding || v_errormsg,
+                          'Daily achtergrond taak afgebroken!');
+    END;
+END;
+/
+
+CREATE OR REPLACE PROCEDURE MDUX_DAILY
+AS
+   v_errormsg          VARCHAR2 (1000);
+   oracle_err_num      NUMBER;
+   oracle_err_mes      VARCHAR2 (200);
+BEGIN
+    -- Dagelijks verwijderen personen (deze worden vanuit MISA via REST API aangemaakt/bijgehouden)
+    -- Een enddate bepaalt vanuit MISA (AFAS) dat de persoon verwijderd mag worden. 
+    mdux.verwijderen_personen ();
+    
+END;
+/
    
 ------ payload end   ------