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

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)