From 27955c14d0bd439f35ca62cabd2879735db35e11 Mon Sep 17 00:00:00 2001 From: Erik Groener Date: Tue, 28 Jun 2022 13:06:31 +0000 Subject: [PATCH] FCLT#73169 RAISE_APPLICATION_ERROR met volledige tekst moet ORA-20001 zijn, niet 20000 svn path=/Database/trunk/; revision=56410 --- ADM/ADM_PAC.SRC | 6 ++-- ALG/ALG_TRI.SRC | 76 +++++++++++++++++++++++----------------------- BES/BES_TRI.SRC | 32 +++++++++---------- BEZ/BEZ_TRI.SRC | 8 ++--- CNT/CNT_TRI.SRC | 8 ++--- FAC/FAC_PAC.SRC | 20 ++++++------ FAC/FAC_PACANO.SRC | 8 ++--- FAC/FAC_PACF.SRC | 2 +- FAC/FAC_TRI.SRC | 28 ++++++++--------- FIN/FIN_TRI.SRC | 28 ++++++++--------- INS/INS_TRI.SRC | 28 ++++++++--------- MLD/MLD_PAC.SRC | 2 +- MLD/MLD_TRI.SRC | 12 ++++---- PRJ/PRJ_PAC.SRC | 2 +- PRS/PRS_TRI.SRC | 42 ++++++++++++------------- RES/RES_TRI.SRC | 36 +++++++++++----------- 16 files changed, 168 insertions(+), 170 deletions(-) diff --git a/ADM/ADM_PAC.SRC b/ADM/ADM_PAC.SRC index 0ce1b0fc..8f8e5bf4 100644 --- a/ADM/ADM_PAC.SRC +++ b/ADM/ADM_PAC.SRC @@ -69,7 +69,7 @@ AS DBMS_OUTPUT.put_line ('Not found, no need to drop: ' || n); NULL; ELSE - raise_application_error (-20001, 'Error trying to DROP ' || n || ': ' || SQLERRM); + raise_application_error(-20001, 'Error trying to DROP ' || n || ': ' || SQLERRM); END IF; END; @@ -97,7 +97,7 @@ AS DBMS_OUTPUT.put_line ('Already exists, not altered: ' || n); NULL; ELSE - raise_application_error (-20001, 'Error trying to ALTER ' || n || ': ' || SQLERRM); + raise_application_error(-20001, 'Error trying to ALTER ' || n || ': ' || SQLERRM); END IF; END; @@ -196,7 +196,7 @@ AS || 'Wrong user!!!!!!!!!' || CHR(10) || tekst || CHR(10) || '============================================' || CHR(10); - RAISE_APPLICATION_ERROR(-20000, tekst); + raise_application_error(-20001, tekst); END IF; RETURN tekst; diff --git a/ALG/ALG_TRI.SRC b/ALG/ALG_TRI.SRC index 3e0baf2a..3dafbcd9 100644 --- a/ALG/ALG_TRI.SRC +++ b/ALG/ALG_TRI.SRC @@ -77,10 +77,10 @@ BEGIN WHERE mld_alg_locatie_key=:old.alg_locatie_key AND fac_activiteit_key IS NULL AND mld_melding_status IN (0,2,3,4,7); - APPLICATION_ERROR(-20000, 'alg_m999 Locatie kan nog niet verwijderd worden. Er zijn nog lopende meldingen'); + raise_application_error(-20001, 'alg_m999 Locatie kan nog niet verwijderd worden. Er zijn nog lopende meldingen'); EXCEPTION WHEN NO_DATA_FOUND THEN NULL; - WHEN TOO_MANY_ROWS THEN raise_application_error(-20000,'alg_m999 Locatie kan nog niet verwijderd worden. Er zijn nog lopende meldingen'); + WHEN TOO_MANY_ROWS THEN raise_application_error(-20001,'alg_m999 Locatie kan nog niet verwijderd worden. Er zijn nog lopende meldingen'); END; DELETE FROM cad_tekening WHERE alg_locatie_key=:old.alg_locatie_key; @@ -126,10 +126,10 @@ BEGIN WHERE mld_alg_onroerendgoed_keys=:old.alg_terreinsector_key AND fac_activiteit_key IS NULL AND mld_melding_status IN (0,2,3,4,7); - APPLICATION_ERROR(-20000, 'alg_m999 Terrein kan nog niet verwijderd worden. Er zijn nog lopende meldingen'); + raise_application_error(-20001, 'alg_m999 Terrein kan nog niet verwijderd worden. Er zijn nog lopende meldingen'); EXCEPTION WHEN NO_DATA_FOUND THEN NULL; - WHEN TOO_MANY_ROWS THEN APPLICATION_ERROR(-20000, 'alg_m999 Terrein kan nog niet verwijderd worden. Er zijn nog lopende meldingen'); + WHEN TOO_MANY_ROWS THEN raise_application_error(-20001, 'alg_m999 Terrein kan nog niet verwijderd worden. Er zijn nog lopende meldingen'); END; /* Terrein kent geen bezoekers */ END IF; @@ -168,10 +168,10 @@ BEGIN AND cnt_v_aanwezigcontract.cnt_contract_looptijd_tot > sysdate AND cnt_v_aanwezigcontract_plaats.cnt_alg_plaats_key = :old.alg_gebouw_key AND cnt_v_aanwezigcontract_plaats.cnt_alg_plaats_code = 'G'; - APPLICATION_ERROR_GOTO(-20000,'cnt_m026'); + raise_application_error(-20000,'cnt_m026'); EXCEPTION WHEN NO_DATA_FOUND THEN NULL; - WHEN TOO_MANY_ROWS THEN APPLICATION_ERROR_GOTO(-20000,'cnt_m026'); + WHEN TOO_MANY_ROWS THEN raise_application_error(-20000,'cnt_m026'); END; DECLARE @@ -183,10 +183,10 @@ BEGIN WHERE mld_alg_onroerendgoed_keys = :OLD.alg_gebouw_key AND fac_activiteit_key IS NULL AND mld_melding_status IN (0,2,3,4,7); - APPLICATION_ERROR(-20000, 'alg_m999 Gebouw kan nog niet verwijderd worden. Er zijn nog lopende meldingen'); + raise_application_error(-20001, 'alg_m999 Gebouw kan nog niet verwijderd worden. Er zijn nog lopende meldingen'); EXCEPTION WHEN NO_DATA_FOUND THEN NULL; - WHEN TOO_MANY_ROWS THEN APPLICATION_ERROR(-20000, 'alg_m999 Gebouw kan nog niet verwijderd worden. Er zijn nog lopende meldingen'); + WHEN TOO_MANY_ROWS THEN raise_application_error(-20001, 'alg_m999 Gebouw kan nog niet verwijderd worden. Er zijn nog lopende meldingen'); END; /* Wissen laat een ingevulde locatie_key over, wat goed is */ @@ -218,10 +218,10 @@ BEGIN AND cnt_v_aanwezigcontract.cnt_contract_looptijd_tot > sysdate AND cnt_v_aanwezigcontract_plaats.cnt_alg_plaats_key = :old.alg_verdieping_key AND cnt_v_aanwezigcontract_plaats.cnt_alg_plaats_code = 'V'; - APPLICATION_ERROR_GOTO(-20000,'cnt_m025'); + raise_application_error(-20000,'cnt_m025'); EXCEPTION WHEN NO_DATA_FOUND THEN NULL; - WHEN TOO_MANY_ROWS THEN APPLICATION_ERROR_GOTO(-20000,'cnt_m025'); + WHEN TOO_MANY_ROWS THEN raise_application_error(-20000,'cnt_m025'); END; DECLARE dummy CHAR; @@ -232,10 +232,10 @@ BEGIN WHERE mld_alg_onroerendgoed_keys=:old.alg_verdieping_key AND fac_activiteit_key IS NULL AND mld_melding_status IN (0,2,3,4,7); - APPLICATION_ERROR(-20000, 'alg_m999 Verdieping kan nog niet verwijderd worden. Er zijn nog lopende meldingen'); + raise_application_error(-20001, 'alg_m999 Verdieping kan nog niet verwijderd worden. Er zijn nog lopende meldingen'); EXCEPTION WHEN NO_DATA_FOUND THEN NULL; - WHEN TOO_MANY_ROWS THEN APPLICATION_ERROR(-20000, 'alg_m999 Verdieping kan nog niet verwijderd worden. Er zijn nog lopende meldingen'); + WHEN TOO_MANY_ROWS THEN raise_application_error(-20001, 'alg_m999 Verdieping kan nog niet verwijderd worden. Er zijn nog lopende meldingen'); END; DELETE FROM cad_tekening WHERE alg_verdieping_key=:old.alg_verdieping_key; @@ -296,10 +296,10 @@ BEGIN AND ALG_SR_2.alg_srtruimte_key = :new.alg_srtruimte_key AND ALG_SR_2.prs_bevat_werkplek IS NULL AND PRS_W.prs_alg_ruimte_key = :new.alg_ruimte_key; - APPLICATION_ERROR_GOTO(-20000, 'prs_m034'); + raise_application_error(-20000, 'prs_m034'); EXCEPTION WHEN NO_DATA_FOUND THEN NULL; - WHEN TOO_MANY_ROWS THEN APPLICATION_ERROR_GOTO(-20000, 'prs_m034'); + WHEN TOO_MANY_ROWS THEN raise_application_error(-20000, 'prs_m034'); END; END IF; IF :new.alg_ruimte_verwijder IS NOT NULL AND :old.alg_ruimte_verwijder IS NULL THEN @@ -313,10 +313,10 @@ BEGIN AND cnt_v_aanwezigcontract.cnt_contract_looptijd_tot > sysdate AND cnt_v_aanwezigcontract_plaats.cnt_alg_plaats_key = :old.alg_ruimte_key AND cnt_v_aanwezigcontract_plaats.cnt_alg_plaats_code = 'R'; - APPLICATION_ERROR_GOTO(-20000,'cnt_m024'); + raise_application_error(-20000,'cnt_m024'); EXCEPTION WHEN NO_DATA_FOUND THEN NULL; - WHEN TOO_MANY_ROWS THEN APPLICATION_ERROR_GOTO(-20000,'cnt_m024'); + WHEN TOO_MANY_ROWS THEN raise_application_error(-20000,'cnt_m024'); END; DECLARE @@ -352,10 +352,10 @@ BEGIN AND rd.res_rsv_deel_verwijder IS NULL AND res_rsv_ruimte_tot > SYSDATE-14 AND rd.res_status_bo_key < 5); - APPLICATION_ERROR(-20000, 'res_m039'); + raise_application_error(-20000, 'res_m039'); EXCEPTION WHEN NO_DATA_FOUND THEN NULL; - WHEN TOO_MANY_ROWS THEN APPLICATION_ERROR(-20000, 'res_m039'); + WHEN TOO_MANY_ROWS THEN raise_application_error(-20000, 'res_m039'); END; DECLARE @@ -367,10 +367,10 @@ BEGIN WHERE mld_alg_onroerendgoed_keys=:old.alg_ruimte_key AND fac_activiteit_key IS NULL AND mld_melding_status IN (0,2,3,4,7); - APPLICATION_ERROR(-20000, 'Ruimte kan nog niet verwijderd worden. Er zijn nog lopende meldingen'); + raise_application_error(-20001, 'Ruimte kan nog niet verwijderd worden. Er zijn nog lopende meldingen'); EXCEPTION WHEN NO_DATA_FOUND THEN NULL; - WHEN TOO_MANY_ROWS THEN APPLICATION_ERROR(-20000, 'alg_m999 Ruimte kan nog niet verwijderd worden. Er zijn nog lopende meldingen'); + WHEN TOO_MANY_ROWS THEN raise_application_error(-20001, 'alg_m999 Ruimte kan nog niet verwijderd worden. Er zijn nog lopende meldingen'); END; DECLARE @@ -382,10 +382,10 @@ BEGIN WHERE ins_alg_ruimte_key=:old.alg_ruimte_key AND ins_deel_verwijder IS NULL AND ins_alg_ruimte_type = 'R'; - APPLICATION_ERROR(-20000, 'alg_m999 Ruimte kan nog niet verwijderd worden. Er zijn nog objecten'); + raise_application_error(-20001, 'alg_m999 Ruimte kan nog niet verwijderd worden. Er zijn nog objecten'); EXCEPTION WHEN NO_DATA_FOUND THEN NULL; - WHEN TOO_MANY_ROWS THEN APPLICATION_ERROR(-20000, 'alg_m999 Ruimte kan nog niet verwijderd worden. Er zijn nog objecten'); + WHEN TOO_MANY_ROWS THEN raise_application_error(-20001, 'alg_m999 Ruimte kan nog niet verwijderd worden. Er zijn nog objecten'); END; UPDATE res_alg_ruimte @@ -418,11 +418,11 @@ BEGIN IF (:new.alg_kenmerk_verwijder IS NOT NULL AND :old.alg_kenmerk_verwijder IS NULL AND :new.alg_kenmerk_systeem = 1) THEN - APPLICATION_ERROR(-20003, 'ALG_M238'); + raise_application_error(-20000, 'ALG_M238'); END IF; IF :new.alg_kenmerk_kenmerktype IN ('C', 'N', 'B') AND :new.alg_kenmerk_lengte IS NULL THEN - APPLICATION_ERROR(-20000, 'ALG_C_ALG_KENMERK_LENGTE'); + raise_application_error(-20000, 'ALG_C_ALG_KENMERK_LENGTE'); END IF; -- Numeriek mag niet te lang zijn (numeric overflow) IF :new.alg_kenmerk_kenmerktype IN ('N', 'B') AND :new.alg_kenmerk_lengte > 20 @@ -447,9 +447,9 @@ BEGIN AND FAC.SAFE_TO_NUMBER(alg_onrgoedkenmerk_waarde) < :new.alg_kenmerk_nmin AND rownum=1); IF :new.alg_kenmerk_niveau = 'G' THEN - APPLICATION_ERROR(-20000, 'ALG_C_ALG_KENMERK_MIN_G'); + raise_application_error(-20000, 'ALG_C_ALG_KENMERK_MIN_G'); ELSE - APPLICATION_ERROR(-20000, 'ALG_C_ALG_KENMERK_MIN_R'); + raise_application_error(-20000, 'ALG_C_ALG_KENMERK_MIN_R'); END IF; EXCEPTION WHEN NO_DATA_FOUND @@ -457,9 +457,9 @@ BEGIN WHEN TOO_MANY_ROWS THEN BEGIN IF :new.alg_kenmerk_niveau = 'G' THEN - APPLICATION_ERROR(-20000, 'ALG_C_ALG_KENMERK_MIN_G'); + raise_application_error(-20000, 'ALG_C_ALG_KENMERK_MIN_G'); ELSE - APPLICATION_ERROR(-20000, 'ALG_C_ALG_KENMERK_MIN_R'); + raise_application_error(-20000, 'ALG_C_ALG_KENMERK_MIN_R'); END IF; END; END; @@ -480,9 +480,9 @@ BEGIN AND FAC.SAFE_TO_NUMBER(alg_onrgoedkenmerk_waarde) > :new.alg_kenmerk_nmax AND rownum=1); IF :new.alg_kenmerk_niveau = 'G' THEN - APPLICATION_ERROR(-20000, 'ALG_C_ALG_KENMERK_MAX_G'); + raise_application_error(-20000, 'ALG_C_ALG_KENMERK_MAX_G'); ELSE - APPLICATION_ERROR(-20000, 'ALG_C_ALG_KENMERK_MAX_R'); + raise_application_error(-20000, 'ALG_C_ALG_KENMERK_MAX_R'); END IF; EXCEPTION WHEN NO_DATA_FOUND @@ -490,9 +490,9 @@ BEGIN WHEN TOO_MANY_ROWS THEN BEGIN IF :new.alg_kenmerk_niveau = 'G' THEN - APPLICATION_ERROR(-20000, 'ALG_C_ALG_KENMERK_MAX_G'); + raise_application_error(-20000, 'ALG_C_ALG_KENMERK_MAX_G'); ELSE - APPLICATION_ERROR(-20000, 'ALG_C_ALG_KENMERK_MAX_R'); + raise_application_error(-20000, 'ALG_C_ALG_KENMERK_MAX_R'); END IF; END; END; @@ -547,7 +547,7 @@ BEGIN END IF; EXCEPTION WHEN NO_DATA_FOUND - THEN APPLICATION_ERROR_GOTO(-20000, 'ALG_M015'); + THEN raise_application_error(-20000, 'ALG_M015'); END; SELECT alg_kenmerk_omschrijving , alg_kenmerk_kenmerktype @@ -565,7 +565,7 @@ BEGIN WHERE alg_kenmerk_key = :new.alg_kenmerk_key; EXCEPTION WHEN NO_DATA_FOUND - THEN APPLICATION_ERROR_GOTO(-20000,'INS_R_INS_KENMERK_KEY1'); + THEN raise_application_error(-20000,'INS_R_INS_KENMERK_KEY1'); END; /* Kijk welk KenmerkType gebruikt wordt. @@ -581,8 +581,8 @@ BEGIN */ IF LENGTH(KenmerkWaarde) > KenmerkLengte THEN - APPLICATION_ERROR(-20004, 'ALG_M232,'|| KenmerkOmschr ||',' - || TO_CHAR(KenmerkLengte)); + APPLICATION_ERROR_GOTO(-20004, 'ALG_M232,'|| KenmerkOmschr ||',' + || TO_CHAR(KenmerkLengte)); END IF; ELSIF KenmerkType IN ('N', 'B') /* @@ -609,8 +609,8 @@ BEGIN THEN FormatMask := REPLACE(FormatMask, '9', '#'); FormatMask := REPLACE(FormatMask, '0', '#'); FormatMask := REPLACE(FormatMask, 'D', '.'); - RAISE_APPLICATION_ERROR(-20004,'ALG_M233,'|| KenmerkOmschr ||',' - || FormatMask); + APPLICATION_ERROR_GOTO(-20004,'ALG_M233,'|| KenmerkOmschr ||',' + || FormatMask); END; /* ** Controleer of de waarde binnen NMin en NMax ligt diff --git a/BES/BES_TRI.SRC b/BES/BES_TRI.SRC index 24e1df96..de0c1d9e 100644 --- a/BES/BES_TRI.SRC +++ b/BES/BES_TRI.SRC @@ -207,12 +207,12 @@ BEGIN IF (:new.bes_srtkenmerk_verwijder IS NOT NULL AND :old.bes_srtkenmerk_verwijder IS NULL AND :new.bes_srtkenmerk_systeem = 1) THEN - raise_application_error(-20003, 'bes_C_bes_SRTKENMERK_SYSTEEM'); + raise_application_error(-20000, 'bes_C_bes_SRTKENMERK_SYSTEEM'); END IF; IF :NEW.bes_srtkenmerk_kenmerktype IN ('C', 'N', 'B') AND :NEW.bes_srtkenmerk_lengte IS NULL THEN - raise_application_error (-20000, 'bes_C_bes_SRTKENMERK_LENGTE'); + raise_application_error(-20000, 'bes_C_bes_SRTKENMERK_LENGTE'); END IF; -- Numeriek mag niet te lang zijn (numeric overflow) IF :new.bes_srtkenmerk_kenmerktype IN ('N', 'B') AND :new.bes_srtkenmerk_lengte > 20 @@ -244,14 +244,14 @@ BEGIN FROM bes_kenmerk WHERE bes_srtkenmerk_key = :OLD.bes_srtkenmerk_key)); - raise_application_error (-20000, 'bes_C_bes_SRTKENMERK_MIN'); + raise_application_error(-20000, 'bes_C_bes_SRTKENMERK_MIN'); EXCEPTION WHEN NO_DATA_FOUND THEN NULL; WHEN TOO_MANY_ROWS THEN - raise_application_error (-20000, 'bes_C_bes_SRTKENMERK_MIN'); + raise_application_error(-20000, 'bes_C_bes_SRTKENMERK_MIN'); END; END IF; @@ -277,14 +277,14 @@ BEGIN FROM bes_kenmerk WHERE bes_srtkenmerk_key = :OLD.bes_srtkenmerk_key)); - raise_application_error (-20000, 'bes_C_bes_SRTKENMERK_MAX'); + raise_application_error(-20000, 'bes_C_bes_SRTKENMERK_MAX'); EXCEPTION WHEN NO_DATA_FOUND THEN NULL; WHEN TOO_MANY_ROWS THEN - raise_application_error (-20000, 'bes_C_bes_SRTKENMERK_MAX'); + raise_application_error(-20000, 'bes_C_bes_SRTKENMERK_MAX'); END; END IF; END IF; @@ -344,7 +344,7 @@ BEGIN -- IF kenmerkverplicht IS NOT NULL AND kenmerkbestellingwaarde IS NULL THEN - raise_application_error (-20004, 'bes_m240,' || srtkenmerkomschr); + APPLICATION_ERROR_GOTO(-20004, 'bes_m240,' || srtkenmerkomschr); -- -- Kijk welk KenmerkType gebruikt wordt. -- Aan de hand daarvan moet een controle uitgevoerd worden. @@ -355,7 +355,7 @@ BEGIN -- Controleer of de lengte te groot of goed is. IF LENGTH (kenmerkbestellingwaarde) > srtkenmerklengte THEN - raise_application_error (-20004, 'bes_m241,' || srtkenmerkomschr || ',' || TO_CHAR (srtkenmerklengte)); + APPLICATION_ERROR_GOTO(-20004, 'bes_m241,' || srtkenmerkomschr || ',' || TO_CHAR (srtkenmerklengte)); END IF; ELSIF srtkenmerktype IN ('N', 'B') THEN @@ -377,13 +377,13 @@ BEGIN formatmask := REPLACE (formatmask, '9', '#'); formatmask := REPLACE (formatmask, '0', '#'); formatmask := REPLACE (formatmask, 'D', '.'); - raise_application_error (-20004, 'bes_m242,' || srtkenmerkomschr || ',' || formatmask); + APPLICATION_ERROR_GOTO(-20004, 'bes_m242,' || srtkenmerkomschr || ',' || formatmask); END; -- Controleer of de waarde binnen NMin en NMax ligt. IF (srtkenmerknmin IS NOT NULL AND numberwaarde < srtkenmerknmin) OR (srtkenmerknmax IS NOT NULL AND numberwaarde > srtkenmerknmax) THEN - raise_application_error (-20004, + APPLICATION_ERROR_GOTO(-20004, 'bes_m243,' || srtkenmerkomschr || ',' @@ -400,7 +400,7 @@ BEGIN formatmask := REPLACE (formatmask, '9', '#'); formatmask := REPLACE (formatmask, '0', '#'); formatmask := REPLACE (formatmask, 'D', '.'); - raise_application_error (-20004, 'bes_m242,' || srtkenmerkomschr || ',' || formatmask); + APPLICATION_ERROR_GOTO(-20004, 'bes_m242,' || srtkenmerkomschr || ',' || formatmask); END IF; END IF; @@ -459,7 +459,7 @@ BEGIN -- IF kenmerkverplicht IS NOT NULL AND kenmerkbestelitemwaarde IS NULL THEN - raise_application_error (-20004, 'bes_m240,' || srtkenmerkomschr); + APPLICATION_ERROR_GOTO(-20004, 'bes_m240,' || srtkenmerkomschr); -- -- Kijk welk KenmerkType gebruikt wordt. -- Aan de hand daarvan moet een controle uitgevoerd worden. @@ -470,7 +470,7 @@ BEGIN -- Controleer of de lengte te groot of goed is. IF LENGTH (kenmerkbestelitemwaarde) > srtkenmerklengte THEN - raise_application_error (-20004, 'bes_m241,' || srtkenmerkomschr || ',' || TO_CHAR (srtkenmerklengte)); + APPLICATION_ERROR_GOTO(-20004, 'bes_m241,' || srtkenmerkomschr || ',' || TO_CHAR (srtkenmerklengte)); END IF; ELSIF srtkenmerktype IN ('N', 'B') THEN @@ -492,13 +492,13 @@ BEGIN formatmask := REPLACE (formatmask, '9', '#'); formatmask := REPLACE (formatmask, '0', '#'); formatmask := REPLACE (formatmask, 'D', '.'); - raise_application_error (-20004, 'bes_m242,' || srtkenmerkomschr || ',' || formatmask); + APPLICATION_ERROR_GOTO(-20004, 'bes_m242,' || srtkenmerkomschr || ',' || formatmask); END; -- Controleer of de waarde binnen NMin en NMax ligt. IF (srtkenmerknmin IS NOT NULL AND numberwaarde < srtkenmerknmin) OR (srtkenmerknmax IS NOT NULL AND numberwaarde > srtkenmerknmax) THEN - raise_application_error (-20004, + APPLICATION_ERROR_GOTO(-20004, 'bes_m243,' || srtkenmerkomschr || ',' @@ -515,7 +515,7 @@ BEGIN formatmask := REPLACE (formatmask, '9', '#'); formatmask := REPLACE (formatmask, '0', '#'); formatmask := REPLACE (formatmask, 'D', '.'); - raise_application_error (-20004, 'bes_m242,' || srtkenmerkomschr || ',' || formatmask); + APPLICATION_ERROR_GOTO(-20004, 'bes_m242,' || srtkenmerkomschr || ',' || formatmask); END IF; END IF; diff --git a/BEZ/BEZ_TRI.SRC b/BEZ/BEZ_TRI.SRC index 95861714..6c9f066b 100644 --- a/BEZ/BEZ_TRI.SRC +++ b/BEZ/BEZ_TRI.SRC @@ -111,13 +111,13 @@ BEGIN IF (:new.bez_kenmerk_verwijder IS NOT NULL AND :old.bez_kenmerk_verwijder IS NULL AND :new.bez_kenmerk_systeem = 1) THEN - APPLICATION_ERROR(-20003, 'ALG_M238'); + raise_application_error(-20000, 'ALG_M238'); END IF; IF (:new.bez_kenmerk_kenmerktype IN ('C','N')) AND :new.bez_kenmerk_lengte IS NULL THEN - APPLICATION_ERROR(-20000, 'ALG_C_ALG_KENMERK_LENGTE'); + raise_application_error(-20000, 'ALG_C_ALG_KENMERK_LENGTE'); END IF; IF :new.bez_kenmerk_kenmerktype = 'N' AND :new.bez_kenmerk_lengte > 20 @@ -218,7 +218,7 @@ BEGIN WHERE bez_kenmerk_key = :new.bez_kenmerk_key; EXCEPTION WHEN NO_DATA_FOUND - THEN APPLICATION_ERROR_GOTO(-20000,'INS_R_INS_KENMERK_KEY1'); + THEN raise_application_error(-20000,'INS_R_INS_KENMERK_KEY1'); END; /* Kijk welk KenmerkType gebruikt wordt. @@ -262,7 +262,7 @@ BEGIN THEN FormatMask := REPLACE(FormatMask, '9', '#'); FormatMask := REPLACE(FormatMask, '0', '#'); FormatMask := REPLACE(FormatMask, 'D', '.'); - RAISE_APPLICATION_ERROR(-20004,'ALG_M233,'|| KenmerkOmschr ||',' + APPLICATION_ERROR_GOTO(-20004,'ALG_M233,'|| KenmerkOmschr ||',' || FormatMask); END; /* diff --git a/CNT/CNT_TRI.SRC b/CNT/CNT_TRI.SRC index 9e36ad4f..ca79adc8 100644 --- a/CNT/CNT_TRI.SRC +++ b/CNT/CNT_TRI.SRC @@ -54,7 +54,7 @@ BEGIN THEN CHECK_KEY_REFERENCE(alg_v_aanweziglocatie , alg_locatie_key , :new.cnt_alg_plaats_key, 'cnt_m003'); ELSE - APPLICATION_ERROR(-20000, 'cnt_m008'); + raise_application_error(-20000, 'cnt_m008'); END IF; END IF; END; @@ -74,7 +74,7 @@ BEGIN OR ( :new.cnt_prs_perslid_key IS NOT NULL AND :new.cnt_prs_afdeling_key IS NOT NULL) THEN - APPLICATION_ERROR_GOTO(-20000,'cnt_m002'); + rasie_application_error(-20000,'cnt_m002'); ELSE UPDATE_PRIMARY_KEY(cnt_contract_key,cnt_s_cnt_contract_key); IF :new.cnt_contract_nummer_intern IS NULL @@ -138,7 +138,7 @@ BEGIN IF (:new.cnt_srtkenmerk_verwijder IS NOT NULL AND :old.cnt_srtkenmerk_verwijder IS NULL AND :new.cnt_srtkenmerk_systeem = 1) THEN - raise_application_error(-20003, 'CNT_C_CNT_SRTKENMERK_SYSTEEM'); + raise_application_error(-20000, 'CNT_C_CNT_SRTKENMERK_SYSTEEM'); END IF; -- IF :new.cnt_srtkenmerk_kenmerktype IN ('C', 'N', 'B') AND :new.cnt_srtkenmerk_lengte IS NULL @@ -296,7 +296,7 @@ BEGIN THEN FormatMask := REPLACE(FormatMask, '9', '#'); FormatMask := REPLACE(FormatMask, '0', '#'); FormatMask := REPLACE(FormatMask, 'D', '.'); - raise_application_error(-20004,'cnt_m242,'||SrtKenmerkOmschr||','||FormatMask); + APPLICATION_ERROR_GOTO(-20004,'cnt_m242,'||SrtKenmerkOmschr||','||FormatMask); END; -- Controleer of de waarde binnen NMin en NMax ligt. IF (SrtKenmerkNMin IS NOT NULL AND NumberWaarde < SrtKenmerkNMin) diff --git a/FAC/FAC_PAC.SRC b/FAC/FAC_PAC.SRC index 10ea7262..d6ae763f 100644 --- a/FAC/FAC_PAC.SRC +++ b/FAC/FAC_PAC.SRC @@ -1126,12 +1126,12 @@ CREATE OR REPLACE PACKAGE BODY fac AS v_error_nr := getobjectstatus(v_viewname, v_object_type, v_object_status, v_object_ddltime); -- Tweede poging END IF; ELSE - RAISE_APPLICATION_ERROR(-20000, 'Unable to determine columns for report view '|| v_viewname ||'.'); + raise_application_error(-20001, 'Unable to determine columns for report view '|| v_viewname ||'.'); END IF; IF (v_object_status <> 'VALID') THEN - RAISE_APPLICATION_ERROR(-20000, 'Report view '|| v_viewname ||' is INVALID!'); + raise_application_error(-20001, 'Report view '|| v_viewname ||' is INVALID!'); END IF; SELECT COUNT(*) @@ -1294,7 +1294,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS END IF; EXCEPTION WHEN NO_DATA_FOUND THEN - RAISE_APPLICATION_ERROR(-20000, 'Report key '|| p_usrrap_key ||' does not exist.'); + raise_application_error(-20001, 'Report key '|| p_usrrap_key ||' does not exist.'); END; END; @@ -1332,7 +1332,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS THEN NULL; ELSE - raise_application_error (-20001, 'Error trying to DROP: ' || SQLERRM); + raise_application_error(-20001, 'Error trying to DROP: ' || SQLERRM); END IF; END; @@ -1347,11 +1347,9 @@ CREATE OR REPLACE PACKAGE BODY fac AS THEN IF SQLCODE = -1031 -- insufficient privileges THEN - raise_application_error ( - -20001, - 'CREATE TABLE must be granted to this user: ' || USER); + raise_application_error(-20001, 'CREATE TABLE must be granted to this user: ' || USER); ELSE - raise_application_error (-20001, 'Error trying to DROP: ' || SQLERRM); + raise_application_error(-20001, 'Error trying to DROP: ' || SQLERRM); END IF; END; END LOOP; @@ -2695,7 +2693,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS -- we willen weten als we teveel sturen IF BITAND(pflags, 32) = 32 AND LENGTH(ltext) > 2048 THEN - raise_application_error (-20001, 'Facilitor warning: Jobcommand too long'); + raise_application_error(-20001, 'Facilitor warning: Jobcommand too long'); END IF; IF BITAND(pflags, 16) = 16 AND lcode IS NOT NULL AND lrefkey IS NOT NULL AND ltext IS NOT NULL @@ -3422,7 +3420,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS THEN ltrackcode := 'CNTTRK'; ELSE - raise_application_error (-20001, 'FACILITOR: Unknown notification'); + raise_application_error(-20001, 'FACILITOR: Unknown notification'); END CASE; fac.trackaction (ltrackcode, lkey, @@ -5196,7 +5194,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS -- Berekende datum moet later zijn als de meegegeven datum. IF p_date >= inspdate AND p_periode <> 0 THEN - raise_application_error (-20001, 'FACILITOR: Invalid inspection date calculated! Check interval parameters'); + raise_application_error(-20001, 'FACILITOR: Invalid inspection date calculated! Check interval parameters'); END IF; RETURN inspdate; END; diff --git a/FAC/FAC_PACANO.SRC b/FAC/FAC_PACANO.SRC index 9873642b..d209c838 100644 --- a/FAC/FAC_PACANO.SRC +++ b/FAC/FAC_PACANO.SRC @@ -58,7 +58,7 @@ CREATE OR REPLACE PACKAGE BODY ano AS BEGIN IF p_einddatum > SYSDATE - anonymize_period + 1 THEN - raise_application_error (-20000, 'ano_m001 Einddatum is te groot'); + raise_application_error(-20001, 'ano_m001 Einddatum is te groot'); END IF; v_count := 0; @@ -157,7 +157,7 @@ CREATE OR REPLACE PACKAGE BODY ano AS BEGIN IF p_einddatum > SYSDATE - anonymize_period + 1 THEN - raise_application_error (-20000, 'ano_m001 Einddatum is te groot'); + raise_application_error(-20001, 'ano_m001 Einddatum is te groot'); END IF; v_count := 0; @@ -262,7 +262,7 @@ CREATE OR REPLACE PACKAGE BODY ano AS BEGIN IF p_einddatum > SYSDATE - anonymize_period + 1 THEN - raise_application_error (-20000, 'ano_m001 Einddatum is te groot'); + raise_application_error(-20001, 'ano_m001 Einddatum is te groot'); END IF; v_count := 0; @@ -359,7 +359,7 @@ CREATE OR REPLACE PACKAGE BODY ano AS BEGIN IF p_einddatum > SYSDATE - anonymize_period + 1 THEN - raise_application_error (-20000, 'ano_m001 Einddatum is te groot'); + raise_application_error(-20001, 'ano_m001 Einddatum is te groot'); END IF; v_count := 0; diff --git a/FAC/FAC_PACF.SRC b/FAC/FAC_PACF.SRC index d7fffba4..0f5effb9 100644 --- a/FAC/FAC_PACF.SRC +++ b/FAC/FAC_PACF.SRC @@ -66,7 +66,7 @@ BEGIN THEN IF (a_fields.COUNT = 100) THEN - RAISE_APPLICATION_ERROR (-20000, 'More than ' || a_fields.COUNT || ' columns in csv'); + raise_application_error(-20001, 'More than ' || a_fields.COUNT || ' columns in csv'); END IF; a_fields.EXTEND; diff --git a/FAC/FAC_TRI.SRC b/FAC/FAC_TRI.SRC index 3d7f6be8..f40189e6 100644 --- a/FAC/FAC_TRI.SRC +++ b/FAC/FAC_TRI.SRC @@ -159,7 +159,7 @@ BEGIN -- Omdat de ASP dit voorkomt, is dit een error als vangnet IF keepit = 1 AND (:new.fac_gebruiker_prs_level_read = 9 OR :new.fac_gebruiker_alg_level_read = 9) THEN - raise_application_error (-20000, 'FAC_MGG1 this is insufficient authorisation for this right'); + raise_application_error(-20001, 'FAC_MGG1 this is insufficient authorisation for this right'); END IF; IF keepit = 0 THEN Dummy := fac.remember_SavePrimaryKey('FAC_GROEPRECHTEN',:new.fac_groeprechten_key); @@ -688,7 +688,7 @@ BEGIN IF objecttype IS NULL THEN - raise_application_error (-20000, 'FAC_MXX3 Invalid object'); + raise_application_error(-20001, 'FAC_MXX3 Invalid object'); ELSIF objecttype IN ('TABLE', 'VIEW') THEN DECLARE @@ -703,7 +703,7 @@ BEGIN EXCEPTION WHEN NO_DATA_FOUND THEN - raise_application_error (-20000, 'ALG_M236'); + raise_application_error(-20000, 'ALG_M236'); END; DECLARE @@ -718,11 +718,11 @@ BEGIN EXCEPTION WHEN NO_DATA_FOUND THEN - raise_application_error (-20000, 'ALG_M237'); + raise_application_error(-20000, 'ALG_M237'); END; ELSIF objecttype <> 'SYNONYM' THEN - raise_application_error (-20000, 'ALG_M235'); + raise_application_error(-20000, 'ALG_M235'); END IF; END; @@ -838,7 +838,7 @@ BEGIN WHERE faq_kenmerk_key = :new.faq_kenmerk_key; EXCEPTION WHEN NO_DATA_FOUND - THEN APPLICATION_ERROR_GOTO(-20000,'INS_R_INS_KENMERK_KEY1'); + THEN raise_application_error(-20000,'INS_R_INS_KENMERK_KEY1'); END; /* Kijk welk KenmerkType gebruikt wordt. @@ -854,7 +854,7 @@ BEGIN */ IF LENGTH(KenmerkWaarde) > KenmerkLengte THEN - APPLICATION_ERROR(-20004, 'faq_m232,'|| KenmerkOmschr ||',' + APPLICATION_ERROR_GOTO(-20004, 'faq_m232,'|| KenmerkOmschr ||',' || TO_CHAR(KenmerkLengte)); END IF; ELSIF KenmerkType IN ('N', 'B') @@ -882,7 +882,7 @@ BEGIN THEN FormatMask := REPLACE(FormatMask, '9', '#'); FormatMask := REPLACE(FormatMask, '0', '#'); FormatMask := REPLACE(FormatMask, 'D', '.'); - RAISE_APPLICATION_ERROR(-20004,'faq_m233,'|| KenmerkOmschr ||',' + APPLICATION_ERROR_GOTO(-20004,'faq_m233,'|| KenmerkOmschr ||',' || FormatMask); END; /* @@ -939,11 +939,11 @@ BEGIN IF (:new.faq_kenmerk_verwijder IS NOT NULL AND :old.faq_kenmerk_verwijder IS NULL AND :new.faq_kenmerk_systeem = 1) THEN - APPLICATION_ERROR(-20003, 'faq_m238'); + raise_application_error(-20000, 'faq_m238'); END IF; IF :new.faq_kenmerk_kenmerktype IN ('C','N', 'B') AND :new.faq_kenmerk_lengte IS NULL THEN - APPLICATION_ERROR(-20000, 'FAQ_C_FAQ_KENMERK_LENGTE'); + raise_application_error(-20000, 'FAQ_C_FAQ_KENMERK_LENGTE'); END IF; IF :new.faq_kenmerk_kenmerktype IN ('N', 'B') AND :new.faq_kenmerk_lengte > 20 THEN @@ -966,12 +966,12 @@ BEGIN WHERE faq_kenmerk_key = :old.faq_kenmerk_key AND FAC.SAFE_TO_NUMBER(faq_kenmerkwaarde_waarde) < :new.faq_kenmerk_nmin AND rownum=1); - APPLICATION_ERROR(-20000, 'FAQ_C_FAQ_KENMERK_MIN'); + raise_application_error(-20000, 'FAQ_C_FAQ_KENMERK_MIN'); EXCEPTION WHEN NO_DATA_FOUND THEN NULL; WHEN TOO_MANY_ROWS THEN - APPLICATION_ERROR(-20000, 'FAQ_C_FAQ_KENMERK_MIN'); + raise_application_error(-20000, 'FAQ_C_FAQ_KENMERK_MIN'); END; END IF; IF :old.faq_kenmerk_nmax <> :new.faq_kenmerk_nmax OR @@ -989,13 +989,13 @@ BEGIN WHERE faq_kenmerk_key = :old.faq_kenmerk_key AND FAC.SAFE_TO_NUMBER(faq_kenmerkwaarde_waarde) > :new.faq_kenmerk_nmax AND rownum=1); - APPLICATION_ERROR(-20000, 'FAQ_C_FAQ_KENMERK_MAX'); + raise_application_error(-20000, 'FAQ_C_FAQ_KENMERK_MAX'); EXCEPTION WHEN NO_DATA_FOUND THEN NULL; WHEN TOO_MANY_ROWS THEN BEGIN - APPLICATION_ERROR(-20000, 'FAQ_C_FAQ_KENMERK_MAX'); + raise_application_error(-20000, 'FAQ_C_FAQ_KENMERK_MAX'); END; END; END IF; diff --git a/FIN/FIN_TRI.SRC b/FIN/FIN_TRI.SRC index 6f3497d3..71c78f02 100644 --- a/FIN/FIN_TRI.SRC +++ b/FIN/FIN_TRI.SRC @@ -65,7 +65,7 @@ BEGIN WHERE fin_kenmerk_key = :new.fin_kenmerk_key; EXCEPTION WHEN NO_DATA_FOUND - THEN APPLICATION_ERROR_GOTO(-20000,'INS_R_INS_KENMERK_KEY1'); + THEN raise_application_error(-20000, 'INS_R_INS_KENMERK_KEY1'); END; /* Kijk welk KenmerkType gebruikt wordt. @@ -81,7 +81,7 @@ BEGIN */ IF LENGTH(KenmerkWaarde) > KenmerkLengte THEN - APPLICATION_ERROR(-20004, 'fin_M232,'|| KenmerkOmschr ||',' + APPLICATION_ERROR_GOTO(-20004, 'fin_M232,'|| KenmerkOmschr ||',' || TO_CHAR(KenmerkLengte)); END IF; ELSIF KenmerkType IN ('N', 'B') @@ -109,7 +109,7 @@ BEGIN THEN FormatMask := REPLACE(FormatMask, '9', '#'); FormatMask := REPLACE(FormatMask, '0', '#'); FormatMask := REPLACE(FormatMask, 'D', '.'); - RAISE_APPLICATION_ERROR(-20004,'fin_M233,'|| KenmerkOmschr ||',' + APPLICATION_ERROR_GOTO(-20004, 'fin_M233,'|| KenmerkOmschr ||',' || FormatMask); END; /* @@ -131,7 +131,7 @@ BEGIN FormatMask := REPLACE(FormatMask, '9', '#'); FormatMask := REPLACE(FormatMask, '0', '#'); FormatMask := REPLACE(FormatMask, 'D', '.'); - APPLICATION_ERROR_GOTO(-20004,'fin_M233,'|| KenmerkOmschr ||',' + APPLICATION_ERROR_GOTO(-20004, 'fin_M233,'|| KenmerkOmschr ||',' || FormatMask); END IF; END IF; @@ -200,7 +200,7 @@ BEGIN WHERE fin_kenmerk_key = :new.fin_kenmerk_key; EXCEPTION WHEN NO_DATA_FOUND - THEN APPLICATION_ERROR_GOTO(-20000,'INS_R_INS_KENMERK_KEY1'); + THEN raise_application_error(-20000, 'INS_R_INS_KENMERK_KEY1'); END; /* Kijk welk KenmerkType gebruikt wordt. @@ -216,7 +216,7 @@ BEGIN */ IF LENGTH(KenmerkWaarde) > KenmerkLengte THEN - APPLICATION_ERROR(-20004, 'fin_M232,'|| KenmerkOmschr ||',' + APPLICATION_ERROR_GOTO(-20004, 'fin_M232,'|| KenmerkOmschr ||',' || TO_CHAR(KenmerkLengte)); END IF; ELSIF KenmerkType = 'N' @@ -244,7 +244,7 @@ BEGIN THEN FormatMask := REPLACE(FormatMask, '9', '#'); FormatMask := REPLACE(FormatMask, '0', '#'); FormatMask := REPLACE(FormatMask, 'D', '.'); - RAISE_APPLICATION_ERROR(-20004,'fin_M233,'|| KenmerkOmschr ||',' + APPLICATION_ERROR_GOTO(-20004, 'fin_M233,'|| KenmerkOmschr ||',' || FormatMask); END; /* @@ -266,7 +266,7 @@ BEGIN FormatMask := REPLACE(FormatMask, '9', '#'); FormatMask := REPLACE(FormatMask, '0', '#'); FormatMask := REPLACE(FormatMask, 'D', '.'); - APPLICATION_ERROR_GOTO(-20004,'fin_M233,'|| KenmerkOmschr ||',' + APPLICATION_ERROR_GOTO(-20004, 'fin_M233,'|| KenmerkOmschr ||',' || FormatMask); END IF; END IF; @@ -300,11 +300,11 @@ BEGIN IF (:new.fin_kenmerk_verwijder IS NOT NULL AND :old.fin_kenmerk_verwijder IS NULL AND :new.fin_kenmerk_systeem = 1) THEN - APPLICATION_ERROR(-20003, 'fin_M238'); + raise_application_error(-20000, 'fin_M238'); END IF; IF :new.fin_kenmerk_kenmerktype IN ('C','N', 'B') AND :new.fin_kenmerk_lengte IS NULL THEN - APPLICATION_ERROR(-20000, 'fin_C_fin_KENMERK_LENGTE'); + raise_application_error(-20000, 'fin_C_fin_KENMERK_LENGTE'); END IF; -- Numeriek mag niet te lang zijn (numeric overflow) IF :new.fin_kenmerk_kenmerktype IN ('N', 'B') AND :new.fin_kenmerk_lengte > 20 @@ -328,12 +328,12 @@ BEGIN WHERE fin_kenmerk_key = :old.fin_kenmerk_key AND FAC.SAFE_TO_NUMBER(fin_kenmerkfactuur_waarde) < :new.fin_kenmerk_nmin AND rownum=1); - APPLICATION_ERROR(-20000, 'FIN_C_FIN_KENMERK_MIN'); + raise_application_error(-20000, 'FIN_C_FIN_KENMERK_MIN'); EXCEPTION WHEN NO_DATA_FOUND THEN NULL; WHEN TOO_MANY_ROWS THEN - APPLICATION_ERROR(-20000, 'FIN_C_FIN_KENMERK_MIN'); + raise_application_error(-20000, 'FIN_C_FIN_KENMERK_MIN'); END; END IF; IF :old.fin_kenmerk_nmax <> :new.fin_kenmerk_nmax OR @@ -351,13 +351,13 @@ BEGIN WHERE fin_kenmerk_key = :old.fin_kenmerk_key AND FAC.SAFE_TO_NUMBER(fin_kenmerkfactuur_waarde) > :new.fin_kenmerk_nmax AND rownum=1); - APPLICATION_ERROR(-20000, 'FIN_C_FIN_KENMERK_MAX'); + raise_application_error(-20000, 'FIN_C_FIN_KENMERK_MAX'); EXCEPTION WHEN NO_DATA_FOUND THEN NULL; WHEN TOO_MANY_ROWS THEN BEGIN - APPLICATION_ERROR(-20000, 'FIN_C_FIN_KENMERK_MAX'); + raise_application_error(-20000, 'FIN_C_FIN_KENMERK_MAX'); END; END; END IF; diff --git a/INS/INS_TRI.SRC b/INS/INS_TRI.SRC index ac1e0ed0..cb9cd946 100644 --- a/INS/INS_TRI.SRC +++ b/INS/INS_TRI.SRC @@ -46,14 +46,14 @@ BEGIN OR m.mld_ins_discipline_key = :new.ins_discipline_key) AND m.mld_stdmelding_key = stdm.mld_stdmelding_key AND m.mld_melding_status IN (0,2,3,4,7); - raise_application_error (-20000, 'ins_m999 Vakgroep heeft nog open meldingen'); + raise_application_error(-20001, 'ins_m999 Vakgroep heeft nog open meldingen'); EXCEPTION WHEN NO_DATA_FOUND THEN NULL; WHEN TOO_MANY_ROWS THEN - raise_application_error (-20000, 'ins_m999 Vakgroep heeft nog open meldingen'); + raise_application_error(-20001, 'ins_m999 Vakgroep heeft nog open meldingen'); END; END IF; @@ -78,14 +78,14 @@ BEGIN AND isg.ins_discipline_key = :new.ins_discipline_key AND bo.bes_bestelopdr_status IN (2, 3, 4, 5); - raise_application_error (-20000, 'ins_m999 Catalogus heeft nog open bestelopdrachten'); + raise_application_error(-20001, 'ins_m999 Catalogus heeft nog open bestelopdrachten'); EXCEPTION WHEN NO_DATA_FOUND THEN NULL; WHEN TOO_MANY_ROWS THEN - raise_application_error (-20000, 'ins_m999 Catalogus heeft nog open bestelopdrachten'); + raise_application_error(-20001, 'ins_m999 Catalogus heeft nog open bestelopdrachten'); END; END IF; @@ -103,14 +103,14 @@ BEGIN AND c.cnt_contract_status = 0 AND c.cnt_contract_verwijder IS NULL AND c.cnt_contract_looptijd_tot >= SYSDATE; - raise_application_error (-20000, 'ins_m999 Contractsoort heeft nog actieve contracten'); + raise_application_error(-20001, 'ins_m999 Contractsoort heeft nog actieve contracten'); EXCEPTION WHEN NO_DATA_FOUND THEN NULL; WHEN TOO_MANY_ROWS THEN - raise_application_error (-20000, 'ins_m999 Contractsoort heeft nog actieve contracten'); + raise_application_error(-20001, 'ins_m999 Contractsoort heeft nog actieve contracten'); END; END IF; @@ -170,10 +170,10 @@ BEGIN INTO dummy FROM cnt_v_aanwezigcontract_object WHERE cnt_v_aanwezigcontract_object.cnt_ins_srtdeel_key = :old.ins_srtdeel_key; - APPLICATION_ERROR_GOTO(-20000,'cnt_m029'); + raise_application_error(-20000, 'cnt_m029'); EXCEPTION WHEN NO_DATA_FOUND THEN NULL; - WHEN TOO_MANY_ROWS THEN APPLICATION_ERROR_GOTO(-20000,'cnt_m029'); + WHEN TOO_MANY_ROWS THEN raise_application_error(-20000, 'cnt_m029'); END; END IF; // @@ -235,7 +235,7 @@ BEGIN AND O.mld_melding_key = M.mld_melding_key AND M.mld_melding_status IN (0,2,3,4,7); IF lCount > 0 THEN - APPLICATION_ERROR_GOTO(-20000,'ins_m202'); + raise_application_error(-20000, 'ins_m202'); ELSE Dummy1 := fac.remember_SavePrimaryKey('INS_DEEL_ONTKOPPEL', :new.ins_deel_key); END IF; @@ -320,7 +320,7 @@ BEGIN THEN CHECK_KEY_REFERENCE(prs_v_aanwezigperslid , prs_perslid_key , :new.ins_alg_ruimte_key, 'ins_m195'); ELSE - APPLICATION_ERROR_GOTO(-20000, 'ins_m84'); + raise_application_error(-20000, 'ins_m84'); END IF; DECLARE Dummy BOOLEAN; @@ -467,7 +467,7 @@ BEGIN UPDATE ins_deel SET ins_deel_verwijder = null WHERE ins_deel_key = PrimaryKey; - APPLICATION_ERROR_GOTO(-20000,'ins_m202'); + raise_application_error(-20000, 'ins_m202'); ELSE -- Dit object of een van zijn onderdelen wordt niet als referentie naar een ander object gebruikt. -- De onderdelen mogen nu ook verwijderd worden. @@ -585,12 +585,12 @@ BEGIN IF (:new.ins_srtkenmerk_verwijder IS NOT NULL AND :old.ins_srtkenmerk_verwijder IS NULL AND :new.ins_srtkenmerk_systeem = 1) THEN - APPLICATION_ERROR(-20003, 'INS_M156'); + raise_application_error(-20000, 'INS_M156'); END IF; IF :new.ins_srtkenmerk_kenmerktype IN ('C', 'N', 'B') AND :new.ins_srtkenmerk_lengte IS NULL THEN - APPLICATION_ERROR(-20000, 'INS_C_INS_SRTKENMERK_LENGTE'); + raise_application_error(-20000, 'INS_C_INS_SRTKENMERK_LENGTE'); END IF; -- Numeriek mag niet te lang zijn (numeric overflow) IF :new.ins_srtkenmerk_kenmerktype IN ('N', 'B') AND :new.ins_srtkenmerk_lengte > 20 @@ -928,7 +928,7 @@ BEFORE DELETE ON ins_scenario FOR EACH ROW BEGIN IF :old.ins_scenario_key = 1 THEN - raise_application_error (-20000, 'Cannot delete actual scenario'); + raise_application_error(-20001, 'Cannot delete actual scenario'); END IF; END; / diff --git a/MLD/MLD_PAC.SRC b/MLD/MLD_PAC.SRC index c3d14c12..0019d923 100644 --- a/MLD/MLD_PAC.SRC +++ b/MLD/MLD_PAC.SRC @@ -2691,7 +2691,7 @@ CREATE OR REPLACE PACKAGE BODY mld AS WHEN TOO_MANY_ROWS THEN raise_application_error ( - -20000, + -20001, 'Soortkenmerk ' || r_mld_kenmerken.mld_srtkenmerk_key || ' is op meerdere niveaus gedefinieerd'); diff --git a/MLD/MLD_TRI.SRC b/MLD/MLD_TRI.SRC index 3fe5bf11..5631436e 100644 --- a/MLD/MLD_TRI.SRC +++ b/MLD/MLD_TRI.SRC @@ -245,7 +245,7 @@ BEGIN IF :new.prs_perslid_key IS NULL THEN - APPLICATION_ERROR_GOTO(-20000, 'mld_m233'); + raise_application_error(-20000, 'mld_m233'); END IF; -- Verwerken IF :new.mld_melding_status = 6 AND :old.mld_melding_status <> 6 @@ -254,7 +254,7 @@ BEGIN IF :old.mld_melding_status <> 5 THEN -- wat alleen mag als de status afgemeld(5) was - raise_application_error (-20000, 'mld_m203'); + raise_application_error(-20000, 'mld_m203'); END IF; END IF; @@ -319,7 +319,7 @@ BEGIN THEN IF :NEW.cnt_contract_key IS NULL THEN - raise_application_error (-20000, 'mld_m201'); + raise_application_error(-20000, 'mld_m201'); END IF; END; END IF; @@ -370,7 +370,7 @@ BEGIN IF (:new.mld_srtkenmerk_verwijder IS NOT NULL AND :old.mld_srtkenmerk_verwijder IS NULL AND BITAND(:new.mld_srtkenmerk_systeem, 1) = 1) THEN - raise_application_error(-20003, 'MLD_C_MLD_SRTKENMERK_SYSTEEM'); + raise_application_error(-20000, 'MLD_C_MLD_SRTKENMERK_SYSTEEM'); END IF; -- IF :new.mld_srtkenmerk_kenmerktype IN ('C', 'N', 'B') AND :new.mld_srtkenmerk_lengte IS NULL @@ -533,7 +533,7 @@ BEGIN THEN FormatMask := REPLACE(FormatMask, '9', '#'); FormatMask := REPLACE(FormatMask, '0', '#'); FormatMask := REPLACE(FormatMask, 'D', '.'); - raise_application_error(-20004,'mld_m242,'||SrtKenmerkOmschr||','||FormatMask); + APPLICATION_ERROR_GOTO(-20004, 'mld_m242,'||SrtKenmerkOmschr||','||FormatMask); END; -- Controleer of de waarde binnen NMin en NMax ligt. IF (SrtKenmerkNMin IS NOT NULL AND NumberWaarde < SrtKenmerkNMin) @@ -654,7 +654,7 @@ BEGIN THEN FormatMask := REPLACE(FormatMask, '9', '#'); FormatMask := REPLACE(FormatMask, '0', '#'); FormatMask := REPLACE(FormatMask, 'D', '.'); - raise_application_error(-20004,'mld_m242,'||SrtKenmerkOmschr||','||FormatMask); + APPLICATION_ERROR_GOTO(-20004, 'mld_m242,'||SrtKenmerkOmschr||','||FormatMask); END; -- Controleer of de waarde binnen NMin en NMax ligt. IF (SrtKenmerkNMin IS NOT NULL AND NumberWaarde < SrtKenmerkNMin) diff --git a/PRJ/PRJ_PAC.SRC b/PRJ/PRJ_PAC.SRC index 57831662..a6376f07 100644 --- a/PRJ/PRJ_PAC.SRC +++ b/PRJ/PRJ_PAC.SRC @@ -385,7 +385,7 @@ AS NULL; RETURN; END; - raise_application_error (-20002, 'prj package: copy not yet supported'); + raise_application_error(-20001, 'prj package: copy not yet supported'); RETURN; -- ** Parameters are proven valid -- Kopieer de ruimtes diff --git a/PRS/PRS_TRI.SRC b/PRS/PRS_TRI.SRC index 6e55a7b3..41efbea3 100644 --- a/PRS/PRS_TRI.SRC +++ b/PRS/PRS_TRI.SRC @@ -28,12 +28,12 @@ BEGIN FROM mld_opdr MLD_O WHERE MLD_O.mld_statusopdr_key IN (5, 8) AND MLD_O.mld_uitvoerende_keys = :new.prs_srtperslid_key; - APPLICATION_ERROR(-20000, 'prs_m084'); + raise_application_error(-20000, 'prs_m084'); EXCEPTION WHEN NO_DATA_FOUND THEN NULL; WHEN TOO_MANY_ROWS - THEN APPLICATION_ERROR(-20000, 'prs_m084'); + THEN raise_application_error(-20000, 'prs_m084'); END; END IF; // @@ -62,10 +62,10 @@ BEGIN WHERE (cnt_v_aanwezigcontract.cnt_prs_afdeling_key = :old.prs_afdeling_key OR cnt_v_aanwezigcontract.prs_afdeling_key_eig = :old.prs_afdeling_key) AND cnt_v_aanwezigcontract.cnt_contract_looptijd_tot > SYSDATE; - APPLICATION_ERROR_GOTO(-20000,'cnt_m022'); + raise_application_error(-20000, 'cnt_m022'); EXCEPTION WHEN NO_DATA_FOUND THEN NULL; - WHEN TOO_MANY_ROWS THEN APPLICATION_ERROR_GOTO(-20000,'cnt_m022'); + WHEN TOO_MANY_ROWS THEN raise_application_error(-20000, 'cnt_m022'); END; END IF; -- @@ -82,10 +82,10 @@ BEGIN WHERE ins_deel_verwijder IS NULL AND ins_alg_ruimte_type = 'A' AND ins_alg_ruimte_key = :old.prs_afdeling_key; - APPLICATION_ERROR_GOTO(-20000,'prs_m173'); + raise_application_error(-20000, 'prs_m173'); EXCEPTION WHEN NO_DATA_FOUND THEN NULL; - WHEN TOO_MANY_ROWS THEN APPLICATION_ERROR_GOTO(-20000,'prs_m173'); + WHEN TOO_MANY_ROWS THEN raise_application_error(-20000, 'prs_m173'); END; END IF; END; @@ -158,7 +158,7 @@ BEGIN ) THEN -- Persoon mag niet verwijderd worden omdat flagbit=32 aan staat. - raise_application_error(-20000, 'Delete not allowed'); + raise_application_error(-20001, 'Delete not allowed'); ELSE DECLARE dummy VARCHAR2(1); @@ -170,10 +170,10 @@ BEGIN FROM mld_opdr MLD_O WHERE MLD_O.mld_statusopdr_key IN (5, 8) AND MLD_O.mld_uitvoerende_keys = :new.prs_perslid_key; - APPLICATION_ERROR_GOTO(-20000, 'prs_m085'); + raise_application_error(-20000, 'prs_m085'); EXCEPTION WHEN NO_DATA_FOUND THEN NULL; - WHEN TOO_MANY_ROWS THEN APPLICATION_ERROR_GOTO(-20000, 'prs_m085'); + WHEN TOO_MANY_ROWS THEN raise_application_error(-20000, 'prs_m085'); END; DECLARE @@ -189,10 +189,10 @@ BEGIN AND ins_alg_ruimte_key = :old.prs_perslid_key AND DI.ins_discipline_key = D.ins_discipline_key AND DI.ins_discipline_min_level <> 3; - APPLICATION_ERROR_GOTO(-20000,'prs_m175'); + raise_application_error(-20000, 'prs_m175'); EXCEPTION WHEN NO_DATA_FOUND THEN NULL; - WHEN TOO_MANY_ROWS THEN APPLICATION_ERROR_GOTO(-20000,'prs_m175'); + WHEN TOO_MANY_ROWS THEN raise_application_error(-20000, 'prs_m175'); END; -- Hierna kan het verwijderen niet meer falen @@ -320,7 +320,7 @@ FOR EACH ROW BEGIN IF (BITAND(:old.prs_perslid_flags,32) = 32 OR BITAND(:new.prs_perslid_flags,32) = 32) THEN - raise_application_error(-20000, 'Delete not allowed'); + raise_application_error(-20001, 'Delete not allowed'); END IF; DELETE FROM prs_kenmerklink KL WHERE KL.prs_link_key=:old.prs_perslid_key AND KL.prs_kenmerklink_niveau='P'; END; @@ -397,12 +397,12 @@ BEGIN FROM mld_opdr MLD_O WHERE MLD_O.mld_statusopdr_key IN (5, 8) AND MLD_O.mld_uitvoerende_keys = :new.prs_bedrijf_key; - APPLICATION_ERROR_GOTO(-20000, 'prs_m086'); + raise_application_error(-20000, 'prs_m086'); EXCEPTION WHEN NO_DATA_FOUND THEN NULL; WHEN TOO_MANY_ROWS - THEN APPLICATION_ERROR_GOTO(-20000, 'prs_m086'); + THEN raise_application_error(-20000, 'prs_m086'); END; END IF; @@ -415,10 +415,10 @@ BEGIN FROM cnt_v_aanwezigcontract WHERE cnt_v_aanwezigcontract.cnt_prs_bedrijf_key = :old.prs_bedrijf_key AND cnt_v_aanwezigcontract.cnt_contract_looptijd_tot > sysdate; - APPLICATION_ERROR_GOTO(-20000,'cnt_m023'); + raise_application_error(-20000, 'cnt_m023'); EXCEPTION WHEN NO_DATA_FOUND THEN NULL; - WHEN TOO_MANY_ROWS THEN APPLICATION_ERROR_GOTO(-20000,'cnt_m023'); + WHEN TOO_MANY_ROWS THEN raise_application_error(-20000, 'cnt_m023'); END; END IF; -- Ruim de afhankelijheden op: @@ -469,12 +469,12 @@ BEGIN IF (:new.prs_kenmerk_verwijder IS NOT NULL AND :old.prs_kenmerk_verwijder IS NULL AND :new.prs_kenmerk_systeem = 1) THEN - APPLICATION_ERROR(-20003, 'ALG_M238'); + raise_application_error(-20000, 'ALG_M238'); END IF; IF :new.prs_kenmerk_kenmerktype IN ('C', 'N', 'B') AND :new.prs_kenmerk_lengte IS NULL THEN - APPLICATION_ERROR(-20000, 'ALG_C_ALG_KENMERK_LENGTE'); + raise_application_error(-20000, 'ALG_C_ALG_KENMERK_LENGTE'); END IF; IF :new.prs_kenmerk_kenmerktype IN ('N', 'B') AND :new.prs_kenmerk_lengte > 20 THEN @@ -603,7 +603,7 @@ BEGIN END IF; EXCEPTION WHEN NO_DATA_FOUND - THEN APPLICATION_ERROR_GOTO(-20000, 'ALG_M015'); + THEN raise_application_error(-20000, 'ALG_M015'); END; SELECT prs_kenmerk_omschrijving , prs_kenmerk_kenmerktype @@ -621,7 +621,7 @@ BEGIN WHERE prs_kenmerk_key = :new.prs_kenmerk_key; EXCEPTION WHEN NO_DATA_FOUND - THEN APPLICATION_ERROR_GOTO(-20000,'INS_R_INS_KENMERK_KEY1'); + THEN raise_application_error(-20000, 'INS_R_INS_KENMERK_KEY1'); END; /* Kijk welk KenmerkType gebruikt wordt. @@ -665,7 +665,7 @@ BEGIN THEN FormatMask := REPLACE(FormatMask, '9', '#'); FormatMask := REPLACE(FormatMask, '0', '#'); FormatMask := REPLACE(FormatMask, 'D', '.'); - RAISE_APPLICATION_ERROR(-20004,'ALG_M233,'|| KenmerkOmschr ||',' + APPLICATION_ERROR_GOTO(-20004, 'ALG_M233,'|| KenmerkOmschr ||',' || FormatMask); END; /* diff --git a/RES/RES_TRI.SRC b/RES/RES_TRI.SRC index a7cc5a15..3bebd71c 100644 --- a/RES/RES_TRI.SRC +++ b/RES/RES_TRI.SRC @@ -126,7 +126,7 @@ BEGIN AND res_rsv_deel_tot > SYSDATE-14 -- na 14 dagen niet meer klagen AND rs.res_status_bo_key IN (2, 3, 4, 7); - raise_application_error (-20000, 'res_m034'); + raise_application_error(-20000, 'res_m034'); EXCEPTION WHEN NO_DATA_FOUND THEN NULL; WHEN TOO_MANY_ROWS THEN raise_application_error(-20000,'res_m034'); @@ -155,7 +155,7 @@ BEGIN AND res_rsv_artikel_levering > SYSDATE-14 -- na 14 dagen niet meer klagen AND rs.res_status_bo_key IN (2,3,4,7); IF lCount > 0 THEN - APPLICATION_ERROR_GOTO(-20000,'res_m033'); + raise_application_error(-20000,'res_m033'); END IF; END; END IF; @@ -182,7 +182,7 @@ CREATE_TRIGGER(res_t_res_rsv_artikel_B_IU) BEFORE INSERT OR UPDATE ON res_rsv_artikel FOR EACH ROW BEGIN - IF :old.res_status_bo_key=6 THEN raise_application_error(-20000, 'Reserveringsgegevens zijn verwerkt; wijzigen is niet meer toegestaan.'); END IF; + IF :old.res_status_bo_key=6 THEN raise_application_error(-20001, 'Reserveringsgegevens zijn verwerkt; wijzigen is niet meer toegestaan.'); END IF; UPDATE_PRIMARY_KEY(res_rsv_artikel_key, res_s_res_rsv_artikel_key); IF :new.res_status_bo_key = 5 AND :old.res_status_bo_key <> 5 THEN @@ -203,7 +203,7 @@ CREATE_TRIGGER(res_t_res_rsv_deel_B_IU) BEFORE INSERT OR UPDATE ON res_rsv_deel FOR EACH ROW BEGIN - IF :old.res_status_bo_key=6 THEN raise_application_error(-20000, 'Reserveringsgegevens zijn verwerkt; wijzigen is niet meer toegestaan.'); END IF; + IF :old.res_status_bo_key=6 THEN raise_application_error(-20001, 'Reserveringsgegevens zijn verwerkt; wijzigen is niet meer toegestaan.'); END IF; UPDATE_PRIMARY_KEY(res_rsv_deel_key, res_s_res_rsv_deel_key); IF :new.res_status_bo_key = 5 AND :old.res_status_bo_key <> 5 THEN @@ -245,14 +245,14 @@ BEGIN WHERE res_activiteit_key = :new.res_activiteit_key AND res_rsv_ruimte_tot > SYSDATE-14 -- na 14 dagen niet meer klagen AND res_status_bo_key IN (2, 3, 4, 7); - raise_application_error (-20000, 'res_m999 Reservations exist'); + raise_application_error(-20001, 'res_m999 Reservations exist'); EXCEPTION WHEN NO_DATA_FOUND THEN DELETE_CHILDREN(res_activiteitdiscipline, res_activiteit_key); WHEN TOO_MANY_ROWS THEN - raise_application_error (-20000, 'res_m999 Reservations exist'); + raise_application_error(-20001, 'res_m999 Reservations exist'); END; END IF; END; @@ -276,7 +276,7 @@ BEGIN IF (:new.res_srtkenmerk_verwijder IS NOT NULL AND :old.res_srtkenmerk_verwijder IS NULL AND :new.res_srtkenmerk_systeem = 1) THEN - raise_application_error(-20003, 'RES_C_RES_SRTKENMERK_SYSTEEM'); + raise_application_error(-20000, 'RES_C_RES_SRTKENMERK_SYSTEEM'); END IF; -- IF :new.res_srtkenmerk_kenmerktype IN ('C', 'N', 'B') AND :new.res_srtkenmerk_lengte IS NULL @@ -366,7 +366,7 @@ CREATE_TRIGGER(res_t_res_rsv_ruimte_B_IU) BEFORE INSERT OR UPDATE ON res_rsv_ruimte FOR EACH ROW BEGIN - IF :old.res_status_bo_key=6 THEN raise_application_error(-20000, 'Reserveringsgegevens '||:new.res_rsv_ruimte_key||'/'||:new.res_rsv_ruimte_volgnr||' zijn verwerkt; wijzigen is niet meer toegestaan.'); END IF; + IF :old.res_status_bo_key=6 THEN raise_application_error(-20001, 'Reserveringsgegevens '||:new.res_rsv_ruimte_key||'/'||:new.res_rsv_ruimte_volgnr||' zijn verwerkt; wijzigen is niet meer toegestaan.'); END IF; UPDATE_PRIMARY_KEY(res_rsv_ruimte_key, res_s_res_rsv_ruimte_key); BEGIN IF :new.res_rsv_ruimte_verwijder IS NOT NULL OR (:new.res_rsv_ruimte_verwijder IS NULL AND :old.res_rsv_ruimte_verwijder IS NOT NULL) THEN UPDATE res_rsv_artikel SET res_rsv_artikel_verwijder = :new.res_rsv_ruimte_verwijder WHERE res_rsv_artikel.res_rsv_ruimte_key = :new.res_rsv_ruimte_key AND res_rsv_artikel.res_rsv_artikel_verwijder IS NULL; END IF; END; BEGIN IF :new.res_rsv_ruimte_verwijder IS NOT NULL OR (:new.res_rsv_ruimte_verwijder IS NULL AND :old.res_rsv_ruimte_verwijder IS NOT NULL) THEN UPDATE res_rsv_deel SET res_rsv_deel_verwijder = :new.res_rsv_ruimte_verwijder WHERE res_rsv_deel.res_rsv_ruimte_key = :new.res_rsv_ruimte_key AND res_rsv_deel.res_rsv_deel_verwijder IS NULL; END IF; END; @@ -435,7 +435,7 @@ BEGIN -- IF kenmerkverplicht IS NOT NULL AND kenmerkreswaarde IS NULL THEN - raise_application_error (-20004, 'res_m240,' || srtkenmerkomschr); + APPLICATION_ERROR_GOTO(-20004, 'res_m240,' || srtkenmerkomschr); -- -- Kijk welk KenmerkType gebruikt wordt. -- Aan de hand daarvan moet een controle uitgevoerd worden. @@ -446,7 +446,7 @@ BEGIN -- Controleer of de lengte te groot of goed is. IF LENGTH (kenmerkreswaarde) > srtkenmerklengte THEN - raise_application_error ( + APPLICATION_ERROR_GOTO( -20004, 'res_m241,' || srtkenmerkomschr || ',' || TO_CHAR (srtkenmerklengte)); END IF; @@ -473,7 +473,7 @@ BEGIN formatmask := REPLACE (formatmask, '9', '#'); formatmask := REPLACE (formatmask, '0', '#'); formatmask := REPLACE (formatmask, 'D', '.'); - raise_application_error ( + APPLICATION_ERROR_GOTO( -20004, 'res_m242,' || srtkenmerkomschr || ',' || formatmask); END; @@ -482,7 +482,7 @@ BEGIN IF (srtkenmerknmin IS NOT NULL AND numberwaarde < srtkenmerknmin) OR (srtkenmerknmax IS NOT NULL AND numberwaarde > srtkenmerknmax) THEN - raise_application_error ( + APPLICATION_ERROR_GOTO( -20004, 'res_m243,' || srtkenmerkomschr @@ -499,7 +499,7 @@ BEGIN formatmask := REPLACE (formatmask, '9', '#'); formatmask := REPLACE (formatmask, '0', '#'); formatmask := REPLACE (formatmask, 'D', '.'); - raise_application_error ( + APPLICATION_ERROR_GOTO( -20004, 'res_m242,' || srtkenmerkomschr || ',' || formatmask); END IF; @@ -570,7 +570,7 @@ BEGIN -- IF kenmerkverplicht IS NOT NULL AND kenmerkreswaarde IS NULL THEN - raise_application_error (-20004, 'res_m244,' || srtkenmerkomschr); + APPLICATION_ERROR_GOTO(-20004, 'res_m244,' || srtkenmerkomschr); -- -- Kijk welk KenmerkType gebruikt wordt. -- Aan de hand daarvan moet een controle uitgevoerd worden. @@ -581,7 +581,7 @@ BEGIN -- Controleer of de lengte te groot of goed is. IF LENGTH (kenmerkreswaarde) > srtkenmerklengte THEN - raise_application_error ( + APPLICATION_ERROR_GOTO( -20004, 'res_m245,' || srtkenmerkomschr || ',' || TO_CHAR (srtkenmerklengte)); END IF; @@ -608,7 +608,7 @@ BEGIN formatmask := REPLACE (formatmask, '9', '#'); formatmask := REPLACE (formatmask, '0', '#'); formatmask := REPLACE (formatmask, 'D', '.'); - raise_application_error ( + APPLICATION_ERROR_GOTO( -20004, 'res_m246,' || srtkenmerkomschr || ',' || formatmask); END; @@ -617,7 +617,7 @@ BEGIN IF (srtkenmerknmin IS NOT NULL AND numberwaarde < srtkenmerknmin) OR (srtkenmerknmax IS NOT NULL AND numberwaarde > srtkenmerknmax) THEN - raise_application_error ( + APPLICATION_ERROR_GOTO( -20004, 'res_m247,' || srtkenmerkomschr @@ -634,7 +634,7 @@ BEGIN formatmask := REPLACE (formatmask, '9', '#'); formatmask := REPLACE (formatmask, '0', '#'); formatmask := REPLACE (formatmask, 'D', '.'); - raise_application_error ( + APPLICATION_ERROR_GOTO( -20004, 'res_m246,' || srtkenmerkomschr || ',' || formatmask); END IF;