for kjny in ( /*SELECT TO_CHAR(ADD_MONTHS(TO_DATE(l_kjnyqs, 'yyyy-MM-dd'),
ROWNUM - 1), 'yyyy-MM-dd') DAY_ID FROM DUAL
CONNECT BY ROWNUM <=
months_between(to_date(l_kjnyzz, 'yyyy-MM-dd'), to_date(l_kjnyqs, 'yyyy-MM-dd')) + 1*/
select date '2015-09-01' day_id from dual) loop
select kjny.day_id into l_kjny from dual; select count(1) into v_yjbz
from t_kt_ktczxx xx
where xx.hsjg_dm = jgxx.hsjg_dm and xx.ktczzl = '03'
and xx.gs_rq = to_date(to_char(l_kjny - 1, 'yyyy-mm') || '-01', 'yyyy-MM-dd'); ---如果月结标志不为0，则进行核算机关报表加工 if v_yjbz != '0' then
p_gs_kt_zwyth_jg(l_hsjgdm, l_kjny, i_czrydm); end if; end loop; end if; end loop; --异常处理 exception
when others then rollback; declare
errmsg varchar2(32766); begin
errmsg := SQLERRM(SQLCODE); dbms_output.put_line(errmsg); end;
end p_gs_kt_zwyth_xqjg;