循环调用修正sic86 2改后的(除了第一年有点诡异，其他年份可以正常修复)

create or replace procedure rebuild_sic86_wyl(pi_aac001 in number,
                                              po_fhz    out varchar2,
                                              po_msg    out varchar2) is
  --1.根据账户类型来判断是本地的还是转入的，
  --2.如果是本地的，
  --    写一个游标存放sic86.截止上年末缴费月数jzsnm，本年度缴费月数bn，本年累计缴费月数bnnj,
  --    从最小的年份开始，清空最小年费的下一年jzsnm,bnlj
  --    update sic86 set jzsnm = null ,bnlj = null where aae001 >min(aae001)
  --    update 最小年费下一年的 jzsnm = 最小年份bn+bnlj
  v_count      number(4);
  v_zhlx       sic86.zhlx%type;
  v_aae001_min sic86.aae001%type;
  v_aae001_max sic86.aae001%type;
  v_nf         sic86.aae001%type;
  v_bn         sic86.bn%type;
  v_bnlj       sic86.bnlj%type;
  v_jzsnm      sic86.jzsnm%type;
  cursor c_zhlx_list is
    select zhlx from sic86 where aac001 = pi_aac001;
begin
  po_fhz := '1';
  po_msg := '修正成功';
  for rec_zhlx in c_zhlx_list loop
    --选取最小年份和最大年份
    select min(aae001)
      into v_aae001_min
      from sic86
     where aac001 = pi_aac001;
    select max(aae001)
      into v_aae001_max
      from sic86
     where aac001 = pi_aac001;
    if rec_zhlx.zhlx = '0' then
      for nf in v_aae001_min .. v_aae001_max loop
      --去最小年份的本年缴费月数
        select bn
          into v_bn
          from sic86
         where aac001 = pi_aac001
           and aae001 = nf;
      --取最小年份的本年累计月数
        select bnlj
          into v_bnlj
          from sic86
         where aac001 = pi_aac001
           and aae001 = nf;
      --最小年份下一年 v_nf
          if (v_nf < v_aae001_max) then
          v_nf := nf + 1;
          else v_nf := nf;
        end if;

        -- 修正1 最小年份下一年的的  jzsnm = 最小年度bn+最小年度bnlj
        update sic86
           set jzsnm =
               (v_bn + v_bnlj)
         where aac001 = pi_aac001
           and aae001 = v_nf;

         select 1 into v_count from dual;--测试用，用完后注释掉
      --取最小年份下一年的的截至上年末月数
          select nvl(jzsnm,0)
          into v_jzsnm
          from sic86
         where aac001 = pi_aac001
           and aae001 = v_nf;
        -- po_msg :=v_nf||'年份的jzsnm='||v_jzsnm;
        --return;         --调试用，正式用的时候注释掉
        --去最小年份下一年的本年缴费月数
        select bn
          into v_bn
          from sic86
         where aac001 = pi_aac001
           and aae001 = v_nf; 

        --清空最小年份下一年的 截至上年末月数 和 本年累计(其实清空不情况无所谓，不影响)
        /*
          update sic86
            set jzsnm = null, bnlj = null
          where aac001 = pi_aac001
            and aae001 = v_nf;
        */

        -- 修正2 最小年份下一年的 本年累计月数 bnlj = 本年的jzsnm+本年的bn
        update sic86
           set bnlj =
               (v_jzsnm + v_bn)
         where aac001 = pi_aac001
           and aae001 = v_nf;
      end loop;
      po_fhz := '1';
      po_msg := '循环修正成功';
    elsif rec_zhlx.zhlx = '1' then
      po_fhz := '-1';
      po_msg := '转入的暂不处理';
      return;
    end if;
  end loop;
end;