如何在PLSQL触发器中正确实现IBAN校验函数？

看起来你的触发器报错主要是因为函数名称不匹配、返回值类型不兼容，还有一些PL/SQL语法细节问题，下面一步步帮你修正：

首先分析核心问题 #

1. 函数名称拼写错误：你写的函数是CheckIBANNUMMBER（末尾两个M），但触发器里调用的是CHECKIBAN，Oracle找不到这个函数，直接导致编译失败。
2. 返回值判断逻辑错误：你的函数返回的是VARCHAR类型的文本提示（比如'The given IBAN is incorrect'），但触发器里却判断它等于数字0，类型不匹配，逻辑完全不成立。
3. 触发器语法细节：PL/SQL触发器中引用新行值必须用:new（带冒号），原代码里的new.IBAN是错误写法。
4. 内部函数变量冲突：函数里的内部循环变量i和外部的i重名，虽然不会直接报错，但容易引发逻辑混乱。

方案一：优化函数+修正触发器（推荐） #

先把函数改成返回数字类型（1=合法，0=非法），这样触发器判断更直观可靠：

修正后的IBAN校验函数

create or replace FUNCTION CheckIBANNUMMBER( pIBAN IN VARCHAR2 ) RETURN NUMBER IS 
    lResult NUMBER;
    IBAN VARCHAR2(256);
    IBAN_Digits VARCHAR2(256);
    l_mod NUMBER;
    lTmp VARCHAR2(8);
    lSCnt INTEGER := 5;
    i INTEGER := 1;

    --- 内部函数：将IBAN字符转换为数字字符串（修复变量名冲突）
    FUNCTION fn_GetIBANDigits RETURN VARCHAR2 AS 
        lChar VARCHAR2(1);
        lNumber INTEGER;
        lString VARCHAR2(255);
    BEGIN 
        -- 把循环变量改成j，避免和外部i冲突
        FOR j IN 1..LENGTH(IBAN) LOOP 
            lChar := SUBSTR(IBAN, j, 1);
            lNumber := ASCII(lChar);
            IF lNumber > 47 AND lNumber < 58 THEN -- 数字0-9
                lString := lString || TO_CHAR(lNumber - 48);
            ELSE -- 大写字母A-Z，转换为10-35
                lString := lString || TO_CHAR(lNumber - 55);
            END IF;
        END LOOP;
        RETURN lString;
    END fn_GetIBANDigits;

BEGIN 
    -- 调整IBAN格式：前4位移到末尾
    IBAN := SUBSTR(pIBAN, 5) || SUBSTR(pIBAN, 1, 4);
    IBAN_Digits := fn_GetIBANDigits;

    LOOP 
        lTmp := SUBSTR(IBAN_Digits, i, lSCnt);
        EXIT WHEN lTmp IS NULL;
        
        IF l_mod IS NULL THEN
            l_mod := MOD(TO_NUMBER(lTmp), 97);
        ELSE
            l_mod := MOD(TO_NUMBER(TO_CHAR(l_mod) || lTmp), 97);
        END IF;
        
        i := i + lSCnt;
    END LOOP;

    -- 返回数字标识：1=合法，0=非法
    lResult := CASE WHEN l_mod = 1 THEN 1 ELSE 0 END;
    RETURN lResult;
END CheckIBANNUMMBER;
/

修正后的触发器

create or replace trigger "T_CHECKIBAN" 
BEFORE insert or update on "PAYMENTS" 
for each row 
begin
    -- 调用正确的函数名，判断返回值是否为0（非法IBAN）
    if CheckIBANNUMMBER(:new.IBAN) = 0 then
        raise_application_error(-20500,'Wrong IBAN number');
    end if;
end;
/

方案二：仅修正触发器（适配原函数） #

如果你不想修改函数，也可以直接调整触发器的判断逻辑，匹配函数返回的字符串：

create or replace trigger "T_CHECKIBAN" 
BEFORE insert or update on "PAYMENTS" 
for each row 
begin
    -- 调用正确的函数名，检查返回的错误提示文本
    if CheckIBANNUMMBER(:new.IBAN) = 'The given IBAN is incorrect' then
        raise_application_error(-20500,'Wrong IBAN number');
    end if;
end;
/

不过这种方式依赖返回文本的精确匹配，后续如果修改函数的提示文本，触发器也要同步修改，不如方案一健壮。

最后验证 #

把修正后的函数和触发器重新编译，然后在APEX中测试输入错误IBAN的场景，应该就能正常触发错误提示了。

内容的提问来源于stack exchange，提问作者Harry