PCHX#80376 Kunnen we een einddatum meegeven bij vervangers?

svn path=/Database/trunk/; revision=65243

FAC/FAC_LCL.SRC

@@ -3003,6 +3003,7 @@ FAC_LCL('lcl_prs_pers', 'pers.', 'pers.')
 FAC_LCL('lcl_prs_mobile', 'Mob. telefoon', 'Mob. phone')
 FAC_LCL('lcl_prs_email', 'E-mail', 'E-mail')
 FAC_LCL('lcl_prs_name', 'Naam', 'Name')
+FAC_LCL('lcl_prs_expire', 'Vervaldatum', 'Expire date')
 FAC_LCL('lcl_prs_frame_algemeen', 'Persoonlijke gegevens', 'Personal details')
 FAC_LCL('lcl_prs_basisblok', 'Basisgegevens', 'General details')
 FAC_LCL('lcl_prs_organisatieblok', 'Organisatiegegevens', 'Organisation details')

FAC/FAC_PAC.SRC

@@ -3305,6 +3305,8 @@ CREATE OR REPLACE PACKAGE BODY fac AS
       ins.compress_states(1);
       -- verwijderen inactieve personen
       prs.personen_inactief_schonen;
+      -- verwijderen vervangers waarvan vervaldatum vervallen is.
+      prs.personen_vervangers_schonen;
 
       fac_custprocedure('DAILY');
 

PRS/PRS_PAC.SRC

@@ -110,6 +110,7 @@ AS
 
    FUNCTION combinatievalidatie (p_kp_key IN NUMBER, p_ksrt_key IN NUMBER, p_disc_key IN NUMBER) RETURN BOOLEAN;
    PROCEDURE personen_inactief_schonen;
+   PROCEDURE personen_vervangers_schonen;
 END prs;
 /
 
@@ -2878,6 +2879,32 @@ AS
          COMMIT;
    END;
 
+   PROCEDURE personen_vervangers_schonen
+   AS
+      v_errormsg         VARCHAR2(1000);
+      oracle_err_num     NUMBER;
+      oracle_err_mes     VARCHAR2(200);
+      v_count_del        NUMBER(10);
+   BEGIN
+      v_count_del := 0;
+
+      DELETE
+        FROM prs_collega
+       WHERE prs_collega_vervaldatum < TRUNC(SYSDATE);
+      v_count_del := SQL%ROWCOUNT;
+
+      fac.writelog ('PRS_COLLEGA_SCHONEN', 'S', 'Vervangers/#geschoond: ' || TO_CHAR (v_count_del), '');
+      COMMIT;
+   EXCEPTION
+      WHEN OTHERS
+      THEN
+         oracle_err_num := SQLCODE;
+         oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
+         v_errormsg := v_errormsg || ' ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
+         fac.writelog ('PRS_COLLEGA_SCHONEN', 'E', v_errormsg, '');
+         COMMIT;
+   END;
+
 END prs;
 /