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