使用Cursor定义游标：财务数据库费用应付与已付金额核对问题

需求回顾 #

你需要从财务数据库中逐笔核对每笔费用的总应付金额（该费用下所有明细项的金额总和）与总已付金额是否相等，我来帮你把未完成的PL/SQL代码补全并优化：

完整实现代码 #

假设你的数据库中有两张核心表：

• expenses：费用主表，包含expense_id（唯一费用ID）、total_paid（该费用的已付总金额）字段
• expense_details：费用明细表，包含expense_id（关联主表的费用ID）、line_amount（单条明细的金额）字段

SET ECHO OFF 
SET VERIFY OFF 
SET SERVEROUTPUT ON 

DECLARE
    v_expense_id    NUMBER;       -- 费用ID
    v_total_paid    NUMBER(12,2); -- 已付总金额
    v_total_owed    NUMBER(12,2); -- 计算得出的总应付金额
    -- 定义游标：获取每笔费用的ID、已付金额，同时计算该费用的明细总金额
    CURSOR expense_cursor IS
        SELECT 
            e.expense_id,
            e.total_paid,
            SUM(ed.line_amount) AS total_owed
        FROM expenses e
        LEFT JOIN expense_details ed ON e.expense_id = ed.expense_id
        GROUP BY e.expense_id, e.total_paid;
BEGIN
    -- 打开游标并循环处理每笔费用
    OPEN expense_cursor;
    LOOP
        FETCH expense_cursor INTO v_expense_id, v_total_paid, v_total_owed;
        EXIT WHEN expense_cursor%NOTFOUND;
        
        -- 处理明细为空的情况（总应付金额设为0）
        v_total_owed := NVL(v_total_owed, 0);
        
        -- 核对金额是否相等（用ROUND避免浮点精度误差）
        IF ROUND(v_total_paid, 2) = ROUND(v_total_owed, 2) THEN
            DBMS_OUTPUT.PUT_LINE('费用ID ' || v_expense_id || '：应付与已付金额一致，应付=' || v_total_owed || '，已付=' || v_total_paid);
        ELSE
            DBMS_OUTPUT.PUT_LINE('⚠️ 费用ID ' || v_expense_id || '：应付与已付金额不一致！应付=' || v_total_owed || '，已付=' || v_total_paid);
        END IF;
    END LOOP;
    CLOSE expense_cursor;
    
    DBMS_OUTPUT.PUT_LINE('---------------------------');
    DBMS_OUTPUT.PUT_LINE('所有费用核对完成！');
EXCEPTION
    WHEN OTHERS THEN
        DBMS_OUTPUT.PUT_LINE('核对过程出错：' || SQLERRM);
        IF expense_cursor%ISOPEN THEN
            CLOSE expense_cursor;
        END IF;
END;
/

关键细节说明 #

• 游标设计：通过LEFT JOIN关联主表和明细表，用GROUP BY直接计算每笔费用的明细总和，避免嵌套查询，提升效率
• 空值处理：用NVL函数把无明细的费用总应付金额设为0，防止空值导致的判断错误
• 精度控制：用ROUND函数保留两位小数，避免因浮点运算精度问题导致的误判
• 异常处理：捕获未知错误并确保游标被正确关闭，避免资源泄漏

自定义调整建议 #

• 如果你的表名、字段名和假设的不一致，直接修改游标中的表名、字段名即可
• 如果需要将结果输出到报表或日志表，可以在判断逻辑后添加INSERT语句写入目标表
• 若要只筛选出金额不一致的记录，可在游标中添加HAVING ROUND(e.total_paid,2) != ROUND(SUM(ed.line_amount),2)条件

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