存储过程示例

示例1：遍历大量游标数据更新临时表

create or replace procedure pro_yearbal_yjz( startyear in varchar2 /*起始年度*/,
                                             oper_account in number,/*制单人*/
                                             oper_org in number/*制单机构*/
                                            /* v_cur   out pkg_query.cur_query*/ )--返回的结果集
is

  --用于判断临时表是否存在中间变量
/*  TABEXT  VARCHAR2(10);*/
  --查询所有语句
 /* v_sql VARCHAR2(4000);*/
  delete_sql   VARCHAR2(50); --删除临时表记录语句
  timetemp date;
  jzstandard number;
  ybstandard number;
  --删表语句
/*  delete_sql VARCHAR2(4000);*/
  --建表语句
/*  create_sql VARCHAR2(4000);*/

---===============================================================================================================================================
---========================================   声明: 指标信息  游标  ================================================================================
---===============================================================================================================================================

 CURSOR  zbinfo_loop  IS
      select (select u.unit_name from bs_bdg_unit u where u.unitno = z.unitno ) unit_name  ,
     (select  zj.fund  from bs_zjly zj where zj.fundno = z.src_id ) src_name ,
     (select  (case zj.org_type when '1' then '预算内' else '预算外'　end) src_typename  from bs_zjly zj where zj.fundno = z.src_id ) src_typename ,
     (select   zj.org_type  from bs_zjly zj where zj.fundno = z.src_id ) src_type ,
     (select   pd.dict_text   from pwp_dict p ,pwp_dict_detail pd where p.dict_id=pd.dict_id  and p.dict_name ='budgetType' and pd.dict_value=z.bdgt_id_type  ) bdgt_id_typename ,
     ( select  bg.func_bdgname  from bs_gnflyskm bg where bg.func_bdgid = z.budgetno and bg.bdgyear=z.bdgyear and z.budgetid=bg.id) budgetname ,
     (select  bx.prj_name from bs_xmk bx where bx.prj_code=z.prj_code  ) prj_codename ,
     (select  bj.econ_bdg from bs_jjflyskm bj where bj.bdgyear=z.bdgyear and (  bj.econ_bdgid=z.itemno) )  itemname ,
     (select  po.org_name from pwp_org po where po.org_id= z.org_id ) org_name ,
     (case z.adjlevel when '0' then '本级' when '1' then '上级'  end ) adjlevel_name ,
     (case z.yearbal_status when '0' then '否' when '1' then '是' end  ) yearbal_name ,
     ( select   pd.dict_text   from pwp_dict p ,pwp_dict_detail pd where p.dict_id=pd.dict_id  and p.dict_name ='prjType' and pd.dict_value=z.zb_project_type ) pro_type_name  ,
     (case z.fundtype when '1' then '人员经费' when '2' then '公用经费' when '3' then '项目经费' when '4' then '其他经费' end  )  fundtype_name ,
      (select  hd.gk_heding_id from gk_yearbal_heding hd where hd.zbz_bal_id= z.id ) heding_id ,
 z.*  from  zb_bal z
      where z.bdgyear =startyear
      order by id ;


---===============================================================================================================================================
---======================================== 声明：查询（直接支付）支出数   信息的游标     =======================================================
---===============================================================================================================================================

  CURSOR zjzf_zc_loop  IS
select gz.zbz_bal_id as zjzf_zc_zbid,
          to_char(gz.affirm_date, 'yyyy') as zjzf_zc_adutiem,
          nvl(sum(gz.amt), 0) as zjzf_zc
     from gk_zfpz gz
    where gz.check_status in ('1','2','02') /*正常支付*/
      and gz.wf_status = '9' /*审结状态*/
      and gz.voucher_type = '0' /*支付凭证类型(直接为'0' */
      and to_char(gz.affirm_date, 'yyyy')=startyear
    group by gz.zbz_bal_id, to_char(gz.affirm_date, 'yyyy');

---===============================================================================================================================================
---======================================== 声明：查询（直接支付）全额退款   信息的游标     =======================================================
---===============================================================================================================================================
 CURSOR zjzf_qetk_loop  IS
select gz.zbz_bal_id as zjzf_qetk_zbid,
          to_char(gz.back_oper_date, 'yyyy') as zjzf_qetk_adutiem,
          nvl(sum(gz.amt), 0) as zjzf_qetk
     from gk_zfpz gz
    where gz.check_status = '2' /*确认全额退款*/
      and gz.wf_status = '9' /*审结状态*/
      and gz.voucher_type = '0' /*支付凭证类型(直接为'0' */
      and to_char(gz.back_oper_date, 'yyyy')=startyear
    group by gz.zbz_bal_id, to_char(gz.back_oper_date, 'yyyy');

---===============================================================================================================================================
---======================================== 声明：查询（直接支付）部分退款   信息的游标     =======================================================
---===============================================================================================================================================
 CURSOR zjzf_bftk_loop  IS
select gpr.zbz_bal_id as zjzf_bftk_zbid,
          to_char(gpr.collate_date, 'yyyy') as zjzf_bftk_adutiem,
          nvl(sum(gpr.amt), 0) as zjzf_bftk
     from gk_part_refundment gpr
    where gpr.audit_status = '9' /*流程审结状态*/
      and gpr.voucher_type = '0' /*支付凭证类型(直接为'0' */
      and to_char(gpr.collate_date, 'yyyy')=startyear
    group by gpr.zbz_bal_id, to_char(gpr.collate_date, 'yyyy');

---===============================================================================================================================================
---======================================== 声明：查询（直接支付）调整前金额   信息的游标     =======================================================
---===============================================================================================================================================
 CURSOR zcywtz_zjzf_tzq_loop  IS
select gad.df_zba_id as  zcywtz_zjzf_tzq_zbid ,/*调整前指标*/
            to_char(ga.create_dt,'yyyy')  as  zcywtz_zjzf_tzq_adutiem ,/*调整前：调整年份*/
            sum(gad.balance )as zcywtz_zjzf_tzq  /*调整前：调整金额*/
        from gk_adjust_detail gad,/*支出账务调整业务_明细*/
             gk_adjust ga /*支出账务调整业务_主表*/
       where gad.gk_adjust_id  = ga.id /*支出账务调整业务主表 与 支出账务调整业务_明细表 关联*/
        and  ga.biz_status='9'/*取：一般支付主表已经处于审结状态的数据*/
        and  ga.expenditure_type='0' /* 支出类型(0直接支付,1授权支付) */
        and to_char(ga.create_dt ,'yyyy')=startyear
   group by  gad.df_zba_id, to_char(ga.create_dt ,'yyyy');


---===============================================================================================================================================
---======================================== 声明：查询（直接支付）调整后金额   信息的游标     =======================================================
---===============================================================================================================================================
 CURSOR zcywtz_zjzf_tzh_loop  IS
select gad.jf_zba_id as zcywtz_zjzf_tzh_zbid ,/*调整后指标*/
            to_char(ga.create_dt ,'yyyy')  as zcywtz_zjzf_tzh_adutiem ,/*调整后：调整年份*/
            sum(gad.balance) as zcywtz_zjzf_tzh /*调整后：调整金额*/
        from gk_adjust_detail gad,/*支出账务调整业务_明细*/
             gk_adjust ga /*支出账务调整业务_主表*/
        where gad.gk_adjust_id  = ga.id /*支出账务调整业务主表 与 支出账务调整业务_明细表 关联*/
        and  ga.biz_status='9'/*取：一般支付主表已经处于审结状态的数据*/
        and  ga.expenditure_type='0' /* 支出类型(0直接支付,1授权支付) */
        and to_char(ga.create_dt ,'yyyy')=startyear
        group by gad.jf_zba_id  ,to_char(ga.create_dt ,'yyyy');

---===============================================================================================================================================
---======================================== 声明：查询 （授权支付）支出数 信息的游标   ===========================================================
---===============================================================================================================================================


 CURSOR  sqzf_zc_loop IS
select gz.zbz_bal_id as sqzf_zc_zbid,
          to_char(gz.affirm_date, 'yyyy') as sqzf_zc_adutiem,
          nvl(sum(gz.amt), 0) as sqzf_zc
     from gk_zfpz gz
    where gz.check_status in ('1','2','02') /*正常支付*/
      and gz.wf_status = '9' /*审结状态*/
      and gz.voucher_type = '1' /*支付凭证类型(授权支付为'1' */
      and to_char(gz.affirm_date, 'yyyy')=startyear
    group by gz.zbz_bal_id, to_char(gz.affirm_date, 'yyyy');


---===============================================================================================================================================
---======================================== 声明：查询 （授权支付）全额退款 信息的游标   ===========================================================
---===============================================================================================================================================
 CURSOR sqzf_qetk_loop IS
select gz.zbz_bal_id as sqzf_qetk_zbid,
          to_char(gz.back_oper_date, 'yyyy') as sqzf_qetk_adutiem,
          nvl(sum(gz.amt), 0) as sqzf_qetk
     from gk_zfpz gz
    where gz.check_status = '2' /*确认全额退款*/
      and gz.wf_status = '9' /*审结状态*/
      and gz.voucher_type = '1' /*支付凭证类型(授权支付为'1' */
      and to_char(gz.back_oper_date, 'yyyy')=startyear
    group by gz.zbz_bal_id, to_char(gz.back_oper_date, 'yyyy');


---===============================================================================================================================================
---======================================== 声明：查询 （授权支付）部分退款 信息的游标   ===========================================================
---===============================================================================================================================================
 CURSOR sqzf_bftk_loop IS
select gpr.zbz_bal_id as sqzf_bftk_zbid,
          to_char(gpr.collate_date, 'yyyy') as sqzf_bftk_adutiem,
          nvl(sum(gpr.amt), 0) as sqzf_bftk
     from gk_part_refundment gpr
    where gpr.audit_status = '9' /*流程审结状态*/

      and gpr.voucher_type = '1' /*支付凭证类型(授权支付为'1' */
      and to_char(gpr.collate_date, 'yyyy')=startyear
    group by gpr.zbz_bal_id, to_char(gpr.collate_date, 'yyyy');


---===============================================================================================================================================
---======================================== 声明：查询 （授权支付）调整前金额 信息的游标   ===========================================================
---===============================================================================================================================================
 CURSOR zcywtz_sqzf_tzq_loop IS
select gad.df_zba_id as  zcywtz_sqzf_tzq_zbid ,/*调整前指标*/
            to_char(ga.create_dt ,'yyyy')  as  zcywtz_sqzf_tzq_adutiem ,/*调整前：调整年份*/
            sum(gad.balance )as zcywtz_sqzf_tzq  /*调整前：调整金额*/
        from gk_adjust_detail gad,/*支出账务调整业务_明细*/
             gk_adjust ga /*支出账务调整业务_主表*/
        where gad.gk_adjust_id  = ga.id /*支出账务调整业务主表 与 支出账务调整业务_明细表 关联*/
        and  ga.biz_status='9'/*取：一般支付主表已经处于审结状态的数据*/
        and  ga.expenditure_type='1' /* 支出类型(0直接支付,1授权支付) */
        and to_char(ga.create_dt ,'yyyy')=startyear
   group by  gad.df_zba_id, to_char(ga.create_dt ,'yyyy');


---===============================================================================================================================================
---======================================== 声明：查询 （授权支付）全额退款 信息的游标   ===========================================================
---===============================================================================================================================================
 CURSOR zcywtz_sqzf_tzh_loop IS
select gad.jf_zba_id as zcywtz_sqzf_tzh_zbid ,/*调整后指标*/
            to_char(ga.create_dt ,'yyyy')  as zcywtz_sqzf_tzh_adutiem ,/*调整后：调整年份*/
            sum(gad.balance) as zcywtz_sqzf_tzh /*调整后：调整金额*/
        from gk_adjust_detail gad,/*支出账务调整业务_明细*/
             gk_adjust ga /*支出账务调整业务_主表*/
        where gad.gk_adjust_id  = ga.id /*支出账务调整业务主表 与 支出账务调整业务_明细表 关联*/
        and  ga.biz_status='9'/*取：一般支付主表已经处于审结状态的数据*/
        and  ga.expenditure_type='1' /* 支出类型(0直接支付,1授权支付) */
        and  to_char(ga.create_dt ,'yyyy')=startyear
        group by gad.jf_zba_id  ,to_char(ga.create_dt ,'yyyy');

---===============================================================================================================================================
---======================================== 声明：查询 （一般支付）支出数 信息的游标   ===========================================================
---===============================================================================================================================================
  CURSOR  ybzf_zc_loop IS
  select ybzf.zbz_bal_id as ybzf_zc_zbid,
          to_char(ybzf.checker_date, 'yyyy') as ybzf_adutiem,
          nvl(sum(ybzf.amt), 0) as ybzf_zc
     from gk_zfpz ybzf
     where ybzf.voucher_type ='3'
     and ybzf.wf_status ='9'
     and to_char(ybzf.checker_date, 'yyyy')=startyear
    group by ybzf.zbz_bal_id, to_char(ybzf.checker_date, 'yyyy');


---===============================================================================================================================================
---======================================== 声明：查询 （一般支付)退款金额 信息的游标   ===========================================================
---===============================================================================================================================================
  CURSOR  ybzf_tk_loop IS
select crbd.zbz_bal_id as ybzf_tk_zbid,
          to_char(crb.checker_date, 'yyyy') as ybzf_tk_adutiem,
          nvl(sum(crbd.back_amt), 0) as ybzf_tk
     from  common_req_back_detail crbd,common_req_back crb
     where crb.id = crbd.common_req_back_id and crb.wf_status ='9'
     and to_char(crb.checker_date, 'yyyy')=startyear
    group by crbd.zbz_bal_id, to_char(crb.checker_date, 'yyyy');


---===============================================================================================================================================
---======================================== 声明：查询 （一般支付)调整前金额 信息的游标   ===========================================================
---===============================================================================================================================================
  CURSOR  zcywtz_ybzf_tzq_loop IS
select gad.df_zba_id as  zcywtz_ybzf_tzq_zbid ,/*调整前指标*/
            to_char(ga.create_dt ,'yyyy')  as  zcywtz_ybzf_tzq_adutiem ,/*调整前：调整年份*/
            sum(gad.balance )as zcywtz_ybzf_tzq  /*调整前：调整金额*/
        from gk_adjust_detail gad,/*支出账务调整业务_明细*/
             gk_adjust ga /*支出账务调整业务_主表*/
        where gad.gk_adjust_id  = ga.id /*支出账务调整业务主表 与 支出账务调整业务_明细表 关联*/
        and  ga.biz_status='9'/*取：一般支付主表已经处于审结状态的数据*/
        and  ga.expenditure_type='3' /* 支出类型(0直接支付,1授权支付) */
        and to_char(ga.create_dt ,'yyyy')=startyear
   group by  gad.df_zba_id, to_char(ga.create_dt ,'yyyy');


---===============================================================================================================================================
---======================================== 声明：查询 （一般支付)调整前金额 信息的游标   ===========================================================
---===============================================================================================================================================
  CURSOR  zcywtz_ybzf_tzh_loop IS
select gad.jf_zba_id as zcywtz_ybzf_tzh_zbid ,/*调整后指标*/
            to_char(ga.create_dt ,'yyyy')  as zcywtz_ybzf_tzh_adutiem ,/*调整后：调整年份*/
            sum(gad.balance) as zcywtz_ybzf_tzh /*调整后：调整金额*/
        from gk_adjust_detail gad,/*支出账务调整业务_明细*/
             gk_adjust ga /*支出账务调整业务_主表*/
         where gad.gk_adjust_id  = ga.id /*支出账务调整业务主表 与 支出账务调整业务_明细表 关联*/
        and  ga.biz_status='9'/*取：一般支付主表已经处于审结状态的数据*/
        and  ga.expenditure_type='3' /* 支出类型(0直接支付,1授权支付) */
        and to_char(ga.create_dt ,'yyyy')=startyear
        group by gad.jf_zba_id  ,to_char(ga.create_dt ,'yyyy');

---===============================================================================================================================================
---======================================== 声明：核定表数据   ===========================================================
/*---===============================================================================================================================================
 CURSOR  gk_yearbal_yjz_loop IS
    select * from gk_yearbal_yjz jz where jz.make_date>=timetemp;*/

---===============================================================================================================================================
---======================================== 声明：全部数据   ===========================================================
---===============================================================================================================================================
 CURSOR  tmp_tab_yjz_loop IS
    select * from tmp_tab_yjz;

---===============================================================================================================================================
---========================================         脚本程序块：开始执行区域             ===========================================================
---===============================================================================================================================================


begin
----对参数进行判断空校验
if startyear  is null then
   dbms_output.put_line('年度不能为空');
   END IF;

delete_sql := 'delete from tmp_tab_yjz';
EXECUTE IMMEDIATE delete_sql;


/*v_sql :='select * from tmp_tab_yjz t ';*/
select sysdate into timetemp from dual;

select value into jzstandard from pwp_sysparam p where p.name='hezhunjzStandard';
select value into ybstandard from pwp_sysparam p where p.name='hezhunybStandard';

 ---- 向 临时表tmp_tab_summary 中插入  指标信息
   for  zbinfo IN  zbinfo_loop loop  --遍历游标
        insert into  tmp_tab_yjz (
   heding_id,zbid,bdgyear,fundtype,unitno,unitid,org_id,src_id,prj_code,prj_id,bdgt_id_type,
   budgetno,budgetid,itemno,item_id,entire_manage,adjlevel,is_heding,direct_amt,accredit_amt,tradition_amt,
   zb_amt
  /* zjzf_zc_sum,sqzf_zc_sum,ybzf_sum,zc_sum,zbjy_sum,zbjy_zjzf,zbjy_sqzf,zbjy_ybzf,
   cz_hezhun_direct,cz_hezhun_accredit,cz_hezhun_tradition,cz_hezhun_sum,
   biz_status,remark,back_remark,make_date,maker_accountid, --核定表信息
   toback_direct_amt,toback_accredit_amt,toback_tradition_amt,toback_sum    */
    )
    values(zbinfo.heding_id,zbinfo.id,zbinfo.bdgyear,zbinfo.fundtype,zbinfo.unitno,zbinfo.unitid,zbinfo.org_id,zbinfo.src_id,zbinfo.prj_code,zbinfo.prj_id,zbinfo.bdgt_id_type,
    zbinfo.budgetno,zbinfo.budgetid,zbinfo.itemno,zbinfo.item_id,zbinfo.entire_manage,zbinfo.adjlevel,zbinfo.is_heding,zbinfo.direct_amt,zbinfo.accredit_amt,zbinfo.tradition_amt,
    zbinfo.zb_amt
   /* zbinfo.ITEMNO,zbinfo.ITEMNAME,zbinfo.ORG_ID,zbinfo.ORG_NAME,zbinfo.ZB_AMT,zbinfo.DIRECT_AMT,zbinfo.ACCREDIT_AMT,zbinfo.DIRECT_PLAN,zbinfo.ACCREDIT_PLAN,zbinfo.TRADITION_AMT,zbinfo.ADJLEVEL,
    zbinfo.ADJLEVEL_NAME,zbinfo.YEARBAL_STATUS,zbinfo.YEARBAL_NAME,zbinfo.IS_HEDING,zbinfo.EARLY_AMT,zbinfo.EARLY_CHANGE_AMT,zbinfo.ADDITIONAL_AMT,zbinfo.TRADITION_NUM,zbinfo.FUNDTYPE,
    zbinfo.FUNDTYPE_NAME,zbinfo.ISSUE_NUM,zbinfo.BZ,zbinfo.IS_UNIFY,zbinfo.IS_FREEZE,zbinfo.ENTIRE_MANAGE*/
    ) ;
    --结束游标
    END LOOP;


    ----更新  （直接支付）  支出数信息
     for  zjzf_zc IN  zjzf_zc_loop loop  --遍历游标
         update   tmp_tab_yjz  tts set tts.zjzf_zc=nvl(zjzf_zc.zjzf_zc,0)
            where tts.zbid= zjzf_zc.zjzf_zc_zbid;
    --结束游标
    END LOOP;

      ----更新  （直接支付） 全额退款 信息
     for  zjzf_qetk IN  zjzf_qetk_loop loop  --遍历游标
         update   tmp_tab_yjz  tts set tts.zjzf_qetk=nvl(zjzf_qetk.zjzf_qetk,0)
            where tts.zbid= zjzf_qetk.zjzf_qetk_zbid;
    --结束游标
    END LOOP;

      ----更新  （直接支付） 部分退款 信息
     for  zjzf_bftk IN  zjzf_bftk_loop loop  --遍历游标
         update   tmp_tab_yjz  tts set tts.zjzf_bftk=nvl(zjzf_bftk.zjzf_bftk,0)
            where tts.zbid= zjzf_bftk.zjzf_bftk_zbid;
    --结束游标
    END LOOP;

      ----更新  （直接支付） 调整前金额 信息
     for  zcywtz_zjzf_tzq IN  zcywtz_zjzf_tzq_loop loop  --遍历游标
         update   tmp_tab_yjz  tts set tts.zcywtz_zjzf_tzq=nvl(zcywtz_zjzf_tzq.zcywtz_zjzf_tzq,0)
            where tts.zbid= zcywtz_zjzf_tzq.zcywtz_zjzf_tzq_zbid;
    --结束游标
    END LOOP;

     ----更新  （直接支付） 调整后金额 信息
     for  zcywtz_zjzf_tzh IN  zcywtz_zjzf_tzh_loop loop  --遍历游标
         update   tmp_tab_yjz  tts set tts.zcywtz_zjzf_tzh=nvl(zcywtz_zjzf_tzh.zcywtz_zjzf_tzh,0)
            where tts.zbid= zcywtz_zjzf_tzh.zcywtz_zjzf_tzh_zbid;
    --结束游标
    END LOOP;


    ----更新  （授权支付）  支出数信息
     for  sqzf_zc IN  sqzf_zc_loop loop  --遍历游标
         update   tmp_tab_yjz  tts set tts.sqzf_zc =nvl(sqzf_zc.sqzf_zc,0)
            where tts.zbid= sqzf_zc.sqzf_zc_zbid ;
    --结束游标
    END LOOP;

    ----更新  （授权支付）  全额退款金额
     for  sqzf_qetk IN  sqzf_qetk_loop loop  --遍历游标
         update   tmp_tab_yjz  tts set tts.sqzf_qetk =nvl(sqzf_qetk.sqzf_qetk,0)
            where tts.zbid= sqzf_qetk.sqzf_qetk_zbid ;
    --结束游标
    END LOOP;

    ----更新  （授权支付）  部分退款金额
     for  sqzf_bftk IN  sqzf_bftk_loop loop  --遍历游标
         update   tmp_tab_yjz  tts set tts.sqzf_bftk =nvl(sqzf_bftk.sqzf_bftk,0)
            where tts.zbid= sqzf_bftk.sqzf_bftk_zbid ;
    --结束游标
    END LOOP;

    ----更新  （授权支付）  调整前金额
     for  zcywtz_sqzf_tzq IN  zcywtz_sqzf_tzq_loop loop  --遍历游标
         update   tmp_tab_yjz  tts set tts.zcywtz_sqzf_tzq =nvl(zcywtz_sqzf_tzq.zcywtz_sqzf_tzq,0)
            where tts.zbid= zcywtz_sqzf_tzq.zcywtz_sqzf_tzq_zbid ;
    --结束游标
    END LOOP;

    ----更新  （授权支付）  调整后金额
     for  zcywtz_sqzf_tzh IN  zcywtz_sqzf_tzh_loop loop  --遍历游标
         update   tmp_tab_yjz  tts set tts.zcywtz_sqzf_tzh =nvl(zcywtz_sqzf_tzh.zcywtz_sqzf_tzh,0)
            where tts.zbid= zcywtz_sqzf_tzh.zcywtz_sqzf_tzh_zbid ;
    --结束游标
    END LOOP;

    ----更新  （一般支付）  支出数信息
     for  ybzf_zc IN  ybzf_zc_loop loop  --遍历游标
         update   tmp_tab_yjz  tts set tts.ybzf_zc =nvl(ybzf_zc.ybzf_zc,0)
            where tts.zbid= ybzf_zc.ybzf_zc_zbid ;
    --结束游标
    END LOOP;

     ----更新  （一般支付）  退款金额
     for  ybzf_tk IN  ybzf_tk_loop loop  --遍历游标
         update   tmp_tab_yjz  tts set tts.ybzf_tk =nvl(ybzf_tk.ybzf_tk,0)
            where tts.zbid= ybzf_tk.ybzf_tk_zbid ;
    --结束游标
    END LOOP;

    ----更新  （一般支付）  调整前金额
     for  zcywtz_ybzf_tzq IN  zcywtz_ybzf_tzq_loop loop  --遍历游标
         update   tmp_tab_yjz  tts set tts.zcywtz_ybzf_tzq =nvl(zcywtz_ybzf_tzq.zcywtz_ybzf_tzq,0)
            where tts.zbid= zcywtz_ybzf_tzq.zcywtz_ybzf_tzq_zbid ;
    --结束游标
    END LOOP;

    ----更新  （一般支付）  调整后金额
     for  zcywtz_ybzf_tzh IN  zcywtz_ybzf_tzh_loop loop  --遍历游标
         update   tmp_tab_yjz  tts set tts.zcywtz_ybzf_tzh =nvl(zcywtz_ybzf_tzh.zcywtz_ybzf_tzh,0)
            where tts.zbid= zcywtz_ybzf_tzh.zcywtz_ybzf_tzh_zbid ;
    --结束游标
    END LOOP;

    ----更新  总额

    for tmpsum in tmp_tab_yjz_loop loop
         update   tmp_tab_yjz  tts set tts.zjzf_zc_sum =
         nvl(nvl(tts.zjzf_zc, 0) - nvl(tts.zjzf_qetk, 0) - nvl(tts.zjzf_bftk，0)- nvl(tts.zcywtz_zjzf_tzq,0)+nvl(tts.zcywtz_zjzf_tzh,0),0),
         tts.sqzf_zc_sum=
         nvl((nvl(tts.sqzf_zc, 0) - nvl(tts.sqzf_qetk, 0) - nvl(tts.sqzf_bftk, 0)-nvl(tts.zcywtz_sqzf_tzq,0)+nvl(tts.zcywtz_sqzf_tzh,0)), 0),
         tts.ybzf_sum=
         nvl((nvl(tts.ybzf_zc, 0) - nvl(tts.ybzf_tk, 0) - nvl(tts.zcywtz_ybzf_tzq,0)+nvl(tts.zcywtz_ybzf_tzh,0) ), 0),
         tts.zc_sum=
              nvl(((nvl(tts.zjzf_zc, 0) - nvl(tts.zjzf_qetk, 0) - nvl(tts.zjzf_bftk, 0)-nvl(tts.zcywtz_zjzf_tzq,0)
              +nvl(tts.zcywtz_zjzf_tzh,0)  ) + (nvl(tts.sqzf_zc, 0) - nvl(tts.sqzf_qetk, 0) - nvl(tts.sqzf_bftk, 0)
              -nvl(tts.zcywtz_sqzf_tzq,0)+nvl(tts.zcywtz_sqzf_tzh,0)) + (nvl(tts.ybzf_zc, 0) - nvl(tts.ybzf_tk, 0))), 0)

         where tts.zbid= tmpsum.zbid ;
    end loop;

    ----更新  direct_amt-zjzf_zc_sum zbjy_zjzf,accredit_amt-sqzf_zc_sum zbjy_sqzf,tradition_amt-ybzf_sum zbjy_ybzf,zb_amt-zc_sum zbjy_sum
    for tmpsum in tmp_tab_yjz_loop loop
         update   tmp_tab_yjz  tts set
         tts.zbjy_zjzf =nvl(tts.direct_amt,0)-nvl(tts.zjzf_zc_sum,0),
         tts.zbjy_sqzf=nvl(tts.accredit_amt,0)-nvl(tts.sqzf_zc_sum,0),
         tts.zbjy_ybzf=nvl(tts.tradition_amt,0)-nvl(tts.ybzf_sum,0),
         tts.zbjy_sum=nvl(tts.zb_amt,0)-nvl(tts.zc_sum,0)
         where tts.zbid= tmpsum.zbid ;
    end loop;

    --插入预结转数据
    for tmpsum in tmp_tab_yjz_loop loop
              insert into  gk_yearbal_yjz (
                 gk_yearbal_yjz_id,gk_yearbal_heding_id,zbz_bal_id,year,unitno,src_id,budgetno,bdgt_id_type,itemno,prj_code,zb_project_type,org_id,
                 direct_amt,accredit_amt,tradition_amt,direct_payamt,accredit_payamt,tradition_payamt,cz_hezhun_apldir,cz_hezhun_aplart,
                 cz_hezhun_apltra,cz_hezhun_direct,cz_hezhun_accredit,cz_hezhun_tradition,remark,make_date,maker_accountid,maker_org_id
              )
              values(
                 nvl((select max(gk_yearbal_yjz_id)+1 from gk_yearbal_yjz),0),tmpsum.heding_id,tmpsum.zbid,tmpsum.bdgyear,tmpsum.unitno,tmpsum.src_id,tmpsum.budgetno,tmpsum.bdgt_id_type,tmpsum.itemno,tmpsum.prj_code,tmpsum.zb_project_type,tmpsum.org_id,
                 tmpsum.direct_amt,tmpsum.accredit_amt,tmpsum.tradition_amt,tmpsum.zjzf_zc_sum,tmpsum.sqzf_zc_sum,tmpsum.ybzf_sum,tmpsum.zbjy_zjzf,tmpsum.zbjy_sqzf,
                 tmpsum.zbjy_ybzf,tmpsum.zbjy_zjzf,tmpsum.zbjy_sqzf,tmpsum.zbjy_ybzf,'',timetemp,oper_account,oper_org
              ) ;
    end loop;

    --更新预结转数 （根据指标是否结转字段，否：结转数设为0；是：与参数比较，小于参数0，大于参数不改）
    for tmpsum in tmp_tab_yjz_loop loop
      if(tmpsum.is_heding=0) then

           update gk_yearbal_yjz jz set
           jz.cz_hezhun_apldir=0,jz.cz_hezhun_aplart=0,jz.cz_hezhun_apltra=0,
           jz.cz_hezhun_direct=0,jz.cz_hezhun_accredit=0,jz.cz_hezhun_tradition=0
           where jz.zbz_bal_id=tmpsum.ZBID;
        end if;
       if(tmpsum.is_heding!=0) then
           if(tmpsum.zbjy_zjzf+tmpsum.zbjy_sqzf<jzstandard) then

               update gk_yearbal_yjz jz set
               jz.cz_hezhun_apldir=0,jz.cz_hezhun_direct=0,jz.cz_hezhun_aplart=0,jz.cz_hezhun_accredit=0
               where jz.zbz_bal_id=tmpsum.ZBID;
             end if;

            if(tmpsum.zbjy_ybzf<ybstandard) then

             update gk_yearbal_yjz jz set
             jz.cz_hezhun_apltra=0,jz.cz_hezhun_tradition=0
             where jz.zbz_bal_id=tmpsum.ZBID;

             end if;
       end if;

    end loop;


/*  OPEN v_cur FOR v_sql;*/

   commit;

end pro_yearbal_yjz ;

 

 

 

示例2：声明游标，遍历游标

 

create or replace procedure pro_yearbal_toback_end(gatherid in varchar2) is
 zbz_bal_id number(20);


 ---汇总表下所有核定数据
 CURSOR hedings  IS
  select t.*,a.account_name from gk_yearbal_heding t,gk_yearbal_heding_toback tb,pwp_account a
   where t.gk_heding_id=tb.heding_id and tb.gather_id = gatherid and a.account_id=t.maker_accountid;

 --一条指标数据
  CURSOR zbs  IS
  select * from zb_bal where id=zbz_bal_id;

 begin
  ----新建汇总表数据
  for  heding IN  hedings loop  --遍历游标
      zbz_bal_id:=heding.zbz_bal_id;
      for zb in zbs loop
         update zb_bal set zb_amt=
         (zb.zb_amt*10-(heding.direct_amt-heding.direct_payamt-heding.cz_hezhun_direct)*10-(heding.accredit_amt-heding.accredit_payamt-heding.cz_hezhun_accredit)*10
         -(heding.tradition_amt-heding.tradition_payamt-heding.cz_hezhun_tradition)*10)/10,
         direct_amt=(zb.direct_amt*10-(heding.direct_amt-heding.direct_payamt-heding.cz_hezhun_direct)*10)/10,
         accredit_amt=(zb.accredit_amt*10-(heding.accredit_amt-heding.accredit_payamt-heding.cz_hezhun_accredit)*10)/10,
         tradition_amt=(zb.tradition_amt*10-(heding.tradition_amt-heding.tradition_payamt-heding.cz_hezhun_tradition)*10)/10,
         toback_amt=((heding.direct_amt-heding.direct_payamt-heding.cz_hezhun_direct)*10+(heding.accredit_amt-heding.accredit_payamt-heding.cz_hezhun_accredit)*10
         +(heding.tradition_amt-heding.tradition_payamt-heding.cz_hezhun_tradition)*10)/10,
         bz=(case when zb.bz is null then '' else zb.bz||'于'||sysdate||'由'||heding.account_name||'通过年终结转指标收回。' end),
         is_toback='1',
         toback_date=sysdate where id=zbz_bal_id;


      end loop;
  END LOOP;

end pro_yearbal_toback_end;

create or replace procedure pro_yearbal_toback(orgid in varchar2 ,
                                              accountid in varchar2,
                                              bdgyear in varchar2)
is

   gatherid number(20);
   srctemp varchar2(20);
   orgtemp varchar2(20);

 ---所有资金来源、科室类型
 CURSOR kszj  IS
 select distinct src_id,org_id
     from gk_yearbal_heding hd where (hd.direct_amt-hd.direct_payamt-hd.cz_hezhun_direct)
     +(hd.accredit_amt-hd.accredit_payamt-hd.cz_hezhun_accredit)+(hd.tradition_amt-hd.tradition_payamt-hd.cz_hezhun_tradition) !=0 and biz_status='9'
     and hd.is_recover='1' and hd.gk_heding_id not in ( select heding_id from gk_yearbal_heding_toback tb,gk_yearbal_toback_gather g where
     g.id=tb.gather_id and g.toback_issued_status='1') and hd.year=bdgyear;

 ---所有要汇总的数据（下达）    
 CURSOR alldata  IS
  select *
     from gk_yearbal_heding hd where (hd.direct_amt-hd.direct_payamt-hd.cz_hezhun_direct)
     +(hd.accredit_amt-hd.accredit_payamt-hd.cz_hezhun_accredit)+(hd.tradition_amt-hd.tradition_payamt-hd.cz_hezhun_tradition) !=0 and biz_status='9'
     and hd.is_recover='1' and hd.gk_heding_id not in ( select heding_id from gk_yearbal_heding_toback tb,gk_yearbal_toback_gather g where
     g.id=tb.gather_id and g.toback_issued_status='1') and hd.year=bdgyear and hd.src_id=srctemp and hd.org_id=orgtemp;



 begin
  ----新建汇总表数据
  for  ks IN  kszj loop  --遍历游标
       insert into gk_yearbal_toback_gather (id,toback_issued_status,year,src_id,org_id,biz_status,make_date,maker_accountid,maker_org_id)
       values ((select nextid('GK_YEARBAL_TOBACK_GATHER_SEQ') from dual),'1',bdgyear,ks.src_id,ks.org_id,'0',sysdate,accountid,orgid);
       select id into gatherid from gk_yearbal_toback_gather g where g.id =(select max(id) from gk_yearbal_toback_gather);
       srctemp:=ks.src_id;
       orgtemp:=ks.org_id;
       for data in alldata loop
          insert into gk_yearbal_heding_toback (TOBACK_ID,GATHER_ID,HEDING_ID)
          values (nvl((select max(TOBACK_ID)+1 from gk_yearbal_heding_toback),0),gatherid,data.gk_heding_id);
       end loop;
  END LOOP;

end pro_yearbal_toback;

 

create or replace procedure pro_yearbal_issue_end(gatherid in varchar2,bdgyear in varchar2)
is
   zbz_bal_id number(20);
   exzb number(20);
   ---exzbinfo zb_bal%rowtype;




 ---汇总表下所有核定数据
 CURSOR hedings  IS
  select t.*,a.account_name from gk_yearbal_heding t,gk_yearbal_heding_toback tb,pwp_account a
   where t.gk_heding_id=tb.heding_id and tb.gather_id = gatherid and a.account_id=t.maker_accountid;

 --一条指标数据
  CURSOR zbs  IS
  select * from zb_bal where id=zbz_bal_id;

 begin
  ----新建汇总表数据
  for  heding IN  hedings loop  --遍历游标
      zbz_bal_id:=heding.zbz_bal_id;
      update zb_bal set yearbal_status='1' where id=heding.zbz_bal_id;
      --获取核定表对应指标信息
      for zb in zbs loop
        ---判断指标是否已经存在
        if(zb.entire_manage is null) then
          select max(id) into exzb from zb_bal where bdgyear=zb.bdgyear+1 and unitno=zb.unitno and prj_id=zb.prj_id and BDGT_ID_TYPE=zb.BDGT_ID_TYPE
          and BUDGETNO=zb.BUDGETNO and src_id=(select  concat('1',substr(to_char(zb.src_id), 2)) from dual) and org_id=zb.org_id and entire_manage is null ;

       else
          select max(id) into exzb from zb_bal where bdgyear=zb.bdgyear+1 and unitno=zb.unitno and prj_id=zb.prj_id and BDGT_ID_TYPE=zb.BDGT_ID_TYPE
          and BUDGETNO=zb.BUDGETNO and src_id=(select  concat('1',substr(to_char(zb.src_id), 2)) from dual) and org_id=zb.org_id and entire_manage = zb.entire_manage;

       end if;

        if(exzb is not null) then


            update zb_bal set
            zb_amt=zb_amt+heding.cz_hezhun_direct+heding.cz_hezhun_accredit+heding.cz_hezhun_tradition,
            direct_amt=direct_amt+heding.cz_hezhun_direct,
            accredit_amt=accredit_amt+heding.cz_hezhun_accredit,
            tradition_amt=tradition_amt+heding.cz_hezhun_tradition,
            early_amt=early_amt+heding.cz_hezhun_direct+heding.cz_hezhun_accredit+heding.cz_hezhun_tradition,
            bz = bz|| '从'||zb.id||'指标于'||sysdate||'下达生成。',
            budgetid=(select id from bs_gnflyskm gn where gn.func_bdgid=zb.budgetno and gn.bdgyear=zb.bdgyear+1
            and gn.func_bdg_type=zb.bdgt_id_type)
            where id= exzb;


            update gk_yearbal_heding set issue_zb =(exzb) where zbz_bal_id =heding.zbz_bal_id;
        end if;

        if(exzb is null) then
        insert into zb_bal (id,is_heding,bdgyear,unitid,src_id,bdgt_id_type,
          budgetid,prj_id, item_id,zb_amt,
          direct_amt,  accredit_amt, direct_plan,accredit_plan, tradition_amt,org_id, adjlevel,yearbal_status,
          zb_project_type,early_amt,
          early_change_amt,additional_amt,tradition_num, fundtype,issue_num,
          bz,
          is_unify, is_freeze,origin_id,entire_manage,send_status,unitno,budgetno,itemno,prj_code,create_date,
          source_zb_id,yearbal_no,is_toback,zb_issuedtype)
         values
         ((select NEXTID('ZB_BAL_SEQ') from dual),'1',zb.bdgyear+1,zb.unitid,(select  concat('1',substr(to_char(zb.src_id), 2)) from dual),zb.bdgt_id_type,
         zb.budgetid,zb.prj_id,zb.item_id,heding.cz_hezhun_direct+heding.cz_hezhun_accredit+heding.cz_hezhun_tradition,
         heding.cz_hezhun_direct,heding.cz_hezhun_accredit,'0','0',heding.cz_hezhun_tradition,zb.org_id,zb.adjlevel,'0',
         zb.zb_project_type,heding.cz_hezhun_direct+heding.cz_hezhun_accredit+heding.cz_hezhun_tradition,
         '0','0','0',zb.fundtype,'1',
         '从'||zb.id||'指标于'||sysdate||'下达生成。',
         zb.is_unify, zb.is_freeze, zb.origin_id, zb.entire_manage,'0',zb.unitno,zb.budgetno,zb.itemno,zb.prj_code,sysdate,
         zb.id, (case when zb.yearbal_no=0 then 1 when zb.yearbal_no=1 then 2 when zb.yearbal_no>=2 then 2 end) ,'0','2' );

         update zb_bal set budgetid=(select id from bs_gnflyskm gn where gn.func_bdgid=zb.budgetno and gn.bdgyear=zb.bdgyear+1
         and gn.func_bdg_type=zb.bdgt_id_type) where id=(select nextid-1 from pwp_nodtl n where n.noid='ZB_BAL_SEQ');

         update gk_yearbal_heding set issue_zb =(select id from zb_bal where id =
         (select nextid-1 from pwp_nodtl n where n.noid='ZB_BAL_SEQ')) where zbz_bal_id =heding.zbz_bal_id;
         end if;

       end loop;
  END LOOP;

end pro_yearbal_issue_end;

 

create or replace procedure pro_yearbal_issue(orgid in varchar2 ,
                                              accountid in varchar2,
                                              bdgyear in varchar2)
is

   gatherid number(20);
   srctemp varchar2(20);
   orgtemp varchar2(20);

 ---所有资金来源、科室类型
 CURSOR kszj  IS
 select distinct src_id,org_id from gk_yearbal_heding hd where hd.cz_hezhun_direct+hd.cz_hezhun_accredit+hd.cz_hezhun_tradition !=0 and biz_status='9'
     and hd.is_issued='1' and hd.gk_heding_id not in ( select heding_id from gk_yearbal_heding_toback tb,gk_yearbal_toback_gather g where g.toback_issued_status='2'
     and g.id=tb.gather_id ) and hd.year=bdgyear;

 ---所有要汇总的数据（下达）    
 CURSOR alldata  IS
  select * from gk_yearbal_heding hd where hd.cz_hezhun_direct+hd.cz_hezhun_accredit+hd.cz_hezhun_tradition !=0 and biz_status='9'
     and hd.is_issued='1' and hd.gk_heding_id not in ( select heding_id from gk_yearbal_heding_toback tb,gk_yearbal_toback_gather g where g.toback_issued_status='2'
     and g.id=tb.gather_id ) and hd.year=bdgyear and hd.src_id=srctemp and hd.org_id=orgtemp;



 begin
  ----新建汇总表数据
  for  ks IN  kszj loop  --遍历游标
       insert into gk_yearbal_toback_gather (id,toback_issued_status,year,src_id,org_id,biz_status,make_date,maker_accountid,maker_org_id)
       values ((select nextid('GK_YEARBAL_TOBACK_GATHER_SEQ') from dual),'2',bdgyear,ks.src_id,ks.org_id,'0',sysdate,accountid,orgid);
       select id into gatherid from gk_yearbal_toback_gather g where g.id =(select max(id) from gk_yearbal_toback_gather);
       srctemp:=ks.src_id;
       orgtemp:=ks.org_id;
       for data in alldata loop
          insert into gk_yearbal_heding_toback (TOBACK_ID,GATHER_ID,HEDING_ID)
          values (nvl((select max(TOBACK_ID)+1 from gk_yearbal_heding_toback),0),gatherid,data.gk_heding_id);
       end loop;
  END LOOP;

end pro_yearbal_issue;

 

 

create or replace procedure pro_yearbal_collect(orgid in varchar2 ,
                                              accountid in varchar2,
                                              bdgyear in varchar2)
is

   spid number(20);


 ---所有当前科室未汇总数据
 CURSOR hedings  IS
 select * from gk_yearbal_heding t where t.org_id=orgid and t.biz_status='3';


 begin

   ---新建汇总表数据
   insert into gk_yearbal_heding_sp (id,year,org_id,make_date,maker_accountid,maker_org_id,data_flow_link,audit_status)
   values ((select nextid('GK_YEARBAL_HEDING_SP_SEQ') from dual),bdgyear,orgid,sysdate,accountid,orgid，'0','0');

   select nextid-1 into spid from pwp_nodtl n where n.noid=（'GK_YEARBAL_HEDING_SP_SEQ');

  ----新建汇总明细数据，更新核定表数据
  for  heding IN  hedings loop

       insert into gk_yearbal_heding_spmx (heding_spmxid,heging_spid,heding_id)
       values (nextid('GK_YEARBAL_HEDING_SPMX_SEQ'),spid,heding.gk_heding_id);

       update gk_yearbal_heding set biz_status=4 where gk_heding_id = heding.gk_heding_id;

  END LOOP;

end pro_yearbal_collect;

示例3：入参 字符串；返回结果集合

 

CREATE OR REPLACE PACKAGE PKG_QUERY IS

  -- Author  : ADMINISTRATOR
  -- Created : 2016/12/8 星期四 10:28:37
  -- Purpose : 用做查询游标

  -- Public type declarations
  TYPE CUR_QUERY IS REF CURSOR;

END PKG_QUERY;

 

create or replace procedure pro_annual_spend_summary( startyear in varchar2 /*起始年度*/,
                                                             endyear/*终止年度*/ in varchar2,
                                                             startmonth in varchar2 /*起始月份*/,
                                                             endmonth  in varchar2 /*终止月份*/ ,
                                                             orgsql in varchar2 /*当前机构id*/,
                                                              v_cur              out pkg_query.cur_query )--返回的结果集
is

  --用于判断临时表是否存在中间变量
/*  TABEXT  VARCHAR2(10);*/
  --查询所有语句
  v_sql VARCHAR2(4000);
  delete_sql   VARCHAR2(50); --删除临时表记录语句
  --删表语句
/*  delete_sql VARCHAR2(4000);*/
  --建表语句
/*  create_sql VARCHAR2(4000);*/

---===============================================================================================================================================
---========================================   声明: 指标信息  游标  ================================================================================
---===============================================================================================================================================

 CURSOR  zbinfo_loop  IS
      select (select u.unit_name from bs_bdg_unit u where u.unitno = z.unitno ) unit_name  ,
     (select  zj.fund  from bs_zjly zj where zj.fundno = z.src_id ) src_name ,
     (select  (case zj.org_type when '1' then '预算内' else '预算外'　end) src_typename  from bs_zjly zj where zj.fundno = z.src_id ) src_typename ,
     (select   zj.org_type  from bs_zjly zj where zj.fundno = z.src_id ) src_type ,
     (select   pd.dict_text   from pwp_dict p ,pwp_dict_detail pd where p.dict_id=pd.dict_id  and p.dict_name ='budgetType' and pd.dict_value=z.bdgt_id_type  ) bdgt_id_typename ,
     ( select  bg.func_bdgname  from bs_gnflyskm bg where bg.func_bdgid = z.budgetno and bg.bdgyear=z.bdgyear and z.budgetid=bg.id) budgetname ,
     (select  bx.prj_name from bs_xmk bx where bx.prj_code=z.prj_code  ) prj_codename ,
     (select  bj.econ_bdg from bs_jjflyskm bj where bj.bdgyear=z.bdgyear and (  bj.econ_bdgid=z.itemno) )  itemname ,
     (select  po.org_name from pwp_org po where po.org_id= z.org_id ) org_name ,
     (case z.adjlevel when '0' then '本级' when '1' then '上级'  end ) adjlevel_name ,
     (case z.yearbal_status when '0' then '否' when '1' then '是' end  ) yearbal_name ,
     ( select   pd.dict_text   from pwp_dict p ,pwp_dict_detail pd where p.dict_id=pd.dict_id  and p.dict_name ='prjType' and pd.dict_value=z.zb_project_type ) pro_type_name  ,
      (case z.fundtype when '1' then '人员经费' when '2' then '公用经费' when '3' then '项目经费' when '4' then '其他经费' end  )  fundtype_name ,
 z.*  from  zb_bal z
      where z.bdgyear >= startyear
      and   z.bdgyear <= endyear
      order by id ;


---===============================================================================================================================================
---======================================== 声明：查询（直接支付）支出数   信息的游标     =======================================================
---===============================================================================================================================================

  CURSOR zjzf_zc_loop  IS
  select zjzf_zc_zbid,sum(zjzf_zc_amt) as zjzf_zc from (select gz.zbz_bal_id as zjzf_zc_zbid,
          to_char(gz.affirm_date, 'yyyyMM') as zjzf_zc_adutiem,
          nvl(sum(gz.amt), 0) as zjzf_zc_amt
     from gk_zfpz gz
    where gz.check_status in ('1','2','02') /*正常支付*/
      and gz.wf_status = '9' /*审结状态*/
      and gz.voucher_type = '0' /*支付凭证类型(直接为'0' */
    group by gz.zbz_bal_id, to_char(gz.affirm_date, 'yyyyMM')) x
    where x.zjzf_zc_adutiem >= startyear||startmonth
    and x.zjzf_zc_adutiem <= endyear||endmonth
    group by zjzf_zc_zbid;

---===============================================================================================================================================
---======================================== 声明：查询（直接支付）全额退款   信息的游标     =======================================================
---===============================================================================================================================================
 CURSOR zjzf_qetk_loop  IS
select zjzf_qetk_zbid,sum(zjzf_qetk_amt) as zjzf_qetk from (select gz.zbz_bal_id as zjzf_qetk_zbid,
          to_char(gz.back_oper_date, 'yyyyMM') as zjzf_qetk_adutiem,
          nvl(sum(gz.amt), 0) as zjzf_qetk_amt
     from gk_zfpz gz
    where gz.check_status = '2' /*确认全额退款*/
      and gz.wf_status = '9' /*审结状态*/
      and gz.voucher_type = '0' /*支付凭证类型(直接为'0' */
    group by gz.zbz_bal_id, to_char(gz.back_oper_date, 'yyyyMM')) x1
     where x1.zjzf_qetk_adutiem >= startyear||startmonth
    and x1.zjzf_qetk_adutiem <= endyear||endmonth
    group by zjzf_qetk_zbid;

---===============================================================================================================================================
---======================================== 声明：查询（直接支付）部分退款   信息的游标     =======================================================
---===============================================================================================================================================
 CURSOR zjzf_bftk_loop  IS
select zjzf_bftk_zbid,sum(zjzf_bftk_amt) as zjzf_bftk from (select gpr.zbz_bal_id as zjzf_bftk_zbid,
          to_char(gpr.collate_date, 'yyyyMM') as zjzf_bftk_adutiem,
          nvl(sum(gpr.amt), 0) as zjzf_bftk_amt
     from gk_part_refundment gpr
    where gpr.audit_status = '9' /*流程审结状态*/

      and gpr.voucher_type = '0' /*支付凭证类型(直接为'0' */
    group by gpr.zbz_bal_id, to_char(gpr.collate_date, 'yyyyMM')) x2
     where x2.zjzf_bftk_adutiem >= startyear||startmonth
    and x2.zjzf_bftk_adutiem <= endyear||endmonth
    group by zjzf_bftk_zbid;

---===============================================================================================================================================
---======================================== 声明：查询（直接支付）调整前金额   信息的游标     =======================================================
---===============================================================================================================================================
 CURSOR zcywtz_zjzf_tzq_loop  IS
select zcywtz_zjzf_tzq_zbid,sum(zcywtz_zjzf_tzq_amt) as zcywtz_zjzf_tzq from (select gad.df_zba_id as  zcywtz_zjzf_tzq_zbid ,/*调整前指标*/
            to_char(ga.create_dt,'yyyyMM')  as  zcywtz_zjzf_tzq_adutiem ,/*调整前：调整年份*/
            sum(gad.balance )as zcywtz_zjzf_tzq_amt  /*调整前：调整金额*/
        from gk_adjust_detail gad,/*支出账务调整业务_明细*/
             gk_adjust ga /*支出账务调整业务_主表*/
       where gad.gk_adjust_id  = ga.id /*支出账务调整业务主表 与 支出账务调整业务_明细表 关联*/
        and  ga.biz_status='9'/*取：一般支付主表已经处于审结状态的数据*/
        and  ga.expenditure_type='0' /* 支出类型(0直接支付,1授权支付) */
        /*and  to_char(ga.create_dt,'yyyyMM') >=201701
        and  to_char(ga.create_dt,'yyyyMM')<= 201712*/
   group by  gad.df_zba_id, to_char(ga.create_dt ,'yyyyMM')) x3
    where x3.zcywtz_zjzf_tzq_adutiem >= startyear||startmonth
    and x3.zcywtz_zjzf_tzq_adutiem <= endyear||endmonth
    group by zcywtz_zjzf_tzq_zbid;


---===============================================================================================================================================
---======================================== 声明：查询（直接支付）调整后金额   信息的游标     =======================================================
---===============================================================================================================================================
 CURSOR zcywtz_zjzf_tzh_loop  IS
select zcywtz_zjzf_tzh_zbid,sum(zcywtz_zjzf_tzh_amt) as zcywtz_zjzf_tzh from (select gad.jf_zba_id as zcywtz_zjzf_tzh_zbid ,/*调整后指标*/
            to_char(ga.create_dt ,'yyyyMM')  as zcywtz_zjzf_tzh_adutiem ,/*调整后：调整年份*/
            sum(gad.balance) as zcywtz_zjzf_tzh_amt /*调整后：调整金额*/
        from gk_adjust_detail gad,/*支出账务调整业务_明细*/
             gk_adjust ga /*支出账务调整业务_主表*/
        where gad.gk_adjust_id  = ga.id /*支出账务调整业务主表 与 支出账务调整业务_明细表 关联*/
        and  ga.biz_status='9'/*取：一般支付主表已经处于审结状态的数据*/
        and  ga.expenditure_type='0' /* 支出类型(0直接支付,1授权支付) */
        group by gad.jf_zba_id  ,to_char(ga.create_dt ,'yyyyMM')) x4
        where x4.zcywtz_zjzf_tzh_adutiem >= startyear||startmonth
        and x4.zcywtz_zjzf_tzh_adutiem <= endyear||endmonth
        group by zcywtz_zjzf_tzh_zbid;

---===============================================================================================================================================
---======================================== 声明：查询 （授权支付）支出数 信息的游标   ===========================================================
---===============================================================================================================================================


 CURSOR  sqzf_zc_loop IS
 select sqzf_zc_zbid,sum(sqzf_zc_amt) as sqzf_zc from (select gz.zbz_bal_id as sqzf_zc_zbid,
          to_char(gz.affirm_date, 'yyyyMM') as sqzf_zc_adutiem,
          nvl(sum(gz.amt), 0) as sqzf_zc_amt
     from gk_zfpz gz
    where gz.check_status in ('1','2','02') /*正常支付*/
      and gz.wf_status = '9' /*审结状态*/
      and gz.voucher_type = '1' /*支付凭证类型(授权支付为'1' */
    group by gz.zbz_bal_id, to_char(gz.affirm_date, 'yyyyMM')) sq1
    where sq1.sqzf_zc_adutiem >=startyear||startmonth
    and sq1.sqzf_zc_adutiem <= endyear||endmonth
    group by sqzf_zc_zbid;


---===============================================================================================================================================
---======================================== 声明：查询 （授权支付）全额退款 信息的游标   ===========================================================
---===============================================================================================================================================
 CURSOR sqzf_qetk_loop IS
select sqzf_qetk_zbid,sum(sqzf_qetk_amt) as sqzf_qetk from (select gz.zbz_bal_id as sqzf_qetk_zbid,
          to_char(gz.back_oper_date, 'yyyyMM') as sqzf_qetk_adutiem,
          nvl(sum(gz.amt), 0) as sqzf_qetk_amt
     from gk_zfpz gz
    where gz.check_status = '2' /*确认全额退款*/
      and gz.wf_status = '9' /*审结状态*/
      and gz.voucher_type = '1' /*支付凭证类型(授权支付为'1' */
    group by gz.zbz_bal_id, to_char(gz.back_oper_date, 'yyyyMM')) sq2
     where sq2.sqzf_qetk_adutiem >=startyear||startmonth
    and sq2.sqzf_qetk_adutiem <= endyear||endmonth
    group by sqzf_qetk_zbid;


---===============================================================================================================================================
---======================================== 声明：查询 （授权支付）部分退款 信息的游标   ===========================================================
---===============================================================================================================================================
 CURSOR sqzf_bftk_loop IS
select sqzf_bftk_zbid,sum(sqzf_bftk_amt) as sqzf_bftk from (select gpr.zbz_bal_id as sqzf_bftk_zbid,
          to_char(gpr.collate_date, 'yyyyMM') as sqzf_bftk_adutiem,
          nvl(sum(gpr.amt), 0) as sqzf_bftk_amt
     from gk_part_refundment gpr
    where gpr.audit_status = '9' /*流程审结状态*/

      and gpr.voucher_type = '1' /*支付凭证类型(授权支付为'1' */
    group by gpr.zbz_bal_id, to_char(gpr.collate_date, 'yyyyMM')) sq3
     where sq3.sqzf_bftk_adutiem >=startyear||startmonth
    and sq3.sqzf_bftk_adutiem <= endyear||endmonth
    group by sqzf_bftk_zbid;


---===============================================================================================================================================
---======================================== 声明：查询 （授权支付）调整前金额 信息的游标   ===========================================================
---===============================================================================================================================================
 CURSOR zcywtz_sqzf_tzq_loop IS
select zcywtz_sqzf_tzq_zbid,sum(zcywtz_sqzf_tzq_amt) as zcywtz_sqzf_tzq from (select gad.df_zba_id as  zcywtz_sqzf_tzq_zbid ,/*调整前指标*/
            to_char(ga.create_dt ,'yyyyMM')  as  zcywtz_sqzf_tzq_adutiem ,/*调整前：调整年份*/
            sum(gad.balance )as zcywtz_sqzf_tzq_amt  /*调整前：调整金额*/
        from gk_adjust_detail gad,/*支出账务调整业务_明细*/
             gk_adjust ga /*支出账务调整业务_主表*/
        where gad.gk_adjust_id  = ga.id /*支出账务调整业务主表 与 支出账务调整业务_明细表 关联*/
        and  ga.biz_status='9'/*取：一般支付主表已经处于审结状态的数据*/
        and  ga.expenditure_type='1' /* 支出类型(0直接支付,1授权支付) */
   group by  gad.df_zba_id, to_char(ga.create_dt ,'yyyyMM')) sq4
     where sq4.zcywtz_sqzf_tzq_adutiem >=startyear||startmonth
    and sq4.zcywtz_sqzf_tzq_adutiem <= endyear||endmonth
    group by zcywtz_sqzf_tzq_zbid;


---===============================================================================================================================================
---======================================== 声明：查询 （授权支付）全额退款 信息的游标   ===========================================================
---===============================================================================================================================================
 CURSOR zcywtz_sqzf_tzh_loop IS
select zcywtz_sqzf_tzh_zbid,sum(zcywtz_sqzf_tzh_amt) as zcywtz_sqzf_tzh from (select gad.jf_zba_id as zcywtz_sqzf_tzh_zbid ,/*调整后指标*/
            to_char(ga.create_dt ,'yyyyMM')  as zcywtz_sqzf_tzh_adutiem ,/*调整后：调整年份*/
            sum(gad.balance) as zcywtz_sqzf_tzh_amt /*调整后：调整金额*/
        from gk_adjust_detail gad,/*支出账务调整业务_明细*/
             gk_adjust ga /*支出账务调整业务_主表*/
        where gad.gk_adjust_id  = ga.id /*支出账务调整业务主表 与 支出账务调整业务_明细表 关联*/
        and  ga.biz_status='9'/*取：一般支付主表已经处于审结状态的数据*/
        and  ga.expenditure_type='1' /* 支出类型(0直接支付,1授权支付) */
        group by gad.jf_zba_id  ,to_char(ga.create_dt ,'yyyyMM')) sq5
     where sq5.zcywtz_sqzf_tzh_adutiem >=startyear||startmonth
    and sq5.zcywtz_sqzf_tzh_adutiem <= endyear||endmonth
    group by zcywtz_sqzf_tzh_zbid;

---===============================================================================================================================================
---======================================== 声明：查询 （一般支付）支出数 信息的游标   ===========================================================
---===============================================================================================================================================
  CURSOR  ybzf_zc_loop IS
     select ybzf_zc_zbid,sum(ybzf_amt) as ybzf_zc from (select ybzf.zbz_bal_id as ybzf_zc_zbid,
          to_char(ybzf.checker_date, 'yyyyMM') as ybzf_adutiem,
          nvl(sum(ybzf.amt), 0) as ybzf_amt
     from gk_zfpz ybzf
     where ybzf.voucher_type ='3'
     and ybzf.wf_status ='9'
    group by ybzf.zbz_bal_id, to_char(ybzf.checker_date, 'yyyyMM')) yb1
     where yb1.ybzf_adutiem >=startyear||startmonth
    and yb1.ybzf_adutiem <= endyear||endmonth
    group by ybzf_zc_zbid;


---===============================================================================================================================================
---======================================== 声明：查询 （一般支付)退款金额 信息的游标   ===========================================================
---===============================================================================================================================================
  CURSOR  ybzf_tk_loop IS
select ybzf_tk_zbid,sum(ybzf_tk_amt) as ybzf_tk from (select crbd.zbz_bal_id as ybzf_tk_zbid,
          to_char(crb.checker_date, 'yyyyMM') as ybzf_tk_adutiem,
          nvl(sum(crbd.back_amt), 0) as ybzf_tk_amt
     from  common_req_back_detail crbd,common_req_back crb
     where crb.id = crbd.common_req_back_id and crb.wf_status ='9'
    group by crbd.zbz_bal_id, to_char(crb.checker_date, 'yyyyMM')) yb2
     where yb2.ybzf_tk_adutiem >=startyear||startmonth
    and yb2.ybzf_tk_adutiem <= endyear||endmonth
    group by ybzf_tk_zbid;


---===============================================================================================================================================
---======================================== 声明：查询 （一般支付)调整前金额 信息的游标   ===========================================================
---===============================================================================================================================================
  CURSOR  zcywtz_ybzf_tzq_loop IS
select zcywtz_ybzf_tzq_zbid,sum(zcywtz_sqzf_tzq_amt) as zcywtz_ybzf_tzq from (select gad.df_zba_id as  zcywtz_ybzf_tzq_zbid ,/*调整前指标*/
            to_char(ga.create_dt ,'yyyyMM')  as  zcywtz_ybzf_tzq_adutiem ,/*调整前：调整年份*/
            sum(gad.balance )as zcywtz_sqzf_tzq_amt  /*调整前：调整金额*/
        from gk_adjust_detail gad,/*支出账务调整业务_明细*/
             gk_adjust ga /*支出账务调整业务_主表*/
        where gad.gk_adjust_id  = ga.id /*支出账务调整业务主表 与 支出账务调整业务_明细表 关联*/
        and  ga.biz_status='9'/*取：一般支付主表已经处于审结状态的数据*/
        and  ga.expenditure_type='3' /* 支出类型(0直接支付,1授权支付) */
   group by  gad.df_zba_id, to_char(ga.create_dt ,'yyyyMM')) yb3
     where yb3.zcywtz_ybzf_tzq_adutiem >=startyear||startmonth
    and yb3.zcywtz_ybzf_tzq_adutiem <= endyear||endmonth
    group by zcywtz_ybzf_tzq_zbid;


---===============================================================================================================================================
---======================================== 声明：查询 （一般支付)调整前金额 信息的游标   ===========================================================
---===============================================================================================================================================
  CURSOR  zcywtz_ybzf_tzh_loop IS
select zcywtz_ybzf_tzh_zbid,sum(zcywtz_sqzf_tzh_amt) as zcywtz_ybzf_tzh from (select gad.jf_zba_id as zcywtz_ybzf_tzh_zbid ,/*调整后指标*/
            to_char(ga.create_dt ,'yyyyMM')  as zcywtz_ybzf_tzh_adutiem ,/*调整后：调整年份*/
            sum(gad.balance) as zcywtz_sqzf_tzh_amt /*调整后：调整金额*/
        from gk_adjust_detail gad,/*支出账务调整业务_明细*/
             gk_adjust ga /*支出账务调整业务_主表*/
         where gad.gk_adjust_id  = ga.id /*支出账务调整业务主表 与 支出账务调整业务_明细表 关联*/
        and  ga.biz_status='9'/*取：一般支付主表已经处于审结状态的数据*/
        and  ga.expenditure_type='3' /* 支出类型(0直接支付,1授权支付) */
        group by gad.jf_zba_id  ,to_char(ga.create_dt ,'yyyyMM')) yb4
     where yb4.zcywtz_ybzf_tzh_adutiem >=startyear||startmonth
    and yb4.zcywtz_ybzf_tzh_adutiem <= endyear||endmonth
    group by zcywtz_ybzf_tzh_zbid;

---===============================================================================================================================================
---======================================== 声明：全部数据   ===========================================================
---===============================================================================================================================================
 CURSOR  tmp_tab_summary_loop IS
    select * from tmp_tab_summary;

---===============================================================================================================================================
---========================================         脚本程序块：开始执行区域             ===========================================================
---===============================================================================================================================================


begin
----对参数进行判断空校验
if startyear  is null then
   dbms_output.put_line('起始年度不能为空');
   END IF;
if endyear    is null  then
   dbms_output.put_line('终止年度不能为空');
   END IF;
if startmonth    is null  then
   dbms_output.put_line('起始月份不能为空');
   END IF;
if endmonth    is null  then
   dbms_output.put_line('终止月份不能为空');
   END IF;

v_sql :='select id,zbid,bdgyear,fundtype,unitno,unitid,org_id,src_id,
          prj_code,prj_id,zb_project_type,bdgt_id_type,budgetno,
         budgetid,itemno,item_id,entire_manage,adjlevel,
          is_heding,direct_amt,accredit_amt,tradition_amt,zb_amt,zjzf_zc_sum,
          sqzf_zc_sum,ybzf_sum,zc_sum
          from tmp_tab_summary t
          where t.bdgyear >='||startyear||
          'and   t.bdgyear <='||endyear||
          'and ((direct_amt-zjzf_zc_sum) >= 0 or (accredit_amt-sqzf_zc_sum) >= 0 or (tradition_amt -ybzf_sum) >= 0) '||
         orgsql||
          'and zbid not in (select zbz_bal_id from gk_yearbal_heding )';




/*select b.id,b.bdgyear,b.fundtype,b.unitno,b.unitid,b.org_id,b.src_id,
          b.prj_code,b.prj_id,x.zb_project_type,x.prj_end_year,b.bdgt_id_type,b.budgetno,
         b.budgetid,b.itemno,b.item_id,b.entire_manage,b.adjlevel,
          b.is_heding,b.yearbal_no,b.direct_amt,b.accredit_amt,b.tradition_amt,b.zb_amt,s.*,
          (b.direct_amt-s.direct_payamt) zbjy_zjzf,(b.accredit_amt-s.accredit_payamt) zbjy_sqzf,(b.tradition_amt -s.tradition_payamt) zbjy_ybzf,(b.zb_amt-s.sum_payamt) zbjy_sum
     from (select * from zb_bal where not exists(select * from gk_yearbal_heding where zb_bal.id=gk_yearbal_heding.zbz_bal_id)) b,

      (select zbid,sum(zjzf_zc_sum) direct_payamt,sum(sqzf_zc_sum) accredit_payamt,
               sum(ybzf_sum) tradition_payamt,sum(zc_sum) sum_payamt
          from VIEW_ANNUAL_SPEND_SUMMARY
         group by zbid) s,(select id,prj_type zb_project_type from bs_xmk) x
       where b.id = s.zbid(+) and b.prj_id = x.id and b.bdgyear='2017'
       and ((b.direct_amt-s.direct_payamt) > 0 or (b.accredit_amt-s.accredit_payamt) > 0 or (b.tradition_amt -s.tradition_payamt) > 0)
and b.org_id = '106'
    order by b.fundtype,b.src_id,b.is_heding,b.id*/


delete_sql := 'delete from tmp_tab_summary';
EXECUTE IMMEDIATE delete_sql;

/*select count(*)
     INTO TABEXT
     FROM ALL_TABLES
    WHERE TABLE_NAME = 'tmp_tab_summary';*/

/*IF TABEXT = 0 THEN
   --不存在临时表就创建一个
   EXECUTE IMMEDIATE create_sql;
   DBMS_OUTPUT.PUT_LINE('创建临时表成功！');
ELSE
   EXECUTE IMMEDIATE delete_sql;
   DBMS_OUTPUT.PUT_LINE('删除记录完成！');
END IF;*/



   ---- 向 临时表tmp_tab_summary 中插入  指标信息
    for  zbinfo IN  zbinfo_loop loop  --遍历游标
        insert into  tmp_tab_summary ( ZBID,BDGYEAR,UNITID,UNITNO,UNIT_NAME,SRC_ID,SRC_NAME,SRC_TYPENAME,SRC_TYPE,
    BDGT_ID_TYPE,BDGT_ID_TYPENAME,BUDGETID,BUDGETNO,BUDGETNAME,PRJ_ID,PRJ_CODE,PRJ_CODENAME,ZB_PROJECT_TYPE,PRO_TYPE_NAME,
    ITEM_ID,ITEMNO,ITEMNAME,ORG_ID,ORG_NAME,ZB_AMT,DIRECT_AMT,ACCREDIT_AMT,DIRECT_PLAN,ACCREDIT_PLAN,TRADITION_AMT,ADJLEVEL,
    ADJLEVEL_NAME,YEARBAL_STATUS,YEARBAL_NAME,IS_HEDING,EARLY_AMT,EARLY_CHANGE_AMT,ADDITIONAL_AMT,TRADITION_NUM,FUNDTYPE,
    FUNDTYPE_NAME,ISSUE_NUM,BZ,IS_UNIFY,IS_FREEZE,ORIGIN_ID,ENTIRE_MANAGE,
    STARTYM,ENDYM
    /*ZJZF_ZC,ZJZF_QETK,ZJZF_BFTK,ZCYWTZ_ZJZF_TZQ,ZCYWTZ_ZJZF_TZH,
    SQZF_ZC,SQZF_QETK,SQZF_BFTK,ZCYWTZ_SQZF_TZQ,ZCYWTZ_SQZF_TZH,
    YBZF_ZC,YBZF_TK,ZCYWTZ_YBZF_TZQ,ZCYWTZ_YBZF_TZH,
    ZJZF_ZC_SUM,SQZF_ZC_SUM,YBZF_SUM,ZC_SUM,ZBJY_SUM,ZBJY_ZJZF,ZBJY_SQZF,ZBJY_YBZF*/
    )
    values(zbinfo.id,zbinfo.BDGYEAR,zbinfo.UNITID,zbinfo.UNITNO,zbinfo.UNIT_NAME,zbinfo.SRC_ID,zbinfo.SRC_NAME,zbinfo.SRC_TYPENAME,zbinfo.SRC_TYPE,
    zbinfo.BDGT_ID_TYPE,zbinfo.BDGT_ID_TYPENAME,zbinfo.BUDGETID,zbinfo.BUDGETNO,zbinfo.BUDGETNAME,zbinfo.PRJ_ID,zbinfo.PRJ_CODE,zbinfo.PRJ_CODENAME,zbinfo.ZB_PROJECT_TYPE,zbinfo.PRO_TYPE_NAME,
    zbinfo.ITEM_ID,zbinfo.ITEMNO,zbinfo.ITEMNAME,zbinfo.ORG_ID,zbinfo.ORG_NAME,zbinfo.ZB_AMT,zbinfo.DIRECT_AMT,zbinfo.ACCREDIT_AMT,zbinfo.DIRECT_PLAN,zbinfo.ACCREDIT_PLAN,zbinfo.TRADITION_AMT,zbinfo.ADJLEVEL,
    zbinfo.ADJLEVEL_NAME,zbinfo.YEARBAL_STATUS,zbinfo.YEARBAL_NAME,zbinfo.IS_HEDING,zbinfo.EARLY_AMT,zbinfo.EARLY_CHANGE_AMT,zbinfo.ADDITIONAL_AMT,zbinfo.TRADITION_NUM,zbinfo.FUNDTYPE,
    zbinfo.FUNDTYPE_NAME,zbinfo.ISSUE_NUM,zbinfo.BZ,zbinfo.IS_UNIFY,zbinfo.IS_FREEZE,zbinfo.ORIGIN_ID,zbinfo.ENTIRE_MANAGE,
    startyear||startmonth,endyear||endmonth) ;
    --结束游标
    END LOOP;


    ----更新  （直接支付）  支出数信息
     for  zjzf_zc IN  zjzf_zc_loop loop  --遍历游标
         update   tmp_tab_summary  tts set tts.zjzf_zc=nvl(zjzf_zc.zjzf_zc,0)
            where tts.zbid= zjzf_zc.zjzf_zc_zbid;
    --结束游标
    END LOOP;

      ----更新  （直接支付） 全额退款 信息
     for  zjzf_qetk IN  zjzf_qetk_loop loop  --遍历游标
         update   tmp_tab_summary  tts set tts.zjzf_qetk=nvl(zjzf_qetk.zjzf_qetk,0)
            where tts.zbid= zjzf_qetk.zjzf_qetk_zbid;
    --结束游标
    END LOOP;

      ----更新  （直接支付） 部分退款 信息
     for  zjzf_bftk IN  zjzf_bftk_loop loop  --遍历游标
         update   tmp_tab_summary  tts set tts.zjzf_bftk=nvl(zjzf_bftk.zjzf_bftk,0)
            where tts.zbid= zjzf_bftk.zjzf_bftk_zbid;
    --结束游标
    END LOOP;

      ----更新  （直接支付） 调整前金额 信息
     for  zcywtz_zjzf_tzq IN  zcywtz_zjzf_tzq_loop loop  --遍历游标
         update   tmp_tab_summary  tts set tts.zcywtz_zjzf_tzq=nvl(zcywtz_zjzf_tzq.zcywtz_zjzf_tzq,0)
            where tts.zbid= zcywtz_zjzf_tzq.zcywtz_zjzf_tzq_zbid;
    --结束游标
    END LOOP;

     ----更新  （直接支付） 调整后金额 信息
     for  zcywtz_zjzf_tzh IN  zcywtz_zjzf_tzh_loop loop  --遍历游标
         update   tmp_tab_summary  tts set tts.zcywtz_zjzf_tzh=nvl(zcywtz_zjzf_tzh.zcywtz_zjzf_tzh,0)
            where tts.zbid= zcywtz_zjzf_tzh.zcywtz_zjzf_tzh_zbid;
    --结束游标
    END LOOP;


    ----更新  （授权支付）  支出数信息
     for  sqzf_zc IN  sqzf_zc_loop loop  --遍历游标
         update   tmp_tab_summary  tts set tts.sqzf_zc =nvl(sqzf_zc.sqzf_zc,0)
            where tts.zbid= sqzf_zc.sqzf_zc_zbid ;
    --结束游标
    END LOOP;

    ----更新  （授权支付）  全额退款金额
     for  sqzf_qetk IN  sqzf_qetk_loop loop  --遍历游标
         update   tmp_tab_summary  tts set tts.sqzf_qetk =nvl(sqzf_qetk.sqzf_qetk,0)
            where tts.zbid= sqzf_qetk.sqzf_qetk_zbid ;
    --结束游标
    END LOOP;

    ----更新  （授权支付）  部分退款金额
     for  sqzf_bftk IN  sqzf_bftk_loop loop  --遍历游标
         update   tmp_tab_summary  tts set tts.sqzf_bftk =nvl(sqzf_bftk.sqzf_bftk,0)
            where tts.zbid= sqzf_bftk.sqzf_bftk_zbid ;
    --结束游标
    END LOOP;

    ----更新  （授权支付）  调整前金额
     for  zcywtz_sqzf_tzq IN  zcywtz_sqzf_tzq_loop loop  --遍历游标
         update   tmp_tab_summary  tts set tts.zcywtz_sqzf_tzq =nvl(zcywtz_sqzf_tzq.zcywtz_sqzf_tzq,0)
            where tts.zbid= zcywtz_sqzf_tzq.zcywtz_sqzf_tzq_zbid ;
    --结束游标
    END LOOP;

    ----更新  （授权支付）  调整后金额
     for  zcywtz_sqzf_tzh IN  zcywtz_sqzf_tzh_loop loop  --遍历游标
         update   tmp_tab_summary  tts set tts.zcywtz_sqzf_tzh =nvl(zcywtz_sqzf_tzh.zcywtz_sqzf_tzh,0)
            where tts.zbid= zcywtz_sqzf_tzh.zcywtz_sqzf_tzh_zbid ;
    --结束游标
    END LOOP;

    ----更新  （一般支付）  支出数信息
     for  ybzf_zc IN  ybzf_zc_loop loop  --遍历游标
         update   tmp_tab_summary  tts set tts.ybzf_zc =nvl(ybzf_zc.ybzf_zc,0)
            where tts.zbid= ybzf_zc.ybzf_zc_zbid ;
    --结束游标
    END LOOP;

     ----更新  （一般支付）  退款金额
     for  ybzf_tk IN  ybzf_tk_loop loop  --遍历游标
         update   tmp_tab_summary  tts set tts.ybzf_tk =nvl(ybzf_tk.ybzf_tk,0)
            where tts.zbid= ybzf_tk.ybzf_tk_zbid ;
    --结束游标
    END LOOP;

    ----更新  （一般支付）  调整前金额
     for  zcywtz_ybzf_tzq IN  zcywtz_ybzf_tzq_loop loop  --遍历游标
         update   tmp_tab_summary  tts set tts.zcywtz_ybzf_tzq =nvl(zcywtz_ybzf_tzq.zcywtz_ybzf_tzq,0)
            where tts.zbid= zcywtz_ybzf_tzq.zcywtz_ybzf_tzq_zbid ;
    --结束游标
    END LOOP;

    ----更新  （一般支付）  调整后金额
     for  zcywtz_ybzf_tzh IN  zcywtz_ybzf_tzh_loop loop  --遍历游标
         update   tmp_tab_summary  tts set tts.zcywtz_ybzf_tzh =nvl(zcywtz_ybzf_tzh.zcywtz_ybzf_tzh,0)
            where tts.zbid= zcywtz_ybzf_tzh.zcywtz_ybzf_tzh_zbid ;
    --结束游标
    END LOOP;

    ----更新  总额
    for tmpsum in tmp_tab_summary_loop loop
         update   tmp_tab_summary  tts set
         tts.zjzf_zc_sum =
         nvl(nvl(tts.zjzf_zc, 0) - nvl(tts.zjzf_qetk, 0) - nvl(tts.zjzf_bftk，0)- nvl(tts.zcywtz_zjzf_tzq,0)+nvl(tts.zcywtz_zjzf_tzh,0),0),
         tts.sqzf_zc_sum=
         nvl((nvl(tts.sqzf_zc, 0) - nvl(tts.sqzf_qetk, 0) - nvl(tts.sqzf_bftk, 0)-nvl(tts.zcywtz_sqzf_tzq,0)+nvl(tts.zcywtz_sqzf_tzh,0)), 0),
         tts.ybzf_sum=
         nvl((nvl(tts.ybzf_zc, 0) - nvl(tts.ybzf_tk, 0) - nvl(tts.zcywtz_ybzf_tzq,0)+nvl(tts.zcywtz_ybzf_tzh,0) ), 0),
         tts.zc_sum=
              nvl(((nvl(tts.zjzf_zc, 0) - nvl(tts.zjzf_qetk, 0) - nvl(tts.zjzf_bftk, 0)-nvl(tts.zcywtz_zjzf_tzq,0)
              +nvl(tts.zcywtz_zjzf_tzh,0)  ) + (nvl(tts.sqzf_zc, 0) - nvl(tts.sqzf_qetk, 0) - nvl(tts.sqzf_bftk, 0)
              -nvl(tts.zcywtz_sqzf_tzq,0)+nvl(tts.zcywtz_sqzf_tzh,0)) + (nvl(tts.ybzf_zc, 0) - nvl(tts.ybzf_tk, 0)
              - nvl(tts.zcywtz_ybzf_tzq,0)+nvl(tts.zcywtz_ybzf_tzh,0))), 0)
         where tts.zbid= tmpsum.zbid ;
    end loop;



  OPEN v_cur FOR v_sql;

   commit;

end pro_annual_spend_summary ;

 

 

示例4：拼接sql，返回数据结果集合

 

CREATE OR REPLACE PACKAGE PACKAGE_SUPER_INCOME
AS
TYPE CURSOR_SUPER_INCOME
IS
  REF
  CURSOR;
  END PACKAGE_SUPER_INCOME;

 

CREATE OR REPLACE PROCEDURE PROC_SUPER_INCOME(
    YEAR        IN VARCHAR2,
    start_time  IN VARCHAR2,
    end_time    IN VARCHAR2,
    start_month IN VARCHAR2,
    end_month   IN VARCHAR2,
    P_CURSOR OUT PACKAGE_SUPER_INCOME.CURSOR_SUPER_INCOME)
AS
  sqlStr LONG;
BEGIN
  sqlStr := 'SELECT NULL RN,NULL PRJ_LEVEL, NULL GP, NULL FUNC_BDGID, NULL FUNC_BDGNAME,null src_id,null src_name, NULL PRJ_NO, ''上级补助收入总计'' PRJ_NAME, NULL FILE_WORD, NULL ZB_ID, NULL BDG_NO, NULL BDG_NAME, t.amt, t.ZB_AMT,t.PAY_AMT, NULL BDG_UNIT, NULL UNIT_NO, NULL UNIT_NAME, NULL INCOME_TIME, NULL DT , NULL CONCLUDE_DT, NULL PAY_COMPLETE_DT, NULL ORG_NAME, NULL HAVE_LZ, NULL HAVE_SUBSIDY ,NULL EARLY_ASSIGNED,NULL ZB_FILE_WORD,NULL COMMENTS,NULL RANK
FROM
(SELECT SUM(v.AMT) amt,
SUM(
CASE
WHEN v.HAVE_LZ=1
THEN v.ZB_AMT
WHEN v.HAVE_SUBSIDY=1
AND v.bdg_UNITNO        =''sys00000''
THEN v.ZB_AMT
ELSE (
CASE NVL(v.ZB_ID,-1)
WHEN           -1
THEN 0
ELSE (
CASE
WHEN v.BIZ_STATUS=9
AND v.CONCLUDE_DT   is null
THEN v.ZB_AMT
WHEN v.BIZ_STATUS=9
AND (v.CONCLUDE_DT BETWEEN to_date(''' ||
  start_time || ''',''yyyy-mm-dd'') AND to_date(''' || end_time || ''',''yyyy-mm-dd'')  )
THEN v.ZB_AMT
ELSE 0
END)
END)
END

) ZB_AMT,
sum(
case
when v.ZJ_TYPE=1 then 0
else (
CASE
WHEN v.HAVE_LZ=1
THEN v.AMT
WHEN v.HAVE_SUBSIDY=1
AND v.bdg_UNITNO        =''sys00000''
THEN v.AMT
ELSE
(SELECT SUM(ZC_SUM) PAY_AMT
FROM VIEW_ANNUAL_SPEND_SUMMARY
WHERE ZBID=v.ZB_ID and BDGYEARMON BETWEEN ''' || start_month || ''' AND ''' || end_month || '''
GROUP BY ZBID
)
END) end) PAY_AMT
FROM VIEW_SUPER_INCOME_IDX_TAB v
where v.LZ_YEAR=''' || YEAR || ''' AND v.INCOME_TIME BETWEEN to_date(''' || start_time || ''',''yyyy-mm-dd'') AND to_date(''' || end_time ||
  ''',''yyyy-mm-dd'')
)t
UNION ALL
select * from(
select

t4.*,rank() over(partition BY t4.gp order by t4.rn asc) rank
from(
SELECT rownum rn,t3.*
FROM
(SELECT DECODE(t1.num,5,1, 4, 2, 3, 3, 2, 4, 1, 5) PRJ_LEVEL,
DECODE(t1.num,5,1,
4, 11,
3, t1.BDG_TYPE || 3,
2, t1.BDG_TYPE || t1.BDG_NO_THREE || 5,
1, t1.BDG_TYPE || t1.BDG_NO_FIVE || 7) gp,
t2.FUNC_BDGID,
t2.FUNC_BDGNAME,
t2.src_id,
t2.src_name,
t2.PRJ_NO,
DECODE(t1.num,5,''一、专项转移支付收入合计'', 4,
(SELECT dd.dict_text
FROM pwp_dict pd
LEFT JOIN pwp_dict_detail dd
ON pd.dict_id    =dd.dict_id
WHERE dict_name  = ''funBudgetType''
AND dd.dict_value=t1.BDG_TYPE
), 3,
(SELECT bg.FUNC_BDGNAME
FROM BS_GNFLYSKM bg
WHERE t1.BDG_TYPE   =bg.FUNC_BDG_TYPE
AND t1.BDG_NO_THREE =bg.FUNC_BDGID
AND bg.BDGYEAR      =' || YEAR ||
  '      AND bg.IS_ON          =''Y''
), 2,
(SELECT SUBSTR(bg.FUNC_BDGNAME,(instr(bg.FUNC_BDGNAME,''--'',-1)+2))
FROM BS_GNFLYSKM bg
WHERE t1.BDG_TYPE  =bg.FUNC_BDG_TYPE
AND t1.BDG_NO_FIVE =bg.FUNC_BDGID
AND bg.BDGYEAR     =' || YEAR || '    AND bg.IS_ON          =''Y''
), 1,
(SELECT SUBSTR(bg.FUNC_BDGNAME,(instr(bg.FUNC_BDGNAME,''--'',-1)+2))
FROM BS_GNFLYSKM bg
WHERE t1.BDG_TYPE=bg.FUNC_BDG_TYPE
AND t1.BDG_NO    =bg.FUNC_BDGID
AND bg.BDGYEAR   =' || YEAR ||
  '    AND bg.IS_ON          =''Y''
), t2.PRJ_NAME) PRJ_NAME,
t2.FILE_WORD,
t2.ZB_ID,
t2.BDG_NO,
t2.BDG_NAME,
t1.amt,
t1.ZB_AMT,
t1.PAY_AMT,
t2.BDG_UNIT,
t2.UNIT_NO,
t2.UNIT_NAME,
TO_CHAR(t2.INCOME_TIME,''yyyy-mm-dd'') INCOME_TIME,
to_char(t2.DT,''yyyy-mm-dd'') DT,
to_char(


(CASE
WHEN t2.HAVE_LZ=1
THEN t2.CONCLUDE_DT
WHEN t2.HAVE_SUBSIDY=1
AND t2.bdg_UNITNO        =''sys00000''
THEN t2.CONCLUDE_DT
ELSE (
CASE
WHEN t2.BIZ_STATUS=9
AND (t2.CONCLUDE_DT BETWEEN to_date(''' || start_time || ''',''yyyy-mm-dd'') AND to_date(''' || end_time ||
  ''',''yyyy-mm-dd'')  )
THEN t2.CONCLUDE_DT
ELSE null
END
)
END)
,''yyyy-mm-dd'') CONCLUDE_DT,
to_char((case
when t1.ZB_AMT=t1.PAY_AMT then t2.PAY_COMPLETE_DT
else null
end),''yyyy-mm-dd'') PAY_COMPLETE_DT,
t2.ORG_NAME,
t2.HAVE_LZ,
t2.HAVE_SUBSIDY ,
t2.EARLY_ASSIGNED,
t2.ZB_FILE_WORD,
t2.COMMENTS
FROM
(SELECT t.yzd_id,
t.BDG_TYPE,
T.BDG_NO_THREE,
T.BDG_NO_FIVE,
t.bdg_no,
grouping(t.yzd_id)+grouping(t.BDG_TYPE)+grouping(t.BDG_NO_THREE)+grouping(t.BDG_NO_FIVE)+grouping(t.bdg_no) num,
SUM(t.AMT) amt,
SUM( CASE
WHEN t.HAVE_LZ=1
THEN t.ZB_AMT
WHEN t.HAVE_SUBSIDY=1
AND t.bdg_UNITNO        =''sys00000''
THEN t.ZB_AMT
ELSE (
CASE NVL(t.ZB_ID,-1)
WHEN           -1
THEN 0
ELSE (
CASE
WHEN t.BIZ_STATUS=9
AND t.CONCLUDE_DT   is null
THEN t.ZB_AMT
WHEN t.BIZ_STATUS=9
AND (t.CONCLUDE_DT BETWEEN to_date('''
  || start_time || ''',''yyyy-mm-dd'') AND to_date(''' || end_time || ''',''yyyy-mm-dd'')  )
THEN t.ZB_AMT
ELSE 0
END)
END)
END ) ZB_AMT,
sum(
case
when t.ZJ_TYPE=1 then 0
else (
CASE
WHEN t.HAVE_LZ=1
THEN t.AMT
WHEN t.HAVE_SUBSIDY=1
AND t.bdg_UNITNO        =''sys00000''
THEN t.AMT
ELSE
(SELECT SUM(ZC_SUM) PAY_AMT
FROM VIEW_ANNUAL_SPEND_SUMMARY
WHERE ZBID=t.ZB_ID and BDGYEARMON BETWEEN ''' || start_month || ''' AND ''' || end_month || '''
GROUP BY ZBID
)
END) end) PAY_AMT
FROM
(SELECT SUBSTR(v.bdg_no,0,3) bdg_no_three,
SUBSTR(v.BDG_NO,0,5) bdg_no_five,
v.*
FROM VIEW_SUPER_INCOME_IDX_TAB v
WHERE (v.FUNC_BDGID IS NULL
OR (v.FUNC_BDGID NOT LIKE ''11002%''
AND v.FUNC_BDGID NOT LIKE ''11001%''
AND v.FUNC_BDGID NOT LIKE ''11011%''))
AND  v.LZ_YEAR='''
  || YEAR || ''' AND  v.INCOME_TIME BETWEEN to_date(''' || start_time || ''',''yyyy-mm-dd'') AND to_date(''' || end_time || ''',''yyyy-mm-dd'')
) t
GROUP BY rollup(t.BDG_TYPE,T.BDG_NO_THREE,T.BDG_NO_FIVE,t.bdg_no,t.yzd_id)
)t1
LEFT JOIN VIEW_SUPER_INCOME_IDX_TAB t2
ON T1.YZD_ID=t2.YZD_ID
AND  t2.LZ_YEAR=''' || YEAR || ''' AND  t2.INCOME_TIME BETWEEN to_date(''' || start_time || ''',''yyyy-mm-dd'') AND to_date(''' || end_time ||
  ''',''yyyy-mm-dd'')
ORDER BY t1.BDG_TYPE nulls FIRST,
T1.BDG_NO_THREE nulls FIRST,
T1.BDG_NO_FIVE nulls FIRST,
t1.bdg_no nulls FIRST ,
t1.yzd_id nulls FIRST
)t3)t4 order by t4.rn asc)
UNION ALL
--------------------------------------------------------
select * from(
select

t4.*,rank() over(partition BY t4.gp order by t4.rn asc) rank
from(
SELECT rownum rn,t3.*
FROM
(SELECT DECODE(t1.num,3,1, 2, 2, 1, 3) PRJ_LEVEL,
DECODE(t1.num,3,1,
2, 11,
1, t1.BDG_TYPE  || 7) gp,
t2.FUNC_BDGID,
t2.FUNC_BDGNAME,
t2.src_id,
t2.src_name,
t2.PRJ_NO,
DECODE(t1.num,3,''二、一般性转移支付收入合计'', 2,
(SELECT dd.dict_text
FROM pwp_dict pd
LEFT JOIN pwp_dict_detail dd
ON pd.dict_id    =dd.dict_id
WHERE dict_name  = ''funBudgetType''
AND dd.dict_value=t1.BDG_TYPE
), 1,
(SELECT bg.FUNC_BDGNAME
FROM BS_GNFLYSKM bg
WHERE
--   t1.BDG_TYPE=bg.FUNC_BDG_TYPE AND
t1.FUNC_BDGID =bg.FUNC_BDGID
AND bg.BDGYEAR  =' || YEAR ||
  '    AND bg.IS_ON          =''Y''
), t2.PRJ_NAME) PRJ_NAME,
t2.FILE_WORD,
t2.ZB_ID,
t2.BDG_NO,
t2.BDG_NAME,
t1.amt,
t1.ZB_AMT,
t1.PAY_AMT,
t2.BDG_UNIT,
t2.UNIT_NO,
t2.UNIT_NAME,
TO_CHAR(t2.INCOME_TIME,''yyyy-mm-dd'') INCOME_TIME,
to_char(t2.DT,''yyyy-mm-dd'') DT,
to_char(
(CASE
WHEN t2.HAVE_LZ=1
THEN t2.CONCLUDE_DT
WHEN t2.HAVE_SUBSIDY=1
AND t2.bdg_UNITNO        =''sys00000''
THEN t2.CONCLUDE_DT
ELSE (
CASE
WHEN t2.BIZ_STATUS=9
AND (t2.CONCLUDE_DT BETWEEN to_date(''' || start_time || ''',''yyyy-mm-dd'') AND to_date(''' || end_time ||
  ''',''yyyy-mm-dd'')  )
THEN t2.CONCLUDE_DT

ELSE null
END


)
END)
,''yyyy-mm-dd'') CONCLUDE_DT,
to_char((case
when t1.ZB_AMT=t1.PAY_AMT then t2.PAY_COMPLETE_DT
else null
end),''yyyy-mm-dd'') PAY_COMPLETE_DT,
t2.ORG_NAME,
t2.HAVE_LZ,
t2.HAVE_SUBSIDY  ,
t2.EARLY_ASSIGNED,
t2.ZB_FILE_WORD,
t2.COMMENTS
FROM
(SELECT t.yzd_id,
t.BDG_TYPE,
t.FUNC_BDGID,
grouping(t.yzd_id)+grouping(t.BDG_TYPE)+grouping(t.FUNC_BDGID) num,
SUM(t.AMT) AMT,
SUM( CASE
WHEN t.HAVE_LZ=1
THEN t.ZB_AMT
WHEN t.HAVE_SUBSIDY=1
AND t.bdg_UNITNO        =''sys00000''
THEN t.ZB_AMT
ELSE (
CASE NVL(t.ZB_ID,-1)
WHEN           -1
THEN 0
ELSE (
CASE
WHEN t.BIZ_STATUS=9
AND t.CONCLUDE_DT   is null
THEN t.ZB_AMT
WHEN t.BIZ_STATUS=9
AND (t.CONCLUDE_DT BETWEEN to_date('''
  || start_time || ''',''yyyy-mm-dd'') AND to_date(''' || end_time || ''',''yyyy-mm-dd'')  )
THEN t.ZB_AMT
ELSE 0
END)
END)
END) ZB_AMT,
sum(
case
when t.ZJ_TYPE=1 then 0
else (
CASE
WHEN t.HAVE_LZ=1
THEN t.AMT
WHEN t.HAVE_SUBSIDY=1
AND t.bdg_UNITNO        =''sys00000''
THEN t.AMT
ELSE
(SELECT SUM(ZC_SUM) PAY_AMT
FROM VIEW_ANNUAL_SPEND_SUMMARY
WHERE ZBID=t.ZB_ID and BDGYEARMON BETWEEN ''' || start_month || ''' AND ''' || end_month || '''
GROUP BY ZBID
)
END) end) PAY_AMT
FROM
(SELECT v.*
FROM VIEW_SUPER_INCOME_IDX_TAB v
WHERE v.FUNC_BDGID LIKE ''11002%''
AND  v.LZ_YEAR=''' || YEAR || ''' AND  v.INCOME_TIME BETWEEN to_date(''' || start_time || ''',''yyyy-mm-dd'') AND to_date(''' || end_time ||
  ''',''yyyy-mm-dd'')
) t
GROUP BY rollup(t.BDG_TYPE,t.FUNC_BDGID,t.yzd_id)
)t1
LEFT JOIN VIEW_SUPER_INCOME_IDX_TAB t2
ON T1.YZD_ID=t2.YZD_ID
AND  t2.LZ_YEAR=''' || YEAR || ''' AND  t2.INCOME_TIME BETWEEN to_date(''' || start_time || ''',''yyyy-mm-dd'') AND to_date(''' || end_time ||
  ''',''yyyy-mm-dd'')
ORDER BY t1.BDG_TYPE nulls FIRST,
T1.FUNC_BDGID nulls FIRST,
t1.yzd_id nulls FIRST
)t3 )t4 order by t4.rn asc)
UNION ALL
--------------------------------------------------------------------
select * from(
select

t4.*,rank() over(partition BY t4.gp order by t4.rn asc) rank
from(
SELECT rownum rn,t3.*
FROM
(SELECT DECODE(t1.num,3,1, 2, 2, 1, 3) PRJ_LEVEL,
DECODE(t1.num,3,1,
2, 11,
1, t1.BDG_TYPE  || 7) gp,
t2.FUNC_BDGID,
t2.FUNC_BDGNAME,
t2.src_id,
t2.src_name,
t2.PRJ_NO,
DECODE(t1.num,3,''三、返还性收入合计'', 2,
(SELECT dd.dict_text
FROM pwp_dict pd
LEFT JOIN pwp_dict_detail dd
ON pd.dict_id    =dd.dict_id
WHERE dict_name  = ''funBudgetType''
AND dd.dict_value=t1.BDG_TYPE
), 1,
(SELECT bg.FUNC_BDGNAME
FROM BS_GNFLYSKM bg
WHERE
--   t1.BDG_TYPE=bg.FUNC_BDG_TYPE AND
t1.FUNC_BDGID =bg.FUNC_BDGID
AND bg.BDGYEAR  =' || YEAR ||
  '    AND bg.IS_ON          =''Y''
), t2.PRJ_NAME) PRJ_NAME,
t2.FILE_WORD,
t2.ZB_ID,
t2.BDG_NO,
t2.BDG_NAME,
t1.amt,
t1.ZB_AMT,
t1.PAY_AMT,
t2.BDG_UNIT,
t2.UNIT_NO,
t2.UNIT_NAME,
TO_CHAR(t2.INCOME_TIME,''yyyy-mm-dd'') INCOME_TIME,
to_char(t2.DT,''yyyy-mm-dd'') DT,
to_char(
(CASE
WHEN t2.HAVE_LZ=1
THEN t2.CONCLUDE_DT
WHEN t2.HAVE_SUBSIDY=1
AND t2.bdg_UNITNO        =''sys00000''
THEN t2.CONCLUDE_DT
ELSE (
CASE
WHEN t2.BIZ_STATUS=9
AND (t2.CONCLUDE_DT BETWEEN to_date(''' || start_time || ''',''yyyy-mm-dd'') AND to_date(''' || end_time ||
  ''',''yyyy-mm-dd'')  )
THEN t2.CONCLUDE_DT

ELSE null
END


)
END)
,''yyyy-mm-dd'') CONCLUDE_DT,
to_char((case
when t1.ZB_AMT=t1.PAY_AMT then t2.PAY_COMPLETE_DT
else null
end),''yyyy-mm-dd'') PAY_COMPLETE_DT,
t2.ORG_NAME,
t2.HAVE_LZ,
t2.HAVE_SUBSIDY,
t2.EARLY_ASSIGNED,
t2.ZB_FILE_WORD,
t2.COMMENTS
FROM
(SELECT t.yzd_id,
t.BDG_TYPE,
t.FUNC_BDGID,
grouping(t.yzd_id)+grouping(t.BDG_TYPE)+grouping(t.FUNC_BDGID) num,
SUM(t.AMT) AMT,
SUM( CASE
WHEN t.HAVE_LZ=1
THEN t.ZB_AMT
WHEN t.HAVE_SUBSIDY=1
AND t.bdg_UNITNO        =''sys00000''
THEN t.ZB_AMT
ELSE (
CASE NVL(t.ZB_ID,-1)
WHEN           -1
THEN 0
ELSE (
CASE
WHEN t.BIZ_STATUS=9
AND t.CONCLUDE_DT   is null
THEN t.ZB_AMT
WHEN t.BIZ_STATUS=9
AND (t.CONCLUDE_DT BETWEEN to_date('''
  || start_time || ''',''yyyy-mm-dd'') AND to_date(''' || end_time || ''',''yyyy-mm-dd'')  )
THEN t.ZB_AMT
ELSE 0
END)
END)
END) ZB_AMT,
sum(
case
when t.ZJ_TYPE=1 then 0
else (
CASE
WHEN t.HAVE_LZ=1
THEN t.AMT
WHEN t.HAVE_SUBSIDY=1
AND t.bdg_UNITNO        =''sys00000''
THEN t.AMT
ELSE
(SELECT SUM(ZC_SUM) PAY_AMT
FROM VIEW_ANNUAL_SPEND_SUMMARY
WHERE ZBID=t.ZB_ID and BDGYEARMON BETWEEN ''' || start_month || ''' AND ''' || end_month || '''
GROUP BY ZBID
)
END) end) PAY_AMT
FROM
(SELECT v.*
FROM VIEW_SUPER_INCOME_IDX_TAB v
WHERE v.FUNC_BDGID LIKE ''11001%''
AND  v.LZ_YEAR=''' || YEAR || ''' AND  v.INCOME_TIME BETWEEN to_date(''' || start_time || ''',''yyyy-mm-dd'') AND to_date(''' || end_time ||
  ''',''yyyy-mm-dd'')
) t
GROUP BY rollup(t.BDG_TYPE,t.FUNC_BDGID,t.yzd_id)
)t1
LEFT JOIN VIEW_SUPER_INCOME_IDX_TAB t2
ON T1.YZD_ID=t2.YZD_ID
AND  t2.LZ_YEAR=''' || YEAR || ''' AND  t2.INCOME_TIME BETWEEN to_date(''' || start_time || ''',''yyyy-mm-dd'') AND to_date(''' || end_time ||
  ''',''yyyy-mm-dd'')
ORDER BY t1.BDG_TYPE nulls FIRST,
T1.FUNC_BDGID nulls FIRST,
t1.yzd_id nulls FIRST
)t3 )t4 order by t4.rn asc)
UNION ALL
-------------------------------------------------------
select * from(
select

t4.*,rank() over(partition BY t4.gp order by t4.rn asc) rank
from(
SELECT rownum rn,t3.*
FROM
(SELECT DECODE(t1.num,3,1, 2, 2, 1, 3) PRJ_LEVEL,
DECODE(t1.num,3,1,
2, 11,
1, t1.BDG_TYPE  || 7) gp,
t2.FUNC_BDGID,
t2.FUNC_BDGNAME,
t2.src_id,
t2.src_name,
t2.PRJ_NO,
DECODE(t1.num,3,''四、债务转贷收入合计'', 2,
(SELECT dd.dict_text
FROM pwp_dict pd
LEFT JOIN pwp_dict_detail dd
ON pd.dict_id    =dd.dict_id
WHERE dict_name  = ''funBudgetType''
AND dd.dict_value=t1.BDG_TYPE
), 1,
(SELECT bg.FUNC_BDGNAME
FROM BS_GNFLYSKM bg
WHERE
--   t1.BDG_TYPE=bg.FUNC_BDG_TYPE AND
t1.FUNC_BDGID =bg.FUNC_BDGID
AND bg.BDGYEAR  =' || YEAR ||
  '  AND bg.IS_ON          =''Y''
), t2.PRJ_NAME) PRJ_NAME,
t2.FILE_WORD,
t2.ZB_ID,
t2.BDG_NO,
t2.BDG_NAME,
t1.amt,
t1.ZB_AMT,
t1.PAY_AMT,
t2.BDG_UNIT,
t2.UNIT_NO,
t2.UNIT_NAME,
TO_CHAR(t2.INCOME_TIME,''yyyy-mm-dd'') INCOME_TIME,
to_char(t2.DT,''yyyy-mm-dd'') DT,
to_char(
(CASE
WHEN t2.HAVE_LZ=1
THEN t2.CONCLUDE_DT
WHEN t2.HAVE_SUBSIDY=1
AND t2.bdg_UNITNO        =''sys00000''
THEN t2.CONCLUDE_DT
ELSE (
CASE
WHEN t2.BIZ_STATUS=9
AND (t2.CONCLUDE_DT BETWEEN to_date(''' || start_time || ''',''yyyy-mm-dd'') AND to_date(''' || end_time ||
  ''',''yyyy-mm-dd'')  )
THEN t2.CONCLUDE_DT

ELSE null
END


)
END)
,''yyyy-mm-dd'') CONCLUDE_DT,
to_char((case
when t1.ZB_AMT=t1.PAY_AMT then t2.PAY_COMPLETE_DT
else null
end),''yyyy-mm-dd'') PAY_COMPLETE_DT,
t2.ORG_NAME,
t2.HAVE_LZ,
t2.HAVE_SUBSIDY,
t2.EARLY_ASSIGNED,
t2.ZB_FILE_WORD,
t2.COMMENTS
FROM
(SELECT t.yzd_id,
t.BDG_TYPE,
t.FUNC_BDGID,
grouping(t.yzd_id)+grouping(t.BDG_TYPE)+grouping(t.FUNC_BDGID) num,
SUM(t.AMT) AMT,
SUM( CASE
WHEN t.HAVE_LZ=1
THEN t.ZB_AMT
WHEN t.HAVE_SUBSIDY=1
AND t.bdg_UNITNO        =''sys00000''
THEN t.ZB_AMT
ELSE (
CASE NVL(t.ZB_ID,-1)
WHEN           -1
THEN 0
ELSE (
CASE
WHEN t.BIZ_STATUS=9
AND t.CONCLUDE_DT   is null
THEN t.ZB_AMT
WHEN t.BIZ_STATUS=9
AND (t.CONCLUDE_DT BETWEEN to_date('''
  || start_time || ''',''yyyy-mm-dd'') AND to_date(''' || end_time || ''',''yyyy-mm-dd'')  )
THEN t.ZB_AMT
ELSE 0
END)
END)
END) ZB_AMT,
sum(
case
when t.ZJ_TYPE=1 then 0
else (
CASE
WHEN t.HAVE_LZ=1
THEN t.AMT
WHEN t.HAVE_SUBSIDY=1
AND t.bdg_UNITNO        =''sys00000''
THEN t.AMT
ELSE
(SELECT SUM(ZC_SUM) PAY_AMT
FROM VIEW_ANNUAL_SPEND_SUMMARY
WHERE ZBID=t.ZB_ID and BDGYEARMON BETWEEN ''' || start_month || ''' AND ''' || end_month || '''
GROUP BY ZBID
)
END) end) PAY_AMT
FROM
(SELECT v.*
FROM VIEW_SUPER_INCOME_IDX_TAB v
WHERE v.FUNC_BDGID LIKE ''11011%''
AND  v.LZ_YEAR=''' || YEAR || ''' AND  v.INCOME_TIME BETWEEN to_date(''' || start_time || ''',''yyyy-mm-dd'') AND to_date(''' || end_time ||
  ''',''yyyy-mm-dd'')
) t
GROUP BY rollup(t.BDG_TYPE,t.FUNC_BDGID,t.yzd_id)
)t1
LEFT JOIN VIEW_SUPER_INCOME_IDX_TAB t2
ON T1.YZD_ID=t2.YZD_ID

AND  t2.LZ_YEAR=''' || YEAR || ''' AND  t2.INCOME_TIME BETWEEN to_date(''' || start_time || ''',''yyyy-mm-dd'') AND to_date(''' || end_time || ''',''yyyy-mm-dd'')
ORDER BY t1.BDG_TYPE nulls FIRST,
T1.FUNC_BDGID nulls FIRST,
t1.yzd_id nulls FIRST
)t3 )t4 order by t4.rn asc) ';
  OPEN P_CURSOR FOR sqlStr;
END;

 

 

CREATE OR REPLACE PACKAGE PACKAGE_PRJ_PAY_INDEX
AS
TYPE CURSOR_PRJ_PAY_INDEX
IS
  REF
  CURSOR;
  END PACKAGE_PRJ_PAY_INDEX;




CREATE OR REPLACE PROCEDURE PROC_PRJ_PAY_INDEX(
    bdgyear     IN VARCHAR2,
    pre_bdgyear IN VARCHAR2,
    unitno      IN VARCHAR2,
    P_CURSOR OUT PACKAGE_PRJ_PAY_INDEX.CURSOR_PRJ_PAY_INDEX)
AS
  sqlStr LONG;
BEGIN
  sqlStr := '
select
DECODE(num,4,1, 3, 2, 0, 3) lev,
DECODE(num,3,DECODE(ENTIRE_MANAGE,''0'',''一、日常业务性专项'',''1'',''二、政策、基建及债务专项''),0,PRJ_NAME)
PRJ_NAME,subject,total,pre_bdg_funds,pre_fee_income,pre_fund_income,pre_cur_other,
bdg_funds,fee_income,  fund_Income,  spec_bal, normal_bal,cur_other,  direct_pay, auth_pay
from(
select  grouping(ENTIRE_MANAGE)+grouping(PRJ_NAME)+grouping(subject)+grouping(BUDGET_YEAR) num,
ENTIRE_MANAGE,PRJ_NAME,subject,BUDGET_YEAR,
SUM(amt) total,
SUM(pre_bdg_funds) pre_bdg_funds,
SUM(pre_fee_income) pre_fee_income,
SUM(pre_fund_income) pre_fund_income,
SUM(pre_cur_other) pre_cur_other,
SUM(bdg_funds) bdg_funds,
SUM(fee_income) fee_income,
SUM(fund_Income) fund_Income,
SUM(spec_bal) spec_bal,
SUM(normal_bal) normal_bal,
SUM(cur_other) cur_other,
SUM(direct_pay) direct_pay,
SUM(auth_pay) auth_pay
from (select * from view_prj_pay_index where UNITNO=''' || unitno || ''' and BUDGET_YEAR=''' || bdgyear ||
  '''  
union all
select * from VIEW_PRE_PRJ_PAY_INDEX where UNITNO=''' || unitno || ''' and BUDGET_YEAR=''' || pre_bdgyear || ''')
group by rollup(ENTIRE_MANAGE,(PRJ_NAME,subject,BUDGET_YEAR)) order by ENTIRE_MANAGE nulls first,BUDGET_YEAR desc nulls first,PRJ_NAME nulls first,subject nulls first
) where num <> 4';
  OPEN P_CURSOR FOR sqlStr;
END;

 

CREATE OR REPLACE PACKAGE PACKAGE_finan_income_pay_bdg
AS
TYPE CURSOR_finan_income_pay_bdg
IS
  REF
  CURSOR;
  END;


create or replace procedure proc_finan_income_pay_bdg( unitno IN VARCHAR2,BDGYEAR in VARCHAR2,pre_BDGYEAR in VARCHAR2,
    p_CURSOR OUT PACKAGE_finan_income_pay_bdg.CURSOR_finan_income_pay_bdg)
    as
    sqlStr long;
    begin
    sqlStr := '
    select m.income_item,m.footing_amt income_footing_amt,n.gn_no,n.footing_amt pay_footing_amt from(
-------收入项目
select t1.rn,t1.income_item,t1.footing_amt from (
-- 一、一般公共预算
select 1 rn,''一、一般公共预算'' income_item,t.footing_amt from(
select sum(amt) footing_amt from VIEW_BASIC_DATA where src_no=''000'' and BUDGET_TYPE=''2''
and UNITNO=''' || unitno || ''' and BDGYEAR=''' || BDGYEAR || '''
) t
-- 二、政府性基金预算
union all
select 2 rn,''二、政府性基金预算'' income_item,t.footing_amt from(
select sum(amt) footing_amt from VIEW_BASIC_DATA where src_no=''000'' and BUDGET_TYPE=''4''
and UNITNO=''' || unitno || ''' and BDGYEAR=''' || BDGYEAR || '''
)t
-- 三、国有资本经营预算
union all
select 3 rn,''三、国有资本经营预算'' income_item,t.footing_amt from(
select sum(amt) footing_amt from VIEW_BASIC_DATA where src_no=''000'' and BUDGET_TYPE=''10''
and UNITNO=''' || unitno || ''' and BDGYEAR=''' || BDGYEAR || '''
)t
--八、财政账户上年项目结转
union all
select 4 rn,''四、财政账户上年项目结转'' income_item,t.footing_amt from
(select sum(gyhd.CZ_HEZHUN_AMT) footing_amt from old_gk_yearbal_heding gyh
left join old_gk_yearbal_heding_detail gyhd on gyh.GK_HEDING_ID=gyhd.GK_HEDING_ID
where gyh.unit_id=''' || unitno || ''' and gyh.YEAR=''' || pre_BDGYEAR || '''
)t
)t1)m
full join
-----------------------------------------------------------------------
------支出项目
(select t2.gn_no,t2.footing_amt,rownum rn from(
select t1.gn_no,t1.footing_amt from(
select t.gn_no,sum(amt) footing_amt from(
select BUDGET_TYPE,substr(BUDGETNO,0,3) gn_no,amt from VIEW_BASIC_DATA where src_no=''000'' and UNITNO=''' || unitno || ''' and BDGYEAR=''' || BDGYEAR || '''
union all
select gyhd.BDGT_ID_TYPE,substr(gyhd.bdgt_id,0,3) gn_no,gyhd.CZ_HEZHUN_AMT amt from old_gk_yearbal_heding gyh
left join old_gk_yearbal_heding_detail gyhd on gyh.GK_HEDING_ID=gyhd.GK_HEDING_ID
where gyh.unit_id=''' || unitno || ''' and gyh.YEAR=''' || pre_BDGYEAR || '''
)t group by t.gn_no
) t1
order by t1.gn_no)t2)n on m.rn=n.rn';

OPEN p_CURSOR FOR sqlStr;
end;

 

 

 

 

示例5：无入参无出参

 

 

 

create or replace procedure proc_newfile is
begin
 --更新新附件状态
update  PWP_UPLOAD set NEWFILE = 0;
---有新附件（无发票）改为由附件
update GK_ZJZFSQ set IS_INVOICE = 1 where IS_INVOICE=2;
 commit;
end proc_newfile;

 

示例6：仅仅入参

CREATE OR REPLACE PROCEDURE proc_import_lastyear_gyzcbz(
    pre_bdgyear IN NUMBER,
    cur_bdgyear IN NUMBER)
AS
  CURSOR ft_cur
  IS
    SELECT t.* FROM YS_GYZCBZGL t WHERE t.BDGYEAR=pre_bdgyear ;
  ft_row ft_cur%ROWTYPE;
  PNEXTID pwp_nodtl.NEXTID%TYPE;
BEGIN
  DELETE FROM YS_GYZCBZGL WHERE BDGYEAR=cur_bdgyear ;
  SELECT NEXTID INTO PNEXTID FROM pwp_nodtl WHERE noid='YS_GYZCBZGL_SEQ';
  OPEN ft_cur;
  LOOP
    FETCH ft_cur INTO ft_row;
    IF ft_cur%NOTFOUND THEN
      EXIT;
    ELSE
      INSERT
      INTO YS_GYZCBZGL
        (
          ID,
          BDGYEAR,
          BIZ_STATUS,
          STANDARD_VAL,
          STANDARD_NO,
          STANDARD_NAME,
          ITEMID,
          ITEMNO,
          ITEM_NAME,
          OPER_ACCOUNT,
          OPER_DT,
          OPER_ORG,
          JOINT_ID
        )
        VALUES
        (
          PNEXTID,
          cur_bdgyear,
          ft_row.BIZ_STATUS,
          ft_row.STANDARD_VAL,
          ft_row.STANDARD_NO,
          ft_row.STANDARD_NAME,
          ft_row.ITEMID,
          ft_row.ITEMNO,
          ft_row.ITEM_NAME,
          ft_row.OPER_ACCOUNT,
          ft_row.OPER_DT,
          ft_row.OPER_ORG,
          ft_row.JOINT_ID
        );
      PNEXTID := PNEXTID + 1;
    END IF;
  END LOOP;
  UPDATE pwp_nodtl SET NEXTID=PNEXTID WHERE noid='YS_GYZCBZGL_SEQ';
  COMMIT;
  CLOSE ft_cur;
END;

 

 

CREATE OR REPLACE PROCEDURE proc_drop_temp_prj_pay_index(
    a IN NUMBER)
AS
  truncate_sql VARCHAR2(500);
  drop_isql    VARCHAR2(500);
BEGIN
  truncate_sql:='truncate table temp_prj_pay_index';
  EXECUTE immediate truncate_sql;
  drop_isql:='drop table temp_prj_pay_index ';
  EXECUTE immediate drop_isql;
  truncate_sql:='truncate table temp_pre_index';
  EXECUTE immediate truncate_sql;
  drop_isql:='drop table  temp_pre_index ';
  EXECUTE immediate drop_isql;
  truncate_sql:='truncate table temp_zc';
  EXECUTE immediate truncate_sql;
  drop_isql:='drop table temp_zc ';
  EXECUTE immediate drop_isql;
  truncate_sql:='truncate table temp_rc';
  EXECUTE immediate truncate_sql;
  drop_isql:='drop table temp_rc ';
  EXECUTE immediate drop_isql;
  truncate_sql:='truncate table temp_pre_balance';
  EXECUTE immediate truncate_sql;
  drop_isql:='drop table  temp_pre_balance ';
  EXECUTE immediate drop_isql;
  truncate_sql:='truncate table temp_prj_index';
  EXECUTE immediate truncate_sql;
  drop_isql:='drop table temp_prj_index ';
  EXECUTE immediate drop_isql;
END;

 

 

CREATE OR REPLACE PROCEDURE PROC_DELEGATE_PROCESS IS
  P_SQL CLOB;
BEGIN
  -- 查询授权信息 (0: 失效, 1: 有效)
  FOR DRI IN (SELECT DRI.ID, DRI.ACCOUNT, DRI.DELEGATE_ACCOUNT
                FROM DELEGATE_PROCESS_INFO DRI
               WHERE SYSDATE > END_TIME
                 AND ENABLE = 1) LOOP
    P_SQL := 'BEGIN ';
    -- 处理失效数据
    -- 查询授权信息对应的流程任务 (并且是代理人未完成的 STATUS = '0')
    FOR DTH IN (SELECT DTH.TASKID, DTH.DELEGATE_ACCOUNT
                  FROM DELEGATE_TASK_HISTORY DTH
                 WHERE STATUS = 0
                   AND MAININFO_ID = DRI.ID) LOOP
      -- 删掉失效的流程代理数据
      P_SQL := P_SQL ||
               ' DELETE FROM ACT_RU_IDENTITYLINK WHERE TYPE_ = ''candidate'' AND TASK_ID_ = ' ||
               DTH.TASKID || ' AND USER_ID_ = ''' || DTH.DELEGATE_ACCOUNT ||
               '''; DELETE FROM ACT_HI_IDENTITYLINK WHERE TYPE_ = ''candidate'' AND TASK_ID_ = ' ||
               DTH.TASKID || ' AND USER_ID_ = ''' || DTH.DELEGATE_ACCOUNT ||
               ''';';
      -- 批处理
      IF LENGTH(P_SQL) > 10000 THEN
        P_SQL := P_SQL || ' END;';
        PROC_DELEGATE_PROCESS_HANDLE(P_SQL);
        P_SQL := 'BEGIN ';
      END IF;
    END LOOP;
    -- 删掉失效的授权信息
    P_SQL := P_SQL ||
             ' DELETE FROM DELEGATE_TASK_HISTORY WHERE MAININFO_ID = ' ||
             DRI.ID || '; END;';
    PROC_DELEGATE_PROCESS_HANDLE(P_SQL);
  END LOOP;
END PROC_DELEGATE_PROCESS;

 

 

示例7：分页查询存储过程

 

CREATE OR REPLACE PROCEDURE prc_query
       (p_tableName        in  varchar2,   --表名
        p_strWhere         in  varchar2,   --查询条件
        p_child_query      in  varchar2,   --子查询
        p_orderColumn      in  varchar2,   --排序的列
        p_orderStyle       in  varchar2,   --排序方式
        p_curPage          in out Number,  --当前页
        p_pageSize         in out Number,  --每页显示记录条数
        p_totalRecords     out Number,     --总记录数
        p_totalPages       out Number,     --总页数
        v_cur              out pkg_query.cur_query)   --返回的结果集
IS
   v_sql VARCHAR2(4000) := '';      --sql语句
   v_startRecord Number(7);         --开始显示的记录条数
   v_endRecord Number(7);           --结束显示的记录条数
BEGIN
   --记录中总记录条数
   v_sql := 'SELECT TO_NUMBER(COUNT(*)) FROM ' || p_tableName || ' WHERE 1=1';
   IF p_strWhere IS NOT NULL  THEN
       v_sql := v_sql || p_strWhere;
   END IF;
   dbms_output.put_line(v_sql);
   EXECUTE IMMEDIATE v_sql INTO p_totalRecords;
   p_totalPages := 0;
--   if p_totalRecords <> 0 then

     --验证页面记录大小
     IF p_pageSize < 0 THEN
         p_pageSize := 0;
     END IF;

     --根据页大小计算总页数
     IF MOD(p_totalRecords,p_pageSize) = 0 THEN
         p_totalPages := floor(p_totalRecords / p_pageSize);
     ELSE
         p_totalPages := floor(p_totalRecords / p_pageSize) + 1;
     END IF;



     --实现分页查询
     v_startRecord := (p_curPage - 1) * p_pageSize + 1;
     v_endRecord := p_curPage * p_pageSize;
     v_sql := 'SELECT b.*,' || p_child_query || ' FROM (SELECT A.*, rownum r FROM ' ||
              '(SELECT * FROM ' || p_tableName;
     IF p_strWhere IS NOT NULL  THEN
         v_sql := v_sql || ' WHERE 1=1 ' || p_strWhere;
     END IF;
     IF p_orderColumn IS NOT NULL THEN
         v_sql := v_sql || ' ORDER BY ' || p_orderColumn || '' || p_orderStyle;
     END IF;
     v_sql := v_sql || ') A WHERE rownum <= ' || v_endRecord || ') B WHERE r >= '
              || v_startRecord;
     DBMS_OUTPUT.put_line(v_sql);
     OPEN v_cur FOR v_sql;
 --  end if;

END prc_query;

 

 

示例8：游标sql可以拼接，增加事务回滚机制

 

    

create or replace procedure proc_yszxtz_aduit (
  yszxtz_ids in varchar2,  /* 预算执行调整表id，其值为： 1,2,3,4,5,6,7,8 */
   out_return out varchar2 --返回结果
)
is
--全局变量
errorexception exception; --申明异常
errorcode number; --异常代号
errormsg varchar2(1000) := ''; --异常信息
flag varchar2(10);
v_raise exception; /*错误对象*/
v_raise_over exception;/*终止凌晨审批*/

type ref_cursor_type is ref cursor;  /*声明：一个动态游标类型*/


cursor_yszxtz ref_cursor_type;     /*声明：查询 ys_zxtz 表 数据 的游标对象 */
v_row_yszxtz ys_zxtz%rowtype    ; /*声明：预算执行调整主表 单条数据对象 */

cursor_yszxtzmx    ref_cursor_type;     /*声明：查询 view_yszxtzms_adjustmx 表 数据 的游标对象 */
v_row_yszxtzmx  view_yszxtzms_adjustmx%rowtype;/*声明：view_yszxtzms_adjustmx 单条数据对象*/

cursor_gkykjhquota    ref_cursor_type;     /*声明：查询 gk_ykjh_quota 表 数据 的游标对象 */
v_row_gkykjhquota gk_ykjh_quota%rowtype;/*声明：gk_ykjh_quota 的查询结果*/
--v_rowcount_ykjhquota gk_ykjh_quota%rowtype; /*统计游标有多少条数据 用于 游标的for循环判断条件中*/

--cursor_jzzf_zbbal    ref_cursor_type;     /*声明：查询 zb_bal 表 数据 的游标对象 */
--v_row_jzzf_zbbal zb_bal%rowtype;/*声明：gk_ykjh_quota 的查询结果*/

type rocord_zbbal_type  is record(id  zb_bal.id%type,canpayamt zb_bal.direct_amt%type,
       org_id zb_bal.org_id%type ,n_fundtype zb_bal.fundtype%type,
       unitno zb_bal.unitno%type,unit_name bs_bdg_unit.unit_name%type );
v_r_zbbal_info rocord_zbbal_type ;

cursor_zbbal ref_cursor_type;/*声明指标表 zb_bal 游标 */
v_row_zbbal zb_bal%rowtype; /*声明 zb_bal 查询结果*/


v_gkadjustid number(20);/*声明：获取 gk_adjust 表主键 对象*/
v_adjust_liststr varchar2(4000);/*拼接 gk_adjust 表主键 的字符串 */
v_mxloop_no  number(10) :=0 ;/*记录明细表数据条数*/

v_gkykjhid gk_ykjh.id%type;/*声明：gk_ykjh表的主键  */

v_sub_amt number(16,2);/*记录：额度表可以支付的金额-调帐需要支付的金额的差值*/

begin
    dbms_output.put_line('============================================预算执行调整审批：审结后业务处理开始============================================ ');
/*进行：入参*/
if yszxtz_ids is   null then
     dbms_output.put_line(' 预算执行调整主表的id值不允许 null');     /*则输出异常提示信息*/
     raise  v_raise; /*跳转到异常部分代码*/
end if;

--循环开始
   --打开游标
  open cursor_yszxtz for 'select  *  from ys_zxtz z where  1=1 and  z.id in ('||   yszxtz_ids ||' )' ;
    dbms_output.put_line('============================================ 预算执行调整的 业务逻辑处理 开始：执行的sql为： '|| 'select  *  from ys_zxtz z where  1=1 and  z.id in ('||   yszxtz_ids ||' )============================================'  );     /*则输出异常提示信息*/
  fetch cursor_yszxtz   into  v_row_yszxtz;/*先让指针指向结果集中的第一行，并将值保存到emp_row 中*/

  while cursor_yszxtz%found loop
        dbms_output.put_line('============================================预算执行调整的 业务逻辑处理 开始：    其id:' || v_row_yszxtz.id ||';gk_adjust 表主键值：v_gkadjustid='||v_gkadjustid||'===========================================' );
    v_adjust_liststr:='';
  v_mxloop_no:=0;
--========================================================================================================================
--=======================   结束：查询预算执行调整明细---_  数据转换逻辑处理             ========================
---======================   查询 预算执行调整审批的明细数据                                           ========================
---========================================================================================================================
    open cursor_yszxtzmx   for  select  *  from  view_yszxtzms_adjustmx vya where vya.df_ys_zxtz_id =v_row_yszxtz.id ;
     fetch cursor_yszxtzmx      into  v_row_yszxtzmx;/*先让指针指向结果集中的第一行，并将值保存到 v_row_yszxtz 中*/
    while cursor_yszxtzmx  %found loop

      ----------------------------------------------------------------------
      ----=========注：支出账务调整：调整前（贷方）：追加方   左边 =========----
      ----=========注：支出账务调整：调整后（借方）：追减方   右边 =========----
      -----------------------------------------------------------------------

      v_gkadjustid := nextid('GK_ADJUST_SEQ');/*获取预算执行调整主表的id值*/
      ---拼接 ys_zxtz 表的 gk_adjust_id 字段的值
      if  v_mxloop_no =0   then
          v_adjust_liststr := v_gkadjustid||',' ;
          v_mxloop_no:=v_mxloop_no+1;
      elsif v_mxloop_no =cursor_yszxtzmx%rowcount then
          v_adjust_liststr :=v_adjust_liststr||v_gkadjustid;
          v_mxloop_no:=0;
      else
          v_adjust_liststr :=v_adjust_liststr||v_gkadjustid||',';
          v_mxloop_no:=v_mxloop_no+1;
      end if ;



/*判断贷方（调整前、追加方）指标id 是否为空*/

---------贷方指标 不为 null
       if  v_row_yszxtzmx.df_id is not null  then /*进行《支出账务调整》的业务逻辑处理*/

          ---借方指标  不为 null
          if  v_row_yszxtzmx.jf_zb_id  is not null then  /*借方有指标id值：*/



-----------------------------------------------------------------------------------------------------------
       ----进行 借方指标id 的  额度判断
        /* 借方判断额度是否够这次的支付(1:本调整月份支付已经做过计划，2：额度是否够支付)：
                          如果不够支付，则判断其指标是否够金额够这次金额的支付：
                              如果够支付则 做用款计划申请
                              如果不够支付，则结束整个审批操作，
                              数据库层面事物数据回滚，返回数据操作失败操作。如果应用程序层面事物回滚
         */


                        ---如果支付方式为：直接支付
                       if  v_row_yszxtz.voucher_type ='0' then

              --授权支付不需要插入调账表
              dbms_output.put_line('====进行《支出账务调整》的业务逻辑处理:借方有指标id值:'|| v_row_yszxtzmx.jf_zb_id||'==== ' );
              ---插入gk_adjust 主表数据
             insert into gk_adjust
               (id, is_accounting, adjustment_type, expenditure_type, create_dt, oper_account_id, remark, biz_status, process_instance_id, status, oper_dt, summary, process_status, gk_zfpz_id, oper_orgid)
             values
               (v_gkadjustid, '1', '0', v_row_yszxtz.voucher_type,  sysdate, v_row_yszxtz.oper_account, v_row_yszxtz.remark, '9', '', '', sysdate, v_row_yszxtz.remarks, '9', v_row_yszxtzmx.df_gk_zfpzid, v_row_yszxtz.oper_orgid) ;

             --- 插入 gk_adjust_detail 明细数据

             insert into gk_adjust_detail
               (gk_adjust_detail_id, gk_adjust_id, jf_unitno, jf_bdgid, jf_bdgt_type, jf_prj_code, jf_src_id, jf_zba_id, jf_item_id, df_unitno, df_bdgid, df_bdgt_type, df_prj_code, df_src_id, df_zba_id, df_item_id, balance, tocredit_amt, todebit_amt)
             values
               (nextid('GK_ADJUST_DETAIL_SEQ'), v_gkadjustid,  v_row_yszxtzmx.jf_unitno , v_row_yszxtzmx.jf_budgetno, v_row_yszxtzmx.jf_budget_type, v_row_yszxtzmx.jf_prjno, v_row_yszxtzmx.jf_src_id, v_row_yszxtzmx.jf_zb_id, v_row_yszxtzmx.jf_itemno,
               v_row_yszxtzmx.df_unitno,  v_row_yszxtzmx.df_budgetno,  v_row_yszxtzmx.df_budget_type, v_row_yszxtzmx.df_prjno, v_row_yszxtzmx.df_src_id, v_row_yszxtzmx.df_zb_id,v_row_yszxtzmx.df_itemno,  v_row_yszxtzmx.adjust_amt, 0, 0);


                               --- 打开 查询用款计划额度表的游标
                               open cursor_gkykjhquota   for   select * into v_row_gkykjhquota   from gk_ykjh_quota q where q.zbz_bal_id=v_row_yszxtzmx.jf_zb_id and q.plan_ny =to_char(sysdate,'yyyyMM');
                              fetch cursor_gkykjhquota   into  v_row_gkykjhquota;
                               --当 额度表没有当前支付月份的该借方指标的额度数据的时候；
                                if cursor_gkykjhquota%notfound or cursor_gkykjhquota%notfound is null then
                                    dbms_output.put_line('======如果：该借方指标id（'||v_row_yszxtzmx.jf_zb_id ||'）在额度表不存在数据 则新增额度表数据======');

                                 ---判断借方指标该支付指标的金额是否够本次调整金额的支付
                                    --1:查询查询指标是否可支付
                                   select vv.id,vv.canpayamt ,vv.org_id ,vv.n_fundtype ,vv.unitno ,
                                     (select u.unit_name from bs_bdg_unit u where u.unitno=vv.unitno) as unit_name
                                      into v_r_zbbal_info
                                     from (  select  z.*,(case when  v_row_yszxtz.voucher_type ='0' then nvl(nvl(z.direct_amt,0)-nvl(direct_plan ,0),0)- v_row_yszxtzmx.adjust_amt
                                                        when  v_row_yszxtz.voucher_type ='1' then nvl(nvl(z.accredit_amt ,0)-nvl(accredit_plan ,0),0)- v_row_yszxtzmx.adjust_amt
                                                        end) as canpayamt,(case z.fundtype when '1' then '1' when '2' then '2' else '3' end) n_fundtype
                                                         from zb_bal z where z.id =v_row_yszxtzmx.jf_zb_id ) vv ;


                                   if  v_r_zbbal_info.canpayamt >=0 then
                                       dbms_output.put_line('====');
                                    ---如果够支付，则新增已经审结了用款计划数据(正的用款计划额度)

                                         ---向用款计划主表插入数据
                                         v_gkykjhid :=nextid('GK_YKJH_SEQ'); /*获取：gk_ykjh 表主键*/
                                         insert into gk_ykjh
                                          (id, ykjh_type, plany_ym, remark, create_dt, status, biz_status, process_instance_id, oper_dt, oper_org_id, oper_account_id, is_writeoff, is_hz, remark_back, org_id, fundtype, unitno, unit_name)
                                         values
                                          (v_gkykjhid, v_row_yszxtz.voucher_type,   to_char(sysdate,'yyyyMM') ,'由预算执行调整生成，其id为 :'||v_row_yszxtz.id , sysdate, '9', '9', '', sysdate,v_row_yszxtz.oper_orgid,v_row_yszxtz.oper_account, '0', '0', '', v_r_zbbal_info.org_id , v_r_zbbal_info.n_fundtype , v_r_zbbal_info.unitno, v_r_zbbal_info.unit_name);

                                          ---向用款计划明细表插入数据
                                          insert into gk_ykjh_mx
                                            (id, gk_ykjh_id, item_id, src_id, bdgt_id_type, budgetid, prj_id, adjlevel, org_id, gk_hzqsd_id, issued, counting_unit, zbz_bal_id, ykjh_type, plany_ym, unitno, unit_name, is_writeoff, apply_amt, fin_amt, is_print, budgetno, itemno, prj_code)
                                          values
                                            (nextid('GK_YKJH_MX_SEQ'), v_gkykjhid,  v_row_yszxtzmx.jf_item_id, v_row_yszxtzmx.jf_src_id, v_row_yszxtzmx.jf_budget_type, v_row_yszxtzmx.jf_budgetid, v_row_yszxtzmx.jf_prjid , v_row_yszxtzmx.jf_adjlevel,  v_row_yszxtzmx.jf_org_id, '', '0', '1', v_r_zbbal_info.id, v_row_yszxtz.voucher_type, to_char(sysdate,'yyyyMM'), v_row_yszxtzmx.jf_unitno, v_row_yszxtzmx.jf_unit_name, '0', v_row_yszxtzmx.adjust_amt,  v_row_yszxtzmx.adjust_amt, '0', v_row_yszxtzmx.jf_budgetno,v_row_yszxtzmx.jf_itemno  ,v_row_yszxtzmx.jf_prjno );

                                    --增加额度表的数据
                                       insert into gk_ykjh_quota
                                         (id, zbz_bal_id, plan_ny, direct_apply, direct_execute, accredit_apply, accredit_execute)
                                       values
                                         (nextid('GK_YKJH_QUOTA_SEQ'), v_r_zbbal_info.id, to_char(sysdate,'yyyyMM'), v_row_yszxtzmx.adjust_amt, v_row_yszxtzmx.adjust_amt, 0, 0);
                                    --修改指标报表的 对应支付方式的 已报用款计划 字段的金额
                                        if v_row_yszxtz.voucher_type='0' then  /*直接支付*/
                                           update zb_bal z set z.direct_plan  =z.direct_plan+v_row_yszxtzmx.adjust_amt where z.id=v_row_yszxtzmx.jf_zb_id;
                                        elsif v_row_yszxtz.voucher_type='1'then  /*授权支付*/
                                           update zb_bal z set z.accredit_plan  =z.accredit_plan+v_row_yszxtzmx.adjust_amt where z.id=v_row_yszxtzmx.jf_zb_id;
                                       end if;

                                  elsif  v_r_zbbal_info.canpayamt < 0  then
                                  ---则 整个业务存储过程 本次执行业务回滚 ，应用程序进行审批操作事务回滚，终止预算执行调整审批的审结操作 。
                                        raise  v_raise_over; /*跳转到异常部分代码*/
                                  end if;

                                else  /*当额度表该支付月份有支付额度数据时：*/

                                    while cursor_gkykjhquota%found loop
                                        --判断 借方指标 id 在额度表中的 可以支付额度是否够本次调整支付金额支付。

                                          /*直接支付*/

                                             ---获取：额度表可以支付的额度 - 本次调整需要支付的支出数=需要支付的支出额
                                             v_sub_amt := nvl((nvl(v_row_gkykjhquota.direct_apply,0) -nvl(v_row_gkykjhquota.direct_execute,0)),0)  /*额度表可支付额度*/ -  nvl(v_row_yszxtzmx.adjust_amt,0)/*调整金额*/ ;

                                             if v_sub_amt  >= 0  then
                                                --如果 额度表的支付额度 够 支付，则直接加大额度表直接支付的支出数
                                                update gk_ykjh_quota q set q.direct_execute=q.direct_execute+v_row_yszxtzmx.adjust_amt where  q.id=v_row_gkykjhquota.id  and q.zbz_bal_id=v_row_yszxtzmx.jf_zb_id and q.plan_ny=to_char(sysdate,'yyyyMM');

                                             elsif   v_sub_amt  < 0  then

                                                --如果 额度表的支付额度 不够 支付，则需要判断指标的可以支付金额是否够支付。
                                                 dbms_output.put_line('======== ' );
                                                  --1:查询查询指标是否可支付
                                                   select vv.id,vv.canpayamt ,vv.org_id ,vv.n_fundtype ,vv.unitno ,
                                                     (select u.unit_name from bs_bdg_unit u where u.unitno=vv.unitno) as unit_name
                                                      into v_r_zbbal_info
                                                   from (  select  z.*, nvl(nvl(z.direct_amt,0)-nvl(direct_plan ,0),0)+ v_sub_amt   as canpayamt,
                                                                  (case z.fundtype when '1' then '1' when '2' then '2' else '3' end) n_fundtype
                                                           from zb_bal z where z.id =v_row_yszxtzmx.jf_zb_id ) vv ;

                                                  --如果 指标的可支付额度 够支付 额度表不够支付的差额
                                                  if v_r_zbbal_info.canpayamt >0 then
                                                     -- 则：插入用款计划主表数据
                                                      v_gkykjhid :=nextid('GK_YKJH_SEQ'); /*获取：gk_ykjh 表主键*/
                                                      insert into gk_ykjh
                                                        (id, ykjh_type, plany_ym, remark, create_dt, status, biz_status, process_instance_id, oper_dt, oper_org_id, oper_account_id, is_writeoff, is_hz, remark_back, org_id, fundtype, unitno, unit_name)
                                                      values
                                                        (v_gkykjhid, v_row_yszxtz.voucher_type,   to_char(sysdate,'yyyyMM') ,'由预算执行调整生成，其id为 :'||v_row_yszxtz.id , sysdate, '9', '9', '', sysdate,v_row_yszxtz.oper_orgid,v_row_yszxtz.oper_account, '0', '0', '', v_r_zbbal_info.org_id , v_r_zbbal_info.n_fundtype , v_r_zbbal_info.unitno, v_r_zbbal_info.unit_name);


                                                     --     插入用款计划明细表数据
                                                      insert into gk_ykjh_mx
                                                        (id, gk_ykjh_id, item_id, src_id, bdgt_id_type, budgetid, prj_id, adjlevel, org_id, gk_hzqsd_id, issued, counting_unit, zbz_bal_id, ykjh_type, plany_ym, unitno, unit_name, is_writeoff, apply_amt, fin_amt, is_print, budgetno, itemno, prj_code)
                                                      values
                                                        (nextid('GK_YKJH_MX_SEQ'), v_gkykjhid,  v_row_yszxtzmx.jf_item_id, v_row_yszxtzmx.jf_src_id, v_row_yszxtzmx.jf_budget_type, v_row_yszxtzmx.jf_budgetid, v_row_yszxtzmx.jf_prjid , v_row_yszxtzmx.jf_adjlevel,  v_row_yszxtzmx.jf_org_id, '', '0', '1', v_r_zbbal_info.id, v_row_yszxtz.voucher_type, to_char(sysdate,'yyyyMM'), v_row_yszxtzmx.jf_unitno, v_row_yszxtzmx.jf_unit_name, '0', 0-v_sub_amt,  0-v_sub_amt, '0', v_row_yszxtzmx.jf_budgetno,v_row_yszxtzmx.jf_itemno  ,v_row_yszxtzmx.jf_prjno );


                                                     --     更新用款计划额度表数据的额度和支出数

                                                      update gk_ykjh_quota q set q.direct_execute=q.direct_execute+v_row_yszxtzmx.adjust_amt,q.direct_apply =q.direct_apply-v_sub_amt
                                                         where  q.id=v_row_gkykjhquota.id  and q.zbz_bal_id=v_row_yszxtzmx.jf_zb_id and q.plan_ny=to_char(sysdate,'yyyyMM');


                                                     --     更新指标表 直接支付 已报用款计划  字段的值
                                                     update zb_bal z set z.direct_plan =z.direct_plan-v_sub_amt where z.id=v_r_zbbal_info.id;

                                                  --如果指标的可支付额度   不够支付   额度表不够支付的差额
                                                  elsif v_r_zbbal_info.canpayamt<0 then
                                                    -- 则： 退出 整个存储过程执行，应用程序 预算执行调整审批 审结操作进行事物回滚
                                                     raise  v_raise_over; /*跳转到异常部分代码*/
                                                  end if ;
                                              end if ;



                                    fetch cursor_gkykjhquota   into  v_row_gkykjhquota;
                                    exit when cursor_gkykjhquota%notfound or cursor_gkykjhquota%notfound is null;
                                    end loop;
                                    close  cursor_gkykjhquota;/*关闭游标*/
                                end if;
            /*授权支付*/
                        elsif v_row_yszxtz.voucher_type='1' then

                ---20180305 troy
                ---判断累计额度是否够支出
     /*           select sum(accredit_apply-accredit_execute)-v_row_yszxtzmx.adjust_amt  into v_sub_amt from gk_ykjh_quota q where
                q.zbz_bal_id = v_row_yszxtzmx.jf_zb_id;

                if v_sub_amt>=0 then
                   ---判断是否存在本月额度
                 open cursor_gkykjhquota   for   select * into v_row_gkykjhquota   from gk_ykjh_quota q where q.zbz_bal_id=v_row_yszxtzmx.jf_zb_id and q.plan_ny =to_char(sysdate,'yyyyMM');
                                 fetch cursor_gkykjhquota   into  v_row_gkykjhquota;

                 if cursor_gkykjhquota%notfound or cursor_gkykjhquota%notfound is null then
                    ---如果不存在，生成当月额度
                    --增加额度表的数据
                   insert into gk_ykjh_quota
                     (id, zbz_bal_id, plan_ny, direct_apply, direct_execute, accredit_apply, accredit_execute)
                   values
                     (nextid('GK_YKJH_QUOTA_SEQ'), v_row_yszxtzmx.jf_zb_id, to_char(sysdate,'yyyyMM'), 0, 0, 0, v_row_yszxtzmx.adjust_amt);
                 else
                   while cursor_gkykjhquota%found loop
                    ---如果存在，改变额度数据
                    update gk_ykjh_quota q set q.accredit_execute=q.accredit_execute+v_row_yszxtzmx.adjust_amt where
                    q.zbz_bal_id=v_row_yszxtzmx.jf_zb_id and q.plan_ny=to_char(sysdate,'yyyyMM');

                     fetch cursor_gkykjhquota   into  v_row_gkykjhquota;
                     exit when cursor_gkykjhquota%notfound or cursor_gkykjhquota%notfound is null;
                     end loop;
                     close  cursor_gkykjhquota;\*关闭游标*\
                 end if;


                elsif v_sub_amt<0 then*/
                   --判断指标剩余指标金额是否够支出
                   select vv.id,vv.canpayamt ,vv.org_id ,vv.n_fundtype ,vv.unitno ,
                 (select u.unit_name from bs_bdg_unit u where u.unitno=vv.unitno) as unit_name
                 into v_r_zbbal_info
                 from (  select  z.*,(case when  v_row_yszxtz.voucher_type ='0' then nvl(nvl(z.direct_amt,0)-nvl(direct_plan ,0),0)-v_row_yszxtzmx.adjust_amt
                          when  v_row_yszxtz.voucher_type ='1' then nvl(nvl(z.accredit_amt ,0)-nvl(accredit_plan ,0),0)-v_row_yszxtzmx.adjust_amt
                          end) as canpayamt,(case z.fundtype when '1' then '1' when '2' then '2' else '3' end) n_fundtype
                           from zb_bal z where z.id =v_row_yszxtzmx.jf_zb_id ) vv ;

                 --如果指标够支付，生成审结的用款计划
                 if  v_r_zbbal_info.canpayamt >=0 then
                   ---向用款计划主表插入数据
                   v_gkykjhid :=nextid('GK_YKJH_SEQ'); /*获取：gk_ykjh 表主键*/
                   insert into gk_ykjh
                    (id, ykjh_type, plany_ym, remark, create_dt, status, biz_status, process_instance_id, oper_dt, oper_org_id, oper_account_id, is_writeoff, is_hz, remark_back, org_id, fundtype, unitno, unit_name)
                   values
                    (v_gkykjhid, v_row_yszxtz.voucher_type,   to_char(sysdate,'yyyyMM') ,'由预算执行调整生成，其id为 :'||v_row_yszxtz.id , sysdate, '9', '9', '', sysdate,v_row_yszxtz.oper_orgid,v_row_yszxtz.oper_account, '0', '0', '', v_r_zbbal_info.org_id , v_r_zbbal_info.n_fundtype , v_r_zbbal_info.unitno, v_r_zbbal_info.unit_name);

                   ---向用款计划明细表插入数据
                   insert into gk_ykjh_mx
                    (id, gk_ykjh_id, item_id, src_id, bdgt_id_type, budgetid, prj_id, adjlevel, org_id, gk_hzqsd_id, issued, counting_unit, zbz_bal_id, ykjh_type, plany_ym, unitno, unit_name, is_writeoff, apply_amt, fin_amt, is_print, budgetno, itemno, prj_code)
                   values
                    (nextid('GK_YKJH_MX_SEQ'), v_gkykjhid,  v_row_yszxtzmx.jf_item_id, v_row_yszxtzmx.jf_src_id, v_row_yszxtzmx.jf_budget_type, v_row_yszxtzmx.jf_budgetid, v_row_yszxtzmx.jf_prjid , v_row_yszxtzmx.jf_adjlevel,  v_row_yszxtzmx.jf_org_id, '', '0', '1', v_r_zbbal_info.id, v_row_yszxtz.voucher_type, to_char(sysdate,'yyyyMM'), v_row_yszxtzmx.jf_unitno, v_row_yszxtzmx.jf_unit_name, '0', v_row_yszxtzmx.adjust_amt,  v_row_yszxtzmx.adjust_amt, '0', v_row_yszxtzmx.jf_budgetno,v_row_yszxtzmx.jf_itemno  ,v_row_yszxtzmx.jf_prjno );

                   --修改指标报表的 对应支付方式的 已报用款计划 字段的金额
                   update zb_bal z set z.accredit_plan  =z.accredit_plan+v_row_yszxtzmx.adjust_amt where z.id=v_row_yszxtzmx.jf_zb_id;
                 --指标不够支付
                elsif  v_r_zbbal_info.canpayamt < 0  then
                                  ---则 整个业务存储过程 本次执行业务回滚 ，应用程序进行审批操作事务回滚，终止预算执行调整审批的审结操作 。
                                     raise  v_raise_over;
                                 end if;

                /* end if;*/

                        ---如果支付方式为： 一般支付
                        elsif v_row_yszxtz.voucher_type='3' then
              --授权支付不需要插入调账表
              dbms_output.put_line('====进行《支出账务调整》的业务逻辑处理:借方有指标id值:'|| v_row_yszxtzmx.jf_zb_id||'==== ' );
              ---插入gk_adjust 主表数据
               insert into gk_adjust
                 (id, is_accounting, adjustment_type, expenditure_type, create_dt, oper_account_id, remark, biz_status, process_instance_id, status, oper_dt, summary, process_status, gk_zfpz_id, oper_orgid)
               values
                 (v_gkadjustid, '1', '0', v_row_yszxtz.voucher_type,  sysdate, v_row_yszxtz.oper_account, v_row_yszxtz.remark, '9', '', '', sysdate, v_row_yszxtz.remarks, '9', v_row_yszxtzmx.df_gk_zfpzid, v_row_yszxtz.oper_orgid) ;

               --- 插入 gk_adjust_detail 明细数据

               insert into gk_adjust_detail
                 (gk_adjust_detail_id, gk_adjust_id, jf_unitno, jf_bdgid, jf_bdgt_type, jf_prj_code, jf_src_id, jf_zba_id, jf_item_id, df_unitno, df_bdgid, df_bdgt_type, df_prj_code, df_src_id, df_zba_id, df_item_id, balance, tocredit_amt, todebit_amt)
               values
                 (nextid('GK_ADJUST_DETAIL_SEQ'), v_gkadjustid,  v_row_yszxtzmx.jf_unitno , v_row_yszxtzmx.jf_budgetno, v_row_yszxtzmx.jf_budget_type, v_row_yszxtzmx.jf_prjno, v_row_yszxtzmx.jf_src_id, v_row_yszxtzmx.jf_zb_id, v_row_yszxtzmx.jf_itemno,
                 v_row_yszxtzmx.df_unitno,  v_row_yszxtzmx.df_budgetno,  v_row_yszxtzmx.df_budget_type, v_row_yszxtzmx.df_prjno, v_row_yszxtzmx.df_src_id, v_row_yszxtzmx.df_zb_id,v_row_yszxtzmx.df_itemno,  v_row_yszxtzmx.adjust_amt, 0, 0);

                             ----则需要判断 一般支付指标金额-一般支付的实际支出数=剩余可以支付的金额 是否可以够本次支付
                             select vv.id,vv.canpayamt ,vv.org_id ,vv.n_fundtype ,vv.unitno ,
                               (select u.unit_name from bs_bdg_unit u where u.unitno=vv.unitno) as unit_name
                             into v_r_zbbal_info
                             from
                             ( select z.* ,nvl (nvl(z.tradition_amt,0)-nvl(z.tradition_num,0)- nvl(v_row_yszxtzmx.adjust_amt,0) ,0 ) as canpayamt ,
                                     (case z.fundtype when '1' then '1' when '2' then '2' else '3' end) n_fundtype
                              from zb_bal z where z.id =v_row_yszxtzmx.jf_zb_id  ) vv ;

                             if v_r_zbbal_info.canpayamt >=0 then

                                update zb_bal z set z.tradition_num =z.tradition_num+v_row_yszxtzmx.adjust_amt where z.id=v_row_yszxtzmx.jf_zb_id;

                             elsif v_r_zbbal_info.canpayamt < 0 then
                                ---则 整个业务存储过程 本次执行业务回滚 ，应用程序进行审批操作事务回滚，终止预算执行调整审批的审结操作 。
                                raise  v_raise_over; /*跳转到异常部分代码*/
                             end if;

                        end if;
-----------------------------------------------------------------------------------------------------------
         ----进行贷方指标  额度判断：

             /* 贷方 1：判断该贷方指标在本支付年月是否操作额度数据：如果没有，则在额度表生成本支付月份的0值额度数据
                                      如果有，则判断该支付月份是否有过支付数发生。
                                                如果有，则在原值上面减去支付发生数
                                                如果没有，则用0值减去 本次的支付金额
                     2：做 贷方冲销的用款计划

                     3：减小 贷方指标的已报用款计划额度

             */

                ---判断支付方式

                  --如果是 直接支付
                  if v_row_yszxtz.voucher_type='0' then


                      ----查询 贷方指标 在额度表中是否有数据
                        --- 打开 查询用款计划额度表  的  游标
                       open cursor_gkykjhquota   for   select * into v_row_gkykjhquota
                               from gk_ykjh_quota q where q.zbz_bal_id=v_row_yszxtzmx.df_zb_id and q.plan_ny =to_char(sysdate,'yyyyMM');

                               fetch cursor_gkykjhquota   into  v_row_gkykjhquota;
                        ---如果没有数据，
                         if cursor_gkykjhquota%notfound or cursor_gkykjhquota%notfound is null then

                              ---直接支付


                                 --插入一条 所有 0 值 额度计划数据，并把支付数（执行金额）的金额填上
                                 insert into gk_ykjh_quota
                                   (id, zbz_bal_id, plan_ny, direct_apply, direct_execute, accredit_apply, accredit_execute)
                                 values
                                   (nextid('GK_YKJH_QUOTA_SEQ'), v_row_yszxtzmx.df_zb_id, to_char(sysdate,'yyyyMM'), 0-v_row_yszxtzmx.adjust_amt, 0-v_row_yszxtzmx.adjust_amt, 0, 0);

                                  --则 插入一条 冲销的 gk_ykjh  gk_ykjh_mx 的数据

                                     v_gkykjhid :=nextid('GK_YKJH_SEQ'); /*获取：gk_ykjh 表主键*/

                                    insert into gk_ykjh
                                       (id, ykjh_type, plany_ym, remark, create_dt, status, biz_status, process_instance_id, oper_dt, oper_org_id, oper_account_id, is_writeoff, is_hz, remark_back, org_id, fundtype, unitno, unit_name)
                                     values
                                     (v_gkykjhid, v_row_yszxtz.voucher_type,   to_char(sysdate,'yyyyMM') ,'由预算执行调整生成，其id为 :'||v_row_yszxtz.id , sysdate, '9', '9', '', sysdate,v_row_yszxtz.oper_orgid,v_row_yszxtz.oper_account, '1', '0', '',
                                         v_row_yszxtzmx.df_org_id ,decode(v_row_yszxtzmx.df_fundtype,'1','1','2','2','3') , v_row_yszxtzmx.df_unitno,v_row_yszxtzmx.df_unit_name);

                                     ---向用款计划明细表插入数据
                                    insert into gk_ykjh_mx
                                      (id, gk_ykjh_id, item_id, src_id, bdgt_id_type, budgetid, prj_id, adjlevel, org_id, gk_hzqsd_id, issued, counting_unit,
                                       zbz_bal_id, ykjh_type, plany_ym, unitno, unit_name, is_writeoff, apply_amt, fin_amt, is_print, budgetno, itemno, prj_code)
                                    values
                                      (nextid('GK_YKJH_MX_SEQ'), v_gkykjhid,  v_row_yszxtzmx.df_item_id, v_row_yszxtzmx.df_src_id, v_row_yszxtzmx.df_budget_type,
                                       v_row_yszxtzmx.df_budgetid, v_row_yszxtzmx.df_prjid , v_row_yszxtzmx.df_adjlevel,  v_row_yszxtzmx.df_org_id, '', '0', '1',
                                       v_row_yszxtzmx.df_zb_id , v_row_yszxtz.voucher_type, to_char(sysdate,'yyyyMM'), v_row_yszxtzmx.df_unitno, v_row_yszxtzmx.df_unit_name,
                                       '1', -v_row_yszxtzmx.adjust_amt,  -v_row_yszxtzmx.adjust_amt, '0', v_row_yszxtzmx.df_budgetno,v_row_yszxtzmx.df_itemno  ,v_row_yszxtzmx.df_prjno );


                                  --则 更新 zb_bal 的相对应的已报用款计划额度 字段的值（即：减小该值）

                                     update zb_bal z set z.direct_plan=nvl(z.direct_plan,0)-nvl(v_row_yszxtzmx.adjust_amt ,0) where z.id=v_row_yszxtzmx.df_zb_id;






                        --如果有数据
                         else
                                 /*当额度表该支付月份有该指标的支付额度数据时：*/

                                while cursor_gkykjhquota%found loop

                                    --- 如果是直接支付

                                        --则 更新支付数（执行金额），即：减小执行金额的值。增大可以支付金额
                                            update gk_ykjh_quota q set q.direct_execute=nvl(q.direct_execute,0)-nvl(v_row_yszxtzmx.adjust_amt,0)  where q.zbz_bal_id=v_row_yszxtzmx.df_zb_id and q.plan_ny=to_char(sysdate,'yyyyMM');

                                        --则 插入一条 冲销的 gk_ykjh  gk_ykjh_mx 的数据
                                            v_gkykjhid :=nextid('GK_YKJH_SEQ'); /*获取：gk_ykjh 表主键*/

                                            insert into gk_ykjh
                                               (id, ykjh_type, plany_ym, remark, create_dt, status, biz_status, process_instance_id, oper_dt, oper_org_id, oper_account_id, is_writeoff, is_hz, remark_back, org_id, fundtype, unitno, unit_name)
                                            values
                                             (v_gkykjhid, v_row_yszxtz.voucher_type,   to_char(sysdate,'yyyyMM') ,'由预算执行调整生成，其id为 :'||v_row_yszxtz.id , sysdate, '9', '9', '', sysdate,v_row_yszxtz.oper_orgid,v_row_yszxtz.oper_account, '1', '0', '',
                                                 v_row_yszxtzmx.df_org_id ,decode(v_row_yszxtzmx.df_fundtype,'1','1','2','2','3') , v_row_yszxtzmx.df_unitno,v_row_yszxtzmx.df_unit_name);

                                            insert into gk_ykjh_mx
                                                (id, gk_ykjh_id, item_id, src_id, bdgt_id_type, budgetid, prj_id, adjlevel, org_id, gk_hzqsd_id, issued, counting_unit,
                                                 zbz_bal_id, ykjh_type, plany_ym, unitno, unit_name, is_writeoff, apply_amt, fin_amt, is_print, budgetno, itemno, prj_code)
                                            values
                                                (nextid('GK_YKJH_MX_SEQ'), v_gkykjhid,  v_row_yszxtzmx.df_item_id, v_row_yszxtzmx.df_src_id, v_row_yszxtzmx.df_budget_type,
                                                 v_row_yszxtzmx.df_budgetid, v_row_yszxtzmx.df_prjid , v_row_yszxtzmx.df_adjlevel,  v_row_yszxtzmx.df_org_id, '', '0', '1',
                                                 v_row_yszxtzmx.df_zb_id , v_row_yszxtz.voucher_type, to_char(sysdate,'yyyyMM'), v_row_yszxtzmx.df_unitno, v_row_yszxtzmx.df_unit_name,
                                                 '1', -v_row_yszxtzmx.adjust_amt,  -v_row_yszxtzmx.adjust_amt, '0', v_row_yszxtzmx.df_budgetno,v_row_yszxtzmx.df_itemno  ,v_row_yszxtzmx.df_prjno );


                                        --则 更新 zb_bal 的相对应的已报用款计划额度 字段的值（即：减小该值）
                                           update zb_bal z set z.direct_plan=nvl(z.direct_plan,0)-nvl(v_row_yszxtzmx.adjust_amt ,0) where z.id=v_row_yszxtzmx.df_zb_id;




                                fetch cursor_gkykjhquota   into  v_row_gkykjhquota;
                                exit when cursor_gkykjhquota%notfound or cursor_gkykjhquota%notfound is null;
                                end loop;
                                close  cursor_gkykjhquota;/*关闭游标*/
                         end if;

           --如果是 授权支付
                   elsif v_row_yszxtz.voucher_type='1' then
               v_gkykjhid :=nextid('GK_YKJH_SEQ'); /*获取：gk_ykjh 表主键*/
                --授权支付不给动额度，生成用款计划 冲销审结数据
             insert into gk_ykjh
             (id, ykjh_type, plany_ym, remark, create_dt, status, biz_status, process_instance_id, oper_dt, oper_org_id, oper_account_id, is_writeoff, is_hz, remark_back, org_id, fundtype, unitno, unit_name)
             values
             (v_gkykjhid, v_row_yszxtz.voucher_type,   to_char(sysdate,'yyyyMM') ,'由预算执行调整生成，其id为 :'||v_row_yszxtz.id , sysdate, '9', '9', '', sysdate,v_row_yszxtz.oper_orgid,v_row_yszxtz.oper_account, '1', '0', '',
               v_row_yszxtzmx.df_org_id ,decode(v_row_yszxtzmx.df_fundtype,'1','1','2','2','3') , v_row_yszxtzmx.df_unitno,v_row_yszxtzmx.df_unit_name);

             ---向用款计划明细表插入数据
            insert into gk_ykjh_mx
            (id, gk_ykjh_id, item_id, src_id, bdgt_id_type, budgetid, prj_id, adjlevel, org_id, gk_hzqsd_id, issued, counting_unit,
             zbz_bal_id, ykjh_type, plany_ym, unitno, unit_name, is_writeoff, apply_amt, fin_amt, is_print, budgetno, itemno, prj_code)
            values
            (nextid('GK_YKJH_MX_SEQ'), v_gkykjhid,  v_row_yszxtzmx.df_item_id, v_row_yszxtzmx.df_src_id, v_row_yszxtzmx.df_budget_type,
             v_row_yszxtzmx.df_budgetid, v_row_yszxtzmx.df_prjid , v_row_yszxtzmx.df_adjlevel,  v_row_yszxtzmx.df_org_id, '', '0', '1',
             v_row_yszxtzmx.df_zb_id , v_row_yszxtz.voucher_type, to_char(sysdate,'yyyyMM'), v_row_yszxtzmx.df_unitno, v_row_yszxtzmx.df_unit_name,
             '1', -v_row_yszxtzmx.adjust_amt,  -v_row_yszxtzmx.adjust_amt, '0', v_row_yszxtzmx.df_budgetno,v_row_yszxtzmx.df_itemno  ,v_row_yszxtzmx.df_prjno );

          --则 更新 zb_bal 的相对应的已报用款计划额度 字段的值（即：减小该值）
            update zb_bal z set z.accredit_plan=nvl(z.accredit_plan,0)-nvl(v_row_yszxtzmx.adjust_amt ,0) where z.id=v_row_yszxtzmx.df_zb_id;

                   --如果是 一般支付
                   elsif v_row_yszxtz.voucher_type='3' then

                       --更新 该指标的 一般支付的实际支出数 。即：减小该实际支出数
                        update zb_bal z set z.tradition_num=nvl(z.tradition_num,0)-nvl(v_row_yszxtzmx.adjust_amt ,0) where z.id=v_row_yszxtzmx.df_zb_id;

                 end if;

          ---借方指标  为  null
          elsif   v_row_yszxtzmx.jf_zb_id is null then /*借方无指标id值：*/

-----------------------------------------------------------------------------------------------------------
            /*
               借方无指标编码：

                   1：判断指标表中是否有当前支付年度符合条件的指标存在
                       （判断条件： 预算年度、单位编码、资金来源、功能分类编码、功能分类类型、项目编码、项目类型 、是否统发工资、是否封套 ）



                  ---如果不存在，则新增指标
                                  新增用款计划 数据
                                  新增额度表数据
                                  更新指标支出数

                  ---如果存在，则判断其可支付额度 是否够 本次调账支付

                     ----如果 够：
                            --  则判断 额度表是否有额度
                                       如果有： 则判断该额度是否够支付
                                              如果够支付。则直接 修改（增大）支出数

                                              如果不够支付。则  需要判断该指标可支付额度是否够本次支付

                                                                如果够支付，则 新增用款计划 审结数据
                                                                              更新额度表数据，更新指标库支付额度值（即：加大实际支出数）
                                                                 如果不够支付 则：异常终止本次存储过程的执行。应用程序 本次操作事务回滚
                                        如果没有， 则 直接新增 用款计划数据
                                                              额度表数据
                                                              更新指标 已报用款计划 金额（增大）

                    ----如果 不够  支付
                            --  则 终止本次 存储过程执行。应用查询 本次事务操作回滚
            */

-----------------借方 无指标 编码
              if v_row_yszxtzmx.jf_entire_manage is null then
                 open cursor_zbbal   for     select * into v_row_zbbal from zb_bal z where      z.unitno =v_row_yszxtzmx.jf_unitno
                   and  z.src_id =v_row_yszxtzmx.jf_src_id
                   and  z.bdgyear =v_row_yszxtz.bdgyear
                   and  z.prj_id =v_row_yszxtzmx.jf_prjid
                   and  z.zb_project_type =v_row_yszxtzmx.jf_zb_project_type
                   and  z.budgetid =v_row_yszxtzmx.jf_budgetid
                   and  z.bdgt_id_type =v_row_yszxtzmx.jf_budget_type
                   and  z.is_unify =v_row_yszxtzmx.jf_is_unify
                   and  z.entire_manage is null;
              else
                 open cursor_zbbal   for     select * into v_row_zbbal from zb_bal z where      z.unitno =v_row_yszxtzmx.jf_unitno
                   and  z.src_id =v_row_yszxtzmx.jf_src_id
                   and  z.bdgyear =v_row_yszxtz.bdgyear
                   and  z.prj_id =v_row_yszxtzmx.jf_prjid
                   and  z.zb_project_type =v_row_yszxtzmx.jf_zb_project_type
                   and  z.budgetid =v_row_yszxtzmx.jf_budgetid
                   and  z.bdgt_id_type =v_row_yszxtzmx.jf_budget_type
                   and  z.is_unify =v_row_yszxtzmx.jf_is_unify
                   and  z.entire_manage=v_row_yszxtzmx.jf_entire_manage;
              end if;


              ----查询指标表是否存在 与（无指标id的）借方数据 相同的指标数据存在


               fetch cursor_zbbal into v_row_zbbal;
              ---判断：如果 指标表  不存在     与借方相同的指标数据
                  if cursor_zbbal%notfound or cursor_zbbal%notfound is null then

                   ---1：判断支付方式：集中支付（直接支付、授权支付）
            if v_row_yszxtz.voucher_type='0' then --直接支付

       dbms_output.put_line('====进行《支出账务调整》的业务逻辑处理:借方无指标id值: ==== ' );

              ---插入gk_adjust 主表数据
             insert into gk_adjust
               (id, is_accounting, adjustment_type, expenditure_type, create_dt, oper_account_id, remark, biz_status, process_instance_id, status, oper_dt, summary, process_status, gk_zfpz_id, oper_orgid)
             values
               (v_gkadjustid, '1', '0', v_row_yszxtz.voucher_type,  sysdate, v_row_yszxtz.oper_account, v_row_yszxtz.remark, '9', '', '', sysdate, v_row_yszxtz.remarks, '9', v_row_yszxtzmx.df_gk_zfpzid, v_row_yszxtz.oper_orgid) ;

             --- 插入 gk_adjust_detail 明细数据

             insert into gk_adjust_detail
               (gk_adjust_detail_id, gk_adjust_id, jf_unitno, jf_bdgid, jf_bdgt_type, jf_prj_code, jf_src_id, jf_zba_id, jf_item_id, df_unitno, df_bdgid, df_bdgt_type, df_prj_code, df_src_id, df_zba_id, df_item_id, balance, tocredit_amt, todebit_amt)
             values
               (nextid('GK_ADJUST_DETAIL_SEQ'), v_gkadjustid,  v_row_yszxtzmx.jf_unitno , v_row_yszxtzmx.jf_budgetno, v_row_yszxtzmx.jf_budget_type, v_row_yszxtzmx.jf_prjno, v_row_yszxtzmx.jf_src_id, v_row_yszxtzmx.jf_zb_id, v_row_yszxtzmx.jf_itemno,
               v_row_yszxtzmx.df_unitno,  v_row_yszxtzmx.df_budgetno,  v_row_yszxtzmx.df_budget_type, v_row_yszxtzmx.df_prjno, v_row_yszxtzmx.df_src_id, v_row_yszxtzmx.df_zb_id,v_row_yszxtzmx.df_itemno,  v_row_yszxtzmx.adjust_amt, 0, 0);



                     ---1：新增指标数据，其指标金额为：为 调账金额。非本支付方式的指标金额皆为0 。
                        --- 并 其对于的指标已报用款计划 为：调账金额
            insert into zb_bal (id,BDGYEAR,UNITID,unitno,SRC_ID,BDGT_ID_TYPE,BUDGETID,PRJ_ID,ITEM_ID,ZB_AMT,DIRECT_AMT,ACCREDIT_AMT,DIRECT_PLAN,ACCREDIT_PLAN,TRADITION_AMT,
            ORG_ID,ADJLEVEL,ZB_PROJECT_TYPE,EARLY_AMT,EARLY_CHANGE_AMT,ADDITIONAL_AMT,TRADITION_NUM,FUNDTYPE,ISSUE_NUM,ENTIRE_MANAGE,BZ)
            values (nextid('ZB_BAL_SEQ'),v_row_yszxtz.bdgyear,(select unitid from bs_bdg_unit where unitno=v_row_yszxtzmx.JF_UNITNO),v_row_yszxtzmx.JF_UNITNO,v_row_yszxtzmx.JF_SRC_ID,v_row_yszxtzmx.JF_BUDGET_TYPE,
            v_row_yszxtzmx.JF_BUDGETID,v_row_yszxtzmx.JF_PRJID,v_row_yszxtzmx.JF_ITEM_ID,v_row_yszxtzmx.adjust_amt,v_row_yszxtzmx.adjust_amt,0,v_row_yszxtzmx.adjust_amt,0,0,
            v_row_yszxtzmx.JF_ORG_ID,v_row_yszxtzmx.JF_ADJLEVEL,v_row_yszxtzmx.JF_ZB_PROJECT_TYPE,0,0,0,0,v_row_yszxtzmx.JF_FUNDTYPE,0,v_row_yszxtzmx.JF_ENTIRE_MANAGE,'预算执行调整'||v_row_yszxtz.id||'生成');

            select * into v_row_zbbal from zb_bal where id =(select max(id) from zb_bal);

             ---2：新增 用款计划 表数据
             ---向用款计划主表插入数据
             v_gkykjhid :=nextid('GK_YKJH_SEQ'); /*获取：gk_ykjh 表主键*/
             insert into gk_ykjh
              (id, ykjh_type, plany_ym, remark, create_dt, status, biz_status, process_instance_id, oper_dt, oper_org_id, oper_account_id, is_writeoff, is_hz, remark_back, org_id, fundtype, unitno, unit_name)
             values
              (v_gkykjhid, v_row_yszxtz.voucher_type,   to_char(sysdate,'yyyyMM') ,'由预算执行调整生成，其id为 :'||v_row_yszxtz.id , sysdate, '9', '9', '', sysdate,v_row_yszxtz.oper_orgid,v_row_yszxtz.oper_account, '0', '0', '', v_row_zbbal.org_id , v_row_zbbal.fundtype , v_row_zbbal.unitno, (select unit_name from bs_bdg_unit where unitno=v_row_zbbal.unitno));

              ---向用款计划明细表插入数据
              insert into gk_ykjh_mx
              (id, gk_ykjh_id, item_id, src_id, bdgt_id_type, budgetid, prj_id, adjlevel, org_id, gk_hzqsd_id, issued, counting_unit, zbz_bal_id, ykjh_type, plany_ym, unitno, unit_name, is_writeoff, apply_amt, fin_amt, is_print, budgetno, itemno, prj_code)
              values
              (nextid('GK_YKJH_MX_SEQ'), v_gkykjhid,  v_row_yszxtzmx.jf_item_id, v_row_yszxtzmx.jf_src_id, v_row_yszxtzmx.jf_budget_type, v_row_yszxtzmx.jf_budgetid, v_row_yszxtzmx.jf_prjid , v_row_yszxtzmx.jf_adjlevel,  v_row_yszxtzmx.jf_org_id, '', '0', '1', v_row_zbbal.id, v_row_yszxtz.voucher_type, to_char(sysdate,'yyyyMM'), v_row_yszxtzmx.jf_unitno, v_row_yszxtzmx.jf_unit_name, '0', v_row_yszxtzmx.adjust_amt,  v_row_yszxtzmx.adjust_amt, '0', v_row_yszxtzmx.jf_budgetno,v_row_yszxtzmx.jf_itemno  ,v_row_yszxtzmx.jf_prjno );

            ---3：新增  用款计划额度表 数据
            insert into gk_ykjh_quota
             (id, zbz_bal_id, plan_ny, direct_apply, direct_execute, accredit_apply, accredit_execute)
            values
             (nextid('GK_YKJH_QUOTA_SEQ'), v_row_zbbal.id, to_char(sysdate,'yyyyMM'), v_row_yszxtzmx.adjust_amt, v_row_yszxtzmx.adjust_amt, 0, 0);

                      ---授权支付
                    elsif v_row_yszxtz.voucher_type='1' then
              ---1：新增指标数据，其指标金额为：为 调账金额。非本支付方式的指标金额皆为0 。
                        --- 并 其对于的指标已报用款计划 为：调账金额
            insert into zb_bal (id,BDGYEAR,UNITID,unitno,SRC_ID,BDGT_ID_TYPE,BUDGETID,PRJ_ID,ITEM_ID,ZB_AMT,DIRECT_AMT,ACCREDIT_AMT,DIRECT_PLAN,ACCREDIT_PLAN,TRADITION_AMT,
            ORG_ID,ADJLEVEL,ZB_PROJECT_TYPE,EARLY_AMT,EARLY_CHANGE_AMT,ADDITIONAL_AMT,TRADITION_NUM,FUNDTYPE,ISSUE_NUM,ENTIRE_MANAGE,BZ)
            values (nextid('ZB_BAL_SEQ'),v_row_yszxtz.bdgyear,(select unitid from bs_bdg_unit where unitno=v_row_yszxtzmx.JF_UNITNO),v_row_yszxtzmx.JF_UNITNO,v_row_yszxtzmx.JF_SRC_ID,v_row_yszxtzmx.JF_BUDGET_TYPE,
            v_row_yszxtzmx.JF_BUDGETID,v_row_yszxtzmx.JF_PRJID,v_row_yszxtzmx.JF_ITEM_ID,v_row_yszxtzmx.JF_ADJ_ACCREDIT_AMT,0,v_row_yszxtzmx.JF_ADJ_ACCREDIT_AMT,0,v_row_yszxtzmx.JF_ADJ_ACCREDIT_AMT,0,
            v_row_yszxtzmx.JF_ORG_ID,v_row_yszxtzmx.JF_ADJLEVEL,v_row_yszxtzmx.JF_ZB_PROJECT_TYPE,0,0,0,0,v_row_yszxtzmx.JF_FUNDTYPE,0,v_row_yszxtzmx.JF_ENTIRE_MANAGE,'预算执行调整'||v_row_yszxtz.id||'生成');

            select * into v_row_zbbal from zb_bal where id =(select max(id) from zb_bal);

             ---2：新增 用款计划 表数据
             ---向用款计划主表插入数据
             v_gkykjhid :=nextid('GK_YKJH_SEQ'); /*获取：gk_ykjh 表主键*/
             insert into gk_ykjh
              (id, ykjh_type, plany_ym, remark, create_dt, status, biz_status, process_instance_id, oper_dt, oper_org_id, oper_account_id, is_writeoff, is_hz, remark_back, org_id, fundtype, unitno, unit_name)
             values
              (v_gkykjhid, v_row_yszxtz.voucher_type,   to_char(sysdate,'yyyyMM') ,'由预算执行调整生成，其id为 :'||v_row_yszxtz.id , sysdate, '9', '9', '', sysdate,v_row_yszxtz.oper_orgid,v_row_yszxtz.oper_account, '0', '0', '', v_row_zbbal.org_id , v_row_zbbal.fundtype , v_row_zbbal.unitno, (select unit_name from bs_bdg_unit where unitno=v_row_zbbal.unitno));

              ---向用款计划明细表插入数据
              insert into gk_ykjh_mx
              (id, gk_ykjh_id, item_id, src_id, bdgt_id_type, budgetid, prj_id, adjlevel, org_id, gk_hzqsd_id, issued, counting_unit, zbz_bal_id, ykjh_type, plany_ym, unitno, unit_name, is_writeoff, apply_amt, fin_amt, is_print, budgetno, itemno, prj_code)
              values
              (nextid('GK_YKJH_MX_SEQ'), v_gkykjhid,  v_row_yszxtzmx.jf_item_id, v_row_yszxtzmx.jf_src_id, v_row_yszxtzmx.jf_budget_type, v_row_yszxtzmx.jf_budgetid, v_row_yszxtzmx.jf_prjid , v_row_yszxtzmx.jf_adjlevel,  v_row_yszxtzmx.jf_org_id, '', '0', '1', v_row_zbbal.id, v_row_yszxtz.voucher_type, to_char(sysdate,'yyyyMM'), v_row_yszxtzmx.jf_unitno, v_row_yszxtzmx.jf_unit_name, '0', v_row_yszxtzmx.adjust_amt,  v_row_yszxtzmx.adjust_amt, '0', v_row_yszxtzmx.jf_budgetno,v_row_yszxtzmx.jf_itemno  ,v_row_yszxtzmx.jf_prjno );

            ---3：新增  用款计划额度表 数据
            /* insert into gk_ykjh_quota
             (id, zbz_bal_id, plan_ny, direct_apply, direct_execute, accredit_apply, accredit_execute)
            values
             (nextid('GK_YKJH_QUOTA_SEQ'), v_row_zbbal.id, to_char(sysdate,'yyyyMM'), v_row_yszxtzmx.adjust_amt, v_row_yszxtzmx.adjust_amt, 0, 0);
 */

                   ---2： 判断支付方式：一般支付
                    elsif v_row_yszxtz.voucher_type='3' then

           dbms_output.put_line('====进行《支出账务调整》的业务逻辑处理:借方无指标id值: ==== ' );

            ---插入gk_adjust 主表数据
           insert into gk_adjust
             (id, is_accounting, adjustment_type, expenditure_type, create_dt, oper_account_id, remark, biz_status, process_instance_id, status, oper_dt, summary, process_status, gk_zfpz_id, oper_orgid)
           values
             (v_gkadjustid, '1', '0', v_row_yszxtz.voucher_type,  sysdate, v_row_yszxtz.oper_account, v_row_yszxtz.remark, '9', '', '', sysdate, v_row_yszxtz.remarks, '9', v_row_yszxtzmx.df_gk_zfpzid, v_row_yszxtz.oper_orgid) ;

           --- 插入 gk_adjust_detail 明细数据

           insert into gk_adjust_detail
             (gk_adjust_detail_id, gk_adjust_id, jf_unitno, jf_bdgid, jf_bdgt_type, jf_prj_code, jf_src_id, jf_zba_id, jf_item_id, df_unitno, df_bdgid, df_bdgt_type, df_prj_code, df_src_id, df_zba_id, df_item_id, balance, tocredit_amt, todebit_amt)
           values
             (nextid('GK_ADJUST_DETAIL_SEQ'), v_gkadjustid,  v_row_yszxtzmx.jf_unitno , v_row_yszxtzmx.jf_budgetno, v_row_yszxtzmx.jf_budget_type, v_row_yszxtzmx.jf_prjno, v_row_yszxtzmx.jf_src_id, v_row_yszxtzmx.jf_zb_id, v_row_yszxtzmx.jf_itemno,
             v_row_yszxtzmx.df_unitno,  v_row_yszxtzmx.df_budgetno,  v_row_yszxtzmx.df_budget_type, v_row_yszxtzmx.df_prjno, v_row_yszxtzmx.df_src_id, v_row_yszxtzmx.df_zb_id,v_row_yszxtzmx.df_itemno,  v_row_yszxtzmx.adjust_amt, 0, 0);


                       ---1：新增指标数据，其指标金额为：为 调账金额。非本支付方式的指标金额皆为0 。
                           --- 并 其对于的指标的实际支出数 为：调账金额
                        insert into zb_bal (id,BDGYEAR,UNITID,unitno,SRC_ID,BDGT_ID_TYPE,BUDGETID,PRJ_ID,ITEM_ID,ZB_AMT,DIRECT_AMT,ACCREDIT_AMT,DIRECT_PLAN,ACCREDIT_PLAN,TRADITION_AMT,
            ORG_ID,ADJLEVEL,ZB_PROJECT_TYPE,EARLY_AMT,EARLY_CHANGE_AMT,ADDITIONAL_AMT,TRADITION_NUM,FUNDTYPE,ISSUE_NUM,ENTIRE_MANAGE,BZ)
            values (nextid('ZB_BAL_SEQ'),v_row_yszxtz.bdgyear,(select unitid from bs_bdg_unit where unitno=v_row_yszxtzmx.JF_UNITNO),v_row_yszxtzmx.JF_UNITNO,v_row_yszxtzmx.JF_SRC_ID,v_row_yszxtzmx.JF_BUDGET_TYPE,
            v_row_yszxtzmx.JF_BUDGETID,v_row_yszxtzmx.JF_PRJID,v_row_yszxtzmx.JF_ITEM_ID,v_row_yszxtzmx.adjust_amt,0,0,0,0,v_row_yszxtzmx.adjust_amt,
            v_row_yszxtzmx.JF_ORG_ID,v_row_yszxtzmx.JF_ADJLEVEL,v_row_yszxtzmx.JF_ZB_PROJECT_TYPE,0,0,0,v_row_yszxtzmx.adjust_amt,v_row_yszxtzmx.JF_FUNDTYPE,0,v_row_yszxtzmx.JF_ENTIRE_MANAGE,'预算执行调整'||v_row_yszxtz.id||'生成');

           end if;


              ---判断：如果 指标表  存在        与借方相同的指标数据
                  else

                      ---如果支付方式为：直接支付
                       if  v_row_yszxtz.voucher_type ='0' then

                   dbms_output.put_line('====进行《支出账务调整》的业务逻辑处理:借方无指标id值: ==== ' );

                ---插入gk_adjust 主表数据
               insert into gk_adjust
                 (id, is_accounting, adjustment_type, expenditure_type, create_dt, oper_account_id, remark, biz_status, process_instance_id, status, oper_dt, summary, process_status, gk_zfpz_id, oper_orgid)
               values
                 (v_gkadjustid, '1', '0', v_row_yszxtz.voucher_type,  sysdate, v_row_yszxtz.oper_account, v_row_yszxtz.remark, '9', '', '', sysdate, v_row_yszxtz.remarks, '9', v_row_yszxtzmx.df_gk_zfpzid, v_row_yszxtz.oper_orgid) ;

               --- 插入 gk_adjust_detail 明细数据

               insert into gk_adjust_detail
                 (gk_adjust_detail_id, gk_adjust_id, jf_unitno, jf_bdgid, jf_bdgt_type, jf_prj_code, jf_src_id, jf_zba_id, jf_item_id, df_unitno, df_bdgid, df_bdgt_type, df_prj_code, df_src_id, df_zba_id, df_item_id, balance, tocredit_amt, todebit_amt)
               values
                 (nextid('GK_ADJUST_DETAIL_SEQ'), v_gkadjustid,  v_row_yszxtzmx.jf_unitno , v_row_yszxtzmx.jf_budgetno, v_row_yszxtzmx.jf_budget_type, v_row_yszxtzmx.jf_prjno, v_row_yszxtzmx.jf_src_id, v_row_yszxtzmx.jf_zb_id, v_row_yszxtzmx.jf_itemno,
                 v_row_yszxtzmx.df_unitno,  v_row_yszxtzmx.df_budgetno,  v_row_yszxtzmx.df_budget_type, v_row_yszxtzmx.df_prjno, v_row_yszxtzmx.df_src_id, v_row_yszxtzmx.df_zb_id,v_row_yszxtzmx.df_itemno,  v_row_yszxtzmx.adjust_amt, 0, 0);



                               --- 打开 查询用款计划额度表的游标
                               open cursor_gkykjhquota   for   select * into v_row_gkykjhquota   from gk_ykjh_quota q where q.zbz_bal_id=v_row_zbbal.id and q.plan_ny =to_char(sysdate,'yyyyMM');
                               fetch cursor_gkykjhquota   into  v_row_gkykjhquota;
                               --当 额度表没有当前支付月份的该借方指标的额度数据的时候；
                                if cursor_gkykjhquota%notfound or cursor_gkykjhquota%notfound is null then
                                    dbms_output.put_line('======如果：该借方指标id（'||v_row_zbbal.id ||'）在额度表不存在数据 则新增额度表数据======');

                                 ---判断借方指标该支付指标的金额是否够本次调整金额的支付
                                    --1:查询查询指标是否可支付
                                   select vv.id,vv.canpayamt ,vv.org_id ,vv.n_fundtype ,vv.unitno ,
                                     (select u.unit_name from bs_bdg_unit u where u.unitno=vv.unitno) as unit_name
                                      into v_r_zbbal_info
                                     from (  select  z.*,(case when  v_row_yszxtz.voucher_type ='0' then nvl(nvl(z.direct_amt,0)-nvl(direct_plan ,0),0)- v_row_yszxtzmx.adjust_amt
                                                        when  v_row_yszxtz.voucher_type ='1' then nvl(nvl(z.accredit_amt ,0)-nvl(accredit_plan ,0),0)- v_row_yszxtzmx.adjust_amt
                                                        end) as canpayamt,(case z.fundtype when '1' then '1' when '2' then '2' else '3' end) n_fundtype
                                                         from zb_bal z where z.id =v_row_zbbal.id ) vv ;


                                   if  v_r_zbbal_info.canpayamt >=0 then
                                       dbms_output.put_line('====');
                                    ---如果够支付，则新增已经审结了用款计划数据(正的用款计划额度)

                                         ---向用款计划主表插入数据
                                         v_gkykjhid :=nextid('GK_YKJH_SEQ'); /*获取：gk_ykjh 表主键*/
                                         insert into gk_ykjh
                                          (id, ykjh_type, plany_ym, remark, create_dt, status, biz_status, process_instance_id, oper_dt, oper_org_id, oper_account_id, is_writeoff, is_hz, remark_back, org_id, fundtype, unitno, unit_name)
                                         values
                                          (v_gkykjhid, v_row_yszxtz.voucher_type,   to_char(sysdate,'yyyyMM') ,'由预算执行调整生成，其id为 :'||v_row_yszxtz.id , sysdate, '9', '9', '', sysdate,v_row_yszxtz.oper_orgid,v_row_yszxtz.oper_account, '0', '0', '', v_r_zbbal_info.org_id , v_r_zbbal_info.n_fundtype , v_r_zbbal_info.unitno, v_r_zbbal_info.unit_name);

                                          ---向用款计划明细表插入数据
                                          insert into gk_ykjh_mx
                                            (id, gk_ykjh_id, item_id, src_id, bdgt_id_type, budgetid, prj_id, adjlevel, org_id, gk_hzqsd_id, issued, counting_unit, zbz_bal_id, ykjh_type, plany_ym, unitno, unit_name, is_writeoff, apply_amt, fin_amt, is_print, budgetno, itemno, prj_code)
                                          values
                                            (nextid('GK_YKJH_MX_SEQ'), v_gkykjhid,  v_row_yszxtzmx.jf_item_id, v_row_yszxtzmx.jf_src_id, v_row_yszxtzmx.jf_budget_type, v_row_yszxtzmx.jf_budgetid, v_row_yszxtzmx.jf_prjid , v_row_yszxtzmx.jf_adjlevel,  v_row_yszxtzmx.jf_org_id, '', '0', '1', v_r_zbbal_info.id, v_row_yszxtz.voucher_type, to_char(sysdate,'yyyyMM'), v_row_yszxtzmx.jf_unitno, v_row_yszxtzmx.jf_unit_name, '0', v_row_yszxtzmx.adjust_amt,  v_row_yszxtzmx.adjust_amt, '0', v_row_yszxtzmx.jf_budgetno,v_row_yszxtzmx.jf_itemno  ,v_row_yszxtzmx.jf_prjno );

                                    --增加额度表的数据
                                       insert into gk_ykjh_quota
                                         (id, zbz_bal_id, plan_ny, direct_apply, direct_execute, accredit_apply, accredit_execute)
                                       values
                                         (nextid('GK_YKJH_QUOTA_SEQ'), v_r_zbbal_info.id, to_char(sysdate,'yyyyMM'), v_row_yszxtzmx.adjust_amt, v_row_yszxtzmx.adjust_amt, 0, 0);
                                    --修改指标报表的 对应支付方式的 已报用款计划 字段的金额
                                        if v_row_yszxtz.voucher_type='0' then  /*直接支付*/
                                           update zb_bal z set z.direct_plan  =z.direct_plan+v_row_yszxtzmx.adjust_amt where z.id=v_row_zbbal.id;
                                        elsif v_row_yszxtz.voucher_type='1'then  /*授权支付*/
                                           update zb_bal z set z.accredit_plan  =z.accredit_plan+v_row_yszxtzmx.adjust_amt where z.id=v_row_zbbal.id;
                                       end if;

                                  elsif  v_r_zbbal_info.canpayamt < 0  then
                                  ---则 整个业务存储过程 本次执行业务回滚 ，应用程序进行审批操作事务回滚，终止预算执行调整审批的审结操作 。
                                        raise  v_raise_over; /*跳转到异常部分代码*/
                                  end if;

                                else  /*当额度表该支付月份有支付额度数据时：*/

                                    while cursor_gkykjhquota%found loop
                                        --判断 借方指标 id 在额度表中的 可以支付额度是否够本次调整支付金额支付。

                                          /*直接支付*/

                                             ---获取：额度表可以支付的额度 - 本次调整需要支付的支出数=需要支付的支出额
                                             v_sub_amt := nvl((nvl(v_row_gkykjhquota.direct_apply,0) -nvl(v_row_gkykjhquota.direct_execute,0)),0)  /*额度表可支付额度*/ -  nvl(v_row_yszxtzmx.adjust_amt,0)/*调整金额*/ ;

                                             if v_sub_amt  >= 0  then
                                                --如果 额度表的支付额度 够 支付，则直接加大额度表直接支付的支出数
                                                update gk_ykjh_quota q set q.direct_execute=q.direct_execute+v_row_yszxtzmx.adjust_amt where  q.id=v_row_gkykjhquota.id  and q.zbz_bal_id=v_row_zbbal.id and q.plan_ny=to_char(sysdate,'yyyyMM');

                                             elsif   v_sub_amt  < 0  then

                                                --如果 额度表的支付额度 不够 支付，则需要判断指标的可以支付金额是否够支付。
                                                 dbms_output.put_line('======== ' );
                                                  --1:查询查询指标是否可支付
                                                   select vv.id,vv.canpayamt ,vv.org_id ,vv.n_fundtype ,vv.unitno ,
                                                     (select u.unit_name from bs_bdg_unit u where u.unitno=vv.unitno) as unit_name
                                                      into v_r_zbbal_info
                                                   from (  select  z.*, nvl(nvl(z.direct_amt,0)-nvl(direct_plan ,0),0)+ v_sub_amt   as canpayamt,
                                                                  (case z.fundtype when '1' then '1' when '2' then '2' else '3' end) n_fundtype
                                                           from zb_bal z where z.id =v_row_zbbal.id ) vv ;

                                                  --如果 指标的可支付额度 够支付 额度表不够支付的差额
                                                  if v_r_zbbal_info.canpayamt >0 then
                                                     -- 则：插入用款计划主表数据
                                                      v_gkykjhid :=nextid('GK_YKJH_SEQ'); /*获取：gk_ykjh 表主键*/
                                                      insert into gk_ykjh
                                                        (id, ykjh_type, plany_ym, remark, create_dt, status, biz_status, process_instance_id, oper_dt, oper_org_id, oper_account_id, is_writeoff, is_hz, remark_back, org_id, fundtype, unitno, unit_name)
                                                      values
                                                        (v_gkykjhid, v_row_yszxtz.voucher_type,   to_char(sysdate,'yyyyMM') ,'由预算执行调整生成，其id为 :'||v_row_yszxtz.id , sysdate, '9', '9', '', sysdate,v_row_yszxtz.oper_orgid,v_row_yszxtz.oper_account, '0', '0', '', v_r_zbbal_info.org_id , v_r_zbbal_info.n_fundtype , v_r_zbbal_info.unitno, v_r_zbbal_info.unit_name);


                                                     --     插入用款计划明细表数据
                                                      insert into gk_ykjh_mx
                                                        (id, gk_ykjh_id, item_id, src_id, bdgt_id_type, budgetid, prj_id, adjlevel, org_id, gk_hzqsd_id, issued, counting_unit, zbz_bal_id, ykjh_type, plany_ym, unitno, unit_name, is_writeoff, apply_amt, fin_amt, is_print, budgetno, itemno, prj_code)
                                                      values
                                                        (nextid('GK_YKJH_MX_SEQ'), v_gkykjhid,  v_row_yszxtzmx.jf_item_id, v_row_yszxtzmx.jf_src_id, v_row_yszxtzmx.jf_budget_type, v_row_yszxtzmx.jf_budgetid, v_row_yszxtzmx.jf_prjid , v_row_yszxtzmx.jf_adjlevel,  v_row_yszxtzmx.jf_org_id, '', '0', '1', v_r_zbbal_info.id, v_row_yszxtz.voucher_type, to_char(sysdate,'yyyyMM'), v_row_yszxtzmx.jf_unitno, v_row_yszxtzmx.jf_unit_name, '0', 0-v_sub_amt,  0-v_sub_amt, '0', v_row_yszxtzmx.jf_budgetno,v_row_yszxtzmx.jf_itemno  ,v_row_yszxtzmx.jf_prjno );


                                                     --     更新用款计划额度表数据的额度和支出数

                                                      update gk_ykjh_quota q set q.direct_execute=q.direct_execute+v_row_yszxtzmx.adjust_amt,q.direct_apply =q.direct_apply-v_sub_amt
                                                         where  q.id=v_row_gkykjhquota.id  and q.zbz_bal_id=v_row_zbbal.id and q.plan_ny=to_char(sysdate,'yyyyMM');


                                                     --     更新指标表 直接支付 已报用款计划  字段的值
                                                     update zb_bal z set z.direct_plan =z.direct_plan-v_sub_amt where z.id=v_r_zbbal_info.id;

                                                  --如果指标的可支付额度   不够支付   额度表不够支付的差额
                                                  elsif v_r_zbbal_info.canpayamt<0 then
                                                    -- 则： 退出 整个存储过程执行，应用程序 预算执行调整审批 审结操作进行事物回滚
                                                     raise  v_raise_over; /*跳转到异常部分代码*/
                                                  end if ;
                                              end if ;



                                    fetch cursor_gkykjhquota   into  v_row_gkykjhquota;
                                    exit when cursor_gkykjhquota%notfound or cursor_gkykjhquota%notfound is null;
                                    end loop;
                                    close  cursor_gkykjhquota;/*关闭游标*/
                                end if;
            --支付方式为：授权支付
            elsif v_row_yszxtz.voucher_type='1' then

                ---20180305 troy
                ---判断累计额度是否够支出
             /*   select sum(accredit_apply-accredit_execute)-v_row_yszxtzmx.adjust_amt  into v_sub_amt from gk_ykjh_quota q where
                q.zbz_bal_id = v_row_yszxtzmx.jf_zb_id;

                if v_sub_amt>=0 then
                   ---判断是否存在本月额度
                 open cursor_gkykjhquota   for   select * into v_row_gkykjhquota   from gk_ykjh_quota q where q.zbz_bal_id=v_row_yszxtzmx.jf_zb_id and q.plan_ny =to_char(sysdate,'yyyyMM');
                                 fetch cursor_gkykjhquota   into  v_row_gkykjhquota;

                 if cursor_gkykjhquota%notfound or cursor_gkykjhquota%notfound is null then
                    ---如果不存在，生成当月额度
                    --增加额度表的数据
                   insert into gk_ykjh_quota
                     (id, zbz_bal_id, plan_ny, direct_apply, direct_execute, accredit_apply, accredit_execute)
                   values
                     (nextid('GK_YKJH_QUOTA_SEQ'), v_row_yszxtzmx.jf_zb_id, to_char(sysdate,'yyyyMM'), 0, 0, 0, v_row_yszxtzmx.adjust_amt);
                 else
                   while cursor_gkykjhquota%found loop
                    ---如果存在，改变额度数据
                    update gk_ykjh_quota q set q.accredit_execute=q.accredit_execute+v_row_yszxtzmx.adjust_amt where
                    q.zbz_bal_id=v_row_yszxtzmx.jf_zb_id and q.plan_ny=to_char(sysdate,'yyyyMM');

                   fetch cursor_gkykjhquota   into  v_row_gkykjhquota;
                   exit when cursor_gkykjhquota%notfound or cursor_gkykjhquota%notfound is null;
                   end loop;
                   close  cursor_gkykjhquota;\*关闭游标*\
                 end if;


                elsif v_sub_amt<0 then*/
                   --判断指标剩余指标金额是否够支出
                   select vv.id,vv.canpayamt ,vv.org_id ,vv.n_fundtype ,vv.unitno ,
                 (select u.unit_name from bs_bdg_unit u where u.unitno=vv.unitno) as unit_name
                 into v_r_zbbal_info
                 from (  select  z.*,(case when  v_row_yszxtz.voucher_type ='0' then nvl(nvl(z.direct_amt,0)-nvl(direct_plan ,0),0)-v_row_yszxtzmx.adjust_amt
                          when  v_row_yszxtz.voucher_type ='1' then nvl(nvl(z.accredit_amt ,0)-nvl(accredit_plan ,0),0)-v_row_yszxtzmx.adjust_amt
                          end) as canpayamt,(case z.fundtype when '1' then '1' when '2' then '2' else '3' end) n_fundtype
                           from zb_bal z where z.id =v_row_zbbal.id ) vv ;

                 --如果指标够支付，生成审结的用款计划
                 if  v_r_zbbal_info.canpayamt >=0 then
                   ---向用款计划主表插入数据
                   v_gkykjhid :=nextid('GK_YKJH_SEQ'); /*获取：gk_ykjh 表主键*/
                   insert into gk_ykjh
                    (id, ykjh_type, plany_ym, remark, create_dt, status, biz_status, process_instance_id, oper_dt, oper_org_id, oper_account_id, is_writeoff, is_hz, remark_back, org_id, fundtype, unitno, unit_name)
                   values
                    (v_gkykjhid, v_row_yszxtz.voucher_type,   to_char(sysdate,'yyyyMM') ,'由预算执行调整生成，其id为 :'||v_row_yszxtz.id , sysdate, '9', '9', '', sysdate,v_row_yszxtz.oper_orgid,v_row_yszxtz.oper_account, '0', '0', '', v_r_zbbal_info.org_id , v_r_zbbal_info.n_fundtype , v_r_zbbal_info.unitno, v_r_zbbal_info.unit_name);

                   ---向用款计划明细表插入数据
                   insert into gk_ykjh_mx
                    (id, gk_ykjh_id, item_id, src_id, bdgt_id_type, budgetid, prj_id, adjlevel, org_id, gk_hzqsd_id, issued, counting_unit, zbz_bal_id, ykjh_type, plany_ym, unitno, unit_name, is_writeoff, apply_amt, fin_amt, is_print, budgetno, itemno, prj_code)
                   values
                    (nextid('GK_YKJH_MX_SEQ'), v_gkykjhid,  v_row_yszxtzmx.jf_item_id, v_row_yszxtzmx.jf_src_id, v_row_yszxtzmx.jf_budget_type, v_row_yszxtzmx.jf_budgetid, v_row_yszxtzmx.jf_prjid , v_row_yszxtzmx.jf_adjlevel,  v_row_yszxtzmx.jf_org_id, '', '0', '1', v_r_zbbal_info.id, v_row_yszxtz.voucher_type, to_char(sysdate,'yyyyMM'), v_row_yszxtzmx.jf_unitno, v_row_yszxtzmx.jf_unit_name, '0', v_row_yszxtzmx.adjust_amt,  v_row_yszxtzmx.adjust_amt, '0', v_row_yszxtzmx.jf_budgetno,v_row_yszxtzmx.jf_itemno  ,v_row_yszxtzmx.jf_prjno );

                   --修改指标报表的 对应支付方式的 已报用款计划 字段的金额
                   update zb_bal z set z.accredit_plan  =z.accredit_plan+v_row_yszxtzmx.adjust_amt where z.id=v_row_zbbal.id;
                 --指标不够支付
                 elsif  v_r_zbbal_info.canpayamt < 0  then
                                  ---则 整个业务存储过程 本次执行业务回滚 ，应用程序进行审批操作事务回滚，终止预算执行调整审批的审结操作 。
                                     raise  v_raise_over; /*跳转到异常部分代码*/
                                 end if;

              /*  end if;*/


                        ---如果支付方式为： 一般支付
                        elsif v_row_yszxtz.voucher_type='3' then

                 dbms_output.put_line('====进行《支出账务调整》的业务逻辑处理:借方无指标id值: ==== ' );

                ---插入gk_adjust 主表数据
               insert into gk_adjust
                 (id, is_accounting, adjustment_type, expenditure_type, create_dt, oper_account_id, remark, biz_status, process_instance_id, status, oper_dt, summary, process_status, gk_zfpz_id, oper_orgid)
               values
                 (v_gkadjustid, '1', '0', v_row_yszxtz.voucher_type,  sysdate, v_row_yszxtz.oper_account, v_row_yszxtz.remark, '9', '', '', sysdate, v_row_yszxtz.remarks, '9', v_row_yszxtzmx.df_gk_zfpzid, v_row_yszxtz.oper_orgid) ;

               --- 插入 gk_adjust_detail 明细数据

               insert into gk_adjust_detail
                 (gk_adjust_detail_id, gk_adjust_id, jf_unitno, jf_bdgid, jf_bdgt_type, jf_prj_code, jf_src_id, jf_zba_id, jf_item_id, df_unitno, df_bdgid, df_bdgt_type, df_prj_code, df_src_id, df_zba_id, df_item_id, balance, tocredit_amt, todebit_amt)
               values
                 (nextid('GK_ADJUST_DETAIL_SEQ'), v_gkadjustid,  v_row_yszxtzmx.jf_unitno , v_row_yszxtzmx.jf_budgetno, v_row_yszxtzmx.jf_budget_type, v_row_yszxtzmx.jf_prjno, v_row_yszxtzmx.jf_src_id, v_row_yszxtzmx.jf_zb_id, v_row_yszxtzmx.jf_itemno,
                 v_row_yszxtzmx.df_unitno,  v_row_yszxtzmx.df_budgetno,  v_row_yszxtzmx.df_budget_type, v_row_yszxtzmx.df_prjno, v_row_yszxtzmx.df_src_id, v_row_yszxtzmx.df_zb_id,v_row_yszxtzmx.df_itemno,  v_row_yszxtzmx.adjust_amt, 0, 0);



                             ----则需要判断 一般支付指标金额-一般支付的实际支出数=剩余可以支付的金额 是否可以够本次支付
                             select vv.id,vv.canpayamt ,vv.org_id ,vv.n_fundtype ,vv.unitno ,
                               (select u.unit_name from bs_bdg_unit u where u.unitno=vv.unitno) as unit_name
                             into v_r_zbbal_info
                             from
                             ( select z.* ,nvl (nvl(z.tradition_amt,0)-nvl(z.tradition_num,0)- nvl(v_row_yszxtzmx.adjust_amt,0) ,0 ) as canpayamt ,
                                     (case z.fundtype when '1' then '1' when '2' then '2' else '3' end) n_fundtype
                              from zb_bal z where z.id =v_row_zbbal.id  ) vv ;

                             if v_r_zbbal_info.canpayamt >=0 then

                                update zb_bal z set z.tradition_num =z.tradition_num+v_row_yszxtzmx.adjust_amt where z.id=v_row_zbbal.id;

                             elsif v_r_zbbal_info.canpayamt < 0 then
                                ---则 整个业务存储过程 本次执行业务回滚 ，应用程序进行审批操作事务回滚，终止预算执行调整审批的审结操作 。
                                raise  v_raise_over; /*跳转到异常部分代码*/
                             end if;


                        end if;
              end if ;--是否存在结束
 -----------------------------------------------------------------------------------------------------------
             /* 贷方 1：判断该贷方指标在本支付年月是否操作额度数据：如果没有，则在额度表生成本支付月份的0值额度数据
                                      如果有，则判断该支付月份是否有过支付数发生。
                                                如果有，则在原值上面减去支付发生数
                                                如果没有，则用0值减去 本次的支付金额
                     2：做 贷方冲销的用款计划

                     3：减小 贷方指标的已报用款计划额度

             */
        ---判断支付方式

                  --如果是 直接支付
                  if v_row_yszxtz.voucher_type='0'  then


                      ----查询 贷方指标 在额度表中是否有数据
                        --- 打开 查询用款计划额度表  的  游标
                       open cursor_gkykjhquota   for   select * into v_row_gkykjhquota
                               from gk_ykjh_quota q where q.zbz_bal_id=v_row_yszxtzmx.df_zb_id and q.plan_ny =to_char(sysdate,'yyyyMM');

                               fetch cursor_gkykjhquota   into  v_row_gkykjhquota;
                        ---如果没有数据，
                         if cursor_gkykjhquota%notfound or cursor_gkykjhquota%notfound is null then

                              ---直接支付


                                 --插入一条 所有 0 值 额度计划数据，并把支付数（执行金额）的金额填上
                                 insert into gk_ykjh_quota
                                   (id, zbz_bal_id, plan_ny, direct_apply, direct_execute, accredit_apply, accredit_execute)
                                 values
                                   (nextid('GK_YKJH_QUOTA_SEQ'), v_row_yszxtzmx.df_zb_id, to_char(sysdate,'yyyyMM'), 0-v_row_yszxtzmx.adjust_amt,0-v_row_yszxtzmx.adjust_amt, 0, 0);

                                  --则 插入一条 冲销的 gk_ykjh  gk_ykjh_mx 的数据

                                     v_gkykjhid :=nextid('GK_YKJH_SEQ'); /*获取：gk_ykjh 表主键*/

                                    insert into gk_ykjh
                                       (id, ykjh_type, plany_ym, remark, create_dt, status, biz_status, process_instance_id, oper_dt, oper_org_id, oper_account_id, is_writeoff, is_hz, remark_back, org_id, fundtype, unitno, unit_name)
                                     values
                                     (v_gkykjhid, v_row_yszxtz.voucher_type,   to_char(sysdate,'yyyyMM') ,'由预算执行调整生成，其id为 :'||v_row_yszxtz.id , sysdate, '9', '9', '', sysdate,v_row_yszxtz.oper_orgid,v_row_yszxtz.oper_account, '1', '0', '',
                                         v_row_yszxtzmx.df_org_id ,decode(v_row_yszxtzmx.df_fundtype,'1','1','2','2','3') , v_row_yszxtzmx.df_unitno,v_row_yszxtzmx.df_unit_name);

                                     ---向用款计划明细表插入数据
                                    insert into gk_ykjh_mx
                                      (id, gk_ykjh_id, item_id, src_id, bdgt_id_type, budgetid, prj_id, adjlevel, org_id, gk_hzqsd_id, issued, counting_unit,
                                       zbz_bal_id, ykjh_type, plany_ym, unitno, unit_name, is_writeoff, apply_amt, fin_amt, is_print, budgetno, itemno, prj_code)
                                    values
                                      (nextid('GK_YKJH_MX_SEQ'), v_gkykjhid,  v_row_yszxtzmx.df_item_id, v_row_yszxtzmx.df_src_id, v_row_yszxtzmx.df_budget_type,
                                       v_row_yszxtzmx.df_budgetid, v_row_yszxtzmx.df_prjid , v_row_yszxtzmx.df_adjlevel,  v_row_yszxtzmx.df_org_id, '', '0', '1',
                                       v_row_yszxtzmx.df_zb_id , v_row_yszxtz.voucher_type, to_char(sysdate,'yyyyMM'), v_row_yszxtzmx.df_unitno, v_row_yszxtzmx.df_unit_name,
                                       '1', -v_row_yszxtzmx.adjust_amt,  -v_row_yszxtzmx.adjust_amt, '0', v_row_yszxtzmx.df_budgetno,v_row_yszxtzmx.df_itemno  ,v_row_yszxtzmx.df_prjno );


                                  --则 更新 zb_bal 的相对应的已报用款计划额度 字段的值（即：减小该值）

                                     update zb_bal z set z.direct_plan=nvl(z.direct_plan,0)-nvl(v_row_yszxtzmx.adjust_amt ,0) where z.id=v_row_yszxtzmx.df_zb_id;

                        --如果有数据
                         else
                                 /*当额度表该支付月份有该指标的支付额度数据时：*/

                                while cursor_gkykjhquota%found loop

                                    --- 如果是直接支付

                                        --则 更新支付数（执行金额），即：减小执行金额的值。增大可以支付金额
                                            update gk_ykjh_quota q set q.direct_execute=nvl(q.direct_execute,0)-nvl(v_row_yszxtzmx.adjust_amt,0)  where q.zbz_bal_id=v_row_yszxtzmx.df_zb_id and q.plan_ny=to_char(sysdate,'yyyyMM');

                                        --则 插入一条 冲销的 gk_ykjh  gk_ykjh_mx 的数据
                                            v_gkykjhid :=nextid('GK_YKJH_SEQ'); /*获取：gk_ykjh 表主键*/

                                            insert into gk_ykjh
                                               (id, ykjh_type, plany_ym, remark, create_dt, status, biz_status, process_instance_id, oper_dt, oper_org_id, oper_account_id, is_writeoff, is_hz, remark_back, org_id, fundtype, unitno, unit_name)
                                            values
                                             (v_gkykjhid, v_row_yszxtz.voucher_type,   to_char(sysdate,'yyyyMM') ,'由预算执行调整生成，其id为 :'||v_row_yszxtz.id , sysdate, '9', '9', '', sysdate,v_row_yszxtz.oper_orgid,v_row_yszxtz.oper_account, '1', '0', '',
                                                 v_row_yszxtzmx.df_org_id ,decode(v_row_yszxtzmx.df_fundtype,'1','1','2','2','3') , v_row_yszxtzmx.df_unitno,v_row_yszxtzmx.df_unit_name);

                                            insert into gk_ykjh_mx
                                                (id, gk_ykjh_id, item_id, src_id, bdgt_id_type, budgetid, prj_id, adjlevel, org_id, gk_hzqsd_id, issued, counting_unit,
                                                 zbz_bal_id, ykjh_type, plany_ym, unitno, unit_name, is_writeoff, apply_amt, fin_amt, is_print, budgetno, itemno, prj_code)
                                            values
                                                (nextid('GK_YKJH_MX_SEQ'), v_gkykjhid,  v_row_yszxtzmx.df_item_id, v_row_yszxtzmx.df_src_id, v_row_yszxtzmx.df_budget_type,
                                                 v_row_yszxtzmx.df_budgetid, v_row_yszxtzmx.df_prjid , v_row_yszxtzmx.df_adjlevel,  v_row_yszxtzmx.df_org_id, '', '0', '1',
                                                 v_row_yszxtzmx.df_zb_id , v_row_yszxtz.voucher_type, to_char(sysdate,'yyyyMM'), v_row_yszxtzmx.df_unitno, v_row_yszxtzmx.df_unit_name,
                                                 '1', -v_row_yszxtzmx.adjust_amt,  -v_row_yszxtzmx.adjust_amt, '0', v_row_yszxtzmx.df_budgetno,v_row_yszxtzmx.df_itemno  ,v_row_yszxtzmx.df_prjno );


                                        --则 更新 zb_bal 的相对应的已报用款计划额度 字段的值（即：减小该值）
                                           update zb_bal z set z.direct_plan=nvl(z.direct_plan,0)-nvl(v_row_yszxtzmx.adjust_amt ,0) where z.id=v_row_yszxtzmx.df_zb_id;




                                fetch cursor_gkykjhquota   into  v_row_gkykjhquota;
                                exit when cursor_gkykjhquota%notfound or cursor_gkykjhquota%notfound is null;
                                end loop;
                                close  cursor_gkykjhquota;/*关闭游标*/
                         end if;

          --授权支付
           elsif v_row_yszxtz.voucher_type='1' then
               --则 插入一条 冲销的 gk_ykjh  gk_ykjh_mx 的数据
             v_gkykjhid :=nextid('GK_YKJH_SEQ'); /*获取：gk_ykjh 表主键*/

            insert into gk_ykjh
               (id, ykjh_type, plany_ym, remark, create_dt, status, biz_status, process_instance_id, oper_dt, oper_org_id, oper_account_id, is_writeoff, is_hz, remark_back, org_id, fundtype, unitno, unit_name)
             values
             (v_gkykjhid, v_row_yszxtz.voucher_type,   to_char(sysdate,'yyyyMM') ,'由预算执行调整生成，其id为 :'||v_row_yszxtz.id , sysdate, '9', '9', '', sysdate,v_row_yszxtz.oper_orgid,v_row_yszxtz.oper_account, '1', '0', '',
               v_row_yszxtzmx.df_org_id ,decode(v_row_yszxtzmx.df_fundtype,'1','1','2','2','3') , v_row_yszxtzmx.df_unitno,v_row_yszxtzmx.df_unit_name);

             ---向用款计划明细表插入数据
            insert into gk_ykjh_mx
              (id, gk_ykjh_id, item_id, src_id, bdgt_id_type, budgetid, prj_id, adjlevel, org_id, gk_hzqsd_id, issued, counting_unit,
               zbz_bal_id, ykjh_type, plany_ym, unitno, unit_name, is_writeoff, apply_amt, fin_amt, is_print, budgetno, itemno, prj_code)
            values
              (nextid('GK_YKJH_MX_SEQ'), v_gkykjhid,  v_row_yszxtzmx.df_item_id, v_row_yszxtzmx.df_src_id, v_row_yszxtzmx.df_budget_type,
               v_row_yszxtzmx.df_budgetid, v_row_yszxtzmx.df_prjid , v_row_yszxtzmx.df_adjlevel,  v_row_yszxtzmx.df_org_id, '', '0', '1',
               v_row_yszxtzmx.df_zb_id , v_row_yszxtz.voucher_type, to_char(sysdate,'yyyyMM'), v_row_yszxtzmx.df_unitno, v_row_yszxtzmx.df_unit_name,
               '1', -v_row_yszxtzmx.adjust_amt,  -v_row_yszxtzmx.adjust_amt, '0', v_row_yszxtzmx.df_budgetno,v_row_yszxtzmx.df_itemno  ,v_row_yszxtzmx.df_prjno );


            --则 更新 zb_bal 的相对应的已报用款计划额度 字段的值（即：减小该值）
            update zb_bal z set z.accredit_plan=nvl(z.accredit_plan,0)-nvl(v_row_yszxtzmx.adjust_amt ,0) where z.id=v_row_yszxtzmx.df_zb_id;

                  --如果是 一般支付
                   elsif v_row_yszxtz.voucher_type='3' then

                       --更新 该指标的 一般支付的实际支出数 。即：减小该实际支出数
                        update zb_bal z set z.tradition_num=nvl(z.tradition_num,0)-nvl(v_row_yszxtzmx.adjust_amt ,0) where z.id=v_row_yszxtzmx.df_zb_id;

                 end if;



          else
                raise  v_raise;
          end if ;

---------贷方指标 为null
       elsif  v_row_yszxtzmx.df_id is   null  then   /*进行《预算调整 》的业务逻辑处理*/

        if v_row_yszxtzmx.jf_id is not null then

              if v_row_yszxtzmx.df_entire_manage is null then
              ----查询指标表是否存在 与（无指标id的）贷方数据 相同的指标数据存在
              open cursor_zbbal   for     select * into v_row_zbbal from zb_bal z where      z.unitno =v_row_yszxtzmx.df_unitno
                   and  z.src_id =v_row_yszxtzmx.df_src_id
                   and  z.bdgyear =v_row_yszxtz.bdgyear
                   and  z.prj_id =v_row_yszxtzmx.df_prjid
                   and  z.zb_project_type =v_row_yszxtzmx.df_zb_project_type
                   and  z.budgetid =v_row_yszxtzmx.df_budgetid
                   and  z.bdgt_id_type =v_row_yszxtzmx.df_budget_type
                   and  z.is_unify =v_row_yszxtzmx.df_is_unify
                   and  z.entire_manage is null;
               else
                  open cursor_zbbal   for     select * into v_row_zbbal from zb_bal z where      z.unitno =v_row_yszxtzmx.df_unitno
                   and  z.src_id =v_row_yszxtzmx.df_src_id
                   and  z.bdgyear =v_row_yszxtz.bdgyear
                   and  z.prj_id =v_row_yszxtzmx.df_prjid
                   and  z.zb_project_type =v_row_yszxtzmx.df_zb_project_type
                   and  z.budgetid =v_row_yszxtzmx.df_budgetid
                   and  z.bdgt_id_type =v_row_yszxtzmx.df_budget_type
                   and  z.is_unify =v_row_yszxtzmx.df_is_unify
                   and  z.entire_manage=v_row_yszxtzmx.df_entire_manage ;
                end if;
          fetch cursor_zbbal into v_row_zbbal;
        ---判断：如果 指标表  不存在     贷方相同的指标数据
        if cursor_zbbal%notfound or cursor_zbbal%notfound is null then


          if v_row_yszxtz.voucher_type='0' then --直接支付

             --新增指标数据，其指标金额为：为对应支付方式调整金额
             insert into zb_bal (id,BDGYEAR,UNITID,unitno,SRC_ID,BDGT_ID_TYPE,BUDGETID,PRJ_ID,ITEM_ID,ZB_AMT,DIRECT_AMT,ACCREDIT_AMT,DIRECT_PLAN,ACCREDIT_PLAN,TRADITION_AMT,
            ORG_ID,ADJLEVEL,ZB_PROJECT_TYPE,EARLY_AMT,EARLY_CHANGE_AMT,ADDITIONAL_AMT,TRADITION_NUM,FUNDTYPE,ISSUE_NUM,ENTIRE_MANAGE,BZ)
            values (nextid('ZB_BAL_SEQ'),v_row_yszxtz.bdgyear,(select unitid from bs_bdg_unit where unitno=v_row_yszxtzmx.DF_UNITNO),v_row_yszxtzmx.DF_UNITNO,v_row_yszxtzmx.DF_SRC_ID,v_row_yszxtzmx.DF_BUDGET_TYPE,
            v_row_yszxtzmx.DF_BUDGETID,v_row_yszxtzmx.DF_PRJID,v_row_yszxtzmx.DF_ITEM_ID,v_row_yszxtzmx.adjust_amt,v_row_yszxtzmx.adjust_amt,0,0,0,0,
            v_row_yszxtzmx.DF_ORG_ID,v_row_yszxtzmx.DF_ADJLEVEL,v_row_yszxtzmx.DF_ZB_PROJECT_TYPE,0,0,0,0,v_row_yszxtzmx.DF_FUNDTYPE,0,v_row_yszxtzmx.DF_ENTIRE_MANAGE,'预算执行调整'||v_row_yszxtz.id||'生成');

             update zb_bal set zb_amt=zb_amt-v_row_yszxtzmx.adjust_amt ,
            DIRECT_AMT=DIRECT_AMT-v_row_yszxtzmx.adjust_amt where id=v_row_yszxtzmx.JF_ZB_ID;
          elsif v_row_yszxtz.voucher_type='1' then --授权支付

             --新增指标数据，其指标金额为：为对应支付方式调整金额
             insert into zb_bal (id,BDGYEAR,UNITID,unitno,SRC_ID,BDGT_ID_TYPE,BUDGETID,PRJ_ID,ITEM_ID,ZB_AMT,DIRECT_AMT,ACCREDIT_AMT,DIRECT_PLAN,ACCREDIT_PLAN,TRADITION_AMT,
            ORG_ID,ADJLEVEL,ZB_PROJECT_TYPE,EARLY_AMT,EARLY_CHANGE_AMT,ADDITIONAL_AMT,TRADITION_NUM,FUNDTYPE,ISSUE_NUM,ENTIRE_MANAGE,BZ)
            values (nextid('ZB_BAL_SEQ'),v_row_yszxtz.bdgyear,(select unitid from bs_bdg_unit where unitno=v_row_yszxtzmx.DF_UNITNO),v_row_yszxtzmx.DF_UNITNO,v_row_yszxtzmx.DF_SRC_ID,v_row_yszxtzmx.DF_BUDGET_TYPE,
            v_row_yszxtzmx.DF_BUDGETID,v_row_yszxtzmx.DF_PRJID,v_row_yszxtzmx.DF_ITEM_ID,v_row_yszxtzmx.adjust_amt,0,v_row_yszxtzmx.adjust_amt,0,0,0,
            v_row_yszxtzmx.DF_ORG_ID,v_row_yszxtzmx.DF_ADJLEVEL,v_row_yszxtzmx.DF_ZB_PROJECT_TYPE,0,0,0,0,v_row_yszxtzmx.DF_FUNDTYPE,0,v_row_yszxtzmx.DF_ENTIRE_MANAGE,'预算执行调整'||v_row_yszxtz.id||'生成');

         update zb_bal set zb_amt=zb_amt-v_row_yszxtzmx.adjust_amt ,
            ACCREDIT_AMT=ACCREDIT_AMT-v_row_yszxtzmx.adjust_amt where id=v_row_yszxtzmx.JF_ZB_ID;

          elsif v_row_yszxtz.voucher_type='3' then --一般支付

             --新增指标数据，其指标金额为：为对应支付方式调整金额
             insert into zb_bal (id,BDGYEAR,UNITID,unitno,SRC_ID,BDGT_ID_TYPE,BUDGETID,PRJ_ID,ITEM_ID,ZB_AMT,DIRECT_AMT,ACCREDIT_AMT,DIRECT_PLAN,ACCREDIT_PLAN,TRADITION_AMT,
            ORG_ID,ADJLEVEL,ZB_PROJECT_TYPE,EARLY_AMT,EARLY_CHANGE_AMT,ADDITIONAL_AMT,TRADITION_NUM,FUNDTYPE,ISSUE_NUM,ENTIRE_MANAGE,BZ)
            values (nextid('ZB_BAL_SEQ'),v_row_yszxtz.bdgyear,(select unitid from bs_bdg_unit where unitno=v_row_yszxtzmx.DF_UNITNO),v_row_yszxtzmx.DF_UNITNO,v_row_yszxtzmx.DF_SRC_ID,v_row_yszxtzmx.DF_BUDGET_TYPE,
            v_row_yszxtzmx.DF_BUDGETID,v_row_yszxtzmx.DF_PRJID,v_row_yszxtzmx.DF_ITEM_ID,v_row_yszxtzmx.adjust_amt,0,0,0,0,0,
            v_row_yszxtzmx.DF_ORG_ID,v_row_yszxtzmx.DF_ADJLEVEL,v_row_yszxtzmx.DF_ZB_PROJECT_TYPE,0,0,0,v_row_yszxtzmx.adjust_amt,v_row_yszxtzmx.DF_FUNDTYPE,0,v_row_yszxtzmx.DF_ENTIRE_MANAGE,'预算执行调整'||v_row_yszxtz.id||'生成');


            update zb_bal set zb_amt=zb_amt-v_row_yszxtzmx.adjust_amt ,
            TRADITION_AMT=TRADITION_AMT-v_row_yszxtzmx.adjust_amt where id=v_row_yszxtzmx.JF_ZB_ID;
          end if;
        else --指标表存在贷方相同信息的指标

          if v_row_yszxtz.voucher_type='0' then
            update zb_bal set zb_amt=zb_amt+v_row_yszxtzmx.adjust_amt ,
            DIRECT_AMT=DIRECT_AMT+v_row_yszxtzmx.adjust_amt where id=v_row_zbbal.id;

              update zb_bal set zb_amt=zb_amt-v_row_yszxtzmx.adjust_amt ,
            DIRECT_AMT=DIRECT_AMT-v_row_yszxtzmx.adjust_amt where id=v_row_yszxtzmx.JF_ZB_ID;
          elsif v_row_yszxtz.voucher_type='1' then
            update zb_bal set zb_amt=zb_amt+v_row_yszxtzmx.adjust_amt ,
            ACCREDIT_AMT=ACCREDIT_AMT+v_row_yszxtzmx.adjust_amt where id=v_row_zbbal.id;

             update zb_bal set zb_amt=zb_amt-v_row_yszxtzmx.adjust_amt ,
            ACCREDIT_AMT=ACCREDIT_AMT-v_row_yszxtzmx.adjust_amt where id=v_row_yszxtzmx.JF_ZB_ID;
          elsif v_row_yszxtz.voucher_type='3' then
            update zb_bal set zb_amt=zb_amt+v_row_yszxtzmx.adjust_amt ,
            TRADITION_AMT=TRADITION_AMT+v_row_yszxtzmx.adjust_amt where id=v_row_zbbal.id;

              update zb_bal set zb_amt=zb_amt-v_row_yszxtzmx.adjust_amt ,
            TRADITION_AMT=TRADITION_AMT-v_row_yszxtzmx.adjust_amt where id=v_row_yszxtzmx.JF_ZB_ID;
          end if;

        end if;

           else
                raise  v_raise;
           end if ;
      else
               dbms_output.put_line('===查询预算执行调整明细---》支出执行明细表 无明细 df_id 数据===== ' );
               raise  v_raise;
       end if;

    fetch cursor_yszxtzmx      into  v_row_yszxtzmx;/*先让指针指向结果集中的第一行，并将值保存到 v_row_yszxtz 中*/
    /*退出循环的条件*/
    exit when cursor_yszxtzmx%notfound or cursor_yszxtzmx%notfound is null;

    end loop;
    close cursor_yszxtzmx  ;/*关闭游标*/
--========================================================================================================================
--=======================   结束：查询预算执行调整明细---》支出执行明细表  数据转换逻辑处理             ========================
---========================================================================================================================
  if v_row_yszxtz.voucher_type!='1' then
  update ys_zxtz set CONCLUDE_DT = sysdate ,GK_ADJUST_ID = v_adjust_liststr where id =v_row_yszxtz.id ;
  end if;
  fetch cursor_yszxtz    into  v_row_yszxtz;/*先让指针指向结果集中的第一行，并将值保存到 v_row_yszxtz 中*/
   /*退出循环的条件*/
   exit when cursor_yszxtz%notfound or cursor_yszxtz%notfound is null;
   end loop;
close cursor_yszxtz;/*关闭游标*/
dbms_output.put_line('============================================预算执行调整的 业务逻辑处理结束:关闭游标============================================' );

----捕获错误及异常，事务回滚
exception

   when v_raise then
        rollback;
        flag := 'false';
        out_return := 'flag=' || flag || ',errorcode= “ora-00100” ,errormsg=  “未找到数据”';
   when v_raise_over then
        rollback;
        errormsg:= '“预算执行调整其序号为：'||v_row_yszxtz.id ||'的明细数据中编号为：'  ||v_row_yszxtzmx.jf_id ||'的这行数据中的借方指标：'||v_row_yszxtzmx.JF_ZB_ID||'的指标可以支付的剩余指标金额不够本次调整金额的支付”';
        flag := 'false';
       out_return := 'flag=' || flag || ',errorcode= “ora-00100” ,errormsg= '||errormsg;
   when errorexception then
        rollback;
        errorcode := sqlcode;
        errormsg := substr(sqlerrm, 1, 200);
        flag := 'false';
        out_return := 'flag=' || flag || ',errorcode=' || errorcode || ',errormsg=' || errormsg;
   when others then
        rollback;
        errorcode := sqlcode;
        errormsg := substr(sqlerrm, 1, 200);
        flag := 'false';
        out_return := 'flag=' || flag || ',errorcode=' || errorcode || ',errormsg=' || errormsg;

----执行数据入库，返回正确结果
commit;
flag := 'true';
out_return := 'flag=' || flag|| ',errorcode= “ ” ,errormsg=  “ ”' ;

end proc_yszxtz_aduit;

 

 

 

示例9: 存储过程拼接 sql in 里面的查询条件值

----创建 保存界面选择的zfpz表的 id
drop table  GK_ZWVCH_ZFZXZ_ZFPZ_IDS ;
create table   GK_ZWVCH_ZFZXZ_ZFPZ_IDS(
 id number(20)  not null primary key ,
 pcno number(20) ,
 zfpz_ids varchar(3000)
);

comment on table GK_ZWVCH_ZFZXZ_ZFPZ_IDS is '保存支付中心帐界面选择的所有支付凭证id ';
comment on column GK_ZWVCH_ZFZXZ_ZFPZ_IDS.ID is '主键';
comment on column GK_ZWVCH_ZFZXZ_ZFPZ_IDS.pcno is '批次号';
comment on column GK_ZWVCH_ZFZXZ_ZFPZ_IDS.zfpz_ids is 'gk_zfpz表的主键id:数据格式为：123，124，125';

;


--创建索引
create index idx_pcno on GK_ZWVCH_ZFZXZ_ZFPZ_IDS (pcno);

insert into GK_ZWVCH_ZFZXZ_ZFPZ_IDS (ID, PCNO, ZFPZ_IDS) values (0, 0, '0,0');
commit;

---创建序列号


---创建游标结果集合
CREATE OR REPLACE PACKAGE PKG_QUERY IS

  -- Author  : ADMINISTRATOR
  -- Created : 2016/12/8 星期四 10:28:37
  -- Purpose : 用做查询游标

  -- Public type declarations
  TYPE CUR_QUERY IS REF CURSOR;

END PKG_QUERY;

 

create or replace procedure PRO_K3_ZFZXZ(
        ZFPZ_IDS_PCH in number ,
       v_cur  out pkg_query.cur_query  )
is
  type ref_cursor_type is ref cursor;
  cursor_ids  ref_cursor_type;      /*声明：查询 GK_ZWVCH_ZFZXZ_ZFPZ_IDS 表 数据 的游标对象 */
  v_row_zfzxz_zfpz_ids gk_zwvch_zfzxz_zfpz_ids%rowtype    ; /*声明：GK_ZWVCH_ZFZXZ_ZFPZ_IDS 单条数据对象 */
  v_sql VARCHAR2(4000);
  v_ids_sql varchar2(4000);
  v_ids  varchar2(4000) :='';
  v_index number :=0 ;/*循环数据的循环次数*/
begin
 v_ids_sql:= 'select   ids.id as id  ,ids.pcno as pcno ,ids.zfpz_ids as zfpz_ids  
            from gk_zwvch_zfzxz_zfpz_ids  ids where ids.pcno='||ZFPZ_IDS_PCH ;
open cursor_ids for v_ids_sql ;
  /**  判断 是否有id 值查询出来  */
  fetch cursor_ids   into  v_row_zfzxz_zfpz_ids;
  if cursor_ids%found    then
       v_ids :=v_ids|| ' AND ( ' ;
      while cursor_ids%found loop
        /*循环查询结果拼接sql 判断条件*/
         if v_index=0 then
            v_ids := v_ids||'   z.id in ('||v_row_zfzxz_zfpz_ids.zfpz_ids||')';
             v_index := 1;
        else
            v_ids :=  v_ids|| ' OR z.id in ('||v_row_zfzxz_zfpz_ids.zfpz_ids ||')';
         end if;
        fetch cursor_ids   into  v_row_zfzxz_zfpz_ids;/*先让指针指向结果集中的第一行，并将值保存到emp_row 中*/
        exit when cursor_ids%notfound or cursor_ids%notfound is null;

      end loop;
      v_ids :=v_ids|| ' )' ;
      v_index := 0;
  end if;


  v_sql :=   ' select z.id as id ,z.fk_name as fk_name from gk_zfpz z where  1=1 ';
 if  length(v_ids) > 1 then
   v_sql :=v_sql ||v_ids;
 end if;
  dbms_output.put_line('====进行PRO_K3_ZFZXZ 调试  GK_ZWVCH_ZFZXZ_ZFPZ_IDS 批次号   v_sql='|| v_sql||'==== ' );
OPEN v_cur FOR v_sql;
close  cursor_ids;/*关闭游标*/
end PRO_K3_ZFZXZ;

 

 

select   * from gk_zwvch_zfzxz_zfpz_ids  ids   for update  ;

select  max(z.pcno)+1   from  GK_ZWVCH_ZFZXZ_ZFPZ_IDS z ;

SELECT  NEXTID('GK_ZWVCH_ZFZXZ_ZFPZ_IDS_SEQ') FROM DUAL;









----创建 保存界面选择的zfpz表的 id
drop table  GK_ZWVCH_ZFZXZ_ZFPZ_IDS ;
create table   GK_ZWVCH_ZFZXZ_ZFPZ_IDS(
 id number(20)  not null primary key ,
 pcno number(20) ,
 zfpz_ids varchar(3000)
);

comment on table GK_ZWVCH_ZFZXZ_ZFPZ_IDS is '保存支付中心帐界面选择的所有支付凭证id ';
comment on column GK_ZWVCH_ZFZXZ_ZFPZ_IDS.ID is '主键';
comment on column GK_ZWVCH_ZFZXZ_ZFPZ_IDS.pcno is '批次号';
comment on column GK_ZWVCH_ZFZXZ_ZFPZ_IDS.zfpz_ids is 'gk_zfpz表的主键id:数据格式为：123，124，125';

;


--创建索引
create index idx_pcno on GK_ZWVCH_ZFZXZ_ZFPZ_IDS (pcno);

insert into GK_ZWVCH_ZFZXZ_ZFPZ_IDS (ID, PCNO, ZFPZ_IDS) values (0, 0, '0,0');
commit;

---创建序列号 
insert into PWP_NO (NOID, PREFIX, INITIALVALUE, BUFFERSIZE, POSTFIX, NOINCREMENT, NONAME, NOLENGTH, NOTYPE)
values ('GK_ZWVCH_ZFZXZ_ZFPZ_IDS_SEQ', null, 1, 10, null, 1, 'GK_ZWVCH_ZFZXZ_ZFPZ_IDS_SEQ', 20, 1);
insert into PWP_NODTL (NOID, PREFIX, NODAY, NEXTID, POSTFIX, NOINCREMENT, NOYEAR, NOMONTH)
values ('GK_ZWVCH_ZFZXZ_ZFPZ_IDS_SEQ', null, 0, 2, null, 1, 2018, 4);

commit;


create or replace view view_k3_zfzxz_zfpz_group as
select z.unitno, z.prjno, z.src_id, z.budget_type, z.budgetno, z.zf_itemno
----创建视图：进行分组。主要用于存储过程pro_k3_zfzxz 的 rowtype里的 
 from view_k3_zfzxz_zfpz z  group by z.unitno,  z.prjno,z.src_id, z.budget_type,z.budgetno,z.bdgt_accid, z.prjno, z.zf_itemno
 order by z.unitno, z.prjno,  z.src_id, z.budget_type, z.budgetno,  z.bdgt_accid,  z.prjno, z.zf_itemno ;
comment on table view_k3_zfzxz_zfpz_group is '该视图主要是用于 存储过程  pro_k3_zfzxz 的 rowtype里的  ；作为一个rowtype 类型使用而已 ';



create or replace view view_k3_zfzxz_zfpz_count as     select count(a) as count_no  from (  select  '1' as a from dual );
comment on table view_k3_zfzxz_zfpz_count is '该视图主要是用于 存储过程  pro_k3_zfzxz 的 rowtype里的  ；作为一个rowtype 类型使用而已 ';


create or replace view view_k3_zfzxz_zfpz_sum as
select  sum_amt,sum_zf_item_amt,sum_zfpz_amt,list_gk_zfpz_id,list_id,list_origin_id,list_voucher_no,list_purpose,list_remark,list_bm_itemnos from  (
----该视图主要是用于 存储过程  pro_k3_zfzxz 的 rowtype里的  ；作为一个rowtype 类型使用而已
    select  sum(z.amt) as sum_amt ,sum(z.zf_item_amt) as sum_zf_item_amt ,
    sum(z.zfpz_amt) as sum_zfpz_amt ,
    listagg(z.gk_zfpz_id, ',') within group(order by z.unitno,z.prjno,z.src_id,z.budget_type,z.budgetno,z.zf_itemno ) as  list_gk_zfpz_id   ,
    listagg(z.id, ',') within group(order by z.unitno,z.prjno,z.src_id,z.budget_type,z.budgetno,z.zf_itemno ) as  list_id   ,
    listagg(z.origin_id, ',') within group(order by z.unitno,z.prjno,z.src_id,z.budget_type,z.budgetno,z.zf_itemno ) as  list_origin_id   ,
    listagg(z.voucher_no, ',') within group(order by z.unitno,z.prjno,z.src_id,z.budget_type,z.budgetno,z.zf_itemno ) as  list_voucher_no   ,
    listagg(z.purpose, ',') within group(order by z.unitno,z.prjno,z.src_id,z.budget_type,z.budgetno,z.zf_itemno ) as  list_purpose  ,
    listagg(z.remark, ',') within group(order by z.unitno,z.prjno,z.src_id,z.budget_type,z.budgetno,z.zf_itemno ) as  list_remark  ,
    listagg(z.bm_itemnos, ',') within group(order by z.unitno,z.prjno,z.src_id,z.budget_type,z.budgetno,z.zf_itemno ) as  list_bm_itemnos
    from view_k3_zfzxz_zfpz z where 1=1
    and (z.id in (1475844, 1476130, 1476144) or  z.id in (1485844, 1478130, 1476644))
    and  z.unitno=  0021
    and  z.prjno=	0000030201
    and  z.src_id=	000
    and  z.budget_type=	2
    and  z.budgetno=	2040201
    and  z.zf_itemno=	50299
 ) ;
comment on table view_k3_zfzxz_zfpz_sum is '该视图主要是用于 存储过程  pro_k3_zfzxz 的 rowtype里的  ；作为一个rowtype 类型使用而已 ';



drop table gk_zwentry_k3_zfzxz_zfpz_temp ;


---创建 事务级别的临时表 。用来存放进行同单位同资金来源同项目同功能分类科目同经济分类的合并数据
create   global temporary table  gk_zwentry_k3_zfzxz_zfpz_temp  on commit delete rows
 as select * from view_k3_zfzxz_zfpz v where 1=2 ;

alter table gk_zwentry_k3_zfzxz_zfpz_temp modify gk_zfpz_id varchar2(4000);
alter table gk_zwentry_k3_zfzxz_zfpz_temp modify id varchar2(4000);
alter table gk_zwentry_k3_zfzxz_zfpz_temp modify origin_id varchar2(4000);
alter table gk_zwentry_k3_zfzxz_zfpz_temp modify voucher_no  varchar2(4000);

alter table gk_zwentry_k3_zfzxz_zfpz_temp modify purpose varchar2(4000);
alter table gk_zwentry_k3_zfzxz_zfpz_temp modify remark varchar2(4000);
alter table gk_zwentry_k3_zfzxz_zfpz_temp modify bm_itemnos varchar2(4000);

comment on table gk_zwentry_k3_zfzxz_zfpz_temp is '事务级别的临时表 。用来存放对视图view_k3_zfzxz_zfpz进行同单位同资金来源同项目同功能分类科目同经济分类的合并数据 ';
comment on column gk_zwentry_k3_zfzxz_zfpz_temp.gk_zfpz_id         is 'gk_zfpz 表id   ' ;
comment on column gk_zwentry_k3_zfzxz_zfpz_temp.id                 is 'gk_zfpz 表id    ' ;
comment on column gk_zwentry_k3_zfzxz_zfpz_temp.origin_id          is '凭证来源id    ' ;
comment on column gk_zwentry_k3_zfzxz_zfpz_temp.voucher_no         is '支付凭证号    ' ;
comment on column gk_zwentry_k3_zfzxz_zfpz_temp.make_date          is '支付凭证日期    ' ;
comment on column gk_zwentry_k3_zfzxz_zfpz_temp.fk_account         is ' 付款人账号   ' ;
comment on column gk_zwentry_k3_zfzxz_zfpz_temp.fk_bank            is ' 付款人开户银行   ' ;
comment on column gk_zwentry_k3_zfzxz_zfpz_temp.src_id             is '资金来源代码   ' ;
comment on column gk_zwentry_k3_zfzxz_zfpz_temp.sk_name            is '收款人全称    ' ;
comment on column gk_zwentry_k3_zfzxz_zfpz_temp.sk_account         is '收款人账号    ' ;
comment on column gk_zwentry_k3_zfzxz_zfpz_temp.sk_bank            is ' 收款人开户银行   ' ;
comment on column gk_zwentry_k3_zfzxz_zfpz_temp.unitno             is '单位编码    ' ;
comment on column gk_zwentry_k3_zfzxz_zfpz_temp.unit_name          is '单位名称    ' ;
comment on column gk_zwentry_k3_zfzxz_zfpz_temp.budget_type        is '科目类型代码    ' ;
comment on column gk_zwentry_k3_zfzxz_zfpz_temp.bdgt_accid         is '' ;
comment on column gk_zwentry_k3_zfzxz_zfpz_temp.budgetno           is '功能分类科目编码    ' ;
comment on column gk_zwentry_k3_zfzxz_zfpz_temp.budget_name        is '功能分类科目名称    ' ;
comment on column gk_zwentry_k3_zfzxz_zfpz_temp.prjno              is '项目编码    ' ;
comment on column gk_zwentry_k3_zfzxz_zfpz_temp.prj_name           is '项目名称    ' ;
comment on column gk_zwentry_k3_zfzxz_zfpz_temp.zfpz_amt           is '金额(支付凭证表)    ' ;
comment on column gk_zwentry_k3_zfzxz_zfpz_temp.amt                is ' 金额(经济分类表)   ' ;
comment on column gk_zwentry_k3_zfzxz_zfpz_temp.purpose            is '用途    ' ;
comment on column gk_zwentry_k3_zfzxz_zfpz_temp.remark             is ' 备注   ' ;
comment on column gk_zwentry_k3_zfzxz_zfpz_temp.checker            is '审核人   ' ;
comment on column gk_zwentry_k3_zfzxz_zfpz_temp.checker_date       is ' 审核日期   ' ;
comment on column gk_zwentry_k3_zfzxz_zfpz_temp.affirmer           is '对碰人     ' ;
comment on column gk_zwentry_k3_zfzxz_zfpz_temp.affirm_date        is '对碰日期    ' ;
comment on column gk_zwentry_k3_zfzxz_zfpz_temp.voucher_type       is '支付凭证类型(参考gk_zfpz表支付凭证类型 )    ' ;
comment on column gk_zwentry_k3_zfzxz_zfpz_temp.check_status       is '对碰状态（参考gk_zfpz表对碰状态）  ' ;
comment on column gk_zwentry_k3_zfzxz_zfpz_temp.wf_status          is ' 审结状态(0草稿,1未审结,9已审结)   ' ;
comment on column gk_zwentry_k3_zfzxz_zfpz_temp.gk_hzqsd_id        is ' 汇总清算单号   ' ;
comment on column gk_zwentry_k3_zfzxz_zfpz_temp.fund               is '' ;
comment on column gk_zwentry_k3_zfzxz_zfpz_temp.org_type           is '' ;
comment on column gk_zwentry_k3_zfzxz_zfpz_temp.back_oper_id       is '' ;
comment on column gk_zwentry_k3_zfzxz_zfpz_temp.back_oper_idea     is '' ;
comment on column gk_zwentry_k3_zfzxz_zfpz_temp.back_oper_date     is '' ;
comment on column gk_zwentry_k3_zfzxz_zfpz_temp.back_checker_id    is '' ;
comment on column gk_zwentry_k3_zfzxz_zfpz_temp.back_checker_idea  is '' ;
comment on column gk_zwentry_k3_zfzxz_zfpz_temp.back_checker_date  is '' ;
comment on column gk_zwentry_k3_zfzxz_zfpz_temp.zf_item_amt        is '政府经济分类支付金额   ' ;
comment on column gk_zwentry_k3_zfzxz_zfpz_temp.zf_itemno          is '政府经济分类编码   ' ;
comment on column gk_zwentry_k3_zfzxz_zfpz_temp.zf_itemname        is '政府经济分类名称   ' ;
comment on column gk_zwentry_k3_zfzxz_zfpz_temp.bm_itemnos         is '部门经济分类编码   ' ;








---创建游标结果集合
CREATE OR REPLACE PACKAGE PKG_QUERY IS

  -- Author  : ADMINISTRATOR
  -- Created : 2016/12/8 星期四 10:28:37
  -- Purpose : 用做查询游标

  -- Public type declarations
  TYPE CUR_QUERY IS REF CURSOR;

END PKG_QUERY;




---创建 获取数据的存储过程
  create or replace procedure PRO_K3_ZFZXZ(
        ZFPZ_IDS_PCH in number ,
       v_cur  out pkg_query.cur_query  )
is
  type ref_cursor_type is ref cursor;
  cursor_ids  ref_cursor_type;   /*游标*/    /*声明：查询 GK_ZWVCH_ZFZXZ_ZFPZ_IDS 表 数据 的游标对象 */
  v_row_zfzxz_zfpz_ids gk_zwvch_zfzxz_zfpz_ids%rowtype    ; /*声明：GK_ZWVCH_ZFZXZ_ZFPZ_IDS 单条数据对象 */
  v_sql VARCHAR2(4000);
  v_ids_sql varchar2(4000);
  v_ids  varchar2(4000) :='';
  v_index number :=0 ;/*循环数据的循环次数*/

  /* 获取分组数据信息 */
  cursor_zfzxz_zfpz  ref_cursor_type;  /*游标*/
  v_row_zfzxz_zfpz view_k3_zfzxz_zfpz_group%rowtype  ;
  v_zfzxz_zfpz_sql  varchar2(4000) :='';

  /** 分组求和  **/
  cursor_gb_zfzxz ref_cursor_type; /*游标*/
  v_gb_zfzxz_sql varchar2(4000) :='';
  v_row_gb_zfzxz view_k3_zfzxz_zfpz_sum%rowtype  ;

  v_sum_amt number(16,2) :=0;
  v_sum_zf_item_amt number(16,2) :=0;
  v_sum_zfpz_amt number(16,2) :=0;
  v_list_gk_zfpz_id  varchar2(4000) :='';
  v_list_id  varchar2(4000) :='';
  v_list_origin_id  varchar2(4000) :='';
  v_list_voucher_no  varchar2(4000) :='';
  v_list_purpose  varchar2(4000) :='';
  v_list_remark  varchar2(4000) :='';
  v_list_bm_itemnos varchar2(4000) :='';

  /*查询 view_k3_zfzxz_zfpz 的具体信息 */
  cursor_q_vk3_zfzxzzfpz ref_cursor_type; /*游标*/
  v_q_vk3_zfzxzzfpz_sql  varchar2(4000) :='' ;
  v_row_q_vk3_zfzxzzfpz view_k3_zfzxz_zfpz%rowtype  ;


  /*查询 view_k3_zfzxz_zfpz 的具体有多少条数据信息*/
  cursor_q_vk3_zfzxzzfpz_count ref_cursor_type; /*游标*/
  v_row_q_vk3_zfzxzzfpz_count view_k3_zfzxz_zfpz_count%rowtype  ;
  v_q_vk3_zfzxzzfpz_count_sql  varchar2(4000) :='' ;
  v_rowcount number :=0;/*获取游标取数的条数*/



begin
 v_ids_sql:= 'select   ids.id as id  ,ids.pcno as pcno ,ids.zfpz_ids as zfpz_ids  
            from gk_zwvch_zfzxz_zfpz_ids  ids where ids.pcno='||ZFPZ_IDS_PCH ;

open cursor_ids for v_ids_sql ;
  /**  判断 是否有id 值查询出来  */
  fetch cursor_ids   into  v_row_zfzxz_zfpz_ids;
  if cursor_ids%found    then
       v_ids :=v_ids|| ' AND ( ' ;
      while cursor_ids%found loop
        /*循环查询结果拼接sql 判断条件*/
         if v_index=0 then
            v_ids := v_ids||'   z.id in ('||v_row_zfzxz_zfpz_ids.zfpz_ids||')';
             v_index := 1;
        else
            v_ids :=  v_ids|| ' OR z.id in ('||v_row_zfzxz_zfpz_ids.zfpz_ids ||')';
         end if;
        fetch cursor_ids   into  v_row_zfzxz_zfpz_ids;/*先让指针指向结果集中的第一行，并将值保存到emp_row 中*/
        exit when cursor_ids%notfound or cursor_ids%notfound is null;

      end loop;
      v_ids :=v_ids|| ' )' ;
      v_index := 0;
  end if;


/*获取视图 view_k3_zfzxz_zfpz 的 同单位 同资金来源 同项目 同功能分类科目类型 同功能分类科目编码 同政府经济分类编码 的数据 */
v_zfzxz_zfpz_sql :=' select  z.unitno,z.prjno,z.src_id,z.budget_type,z.budgetno,z.zf_itemno     from  view_k3_zfzxz_zfpz z where 1=1   ';

if  length(v_ids) > 1 then
   v_zfzxz_zfpz_sql :=v_zfzxz_zfpz_sql ||v_ids;


   v_zfzxz_zfpz_sql :=v_zfzxz_zfpz_sql||'  group  by z.unitno,z.prjno,z.src_id,z.budget_type,z.budgetno,z.bdgt_accid,z.prjno,z.zf_itemno    order by z.unitno,z.prjno,z.src_id,z.budget_type,z.budgetno,z.bdgt_accid,z.prjno,z.zf_itemno  ';

   open cursor_zfzxz_zfpz for v_zfzxz_zfpz_sql ;
   fetch cursor_zfzxz_zfpz   into  v_row_zfzxz_zfpz;
   while cursor_zfzxz_zfpz%found loop

            /*赋值*/
            v_sum_amt  :=0;
            v_sum_zf_item_amt  :=0;
            v_sum_zfpz_amt  :=0;
            v_list_gk_zfpz_id  :='';
            v_list_id    :='';
            v_list_origin_id  :='';
            v_list_voucher_no  :='';
            v_list_purpose  :='';
            v_list_remark  :='';
            v_list_bm_itemnos :='';

            /*取出合并的金额、凭证id列表、 */
             v_gb_zfzxz_sql :='  select  sum(z.amt) as sum_amt ,sum(z.zf_item_amt) as sum_zf_item_amt , sum(z.zfpz_amt) as sum_zfpz_amt ,
                                  listagg(z.gk_zfpz_id,'','') within group(order by z.unitno,z.prjno,z.src_id,z.budget_type,z.budgetno,z.zf_itemno ) as  list_gk_zfpz_id   ,
                                  listagg(z.id, '','') within group(order by z.unitno,z.prjno,z.src_id,z.budget_type,z.budgetno,z.zf_itemno ) as  list_id   ,
                                  listagg(z.origin_id, '','') within group(order by z.unitno,z.prjno,z.src_id,z.budget_type,z.budgetno,z.zf_itemno ) as  list_origin_id   ,
                                  listagg(z.voucher_no, '','') within group(order by z.unitno,z.prjno,z.src_id,z.budget_type,z.budgetno,z.zf_itemno ) as  list_voucher_no   ,
                                  listagg(z.purpose, '','') within group(order by z.unitno,z.prjno,z.src_id,z.budget_type,z.budgetno,z.zf_itemno ) as  list_purpose  ,
                                  listagg(z.remark, '','') within group(order by z.unitno,z.prjno,z.src_id,z.budget_type,z.budgetno,z.zf_itemno ) as  list_remark  ,
                                  listagg(z.bm_itemnos, '','') within group(order by z.unitno,z.prjno,z.src_id,z.budget_type,z.budgetno,z.zf_itemno ) as  list_bm_itemnos
                                  from view_k3_zfzxz_zfpz z where 1=1  ' ;


             v_gb_zfzxz_sql :=v_gb_zfzxz_sql ||v_ids;

             if v_row_zfzxz_zfpz.unitno is not null then
                 v_gb_zfzxz_sql :=v_gb_zfzxz_sql ||   '  and  z.unitno='||v_row_zfzxz_zfpz.unitno  ;
             end if  ;
             if v_row_zfzxz_zfpz.prjno is not null then
                 v_gb_zfzxz_sql :=v_gb_zfzxz_sql ||   '  and  z.prjno='||v_row_zfzxz_zfpz.prjno  ;
             end if  ;
             if v_row_zfzxz_zfpz.src_id is not null then
                 v_gb_zfzxz_sql :=v_gb_zfzxz_sql ||   '  and  z.src_id='||v_row_zfzxz_zfpz.src_id  ;
             end if;
             if v_row_zfzxz_zfpz.budget_type is not null then
                 v_gb_zfzxz_sql :=v_gb_zfzxz_sql ||   '  and  z.budget_type='||v_row_zfzxz_zfpz.budget_type  ;
             end if;
             if v_row_zfzxz_zfpz.budgetno is not null then
                 v_gb_zfzxz_sql :=v_gb_zfzxz_sql ||   '  and  z.budgetno='||v_row_zfzxz_zfpz.budgetno  ;
             end if;
             if v_row_zfzxz_zfpz.zf_itemno is not null then
                 v_gb_zfzxz_sql :=v_gb_zfzxz_sql ||   '  and  z.zf_itemno='||v_row_zfzxz_zfpz.zf_itemno  ;
             end if;
             /*取出合并的同单位 同资金来源 同项目编码 同功能分类科目类型 同功能分类科目编码 同政府经济分类编码 的金额求和 值 */
             open cursor_gb_zfzxz for v_gb_zfzxz_sql ;
             fetch cursor_gb_zfzxz   into  v_row_gb_zfzxz;
             while cursor_gb_zfzxz%found loop
                /*赋值*/
                if v_row_gb_zfzxz.sum_amt is not null then
                  v_sum_amt  :=v_row_gb_zfzxz.sum_amt;
                end if;
                if v_row_gb_zfzxz.sum_zf_item_amt is not null then
                  v_sum_zf_item_amt  :=v_row_gb_zfzxz.sum_zf_item_amt;
                end if;
                if v_row_gb_zfzxz.sum_zfpz_amt is not null then
                  v_sum_zfpz_amt  :=v_row_gb_zfzxz.sum_zfpz_amt;
                end if ;
                if v_row_gb_zfzxz.list_gk_zfpz_id is not null then
                  v_list_gk_zfpz_id  :=v_row_gb_zfzxz.list_gk_zfpz_id;
                end if;
                if v_row_gb_zfzxz.list_id is not null then
                  v_list_id    :=v_row_gb_zfzxz.list_id;
                end if ;
                if v_row_gb_zfzxz.list_origin_id is not null then
                  v_list_origin_id  :=v_row_gb_zfzxz.list_origin_id;
                end if ;
                if v_row_gb_zfzxz.list_purpose is not null then
                  v_list_voucher_no  :=v_row_gb_zfzxz.list_purpose;
                end if;
                if v_row_gb_zfzxz.list_purpose is not null then
                  v_list_purpose  :=v_row_gb_zfzxz.list_purpose;
                end if;
                if  v_row_gb_zfzxz.list_remark is not  null then
                  v_list_remark  :=v_row_gb_zfzxz.list_remark;
                end if;
                if   v_row_gb_zfzxz.list_bm_itemnos is not null then
                  v_list_bm_itemnos :=v_row_gb_zfzxz.list_bm_itemnos;
                end if;

             fetch cursor_gb_zfzxz   into  v_row_gb_zfzxz;/*先让指针指向结果集中的第一行，并将值保存到v_row_zfzxz_zfpz 中*/
             exit when cursor_gb_zfzxz%notfound or cursor_gb_zfzxz%notfound is null;
             end loop;

             v_q_vk3_zfzxzzfpz_sql :='select  gk_zfpz_id, id, origin_id, voucher_no, make_date, fk_account, fk_bank, src_id, sk_name, sk_account, sk_bank, unitno, unit_name, 
                                      budget_type, bdgt_accid, budgetno, budget_name, prjno, prj_name, zfpz_amt, amt, purpose, remark, checker, checker_date, affirmer,
                                      affirm_date, voucher_type, check_status, wf_status, gk_hzqsd_id, fund, org_type, back_oper_id, back_oper_idea, back_oper_date,
                                      back_checker_id, back_checker_idea, back_checker_date, zf_item_amt, zf_itemno, zf_itemname, bm_itemnos
                                      from  view_k3_zfzxz_zfpz z where 1=1   ';                                                        

             v_q_vk3_zfzxzzfpz_sql :=v_q_vk3_zfzxzzfpz_sql ||v_ids;
             if v_row_zfzxz_zfpz.unitno is not null then
                 v_q_vk3_zfzxzzfpz_sql :=v_q_vk3_zfzxzzfpz_sql ||   '  and  z.unitno='||v_row_zfzxz_zfpz.unitno  ;
             end if  ;
             if v_row_zfzxz_zfpz.prjno is not null then
                 v_q_vk3_zfzxzzfpz_sql :=v_q_vk3_zfzxzzfpz_sql ||   '  and  z.prjno='||v_row_zfzxz_zfpz.prjno  ;
             end if  ;
             if v_row_zfzxz_zfpz.src_id is not null then
                 v_q_vk3_zfzxzzfpz_sql :=v_q_vk3_zfzxzzfpz_sql ||   '  and  z.src_id='||v_row_zfzxz_zfpz.src_id  ;
             end if;
             if v_row_zfzxz_zfpz.budget_type is not null then
                 v_q_vk3_zfzxzzfpz_sql :=v_q_vk3_zfzxzzfpz_sql ||   '  and  z.budget_type='||v_row_zfzxz_zfpz.budget_type  ;
             end if;
             if v_row_zfzxz_zfpz.budgetno is not null then
                 v_q_vk3_zfzxzzfpz_sql :=v_q_vk3_zfzxzzfpz_sql ||   '  and  z.budgetno='||v_row_zfzxz_zfpz.budgetno  ;
             end if;
             if v_row_zfzxz_zfpz.zf_itemno is not null then
                 v_q_vk3_zfzxzzfpz_sql :=v_q_vk3_zfzxzzfpz_sql ||   '  and  z.zf_itemno='||v_row_zfzxz_zfpz.zf_itemno  ;
             end if;
             dbms_output.put_line('====进行PRO_K3_ZFZXZ 调试  GK_ZWVCH_ZFZXZ_ZFPZ_IDS 批次号   v_q_vk3_zfzxzzfpz_sql='|| v_q_vk3_zfzxzzfpz_sql||'==== ' );


             v_q_vk3_zfzxzzfpz_count_sql:=  'select count(*) count_no    from  view_k3_zfzxz_zfpz z where 1=1   '  || v_ids
               || '  and  z.unitno='||v_row_zfzxz_zfpz.unitno ||   '  and  z.prjno='||v_row_zfzxz_zfpz.prjno
               ||   '  and  z.src_id='||v_row_zfzxz_zfpz.src_id ||   '  and  z.budget_type='||v_row_zfzxz_zfpz.budget_type
               ||   '  and  z.budgetno='||v_row_zfzxz_zfpz.budgetno   ||   '  and  z.zf_itemno='||v_row_zfzxz_zfpz.zf_itemno  ;
             v_rowcount:=0;
             open cursor_q_vk3_zfzxzzfpz_count for v_q_vk3_zfzxzzfpz_count_sql ;
             fetch cursor_q_vk3_zfzxzzfpz_count   into  v_row_q_vk3_zfzxzzfpz_count;

             while cursor_q_vk3_zfzxzzfpz_count%found loop
               v_rowcount:=v_row_q_vk3_zfzxzzfpz_count.count_no;

             fetch cursor_q_vk3_zfzxzzfpz_count   into  v_row_q_vk3_zfzxzzfpz_count;/*先让指针指向结果集中的第一行，并将值保存到v_row_zfzxz_zfpz 中*/
             exit when cursor_q_vk3_zfzxzzfpz_count%notfound or cursor_q_vk3_zfzxzzfpz_count%notfound is null;
             end loop;





             /*取出 view_k3_zfzxz_zfpz 视图中的数据   */
             open cursor_q_vk3_zfzxzzfpz for v_q_vk3_zfzxzzfpz_sql ;
             fetch cursor_q_vk3_zfzxzzfpz   into  v_row_q_vk3_zfzxzzfpz;
              while cursor_q_vk3_zfzxzzfpz%found loop
                  /*判断游标查询结果为几行数据，如果是1行数据，就直接插入临时表中，如果是大于1行的数据集，则取出第一条数据插入 临时表中 */
                 if  v_rowcount = 1 then

                      dbms_output.put_line('====  v_rowcount = 1 ==== ' );
                      insert into gk_zwentry_k3_zfzxz_zfpz_temp
                         (gk_zfpz_id, id, origin_id, voucher_no, make_date, fk_account, fk_bank, src_id, sk_name, sk_account, sk_bank, unitno, unit_name, budget_type, bdgt_accid, budgetno, budget_name, prjno, prj_name, zfpz_amt, amt, purpose, remark, checker, checker_date, affirmer, affirm_date, voucher_type, check_status, wf_status, gk_hzqsd_id, fund, org_type, back_oper_id, back_oper_idea, back_oper_date, back_checker_id, back_checker_idea, back_checker_date, zf_item_amt, zf_itemno, zf_itemname, bm_itemnos)
                      values
                           (v_row_q_vk3_zfzxzzfpz.gk_zfpz_id, v_row_q_vk3_zfzxzzfpz.id, v_row_q_vk3_zfzxzzfpz.origin_id, v_row_q_vk3_zfzxzzfpz.voucher_no, v_row_q_vk3_zfzxzzfpz.make_date, v_row_q_vk3_zfzxzzfpz.fk_account, v_row_q_vk3_zfzxzzfpz.fk_bank, v_row_q_vk3_zfzxzzfpz.src_id, v_row_q_vk3_zfzxzzfpz.sk_name, v_row_q_vk3_zfzxzzfpz.sk_account, v_row_q_vk3_zfzxzzfpz.sk_bank, v_row_q_vk3_zfzxzzfpz.unitno, v_row_q_vk3_zfzxzzfpz.unit_name, v_row_q_vk3_zfzxzzfpz.budget_type, v_row_q_vk3_zfzxzzfpz.bdgt_accid, v_row_q_vk3_zfzxzzfpz.budgetno, v_row_q_vk3_zfzxzzfpz.budget_name, v_row_q_vk3_zfzxzzfpz.prjno, v_row_q_vk3_zfzxzzfpz.prj_name, v_row_q_vk3_zfzxzzfpz.zfpz_amt, v_row_q_vk3_zfzxzzfpz.amt, v_row_q_vk3_zfzxzzfpz.purpose, v_row_q_vk3_zfzxzzfpz.remark, v_row_q_vk3_zfzxzzfpz.checker, v_row_q_vk3_zfzxzzfpz.checker_date, v_row_q_vk3_zfzxzzfpz.affirmer, v_row_q_vk3_zfzxzzfpz.affirm_date, v_row_q_vk3_zfzxzzfpz.voucher_type, v_row_q_vk3_zfzxzzfpz.check_status, v_row_q_vk3_zfzxzzfpz.wf_status, v_row_q_vk3_zfzxzzfpz.gk_hzqsd_id, v_row_q_vk3_zfzxzzfpz.fund, v_row_q_vk3_zfzxzzfpz.org_type, v_row_q_vk3_zfzxzzfpz.back_oper_id, v_row_q_vk3_zfzxzzfpz.back_oper_idea, v_row_q_vk3_zfzxzzfpz.back_oper_date, v_row_q_vk3_zfzxzzfpz.back_checker_id, v_row_q_vk3_zfzxzzfpz.back_checker_idea, v_row_q_vk3_zfzxzzfpz.back_checker_date, v_row_q_vk3_zfzxzzfpz.zf_item_amt, v_row_q_vk3_zfzxzzfpz.zf_itemno, v_row_q_vk3_zfzxzzfpz.zf_itemname, v_row_q_vk3_zfzxzzfpz.bm_itemnos);


                 elsif  v_rowcount > 1 then

                       dbms_output.put_line('====  v_rowcount > 1 ==== ' );

						           insert into gk_zwentry_k3_zfzxz_zfpz_temp
                            (gk_zfpz_id, id, origin_id, voucher_no, make_date, fk_account, fk_bank, src_id, sk_name, sk_account, sk_bank, unitno, unit_name, budget_type, bdgt_accid, budgetno, budget_name, prjno, prj_name, zfpz_amt, amt, purpose, remark, checker, checker_date, affirmer, affirm_date, voucher_type, check_status, wf_status, gk_hzqsd_id, fund, org_type, back_oper_id, back_oper_idea, back_oper_date, back_checker_id, back_checker_idea, back_checker_date, zf_item_amt, zf_itemno, zf_itemname, bm_itemnos)
                       values
                            (v_list_gk_zfpz_id,v_list_id, v_list_origin_id, v_list_voucher_no, v_row_q_vk3_zfzxzzfpz.make_date, v_row_q_vk3_zfzxzzfpz.fk_account, v_row_q_vk3_zfzxzzfpz.fk_bank, v_row_q_vk3_zfzxzzfpz.src_id, v_row_q_vk3_zfzxzzfpz.sk_name, v_row_q_vk3_zfzxzzfpz.sk_account, v_row_q_vk3_zfzxzzfpz.sk_bank, v_row_q_vk3_zfzxzzfpz.unitno, v_row_q_vk3_zfzxzzfpz.unit_name, v_row_q_vk3_zfzxzzfpz.budget_type, v_row_q_vk3_zfzxzzfpz.bdgt_accid, v_row_q_vk3_zfzxzzfpz.budgetno, v_row_q_vk3_zfzxzzfpz.budget_name, v_row_q_vk3_zfzxzzfpz.prjno, v_row_q_vk3_zfzxzzfpz.prj_name,v_sum_zfpz_amt, v_sum_amt,v_list_purpose, v_list_remark , v_row_q_vk3_zfzxzzfpz.checker, v_row_q_vk3_zfzxzzfpz.checker_date, v_row_q_vk3_zfzxzzfpz.affirmer, v_row_q_vk3_zfzxzzfpz.affirm_date, v_row_q_vk3_zfzxzzfpz.voucher_type, v_row_q_vk3_zfzxzzfpz.check_status, v_row_q_vk3_zfzxzzfpz.wf_status, v_row_q_vk3_zfzxzzfpz.gk_hzqsd_id, v_row_q_vk3_zfzxzzfpz.fund, v_row_q_vk3_zfzxzzfpz.org_type, v_row_q_vk3_zfzxzzfpz.back_oper_id, v_row_q_vk3_zfzxzzfpz.back_oper_idea, v_row_q_vk3_zfzxzzfpz.back_oper_date, v_row_q_vk3_zfzxzzfpz.back_checker_id, v_row_q_vk3_zfzxzzfpz.back_checker_idea, v_row_q_vk3_zfzxzzfpz.back_checker_date, v_sum_zf_item_amt, v_row_q_vk3_zfzxzzfpz.zf_itemno, v_row_q_vk3_zfzxzzfpz.zf_itemname, v_list_bm_itemnos );

                    EXIT;/*跳出本循环体 ，继续执行上一级循环体 */
                 end if;

             fetch cursor_q_vk3_zfzxzzfpz   into  v_row_q_vk3_zfzxzzfpz;/*先让指针指向结果集中的第一行，并将值保存到v_row_zfzxz_zfpz 中*/
             exit when cursor_q_vk3_zfzxzzfpz%notfound or cursor_q_vk3_zfzxzzfpz%notfound is null;
             end loop;


              dbms_output.put_line('====进行PRO_K3_ZFZXZ 调试  GK_ZWVCH_ZFZXZ_ZFPZ_IDS 批次号   v_sql='|| v_sql||'==== ' );

        fetch cursor_zfzxz_zfpz   into  v_row_zfzxz_zfpz;/*先让指针指向结果集中的第一行，并将值保存到v_row_zfzxz_zfpz 中*/
        exit when cursor_zfzxz_zfpz%notfound or cursor_zfzxz_zfpz%notfound is null;
    end loop;


 end if; /*结束 gk_zfpz表id 的拼接 情况的判断 */


 v_sql :=   ' select *   from  gk_zwentry_k3_zfzxz_zfpz_temp  z     ';
dbms_output.put_line('==== v_sql='|| v_sql||'==== ' );


OPEN v_cur FOR v_sql;

commit;

close  cursor_q_vk3_zfzxzzfpz;/*关闭游标*/
close  cursor_gb_zfzxz;/*关闭游标*/
close  cursor_zfzxz_zfpz;/*关闭游标*/
close  cursor_ids;/*关闭游标*/
end PRO_K3_ZFZXZ;

 

create or replace procedure PRO_K3_ZFZXZ_6(
        org_type  in varchar2,
        opertype  in varchar2,
        fdate   in varchar2,
        v_cur  out pkg_query.cur_query   )
is
  type ref_cursor_type is ref cursor;
  v_sql VARCHAR2(4000);



  /* 获取分组数据信息 */
  cursor_zfzxz_zfpz  ref_cursor_type;  /*游标*/
  v_row_zfzxz_zfpz view_k3_zfzxz_zfpz_group%rowtype  ;
  v_zfzxz_zfpz_sql  varchar2(4000) :='';

  /** 分组求和  **/
  cursor_gb_zfzxz ref_cursor_type; /*游标*/
  v_gb_zfzxz_sql varchar2(4000) :='';
  v_row_gb_zfzxz gk_zwentry_k3_zfzxz_zfpz_sum%rowtype  ;

  v_sum_amt number(16,2) :=0;
  v_sum_zf_item_amt number(16,2) :=0;
  v_sum_zfpz_amt number(16,2) :=0;



  /*查询 view_k3_zfzxz_zfpz 的具体信息 */
  cursor_q_vk3_zfzxzzfpz ref_cursor_type; /*游标*/
  v_q_vk3_zfzxzzfpz_sql  varchar2(4000) :='' ;
  v_row_q_vk3_zfzxzzfpz view_k3_zfzxz_zfpz%rowtype  ;


  /*查询 view_k3_zfzxz_zfpz 的具体有多少条数据信息*/
  cursor_q_vk3_zfzxzzfpz_count ref_cursor_type; /*游标*/
  v_row_q_vk3_zfzxzzfpz_count view_k3_zfzxz_zfpz_count%rowtype  ;
  v_q_vk3_zfzxzzfpz_count_sql  varchar2(4000) :='' ;
  v_rowcount number :=0;/*获取游标取数的条数*/

  v_zfpzId_sql varchar2(1000) :='';

  v_gk_zwvch_refer_temp_pch number :=0;
  v_pch number :=0;/*批次号*/

begin
dbms_output.enable (buffer_size=>null) ;

  select nextid('GK_ZWVCH_REFER_TEMP_SEQ')  as v_gk_zwvch_refer_temp_pch  into v_gk_zwvch_refer_temp_pch  from dual;
  if sql%found then
      v_pch :=v_gk_zwvch_refer_temp_pch;
  end if;


--先判断入参是否有值，如果没有值 整个存储过程返回空值  
--  if  org_type is not null and opertype is not null and  fdate is not null  then
      /*   org_type  资金来源类型 0 预算内  1预算外
           opertype   操作类型 0' :'正常对碰的直接支付' 1 '正常对碰的授权支付' 2 :'退款的直接支付' 3 :'退款的授权支付' 4 :'已审结的调账申请'
           fdate   凭证回单日期  */

         if org_type= '1'  /*预算外*/  then

      if opertype = '0' then
         --正常对碰的直接支付
         v_zfpzId_sql:= 'and   z.id in  (  select gz.id  from gk_zfpz gz,bs_zjly zjly  where gz.voucher_type =''''0'''' and gz.check_status in ( ''1'',''2'',''02'' ) and gz.src_id=zjly.fundno

                           and zjly.fundno in(''043'', ''058'', ''158'', ''258'', ''013'',  ''113'', ''213'',  ''023'',''123'',''223'',   ''046'',''246'',''049'',''149'',''249'',''048'', ''248'',''045'',''245'',''047'',''247'',  ''055'',''355'',''455'',''155'',''255'', ''059'', ''159'', ''259'', ''061'', ''161'',''261'',  ''026'', ''044'',''144'', ''244'' )
                           and not exists (select r.* from gk_zwvch_refer r where r.origin_teable =''GK_ZFPZ'' and r.orign_id = gz.id       and r.fmodule = ''2'' and r.voucher_type=''0'' and r.orign_type=''1''   )
                           and  to_char(gz.affirm_date,''yyyy-MM-dd'') = '''||fdate||'''   ) '   ;

      elsif opertype = '1' then
        --正常对碰的授权支付
           v_zfpzId_sql:= 'and     z.id in   (   select gz.id  from gk_zfpz gz,bs_zjly zjly  where gz.voucher_type =''1'' and gz.check_status in ( ''1'',''2'',''02'' ) and gz.src_id=zjly.fundno
                           and zjly.fundno in(''043'', ''058'', ''158'', ''258'', ''013'',  ''113'', ''213'',  ''023'',''123'',''223'',   ''046'',''246'',''049'',''149'',''249'',''048'', ''248'',''045'',''245'',''047'',''247'',  ''055'',''355'',''455'',''155'',''255'', ''059'', ''159'', ''259'', ''061'', ''161'',''261'',  ''026'', ''044'',''144'', ''244'' )
                           and not exists (select r.* from gk_zwvch_refer r where r.origin_teable =''GK_ZFPZ'' and r.orign_id = gz.id     and r.fmodule = ''2'' and r.voucher_type=''1'' and r.orign_type=''1''  )
                           and  to_char(gz.affirm_date,''yyyy-MM-dd'') = '''||fdate||'''   ) '   ;

      elsif opertype = '2' then
        --全额退款的直接支付
         v_zfpzId_sql:= 'and     z.id in   (     select  gz.id from gk_zfpz gz,bs_zjly zjly    where gz.voucher_type =''''0'''' and gz.check_status in (''2'')  and gz.src_id=zjly.fundno
                         and zjly.fundno in( ''043'',''058'', ''158'', ''258'', ''013'',  ''113'', ''213'',  ''023'',''123'',''223'',   ''046'',''246'',''049'',''149'',''249'',''048'', ''248'',''045'',''245'',''047'',''247'',  ''055'',''355'',''455'',''155'',''255'', ''059'', ''159'', ''259'', ''061'', ''161'',''261'',  ''026'', ''044'',''144'', ''244'' )
                         and not exists (select r.* from gk_zwvch_refer r where r.origin_teable =''GK_ZFPZ'' and r.orign_id = gz.id   and r.fmodule = ''2'' and r.voucher_type=''0'' and r.orign_type=''3''   )
                         and  to_char(gz.affirm_date,''yyyy-MM-dd'') = '''||fdate||'''   ) '   ;

      elsif opertype = '3' then
       -- 全额退款的授权支付
         v_zfpzId_sql:= 'and     z.id in   (     select  gz.id  from gk_zfpz gz,bs_zjly zjly  where gz.voucher_type =''1'' and gz.check_status =''2'' and gz.src_id=zjly.fundno
                        and zjly.fundno in( ''043'',''058'', ''158'', ''258'', ''013'',  ''113'', ''213'',  ''023'',''123'',''223'',   ''046'',''246'',''049'',''149'',''249'',''048'', ''248'',''045'',''245'',''047'',''247'',  ''055'',''355'',''455'',''155'',''255'', ''059'', ''159'', ''259'', ''061'', ''161'',''261'',  ''026'', ''044'',''144'', ''244'' )
                        and not exists (select r.* from gk_zwvch_refer r where r.origin_teable =''GK_ZFPZ'' and r.orign_id = gz.id    and r.fmodule = ''2'' and r.voucher_type=''1'' and r.orign_type=''3'' )
                        and  to_char(gz.affirm_date,''yyyy-MM-dd'') = '''||fdate||'''   ) '   ;

      end if;

    elsif  org_type= '0' /*预算内 */ then
      /*   org_type  资金来源类型 0 预算内  1预算外
           opertype   操作类型 0'' :''正常对碰的直接支付'' 1 ''正常对碰的授权支付'' 2 :''退款的直接支付'' 3 :''退款的授权支付'' 4 :''已审结的调账申请''
           fdate   凭证回单日期  */
      if opertype = 0 then
        --正常对碰的直接支付
          v_zfpzId_sql:= 'and     z.id in   (
                          select gz.id  from gk_zfpz gz,bs_zjly zjly
                          where gz.voucher_type =''0'' and gz.check_status in ( ''1'',''2'',''02'' ) and gz.src_id=zjly.fundno and zjly.org_type=1  and zjly.fundno not  in (''007'',''107'',''207'')
                          and not exists (select r.* from gk_zwvch_refer r where r.origin_teable =''GK_ZFPZ'' and r.orign_id = gz.id    and r.fmodule = ''1'' and r.voucher_type=''0'' and r.orign_type=''1''  )
                          and  to_char(gz.affirm_date,''yyyy-MM-dd'') = '''||fdate||'''   ) '   ;

      elsif opertype = '1' then
        -- 正常对碰的授权支付
          v_zfpzId_sql:= 'and     z.id in   (
                          select gz.id  from gk_zfpz gz,bs_zjly zjly
                          where gz.voucher_type =''0'' and gz.check_status in ( ''1'',''2'',''02'' ) and gz.src_id=zjly.fundno and zjly.org_type=1  and zjly.fundno not  in (''007'',''107'',''207'')
                          and not exists (select r.* from gk_zwvch_refer r where r.origin_teable =''GK_ZFPZ'' and r.orign_id = gz.id    and r.fmodule = ''1'' and r.voucher_type=''0'' and r.orign_type=''1''  )
                          and  to_char(gz.affirm_date,''yyyy-MM-dd'') = '''||fdate||'''   ) '   ;

        elsif opertype = '2' then
        -- 全额退款的直接支付
         v_zfpzId_sql:= 'and     z.id in   (
                         select gz.id   from gk_zfpz gz,bs_zjly zjly     where gz.voucher_type =''0''   and gz.check_status =''2'' and gz.src_id=zjly.fundno and zjly.org_type=1   and zjly.fundno not  in (''007'',''107'',''207'')
                         and not exists (select r.* from gk_zwvch_refer r where r.origin_teable =''GK_ZFPZ'' and r.orign_id = gz.id  and r.fmodule = ''1'' and r.voucher_type=''0'' and r.orign_type=''3''  )
                         and  to_char(gz.affirm_date,''yyyy-MM-dd'') = '''||fdate||'''   ) '   ;

       elsif opertype = '3' then
        ---全额退款的授权支付
        v_zfpzId_sql:= 'and     z.id in   (
                        select   gz.id   from gk_zfpz gz,bs_zjly zjly  where gz.voucher_type =''1'' and gz.check_status =''2'' and gz.src_id=zjly.fundno and zjly.org_type=1  and zjly.fundno not  in (''007'',''107'',''207'')
                        and not exists (select r.* from gk_zwvch_refer r where r.origin_teable =''GK_ZFPZ'' and r.orign_id = gz.id    and r.fmodule = ''1'' and r.voucher_type=''1'' and r.orign_type=''3''   )
                        and  to_char(gz.affirm_date,''yyyy-MM-dd'') = '''||fdate||'''   ) '   ;
         end if;

     end if;

    /*获取视图 view_k3_zfzxz_zfpz 的 同单位 同资金来源 同项目 同功能分类科目类型 同功能分类科目编码 同政府经济分类编码 的数据 */
    v_zfzxz_zfpz_sql :=' select  z.unitno,z.prjno,z.src_id,z.budget_type,z.budgetno,z.zf_itemno     from  view_k3_zfzxz_zfpz z where 1=1   ';



   v_zfzxz_zfpz_sql :=v_zfzxz_zfpz_sql||v_zfpzId_sql  ||'  group  by z.unitno,z.prjno,z.src_id,z.budget_type,z.budgetno,z.bdgt_accid,z.prjno,z.zf_itemno    order by z.unitno,z.prjno,z.src_id,z.budget_type,z.budgetno,z.bdgt_accid,z.prjno,z.zf_itemno  ';

   open cursor_zfzxz_zfpz for v_zfzxz_zfpz_sql ;
   fetch cursor_zfzxz_zfpz   into  v_row_zfzxz_zfpz;
   while cursor_zfzxz_zfpz%found loop

            /*赋值*/
            v_sum_amt  :=0;
            v_sum_zf_item_amt  :=0;
            v_sum_zfpz_amt  :=0;



            /*取出合并的金额、凭证id列表、 */
             v_gb_zfzxz_sql :='  select  sum(z.amt) as sum_amt ,sum(z.zf_item_amt) as sum_zf_item_amt , sum(z.zfpz_amt) as sum_zfpz_amt  from view_k3_zfzxz_zfpz z where 1=1  ' ;


             v_gb_zfzxz_sql :=v_gb_zfzxz_sql ||v_zfpzId_sql ;

             if v_row_zfzxz_zfpz.unitno is not null then
                 v_gb_zfzxz_sql :=v_gb_zfzxz_sql ||   '  and  z.unitno='||v_row_zfzxz_zfpz.unitno  ;
             end if  ;
             if v_row_zfzxz_zfpz.prjno is not null then
                 v_gb_zfzxz_sql :=v_gb_zfzxz_sql ||   '  and  z.prjno='||v_row_zfzxz_zfpz.prjno  ;
             end if  ;
             if v_row_zfzxz_zfpz.src_id is not null then
                 v_gb_zfzxz_sql :=v_gb_zfzxz_sql ||   '  and  z.src_id='||v_row_zfzxz_zfpz.src_id  ;
             end if;
             if v_row_zfzxz_zfpz.budget_type is not null then
                 v_gb_zfzxz_sql :=v_gb_zfzxz_sql ||   '  and  z.budget_type='||v_row_zfzxz_zfpz.budget_type  ;
             end if;
             if v_row_zfzxz_zfpz.budgetno is not null then
                 v_gb_zfzxz_sql :=v_gb_zfzxz_sql ||   '  and  z.budgetno='||v_row_zfzxz_zfpz.budgetno  ;
             end if;
             if v_row_zfzxz_zfpz.zf_itemno is not null then
                 v_gb_zfzxz_sql :=v_gb_zfzxz_sql ||   '  and  z.zf_itemno='||v_row_zfzxz_zfpz.zf_itemno  ;
             end if;
             /*取出合并的同单位 同资金来源 同项目编码 同功能分类科目类型 同功能分类科目编码 同政府经济分类编码 的金额求和 值 */
             dbms_output.put_line('====进行PRO_K3_ZFZXZ 调试 v_gb_zfzxz_sql   v_gb_zfzxz_sql='|| v_gb_zfzxz_sql||'==== ' );
             open cursor_gb_zfzxz for v_gb_zfzxz_sql ;
             fetch cursor_gb_zfzxz   into  v_row_gb_zfzxz;
             while cursor_gb_zfzxz%found loop
                /*赋值*/
                if v_row_gb_zfzxz.sum_amt is not null then
                  v_sum_amt  :=v_row_gb_zfzxz.sum_amt;
                end if;
                if v_row_gb_zfzxz.sum_zf_item_amt is not null then
                  v_sum_zf_item_amt  :=v_row_gb_zfzxz.sum_zf_item_amt;
                end if;
                if v_row_gb_zfzxz.sum_zfpz_amt is not null then
                  v_sum_zfpz_amt  :=v_row_gb_zfzxz.sum_zfpz_amt;
                end if ;


             fetch cursor_gb_zfzxz   into  v_row_gb_zfzxz;/*先让指针指向结果集中的第一行，并将值保存到v_row_zfzxz_zfpz 中*/
             exit when cursor_gb_zfzxz%notfound or cursor_gb_zfzxz%notfound is null;
             end loop;
             close  cursor_gb_zfzxz;/*关闭游标*/

             v_q_vk3_zfzxzzfpz_sql :='select  gk_zfpz_id, id, origin_id, voucher_no, make_date, fk_account, fk_bank, src_id, sk_name, sk_account, sk_bank, unitno, unit_name,
                                      budget_type, bdgt_accid, budgetno, budget_name, prjno, prj_name, zfpz_amt, amt, purpose, remark, checker, checker_date, affirmer,
                                      affirm_date, voucher_type, check_status, wf_status, gk_hzqsd_id, fund, org_type, back_oper_id, back_oper_idea, back_oper_date,
                                      back_checker_id, back_checker_idea, back_checker_date, zf_item_amt, zf_itemno, zf_itemname, bm_itemnos
                                      from  view_k3_zfzxz_zfpz z where 1=1   ';

             v_q_vk3_zfzxzzfpz_sql :=v_q_vk3_zfzxzzfpz_sql ||v_zfpzId_sql ;
             if v_row_zfzxz_zfpz.unitno is not null then
                 v_q_vk3_zfzxzzfpz_sql :=v_q_vk3_zfzxzzfpz_sql ||   '  and  z.unitno='||v_row_zfzxz_zfpz.unitno  ;
             end if  ;
             if v_row_zfzxz_zfpz.prjno is not null then
                 v_q_vk3_zfzxzzfpz_sql :=v_q_vk3_zfzxzzfpz_sql ||   '  and  z.prjno='||v_row_zfzxz_zfpz.prjno  ;
             end if  ;
             if v_row_zfzxz_zfpz.src_id is not null then
                 v_q_vk3_zfzxzzfpz_sql :=v_q_vk3_zfzxzzfpz_sql ||   '  and  z.src_id='||v_row_zfzxz_zfpz.src_id  ;
             end if;
             if v_row_zfzxz_zfpz.budget_type is not null then
                 v_q_vk3_zfzxzzfpz_sql :=v_q_vk3_zfzxzzfpz_sql ||   '  and  z.budget_type='||v_row_zfzxz_zfpz.budget_type  ;
             end if;
             if v_row_zfzxz_zfpz.budgetno is not null then
                 v_q_vk3_zfzxzzfpz_sql :=v_q_vk3_zfzxzzfpz_sql ||   '  and  z.budgetno='||v_row_zfzxz_zfpz.budgetno  ;
             end if;
             if v_row_zfzxz_zfpz.zf_itemno is not null then
                 v_q_vk3_zfzxzzfpz_sql :=v_q_vk3_zfzxzzfpz_sql ||   '  and  z.zf_itemno='||v_row_zfzxz_zfpz.zf_itemno  ;
             end if;


             v_q_vk3_zfzxzzfpz_count_sql:=  'select count(*) count_no    from  view_k3_zfzxz_zfpz z where 1=1   '  || v_zfpzId_sql  ;

             if v_row_zfzxz_zfpz.unitno is not null then
                 v_q_vk3_zfzxzzfpz_count_sql :=v_q_vk3_zfzxzzfpz_count_sql ||   '  and  z.unitno='||v_row_zfzxz_zfpz.unitno  ;
             end if  ;
             if v_row_zfzxz_zfpz.prjno is not null then
                 v_q_vk3_zfzxzzfpz_count_sql :=v_q_vk3_zfzxzzfpz_count_sql ||   '  and  z.prjno='||v_row_zfzxz_zfpz.prjno  ;
             end if  ;
             if v_row_zfzxz_zfpz.src_id is not null then
                 v_q_vk3_zfzxzzfpz_count_sql :=v_q_vk3_zfzxzzfpz_count_sql ||   '  and  z.src_id='||v_row_zfzxz_zfpz.src_id  ;
             end if;
             if v_row_zfzxz_zfpz.budget_type is not null then
                 v_q_vk3_zfzxzzfpz_count_sql :=v_q_vk3_zfzxzzfpz_count_sql ||   '  and  z.budget_type='||v_row_zfzxz_zfpz.budget_type  ;
             end if;
             if v_row_zfzxz_zfpz.budgetno is not null then
                 v_q_vk3_zfzxzzfpz_count_sql :=v_q_vk3_zfzxzzfpz_count_sql ||   '  and  z.budgetno='||v_row_zfzxz_zfpz.budgetno  ;
             end if;
             if v_row_zfzxz_zfpz.zf_itemno is not null then
                 v_q_vk3_zfzxzzfpz_count_sql :=v_q_vk3_zfzxzzfpz_count_sql ||   '  and  z.zf_itemno='||v_row_zfzxz_zfpz.zf_itemno  ;
             end if;

              v_rowcount:=0;
              dbms_output.put_line('====进行   v_q_vk3_zfzxzzfpz_count_sql='|| v_q_vk3_zfzxzzfpz_count_sql||'==== ' );
             open cursor_q_vk3_zfzxzzfpz_count for v_q_vk3_zfzxzzfpz_count_sql ;

             fetch cursor_q_vk3_zfzxzzfpz_count   into  v_row_q_vk3_zfzxzzfpz_count;

             while cursor_q_vk3_zfzxzzfpz_count%found loop
               v_rowcount:=v_row_q_vk3_zfzxzzfpz_count.count_no;

             fetch cursor_q_vk3_zfzxzzfpz_count   into  v_row_q_vk3_zfzxzzfpz_count;/*先让指针指向结果集中的第一行，并将值保存到v_row_zfzxz_zfpz 中*/
             exit when cursor_q_vk3_zfzxzzfpz_count%notfound or cursor_q_vk3_zfzxzzfpz_count%notfound is null;
             end loop;





             /*取出 view_k3_zfzxz_zfpz 视图中的数据   */
             open cursor_q_vk3_zfzxzzfpz for v_q_vk3_zfzxzzfpz_sql ;
             fetch cursor_q_vk3_zfzxzzfpz   into  v_row_q_vk3_zfzxzzfpz;
              while cursor_q_vk3_zfzxzzfpz%found loop
                  /*判断游标查询结果为几行数据，如果是1行数据，就直接插入临时表中，如果是大于1行的数据集，则取出第一条数据插入 临时表中 */
                 if  v_rowcount = 1 then


                        insert into gk_zwentry_k3_zfzxz_zfpz_temp
                         (  gk_zwvch_refer_temp_pch,  gk_zfpz_id, make_date, fk_account, fk_bank, src_id, sk_name, sk_account, sk_bank, unitno, unit_name, budget_type, bdgt_accid, budgetno, budget_name, prjno, prj_name, zfpz_amt, amt, purpose, remark, checker, checker_date, affirmer, affirm_date, voucher_type, check_status, wf_status, gk_hzqsd_id, fund, org_type, back_oper_id, back_oper_idea, back_oper_date, back_checker_id, back_checker_idea, back_checker_date, zf_item_amt, zf_itemno, zf_itemname, bm_itemnos)
                      values
                           ( v_pch, v_row_q_vk3_zfzxzzfpz.gk_zfpz_id, v_row_q_vk3_zfzxzzfpz.make_date, v_row_q_vk3_zfzxzzfpz.fk_account, v_row_q_vk3_zfzxzzfpz.fk_bank, v_row_q_vk3_zfzxzzfpz.src_id, v_row_q_vk3_zfzxzzfpz.sk_name, v_row_q_vk3_zfzxzzfpz.sk_account, v_row_q_vk3_zfzxzzfpz.sk_bank, v_row_q_vk3_zfzxzzfpz.unitno, v_row_q_vk3_zfzxzzfpz.unit_name, v_row_q_vk3_zfzxzzfpz.budget_type, v_row_q_vk3_zfzxzzfpz.bdgt_accid, v_row_q_vk3_zfzxzzfpz.budgetno, v_row_q_vk3_zfzxzzfpz.budget_name, v_row_q_vk3_zfzxzzfpz.prjno, v_row_q_vk3_zfzxzzfpz.prj_name, v_row_q_vk3_zfzxzzfpz.zfpz_amt, v_row_q_vk3_zfzxzzfpz.amt, v_row_q_vk3_zfzxzzfpz.purpose, v_row_q_vk3_zfzxzzfpz.remark, v_row_q_vk3_zfzxzzfpz.checker, v_row_q_vk3_zfzxzzfpz.checker_date, v_row_q_vk3_zfzxzzfpz.affirmer, v_row_q_vk3_zfzxzzfpz.affirm_date, v_row_q_vk3_zfzxzzfpz.voucher_type, v_row_q_vk3_zfzxzzfpz.check_status, v_row_q_vk3_zfzxzzfpz.wf_status, v_row_q_vk3_zfzxzzfpz.gk_hzqsd_id, v_row_q_vk3_zfzxzzfpz.fund, v_row_q_vk3_zfzxzzfpz.org_type, v_row_q_vk3_zfzxzzfpz.back_oper_id, v_row_q_vk3_zfzxzzfpz.back_oper_idea, v_row_q_vk3_zfzxzzfpz.back_oper_date, v_row_q_vk3_zfzxzzfpz.back_checker_id, v_row_q_vk3_zfzxzzfpz.back_checker_idea, v_row_q_vk3_zfzxzzfpz.back_checker_date, v_row_q_vk3_zfzxzzfpz.zf_item_amt, v_row_q_vk3_zfzxzzfpz.zf_itemno, v_row_q_vk3_zfzxzzfpz.zf_itemname, v_row_q_vk3_zfzxzzfpz.bm_itemnos);

                 elsif  v_rowcount > 1 then


                       insert into gk_zwentry_k3_zfzxz_zfpz_temp
                            (gk_zwvch_refer_temp_pch,  gk_zfpz_id,  make_date, fk_account, fk_bank, src_id, sk_name, sk_account, sk_bank, unitno, unit_name, budget_type, bdgt_accid, budgetno, budget_name, prjno, prj_name, zfpz_amt, amt, purpose, remark, checker, checker_date, affirmer, affirm_date, voucher_type, check_status, wf_status, gk_hzqsd_id, fund, org_type, back_oper_id, back_oper_idea, back_oper_date, back_checker_id, back_checker_idea, back_checker_date, zf_item_amt, zf_itemno, zf_itemname, bm_itemnos)
                       values
                            ( v_pch, v_row_q_vk3_zfzxzzfpz.gk_zfpz_id,v_row_q_vk3_zfzxzzfpz.make_date, v_row_q_vk3_zfzxzzfpz.fk_account, v_row_q_vk3_zfzxzzfpz.fk_bank, v_row_q_vk3_zfzxzzfpz.src_id, v_row_q_vk3_zfzxzzfpz.sk_name, v_row_q_vk3_zfzxzzfpz.sk_account, v_row_q_vk3_zfzxzzfpz.sk_bank, v_row_q_vk3_zfzxzzfpz.unitno, v_row_q_vk3_zfzxzzfpz.unit_name, v_row_q_vk3_zfzxzzfpz.budget_type, v_row_q_vk3_zfzxzzfpz.bdgt_accid, v_row_q_vk3_zfzxzzfpz.budgetno, v_row_q_vk3_zfzxzzfpz.budget_name, v_row_q_vk3_zfzxzzfpz.prjno, v_row_q_vk3_zfzxzzfpz.prj_name,v_sum_zfpz_amt, v_sum_amt,v_row_q_vk3_zfzxzzfpz.purpose, v_row_q_vk3_zfzxzzfpz.remark, v_row_q_vk3_zfzxzzfpz.checker, v_row_q_vk3_zfzxzzfpz.checker_date, v_row_q_vk3_zfzxzzfpz.affirmer, v_row_q_vk3_zfzxzzfpz.affirm_date, v_row_q_vk3_zfzxzzfpz.voucher_type, v_row_q_vk3_zfzxzzfpz.check_status, v_row_q_vk3_zfzxzzfpz.wf_status, v_row_q_vk3_zfzxzzfpz.gk_hzqsd_id, v_row_q_vk3_zfzxzzfpz.fund, v_row_q_vk3_zfzxzzfpz.org_type, v_row_q_vk3_zfzxzzfpz.back_oper_id, v_row_q_vk3_zfzxzzfpz.back_oper_idea, v_row_q_vk3_zfzxzzfpz.back_oper_date, v_row_q_vk3_zfzxzzfpz.back_checker_id, v_row_q_vk3_zfzxzzfpz.back_checker_idea, v_row_q_vk3_zfzxzzfpz.back_checker_date, v_sum_zf_item_amt, v_row_q_vk3_zfzxzzfpz.zf_itemno, v_row_q_vk3_zfzxzzfpz.zf_itemname, v_row_q_vk3_zfzxzzfpz.bm_itemnos );

                    EXIT;/*跳出本循环体 ，继续执行上一级循环体 */
                 end if;

             fetch cursor_q_vk3_zfzxzzfpz   into  v_row_q_vk3_zfzxzzfpz;/*先让指针指向结果集中的第一行，并将值保存到v_row_zfzxz_zfpz 中*/
             exit when cursor_q_vk3_zfzxzzfpz%notfound or cursor_q_vk3_zfzxzzfpz%notfound is null;
             end loop;

           -- close  cursor_q_vk3_zfzxzzfpz;/*关闭游标*/



        fetch cursor_zfzxz_zfpz   into  v_row_zfzxz_zfpz;/*先让指针指向结果集中的第一行，并将值保存到v_row_zfzxz_zfpz 中*/
        exit when cursor_zfzxz_zfpz%notfound or cursor_zfzxz_zfpz%notfound is null;
    end loop;
   -- close  cursor_zfzxz_zfpz;/*关闭游标*/

      /*GK_ZWVCH_REFER_TEMP 表中插入数据 */



     v_q_vk3_zfzxzzfpz_sql :='select  gk_zfpz_id, id, origin_id, voucher_no, make_date, fk_account, fk_bank, src_id, sk_name, sk_account, sk_bank, unitno, unit_name,
                                      budget_type, bdgt_accid, budgetno, budget_name, prjno, prj_name, zfpz_amt, amt, purpose, remark, checker, checker_date, affirmer,
                                      affirm_date, voucher_type, check_status, wf_status, gk_hzqsd_id, fund, org_type, back_oper_id, back_oper_idea, back_oper_date,
                                      back_checker_id, back_checker_idea, back_checker_date, zf_item_amt, zf_itemno, zf_itemname, bm_itemnos
                                      from  view_k3_zfzxz_zfpz z where 1=1    ';

     v_q_vk3_zfzxzzfpz_sql :=v_q_vk3_zfzxzzfpz_sql ||v_zfpzId_sql ;
       /*取出 view_k3_zfzxz_zfpz 视图中的数据   */
     open cursor_q_vk3_zfzxzzfpz for v_q_vk3_zfzxzzfpz_sql ;
     fetch cursor_q_vk3_zfzxzzfpz   into  v_row_q_vk3_zfzxzzfpz;
      while cursor_q_vk3_zfzxzzfpz%found loop

            insert into gk_zwvch_refer_temp
              (pch, zfpz_id, zfpz_amt, bm_itemno, zf_itemno, zf_itemname, itemno_amt)
            values
              (v_pch, v_row_q_vk3_zfzxzzfpz.gk_zfpz_id,v_row_q_vk3_zfzxzzfpz.zfpz_amt  ,v_row_q_vk3_zfzxzzfpz.bm_itemnos  ,v_row_q_vk3_zfzxzzfpz.zf_itemno ,v_row_q_vk3_zfzxzzfpz.zf_itemname  ,v_row_q_vk3_zfzxzzfpz.zf_item_amt  );

      fetch cursor_q_vk3_zfzxzzfpz   into  v_row_q_vk3_zfzxzzfpz;/*先让指针指向结果集中的第一行，并将值保存到v_row_zfzxz_zfpz 中*/
      exit when cursor_q_vk3_zfzxzzfpz%notfound or cursor_q_vk3_zfzxzzfpz%notfound is null;
      end loop;
    --  close  cursor_q_vk3_zfzxzzfpz;\*关闭游标*\


--end if;

 v_sql :=' select gk_zwvch_refer_temp_pch as pch,  gk_zfpz_id, make_date, fk_account, fk_bank, src_id, sk_name,
              sk_account, sk_bank, unitno, unit_name, budget_type, bdgt_accid, budgetno, budget_name, prjno, prj_name,
              zfpz_amt, amt, purpose, remark, checker, checker_date, affirmer, affirm_date, voucher_type, check_status,
              wf_status, gk_hzqsd_id, fund, org_type, back_oper_id, back_oper_idea, back_oper_date, back_checker_id,
              back_checker_idea, back_checker_date, zf_item_amt, zf_itemno, zf_itemname, bm_itemnos
            from  gk_zwentry_k3_zfzxz_zfpz_temp  z     ';

OPEN v_cur FOR v_sql;




     close  cursor_q_vk3_zfzxzzfpz_count;/*关闭游标*/
     close  cursor_q_vk3_zfzxzzfpz;/*关闭游标*/
     close  cursor_zfzxz_zfpz;/*关闭游标*/
    commit;
end PRO_K3_ZFZXZ_6;

 

 

 

 示例10： 批量创建oracle 自带的 sequence 序列号

---SELECT GK_ZCJH_SEQ.NEXTVAL FROM DUAL ；
 
-- select  create_seq_func('GK_ZCJH_SEQ','gk_ykjh','id')   from dual;


 

CREATE OR REPLACE PACKAGE PKG_QUERY IS

  -- Author  : ADMINISTRATOR
  -- Created : 2016/12/8 星期四 10:28:37
  -- Purpose : 用做查询游标

  -- Public type declarations
  TYPE CUR_QUERY IS REF CURSOR;

END PKG_QUERY;


create or replace function create_seq_func(
   seq_name in  varchar2 ,/*seq名称*/
   bus_table_name in varchar2,/*业务表名*/
   pkcloumn_name in varchar2/*业务表主键名*/
)
return varchar2
is
result varchar2(30000);
type ref_cursor_type is ref cursor;
cursor_ids  ref_cursor_type;      
cursor_ids_1  ref_cursor_type; 
  
v_max_seq number :=1;
v_max_seq_1 number :=1;

v_max_sql varchar(4000);
v_max_sql_1 varchar(4000);

v_sql_alter varchar(4000);
v_sequence_sql varchar(4000);
begin

    v_max_sql:='select  '||seq_name||'.NEXTVAL FROM DUAL  ';
    dbms_output.put_line(v_max_sql);
    open cursor_ids for v_max_sql ;
    fetch cursor_ids   into  v_max_seq;
    /**  判断 是否有id 值查询出来  */
    if cursor_ids%found    then
       while cursor_ids%found loop
          dbms_output.put_line(v_max_seq);
       fetch cursor_ids   into  v_max_seq;
       end loop; 
    end if;
    
    v_max_sql_1:='select to_number(max('||pkcloumn_name||')+100)   from '||bus_table_name||' t   ';
    dbms_output.put_line(v_max_sql_1);
    open cursor_ids_1 for v_max_sql_1 ;
    fetch cursor_ids_1   into  v_max_seq_1;
    /**  判断 是否有id 值查询出来  */
    if cursor_ids_1%found    then
       while cursor_ids_1%found loop
          dbms_output.put_line(v_max_seq_1);
       fetch cursor_ids_1   into  v_max_seq_1;
     --   exit when cursor_ids%notfound or cursor_ids%notfound is null ;
       end loop;
    end if;
    v_sql_alter :='ALTER SEQUENCE GK_ZCJH_SEQ INCREMENT BY '|| v_max_seq_1;
    dbms_output.put_line(v_sql_alter);
    execute immediate v_sql_alter;


return  v_max_seq;
EXCEPTION
  WHEN OTHERS THEN
    v_sequence_sql :='create sequence '||seq_name||' minvalue  1 maxvalue 9999999999999999999999999999 start with  1 increment by 1 cache 20';
    dbms_output.put_line(v_sequence_sql);
    execute immediate v_sequence_sql;   

    v_max_sql_1:='select to_number(max('||pkcloumn_name||')+100)   from '||bus_table_name||' t   ';
    dbms_output.put_line(v_max_sql_1);
    open cursor_ids_1 for v_max_sql_1 ;
    fetch cursor_ids_1   into  v_max_seq_1;
    /**  判断 是否有id 值查询出来  */
    if cursor_ids_1%found    then
       while cursor_ids_1%found loop
          dbms_output.put_line(v_max_seq_1);
       fetch cursor_ids_1   into  v_max_seq_1;
     --   exit when cursor_ids%notfound or cursor_ids%notfound is null ;
       end loop;
    end if;
    v_sql_alter :='ALTER SEQUENCE GK_ZCJH_SEQ INCREMENT BY '|| v_max_seq_1;
    dbms_output.put_line(v_sql_alter);
    execute immediate v_sql_alter;

    
    RETURN v_max_seq_1;
end;

 

 

 

 

 

 

 

 

 

 

 

 

 

——————————————————————————————————————————————————————————————————————————————————————————————