From be3b76b638ae9153f2f864e39e5ad4ae811ce95a Mon Sep 17 00:00:00 2001 From: Erik Groener Date: Mon, 2 Sep 2024 06:32:46 +0000 Subject: [PATCH] PCHX#80376 Kunnen we een einddatum meegeven bij vervangers? svn path=/Database/trunk/; revision=66095 --- PRS/PRS_PAC.SRC | 15 +++------------ 1 file changed, 3 insertions(+), 12 deletions(-) diff --git a/PRS/PRS_PAC.SRC b/PRS/PRS_PAC.SRC index 5f295a4f..97d0390e 100644 --- a/PRS/PRS_PAC.SRC +++ b/PRS/PRS_PAC.SRC @@ -2881,9 +2881,6 @@ AS 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; @@ -2893,16 +2890,10 @@ AS 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 + IF v_count_del > 0 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; + fac.writelog ('PRS_COLLEGA_SCHONEN', 'S', 'Vervangers/#geschoond: ' || TO_CHAR (v_count_del), ''); + END IF; END; END prs;