Oracle Forms中按CODCIA分组实现循环自增序列的技术咨询

首先得说，你的原代码问题出在没有按CODCIA分组处理，而且只针对CODCIA=2做了逻辑，完全没实现分组循环的需求。咱们一步步来解决：

第一步：修正现有错误数据 #

你现有数据里CODCIA=4的NRODOCTO是4、5、6，不符合期望的1、2、3序列，可以用下面的SQL把现有数据修正过来：

-- 按CODCIA分组，重新生成1开始的连续序号
UPDATE PS91 p
SET NRODOCTO = (
    SELECT ROW_NUMBER() OVER (PARTITION BY CODCIA ORDER BY NRODOCTO)
    FROM PS91
    WHERE CODCIA = p.CODCIA AND NRODOCTO = p.NRODOCTO
)
WHERE CODCIA IN (2, 4); -- 只修正目标分组，也可以去掉WHERE修正全表

COMMIT;

这段SQL用ROW_NUMBER()窗口函数，给每个CODCIA分组内的记录按原有NRODOCTO排序，重新分配从1开始的序号，刚好符合你期望的初始数据效果。

第二步：实现新记录的循环自增逻辑 #

接下来处理新插入记录的NRODOCTO生成，需要按CODCIA分组取最大值，然后实现1-4的循环：

DECLARE
    v_max_nrodocto NUMBER;
BEGIN
    -- 精准获取当前CODCIA分组的最大NRODOCTO，无数据则默认0
    SELECT NVL(MAX(NRODOCTO), 0)
    INTO v_max_nrodocto
    FROM PS91
    WHERE CODCIA = :E.CODCIA;

    -- 实现1-4的循环：如果最大值到4，重置为1，否则加1
    IF v_max_nrodocto >= 4 THEN
        :E.NRODOCTO := 1;
    ELSE
        :E.NRODOCTO := v_max_nrodocto + 1;
    END IF;
EXCEPTION
    WHEN OTHERS THEN
        -- 异常情况下默认从1开始，你也可以根据需求调整兜底值
        :E.NRODOCTO := 1;
END;

这段代码的核心逻辑： #

• 用WHERE CODCIA = :E.CODCIA锁定当前要处理的分组，避免全局取最大值的错误；
• NVL(MAX(NRODOCTO), 0)处理分组无数据的情况，确保第一次插入时从1开始；
• 通过判断最大值是否达到4，实现循环重置的效果。

这样不管是CODCIA=2还是4，都会各自维护独立的1-4循环序列，完全符合你的需求。

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