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