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

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