admin/Database
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

PCHX#80376 Kunnen we een einddatum meegeven bij vervangers?

Browse Source 
svn path=/Database/trunk/; revision=66095
This commit is contained in:
Erik Groener
2024-09-02 06:32:46 +00:00
parent f8746bf3ef
commit be3b76b638
1 changed files with 3 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
PRS/PRS_PAC.SRC
View File

@@ -2881,9 +2881,6 @@ AS
PROCEDURE personen_vervangers_schonen PROCEDURE personen_vervangers_schonen
AS AS
v_errormsg VARCHAR2(1000);
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2(200);
v_count_del NUMBER(10); v_count_del NUMBER(10);
BEGIN BEGIN
v_count_del := 0; v_count_del := 0;
@@ -2893,16 +2890,10 @@ AS
WHERE prs_collega_vervaldatum < TRUNC(SYSDATE); WHERE prs_collega_vervaldatum < TRUNC(SYSDATE);
v_count_del := SQL%ROWCOUNT; v_count_del := SQL%ROWCOUNT;
fac.writelog ('PRS_COLLEGA_SCHONEN', 'S', 'Vervangers/#geschoond: ' || TO_CHAR (v_count_del), ''); IF v_count_del > 0
COMMIT;
EXCEPTION
WHEN OTHERS
THEN THEN
oracle_err_num := SQLCODE; fac.writelog ('PRS_COLLEGA_SCHONEN', 'S', 'Vervangers/#geschoond: ' || TO_CHAR (v_count_del), '');
oracle_err_mes := SUBSTR (SQLERRM, 1, 100); END IF;
v_errormsg := v_errormsg || ' ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
fac.writelog ('PRS_COLLEGA_SCHONEN', 'E', v_errormsg, '');
COMMIT;
END; END;
END prs; END prs;