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

FCLT#73169 RAISE_APPLICATION_ERROR met volledige tekst moet ORA-20001 zijn, niet 20000

Browse Source 
svn path=/Database/trunk/; revision=56410
This commit is contained in:
Erik Groener
2022-06-28 13:06:31 +00:00
parent be9f74ea05
commit 27955c14d0
16 changed files with 168 additions and 170 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
ADM/ADM_PAC.SRC
View File

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

76
ALG/ALG_TRI.SRC
View File

@@ -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

32
BES/BES_TRI.SRC
View File

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

8
BEZ/BEZ_TRI.SRC
View File

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

8
CNT/CNT_TRI.SRC
View File

@@ -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)

20
FAC/FAC_PAC.SRC
View File

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

8
FAC/FAC_PACANO.SRC
View File

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

2
FAC/FAC_PACF.SRC
View File

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

28
FAC/FAC_TRI.SRC
View File

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

28
FIN/FIN_TRI.SRC
View File

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

28
INS/INS_TRI.SRC
View File

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

2
MLD/MLD_PAC.SRC
View File

@@ -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');

12
MLD/MLD_TRI.SRC
View File

@@ -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)

2
PRJ/PRJ_PAC.SRC
View File

@@ -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

42
PRS/PRS_TRI.SRC
View File

@@ -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;
//</MLD>
@@ -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;
/*

36
RES/RES_TRI.SRC
View File

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