PCHX#80376 Kunnen we een einddatum meegeven bij vervangers?

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

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;
 /