1 create or replace procedure PRO_K3_CZZH (org_name in varchar2, --财政专户名称 2 opertype in varchar2, --操作类型 0:正常对碰的直接支付 1:正常对碰的授权支付 2:全额退款的直接支付 4:部分退款的直接支付 3:全额退款的授权支付 5:部分退款的授权支付 3 fdate in varchar2, --日期 4 i_pk_id in varchar2, --主键id 5 i_databasename in varchar2, --数据库名 6 i_fgroup in varchar2, -- 字号, 记 7 i_fpreparer in number, -- 制单人,id 8 i_fattachment in number, -- 附件数 9 o_ret out number 10 ) is 11 v_total number(16, 2); 12 v_fserialnum_1 number(16, 2); -- 流水号 13 v_fserialnum_2 number(16, 2); -- 流水号 14 v_fserialnum_3 number(16, 2); -- 流水号 15 v_fserialnum_4 number(16, 2); -- 流水号 16 v_fserialnum_5 number(16, 2); -- 流水号 17 v_max_index number; 18 v_count number; 19 v_orign_type number; 20 v_count_gkfszh number; 21 22 begin 23 o_ret := 0; 24 select nextid('GK_ZWVCH_SEQ') into v_fserialnum_1 from dual; 25 select nextid('GK_ZWVCH_SEQ') into v_fserialnum_2 from dual; 26 select nextid('GK_ZWVCH_SEQ') into v_fserialnum_3 from dual; 27 select nextid('GK_ZWVCH_SEQ') into v_fserialnum_4 from dual; 28 select nextid('GK_ZWVCH_SEQ') into v_fserialnum_5 from dual; 29 30 select count(1) into v_count from GK_ZWVCH_IDS a where a.pk_id = i_pk_id; 31 32 if v_count = 0 then 33 return ; 34 end if; 35 /* 操作类型 0:正常对碰的直接支付 36 1:正常对碰的授权支付 37 2:全额退款的直接支付 38 4:部分退款的直接支付 39 3:全额退款的授权支付 40 5:部分退款的授权支付 41 6:正常对碰的一般支付 42 7：全额退款的一般支付 43 */ 44 if opertype='0' or opertype='1' or opertype='6' then 45 v_orign_type:=1 ; 46 elsif opertype='2' or opertype='3' or opertype='4' or opertype='5' or opertype='7' then 47 v_orign_type:=3; 48 end if; 49 50 --先判断入参是否有值，如果没有值 整个存储过程返回空值 51 if org_name is not null and opertype is not null and fdate is not null and i_pk_id is not null then 52 53 54 /* 操作类型 0:正常对碰的直接支付 55 1:正常对碰的授权支付 56 2:全额退款的直接支付 57 4:部分退款的直接支付 58 3:全额退款的授权支付 59 5:部分退款的授权支付 60 6:正常对碰的一般支付 61 7：全额退款的一般支付 62 */ 63 --================================================================================================================ 64 --========== 代管资金户 ======== 65 --================================================================================================================ 66 if org_name='代管资金户' then 67 68 --插入主表 69 insert into gk_zwvch 70 (fserialnum, 71 FPERIOD, 72 fgroup, 73 fdate, 74 fnum, 75 fpreparer, 76 fattachment, 77 fmodule, 78 jz_database, 79 org_type, 80 jz_fserialnum, 81 orign_type, 82 make_date) 83 select v_fserialnum_1, 84 substr(fdate, 6, 2), 85 i_fgroup, 86 to_date(fdate, 'yyyy-MM-dd'), 87 0, 88 i_fpreparer, 89 i_fattachment, 90 3, 91 i_databasename, 92 '1', --资金来源类型 93 0, 94 v_orign_type, 95 sysdate 96 97 from dual; 98 99 if opertype='0' or opertype='1' or opertype='6' then 100 /* 正常对碰的直接支付 授权支付 101 102 借：2017.001[项目]应付代管资金.代管资金 103 贷：1004.001.01其他财政存款.信社存款.农商行活期 104 105 --代管资金户的项目代码有些特殊。是按照项目名称中的关键字来进行区分转化其项目编码的。 106 */ 107 ---借方数据插入 108 insert into gk_zwentry(fserialnum,fentryid,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname,budgetid) 109 select fserialnum,ROWNUM,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, budgetid from ( 110 select fserialnum,ROWNUM,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, 111 budgetno || ',' || year1 || ',' || budget_type || ',' || voucher_type || ',' || SRC_ID budgetid 112 from ( 113 SELECT Z.SRC_ID,Z.voucher_type,z.budget_type,z.budgetno,substr(to_char(sysdate,'yyyy-MM-dd'),0,4) year1, v_fserialnum_1 fserialnum , 114 '2017001' facctid, 115 '1' fclsid , 116 z.purpose fexp,z.zf_item_amt fdebit,0 fcredit,'1' fbanksettel ,z.prjno ftransid,'RMB' fcyid,z.unitno fobjid,z.zf_itemno zf_itemno,z.zf_itemname zf_itemname 117 FROM ( 118 SELECT Z.voucher_type, 119 (select bx.prj_name from bs_xmk bx where bx.prj_code=z.prjno) purpose, 120 z.amt zf_item_amt, 121 (select (case when instr(bx.prj_name,'环保' )>0 then '16' 122 when instr(bx.prj_name,'电力' )>0 then '17' 123 when instr(bx.prj_name,'地下' )>0 then '18' 124 when instr(bx.prj_name,'百村' )>0 then '19' 125 when instr(bx.prj_name,'特色古村' )>0 then '20' 126 when instr(bx.prj_name,'利息收入' )>0 then '21' 127 when instr(bx.prj_name,'五好' )>0 then '22' 128 when instr(bx.prj_name,'扶持' )>0 then '23' else '12' end ) prjno from bs_xmk bx where bx.prj_code=z.prjno) prjno, 129 z.unitno, 130 Z.SRC_ID, 131 Z.budget_type, 132 Z.budgetno, 133 '' zf_itemno, 134 '' zf_itemname, 135 (select bz.org_type from bs_zjly bz where bz.fundno=z.src_id ) ORG_TYPE 136 -- z.AFFIRM_DATE 137 FROM gk_zfpz Z 138 WHERE Z.id IN 139 (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 140 ) Z 141 order by z.budgetno 142 ) 143 ) 144 ; 145 ---贷方： 146 147 select sum(a.fdebit) into v_total from gk_zwentry a where a.fserialnum = v_fserialnum_1 ; 148 select max(a.fentryid) + 1 into v_max_index from gk_zwentry a where a.fserialnum = v_fserialnum_1; 149 insert into gk_zwentry 150 (fserialnum, 151 fentryid, 152 facctid, 153 fclsid, 154 fexp, 155 fdebit, 156 fcredit, 157 fbanksettel, 158 ftransid, 159 fcyid, 160 fobjid, 161 zf_itemno, 162 zf_itemname,BUDGETID) 163 SELECT v_fserialnum_1, 164 v_max_index, 165 '100400101', 166 '0', 167 '', 168 0, 169 v_total, 170 '1', 171 '000', 172 'RMB', 173 '*', 174 '', 175 '','100400101,' || substr(fdate,0,4) || ',*,*,*' 176 from dual; 177 178 insert into gk_zwvch_refer(FSERIALNUM, orign_type,orign_id,voucher_type,origin_teable,fmodule) 179 select v_fserialnum_1 , 180 '1' ORIGN_TYPE, 181 z.id ORIGN_ID, 182 z.voucher_type VOUCHER_TYPE, 183 'GK_ZFPZ' ORIGIN_TEABLE, 184 '3' FMODULE 185 from gk_zfpz z 186 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id); 187 188 189 elsif opertype='2' or opertype='3' then 190 /* 全额退款的 直接支付 授权支付 191 192 借：1004.001.01其他财政存款.信社存款.农商行活期 193 贷：2017.001[项目]应付代管资金.代管资金 194 195 --代管资金户的项目代码有些特殊。是按照项目名称中的关键字来进行区分转化其项目编码的。 196 */ 197 ---贷方数据插入 198 insert into gk_zwentry(fserialnum,fentryid,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname,budgetid) 199 select fserialnum,ROWNUM+1,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, budgetid from ( 200 select fserialnum,ROWNUM+1,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, 201 budgetno || ',' || year1 || ',' || budget_type || ',' || voucher_type || ',' || SRC_ID budgetid 202 from ( 203 SELECT Z.SRC_ID,Z.voucher_type,z.budget_type,z.budgetno,substr(to_char(sysdate,'yyyy-MM-dd'),0,4) year1, v_fserialnum_1 fserialnum , 204 '2017001' facctid, '1' fclsid , 205 z.purpose fexp,0 fdebit, z.zf_item_amt fcredit,'1' fbanksettel ,z.prjno ftransid,'RMB' fcyid,z.unitno fobjid,z.zf_itemno zf_itemno,z.zf_itemname zf_itemname 206 FROM ( 207 SELECT Z.voucher_type, 208 (select bx.prj_name from bs_xmk bx where bx.prj_code=z.prjno) purpose, 209 z.amt zf_item_amt, 210 (select (case when instr(bx.prj_name,'环保' )>0 then '16' 211 when instr(bx.prj_name,'电力' )>0 then '17' 212 when instr(bx.prj_name,'地下' )>0 then '18' 213 when instr(bx.prj_name,'百村' )>0 then '19' 214 when instr(bx.prj_name,'特色古村' )>0 then '20' 215 when instr(bx.prj_name,'利息收入' )>0 then '21' 216 when instr(bx.prj_name,'五好' )>0 then '22' 217 when instr(bx.prj_name,'扶持' )>0 then '23' else '12' end ) prjno from bs_xmk bx where bx.prj_code=z.prjno) prjno, 218 z.unitno, 219 Z.SRC_ID, 220 Z.budget_type, 221 Z.budgetno, 222 '' zf_itemno, 223 '' zf_itemname, 224 (select bz.org_type from bs_zjly bz where bz.fundno=z.src_id ) ORG_TYPE 225 -- z.AFFIRM_DATE 226 FROM gk_zfpz Z 227 WHERE Z.id IN 228 (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 229 ) Z 230 order by z.budgetno 231 ) 232 ) 233 ; 234 ---借方： 235 236 select sum(a.fcredit) into v_total from gk_zwentry a where a.fserialnum = v_fserialnum_1 ; 237 238 insert into gk_zwentry 239 (fserialnum, 240 fentryid, 241 facctid, 242 fclsid, 243 fexp, 244 fdebit, 245 fcredit, 246 fbanksettel, 247 ftransid, 248 fcyid, 249 fobjid, 250 zf_itemno, 251 zf_itemname,BUDGETID) 252 SELECT v_fserialnum_1, 253 '1', 254 '100400101', 255 '0', 256 '', 257 v_total, 258 0, 259 '1', 260 '000', 261 'RMB', 262 '*', 263 '', 264 '','100400101,' || substr(fdate,0,4) || ',*,*,*' 265 from dual; 266 267 insert into gk_zwvch_refer(FSERIALNUM, orign_type,orign_id,voucher_type,origin_teable,fmodule) 268 select v_fserialnum_1 , 269 '3' ORIGN_TYPE, 270 z.id ORIGN_ID, 271 z.voucher_type VOUCHER_TYPE, 272 'GK_ZFPZ' ORIGIN_TEABLE, 273 '3' FMODULE 274 from gk_zfpz z 275 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id); 276 277 elsif opertype='4' or opertype='5' then 278 /* 部分退款的直接支付 授权支付 279 280 借：1004.001.01其他财政存款.信社存款.农商行活期 281 贷：2017.001[项目]应付代管资金.代管资金 282 283 --代管资金户的项目代码有些特殊。是按照项目名称中的关键字来进行区分转化其项目编码的。 284 */ 285 ---贷方数据插入 286 insert into gk_zwentry(fserialnum,fentryid,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname,budgetid) 287 select fserialnum,ROWNUM+1,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, budgetid from ( 288 select fserialnum,ROWNUM+1,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, 289 budgetno || ',' || year1 || ',' || budget_type || ',' || voucher_type || ',' || SRC_ID budgetid 290 from ( 291 SELECT Z.SRC_ID,Z.voucher_type,z.budget_type,z.budgetno,substr(to_char(sysdate,'yyyy-MM-dd'),0,4) year1, v_fserialnum_1 fserialnum , 292 '2017001' facctid, '1' fclsid , 293 z.purpose fexp,0 fdebit,z.zf_item_amt fcredit,'1' fbanksettel ,z.prjno ftransid,'RMB' fcyid,z.unitno fobjid,z.zf_itemno zf_itemno,z.zf_itemname zf_itemname 294 FROM ( 295 SELECT Z.voucher_type, 296 (select bx.prj_name from bs_xmk bx where bx.prj_code=z.prjno) purpose, 297 z.amt zf_item_amt, 298 (select (case when instr(bx.prj_name,'环保' )>0 then '16' 299 when instr(bx.prj_name,'电力' )>0 then '17' 300 when instr(bx.prj_name,'地下' )>0 then '18' 301 when instr(bx.prj_name,'百村' )>0 then '19' 302 when instr(bx.prj_name,'特色古村' )>0 then '20' 303 when instr(bx.prj_name,'利息收入' )>0 then '21' 304 when instr(bx.prj_name,'五好' )>0 then '22' 305 when instr(bx.prj_name,'扶持' )>0 then '23' else '12' end ) prjno from bs_xmk bx where bx.prj_code=z.prjno) prjno, 306 z.unitno, 307 Z.SRC_ID, 308 Z.budget_type, 309 Z.budgetno, 310 '' zf_itemno, 311 '' zf_itemname, 312 (select bz.org_type from bs_zjly bz where bz.fundno=z.src_id ) ORG_TYPE 313 314 FROM gk_part_refundment Z 315 WHERE Z.id IN 316 (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 317 ) Z 318 order by z.budgetno 319 ) 320 ) 321 ; 322 ---借方： 323 324 select sum(a.fcredit) into v_total from gk_zwentry a where a.fserialnum = v_fserialnum_1 ; 325 326 insert into gk_zwentry 327 (fserialnum, 328 fentryid, 329 facctid, 330 fclsid, 331 fexp, 332 fdebit, 333 fcredit, 334 fbanksettel, 335 ftransid, 336 fcyid, 337 fobjid, 338 zf_itemno, 339 zf_itemname,BUDGETID) 340 SELECT v_fserialnum_1, 341 '1', 342 '100400101', 343 '0', 344 '', 345 v_total, 346 0, 347 '1', 348 '000', 349 'RMB', 350 '*', 351 '', 352 '','100400101,' || substr(fdate,0,4) || ',*,*,*' 353 from dual; 354 ---部分退款 355 insert into gk_zwvch_refer(FSERIALNUM, orign_type,orign_id,voucher_type,origin_teable,fmodule) 356 select v_fserialnum_1 , 357 '3' ORIGN_TYPE, 358 z.id ORIGN_ID, 359 z.voucher_type VOUCHER_TYPE, 360 'GK_PART_REFUNDMENT' ORIGIN_TEABLE, 361 '3' FMODULE 362 from gk_part_refundment z 363 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id); 364 365 elsif opertype='7' then 366 /* 一般支付 退款 367 368 借：1004.001.01其他财政存款.信社存款.农商行活期 369 贷：2017.001[项目]应付代管资金.代管资金 370 371 --代管资金户的项目代码有些特殊。是按照项目名称中的关键字来进行区分转化其项目编码的。 372 */ 373 ---贷方数据插入 374 insert into gk_zwentry(fserialnum,fentryid,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname,budgetid) 375 select fserialnum,ROWNUM+1,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, budgetid from ( 376 select fserialnum,ROWNUM+1,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, 377 budgetno || ',' || year1 || ',' || budget_type || ',' || voucher_type || ',' || SRC_ID budgetid 378 from ( 379 SELECT Z.SRC_ID,Z.voucher_type,z.budget_type,z.budgetno,substr(to_char(sysdate,'yyyy-MM-dd'),0,4) year1, v_fserialnum_1 fserialnum , 380 '2017001' facctid, '1' fclsid , 381 z.purpose fexp,0 fdebit,z.zf_item_amt fcredit,'1' fbanksettel ,z.prjno ftransid,'RMB' fcyid,z.unitno fobjid,z.zf_itemno zf_itemno,z.zf_itemname zf_itemname 382 FROM ( 383 SELECT Z.voucher_type, 384 (select bx.prj_name from bs_xmk bx where bx.prj_code=z.prjno) purpose, 385 z.amt zf_item_amt, 386 (select (case when instr(bx.prj_name,'环保' )>0 then '16' 387 when instr(bx.prj_name,'电力' )>0 then '17' 388 when instr(bx.prj_name,'地下' )>0 then '18' 389 when instr(bx.prj_name,'百村' )>0 then '19' 390 when instr(bx.prj_name,'特色古村' )>0 then '20' 391 when instr(bx.prj_name,'利息收入' )>0 then '21' 392 when instr(bx.prj_name,'五好' )>0 then '22' 393 when instr(bx.prj_name,'扶持' )>0 then '23' else '12' end ) prjno from bs_xmk bx where bx.prj_code=z.prjno) prjno, 394 z.unitno, 395 Z.SRC_ID, 396 Z.budget_type, 397 Z.budgetno, 398 '' zf_itemno, 399 '' zf_itemname, 400 (select bz.org_type from bs_zjly bz where bz.fundno=z.src_id ) ORG_TYPE 401 402 FROM ( select crbd.id as id , '3' voucher_type , crb.reason as refundment_memo , crbd.pay_amt as amt , crbd.prjno as prjno ,crb.unitno ,crb.src_id as SRC_ID ,crbd.budget_type ,crbd.budgetno from common_req_back crb,common_req_back_detail crbd where crb.id=crbd.common_req_back_id) Z 403 WHERE Z.id IN 404 (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 405 ) Z 406 order by z.budgetno 407 ) 408 ) 409 ; 410 ---借方： 411 412 select sum(a.fcredit) into v_total from gk_zwentry a where a.fserialnum = v_fserialnum_1 ; 413 414 insert into gk_zwentry 415 (fserialnum, 416 fentryid, 417 facctid, 418 fclsid, 419 fexp, 420 fdebit, 421 fcredit, 422 fbanksettel, 423 ftransid, 424 fcyid, 425 fobjid, 426 zf_itemno, 427 zf_itemname,BUDGETID) 428 SELECT v_fserialnum_1, 429 '1', 430 '100400101', 431 '0', 432 '', 433 v_total, 434 0, 435 '1', 436 '000', 437 'RMB', 438 '*', 439 '', 440 '','100400101,' || substr(fdate,0,4) || ',*,*,*' 441 from dual; 442 ---部分退款 443 insert into gk_zwvch_refer(FSERIALNUM, orign_type,orign_id,voucher_type,origin_teable,fmodule) 444 select v_fserialnum_1 , 445 '3' ORIGN_TYPE, 446 z.id ORIGN_ID, 447 z.voucher_type VOUCHER_TYPE, 448 'common_req_back_detail' ORIGIN_TEABLE, 449 '3' FMODULE 450 from ( select crbd.id as id , '3' voucher_type , crb.reason as refundment_memo , crbd.pay_amt as amt , crbd.prjno as prjno ,crb.unitno ,crb.src_id as SRC_ID ,crbd.budget_type ,crbd.budgetno from common_req_back crb,common_req_back_detail crbd where crb.id=crbd.common_req_back_id) z 451 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id); 452 end if; 453 --================================================================================================================ 454 --========== 非税收入专户 ======== 455 --================================================================================================================ 456 elsif org_name='非税收入专户' then 457 if opertype='0' or opertype='1'or opertype='6' then 458 459 /* 正常对碰的直接支付 授权支付 一般支付 460 ---资金来源为非税收入 461 借：5005财政专户管理资金支出 [功能分类科目编码 预算单位编码 ] 462 贷：1004.001/002其他财政存款.农行/农商行 463 根据第八点的付款帐号来进行区分：农行、 农商 464 465 会计科目编码组成：5005+功能分类科目编码 466 */ 467 select count(1) into v_count_gkfszh from gk_zfpz Z WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) and z.src_id='013' ; /*非税收入专户*/ 468 if v_count_gkfszh >0 then 469 --插入主表 470 insert into gk_zwvch 471 (fserialnum, 472 FPERIOD, 473 fgroup, 474 fdate, 475 fnum, 476 fpreparer, 477 fattachment, 478 fmodule, 479 jz_database, 480 org_type, 481 jz_fserialnum, 482 orign_type, 483 make_date) 484 select v_fserialnum_1, 485 substr(fdate, 6, 2), 486 i_fgroup, 487 to_date(fdate, 'yyyy-MM-dd'), 488 0, 489 i_fpreparer, 490 v_count_gkfszh, 491 3, 492 i_databasename, 493 '1', --资金来源类型 494 0, 495 v_orign_type, 496 sysdate 497 498 from dual; 499 500 501 ---借方数据插入 502 insert into gk_zwentry(fserialnum,fentryid,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname,budgetid) 503 select fserialnum,ROWNUM,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, budgetid from ( 504 select fserialnum,ROWNUM,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, 505 budgetno || ',' ||substr(fdate,0,4)|| ',' || budget_type || ',' || voucher_type || ',' || SRC_ID budgetid 506 from ( 507 SELECT Z.SRC_ID,Z.voucher_type,z.budget_type,z.budgetno,substr(to_char(sysdate,'yyyy-MM-dd'),0,4) year1, v_fserialnum_1 fserialnum , 508 '5005'||budgetno facctid, 509 '1' fclsid , 510 z.purpose fexp,z.zf_item_amt fdebit,0 fcredit,'1' fbanksettel ,z.prjno ftransid,'RMB' fcyid,z.unitno fobjid,z.zf_itemno zf_itemno,z.zf_itemname zf_itemname 511 FROM ( 512 SELECT Z.voucher_type, 513 '拨清算资金 ' purpose, 514 z.amt zf_item_amt, 515 z.prjno prjno, 516 z.unitno, 517 Z.SRC_ID, 518 Z.budget_type, 519 Z.budgetno, 520 '' zf_itemno, 521 '' zf_itemname, 522 (select bz.org_type from bs_zjly bz where bz.fundno=z.src_id ) ORG_TYPE 523 -- z.AFFIRM_DATE 524 FROM gk_zfpz Z 525 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 526 and z.src_id='013' /*非税收入专户*/ 527 ) Z 528 order by z.budgetno 529 ) 530 ) 531 ; 532 ---贷方： 533 534 select sum(a.fdebit) into v_total from gk_zwentry a where a.fserialnum = v_fserialnum_1 ; 535 select max(a.fentryid) + 1 into v_max_index from gk_zwentry a where a.fserialnum = v_fserialnum_1; 536 insert into gk_zwentry 537 (fserialnum, 538 fentryid, 539 facctid, 540 fclsid, 541 fexp, 542 fdebit, 543 fcredit, 544 fbanksettel, 545 ftransid, 546 fcyid, 547 fobjid, 548 zf_itemno, 549 zf_itemname,BUDGETID) 550 SELECT v_fserialnum_1, 551 v_max_index, 552 (select (case when instr(bz.yswqs_fk_bank, '农村商业') > 0 then '1004001' 553 when instr(bz.yswqs_fk_bank, '农业') > 0 then '1004002' 554 when instr(bz.yswqs_fk_bank, '建设') > 0 then '1004003' 555 else '1004001' end) asfacctid 556 from bs_zjly bz where bz.fundno = '013') , 557 '0', 558 '拨清算资金', 559 0, 560 v_total, 561 '1', 562 '000', 563 'RMB', 564 '*', 565 '', 566 '',(select (case when instr(bz.yswqs_fk_bank, '农村商业') > 0 then '1004001' 567 when instr(bz.yswqs_fk_bank, '农业') > 0 then '1004002' 568 when instr(bz.yswqs_fk_bank, '建设') > 0 then '1004003' 569 else '1004001' end) asfacctid 570 from bs_zjly bz where bz.fundno = '113')||',' ||substr(fdate,0,4)|| ',*,*,*' 571 from dual; 572 573 insert into gk_zwvch_refer(FSERIALNUM, orign_type,orign_id,voucher_type,origin_teable,fmodule) 574 select v_fserialnum_1 , 575 '1' ORIGN_TYPE, 576 z.id ORIGN_ID, 577 z.voucher_type VOUCHER_TYPE, 578 'GK_ZFPZ' ORIGIN_TEABLE, 579 '3' FMODULE 580 from gk_zfpz z 581 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id); 582 end if; 583 584 585 586 /* 正常对碰的直接支付 授权支付 一般支付 587 注：当资金来源为非税收入（上年结转）时 588 借：2011[单位] 应付国库集中支付（根据预算单位编码填列） 589 贷：1004.001/002/004 其他财政存款.农行/农商行/建行 590 根据第八点的付款帐号来进行区分：农行、 农商、 建行 591 592 会计科目编码组成：5005+功能分类科目编码 593 */ 594 595 select count(1) into v_count_gkfszh from gk_zfpz Z WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) and z.src_id='113' ; /*非税收入专户(上年结转)*/ 596 if v_count_gkfszh >0 then 597 ---插入主表 598 insert into gk_zwvch 599 (fserialnum, 600 FPERIOD, 601 fgroup, 602 fdate, 603 fnum, 604 fpreparer, 605 fattachment, 606 fmodule, 607 jz_database, 608 org_type, 609 jz_fserialnum, 610 orign_type, 611 make_date) 612 select v_fserialnum_2, 613 substr(fdate, 6, 2), 614 i_fgroup, 615 to_date(fdate, 'yyyy-MM-dd'), 616 0, 617 i_fpreparer, 618 v_count_gkfszh, 619 3, 620 i_databasename, 621 '1', --资金来源类型 622 0, 623 v_orign_type, 624 sysdate 625 626 from dual; 627 ---借方数据插入 628 insert into gk_zwentry(fserialnum,fentryid,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname,budgetid) 629 select fserialnum,ROWNUM,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, budgetid from ( 630 select fserialnum,ROWNUM,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, 631 budgetno || ',' || year1 || ',' || budget_type || ',' || voucher_type || ',' || SRC_ID budgetid 632 from ( 633 SELECT Z.SRC_ID,Z.voucher_type,z.budget_type,z.budgetno,substr(to_char(sysdate,'yyyy-MM-dd'),0,4) year1, v_fserialnum_2 fserialnum , 634 '2011'||budgetno facctid, 635 '1' fclsid , 636 z.purpose fexp,z.zf_item_amt fdebit,0 fcredit,'1' fbanksettel ,z.prjno ftransid,'RMB' fcyid,z.unitno fobjid,z.zf_itemno zf_itemno,z.zf_itemname zf_itemname 637 FROM ( 638 SELECT Z.voucher_type, 639 '拨清算资金 ' purpose, 640 z.amt zf_item_amt, 641 z.prjno prjno, 642 z.unitno, 643 Z.SRC_ID, 644 Z.budget_type, 645 Z.budgetno, 646 '' zf_itemno, 647 '' zf_itemname, 648 (select bz.org_type from bs_zjly bz where bz.fundno=z.src_id ) ORG_TYPE 649 -- z.AFFIRM_DATE 650 FROM gk_zfpz Z 651 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 652 and z.src_id='113' /*非税收入专户*/ 653 ) Z 654 order by z.budgetno 655 ) 656 ) 657 ; 658 ---贷方： 659 660 select sum(a.fdebit) into v_total from gk_zwentry a where a.fserialnum = v_fserialnum_2 ; 661 select max(a.fentryid) + 1 into v_max_index from gk_zwentry a where a.fserialnum = v_fserialnum_2; 662 insert into gk_zwentry 663 (fserialnum, 664 fentryid, 665 facctid, 666 fclsid, 667 fexp, 668 fdebit, 669 fcredit, 670 fbanksettel, 671 ftransid, 672 fcyid, 673 fobjid, 674 zf_itemno, 675 zf_itemname,BUDGETID) 676 SELECT v_fserialnum_2, 677 v_max_index, 678 (select (case when instr(bz.yswqs_fk_bank, '农村商业') > 0 then '1004001' 679 when instr(bz.yswqs_fk_bank, '农业') > 0 then '1004002' 680 when instr(bz.yswqs_fk_bank, '建设') > 0 then '1004003' 681 else '1004001' end) asfacctid 682 from bs_zjly bz where bz.fundno = '113') , 683 '0', 684 '拨清算资金', 685 0, 686 v_total, 687 '1', 688 '000', 689 'RMB', 690 '*', 691 '', 692 '',(select (case when instr(bz.yswqs_fk_bank, '农村商业') > 0 then '1004001' 693 when instr(bz.yswqs_fk_bank, '农业') > 0 then '1004002' 694 when instr(bz.yswqs_fk_bank, '建设') > 0 then '1004003' 695 else '1004001' end) asfacctid 696 from bs_zjly bz where bz.fundno = '113')||',' || substr(fdate,0,4) || ',*,*,*' 697 from dual; 698 699 insert into gk_zwvch_refer(FSERIALNUM, orign_type,orign_id,voucher_type,origin_teable,fmodule) 700 select v_fserialnum_2 , 701 '1' ORIGN_TYPE, 702 z.id ORIGN_ID, 703 z.voucher_type VOUCHER_TYPE, 704 'GK_ZFPZ' ORIGIN_TEABLE, 705 '3' FMODULE 706 from gk_zfpz z 707 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id); 708 end if; 709 710 711 712 713 elsif opertype='2' or opertype='3' then 714 715 /* 财政专户名称为：全额退款的直接支付 授权支付 716 ---资金来源为非税收入 717 借：1004.001/002其他财政存款.农行/农商行 718 贷：5005财政专户管理资金支出 [功能分类科目编码 预算单位编码 ] 719 根据第八点的付款帐号来进行区分：农行、 农商 720 721 会计科目编码组成：5005+功能分类科目编码 722 */ 723 select count(1) into v_count_gkfszh from gk_zfpz Z WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) and z.src_id='013' ; /*非税收入专户*/ 724 if v_count_gkfszh >0 then 725 --插入主表 726 insert into gk_zwvch 727 (fserialnum, 728 FPERIOD, 729 fgroup, 730 fdate, 731 fnum, 732 fpreparer, 733 fattachment, 734 fmodule, 735 jz_database, 736 org_type, 737 jz_fserialnum, 738 orign_type, 739 make_date) 740 select v_fserialnum_1, 741 substr(fdate, 6, 2), 742 i_fgroup, 743 to_date(fdate, 'yyyy-MM-dd'), 744 0, 745 i_fpreparer, 746 v_count_gkfszh, 747 3, 748 i_databasename, 749 '1', --资金来源类型 750 0, 751 v_orign_type, 752 sysdate 753 754 from dual; 755 756 757 ---贷方数据插入 758 insert into gk_zwentry(fserialnum,fentryid,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname,budgetid) 759 select fserialnum,ROWNUM+1,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, budgetid from ( 760 select fserialnum,ROWNUM+1,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, 761 budgetno || ',' ||substr(fdate,0,4)|| ',' || budget_type || ',' || voucher_type || ',' || SRC_ID budgetid 762 from ( 763 SELECT Z.SRC_ID,Z.voucher_type,z.budget_type,z.budgetno,substr(to_char(sysdate,'yyyy-MM-dd'),0,4) year1, v_fserialnum_1 fserialnum , 764 '5005'||budgetno facctid, 765 '1' fclsid , 766 z.purpose fexp,0 fdebit,z.zf_item_amt fcredit,'1' fbanksettel ,z.prjno ftransid,'RMB' fcyid,z.unitno fobjid,z.zf_itemno zf_itemno,z.zf_itemname zf_itemname 767 FROM ( 768 SELECT Z.voucher_type, 769 '拨清算资金 ' purpose, 770 z.amt zf_item_amt, 771 z.prjno prjno, 772 z.unitno, 773 Z.SRC_ID, 774 Z.budget_type, 775 Z.budgetno, 776 '' zf_itemno, 777 '' zf_itemname, 778 (select bz.org_type from bs_zjly bz where bz.fundno=z.src_id ) ORG_TYPE 779 -- z.AFFIRM_DATE 780 FROM gk_zfpz Z 781 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 782 and z.src_id='013' /*非税收入专户*/ 783 ) Z 784 order by z.budgetno 785 ) 786 ) 787 ; 788 ---借方： 789 790 select sum(a.fcredit) into v_total from gk_zwentry a where a.fserialnum = v_fserialnum_1 ; 791 792 insert into gk_zwentry 793 (fserialnum, 794 fentryid, 795 facctid, 796 fclsid, 797 fexp, 798 fdebit, 799 fcredit, 800 fbanksettel, 801 ftransid, 802 fcyid, 803 fobjid, 804 zf_itemno, 805 zf_itemname,BUDGETID) 806 SELECT v_fserialnum_1, 807 '1', 808 (select (case when instr(bz.yswqs_fk_bank, '农村商业') > 0 then '1004001' 809 when instr(bz.yswqs_fk_bank, '农业') > 0 then '1004002' 810 when instr(bz.yswqs_fk_bank, '建设') > 0 then '1004003' 811 else '1004001' end) asfacctid 812 from bs_zjly bz where bz.fundno = '013') , 813 '0', 814 '拨清算资金', 815 v_total, 816 0, 817 '1', 818 '000', 819 'RMB', 820 '*', 821 '', 822 '',(select (case when instr(bz.yswqs_fk_bank, '农村商业') > 0 then '1004001' 823 when instr(bz.yswqs_fk_bank, '农业') > 0 then '1004002' 824 when instr(bz.yswqs_fk_bank, '建设') > 0 then '1004003' 825 else '1004001' end) asfacctid 826 from bs_zjly bz where bz.fundno = '113')||',' ||substr(fdate,0,4)|| ',*,*,*' 827 from dual; 828 829 insert into gk_zwvch_refer(FSERIALNUM, orign_type,orign_id,voucher_type,origin_teable,fmodule) 830 select v_fserialnum_1 , 831 '3' ORIGN_TYPE, 832 z.id ORIGN_ID, 833 z.voucher_type VOUCHER_TYPE, 834 'GK_ZFPZ' ORIGIN_TEABLE, 835 '3' FMODULE 836 from gk_zfpz z 837 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id ) and z.src_id='013' ; 838 end if; 839 840 841 842 /* 正常对碰的直接支付 授权支付 一般支付 843 注：当资金来源为非税收入（上年结转）时 844 借： 1004.001/002/004 其他财政存款.农行/农商行/建行 845 贷： 2011[单位] 应付国库集中支付（根据预算单位编码填列 846 根据第八点的付款帐号来进行区分：农行、 农商、 建行 847 848 会计科目编码组成：5005+功能分类科目编码 849 */ 850 851 select count(1) into v_count_gkfszh from gk_zfpz Z WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) and z.src_id='113' ; /*非税收入专户(上年结转)*/ 852 if v_count_gkfszh >0 then 853 ---插入主表 854 insert into gk_zwvch 855 (fserialnum, 856 FPERIOD, 857 fgroup, 858 fdate, 859 fnum, 860 fpreparer, 861 fattachment, 862 fmodule, 863 jz_database, 864 org_type, 865 jz_fserialnum, 866 orign_type, 867 make_date) 868 select v_fserialnum_2, 869 substr(fdate, 6, 2), 870 i_fgroup, 871 to_date(fdate, 'yyyy-MM-dd'), 872 0, 873 i_fpreparer, 874 v_count_gkfszh, 875 3, 876 i_databasename, 877 '1', --资金来源类型 878 0, 879 v_orign_type, 880 sysdate 881 882 from dual; 883 ---贷方数据插入 884 insert into gk_zwentry(fserialnum,fentryid,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname,budgetid) 885 select fserialnum,ROWNUM+1,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, budgetid from ( 886 select fserialnum,ROWNUM+1,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, 887 budgetno || ',' || year1 || ',' || budget_type || ',' || voucher_type || ',' || SRC_ID budgetid 888 from ( 889 SELECT Z.SRC_ID,Z.voucher_type,z.budget_type,z.budgetno,substr(to_char(sysdate,'yyyy-MM-dd'),0,4) year1, v_fserialnum_2 fserialnum , 890 '2011'||budgetno facctid, 891 '1' fclsid , 892 z.purpose fexp,0 fdebit, z.zf_item_amt fcredit,'1' fbanksettel ,z.prjno ftransid,'RMB' fcyid,z.unitno fobjid,z.zf_itemno zf_itemno,z.zf_itemname zf_itemname 893 FROM ( 894 SELECT Z.voucher_type, 895 '拨清算资金 ' purpose, 896 z.amt zf_item_amt, 897 z.prjno prjno, 898 z.unitno, 899 Z.SRC_ID, 900 Z.budget_type, 901 Z.budgetno, 902 '' zf_itemno, 903 '' zf_itemname, 904 (select bz.org_type from bs_zjly bz where bz.fundno=z.src_id ) ORG_TYPE 905 -- z.AFFIRM_DATE 906 FROM gk_zfpz Z 907 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 908 and z.src_id='113' /*非税收入专户*/ 909 ) Z 910 order by z.budgetno 911 ) 912 ) 913 ; 914 ---借方： 915 916 select sum(a.fcredit) into v_total from gk_zwentry a where a.fserialnum = v_fserialnum_2 ; 917 918 insert into gk_zwentry 919 (fserialnum, 920 fentryid, 921 facctid, 922 fclsid, 923 fexp, 924 fdebit, 925 fcredit, 926 fbanksettel, 927 ftransid, 928 fcyid, 929 fobjid, 930 zf_itemno, 931 zf_itemname,BUDGETID) 932 SELECT v_fserialnum_2, 933 '1', 934 (select (case when instr(bz.yswqs_fk_bank, '农村商业') > 0 then '1004001' 935 when instr(bz.yswqs_fk_bank, '农业') > 0 then '1004002' 936 when instr(bz.yswqs_fk_bank, '建设') > 0 then '1004003' 937 else '1004001' end) asfacctid 938 from bs_zjly bz where bz.fundno = '113') , 939 '0', 940 '拨清算资金', 941 v_total, 942 0, 943 944 '1', 945 '000', 946 'RMB', 947 '*', 948 '', 949 '',(select (case when instr(bz.yswqs_fk_bank, '农村商业') > 0 then '1004001' 950 when instr(bz.yswqs_fk_bank, '农业') > 0 then '1004002' 951 when instr(bz.yswqs_fk_bank, '建设') > 0 then '1004003' 952 else '1004001' end) asfacctid 953 from bs_zjly bz where bz.fundno = '113')||',' || substr(fdate,0,4) || ',*,*,*' 954 from dual; 955 956 insert into gk_zwvch_refer(FSERIALNUM, orign_type,orign_id,voucher_type,origin_teable,fmodule) 957 select v_fserialnum_2 , 958 '3' ORIGN_TYPE, 959 z.id ORIGN_ID, 960 z.voucher_type VOUCHER_TYPE, 961 'GK_ZFPZ' ORIGIN_TEABLE, 962 '3' FMODULE 963 from gk_zfpz z 964 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 965 and z.src_id='113' /*非税收入专户*/ ; 966 end if; 967 968 969 970 elsif opertype='4' or opertype='5' then 971 972 /* 财政专户名称为：部分退款的直接支付 授权支付 973 ---资金来源为非税收入 974 借：1004.001/002其他财政存款.农行/农商行 975 贷：5005财政专户管理资金支出 [功能分类科目编码 预算单位编码 ] 976 根据第八点的付款帐号来进行区分：农行、 农商 977 978 会计科目编码组成：5005+功能分类科目编码 979 */ 980 select count(1) into v_count_gkfszh from gk_part_refundment Z WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) and z.src_id='013' ; /*非税收入专户*/ 981 if v_count_gkfszh >0 then 982 --插入主表 983 insert into gk_zwvch 984 (fserialnum, 985 FPERIOD, 986 fgroup, 987 fdate, 988 fnum, 989 fpreparer, 990 fattachment, 991 fmodule, 992 jz_database, 993 org_type, 994 jz_fserialnum, 995 orign_type, 996 make_date) 997 select v_fserialnum_1, 998 substr(fdate, 6, 2), 999 i_fgroup, 1000 to_date(fdate, 'yyyy-MM-dd'), 1001 0, 1002 i_fpreparer, 1003 v_count_gkfszh, 1004 3, 1005 i_databasename, 1006 '1', --资金来源类型 1007 0, 1008 v_orign_type, 1009 sysdate 1010 1011 from dual; 1012 1013 1014 ---贷方数据插入 1015 insert into gk_zwentry(fserialnum,fentryid,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname,budgetid) 1016 select fserialnum,ROWNUM+1,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, budgetid from ( 1017 select fserialnum,ROWNUM+1,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, 1018 budgetno || ',' ||substr(fdate,0,4)|| ',' || budget_type || ',' || voucher_type || ',' || SRC_ID budgetid 1019 from ( 1020 SELECT Z.SRC_ID,Z.voucher_type,z.budget_type,z.budgetno,substr(to_char(sysdate,'yyyy-MM-dd'),0,4) year1, v_fserialnum_1 fserialnum , 1021 '5005'||budgetno facctid, 1022 '1' fclsid , 1023 z.purpose fexp,0 fdebit,z.zf_item_amt fcredit,'1' fbanksettel ,z.prjno ftransid,'RMB' fcyid,z.unitno fobjid,z.zf_itemno zf_itemno,z.zf_itemname zf_itemname 1024 FROM ( 1025 SELECT Z.voucher_type, 1026 '拨清算资金 ' purpose, 1027 z.amt zf_item_amt, 1028 z.prjno prjno, 1029 z.unitno, 1030 Z.SRC_ID, 1031 Z.budget_type, 1032 Z.budgetno, 1033 '' zf_itemno, 1034 '' zf_itemname, 1035 (select bz.org_type from bs_zjly bz where bz.fundno=z.src_id ) ORG_TYPE 1036 -- z.AFFIRM_DATE 1037 FROM gk_part_refundment Z 1038 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 1039 and z.src_id='013' /*非税收入专户*/ 1040 ) Z 1041 order by z.budgetno 1042 ) 1043 ) 1044 ; 1045 ---借方： 1046 1047 select sum(a.fcredit) into v_total from gk_zwentry a where a.fserialnum = v_fserialnum_1 ; 1048 1049 insert into gk_zwentry 1050 (fserialnum, 1051 fentryid, 1052 facctid, 1053 fclsid, 1054 fexp, 1055 fdebit, 1056 fcredit, 1057 fbanksettel, 1058 ftransid, 1059 fcyid, 1060 fobjid, 1061 zf_itemno, 1062 zf_itemname,BUDGETID) 1063 SELECT v_fserialnum_1, 1064 '1', 1065 (select (case when instr(bz.yswqs_fk_bank, '农村商业') > 0 then '1004001' 1066 when instr(bz.yswqs_fk_bank, '农业') > 0 then '1004002' 1067 when instr(bz.yswqs_fk_bank, '建设') > 0 then '1004003' 1068 else '1004001' end) asfacctid 1069 from bs_zjly bz where bz.fundno = '013') , 1070 '0', 1071 '拨清算资金', 1072 v_total, 1073 0, 1074 '1', 1075 '000', 1076 'RMB', 1077 '*', 1078 '', 1079 '',(select (case when instr(bz.yswqs_fk_bank, '农村商业') > 0 then '1004001' 1080 when instr(bz.yswqs_fk_bank, '农业') > 0 then '1004002' 1081 when instr(bz.yswqs_fk_bank, '建设') > 0 then '1004003' 1082 else '1004001' end) asfacctid 1083 from bs_zjly bz where bz.fundno = '113')||',' ||substr(fdate,0,4)|| ',*,*,*' 1084 from dual; 1085 1086 insert into gk_zwvch_refer(FSERIALNUM, orign_type,orign_id,voucher_type,origin_teable,fmodule) 1087 select v_fserialnum_1 , 1088 '3' ORIGN_TYPE, 1089 z.id ORIGN_ID, 1090 z.voucher_type VOUCHER_TYPE, 1091 'GK_PART_REFUNDMENT' ORIGIN_TEABLE, 1092 '3' FMODULE 1093 from gk_part_refundment z 1094 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id ) and z.src_id='013' ; 1095 end if; 1096 1097 1098 1099 /* 部分退款的直接支付 授权支付 1100 注：当资金来源为非税收入（上年结转）时 1101 借： 1004.001/002/004 其他财政存款.农行/农商行/建行 1102 贷： 2011[单位] 应付国库集中支付（根据预算单位编码填列 1103 根据第八点的付款帐号来进行区分：农行、 农商、 建行 1104 1105 会计科目编码组成：5005+功能分类科目编码 1106 */ 1107 1108 select count(1) into v_count_gkfszh from gk_part_refundment Z WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) and z.src_id='113' ; /*非税收入专户(上年结转)*/ 1109 if v_count_gkfszh >0 then 1110 ---插入主表 1111 insert into gk_zwvch 1112 (fserialnum, 1113 FPERIOD, 1114 fgroup, 1115 fdate, 1116 fnum, 1117 fpreparer, 1118 fattachment, 1119 fmodule, 1120 jz_database, 1121 org_type, 1122 jz_fserialnum, 1123 orign_type, 1124 make_date) 1125 select v_fserialnum_2, 1126 substr(fdate, 6, 2), 1127 i_fgroup, 1128 to_date(fdate, 'yyyy-MM-dd'), 1129 0, 1130 i_fpreparer, 1131 v_count_gkfszh, 1132 3, 1133 i_databasename, 1134 '1', --资金来源类型 1135 0, 1136 v_orign_type, 1137 sysdate 1138 1139 from dual; 1140 ---贷方数据插入 1141 insert into gk_zwentry(fserialnum,fentryid,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname,budgetid) 1142 select fserialnum,ROWNUM+1,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, budgetid from ( 1143 select fserialnum,ROWNUM+1,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, 1144 budgetno || ',' || year1 || ',' || budget_type || ',' || voucher_type || ',' || SRC_ID budgetid 1145 from ( 1146 SELECT Z.SRC_ID,Z.voucher_type,z.budget_type,z.budgetno,substr(to_char(sysdate,'yyyy-MM-dd'),0,4) year1, v_fserialnum_2 fserialnum , 1147 '2011'||budgetno facctid, 1148 '1' fclsid , 1149 z.purpose fexp,0 fdebit, z.zf_item_amt fcredit,'1' fbanksettel ,z.prjno ftransid,'RMB' fcyid,z.unitno fobjid,z.zf_itemno zf_itemno,z.zf_itemname zf_itemname 1150 FROM ( 1151 SELECT Z.voucher_type, 1152 '拨清算资金 ' purpose, 1153 z.amt zf_item_amt, 1154 z.prjno prjno, 1155 z.unitno, 1156 Z.SRC_ID, 1157 Z.budget_type, 1158 Z.budgetno, 1159 '' zf_itemno, 1160 '' zf_itemname, 1161 (select bz.org_type from bs_zjly bz where bz.fundno=z.src_id ) ORG_TYPE 1162 -- z.AFFIRM_DATE 1163 FROM gk_part_refundment Z 1164 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 1165 and z.src_id='113' /*非税收入专户*/ 1166 ) Z 1167 order by z.budgetno 1168 ) 1169 ) 1170 ; 1171 ---借方： 1172 1173 select sum(a.fcredit) into v_total from gk_zwentry a where a.fserialnum = v_fserialnum_2 ; 1174 1175 insert into gk_zwentry 1176 (fserialnum, 1177 fentryid, 1178 facctid, 1179 fclsid, 1180 fexp, 1181 fdebit, 1182 fcredit, 1183 fbanksettel, 1184 ftransid, 1185 fcyid, 1186 fobjid, 1187 zf_itemno, 1188 zf_itemname,BUDGETID) 1189 SELECT v_fserialnum_2, 1190 '1', 1191 (select (case when instr(bz.yswqs_fk_bank, '农村商业') > 0 then '1004001' 1192 when instr(bz.yswqs_fk_bank, '农业') > 0 then '1004002' 1193 when instr(bz.yswqs_fk_bank, '建设') > 0 then '1004003' 1194 else '1004001' end) asfacctid 1195 from bs_zjly bz where bz.fundno = '113') , 1196 '0', 1197 '拨清算资金', 1198 v_total, 1199 0, 1200 1201 '1', 1202 '000', 1203 'RMB', 1204 '*', 1205 '', 1206 '',(select (case when instr(bz.yswqs_fk_bank, '农村商业') > 0 then '1004001' 1207 when instr(bz.yswqs_fk_bank, '农业') > 0 then '1004002' 1208 when instr(bz.yswqs_fk_bank, '建设') > 0 then '1004003' 1209 else '1004001' end) asfacctid 1210 from bs_zjly bz where bz.fundno = '113')||',' || substr(fdate,0,4) || ',*,*,*' 1211 from dual; 1212 1213 insert into gk_zwvch_refer(FSERIALNUM, orign_type,orign_id,voucher_type,origin_teable,fmodule) 1214 select v_fserialnum_2 , 1215 '3' ORIGN_TYPE, 1216 z.id ORIGN_ID, 1217 z.voucher_type VOUCHER_TYPE, 1218 'GK_PART_REFUNDMENT' ORIGIN_TEABLE, 1219 '3' FMODULE 1220 from gk_part_refundment z 1221 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 1222 and z.src_id='113' /*非税收入专户*/ ; 1223 end if; 1224 1225 1226 1227 1228 1229 1230 1231 1232 elsif opertype='7' then 1233 /* 财政专户名称为：部分退款的一般支付 1234 ---资金来源为非税收入 1235 借：1004.001/002其他财政存款.农行/农商行 1236 贷：5005财政专户管理资金支出 [功能分类科目编码 预算单位编码 ] 1237 根据第八点的付款帐号来进行区分：农行、 农商 1238 1239 会计科目编码组成：5005+功能分类科目编码 1240 */ 1241 select count(1) into v_count_gkfszh from ( select crbd.id as id , '3' voucher_type , crb.reason as refundment_memo , crbd.pay_amt as amt , crbd.prjno as prjno ,crb.unitno ,crb.src_id as SRC_ID ,crbd.budget_type ,crbd.budgetno from common_req_back crb,common_req_back_detail crbd where crb.id=crbd.common_req_back_id) Z WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) and z.src_id='013' ; /*非税收入专户*/ 1242 if v_count_gkfszh >0 then 1243 --插入主表 1244 insert into gk_zwvch 1245 (fserialnum, 1246 FPERIOD, 1247 fgroup, 1248 fdate, 1249 fnum, 1250 fpreparer, 1251 fattachment, 1252 fmodule, 1253 jz_database, 1254 org_type, 1255 jz_fserialnum, 1256 orign_type, 1257 make_date) 1258 select v_fserialnum_1, 1259 substr(fdate, 6, 2), 1260 i_fgroup, 1261 to_date(fdate, 'yyyy-MM-dd'), 1262 0, 1263 i_fpreparer, 1264 v_count_gkfszh, 1265 3, 1266 i_databasename, 1267 '1', --资金来源类型 1268 0, 1269 v_orign_type, 1270 sysdate 1271 1272 from dual; 1273 1274 1275 ---贷方数据插入 1276 insert into gk_zwentry(fserialnum,fentryid,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname,budgetid) 1277 select fserialnum,ROWNUM+1,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, budgetid from ( 1278 select fserialnum,ROWNUM+1,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, 1279 budgetno || ',' ||substr(fdate,0,4)|| ',' || budget_type || ',' || voucher_type || ',' || SRC_ID budgetid 1280 from ( 1281 SELECT Z.SRC_ID,Z.voucher_type,z.budget_type,z.budgetno,substr(to_char(sysdate,'yyyy-MM-dd'),0,4) year1, v_fserialnum_1 fserialnum , 1282 '5005'||budgetno facctid, 1283 '1' fclsid , 1284 z.purpose fexp,0 fdebit,z.zf_item_amt fcredit,'1' fbanksettel ,z.prjno ftransid,'RMB' fcyid,z.unitno fobjid,z.zf_itemno zf_itemno,z.zf_itemname zf_itemname 1285 FROM ( 1286 SELECT Z.voucher_type, 1287 '拨清算资金 ' purpose, 1288 z.amt zf_item_amt, 1289 z.prjno prjno, 1290 z.unitno, 1291 Z.SRC_ID, 1292 Z.budget_type, 1293 Z.budgetno, 1294 '' zf_itemno, 1295 '' zf_itemname, 1296 (select bz.org_type from bs_zjly bz where bz.fundno=z.src_id ) ORG_TYPE 1297 -- z.AFFIRM_DATE 1298 FROM ( select crbd.id as id , '3' voucher_type , crb.reason as refundment_memo , crbd.pay_amt as amt , crbd.prjno as prjno ,crb.unitno ,crb.src_id as SRC_ID ,crbd.budget_type ,crbd.budgetno from common_req_back crb,common_req_back_detail crbd where crb.id=crbd.common_req_back_id) Z 1299 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 1300 and z.src_id='013' /*非税收入专户*/ 1301 ) Z 1302 order by z.budgetno 1303 ) 1304 ) 1305 ; 1306 ---借方： 1307 1308 select sum(a.fcredit) into v_total from gk_zwentry a where a.fserialnum = v_fserialnum_1 ; 1309 1310 insert into gk_zwentry 1311 (fserialnum, 1312 fentryid, 1313 facctid, 1314 fclsid, 1315 fexp, 1316 fdebit, 1317 fcredit, 1318 fbanksettel, 1319 ftransid, 1320 fcyid, 1321 fobjid, 1322 zf_itemno, 1323 zf_itemname,BUDGETID) 1324 SELECT v_fserialnum_1, 1325 '1', 1326 (select (case when instr(bz.yswqs_fk_bank, '农村商业') > 0 then '1004001' 1327 when instr(bz.yswqs_fk_bank, '农业') > 0 then '1004002' 1328 when instr(bz.yswqs_fk_bank, '建设') > 0 then '1004003' 1329 else '1004001' end) asfacctid 1330 from bs_zjly bz where bz.fundno = '013') , 1331 '0', 1332 '拨清算资金', 1333 v_total, 1334 0, 1335 '1', 1336 '000', 1337 'RMB', 1338 '*', 1339 '', 1340 '',(select (case when instr(bz.yswqs_fk_bank, '农村商业') > 0 then '1004001' 1341 when instr(bz.yswqs_fk_bank, '农业') > 0 then '1004002' 1342 when instr(bz.yswqs_fk_bank, '建设') > 0 then '1004003' 1343 else '1004001' end) asfacctid 1344 from bs_zjly bz where bz.fundno = '113')||',' ||substr(fdate,0,4)|| ',*,*,*' 1345 from dual; 1346 1347 insert into gk_zwvch_refer(FSERIALNUM, orign_type,orign_id,voucher_type,origin_teable,fmodule) 1348 select v_fserialnum_1 , 1349 '3' ORIGN_TYPE, 1350 z.id ORIGN_ID, 1351 z.voucher_type VOUCHER_TYPE, 1352 'common_req_back_detail' ORIGIN_TEABLE, 1353 '3' FMODULE 1354 from ( select crbd.id as id , '3' voucher_type , crb.reason as refundment_memo , crbd.pay_amt as amt , crbd.prjno as prjno ,crb.unitno ,crb.src_id as SRC_ID ,crbd.budget_type ,crbd.budgetno from common_req_back crb,common_req_back_detail crbd where crb.id=crbd.common_req_back_id) z 1355 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id ) and z.src_id='013' ; 1356 end if; 1357 1358 1359 1360 /* 部分退款的 一般支付 1361 注：当资金来源为非税收入（上年结转）时 1362 借： 1004.001/002/004 其他财政存款.农行/农商行/建行 1363 贷： 2011[单位] 应付国库集中支付（根据预算单位编码填列 1364 根据第八点的付款帐号来进行区分：农行、 农商、 建行 1365 1366 会计科目编码组成：5005+功能分类科目编码 1367 */ 1368 1369 select count(1) into v_count_gkfszh from ( select crbd.id as id , '3' voucher_type , crb.reason as refundment_memo , crbd.pay_amt as amt , crbd.prjno as prjno ,crb.unitno ,crb.src_id as SRC_ID ,crbd.budget_type ,crbd.budgetno from common_req_back crb,common_req_back_detail crbd where crb.id=crbd.common_req_back_id) Z WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) and z.src_id='113' ; /*非税收入专户(上年结转)*/ 1370 if v_count_gkfszh >0 then 1371 ---插入主表 1372 insert into gk_zwvch 1373 (fserialnum, 1374 FPERIOD, 1375 fgroup, 1376 fdate, 1377 fnum, 1378 fpreparer, 1379 fattachment, 1380 fmodule, 1381 jz_database, 1382 org_type, 1383 jz_fserialnum, 1384 orign_type, 1385 make_date) 1386 select v_fserialnum_2, 1387 substr(fdate, 6, 2), 1388 i_fgroup, 1389 to_date(fdate, 'yyyy-MM-dd'), 1390 0, 1391 i_fpreparer, 1392 v_count_gkfszh, 1393 3, 1394 i_databasename, 1395 '1', --资金来源类型 1396 0, 1397 v_orign_type, 1398 sysdate 1399 1400 from dual; 1401 ---贷方数据插入 1402 insert into gk_zwentry(fserialnum,fentryid,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname,budgetid) 1403 select fserialnum,ROWNUM+1,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, budgetid from ( 1404 select fserialnum,ROWNUM+1,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, 1405 budgetno || ',' || year1 || ',' || budget_type || ',' || voucher_type || ',' || SRC_ID budgetid 1406 from ( 1407 SELECT Z.SRC_ID,Z.voucher_type,z.budget_type,z.budgetno,substr(to_char(sysdate,'yyyy-MM-dd'),0,4) year1, v_fserialnum_2 fserialnum , 1408 '2011'||budgetno facctid, 1409 '1' fclsid , 1410 z.purpose fexp,0 fdebit, z.zf_item_amt fcredit,'1' fbanksettel ,z.prjno ftransid,'RMB' fcyid,z.unitno fobjid,z.zf_itemno zf_itemno,z.zf_itemname zf_itemname 1411 FROM ( 1412 SELECT Z.voucher_type, 1413 '拨清算资金 ' purpose, 1414 z.amt zf_item_amt, 1415 z.prjno prjno, 1416 z.unitno, 1417 Z.SRC_ID, 1418 Z.budget_type, 1419 Z.budgetno, 1420 '' zf_itemno, 1421 '' zf_itemname, 1422 (select bz.org_type from bs_zjly bz where bz.fundno=z.src_id ) ORG_TYPE 1423 -- z.AFFIRM_DATE 1424 FROM ( select crbd.id as id , '3' voucher_type , crb.reason as refundment_memo , crbd.pay_amt as amt , crbd.prjno as prjno ,crb.unitno ,crb.src_id as SRC_ID ,crbd.budget_type ,crbd.budgetno from common_req_back crb,common_req_back_detail crbd where crb.id=crbd.common_req_back_id) Z 1425 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 1426 and z.src_id='113' /*非税收入专户*/ 1427 ) Z 1428 order by z.budgetno 1429 ) 1430 ) 1431 ; 1432 ---借方： 1433 1434 select sum(a.fcredit) into v_total from gk_zwentry a where a.fserialnum = v_fserialnum_2 ; 1435 1436 insert into gk_zwentry 1437 (fserialnum, 1438 fentryid, 1439 facctid, 1440 fclsid, 1441 fexp, 1442 fdebit, 1443 fcredit, 1444 fbanksettel, 1445 ftransid, 1446 fcyid, 1447 fobjid, 1448 zf_itemno, 1449 zf_itemname,BUDGETID) 1450 SELECT v_fserialnum_2, 1451 '1', 1452 (select (case when instr(bz.yswqs_fk_bank, '农村商业') > 0 then '1004001' 1453 when instr(bz.yswqs_fk_bank, '农业') > 0 then '1004002' 1454 when instr(bz.yswqs_fk_bank, '建设') > 0 then '1004003' 1455 else '1004001' end) as facctid 1456 from bs_zjly bz where bz.fundno = '113') , 1457 '0', 1458 '拨清算资金', 1459 v_total, 1460 0, 1461 1462 '1', 1463 '000', 1464 'RMB', 1465 '*', 1466 '', 1467 '',(select (case when instr(bz.yswqs_fk_bank, '农村商业') > 0 then '1004001' 1468 when instr(bz.yswqs_fk_bank, '农业') > 0 then '1004002' 1469 when instr(bz.yswqs_fk_bank, '建设') > 0 then '1004003' 1470 else '1004001' end) as facctid 1471 from bs_zjly bz where bz.fundno = '113')||',' || substr(fdate,0,4) || ',*,*,*' 1472 from dual; 1473 1474 insert into gk_zwvch_refer(FSERIALNUM, orign_type,orign_id,voucher_type,origin_teable,fmodule) 1475 select v_fserialnum_2 , 1476 '3' ORIGN_TYPE, 1477 z.id ORIGN_ID, 1478 z.voucher_type VOUCHER_TYPE, 1479 'common_req_back_detail' ORIGIN_TEABLE, 1480 '3' FMODULE 1481 from ( select crbd.id as id , '3' voucher_type , crb.reason as refundment_memo , crbd.pay_amt as amt , crbd.prjno as prjno ,crb.unitno ,crb.src_id as SRC_ID ,crbd.budget_type ,crbd.budgetno from common_req_back crb,common_req_back_detail crbd where crb.id=crbd.common_req_back_id) z 1482 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 1483 and z.src_id='113' /*非税收入专户*/ ; 1484 end if; 1485 1486 1487 1488 1489 end if; 1490 --================================================================================================================ 1491 --========== 机关事业单位养老保险专户 ======== 1492 --================================================================================================================ 1493 elsif org_name='机关事业单位养老保险专户' then 1494 if opertype='0' or opertype='1' or opertype='6' then 1495 1496 /* 1497 借:5005.209.11.01[预算单位]财政专户管理资金支出.社会保险基金支出.机关事业单位基本养老保险基金支出.基本养老支出 1498 贷：1003.001.01财政专户存款.农商行.活期 1499 1500 会计科目编码组成：5005+功能分类科目编码 1501 1502 */ 1503 1504 insert into gk_zwvch 1505 (fserialnum, 1506 FPERIOD, 1507 fgroup, 1508 fdate, 1509 fnum, 1510 fpreparer, 1511 fattachment, 1512 fmodule, 1513 jz_database, 1514 org_type, 1515 jz_fserialnum, 1516 orign_type, 1517 make_date) 1518 select v_fserialnum_1, 1519 substr(fdate, 6, 2), 1520 i_fgroup, 1521 to_date(fdate, 'yyyy-MM-dd'), 1522 0, 1523 i_fpreparer, 1524 i_fattachment, 1525 3, 1526 i_databasename, 1527 '1', --资金来源类型 1528 0, 1529 v_orign_type, 1530 sysdate 1531 1532 from dual; 1533 1534 1535 ---借方数据插入 1536 insert into gk_zwentry(fserialnum,fentryid,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname,budgetid) 1537 select fserialnum,ROWNUM,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, budgetid from ( 1538 select fserialnum,ROWNUM,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, 1539 budgetno || ',' ||substr(fdate,0,4)|| ',' || budget_type || ',' || voucher_type || ',' || SRC_ID budgetid 1540 from ( 1541 SELECT Z.SRC_ID,Z.voucher_type,z.budget_type,z.budgetno,substr(to_char(sysdate,'yyyy-MM-dd'),0,4) year1, v_fserialnum_1 fserialnum , 1542 '50052091101' facctid, 1543 '1' fclsid , 1544 z.purpose fexp,z.zf_item_amt fdebit,0 fcredit,'1' fbanksettel ,z.prjno ftransid,'RMB' fcyid,z.unitno fobjid,z.zf_itemno zf_itemno,z.zf_itemname zf_itemname 1545 FROM ( 1546 SELECT Z.voucher_type, 1547 '拨清算资金' purpose, 1548 z.amt zf_item_amt, 1549 z.prjno prjno, 1550 z.unitno, 1551 Z.SRC_ID, 1552 Z.budget_type, 1553 Z.budgetno, 1554 '' zf_itemno, 1555 '' zf_itemname, 1556 (select bz.org_type from bs_zjly bz where bz.fundno=z.src_id ) ORG_TYPE 1557 -- z.AFFIRM_DATE 1558 FROM gk_zfpz Z 1559 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 1560 ) Z 1561 order by z.budgetno 1562 ) 1563 ) 1564 ; 1565 ---贷方： 1566 1567 select sum(a.fdebit) into v_total from gk_zwentry a where a.fserialnum = v_fserialnum_1 ; 1568 select max(a.fentryid) + 1 into v_max_index from gk_zwentry a where a.fserialnum = v_fserialnum_1; 1569 insert into gk_zwentry 1570 (fserialnum, 1571 fentryid, 1572 facctid, 1573 fclsid, 1574 fexp, 1575 fdebit, 1576 fcredit, 1577 fbanksettel, 1578 ftransid, 1579 fcyid, 1580 fobjid, 1581 zf_itemno, 1582 zf_itemname,BUDGETID) 1583 SELECT v_fserialnum_1, 1584 v_max_index, 1585 '100300101' as facctid , 1586 '0', 1587 '拨清算资金', 1588 0, 1589 v_total, 1590 '1', 1591 '000', 1592 'RMB', 1593 '*', 1594 '', 1595 '','100300101'||',' ||substr(fdate,0,4)|| ',*,*,*' 1596 from dual; 1597 1598 insert into gk_zwvch_refer(FSERIALNUM, orign_type,orign_id,voucher_type,origin_teable,fmodule) 1599 select v_fserialnum_1 , 1600 '1' ORIGN_TYPE, 1601 z.id ORIGN_ID, 1602 z.voucher_type VOUCHER_TYPE, 1603 'GK_ZFPZ' ORIGIN_TEABLE, 1604 '3' FMODULE 1605 from gk_zfpz z 1606 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) ; 1607 1608 1609 1610 1611 1612 1613 elsif opertype='2' or opertype='3' then 1614 1615 /* 1616 （2）收退回清算资金 1617 借:?? 1003.001.01财政专户存款.农商行.活期 1618 贷：5005.209.11.01[预算单位]财政专户管理资金支出.社会保险基金支出.机关事业单位基本养老保险基金支出.基本养老支出 1619 1620 1621 会计科目编码组成：5005+功能分类科目编码 1622 1623 */ 1624 insert into gk_zwvch 1625 (fserialnum, 1626 FPERIOD, 1627 fgroup, 1628 fdate, 1629 fnum, 1630 fpreparer, 1631 fattachment, 1632 fmodule, 1633 jz_database, 1634 org_type, 1635 jz_fserialnum, 1636 orign_type, 1637 make_date) 1638 select v_fserialnum_1, 1639 substr(fdate, 6, 2), 1640 i_fgroup, 1641 to_date(fdate, 'yyyy-MM-dd'), 1642 0, 1643 i_fpreparer, 1644 i_fattachment, 1645 3, 1646 i_databasename, 1647 '1', --资金来源类型 1648 0, 1649 v_orign_type, 1650 sysdate 1651 1652 from dual; 1653 1654 1655 ---借方数据插入 1656 insert into gk_zwentry(fserialnum,fentryid,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname,budgetid) 1657 select fserialnum,ROWNUM+1,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, budgetid from ( 1658 select fserialnum,ROWNUM+1,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, 1659 budgetno || ',' ||substr(fdate,0,4)|| ',' || budget_type || ',' || voucher_type || ',' || SRC_ID budgetid 1660 from ( 1661 SELECT Z.SRC_ID,Z.voucher_type,z.budget_type,z.budgetno,substr(to_char(sysdate,'yyyy-MM-dd'),0,4) year1, v_fserialnum_1 fserialnum , 1662 '50052091101' facctid, 1663 '1' fclsid , 1664 z.purpose fexp,0 fdebit,z.zf_item_amt fcredit,'1' fbanksettel ,z.prjno ftransid,'RMB' fcyid,z.unitno fobjid,z.zf_itemno zf_itemno,z.zf_itemname zf_itemname 1665 FROM ( 1666 SELECT Z.voucher_type, 1667 '拨清算资金' purpose, 1668 z.amt zf_item_amt, 1669 z.prjno prjno, 1670 z.unitno, 1671 Z.SRC_ID, 1672 Z.budget_type, 1673 Z.budgetno, 1674 '' zf_itemno, 1675 '' zf_itemname, 1676 (select bz.org_type from bs_zjly bz where bz.fundno=z.src_id ) ORG_TYPE 1677 -- z.AFFIRM_DATE 1678 FROM gk_zfpz Z 1679 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 1680 ) Z 1681 order by z.budgetno 1682 ) 1683 ) 1684 ; 1685 ---借方： 1686 1687 select sum(a.fcredit) into v_total from gk_zwentry a where a.fserialnum = v_fserialnum_1 ; 1688 insert into gk_zwentry 1689 (fserialnum, 1690 fentryid, 1691 facctid, 1692 fclsid, 1693 fexp, 1694 fdebit, 1695 fcredit, 1696 fbanksettel, 1697 ftransid, 1698 fcyid, 1699 fobjid, 1700 zf_itemno, 1701 zf_itemname,BUDGETID) 1702 SELECT v_fserialnum_1, 1703 1, 1704 '100300101' as facctid , 1705 '0', 1706 '拨清算资金', 1707 v_total, 1708 0, 1709 1710 '1', 1711 '000', 1712 'RMB', 1713 '*', 1714 '', 1715 '','100300101'||',' ||substr(fdate,0,4)|| ',*,*,*' 1716 from dual; 1717 1718 insert into gk_zwvch_refer(FSERIALNUM, orign_type,orign_id,voucher_type,origin_teable,fmodule) 1719 select v_fserialnum_1 , 1720 '1' ORIGN_TYPE, 1721 z.id ORIGN_ID, 1722 z.voucher_type VOUCHER_TYPE, 1723 'GK_ZFPZ' ORIGIN_TEABLE, 1724 '3' FMODULE 1725 from gk_zfpz z 1726 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) ; 1727 1728 1729 1730 1731 1732 elsif opertype='4' or opertype='5' then 1733 1734 1735 /* 1736 收退回清算资金 1737 借:?? 1003.001.01财政专户存款.农商行.活期 1738 贷：5005.209.11.01[预算单位]财政专户管理资金支出.社会保险基金支出.机关事业单位基本养老保险基金支出.基本养老支出 1739 1740 1741 会计科目编码组成：5005+功能分类科目编码 1742 1743 */ 1744 insert into gk_zwvch 1745 (fserialnum, 1746 FPERIOD, 1747 fgroup, 1748 fdate, 1749 fnum, 1750 fpreparer, 1751 fattachment, 1752 fmodule, 1753 jz_database, 1754 org_type, 1755 jz_fserialnum, 1756 orign_type, 1757 make_date) 1758 select v_fserialnum_1, 1759 substr(fdate, 6, 2), 1760 i_fgroup, 1761 to_date(fdate, 'yyyy-MM-dd'), 1762 0, 1763 i_fpreparer, 1764 i_fattachment, 1765 3, 1766 i_databasename, 1767 '1', --资金来源类型 1768 0, 1769 v_orign_type, 1770 sysdate 1771 1772 from dual; 1773 1774 1775 1776 ---借方数据插入 1777 insert into gk_zwentry(fserialnum,fentryid,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname,budgetid) 1778 select fserialnum,ROWNUM+1,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, budgetid from ( 1779 select fserialnum,ROWNUM+1,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, 1780 budgetno || ',' ||substr(fdate,0,4)|| ',' || budget_type || ',' || voucher_type || ',' || SRC_ID budgetid 1781 from ( 1782 SELECT Z.SRC_ID,Z.voucher_type,z.budget_type,z.budgetno,substr(to_char(sysdate,'yyyy-MM-dd'),0,4) year1, v_fserialnum_1 fserialnum , 1783 '50052091101' facctid, 1784 '1' fclsid , 1785 z.purpose fexp,0 fdebit,z.zf_item_amt fcredit,'1' fbanksettel ,z.prjno ftransid,'RMB' fcyid,z.unitno fobjid,z.zf_itemno zf_itemno,z.zf_itemname zf_itemname 1786 FROM ( 1787 SELECT Z.voucher_type, 1788 '拨清算资金' purpose, 1789 z.amt zf_item_amt, 1790 z.prjno prjno, 1791 z.unitno, 1792 Z.SRC_ID, 1793 Z.budget_type, 1794 Z.budgetno, 1795 '' zf_itemno, 1796 '' zf_itemname, 1797 (select bz.org_type from bs_zjly bz where bz.fundno=z.src_id ) ORG_TYPE 1798 -- z.AFFIRM_DATE 1799 FROM GK_PART_REFUNDMENT Z 1800 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 1801 ) Z 1802 order by z.budgetno 1803 ) 1804 ) 1805 ; 1806 1807 ---借方： 1808 1809 select sum(a.fcredit) into v_total from gk_zwentry a where a.fserialnum = v_fserialnum_1 ; 1810 insert into gk_zwentry 1811 (fserialnum, 1812 fentryid, 1813 facctid, 1814 fclsid, 1815 fexp, 1816 fdebit, 1817 fcredit, 1818 fbanksettel, 1819 ftransid, 1820 fcyid, 1821 fobjid, 1822 zf_itemno, 1823 zf_itemname,BUDGETID) 1824 SELECT v_fserialnum_1, 1825 1, 1826 '100300101' as facctid , 1827 '0', 1828 '拨清算资金', 1829 v_total, 1830 0, 1831 1832 '1', 1833 '000', 1834 'RMB', 1835 '*', 1836 '', 1837 '','100300101'||',' ||substr(fdate,0,4)|| ',*,*,*' 1838 from dual; 1839 1840 1841 insert into gk_zwvch_refer(FSERIALNUM, orign_type,orign_id,voucher_type,origin_teable,fmodule) 1842 select v_fserialnum_1 , 1843 '1' ORIGN_TYPE, 1844 z.id ORIGN_ID, 1845 z.voucher_type VOUCHER_TYPE, 1846 'GK_PART_REFUNDMENT' ORIGIN_TEABLE, 1847 '3' FMODULE 1848 from GK_PART_REFUNDMENT z 1849 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) ; 1850 1851 1852 1853 elsif opertype='7' then 1854 1855 /* 1856 收退回清算资金 1857 借:?? 1003.001.01财政专户存款.农商行.活期 1858 贷：5005.209.11.01[预算单位]财政专户管理资金支出.社会保险基金支出.机关事业单位基本养老保险基金支出.基本养老支出 1859 1860 1861 会计科目编码组成：5005+功能分类科目编码 1862 1863 */ 1864 insert into gk_zwvch 1865 (fserialnum, 1866 FPERIOD, 1867 fgroup, 1868 fdate, 1869 fnum, 1870 fpreparer, 1871 fattachment, 1872 fmodule, 1873 jz_database, 1874 org_type, 1875 jz_fserialnum, 1876 orign_type, 1877 make_date) 1878 select v_fserialnum_1, 1879 substr(fdate, 6, 2), 1880 i_fgroup, 1881 to_date(fdate, 'yyyy-MM-dd'), 1882 0, 1883 i_fpreparer, 1884 i_fattachment, 1885 3, 1886 i_databasename, 1887 '1', --资金来源类型 1888 0, 1889 v_orign_type, 1890 sysdate 1891 1892 from dual; 1893 1894 1895 1896 ---借方数据插入 1897 insert into gk_zwentry(fserialnum,fentryid,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname,budgetid) 1898 select fserialnum,ROWNUM+1,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, budgetid from ( 1899 select fserialnum,ROWNUM+1,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, 1900 budgetno || ',' ||substr(fdate,0,4)|| ',' || budget_type || ',' || voucher_type || ',' || SRC_ID budgetid 1901 from ( 1902 SELECT Z.SRC_ID,Z.voucher_type,z.budget_type,z.budgetno,substr(to_char(sysdate,'yyyy-MM-dd'),0,4) year1, v_fserialnum_1 fserialnum , 1903 '50052091101' facctid, 1904 '1' fclsid , 1905 z.purpose fexp,0 fdebit,z.zf_item_amt fcredit,'1' fbanksettel ,z.prjno ftransid,'RMB' fcyid,z.unitno fobjid,z.zf_itemno zf_itemno,z.zf_itemname zf_itemname 1906 FROM ( 1907 SELECT Z.voucher_type, 1908 '拨清算资金' purpose, 1909 z.amt zf_item_amt, 1910 z.prjno prjno, 1911 z.unitno, 1912 Z.SRC_ID, 1913 Z.budget_type, 1914 Z.budgetno, 1915 '' zf_itemno, 1916 '' zf_itemname, 1917 (select bz.org_type from bs_zjly bz where bz.fundno=z.src_id ) ORG_TYPE 1918 -- z.AFFIRM_DATE 1919 FROM ( select crbd.id as id , '3' voucher_type , crb.reason as refundment_memo , crbd.pay_amt as amt , crbd.prjno as prjno ,crb.unitno ,crb.src_id as SRC_ID ,crbd.budget_type ,crbd.budgetno from common_req_back crb,common_req_back_detail crbd where crb.id=crbd.common_req_back_id) Z 1920 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 1921 ) Z 1922 order by z.budgetno 1923 ) 1924 ) 1925 ; 1926 1927 ---借方： 1928 1929 select sum(a.fcredit) into v_total from gk_zwentry a where a.fserialnum = v_fserialnum_1 ; 1930 insert into gk_zwentry 1931 (fserialnum, 1932 fentryid, 1933 facctid, 1934 fclsid, 1935 fexp, 1936 fdebit, 1937 fcredit, 1938 fbanksettel, 1939 ftransid, 1940 fcyid, 1941 fobjid, 1942 zf_itemno, 1943 zf_itemname,BUDGETID) 1944 SELECT v_fserialnum_1, 1945 1, 1946 '100300101' as facctid , 1947 '0', 1948 '拨清算资金', 1949 v_total, 1950 0, 1951 1952 '1', 1953 '000', 1954 'RMB', 1955 '*', 1956 '', 1957 '','100300101'||',' ||substr(fdate,0,4)|| ',*,*,*' 1958 from dual; 1959 1960 1961 insert into gk_zwvch_refer(FSERIALNUM, orign_type,orign_id,voucher_type,origin_teable,fmodule) 1962 select v_fserialnum_1 , 1963 '1' ORIGN_TYPE, 1964 z.id ORIGN_ID, 1965 z.voucher_type VOUCHER_TYPE, 1966 'common_req_back_detail' ORIGIN_TEABLE, 1967 '3' FMODULE 1968 from ( select crbd.id as id , '3' voucher_type , crb.reason as refundment_memo , crbd.pay_amt as amt , crbd.prjno as prjno ,crb.unitno ,crb.src_id as SRC_ID ,crbd.budget_type ,crbd.budgetno from common_req_back crb,common_req_back_detail crbd where crb.id=crbd.common_req_back_id) z 1969 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) ; 1970 1971 1972 end if; 1973 1974 1975 --================================================================================================================ 1976 --========== 全征地农民养老保险专户 ======== 1977 --================================================================================================================ 1978 elsif org_name='全征地农民养老保险专户' then 1979 if opertype='0' or opertype='1' or opertype='6' then 1980 /* 1981 支出 1982 借:5005.208.99.01[预算单位]财政专户管理资金支出.社会保障与就业.其他社会保障与就业支出.其他社会保障与就业支出 1983 贷：1003.001.01财政专户存款.农商行.活期 1984 1985 */ 1986 insert into gk_zwvch 1987 (fserialnum, 1988 FPERIOD, 1989 fgroup, 1990 fdate, 1991 fnum, 1992 fpreparer, 1993 fattachment, 1994 fmodule, 1995 jz_database, 1996 org_type, 1997 jz_fserialnum, 1998 orign_type, 1999 make_date) 2000 select v_fserialnum_1, 2001 substr(fdate, 6, 2), 2002 i_fgroup, 2003 to_date(fdate, 'yyyy-MM-dd'), 2004 0, 2005 i_fpreparer, 2006 i_fattachment, 2007 3, 2008 i_databasename, 2009 '1', --资金来源类型 2010 0, 2011 v_orign_type, 2012 sysdate 2013 2014 from dual; 2015 2016 2017 ---借方数据插入 2018 insert into gk_zwentry(fserialnum,fentryid,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname,budgetid) 2019 select fserialnum,ROWNUM,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, budgetid from ( 2020 select fserialnum,ROWNUM,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, 2021 budgetno || ',' ||substr(fdate,0,4)|| ',' || budget_type || ',' || voucher_type || ',' || SRC_ID budgetid 2022 from ( 2023 SELECT Z.SRC_ID,Z.voucher_type,z.budget_type,z.budgetno,substr(to_char(sysdate,'yyyy-MM-dd'),0,4) year1, v_fserialnum_1 fserialnum , 2024 '50052089901' facctid, 2025 '1' fclsid , 2026 z.purpose fexp,z.zf_item_amt fdebit,0 fcredit,'1' fbanksettel ,z.prjno ftransid,'RMB' fcyid,z.unitno fobjid,z.zf_itemno zf_itemno,z.zf_itemname zf_itemname 2027 FROM ( 2028 SELECT Z.voucher_type, 2029 '拨清算资金' purpose, 2030 z.amt zf_item_amt, 2031 z.prjno prjno, 2032 z.unitno, 2033 Z.SRC_ID, 2034 Z.budget_type, 2035 Z.budgetno, 2036 '' zf_itemno, 2037 '' zf_itemname, 2038 (select bz.org_type from bs_zjly bz where bz.fundno=z.src_id ) ORG_TYPE 2039 -- z.AFFIRM_DATE 2040 FROM gk_zfpz Z 2041 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 2042 ) Z 2043 order by z.budgetno 2044 ) 2045 ) 2046 ; 2047 ---贷方： 2048 2049 select sum(a.fdebit) into v_total from gk_zwentry a where a.fserialnum = v_fserialnum_1 ; 2050 select max(a.fentryid) + 1 into v_max_index from gk_zwentry a where a.fserialnum = v_fserialnum_1; 2051 insert into gk_zwentry 2052 (fserialnum, 2053 fentryid, 2054 facctid, 2055 fclsid, 2056 fexp, 2057 fdebit, 2058 fcredit, 2059 fbanksettel, 2060 ftransid, 2061 fcyid, 2062 fobjid, 2063 zf_itemno, 2064 zf_itemname,BUDGETID) 2065 SELECT v_fserialnum_1, 2066 v_max_index, 2067 '100300101' as facctid , 2068 '0', 2069 '拨清算资金', 2070 0, 2071 v_total, 2072 '1', 2073 '000', 2074 'RMB', 2075 '*', 2076 '', 2077 '','100300101'||',' ||substr(fdate,0,4)|| ',*,*,*' 2078 from dual; 2079 2080 insert into gk_zwvch_refer(FSERIALNUM, orign_type,orign_id,voucher_type,origin_teable,fmodule) 2081 select v_fserialnum_1 , 2082 '1' ORIGN_TYPE, 2083 z.id ORIGN_ID, 2084 z.voucher_type VOUCHER_TYPE, 2085 'GK_ZFPZ' ORIGIN_TEABLE, 2086 '3' FMODULE 2087 from gk_zfpz z 2088 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) ; 2089 2090 2091 2092 elsif opertype='2' or opertype='3' then 2093 2094 /* 2095 退款 2096 借: 1003.001.01财政专户存款.农商行.活期 2097 贷：5005.208.99.01[预算单位]财政专户管理资金支出.社会保障与就业.其他社会保障与就业支出.其他社会保障与就业支出 2098 2099 */ 2100 insert into gk_zwvch 2101 (fserialnum, 2102 FPERIOD, 2103 fgroup, 2104 fdate, 2105 fnum, 2106 fpreparer, 2107 fattachment, 2108 fmodule, 2109 jz_database, 2110 org_type, 2111 jz_fserialnum, 2112 orign_type, 2113 make_date) 2114 select v_fserialnum_1, 2115 substr(fdate, 6, 2), 2116 i_fgroup, 2117 to_date(fdate, 'yyyy-MM-dd'), 2118 0, 2119 i_fpreparer, 2120 i_fattachment, 2121 3, 2122 i_databasename, 2123 '1', --资金来源类型 2124 0, 2125 v_orign_type, 2126 sysdate 2127 2128 from dual; 2129 2130 2131 ---借方数据插入 2132 insert into gk_zwentry(fserialnum,fentryid,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname,budgetid) 2133 select fserialnum,ROWNUM+1,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, budgetid from ( 2134 select fserialnum,ROWNUM+1,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, 2135 budgetno || ',' ||substr(fdate,0,4)|| ',' || budget_type || ',' || voucher_type || ',' || SRC_ID budgetid 2136 from ( 2137 SELECT Z.SRC_ID,Z.voucher_type,z.budget_type,z.budgetno,substr(to_char(sysdate,'yyyy-MM-dd'),0,4) year1, v_fserialnum_1 fserialnum , 2138 '50052089901' facctid, 2139 '1' fclsid , 2140 z.purpose fexp,0 fdebit,z.zf_item_amt fcredit,'1' fbanksettel ,z.prjno ftransid,'RMB' fcyid,z.unitno fobjid,z.zf_itemno zf_itemno,z.zf_itemname zf_itemname 2141 FROM ( 2142 SELECT Z.voucher_type, 2143 '拨清算资金' purpose, 2144 z.amt zf_item_amt, 2145 z.prjno prjno, 2146 z.unitno, 2147 Z.SRC_ID, 2148 Z.budget_type, 2149 Z.budgetno, 2150 '' zf_itemno, 2151 '' zf_itemname, 2152 (select bz.org_type from bs_zjly bz where bz.fundno=z.src_id ) ORG_TYPE 2153 -- z.AFFIRM_DATE 2154 FROM gk_zfpz Z 2155 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 2156 ) Z 2157 order by z.budgetno 2158 ) 2159 ) 2160 ; 2161 ---借方： 2162 2163 select sum(a.fcredit) into v_total from gk_zwentry a where a.fserialnum = v_fserialnum_1 ; 2164 insert into gk_zwentry 2165 (fserialnum, 2166 fentryid, 2167 facctid, 2168 fclsid, 2169 fexp, 2170 fdebit, 2171 fcredit, 2172 fbanksettel, 2173 ftransid, 2174 fcyid, 2175 fobjid, 2176 zf_itemno, 2177 zf_itemname,BUDGETID) 2178 SELECT v_fserialnum_1, 2179 1, 2180 '100300101' as facctid , 2181 '0', 2182 '拨清算资金', 2183 v_total, 2184 0, 2185 2186 '1', 2187 '000', 2188 'RMB', 2189 '*', 2190 '', 2191 '','100300101'||',' ||substr(fdate,0,4)|| ',*,*,*' 2192 from dual; 2193 2194 insert into gk_zwvch_refer(FSERIALNUM, orign_type,orign_id,voucher_type,origin_teable,fmodule) 2195 select v_fserialnum_1 , 2196 '1' ORIGN_TYPE, 2197 z.id ORIGN_ID, 2198 z.voucher_type VOUCHER_TYPE, 2199 'GK_ZFPZ' ORIGIN_TEABLE, 2200 '3' FMODULE 2201 from gk_zfpz z 2202 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) ; 2203 2204 2205 2206 2207 2208 elsif opertype='4' or opertype='5' then 2209 /* 2210 退款 2211 借: 1003.001.01财政专户存款.农商行.活期 2212 贷：5005.208.99.01[预算单位]财政专户管理资金支出.社会保障与就业.其他社会保障与就业支出.其他社会保障与就业支出 2213 2214 */ 2215 insert into gk_zwvch 2216 (fserialnum, 2217 FPERIOD, 2218 fgroup, 2219 fdate, 2220 fnum, 2221 fpreparer, 2222 fattachment, 2223 fmodule, 2224 jz_database, 2225 org_type, 2226 jz_fserialnum, 2227 orign_type, 2228 make_date) 2229 select v_fserialnum_1, 2230 substr(fdate, 6, 2), 2231 i_fgroup, 2232 to_date(fdate, 'yyyy-MM-dd'), 2233 0, 2234 i_fpreparer, 2235 i_fattachment, 2236 3, 2237 i_databasename, 2238 '1', --资金来源类型 2239 0, 2240 v_orign_type, 2241 sysdate 2242 2243 from dual; 2244 2245 2246 ---借方数据插入 2247 insert into gk_zwentry(fserialnum,fentryid,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname,budgetid) 2248 select fserialnum,ROWNUM+1,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, budgetid from ( 2249 select fserialnum,ROWNUM+1,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, 2250 budgetno || ',' ||substr(fdate,0,4)|| ',' || budget_type || ',' || voucher_type || ',' || SRC_ID budgetid 2251 from ( 2252 SELECT Z.SRC_ID,Z.voucher_type,z.budget_type,z.budgetno,substr(to_char(sysdate,'yyyy-MM-dd'),0,4) year1, v_fserialnum_1 fserialnum , 2253 '50052089901' facctid, 2254 '1' fclsid , 2255 z.purpose fexp,0 fdebit,z.zf_item_amt fcredit,'1' fbanksettel ,z.prjno ftransid,'RMB' fcyid,z.unitno fobjid,z.zf_itemno zf_itemno,z.zf_itemname zf_itemname 2256 FROM ( 2257 SELECT Z.voucher_type, 2258 '拨清算资金' purpose, 2259 z.amt zf_item_amt, 2260 z.prjno prjno, 2261 z.unitno, 2262 Z.SRC_ID, 2263 Z.budget_type, 2264 Z.budgetno, 2265 '' zf_itemno, 2266 '' zf_itemname, 2267 (select bz.org_type from bs_zjly bz where bz.fundno=z.src_id ) ORG_TYPE 2268 -- z.AFFIRM_DATE 2269 FROM GK_PART_REFUNDMENT Z 2270 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 2271 ) Z 2272 order by z.budgetno 2273 ) 2274 ) 2275 ; 2276 ---借方： 2277 2278 select sum(a.fcredit) into v_total from gk_zwentry a where a.fserialnum = v_fserialnum_1 ; 2279 insert into gk_zwentry 2280 (fserialnum, 2281 fentryid, 2282 facctid, 2283 fclsid, 2284 fexp, 2285 fdebit, 2286 fcredit, 2287 fbanksettel, 2288 ftransid, 2289 fcyid, 2290 fobjid, 2291 zf_itemno, 2292 zf_itemname,BUDGETID) 2293 SELECT v_fserialnum_1, 2294 1, 2295 '100300101' as facctid , 2296 '0', 2297 '拨清算资金', 2298 v_total, 2299 0, 2300 2301 '1', 2302 '000', 2303 'RMB', 2304 '*', 2305 '', 2306 '','100300101'||',' ||substr(fdate,0,4)|| ',*,*,*' 2307 from dual; 2308 2309 insert into gk_zwvch_refer(FSERIALNUM, orign_type,orign_id,voucher_type,origin_teable,fmodule) 2310 select v_fserialnum_1 , 2311 '1' ORIGN_TYPE, 2312 z.id ORIGN_ID, 2313 z.voucher_type VOUCHER_TYPE, 2314 'GK_PART_REFUNDMENT' ORIGIN_TEABLE, 2315 '3' FMODULE 2316 from GK_PART_REFUNDMENT z 2317 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) ; 2318 2319 2320 2321 elsif opertype='7' then 2322 /* 2323 退款 2324 借: 1003.001.01财政专户存款.农商行.活期 2325 贷：5005.208.99.01[预算单位]财政专户管理资金支出.社会保障与就业.其他社会保障与就业支出.其他社会保障与就业支出 2326 2327 */ 2328 insert into gk_zwvch 2329 (fserialnum, 2330 FPERIOD, 2331 fgroup, 2332 fdate, 2333 fnum, 2334 fpreparer, 2335 fattachment, 2336 fmodule, 2337 jz_database, 2338 org_type, 2339 jz_fserialnum, 2340 orign_type, 2341 make_date) 2342 select v_fserialnum_1, 2343 substr(fdate, 6, 2), 2344 i_fgroup, 2345 to_date(fdate, 'yyyy-MM-dd'), 2346 0, 2347 i_fpreparer, 2348 i_fattachment, 2349 3, 2350 i_databasename, 2351 '1', --资金来源类型 2352 0, 2353 v_orign_type, 2354 sysdate 2355 2356 from dual; 2357 2358 2359 ---借方数据插入 2360 insert into gk_zwentry(fserialnum,fentryid,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname,budgetid) 2361 select fserialnum,ROWNUM+1,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, budgetid from ( 2362 select fserialnum,ROWNUM+1,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, 2363 budgetno || ',' ||substr(fdate,0,4)|| ',' || budget_type || ',' || voucher_type || ',' || SRC_ID budgetid 2364 from ( 2365 SELECT Z.SRC_ID,Z.voucher_type,z.budget_type,z.budgetno,substr(to_char(sysdate,'yyyy-MM-dd'),0,4) year1, v_fserialnum_1 fserialnum , 2366 '50052089901' facctid, 2367 '1' fclsid , 2368 z.purpose fexp,0 fdebit,z.zf_item_amt fcredit,'1' fbanksettel ,z.prjno ftransid,'RMB' fcyid,z.unitno fobjid,z.zf_itemno zf_itemno,z.zf_itemname zf_itemname 2369 FROM ( 2370 SELECT Z.voucher_type, 2371 '拨清算资金' purpose, 2372 z.amt zf_item_amt, 2373 z.prjno prjno, 2374 z.unitno, 2375 Z.SRC_ID, 2376 Z.budget_type, 2377 Z.budgetno, 2378 '' zf_itemno, 2379 '' zf_itemname, 2380 (select bz.org_type from bs_zjly bz where bz.fundno=z.src_id ) ORG_TYPE 2381 -- z.AFFIRM_DATE 2382 FROM ( select crbd.id as id , '3' voucher_type , crb.reason as refundment_memo , crbd.pay_amt as amt , crbd.prjno as prjno ,crb.unitno ,crb.src_id as SRC_ID ,crbd.budget_type ,crbd.budgetno from common_req_back crb,common_req_back_detail crbd where crb.id=crbd.common_req_back_id) Z 2383 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 2384 ) Z 2385 order by z.budgetno 2386 ) 2387 ) 2388 ; 2389 ---借方： 2390 2391 select sum(a.fcredit) into v_total from gk_zwentry a where a.fserialnum = v_fserialnum_1 ; 2392 insert into gk_zwentry 2393 (fserialnum, 2394 fentryid, 2395 facctid, 2396 fclsid, 2397 fexp, 2398 fdebit, 2399 fcredit, 2400 fbanksettel, 2401 ftransid, 2402 fcyid, 2403 fobjid, 2404 zf_itemno, 2405 zf_itemname,BUDGETID) 2406 SELECT v_fserialnum_1, 2407 1, 2408 '100300101' as facctid , 2409 '0', 2410 '拨清算资金', 2411 v_total, 2412 0, 2413 2414 '1', 2415 '000', 2416 'RMB', 2417 '*', 2418 '', 2419 '','100300101'||',' ||substr(fdate,0,4)|| ',*,*,*' 2420 from dual; 2421 2422 insert into gk_zwvch_refer(FSERIALNUM, orign_type,orign_id,voucher_type,origin_teable,fmodule) 2423 select v_fserialnum_1 , 2424 '1' ORIGN_TYPE, 2425 z.id ORIGN_ID, 2426 z.voucher_type VOUCHER_TYPE, 2427 'common_req_back_detail' ORIGIN_TEABLE, 2428 '3' FMODULE 2429 from ( select crbd.id as id , '3' voucher_type , crb.reason as refundment_memo , crbd.pay_amt as amt , crbd.prjno as prjno ,crb.unitno ,crb.src_id as SRC_ID ,crbd.budget_type ,crbd.budgetno from common_req_back crb,common_req_back_detail crbd where crb.id=crbd.common_req_back_id) z 2430 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) ; 2431 2432 2433 2434 end if; 2435 2436 2437 2438 --================================================================================================================ 2439 --========== 社会保障基金财政专户(工伤) ======== 2440 --================================================================================================================ 2441 elsif org_name='社会保障基金财政专户(工伤)' then 2442 if opertype='0' or opertype='1' or opertype='6' then 2443 /* 2444 （1）工伤 ：上划社保资金（人行） 2445 借：2001.001暂收款.工伤/失业/医疗统筹资金 2446 贷：1003.003财政专户存款.人民银行 2447 2448 人行社保专户 190606000004273090 中国人民银行顺德支行 2449 2450 */ 2451 select count(1) into v_count_gkfszh from gk_zfpz Z WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) and z.src_id in ('00S','007') and z.purpose like '%工伤%' and z.fk_account in ('190606000004273090' ); /*社会保障基金财政专户(工伤)*/ 2452 if v_count_gkfszh >0 then 2453 --插入主表 2454 insert into gk_zwvch 2455 (fserialnum, 2456 FPERIOD, 2457 fgroup, 2458 fdate, 2459 fnum, 2460 fpreparer, 2461 fattachment, 2462 fmodule, 2463 jz_database, 2464 org_type, 2465 jz_fserialnum, 2466 orign_type, 2467 make_date) 2468 select v_fserialnum_1, 2469 substr(fdate, 6, 2), 2470 i_fgroup, 2471 to_date(fdate, 'yyyy-MM-dd'), 2472 0, 2473 i_fpreparer, 2474 v_count_gkfszh, 2475 3, 2476 i_databasename, 2477 '1', --资金来源类型 2478 0, 2479 v_orign_type, 2480 sysdate 2481 2482 from dual; 2483 2484 2485 ---借方数据插入 2486 insert into gk_zwentry(fserialnum,fentryid,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname,budgetid) 2487 select fserialnum,ROWNUM,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, budgetid from ( 2488 select fserialnum,ROWNUM,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, 2489 budgetno || ',' ||substr(fdate,0,4)|| ',' || budget_type || ',' || voucher_type || ',' || SRC_ID budgetid 2490 from ( 2491 SELECT Z.SRC_ID,Z.voucher_type,z.budget_type,z.budgetno,substr(to_char(sysdate,'yyyy-MM-dd'),0,4) year1, v_fserialnum_1 fserialnum , 2492 '2001001' facctid, 2493 '1' fclsid , 2494 z.purpose fexp,z.zf_item_amt fdebit,0 fcredit,'1' fbanksettel ,z.prjno ftransid,'RMB' fcyid,z.unitno fobjid,z.zf_itemno zf_itemno,z.zf_itemname zf_itemname 2495 FROM ( 2496 SELECT Z.voucher_type, 2497 z.purpose purpose, 2498 z.amt zf_item_amt, 2499 z.prjno prjno, 2500 z.unitno, 2501 Z.SRC_ID, 2502 Z.budget_type, 2503 Z.budgetno, 2504 '' zf_itemno, 2505 '' zf_itemname, 2506 (select bz.org_type from bs_zjly bz where bz.fundno=z.src_id ) ORG_TYPE 2507 -- z.AFFIRM_DATE 2508 FROM gk_zfpz Z 2509 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 2510 and z.src_id in ('00S','007') and z.purpose like '%工伤%' and z.fk_account in ('190606000004273090' ) 2511 ) Z 2512 order by z.budgetno 2513 ) 2514 ) 2515 ; 2516 ---贷方： 2517 2518 select sum(a.fdebit) into v_total from gk_zwentry a where a.fserialnum = v_fserialnum_1 ; 2519 select max(a.fentryid) + 1 into v_max_index from gk_zwentry a where a.fserialnum = v_fserialnum_1; 2520 insert into gk_zwentry 2521 (fserialnum, 2522 fentryid, 2523 facctid, 2524 fclsid, 2525 fexp, 2526 fdebit, 2527 fcredit, 2528 fbanksettel, 2529 ftransid, 2530 fcyid, 2531 fobjid, 2532 zf_itemno, 2533 zf_itemname,BUDGETID) 2534 SELECT v_fserialnum_1, 2535 v_max_index, 2536 '1003003' as facctid , 2537 '0', 2538 '', 2539 0, 2540 v_total, 2541 '1', 2542 '000', 2543 'RMB', 2544 '*', 2545 '', 2546 '','1003003'||',' ||substr(fdate,0,4)|| ',*,*,*' 2547 from dual; 2548 2549 insert into gk_zwvch_refer(FSERIALNUM, orign_type,orign_id,voucher_type,origin_teable,fmodule) 2550 select v_fserialnum_1 , 2551 '1' ORIGN_TYPE, 2552 z.id ORIGN_ID, 2553 z.voucher_type VOUCHER_TYPE, 2554 'GK_ZFPZ' ORIGIN_TEABLE, 2555 '3' FMODULE 2556 from gk_zfpz z 2557 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) and z.src_id in ('00S','007') and z.purpose like '%工伤%' and z.fk_account in ('190606000004273090' ); 2558 end if; 2559 2560 2561 2562 2563 2564 2565 /* 2566 （2）工伤 ：上划社保资金（农行） 2567 借：2001.001暂收款.工伤/失业/医疗统筹资金 2568 贷：1003.002财政专户存款.工伤/失业/医疗市级统筹专户 2569 社会保障基金专户（市级统筹工伤） 465001040021376-0000000006 中国农业银行股份有限公司顺德清晖支行 2570 */ 2571 select count(1) into v_count_gkfszh from gk_zfpz Z WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) and z.src_id in ('00S','007') and z.purpose like '%工伤%' and z.fk_account='44465001040021376-0000000006'; /*社会保障基金财政专户(工伤)*/ 2572 if v_count_gkfszh >0 then 2573 --插入主表 2574 insert into gk_zwvch 2575 (fserialnum, 2576 FPERIOD, 2577 fgroup, 2578 fdate, 2579 fnum, 2580 fpreparer, 2581 fattachment, 2582 fmodule, 2583 jz_database, 2584 org_type, 2585 jz_fserialnum, 2586 orign_type, 2587 make_date) 2588 select v_fserialnum_2, 2589 substr(fdate, 6, 2), 2590 i_fgroup, 2591 to_date(fdate, 'yyyy-MM-dd'), 2592 0, 2593 i_fpreparer, 2594 v_count_gkfszh, 2595 3, 2596 i_databasename, 2597 '1', --资金来源类型 2598 0, 2599 v_orign_type, 2600 sysdate 2601 2602 from dual; 2603 2604 2605 ---借方数据插入 2606 insert into gk_zwentry(fserialnum,fentryid,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname,budgetid) 2607 select fserialnum,ROWNUM,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, budgetid from ( 2608 select fserialnum,ROWNUM,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, 2609 budgetno || ',' ||substr(fdate,0,4)|| ',' || budget_type || ',' || voucher_type || ',' || SRC_ID budgetid 2610 from ( 2611 SELECT Z.SRC_ID,Z.voucher_type,z.budget_type,z.budgetno,substr(to_char(sysdate,'yyyy-MM-dd'),0,4) year1, v_fserialnum_2 fserialnum , 2612 '2001001' facctid, 2613 '1' fclsid , 2614 z.purpose fexp,z.zf_item_amt fdebit,0 fcredit,'1' fbanksettel ,z.prjno ftransid,'RMB' fcyid,z.unitno fobjid,z.zf_itemno zf_itemno,z.zf_itemname zf_itemname 2615 FROM ( 2616 SELECT Z.voucher_type, 2617 z.purpose purpose, 2618 z.amt zf_item_amt, 2619 z.prjno prjno, 2620 z.unitno, 2621 Z.SRC_ID, 2622 Z.budget_type, 2623 Z.budgetno, 2624 '' zf_itemno, 2625 '' zf_itemname, 2626 (select bz.org_type from bs_zjly bz where bz.fundno=z.src_id ) ORG_TYPE 2627 -- z.AFFIRM_DATE 2628 FROM gk_zfpz Z 2629 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 2630 and z.src_id in ('00S','007') and z.purpose like '%工伤%' and z.fk_account='44465001040021376-0000000006' 2631 ) Z 2632 order by z.budgetno 2633 ) 2634 ) 2635 ; 2636 ---贷方： 2637 2638 select sum(a.fdebit) into v_total from gk_zwentry a where a.fserialnum = v_fserialnum_2 ; 2639 select max(a.fentryid) + 1 into v_max_index from gk_zwentry a where a.fserialnum = v_fserialnum_2; 2640 insert into gk_zwentry 2641 (fserialnum, 2642 fentryid, 2643 facctid, 2644 fclsid, 2645 fexp, 2646 fdebit, 2647 fcredit, 2648 fbanksettel, 2649 ftransid, 2650 fcyid, 2651 fobjid, 2652 zf_itemno, 2653 zf_itemname,BUDGETID) 2654 SELECT v_fserialnum_2, 2655 v_max_index, 2656 '1003002' as facctid , 2657 '0', 2658 '', 2659 0, 2660 v_total, 2661 '1', 2662 '000', 2663 'RMB', 2664 '*', 2665 '', 2666 '','1003002'||',' ||substr(fdate,0,4)|| ',*,*,*' 2667 from dual; 2668 2669 insert into gk_zwvch_refer(FSERIALNUM, orign_type,orign_id,voucher_type,origin_teable,fmodule) 2670 select v_fserialnum_2 , 2671 '1' ORIGN_TYPE, 2672 z.id ORIGN_ID, 2673 z.voucher_type VOUCHER_TYPE, 2674 'GK_ZFPZ' ORIGIN_TEABLE, 2675 '3' FMODULE 2676 from gk_zfpz z 2677 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) and z.src_id in ('00S','007') and z.purpose like '%工伤%' and z.fk_account='44465001040021376-0000000006' ; 2678 end if; 2679 2680 end if; 2681 2682 2683 2684 --================================================================================================================ 2685 --========== 社会保障基金财政专户(其它) ======== 2686 --================================================================================================================ 2687 elsif org_name='社会保障基金财政专户(其它)' then 2688 if opertype='0' or opertype='1' or opertype='6' then 2689 /* 2690 -- 正常对碰的 直接支付 授权支付 一般支付 2691 借：5005财政专户管理资金支出[功能分类科目编码 预算单位编码] 2692 贷：1004.005.01其他财政存款.残疾人事业专项资金.农行活期（需与功能分类科目相对应） 2693 取功能分类科目名称中的关键字： 残疾 （全部以农行活期结尾） 2694 2695 会计科目编码组成：5005+功能分类科目编码 2696 2697 */ 2698 2699 select count(1) into v_count_gkfszh from gk_zfpz Z WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 2700 and z.budgetno in (select distinct bg.func_bdgid from bs_gnflyskm bg where bg.func_bdgname like '%残疾%'); 2701 if v_count_gkfszh >0 then 2702 --插入主表 2703 insert into gk_zwvch 2704 (fserialnum, 2705 FPERIOD, 2706 fgroup, 2707 fdate, 2708 fnum, 2709 fpreparer, 2710 fattachment, 2711 fmodule, 2712 jz_database, 2713 org_type, 2714 jz_fserialnum, 2715 orign_type, 2716 make_date) 2717 select v_fserialnum_1, 2718 substr(fdate, 6, 2), 2719 i_fgroup, 2720 to_date(fdate, 'yyyy-MM-dd'), 2721 0, 2722 i_fpreparer, 2723 v_count_gkfszh, 2724 3, 2725 i_databasename, 2726 '1', --资金来源类型 2727 0, 2728 v_orign_type, 2729 sysdate 2730 2731 from dual; 2732 2733 2734 ---借方数据插入 2735 insert into gk_zwentry(fserialnum,fentryid,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname,budgetid) 2736 select fserialnum,ROWNUM,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, budgetid from ( 2737 select fserialnum,ROWNUM,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, 2738 budgetno || ',' ||substr(fdate,0,4)|| ',' || budget_type || ',' || voucher_type || ',' || SRC_ID budgetid 2739 from ( 2740 SELECT Z.SRC_ID,Z.voucher_type,z.budget_type,z.budgetno,substr(to_char(sysdate,'yyyy-MM-dd'),0,4) year1, v_fserialnum_1 fserialnum , 2741 '5005'||budgetno facctid, 2742 '1' fclsid , 2743 z.purpose fexp,z.zf_item_amt fdebit,0 fcredit,'1' fbanksettel ,z.prjno ftransid,'RMB' fcyid,z.unitno fobjid,z.zf_itemno zf_itemno,z.zf_itemname zf_itemname 2744 FROM ( 2745 SELECT Z.voucher_type, 2746 z.purpose purpose, 2747 z.amt zf_item_amt, 2748 z.prjno prjno, 2749 z.unitno, 2750 Z.SRC_ID, 2751 Z.budget_type, 2752 Z.budgetno, 2753 '' zf_itemno, 2754 '' zf_itemname, 2755 (select bz.org_type from bs_zjly bz where bz.fundno=z.src_id ) ORG_TYPE 2756 -- z.AFFIRM_DATE 2757 FROM gk_zfpz Z 2758 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 2759 and z.budgetno in (select distinct bg.func_bdgid from bs_gnflyskm bg where bg.func_bdgname like '%残疾%') 2760 ) Z 2761 order by z.budgetno 2762 ) 2763 ) 2764 ; 2765 ---贷方： 2766 2767 select sum(a.fdebit) into v_total from gk_zwentry a where a.fserialnum = v_fserialnum_1 ; 2768 select max(a.fentryid) + 1 into v_max_index from gk_zwentry a where a.fserialnum = v_fserialnum_1; 2769 insert into gk_zwentry 2770 (fserialnum, 2771 fentryid, 2772 facctid, 2773 fclsid, 2774 fexp, 2775 fdebit, 2776 fcredit, 2777 fbanksettel, 2778 ftransid, 2779 fcyid, 2780 fobjid, 2781 zf_itemno, 2782 zf_itemname,BUDGETID) 2783 SELECT v_fserialnum_1, 2784 v_max_index, 2785 '100400501' as facctid , 2786 '0', 2787 '', 2788 0, 2789 v_total, 2790 '1', 2791 '000', 2792 'RMB', 2793 '*', 2794 '', 2795 '','100400501'||',' ||substr(fdate,0,4)|| ',*,*,*' 2796 from dual; 2797 2798 insert into gk_zwvch_refer(FSERIALNUM, orign_type,orign_id,voucher_type,origin_teable,fmodule) 2799 select v_fserialnum_1 , 2800 '1' ORIGN_TYPE, 2801 z.id ORIGN_ID, 2802 z.voucher_type VOUCHER_TYPE, 2803 'GK_ZFPZ' ORIGIN_TEABLE, 2804 '3' FMODULE 2805 from gk_zfpz z 2806 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) and z.budgetno in (select distinct bg.func_bdgid from bs_gnflyskm bg where bg.func_bdgname like '%残疾%') ; 2807 end if; 2808 2809 /* 2810 -- 正常对碰的 直接支付 授权支付 一般支付 2811 借：5005财政专户管理资金支出[功能分类科目编码 预算单位编码] 2812 贷：1004.004.01其他财政存款.医疗救助资金.农行活期（需与功能分类科目相对应） 2813 取功能分类科目名称中的关键字： 医疗 2814 2815 会计科目编码组成：5005+功能分类科目编码 2816 2817 */ 2818 select count(1) into v_count_gkfszh from gk_zfpz Z WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 2819 and z.budgetno in (select distinct bg.func_bdgid from bs_gnflyskm bg where bg.func_bdgname like '%医疗%' and bg.func_bdgname not like '%药品%') ; 2820 if v_count_gkfszh >0 then 2821 --插入主表 2822 insert into gk_zwvch 2823 (fserialnum, 2824 FPERIOD, 2825 fgroup, 2826 fdate, 2827 fnum, 2828 fpreparer, 2829 fattachment, 2830 fmodule, 2831 jz_database, 2832 org_type, 2833 jz_fserialnum, 2834 orign_type, 2835 make_date) 2836 select v_fserialnum_2, 2837 substr(fdate, 6, 2), 2838 i_fgroup, 2839 to_date(fdate, 'yyyy-MM-dd'), 2840 0, 2841 i_fpreparer, 2842 v_count_gkfszh, 2843 3, 2844 i_databasename, 2845 '1', --资金来源类型 2846 0, 2847 v_orign_type, 2848 sysdate 2849 2850 from dual; 2851 2852 2853 ---借方数据插入 2854 insert into gk_zwentry(fserialnum,fentryid,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname,budgetid) 2855 select fserialnum,ROWNUM,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, budgetid from ( 2856 select fserialnum,ROWNUM,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, 2857 budgetno || ',' ||substr(fdate,0,4)|| ',' || budget_type || ',' || voucher_type || ',' || SRC_ID budgetid 2858 from ( 2859 SELECT Z.SRC_ID,Z.voucher_type,z.budget_type,z.budgetno,substr(to_char(sysdate,'yyyy-MM-dd'),0,4) year1, v_fserialnum_2 fserialnum , 2860 '5005'||budgetno facctid, 2861 '1' fclsid , 2862 z.purpose fexp,z.zf_item_amt fdebit,0 fcredit,'1' fbanksettel ,z.prjno ftransid,'RMB' fcyid,z.unitno fobjid,z.zf_itemno zf_itemno,z.zf_itemname zf_itemname 2863 FROM ( 2864 SELECT Z.voucher_type, 2865 z.purpose purpose, 2866 z.amt zf_item_amt, 2867 z.prjno prjno, 2868 z.unitno, 2869 Z.SRC_ID, 2870 Z.budget_type, 2871 Z.budgetno, 2872 '' zf_itemno, 2873 '' zf_itemname, 2874 (select bz.org_type from bs_zjly bz where bz.fundno=z.src_id ) ORG_TYPE 2875 -- z.AFFIRM_DATE 2876 FROM gk_zfpz Z 2877 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 2878 and z.budgetno in (select distinct bg.func_bdgid from bs_gnflyskm bg where bg.func_bdgname like '%医疗%' and bg.func_bdgname not like '%药品%') 2879 ) Z 2880 order by z.budgetno 2881 ) 2882 ) 2883 ; 2884 ---贷方： 2885 2886 select sum(a.fdebit) into v_total from gk_zwentry a where a.fserialnum = v_fserialnum_2 ; 2887 select max(a.fentryid) + 1 into v_max_index from gk_zwentry a where a.fserialnum = v_fserialnum_2; 2888 insert into gk_zwentry 2889 (fserialnum, 2890 fentryid, 2891 facctid, 2892 fclsid, 2893 fexp, 2894 fdebit, 2895 fcredit, 2896 fbanksettel, 2897 ftransid, 2898 fcyid, 2899 fobjid, 2900 zf_itemno, 2901 zf_itemname,BUDGETID) 2902 SELECT v_fserialnum_2, 2903 v_max_index, 2904 '100400401' as facctid , 2905 '0', 2906 '', 2907 0, 2908 v_total, 2909 '1', 2910 '000', 2911 'RMB', 2912 '*', 2913 '', 2914 '','100400401'||',' ||substr(fdate,0,4)|| ',*,*,*' 2915 from dual; 2916 2917 insert into gk_zwvch_refer(FSERIALNUM, orign_type,orign_id,voucher_type,origin_teable,fmodule) 2918 select v_fserialnum_2 , 2919 '1' ORIGN_TYPE, 2920 z.id ORIGN_ID, 2921 z.voucher_type VOUCHER_TYPE, 2922 'GK_ZFPZ' ORIGIN_TEABLE, 2923 '3' FMODULE 2924 from gk_zfpz z 2925 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) and z.budgetno in (select distinct bg.func_bdgid from bs_gnflyskm bg where bg.func_bdgname like '%医疗%' and bg.func_bdgname not like '%药品%' ) ; 2926 end if; 2927 2928 /* 2929 -- 正常对碰的 直接支付 授权支付 一般支付 2930 借：5005财政专户管理资金支出[功能分类科目编码 预算单位编码] 2931 贷：1004.003.01其他财政存款.灵活就业资金.农行活期（需与功能分类科目相对应） 2932 取功能分类科目名称中的关键字：就业 2933 2934 会计科目编码组成：5005+功能分类科目编码 2935 2936 */ 2937 select count(1) into v_count_gkfszh from gk_zfpz Z WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 2938 and z.budgetno in (select distinct bg.func_bdgid from bs_gnflyskm bg where bg.func_bdgname like '%就业%') ; 2939 if v_count_gkfszh >0 then 2940 --插入主表 2941 insert into gk_zwvch 2942 (fserialnum, 2943 FPERIOD, 2944 fgroup, 2945 fdate, 2946 fnum, 2947 fpreparer, 2948 fattachment, 2949 fmodule, 2950 jz_database, 2951 org_type, 2952 jz_fserialnum, 2953 orign_type, 2954 make_date) 2955 select v_fserialnum_3, 2956 substr(fdate, 6, 2), 2957 i_fgroup, 2958 to_date(fdate, 'yyyy-MM-dd'), 2959 0, 2960 i_fpreparer, 2961 v_count_gkfszh, 2962 3, 2963 i_databasename, 2964 '1', --资金来源类型 2965 0, 2966 v_orign_type, 2967 sysdate 2968 2969 from dual; 2970 2971 2972 ---借方数据插入 2973 insert into gk_zwentry(fserialnum,fentryid,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname,budgetid) 2974 select fserialnum,ROWNUM,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, budgetid from ( 2975 select fserialnum,ROWNUM,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, 2976 budgetno || ',' ||substr(fdate,0,4)|| ',' || budget_type || ',' || voucher_type || ',' || SRC_ID budgetid 2977 from ( 2978 SELECT Z.SRC_ID,Z.voucher_type,z.budget_type,z.budgetno,substr(to_char(sysdate,'yyyy-MM-dd'),0,4) year1, v_fserialnum_3 fserialnum , 2979 '5005'||budgetno facctid, 2980 '1' fclsid , 2981 z.purpose fexp,z.zf_item_amt fdebit,0 fcredit,'1' fbanksettel ,z.prjno ftransid,'RMB' fcyid,z.unitno fobjid,z.zf_itemno zf_itemno,z.zf_itemname zf_itemname 2982 FROM ( 2983 SELECT Z.voucher_type, 2984 z.purpose purpose, 2985 z.amt zf_item_amt, 2986 z.prjno prjno, 2987 z.unitno, 2988 Z.SRC_ID, 2989 Z.budget_type, 2990 Z.budgetno, 2991 '' zf_itemno, 2992 '' zf_itemname, 2993 (select bz.org_type from bs_zjly bz where bz.fundno=z.src_id ) ORG_TYPE 2994 -- z.AFFIRM_DATE 2995 FROM gk_zfpz Z 2996 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 2997 and z.budgetno in (select distinct bg.func_bdgid from bs_gnflyskm bg where bg.func_bdgname like '%就业%') 2998 ) Z 2999 order by z.budgetno 3000 ) 3001 ) 3002 ; 3003 ---贷方： 3004 3005 select sum(a.fdebit) into v_total from gk_zwentry a where a.fserialnum = v_fserialnum_3 ; 3006 select max(a.fentryid) + 1 into v_max_index from gk_zwentry a where a.fserialnum = v_fserialnum_3; 3007 insert into gk_zwentry 3008 (fserialnum, 3009 fentryid, 3010 facctid, 3011 fclsid, 3012 fexp, 3013 fdebit, 3014 fcredit, 3015 fbanksettel, 3016 ftransid, 3017 fcyid, 3018 fobjid, 3019 zf_itemno, 3020 zf_itemname,BUDGETID) 3021 SELECT v_fserialnum_3, 3022 v_max_index, 3023 '100400301' as facctid , 3024 '0', 3025 '', 3026 0, 3027 v_total, 3028 '1', 3029 '000', 3030 'RMB', 3031 '*', 3032 '', 3033 '','100400301'||',' ||substr(fdate,0,4)|| ',*,*,*' 3034 from dual; 3035 3036 insert into gk_zwvch_refer(FSERIALNUM, orign_type,orign_id,voucher_type,origin_teable,fmodule) 3037 select v_fserialnum_3 , 3038 '1' ORIGN_TYPE, 3039 z.id ORIGN_ID, 3040 z.voucher_type VOUCHER_TYPE, 3041 'GK_ZFPZ' ORIGIN_TEABLE, 3042 '3' FMODULE 3043 from gk_zfpz z 3044 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) and z.budgetno in (select distinct bg.func_bdgid from bs_gnflyskm bg where bg.func_bdgname like '%就业%') ; 3045 end if; 3046 3047 3048 3049 3050 3051 /* 3052 -- 正常对碰的 直接支付 授权支付 一般支付 3053 借：5005财政专户管理资金支出[功能分类科目编码 预算单位编码] 3054 贷：1004.002.01其他财政存款.其他社会保险基金.农行活期（需与功能分类科目相对应） 3055 取功能分类科目名称中的关键字：社保保险 3056 3057 会计科目编码组成：5005+功能分类科目编码 3058 3059 */ 3060 select count(1) into v_count_gkfszh from gk_zfpz Z WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 3061 and z.budgetno in (select distinct bg.func_bdgid from bs_gnflyskm bg where bg.func_bdgname like '%保险%') ; 3062 if v_count_gkfszh >0 then 3063 --插入主表 3064 insert into gk_zwvch 3065 (fserialnum, 3066 FPERIOD, 3067 fgroup, 3068 fdate, 3069 fnum, 3070 fpreparer, 3071 fattachment, 3072 fmodule, 3073 jz_database, 3074 org_type, 3075 jz_fserialnum, 3076 orign_type, 3077 make_date) 3078 select v_fserialnum_4, 3079 substr(fdate, 6, 2), 3080 i_fgroup, 3081 to_date(fdate, 'yyyy-MM-dd'), 3082 0, 3083 i_fpreparer, 3084 v_count_gkfszh, 3085 3, 3086 i_databasename, 3087 '1', --资金来源类型 3088 0, 3089 v_orign_type, 3090 sysdate 3091 3092 from dual; 3093 3094 3095 ---借方数据插入 3096 insert into gk_zwentry(fserialnum,fentryid,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname,budgetid) 3097 select fserialnum,ROWNUM,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, budgetid from ( 3098 select fserialnum,ROWNUM,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, 3099 budgetno || ',' ||substr(fdate,0,4)|| ',' || budget_type || ',' || voucher_type || ',' || SRC_ID budgetid 3100 from ( 3101 SELECT Z.SRC_ID,Z.voucher_type,z.budget_type,z.budgetno,substr(to_char(sysdate,'yyyy-MM-dd'),0,4) year1, v_fserialnum_4 fserialnum , 3102 '5005'||budgetno facctid, 3103 '1' fclsid , 3104 z.purpose fexp,z.zf_item_amt fdebit,0 fcredit,'1' fbanksettel ,z.prjno ftransid,'RMB' fcyid,z.unitno fobjid,z.zf_itemno zf_itemno,z.zf_itemname zf_itemname 3105 FROM ( 3106 SELECT Z.voucher_type, 3107 z.purpose purpose, 3108 z.amt zf_item_amt, 3109 z.prjno prjno, 3110 z.unitno, 3111 Z.SRC_ID, 3112 Z.budget_type, 3113 Z.budgetno, 3114 '' zf_itemno, 3115 '' zf_itemname, 3116 (select bz.org_type from bs_zjly bz where bz.fundno=z.src_id ) ORG_TYPE 3117 -- z.AFFIRM_DATE 3118 FROM gk_zfpz Z 3119 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 3120 and z.budgetno in (select distinct bg.func_bdgid from bs_gnflyskm bg where bg.func_bdgname like '%保险%') 3121 ) Z 3122 order by z.budgetno 3123 ) 3124 ) 3125 ; 3126 ---贷方： 3127 3128 select sum(a.fdebit) into v_total from gk_zwentry a where a.fserialnum = v_fserialnum_4 ; 3129 select max(a.fentryid) + 1 into v_max_index from gk_zwentry a where a.fserialnum = v_fserialnum_4; 3130 insert into gk_zwentry 3131 (fserialnum, 3132 fentryid, 3133 facctid, 3134 fclsid, 3135 fexp, 3136 fdebit, 3137 fcredit, 3138 fbanksettel, 3139 ftransid, 3140 fcyid, 3141 fobjid, 3142 zf_itemno, 3143 zf_itemname,BUDGETID) 3144 SELECT v_fserialnum_4, 3145 v_max_index, 3146 '100400201' as facctid , 3147 '0', 3148 '', 3149 0, 3150 v_total, 3151 '1', 3152 '000', 3153 'RMB', 3154 '*', 3155 '', 3156 '','100400201'||',' ||substr(fdate,0,4)|| ',*,*,*' 3157 from dual; 3158 3159 insert into gk_zwvch_refer(FSERIALNUM, orign_type,orign_id,voucher_type,origin_teable,fmodule) 3160 select v_fserialnum_4 , 3161 '1' ORIGN_TYPE, 3162 z.id ORIGN_ID, 3163 z.voucher_type VOUCHER_TYPE, 3164 'GK_ZFPZ' ORIGIN_TEABLE, 3165 '3' FMODULE 3166 from gk_zfpz z 3167 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) and z.budgetno in (select distinct bg.func_bdgid from bs_gnflyskm bg where bg.func_bdgname like '%保险%') ; 3168 end if; 3169 3170 3171 3172 3173 3174 3175 /* 3176 -- 正常对碰的 直接支付 授权支付 一般支付 3177 借：5005财政专户管理资金支出[功能分类科目编码 预算单位编码] 3178 贷：1004.001.01其他财政存款.医院药品收支结余.农行活期（需与功能分类科目相对应） 3179 取功能分类科目名称中的关键字： 药品 3180 3181 会计科目编码组成：5005+功能分类科目编码 3182 3183 */ 3184 select count(1) into v_count_gkfszh from gk_zfpz Z WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 3185 and z.budgetno in (select distinct bg.func_bdgid from bs_gnflyskm bg where bg.func_bdgname like '%药品%') ; 3186 if v_count_gkfszh >0 then 3187 --插入主表 3188 insert into gk_zwvch 3189 (fserialnum, 3190 FPERIOD, 3191 fgroup, 3192 fdate, 3193 fnum, 3194 fpreparer, 3195 fattachment, 3196 fmodule, 3197 jz_database, 3198 org_type, 3199 jz_fserialnum, 3200 orign_type, 3201 make_date) 3202 select v_fserialnum_5, 3203 substr(fdate, 6, 2), 3204 i_fgroup, 3205 to_date(fdate, 'yyyy-MM-dd'), 3206 0, 3207 i_fpreparer, 3208 v_count_gkfszh, 3209 3, 3210 i_databasename, 3211 '1', --资金来源类型 3212 0, 3213 v_orign_type, 3214 sysdate 3215 3216 from dual; 3217 3218 3219 ---借方数据插入 3220 insert into gk_zwentry(fserialnum,fentryid,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname,budgetid) 3221 select fserialnum,ROWNUM,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, budgetid from ( 3222 select fserialnum,ROWNUM,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, 3223 budgetno || ',' ||substr(fdate,0,4)|| ',' || budget_type || ',' || voucher_type || ',' || SRC_ID budgetid 3224 from ( 3225 SELECT Z.SRC_ID,Z.voucher_type,z.budget_type,z.budgetno,substr(to_char(sysdate,'yyyy-MM-dd'),0,4) year1, v_fserialnum_5 fserialnum , 3226 '5005'||budgetno facctid, 3227 '1' fclsid , 3228 z.purpose fexp,z.zf_item_amt fdebit,0 fcredit,'1' fbanksettel ,z.prjno ftransid,'RMB' fcyid,z.unitno fobjid,z.zf_itemno zf_itemno,z.zf_itemname zf_itemname 3229 FROM ( 3230 SELECT Z.voucher_type, 3231 z.purpose purpose, 3232 z.amt zf_item_amt, 3233 z.prjno prjno, 3234 z.unitno, 3235 Z.SRC_ID, 3236 Z.budget_type, 3237 Z.budgetno, 3238 '' zf_itemno, 3239 '' zf_itemname, 3240 (select bz.org_type from bs_zjly bz where bz.fundno=z.src_id ) ORG_TYPE 3241 -- z.AFFIRM_DATE 3242 FROM gk_zfpz Z 3243 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 3244 and z.budgetno in (select distinct bg.func_bdgid from bs_gnflyskm bg where bg.func_bdgname like '%药品%') 3245 ) Z 3246 order by z.budgetno 3247 ) 3248 ) 3249 ; 3250 ---贷方： 3251 3252 select sum(a.fdebit) into v_total from gk_zwentry a where a.fserialnum = v_fserialnum_5 ; 3253 select max(a.fentryid) + 1 into v_max_index from gk_zwentry a where a.fserialnum = v_fserialnum_5; 3254 insert into gk_zwentry 3255 (fserialnum, 3256 fentryid, 3257 facctid, 3258 fclsid, 3259 fexp, 3260 fdebit, 3261 fcredit, 3262 fbanksettel, 3263 ftransid, 3264 fcyid, 3265 fobjid, 3266 zf_itemno, 3267 zf_itemname,BUDGETID) 3268 SELECT v_fserialnum_5, 3269 v_max_index, 3270 '100400101' as facctid , 3271 '0', 3272 '', 3273 0, 3274 v_total, 3275 '1', 3276 '000', 3277 'RMB', 3278 '*', 3279 '', 3280 '','100400101'||',' ||substr(fdate,0,4)|| ',*,*,*' 3281 from dual; 3282 3283 insert into gk_zwvch_refer(FSERIALNUM, orign_type,orign_id,voucher_type,origin_teable,fmodule) 3284 select v_fserialnum_5 , 3285 '1' ORIGN_TYPE, 3286 z.id ORIGN_ID, 3287 z.voucher_type VOUCHER_TYPE, 3288 'GK_ZFPZ' ORIGIN_TEABLE, 3289 '3' FMODULE 3290 from gk_zfpz z 3291 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) and z.budgetno in (select distinct bg.func_bdgid from bs_gnflyskm bg where bg.func_bdgname like '%药品%') ; 3292 end if; 3293 3294 3295 elsif opertype='2' or opertype='3' then 3296 /* 3297 -- 全额退款的 直接支付 授权支付 3298 3299 借： 1004.005.01其他财政存款.残疾人事业专项资金.农行活期（需与功能分类科目相对应） 3300 贷： 5005财政专户管理资金支出[功能分类科目编码 预算单位编码] 3301 3302 取功能分类科目名称中的关键字： 残疾 （全部以农行活期结尾） 3303 会计科目编码组成：5005+功能分类科目编码 3304 3305 */ 3306 select count(1) into v_count_gkfszh from gk_zfpz Z WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 3307 and z.budgetno in (select distinct bg.func_bdgid from bs_gnflyskm bg where bg.func_bdgname like '%残疾%'); 3308 if v_count_gkfszh >0 then 3309 --插入主表 3310 insert into gk_zwvch 3311 (fserialnum, 3312 FPERIOD, 3313 fgroup, 3314 fdate, 3315 fnum, 3316 fpreparer, 3317 fattachment, 3318 fmodule, 3319 jz_database, 3320 org_type, 3321 jz_fserialnum, 3322 orign_type, 3323 make_date) 3324 select v_fserialnum_1, 3325 substr(fdate, 6, 2), 3326 i_fgroup, 3327 to_date(fdate, 'yyyy-MM-dd'), 3328 0, 3329 i_fpreparer, 3330 v_count_gkfszh, 3331 3, 3332 i_databasename, 3333 '1', --资金来源类型 3334 0, 3335 v_orign_type, 3336 sysdate 3337 3338 from dual; 3339 3340 3341 ---贷方数据插入 3342 insert into gk_zwentry(fserialnum,fentryid,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname,budgetid) 3343 select fserialnum,ROWNUM+1,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, budgetid from ( 3344 select fserialnum,ROWNUM+1,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, 3345 budgetno || ',' ||substr(fdate,0,4)|| ',' || budget_type || ',' || voucher_type || ',' || SRC_ID budgetid 3346 from ( 3347 SELECT Z.SRC_ID,Z.voucher_type,z.budget_type,z.budgetno,substr(to_char(sysdate,'yyyy-MM-dd'),0,4) year1, v_fserialnum_1 fserialnum , 3348 '5005'||budgetno facctid, 3349 '1' fclsid , 3350 z.purpose fexp, 0 fdebit,z.zf_item_amt fcredit,'1' fbanksettel ,z.prjno ftransid,'RMB' fcyid,z.unitno fobjid,z.zf_itemno zf_itemno,z.zf_itemname zf_itemname 3351 FROM ( 3352 SELECT Z.voucher_type, 3353 z.purpose purpose, 3354 z.amt zf_item_amt, 3355 z.prjno prjno, 3356 z.unitno, 3357 Z.SRC_ID, 3358 Z.budget_type, 3359 Z.budgetno, 3360 '' zf_itemno, 3361 '' zf_itemname, 3362 (select bz.org_type from bs_zjly bz where bz.fundno=z.src_id ) ORG_TYPE 3363 -- z.AFFIRM_DATE 3364 FROM gk_zfpz Z 3365 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 3366 and z.budgetno in (select distinct bg.func_bdgid from bs_gnflyskm bg where bg.func_bdgname like '%残疾%') 3367 ) Z 3368 order by z.budgetno 3369 ) 3370 ) 3371 ; 3372 ---借方： 3373 3374 select sum(a.fcredit) into v_total from gk_zwentry a where a.fserialnum = v_fserialnum_1 ; 3375 3376 insert into gk_zwentry 3377 (fserialnum, 3378 fentryid, 3379 facctid, 3380 fclsid, 3381 fexp, 3382 fdebit, 3383 fcredit, 3384 fbanksettel, 3385 ftransid, 3386 fcyid, 3387 fobjid, 3388 zf_itemno, 3389 zf_itemname,BUDGETID) 3390 SELECT v_fserialnum_1, 3391 1, 3392 '100400501' as facctid , 3393 '0', 3394 '', 3395 v_total, 3396 0, 3397 '1', 3398 '000', 3399 'RMB', 3400 '*', 3401 '', 3402 '','100400501'||',' ||substr(fdate,0,4)|| ',*,*,*' 3403 from dual; 3404 3405 insert into gk_zwvch_refer(FSERIALNUM, orign_type,orign_id,voucher_type,origin_teable,fmodule) 3406 select v_fserialnum_1 , 3407 '3' ORIGN_TYPE, 3408 z.id ORIGN_ID, 3409 z.voucher_type VOUCHER_TYPE, 3410 'GK_ZFPZ' ORIGIN_TEABLE, 3411 '3' FMODULE 3412 from gk_zfpz z 3413 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) and z.budgetno in (select distinct bg.func_bdgid from bs_gnflyskm bg where bg.func_bdgname like '%残疾%') ; 3414 end if; 3415 3416 3417 /* 3418 -- 全额退款的 直接支付 授权支付 3419 借： 1004.004.01其他财政存款.医疗救助资金.农行活期（需与功能分类科目相对应） 3420 贷： 5005财政专户管理资金支出[功能分类科目编码 预算单位编码] 3421 3422 3423 取功能分类科目名称中的关键字： 医疗 3424 会计科目编码组成：5005+功能分类科目编码 3425 3426 */ 3427 select count(1) into v_count_gkfszh from gk_zfpz Z WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 3428 and z.budgetno in (select distinct bg.func_bdgid from bs_gnflyskm bg where bg.func_bdgname like '%医疗%' and bg.func_bdgname not like '%药品%') ; 3429 if v_count_gkfszh >0 then 3430 --插入主表 3431 insert into gk_zwvch 3432 (fserialnum, 3433 FPERIOD, 3434 fgroup, 3435 fdate, 3436 fnum, 3437 fpreparer, 3438 fattachment, 3439 fmodule, 3440 jz_database, 3441 org_type, 3442 jz_fserialnum, 3443 orign_type, 3444 make_date) 3445 select v_fserialnum_2, 3446 substr(fdate, 6, 2), 3447 i_fgroup, 3448 to_date(fdate, 'yyyy-MM-dd'), 3449 0, 3450 i_fpreparer, 3451 v_count_gkfszh, 3452 3, 3453 i_databasename, 3454 '1', --资金来源类型 3455 0, 3456 v_orign_type, 3457 sysdate 3458 3459 from dual; 3460 3461 3462 ---贷方数据插入 3463 insert into gk_zwentry(fserialnum,fentryid,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname,budgetid) 3464 select fserialnum,ROWNUM+1,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, budgetid from ( 3465 select fserialnum,ROWNUM+1,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, 3466 budgetno || ',' ||substr(fdate,0,4)|| ',' || budget_type || ',' || voucher_type || ',' || SRC_ID budgetid 3467 from ( 3468 SELECT Z.SRC_ID,Z.voucher_type,z.budget_type,z.budgetno,substr(to_char(sysdate,'yyyy-MM-dd'),0,4) year1, v_fserialnum_2 fserialnum , 3469 '5005'||budgetno facctid, 3470 '1' fclsid , 3471 z.purpose fexp,0 fdebit, z.zf_item_amt fcredit,'1' fbanksettel ,z.prjno ftransid,'RMB' fcyid,z.unitno fobjid,z.zf_itemno zf_itemno,z.zf_itemname zf_itemname 3472 FROM ( 3473 SELECT Z.voucher_type, 3474 z.purpose purpose, 3475 z.amt zf_item_amt, 3476 z.prjno prjno, 3477 z.unitno, 3478 Z.SRC_ID, 3479 Z.budget_type, 3480 Z.budgetno, 3481 '' zf_itemno, 3482 '' zf_itemname, 3483 (select bz.org_type from bs_zjly bz where bz.fundno=z.src_id ) ORG_TYPE 3484 -- z.AFFIRM_DATE 3485 FROM gk_zfpz Z 3486 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 3487 and z.budgetno in (select distinct bg.func_bdgid from bs_gnflyskm bg where bg.func_bdgname like '%医疗%' and bg.func_bdgname not like '%药品%') 3488 ) Z 3489 order by z.budgetno 3490 ) 3491 ) 3492 ; 3493 ---借方： 3494 3495 select sum(a.fcredit) into v_total from gk_zwentry a where a.fserialnum = v_fserialnum_2 ; 3496 insert into gk_zwentry 3497 (fserialnum, 3498 fentryid, 3499 facctid, 3500 fclsid, 3501 fexp, 3502 fdebit, 3503 fcredit, 3504 fbanksettel, 3505 ftransid, 3506 fcyid, 3507 fobjid, 3508 zf_itemno, 3509 zf_itemname,BUDGETID) 3510 SELECT v_fserialnum_2, 3511 1, 3512 '100400401' as facctid , 3513 '0', 3514 '', 3515 v_total, 3516 0, 3517 '1', 3518 '000', 3519 'RMB', 3520 '*', 3521 '', 3522 '','100400401'||',' ||substr(fdate,0,4)|| ',*,*,*' 3523 from dual; 3524 3525 insert into gk_zwvch_refer(FSERIALNUM, orign_type,orign_id,voucher_type,origin_teable,fmodule) 3526 select v_fserialnum_2 , 3527 '3' ORIGN_TYPE, 3528 z.id ORIGN_ID, 3529 z.voucher_type VOUCHER_TYPE, 3530 'GK_ZFPZ' ORIGIN_TEABLE, 3531 '3' FMODULE 3532 from gk_zfpz z 3533 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) and z.budgetno in (select distinct bg.func_bdgid from bs_gnflyskm bg where bg.func_bdgname like '%医疗%' and bg.func_bdgname not like '%药品%' ) ; 3534 end if; 3535 3536 3537 3538 3539 3540 /* 3541 -- 全额退款的 直接支付 授权支付 3542 借：1004.003.01其他财政存款.灵活就业资金.农行活期（需与功能分类科目相对应） 3543 贷：5005财政专户管理资金支出[功能分类科目编码 预算单位编码] 3544 取功能分类科目名称中的关键字：就业 3545 3546 会计科目编码组成：5005+功能分类科目编码 3547 3548 */ 3549 select count(1) into v_count_gkfszh from gk_zfpz Z WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 3550 and z.budgetno in (select distinct bg.func_bdgid from bs_gnflyskm bg where bg.func_bdgname like '%就业%') ; 3551 if v_count_gkfszh >0 then 3552 --插入主表 3553 insert into gk_zwvch 3554 (fserialnum, 3555 FPERIOD, 3556 fgroup, 3557 fdate, 3558 fnum, 3559 fpreparer, 3560 fattachment, 3561 fmodule, 3562 jz_database, 3563 org_type, 3564 jz_fserialnum, 3565 orign_type, 3566 make_date) 3567 select v_fserialnum_3, 3568 substr(fdate, 6, 2), 3569 i_fgroup, 3570 to_date(fdate, 'yyyy-MM-dd'), 3571 0, 3572 i_fpreparer, 3573 v_count_gkfszh, 3574 3, 3575 i_databasename, 3576 '1', --资金来源类型 3577 0, 3578 v_orign_type, 3579 sysdate 3580 3581 from dual; 3582 3583 3584 ---贷方数据插入 3585 insert into gk_zwentry(fserialnum,fentryid,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname,budgetid) 3586 select fserialnum,ROWNUM+1,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, budgetid from ( 3587 select fserialnum,ROWNUM+1,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, 3588 budgetno || ',' ||substr(fdate,0,4)|| ',' || budget_type || ',' || voucher_type || ',' || SRC_ID budgetid 3589 from ( 3590 SELECT Z.SRC_ID,Z.voucher_type,z.budget_type,z.budgetno,substr(to_char(sysdate,'yyyy-MM-dd'),0,4) year1, v_fserialnum_3 fserialnum , 3591 '5005'||budgetno facctid, 3592 '1' fclsid , 3593 z.purpose fexp,0 fdebit, z.zf_item_amt fcredit,'1' fbanksettel ,z.prjno ftransid,'RMB' fcyid,z.unitno fobjid,z.zf_itemno zf_itemno,z.zf_itemname zf_itemname 3594 FROM ( 3595 SELECT Z.voucher_type, 3596 z.purpose purpose, 3597 z.amt zf_item_amt, 3598 z.prjno prjno, 3599 z.unitno, 3600 Z.SRC_ID, 3601 Z.budget_type, 3602 Z.budgetno, 3603 '' zf_itemno, 3604 '' zf_itemname, 3605 (select bz.org_type from bs_zjly bz where bz.fundno=z.src_id ) ORG_TYPE 3606 -- z.AFFIRM_DATE 3607 FROM gk_zfpz Z 3608 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 3609 and z.budgetno in (select distinct bg.func_bdgid from bs_gnflyskm bg where bg.func_bdgname like '%就业%') 3610 ) Z 3611 order by z.budgetno 3612 ) 3613 ) 3614 ; 3615 ---借方： 3616 3617 select sum(a.fcredit) into v_total from gk_zwentry a where a.fserialnum = v_fserialnum_3 ; 3618 insert into gk_zwentry 3619 (fserialnum, 3620 fentryid, 3621 facctid, 3622 fclsid, 3623 fexp, 3624 fdebit, 3625 fcredit, 3626 fbanksettel, 3627 ftransid, 3628 fcyid, 3629 fobjid, 3630 zf_itemno, 3631 zf_itemname,BUDGETID) 3632 SELECT v_fserialnum_3, 3633 1, 3634 '100400301' as facctid , 3635 '0', 3636 '', 3637 v_total, 3638 0, 3639 '1', 3640 '000', 3641 'RMB', 3642 '*', 3643 '', 3644 '','100400301'||',' ||substr(fdate,0,4)|| ',*,*,*' 3645 from dual; 3646 3647 insert into gk_zwvch_refer(FSERIALNUM, orign_type,orign_id,voucher_type,origin_teable,fmodule) 3648 select v_fserialnum_3 , 3649 '3' ORIGN_TYPE, 3650 z.id ORIGN_ID, 3651 z.voucher_type VOUCHER_TYPE, 3652 'GK_ZFPZ' ORIGIN_TEABLE, 3653 '3' FMODULE 3654 from gk_zfpz z 3655 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) and z.budgetno in (select distinct bg.func_bdgid from bs_gnflyskm bg where bg.func_bdgname like '%就业%') ; 3656 end if; 3657 3658 3659 3660 3661 3662 3663 /* 3664 -- 全额退款的 直接支付 授权支付 3665 借：5005财政专户管理资金支出[功能分类科目编码 预算单位编码] 3666 贷：1004.002.01其他财政存款.其他社会保险基金.农行活期（需与功能分类科目相对应） 3667 取功能分类科目名称中的关键字：社保保险 3668 3669 会计科目编码组成：5005+功能分类科目编码 3670 3671 */ 3672 select count(1) into v_count_gkfszh from gk_zfpz Z WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 3673 and z.budgetno in (select distinct bg.func_bdgid from bs_gnflyskm bg where bg.func_bdgname like '%保险%') ; 3674 if v_count_gkfszh >0 then 3675 --插入主表 3676 insert into gk_zwvch 3677 (fserialnum, 3678 FPERIOD, 3679 fgroup, 3680 fdate, 3681 fnum, 3682 fpreparer, 3683 fattachment, 3684 fmodule, 3685 jz_database, 3686 org_type, 3687 jz_fserialnum, 3688 orign_type, 3689 make_date) 3690 select v_fserialnum_4, 3691 substr(fdate, 6, 2), 3692 i_fgroup, 3693 to_date(fdate, 'yyyy-MM-dd'), 3694 0, 3695 i_fpreparer, 3696 v_count_gkfszh, 3697 3, 3698 i_databasename, 3699 '1', --资金来源类型 3700 0, 3701 v_orign_type, 3702 sysdate 3703 3704 from dual; 3705 3706 3707 ---借方数据插入 3708 insert into gk_zwentry(fserialnum,fentryid,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname,budgetid) 3709 select fserialnum,ROWNUM+1,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, budgetid from ( 3710 select fserialnum,ROWNUM+1,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, 3711 budgetno || ',' ||substr(fdate,0,4)|| ',' || budget_type || ',' || voucher_type || ',' || SRC_ID budgetid 3712 from ( 3713 SELECT Z.SRC_ID,Z.voucher_type,z.budget_type,z.budgetno,substr(to_char(sysdate,'yyyy-MM-dd'),0,4) year1, v_fserialnum_4 fserialnum , 3714 '5005'||budgetno facctid, 3715 '1' fclsid , 3716 z.purpose fexp,0 fdebit,z.zf_item_amt fcredit,'1' fbanksettel ,z.prjno ftransid,'RMB' fcyid,z.unitno fobjid,z.zf_itemno zf_itemno,z.zf_itemname zf_itemname 3717 FROM ( 3718 SELECT Z.voucher_type, 3719 z.purpose purpose, 3720 z.amt zf_item_amt, 3721 z.prjno prjno, 3722 z.unitno, 3723 Z.SRC_ID, 3724 Z.budget_type, 3725 Z.budgetno, 3726 '' zf_itemno, 3727 '' zf_itemname, 3728 (select bz.org_type from bs_zjly bz where bz.fundno=z.src_id ) ORG_TYPE 3729 -- z.AFFIRM_DATE 3730 FROM gk_zfpz Z 3731 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 3732 and z.budgetno in (select distinct bg.func_bdgid from bs_gnflyskm bg where bg.func_bdgname like '%保险%') 3733 ) Z 3734 order by z.budgetno 3735 ) 3736 ) 3737 ; 3738 ---借方： 3739 3740 select sum(a.fcredit) into v_total from gk_zwentry a where a.fserialnum = v_fserialnum_4 ; 3741 3742 insert into gk_zwentry 3743 (fserialnum, 3744 fentryid, 3745 facctid, 3746 fclsid, 3747 fexp, 3748 fdebit, 3749 fcredit, 3750 fbanksettel, 3751 ftransid, 3752 fcyid, 3753 fobjid, 3754 zf_itemno, 3755 zf_itemname,BUDGETID) 3756 SELECT v_fserialnum_4, 3757 1, 3758 '100400201' as facctid , 3759 '0', 3760 '', 3761 v_total, 3762 0, 3763 3764 '1', 3765 '000', 3766 'RMB', 3767 '*', 3768 '', 3769 '','100400201'||',' ||substr(fdate,0,4)|| ',*,*,*' 3770 from dual; 3771 3772 insert into gk_zwvch_refer(FSERIALNUM, orign_type,orign_id,voucher_type,origin_teable,fmodule) 3773 select v_fserialnum_4 , 3774 '3' ORIGN_TYPE, 3775 z.id ORIGN_ID, 3776 z.voucher_type VOUCHER_TYPE, 3777 'GK_ZFPZ' ORIGIN_TEABLE, 3778 '3' FMODULE 3779 from gk_zfpz z 3780 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) and z.budgetno in (select distinct bg.func_bdgid from bs_gnflyskm bg where bg.func_bdgname like '%保险%') ; 3781 end if; 3782 3783 3784 3785 3786 /* 3787 -- 全额退款的 直接支付 授权支付 3788 借：1004.001.01其他财政存款.医院药品收支结余.农行活期（需与功能分类科目相对应） 3789 贷：5005财政专户管理资金支出[功能分类科目编码 预算单位编码] 3790 取功能分类科目名称中的关键字： 药品 3791 3792 会计科目编码组成：5005+功能分类科目编码 3793 3794 */ 3795 3796 select count(1) into v_count_gkfszh from gk_zfpz Z WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 3797 and z.budgetno in (select distinct bg.func_bdgid from bs_gnflyskm bg where bg.func_bdgname like '%药品%') ; 3798 if v_count_gkfszh >0 then 3799 --插入主表 3800 insert into gk_zwvch 3801 (fserialnum, 3802 FPERIOD, 3803 fgroup, 3804 fdate, 3805 fnum, 3806 fpreparer, 3807 fattachment, 3808 fmodule, 3809 jz_database, 3810 org_type, 3811 jz_fserialnum, 3812 orign_type, 3813 make_date) 3814 select v_fserialnum_5, 3815 substr(fdate, 6, 2), 3816 i_fgroup, 3817 to_date(fdate, 'yyyy-MM-dd'), 3818 0, 3819 i_fpreparer, 3820 v_count_gkfszh, 3821 3, 3822 i_databasename, 3823 '1', --资金来源类型 3824 0, 3825 v_orign_type, 3826 sysdate 3827 3828 from dual; 3829 3830 3831 ---贷方数据插入 3832 insert into gk_zwentry(fserialnum,fentryid,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname,budgetid) 3833 select fserialnum,ROWNUM+1,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, budgetid from ( 3834 select fserialnum,ROWNUM+1,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, 3835 budgetno || ',' ||substr(fdate,0,4)|| ',' || budget_type || ',' || voucher_type || ',' || SRC_ID budgetid 3836 from ( 3837 SELECT Z.SRC_ID,Z.voucher_type,z.budget_type,z.budgetno,substr(to_char(sysdate,'yyyy-MM-dd'),0,4) year1, v_fserialnum_5 fserialnum , 3838 '5005'||budgetno facctid, 3839 '1' fclsid , 3840 z.purpose fexp,z.zf_item_amt fdebit,0 fcredit,'1' fbanksettel ,z.prjno ftransid,'RMB' fcyid,z.unitno fobjid,z.zf_itemno zf_itemno,z.zf_itemname zf_itemname 3841 FROM ( 3842 SELECT Z.voucher_type, 3843 z.purpose purpose, 3844 z.amt zf_item_amt, 3845 z.prjno prjno, 3846 z.unitno, 3847 Z.SRC_ID, 3848 Z.budget_type, 3849 Z.budgetno, 3850 '' zf_itemno, 3851 '' zf_itemname, 3852 (select bz.org_type from bs_zjly bz where bz.fundno=z.src_id ) ORG_TYPE 3853 -- z.AFFIRM_DATE 3854 FROM gk_zfpz Z 3855 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 3856 and z.budgetno in (select distinct bg.func_bdgid from bs_gnflyskm bg where bg.func_bdgname like '%药品%') 3857 ) Z 3858 order by z.budgetno 3859 ) 3860 ) 3861 ; 3862 ---借方： 3863 3864 select sum(a.fcredit) into v_total from gk_zwentry a where a.fserialnum = v_fserialnum_5 ; 3865 insert into gk_zwentry 3866 (fserialnum, 3867 fentryid, 3868 facctid, 3869 fclsid, 3870 fexp, 3871 fdebit, 3872 fcredit, 3873 fbanksettel, 3874 ftransid, 3875 fcyid, 3876 fobjid, 3877 zf_itemno, 3878 zf_itemname,BUDGETID) 3879 SELECT v_fserialnum_5, 3880 v_max_index, 3881 '100400101' as facctid , 3882 '0', 3883 '', 3884 v_total, 3885 0, 3886 3887 '1', 3888 '000', 3889 'RMB', 3890 '*', 3891 '', 3892 '','100400101'||',' ||substr(fdate,0,4)|| ',*,*,*' 3893 from dual; 3894 3895 insert into gk_zwvch_refer(FSERIALNUM, orign_type,orign_id,voucher_type,origin_teable,fmodule) 3896 select v_fserialnum_5 , 3897 '3' ORIGN_TYPE, 3898 z.id ORIGN_ID, 3899 z.voucher_type VOUCHER_TYPE, 3900 'GK_ZFPZ' ORIGIN_TEABLE, 3901 '3' FMODULE 3902 from gk_zfpz z 3903 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) and z.budgetno in (select distinct bg.func_bdgid from bs_gnflyskm bg where bg.func_bdgname like '%药品%') ; 3904 end if; 3905 3906 3907 elsif opertype='4' or opertype='5' then 3908 3909 /* 3910 -- 部分退款的 直接支付 授权支付 3911 借：1004.005.01其他财政存款.残疾人事业专项资金.农行活期（需与功能分类科目相对应） 3912 贷：5005财政专户管理资金支出[功能分类科目编码 预算单位编码] 3913 取功能分类科目名称中的关键字： 残疾 （全部以农行活期结尾） 3914 3915 会计科目编码组成：5005+功能分类科目编码 3916 3917 */ 3918 select count(1) into v_count_gkfszh from gk_part_refundment Z WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 3919 and z.budgetno in (select distinct bg.func_bdgid from bs_gnflyskm bg where bg.func_bdgname like '%残疾%'); 3920 if v_count_gkfszh >0 then 3921 --插入主表 3922 insert into gk_zwvch 3923 (fserialnum, 3924 FPERIOD, 3925 fgroup, 3926 fdate, 3927 fnum, 3928 fpreparer, 3929 fattachment, 3930 fmodule, 3931 jz_database, 3932 org_type, 3933 jz_fserialnum, 3934 orign_type, 3935 make_date) 3936 select v_fserialnum_1, 3937 substr(fdate, 6, 2), 3938 i_fgroup, 3939 to_date(fdate, 'yyyy-MM-dd'), 3940 0, 3941 i_fpreparer, 3942 v_count_gkfszh, 3943 3, 3944 i_databasename, 3945 '1', --资金来源类型 3946 0, 3947 v_orign_type, 3948 sysdate 3949 3950 from dual; 3951 3952 3953 ---贷方数据插入 3954 insert into gk_zwentry(fserialnum,fentryid,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname,budgetid) 3955 select fserialnum,ROWNUM+1,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, budgetid from ( 3956 select fserialnum,ROWNUM+1,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, 3957 budgetno || ',' ||substr(fdate,0,4)|| ',' || budget_type || ',' || voucher_type || ',' || SRC_ID budgetid 3958 from ( 3959 SELECT Z.SRC_ID,Z.voucher_type,z.budget_type,z.budgetno,substr(to_char(sysdate,'yyyy-MM-dd'),0,4) year1, v_fserialnum_1 fserialnum , 3960 '5005'||budgetno facctid, 3961 '1' fclsid , 3962 z.purpose fexp, 0 fdebit,z.zf_item_amt fcredit,'1' fbanksettel ,z.prjno ftransid,'RMB' fcyid,z.unitno fobjid,z.zf_itemno zf_itemno,z.zf_itemname zf_itemname 3963 FROM ( 3964 SELECT Z.voucher_type, 3965 z.remark purpose, 3966 z.amt zf_item_amt, 3967 z.prjno prjno, 3968 z.unitno, 3969 Z.SRC_ID, 3970 Z.budget_type, 3971 Z.budgetno, 3972 '' zf_itemno, 3973 '' zf_itemname, 3974 (select bz.org_type from bs_zjly bz where bz.fundno=z.src_id ) ORG_TYPE 3975 -- z.AFFIRM_DATE 3976 FROM gk_part_refundment Z 3977 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 3978 and z.budgetno in (select distinct bg.func_bdgid from bs_gnflyskm bg where bg.func_bdgname like '%残疾%') 3979 ) Z 3980 order by z.budgetno 3981 ) 3982 ) 3983 ; 3984 ---借方： 3985 3986 select sum(a.fcredit) into v_total from gk_zwentry a where a.fserialnum = v_fserialnum_1 ; 3987 3988 insert into gk_zwentry 3989 (fserialnum, 3990 fentryid, 3991 facctid, 3992 fclsid, 3993 fexp, 3994 fdebit, 3995 fcredit, 3996 fbanksettel, 3997 ftransid, 3998 fcyid, 3999 fobjid, 4000 zf_itemno, 4001 zf_itemname,BUDGETID) 4002 SELECT v_fserialnum_1, 4003 1, 4004 '100400501' as facctid , 4005 '0', 4006 '', 4007 v_total, 4008 0, 4009 '1', 4010 '000', 4011 'RMB', 4012 '*', 4013 '', 4014 '','100400501'||',' ||substr(fdate,0,4)|| ',*,*,*' 4015 from dual; 4016 4017 insert into gk_zwvch_refer(FSERIALNUM, orign_type,orign_id,voucher_type,origin_teable,fmodule) 4018 select v_fserialnum_1 , 4019 '3' ORIGN_TYPE, 4020 z.id ORIGN_ID, 4021 z.voucher_type VOUCHER_TYPE, 4022 'GK_PART_REFUNDMENT' ORIGIN_TEABLE, 4023 '3' FMODULE 4024 from gk_part_refundment z 4025 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) and z.budgetno in (select distinct bg.func_bdgid from bs_gnflyskm bg where bg.func_bdgname like '%残疾%') ; 4026 end if; 4027 4028 4029 /* 4030 -- 部分退款的 直接支付 授权支付 4031 借：1004.004.01其他财政存款.医疗救助资金.农行活期（需与功能分类科目相对应） 4032 贷：5005财政专户管理资金支出[功能分类科目编码 预算单位编码] 4033 取功能分类科目名称中的关键字： 医疗 4034 4035 会计科目编码组成：5005+功能分类科目编码 4036 4037 */ 4038 select count(1) into v_count_gkfszh from gk_part_refundment Z WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 4039 and z.budgetno in (select distinct bg.func_bdgid from bs_gnflyskm bg where bg.func_bdgname like '%医疗%' and bg.func_bdgname not like '%药品%') ; 4040 if v_count_gkfszh >0 then 4041 --插入主表 4042 insert into gk_zwvch 4043 (fserialnum, 4044 FPERIOD, 4045 fgroup, 4046 fdate, 4047 fnum, 4048 fpreparer, 4049 fattachment, 4050 fmodule, 4051 jz_database, 4052 org_type, 4053 jz_fserialnum, 4054 orign_type, 4055 make_date) 4056 select v_fserialnum_2, 4057 substr(fdate, 6, 2), 4058 i_fgroup, 4059 to_date(fdate, 'yyyy-MM-dd'), 4060 0, 4061 i_fpreparer, 4062 v_count_gkfszh, 4063 3, 4064 i_databasename, 4065 '1', --资金来源类型 4066 0, 4067 v_orign_type, 4068 sysdate 4069 4070 from dual; 4071 4072 4073 ---贷方数据插入 4074 insert into gk_zwentry(fserialnum,fentryid,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname,budgetid) 4075 select fserialnum,ROWNUM+1,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, budgetid from ( 4076 select fserialnum,ROWNUM+1,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, 4077 budgetno || ',' ||substr(fdate,0,4)|| ',' || budget_type || ',' || voucher_type || ',' || SRC_ID budgetid 4078 from ( 4079 SELECT Z.SRC_ID,Z.voucher_type,z.budget_type,z.budgetno,substr(to_char(sysdate,'yyyy-MM-dd'),0,4) year1, v_fserialnum_2 fserialnum , 4080 '5005'||budgetno facctid, 4081 '1' fclsid , 4082 z.purpose fexp,0 fdebit, z.zf_item_amt fcredit,'1' fbanksettel ,z.prjno ftransid,'RMB' fcyid,z.unitno fobjid,z.zf_itemno zf_itemno,z.zf_itemname zf_itemname 4083 FROM ( 4084 SELECT Z.voucher_type, 4085 z.remark purpose, 4086 z.amt zf_item_amt, 4087 z.prjno prjno, 4088 z.unitno, 4089 Z.SRC_ID, 4090 Z.budget_type, 4091 Z.budgetno, 4092 '' zf_itemno, 4093 '' zf_itemname, 4094 (select bz.org_type from bs_zjly bz where bz.fundno=z.src_id ) ORG_TYPE 4095 -- z.AFFIRM_DATE 4096 FROM gk_part_refundment Z 4097 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 4098 and z.budgetno in (select distinct bg.func_bdgid from bs_gnflyskm bg where bg.func_bdgname like '%医疗%' and bg.func_bdgname not like '%药品%') 4099 ) Z 4100 order by z.budgetno 4101 ) 4102 ) 4103 ; 4104 ---借方： 4105 4106 select sum(a.fcredit) into v_total from gk_zwentry a where a.fserialnum = v_fserialnum_2 ; 4107 insert into gk_zwentry 4108 (fserialnum, 4109 fentryid, 4110 facctid, 4111 fclsid, 4112 fexp, 4113 fdebit, 4114 fcredit, 4115 fbanksettel, 4116 ftransid, 4117 fcyid, 4118 fobjid, 4119 zf_itemno, 4120 zf_itemname,BUDGETID) 4121 SELECT v_fserialnum_2, 4122 1, 4123 '100400401' as facctid , 4124 '0', 4125 '', 4126 v_total, 4127 0, 4128 '1', 4129 '000', 4130 'RMB', 4131 '*', 4132 '', 4133 '','100400401'||',' ||substr(fdate,0,4)|| ',*,*,*' 4134 from dual; 4135 4136 insert into gk_zwvch_refer(FSERIALNUM, orign_type,orign_id,voucher_type,origin_teable,fmodule) 4137 select v_fserialnum_2 , 4138 '3' ORIGN_TYPE, 4139 z.id ORIGN_ID, 4140 z.voucher_type VOUCHER_TYPE, 4141 'GK_PART_REFUNDMENT' ORIGIN_TEABLE, 4142 '3' FMODULE 4143 from gk_part_refundment z 4144 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) and z.budgetno in (select distinct bg.func_bdgid from bs_gnflyskm bg where bg.func_bdgname like '%医疗%' and bg.func_bdgname not like '%药品%' ) ; 4145 end if; 4146 4147 4148 4149 4150 /* 4151 -- 部分退款的 直接支付 授权支付 4152 借：1004.003.01其他财政存款.灵活就业资金.农行活期（需与功能分类科目相对应） 4153 贷：5005财政专户管理资金支出[功能分类科目编码 预算单位编码] 4154 取功能分类科目名称中的关键字：就业 4155 4156 会计科目编码组成：5005+功能分类科目编码 4157 4158 */ 4159 select count(1) into v_count_gkfszh from gk_part_refundment Z WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 4160 and z.budgetno in (select distinct bg.func_bdgid from bs_gnflyskm bg where bg.func_bdgname like '%就业%') ; 4161 if v_count_gkfszh >0 then 4162 --插入主表 4163 insert into gk_zwvch 4164 (fserialnum, 4165 FPERIOD, 4166 fgroup, 4167 fdate, 4168 fnum, 4169 fpreparer, 4170 fattachment, 4171 fmodule, 4172 jz_database, 4173 org_type, 4174 jz_fserialnum, 4175 orign_type, 4176 make_date) 4177 select v_fserialnum_3, 4178 substr(fdate, 6, 2), 4179 i_fgroup, 4180 to_date(fdate, 'yyyy-MM-dd'), 4181 0, 4182 i_fpreparer, 4183 v_count_gkfszh, 4184 3, 4185 i_databasename, 4186 '1', --资金来源类型 4187 0, 4188 v_orign_type, 4189 sysdate 4190 4191 from dual; 4192 4193 4194 ---贷方数据插入 4195 insert into gk_zwentry(fserialnum,fentryid,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname,budgetid) 4196 select fserialnum,ROWNUM+1,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, budgetid from ( 4197 select fserialnum,ROWNUM+1,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, 4198 budgetno || ',' ||substr(fdate,0,4)|| ',' || budget_type || ',' || voucher_type || ',' || SRC_ID budgetid 4199 from ( 4200 SELECT Z.SRC_ID,Z.voucher_type,z.budget_type,z.budgetno,substr(to_char(sysdate,'yyyy-MM-dd'),0,4) year1, v_fserialnum_3 fserialnum , 4201 '5005'||budgetno facctid, 4202 '1' fclsid , 4203 z.purpose fexp,0 fdebit, z.zf_item_amt fcredit,'1' fbanksettel ,z.prjno ftransid,'RMB' fcyid,z.unitno fobjid,z.zf_itemno zf_itemno,z.zf_itemname zf_itemname 4204 FROM ( 4205 SELECT Z.voucher_type, 4206 z.remark purpose, 4207 z.amt zf_item_amt, 4208 z.prjno prjno, 4209 z.unitno, 4210 Z.SRC_ID, 4211 Z.budget_type, 4212 Z.budgetno, 4213 '' zf_itemno, 4214 '' zf_itemname, 4215 (select bz.org_type from bs_zjly bz where bz.fundno=z.src_id ) ORG_TYPE 4216 -- z.AFFIRM_DATE 4217 FROM GK_PART_REFUNDMENT Z 4218 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 4219 and z.budgetno in (select distinct bg.func_bdgid from bs_gnflyskm bg where bg.func_bdgname like '%就业%') 4220 ) Z 4221 order by z.budgetno 4222 ) 4223 ) 4224 ; 4225 ---借方： 4226 4227 select sum(a.fcredit) into v_total from gk_zwentry a where a.fserialnum = v_fserialnum_3 ; 4228 insert into gk_zwentry 4229 (fserialnum, 4230 fentryid, 4231 facctid, 4232 fclsid, 4233 fexp, 4234 fdebit, 4235 fcredit, 4236 fbanksettel, 4237 ftransid, 4238 fcyid, 4239 fobjid, 4240 zf_itemno, 4241 zf_itemname,BUDGETID) 4242 SELECT v_fserialnum_3, 4243 1, 4244 '100400301' as facctid , 4245 '0', 4246 '', 4247 v_total, 4248 0, 4249 '1', 4250 '000', 4251 'RMB', 4252 '*', 4253 '', 4254 '','100400301'||',' ||substr(fdate,0,4)|| ',*,*,*' 4255 from dual; 4256 4257 insert into gk_zwvch_refer(FSERIALNUM, orign_type,orign_id,voucher_type,origin_teable,fmodule) 4258 select v_fserialnum_3 , 4259 '3' ORIGN_TYPE, 4260 z.id ORIGN_ID, 4261 z.voucher_type VOUCHER_TYPE, 4262 'GK_PART_REFUNDMENT' ORIGIN_TEABLE, 4263 '3' FMODULE 4264 from GK_PART_REFUNDMENT z 4265 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) and z.budgetno in (select distinct bg.func_bdgid from bs_gnflyskm bg where bg.func_bdgname like '%就业%') ; 4266 end if; 4267 4268 4269 4270 4271 /* 4272 -- 部分退款的 直接支付 授权支付 4273 借：1004.002.01其他财政存款.其他社会保险基金.农行活期（需与功能分类科目相对应） 4274 贷：5005财政专户管理资金支出[功能分类科目编码 预算单位编码] 4275 取功能分类科目名称中的关键字：社保保险 4276 4277 会计科目编码组成：5005+功能分类科目编码 4278 4279 */ 4280 select count(1) into v_count_gkfszh from gk_part_refundment Z WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 4281 and z.budgetno in (select distinct bg.func_bdgid from bs_gnflyskm bg where bg.func_bdgname like '%保险%') ; 4282 if v_count_gkfszh >0 then 4283 --插入主表 4284 insert into gk_zwvch 4285 (fserialnum, 4286 FPERIOD, 4287 fgroup, 4288 fdate, 4289 fnum, 4290 fpreparer, 4291 fattachment, 4292 fmodule, 4293 jz_database, 4294 org_type, 4295 jz_fserialnum, 4296 orign_type, 4297 make_date) 4298 select v_fserialnum_4, 4299 substr(fdate, 6, 2), 4300 i_fgroup, 4301 to_date(fdate, 'yyyy-MM-dd'), 4302 0, 4303 i_fpreparer, 4304 v_count_gkfszh, 4305 3, 4306 i_databasename, 4307 '1', --资金来源类型 4308 0, 4309 v_orign_type, 4310 sysdate 4311 4312 from dual; 4313 4314 4315 ---借方数据插入 4316 insert into gk_zwentry(fserialnum,fentryid,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname,budgetid) 4317 select fserialnum,ROWNUM+1,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, budgetid from ( 4318 select fserialnum,ROWNUM+1,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, 4319 budgetno || ',' ||substr(fdate,0,4)|| ',' || budget_type || ',' || voucher_type || ',' || SRC_ID budgetid 4320 from ( 4321 SELECT Z.SRC_ID,Z.voucher_type,z.budget_type,z.budgetno,substr(to_char(sysdate,'yyyy-MM-dd'),0,4) year1, v_fserialnum_4 fserialnum , 4322 '5005'||budgetno facctid, 4323 '1' fclsid , 4324 z.purpose fexp,0 fdebit,z.zf_item_amt fcredit,'1' fbanksettel ,z.prjno ftransid,'RMB' fcyid,z.unitno fobjid,z.zf_itemno zf_itemno,z.zf_itemname zf_itemname 4325 FROM ( 4326 SELECT Z.voucher_type, 4327 z.remark purpose, 4328 z.amt zf_item_amt, 4329 z.prjno prjno, 4330 z.unitno, 4331 Z.SRC_ID, 4332 Z.budget_type, 4333 Z.budgetno, 4334 '' zf_itemno, 4335 '' zf_itemname, 4336 (select bz.org_type from bs_zjly bz where bz.fundno=z.src_id ) ORG_TYPE 4337 -- z.AFFIRM_DATE 4338 FROM GK_PART_REFUNDMENT Z 4339 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 4340 and z.budgetno in (select distinct bg.func_bdgid from bs_gnflyskm bg where bg.func_bdgname like '%保险%') 4341 ) Z 4342 order by z.budgetno 4343 ) 4344 ) 4345 ; 4346 ---借方： 4347 4348 select sum(a.fcredit) into v_total from gk_zwentry a where a.fserialnum = v_fserialnum_4 ; 4349 4350 insert into gk_zwentry 4351 (fserialnum, 4352 fentryid, 4353 facctid, 4354 fclsid, 4355 fexp, 4356 fdebit, 4357 fcredit, 4358 fbanksettel, 4359 ftransid, 4360 fcyid, 4361 fobjid, 4362 zf_itemno, 4363 zf_itemname,BUDGETID) 4364 SELECT v_fserialnum_4, 4365 1, 4366 '100400201' as facctid , 4367 '0', 4368 '', 4369 v_total, 4370 0, 4371 4372 '1', 4373 '000', 4374 'RMB', 4375 '*', 4376 '', 4377 '','100400201'||',' ||substr(fdate,0,4)|| ',*,*,*' 4378 from dual; 4379 4380 insert into gk_zwvch_refer(FSERIALNUM, orign_type,orign_id,voucher_type,origin_teable,fmodule) 4381 select v_fserialnum_4 , 4382 '3' ORIGN_TYPE, 4383 z.id ORIGN_ID, 4384 z.voucher_type VOUCHER_TYPE, 4385 'GK_PART_REFUNDMENT' ORIGIN_TEABLE, 4386 '3' FMODULE 4387 from GK_PART_REFUNDMENT z 4388 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) and z.budgetno in (select distinct bg.func_bdgid from bs_gnflyskm bg where bg.func_bdgname like '%保险%') ; 4389 end if; 4390 4391 4392 4393 /* 4394 -- 部分退款的 直接支付 授权支付 4395 借：1004.001.01其他财政存款.医院药品收支结余.农行活期（需与功能分类科目相对应） 4396 贷：5005财政专户管理资金支出[功能分类科目编码 预算单位编码] 4397 取功能分类科目名称中的关键字： 药品 4398 4399 会计科目编码组成：5005+功能分类科目编码 4400 4401 */ 4402 select count(1) into v_count_gkfszh from gk_part_refundment Z WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 4403 and z.budgetno in (select distinct bg.func_bdgid from bs_gnflyskm bg where bg.func_bdgname like '%药品%') ; 4404 if v_count_gkfszh >0 then 4405 --插入主表 4406 insert into gk_zwvch 4407 (fserialnum, 4408 FPERIOD, 4409 fgroup, 4410 fdate, 4411 fnum, 4412 fpreparer, 4413 fattachment, 4414 fmodule, 4415 jz_database, 4416 org_type, 4417 jz_fserialnum, 4418 orign_type, 4419 make_date) 4420 select v_fserialnum_5, 4421 substr(fdate, 6, 2), 4422 i_fgroup, 4423 to_date(fdate, 'yyyy-MM-dd'), 4424 0, 4425 i_fpreparer, 4426 v_count_gkfszh, 4427 3, 4428 i_databasename, 4429 '1', --资金来源类型 4430 0, 4431 v_orign_type, 4432 sysdate 4433 4434 from dual; 4435 4436 4437 ---贷方数据插入 4438 insert into gk_zwentry(fserialnum,fentryid,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname,budgetid) 4439 select fserialnum,ROWNUM+1,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, budgetid from ( 4440 select fserialnum,ROWNUM+1,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, 4441 budgetno || ',' ||substr(fdate,0,4)|| ',' || budget_type || ',' || voucher_type || ',' || SRC_ID budgetid 4442 from ( 4443 SELECT Z.SRC_ID,Z.voucher_type,z.budget_type,z.budgetno,substr(to_char(sysdate,'yyyy-MM-dd'),0,4) year1, v_fserialnum_5 fserialnum , 4444 '5005'||budgetno facctid, 4445 '1' fclsid , 4446 z.purpose fexp,z.zf_item_amt fdebit,0 fcredit,'1' fbanksettel ,z.prjno ftransid,'RMB' fcyid,z.unitno fobjid,z.zf_itemno zf_itemno,z.zf_itemname zf_itemname 4447 FROM ( 4448 SELECT Z.voucher_type, 4449 z.remark purpose, 4450 z.amt zf_item_amt, 4451 z.prjno prjno, 4452 z.unitno, 4453 Z.SRC_ID, 4454 Z.budget_type, 4455 Z.budgetno, 4456 '' zf_itemno, 4457 '' zf_itemname, 4458 (select bz.org_type from bs_zjly bz where bz.fundno=z.src_id ) ORG_TYPE 4459 -- z.AFFIRM_DATE 4460 FROM GK_PART_REFUNDMENT Z 4461 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 4462 and z.budgetno in (select distinct bg.func_bdgid from bs_gnflyskm bg where bg.func_bdgname like '%药品%') 4463 ) Z 4464 order by z.budgetno 4465 ) 4466 ) 4467 ; 4468 ---借方： 4469 4470 select sum(a.fcredit) into v_total from gk_zwentry a where a.fserialnum = v_fserialnum_5 ; 4471 insert into gk_zwentry 4472 (fserialnum, 4473 fentryid, 4474 facctid, 4475 fclsid, 4476 fexp, 4477 fdebit, 4478 fcredit, 4479 fbanksettel, 4480 ftransid, 4481 fcyid, 4482 fobjid, 4483 zf_itemno, 4484 zf_itemname,BUDGETID) 4485 SELECT v_fserialnum_5, 4486 v_max_index, 4487 '100400101' as facctid , 4488 '0', 4489 '', 4490 v_total, 4491 0, 4492 4493 '1', 4494 '000', 4495 'RMB', 4496 '*', 4497 '', 4498 '','100400101'||',' ||substr(fdate,0,4)|| ',*,*,*' 4499 from dual; 4500 4501 insert into gk_zwvch_refer(FSERIALNUM, orign_type,orign_id,voucher_type,origin_teable,fmodule) 4502 select v_fserialnum_5 , 4503 '3' ORIGN_TYPE, 4504 z.id ORIGN_ID, 4505 z.voucher_type VOUCHER_TYPE, 4506 'GK_PART_REFUNDMENT' ORIGIN_TEABLE, 4507 '3' FMODULE 4508 from GK_PART_REFUNDMENT z 4509 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) and z.budgetno in (select distinct bg.func_bdgid from bs_gnflyskm bg where bg.func_bdgname like '%药品%') ; 4510 end if; 4511 4512 4513 4514 elsif opertype='7' then 4515 4516 /* 4517 -- 退款的 一般支付 4518 借：1004.005.01其他财政存款.残疾人事业专项资金.农行活期（需与功能分类科目相对应） 4519 贷：5005财政专户管理资金支出[功能分类科目编码 预算单位编码] 4520 取功能分类科目名称中的关键字： 残疾 （全部以农行活期结尾） 4521 4522 会计科目编码组成：5005+功能分类科目编码 4523 4524 */ 4525 4526 select count(1) into v_count_gkfszh from ( select crbd.id as id , '3' voucher_type , crb.reason as refundment_memo , crbd.pay_amt as amt , crbd.prjno as prjno ,crb.unitno ,crb.src_id as SRC_ID ,crbd.budget_type ,crbd.budgetno from common_req_back crb,common_req_back_detail crbd where crb.id=crbd.common_req_back_id) Z WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 4527 and z.budgetno in (select distinct bg.func_bdgid from bs_gnflyskm bg where bg.func_bdgname like '%残疾%'); 4528 if v_count_gkfszh >0 then 4529 --插入主表 4530 insert into gk_zwvch 4531 (fserialnum, 4532 FPERIOD, 4533 fgroup, 4534 fdate, 4535 fnum, 4536 fpreparer, 4537 fattachment, 4538 fmodule, 4539 jz_database, 4540 org_type, 4541 jz_fserialnum, 4542 orign_type, 4543 make_date) 4544 select v_fserialnum_1, 4545 substr(fdate, 6, 2), 4546 i_fgroup, 4547 to_date(fdate, 'yyyy-MM-dd'), 4548 0, 4549 i_fpreparer, 4550 v_count_gkfszh, 4551 3, 4552 i_databasename, 4553 '1', --资金来源类型 4554 0, 4555 v_orign_type, 4556 sysdate 4557 4558 from dual; 4559 4560 4561 ---贷方数据插入 4562 insert into gk_zwentry(fserialnum,fentryid,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname,budgetid) 4563 select fserialnum,ROWNUM+1,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, budgetid from ( 4564 select fserialnum,ROWNUM+1,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, 4565 budgetno || ',' ||substr(fdate,0,4)|| ',' || budget_type || ',' || voucher_type || ',' || SRC_ID budgetid 4566 from ( 4567 SELECT Z.SRC_ID,Z.voucher_type,z.budget_type,z.budgetno,substr(to_char(sysdate,'yyyy-MM-dd'),0,4) year1, v_fserialnum_1 fserialnum , 4568 '5005'||budgetno facctid, 4569 '1' fclsid , 4570 z.purpose fexp, 0 fdebit,z.zf_item_amt fcredit,'1' fbanksettel ,z.prjno ftransid,'RMB' fcyid,z.unitno fobjid,z.zf_itemno zf_itemno,z.zf_itemname zf_itemname 4571 FROM ( 4572 SELECT Z.voucher_type, 4573 z.refundment_memo purpose, 4574 z.amt zf_item_amt, 4575 z.prjno prjno, 4576 z.unitno, 4577 Z.SRC_ID, 4578 Z.budget_type, 4579 Z.budgetno, 4580 '' zf_itemno, 4581 '' zf_itemname, 4582 (select bz.org_type from bs_zjly bz where bz.fundno=z.src_id ) ORG_TYPE 4583 -- z.AFFIRM_DATE 4584 FROM ( select crbd.id as id , '3' voucher_type , crb.reason as refundment_memo , crbd.pay_amt as amt , crbd.prjno as prjno ,crb.unitno ,crb.src_id as SRC_ID ,crbd.budget_type ,crbd.budgetno from common_req_back crb,common_req_back_detail crbd where crb.id=crbd.common_req_back_id) Z 4585 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 4586 and z.budgetno in (select distinct bg.func_bdgid from bs_gnflyskm bg where bg.func_bdgname like '%残疾%') 4587 ) Z 4588 order by z.budgetno 4589 ) 4590 ) 4591 ; 4592 ---借方： 4593 4594 select sum(a.fcredit) into v_total from gk_zwentry a where a.fserialnum = v_fserialnum_1 ; 4595 4596 insert into gk_zwentry 4597 (fserialnum, 4598 fentryid, 4599 facctid, 4600 fclsid, 4601 fexp, 4602 fdebit, 4603 fcredit, 4604 fbanksettel, 4605 ftransid, 4606 fcyid, 4607 fobjid, 4608 zf_itemno, 4609 zf_itemname,BUDGETID) 4610 SELECT v_fserialnum_1, 4611 1, 4612 '100400501' as facctid , 4613 '0', 4614 '', 4615 v_total, 4616 0, 4617 '1', 4618 '000', 4619 'RMB', 4620 '*', 4621 '', 4622 '','100400501'||',' ||substr(fdate,0,4)|| ',*,*,*' 4623 from dual; 4624 4625 insert into gk_zwvch_refer(FSERIALNUM, orign_type,orign_id,voucher_type,origin_teable,fmodule) 4626 select v_fserialnum_1 , 4627 '3' ORIGN_TYPE, 4628 z.id ORIGN_ID, 4629 z.voucher_type VOUCHER_TYPE, 4630 'common_req_back_detail' ORIGIN_TEABLE, 4631 '3' FMODULE 4632 from ( select crbd.id as id , '3' voucher_type , crb.reason as refundment_memo , crbd.pay_amt as amt , crbd.prjno as prjno ,crb.unitno ,crb.src_id as SRC_ID ,crbd.budget_type ,crbd.budgetno from common_req_back crb,common_req_back_detail crbd where crb.id=crbd.common_req_back_id) z 4633 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) and z.budgetno in (select distinct bg.func_bdgid from bs_gnflyskm bg where bg.func_bdgname like '%残疾%') ; 4634 end if; 4635 4636 4637 /* 4638 -- 退款的 一般支付 4639 借：1004.004.01其他财政存款.医疗救助资金.农行活期（需与功能分类科目相对应） 4640 贷：5005财政专户管理资金支出[功能分类科目编码 预算单位编码] 4641 取功能分类科目名称中的关键字： 医疗 4642 4643 会计科目编码组成：5005+功能分类科目编码 4644 4645 */ 4646 select count(1) into v_count_gkfszh from gk_zfpz Z WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 4647 and z.budgetno in (select distinct bg.func_bdgid from bs_gnflyskm bg where bg.func_bdgname like '%医疗%' and bg.func_bdgname not like '%药品%') ; 4648 if v_count_gkfszh >0 then 4649 --插入主表 4650 insert into gk_zwvch 4651 (fserialnum, 4652 FPERIOD, 4653 fgroup, 4654 fdate, 4655 fnum, 4656 fpreparer, 4657 fattachment, 4658 fmodule, 4659 jz_database, 4660 org_type, 4661 jz_fserialnum, 4662 orign_type, 4663 make_date) 4664 select v_fserialnum_2, 4665 substr(fdate, 6, 2), 4666 i_fgroup, 4667 to_date(fdate, 'yyyy-MM-dd'), 4668 0, 4669 i_fpreparer, 4670 v_count_gkfszh, 4671 3, 4672 i_databasename, 4673 '1', --资金来源类型 4674 0, 4675 v_orign_type, 4676 sysdate 4677 4678 from dual; 4679 4680 4681 ---贷方数据插入 4682 insert into gk_zwentry(fserialnum,fentryid,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname,budgetid) 4683 select fserialnum,ROWNUM+1,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, budgetid from ( 4684 select fserialnum,ROWNUM+1,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, 4685 budgetno || ',' ||substr(fdate,0,4)|| ',' || budget_type || ',' || voucher_type || ',' || SRC_ID budgetid 4686 from ( 4687 SELECT Z.SRC_ID,Z.voucher_type,z.budget_type,z.budgetno,substr(to_char(sysdate,'yyyy-MM-dd'),0,4) year1, v_fserialnum_2 fserialnum , 4688 '5005'||budgetno facctid, 4689 '1' fclsid , 4690 z.purpose fexp,0 fdebit, z.zf_item_amt fcredit,'1' fbanksettel ,z.prjno ftransid,'RMB' fcyid,z.unitno fobjid,z.zf_itemno zf_itemno,z.zf_itemname zf_itemname 4691 FROM ( 4692 SELECT Z.voucher_type, 4693 z.refundment_memo purpose, 4694 z.amt zf_item_amt, 4695 z.prjno prjno, 4696 z.unitno, 4697 Z.SRC_ID, 4698 Z.budget_type, 4699 Z.budgetno, 4700 '' zf_itemno, 4701 '' zf_itemname, 4702 (select bz.org_type from bs_zjly bz where bz.fundno=z.src_id ) ORG_TYPE 4703 -- z.AFFIRM_DATE 4704 FROM ( select crbd.id as id , '3' voucher_type , crb.reason as refundment_memo , crbd.pay_amt as amt , crbd.prjno as prjno ,crb.unitno ,crb.src_id as SRC_ID ,crbd.budget_type ,crbd.budgetno from common_req_back crb,common_req_back_detail crbd where crb.id=crbd.common_req_back_id) Z 4705 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 4706 and z.budgetno in (select distinct bg.func_bdgid from bs_gnflyskm bg where bg.func_bdgname like '%医疗%' and bg.func_bdgname not like '%药品%') 4707 ) Z 4708 order by z.budgetno 4709 ) 4710 ) 4711 ; 4712 ---借方： 4713 4714 select sum(a.fcredit) into v_total from gk_zwentry a where a.fserialnum = v_fserialnum_2 ; 4715 insert into gk_zwentry 4716 (fserialnum, 4717 fentryid, 4718 facctid, 4719 fclsid, 4720 fexp, 4721 fdebit, 4722 fcredit, 4723 fbanksettel, 4724 ftransid, 4725 fcyid, 4726 fobjid, 4727 zf_itemno, 4728 zf_itemname,BUDGETID) 4729 SELECT v_fserialnum_2, 4730 1, 4731 '100400401' as facctid , 4732 '0', 4733 '', 4734 v_total, 4735 0, 4736 '1', 4737 '000', 4738 'RMB', 4739 '*', 4740 '', 4741 '','100400401'||',' ||substr(fdate,0,4)|| ',*,*,*' 4742 from dual; 4743 4744 insert into gk_zwvch_refer(FSERIALNUM, orign_type,orign_id,voucher_type,origin_teable,fmodule) 4745 select v_fserialnum_2 , 4746 '3' ORIGN_TYPE, 4747 z.id ORIGN_ID, 4748 z.voucher_type VOUCHER_TYPE, 4749 'common_req_back_detail' ORIGIN_TEABLE, 4750 '3' FMODULE 4751 from ( select crbd.id as id , '3' voucher_type , crb.reason as refundment_memo , crbd.pay_amt as amt , crbd.prjno as prjno ,crb.unitno ,crb.src_id as SRC_ID ,crbd.budget_type ,crbd.budgetno from common_req_back crb,common_req_back_detail crbd where crb.id=crbd.common_req_back_id) z 4752 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) and z.budgetno in (select distinct bg.func_bdgid from bs_gnflyskm bg where bg.func_bdgname like '%医疗%' and bg.func_bdgname not like '%药品%' ) ; 4753 end if; 4754 4755 4756 4757 /* 4758 -- 退款的 一般支付 4759 借：1004.003.01其他财政存款.灵活就业资金.农行活期（需与功能分类科目相对应） 4760 贷：5005财政专户管理资金支出[功能分类科目编码 预算单位编码] 4761 取功能分类科目名称中的关键字：就业 4762 4763 会计科目编码组成：5005+功能分类科目编码 4764 4765 */ 4766 select count(1) into v_count_gkfszh from gk_zfpz Z WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 4767 and z.budgetno in (select distinct bg.func_bdgid from bs_gnflyskm bg where bg.func_bdgname like '%就业%') ; 4768 if v_count_gkfszh >0 then 4769 --插入主表 4770 insert into gk_zwvch 4771 (fserialnum, 4772 FPERIOD, 4773 fgroup, 4774 fdate, 4775 fnum, 4776 fpreparer, 4777 fattachment, 4778 fmodule, 4779 jz_database, 4780 org_type, 4781 jz_fserialnum, 4782 orign_type, 4783 make_date) 4784 select v_fserialnum_3, 4785 substr(fdate, 6, 2), 4786 i_fgroup, 4787 to_date(fdate, 'yyyy-MM-dd'), 4788 0, 4789 i_fpreparer, 4790 v_count_gkfszh, 4791 3, 4792 i_databasename, 4793 '1', --资金来源类型 4794 0, 4795 v_orign_type, 4796 sysdate 4797 4798 from dual; 4799 4800 4801 ---贷方数据插入 4802 insert into gk_zwentry(fserialnum,fentryid,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname,budgetid) 4803 select fserialnum,ROWNUM+1,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, budgetid from ( 4804 select fserialnum,ROWNUM+1,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, 4805 budgetno || ',' ||substr(fdate,0,4)|| ',' || budget_type || ',' || voucher_type || ',' || SRC_ID budgetid 4806 from ( 4807 SELECT Z.SRC_ID,Z.voucher_type,z.budget_type,z.budgetno,substr(to_char(sysdate,'yyyy-MM-dd'),0,4) year1, v_fserialnum_3 fserialnum , 4808 '5005'||budgetno facctid, 4809 '1' fclsid , 4810 z.purpose fexp,0 fdebit, z.zf_item_amt fcredit,'1' fbanksettel ,z.prjno ftransid,'RMB' fcyid,z.unitno fobjid,z.zf_itemno zf_itemno,z.zf_itemname zf_itemname 4811 FROM ( 4812 SELECT Z.voucher_type, 4813 z.refundment_memo purpose, 4814 z.amt zf_item_amt, 4815 z.prjno prjno, 4816 z.unitno, 4817 Z.SRC_ID, 4818 Z.budget_type, 4819 Z.budgetno, 4820 '' zf_itemno, 4821 '' zf_itemname, 4822 (select bz.org_type from bs_zjly bz where bz.fundno=z.src_id ) ORG_TYPE 4823 -- z.AFFIRM_DATE 4824 FROM ( select crbd.id as id , '3' voucher_type , crb.reason as refundment_memo , crbd.pay_amt as amt , crbd.prjno as prjno ,crb.unitno ,crb.src_id as SRC_ID ,crbd.budget_type ,crbd.budgetno from common_req_back crb,common_req_back_detail crbd where crb.id=crbd.common_req_back_id) Z 4825 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 4826 and z.budgetno in (select distinct bg.func_bdgid from bs_gnflyskm bg where bg.func_bdgname like '%就业%') 4827 ) Z 4828 order by z.budgetno 4829 ) 4830 ) 4831 ; 4832 ---借方： 4833 4834 select sum(a.fcredit) into v_total from gk_zwentry a where a.fserialnum = v_fserialnum_3 ; 4835 insert into gk_zwentry 4836 (fserialnum, 4837 fentryid, 4838 facctid, 4839 fclsid, 4840 fexp, 4841 fdebit, 4842 fcredit, 4843 fbanksettel, 4844 ftransid, 4845 fcyid, 4846 fobjid, 4847 zf_itemno, 4848 zf_itemname,BUDGETID) 4849 SELECT v_fserialnum_3, 4850 1, 4851 '100400301' as facctid , 4852 '0', 4853 '', 4854 v_total, 4855 0, 4856 '1', 4857 '000', 4858 'RMB', 4859 '*', 4860 '', 4861 '','100400301'||',' ||substr(fdate,0,4)|| ',*,*,*' 4862 from dual; 4863 4864 insert into gk_zwvch_refer(FSERIALNUM, orign_type,orign_id,voucher_type,origin_teable,fmodule) 4865 select v_fserialnum_3 , 4866 '3' ORIGN_TYPE, 4867 z.id ORIGN_ID, 4868 z.voucher_type VOUCHER_TYPE, 4869 'common_req_back_detail' ORIGIN_TEABLE, 4870 '3' FMODULE 4871 from ( select crbd.id as id , '3' voucher_type , crb.reason as refundment_memo , crbd.pay_amt as amt , crbd.prjno as prjno ,crb.unitno ,crb.src_id as SRC_ID ,crbd.budget_type ,crbd.budgetno from common_req_back crb,common_req_back_detail crbd where crb.id=crbd.common_req_back_id) z 4872 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) and z.budgetno in (select distinct bg.func_bdgid from bs_gnflyskm bg where bg.func_bdgname like '%就业%') ; 4873 end if; 4874 4875 4876 4877 4878 /* 4879 -- 退款的 一般支付 4880 借：1004.002.01其他财政存款.其他社会保险基金.农行活期（需与功能分类科目相对应） 4881 贷：5005财政专户管理资金支出[功能分类科目编码 预算单位编码] 4882 取功能分类科目名称中的关键字：社保保险 4883 4884 会计科目编码组成：5005+功能分类科目编码 4885 4886 */ 4887 select count(1) into v_count_gkfszh from gk_zfpz Z WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 4888 and z.budgetno in (select distinct bg.func_bdgid from bs_gnflyskm bg where bg.func_bdgname like '%保险%') ; 4889 if v_count_gkfszh >0 then 4890 --插入主表 4891 insert into gk_zwvch 4892 (fserialnum, 4893 FPERIOD, 4894 fgroup, 4895 fdate, 4896 fnum, 4897 fpreparer, 4898 fattachment, 4899 fmodule, 4900 jz_database, 4901 org_type, 4902 jz_fserialnum, 4903 orign_type, 4904 make_date) 4905 select v_fserialnum_4, 4906 substr(fdate, 6, 2), 4907 i_fgroup, 4908 to_date(fdate, 'yyyy-MM-dd'), 4909 0, 4910 i_fpreparer, 4911 v_count_gkfszh, 4912 3, 4913 i_databasename, 4914 '1', --资金来源类型 4915 0, 4916 v_orign_type, 4917 sysdate 4918 4919 from dual; 4920 4921 4922 ---借方数据插入 4923 insert into gk_zwentry(fserialnum,fentryid,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname,budgetid) 4924 select fserialnum,ROWNUM+1,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, budgetid from ( 4925 select fserialnum,ROWNUM+1,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, 4926 budgetno || ',' ||substr(fdate,0,4)|| ',' || budget_type || ',' || voucher_type || ',' || SRC_ID budgetid 4927 from ( 4928 SELECT Z.SRC_ID,Z.voucher_type,z.budget_type,z.budgetno,substr(to_char(sysdate,'yyyy-MM-dd'),0,4) year1, v_fserialnum_4 fserialnum , 4929 '5005'||budgetno facctid, 4930 '1' fclsid , 4931 z.purpose fexp,0 fdebit,z.zf_item_amt fcredit,'1' fbanksettel ,z.prjno ftransid,'RMB' fcyid,z.unitno fobjid,z.zf_itemno zf_itemno,z.zf_itemname zf_itemname 4932 FROM ( 4933 SELECT Z.voucher_type, 4934 z.refundment_memo purpose, 4935 z.amt zf_item_amt, 4936 z.prjno prjno, 4937 z.unitno, 4938 Z.SRC_ID, 4939 Z.budget_type, 4940 Z.budgetno, 4941 '' zf_itemno, 4942 '' zf_itemname, 4943 (select bz.org_type from bs_zjly bz where bz.fundno=z.src_id ) ORG_TYPE 4944 -- z.AFFIRM_DATE 4945 FROM ( select crbd.id as id , '3' voucher_type , crb.reason as refundment_memo , crbd.pay_amt as amt , crbd.prjno as prjno ,crb.unitno ,crb.src_id as SRC_ID ,crbd.budget_type ,crbd.budgetno from common_req_back crb,common_req_back_detail crbd where crb.id=crbd.common_req_back_id) Z 4946 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 4947 and z.budgetno in (select distinct bg.func_bdgid from bs_gnflyskm bg where bg.func_bdgname like '%保险%') 4948 ) Z 4949 order by z.budgetno 4950 ) 4951 ) 4952 ; 4953 ---借方： 4954 4955 select sum(a.fcredit) into v_total from gk_zwentry a where a.fserialnum = v_fserialnum_4 ; 4956 4957 insert into gk_zwentry 4958 (fserialnum, 4959 fentryid, 4960 facctid, 4961 fclsid, 4962 fexp, 4963 fdebit, 4964 fcredit, 4965 fbanksettel, 4966 ftransid, 4967 fcyid, 4968 fobjid, 4969 zf_itemno, 4970 zf_itemname,BUDGETID) 4971 SELECT v_fserialnum_4, 4972 1, 4973 '100400201' as facctid , 4974 '0', 4975 '', 4976 v_total, 4977 0, 4978 4979 '1', 4980 '000', 4981 'RMB', 4982 '*', 4983 '', 4984 '','100400201'||',' ||substr(fdate,0,4)|| ',*,*,*' 4985 from dual; 4986 4987 insert into gk_zwvch_refer(FSERIALNUM, orign_type,orign_id,voucher_type,origin_teable,fmodule) 4988 select v_fserialnum_4 , 4989 '3' ORIGN_TYPE, 4990 z.id ORIGN_ID, 4991 z.voucher_type VOUCHER_TYPE, 4992 'common_req_back_detail' ORIGIN_TEABLE, 4993 '3' FMODULE 4994 from ( select crbd.id as id , '3' voucher_type , crb.reason as refundment_memo , crbd.pay_amt as amt , crbd.prjno as prjno ,crb.unitno ,crb.src_id as SRC_ID ,crbd.budget_type ,crbd.budgetno from common_req_back crb,common_req_back_detail crbd where crb.id=crbd.common_req_back_id) z 4995 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) and z.budgetno in (select distinct bg.func_bdgid from bs_gnflyskm bg where bg.func_bdgname like '%保险%') ; 4996 end if; 4997 4998 4999 5000 /* 5001 -- 退款的 一般支付 5002 借：1004.001.01其他财政存款.医院药品收支结余.农行活期（需与功能分类科目相对应） 5003 贷：5005财政专户管理资金支出[功能分类科目编码 预算单位编码] 5004 取功能分类科目名称中的关键字： 药品 5005 5006 会计科目编码组成：5005+功能分类科目编码 5007 5008 */ 5009 5010 select count(1) into v_count_gkfszh from gk_zfpz Z WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 5011 and z.budgetno in (select distinct bg.func_bdgid from bs_gnflyskm bg where bg.func_bdgname like '%药品%') ; 5012 if v_count_gkfszh >0 then 5013 --插入主表 5014 insert into gk_zwvch 5015 (fserialnum, 5016 FPERIOD, 5017 fgroup, 5018 fdate, 5019 fnum, 5020 fpreparer, 5021 fattachment, 5022 fmodule, 5023 jz_database, 5024 org_type, 5025 jz_fserialnum, 5026 orign_type, 5027 make_date) 5028 select v_fserialnum_5, 5029 substr(fdate, 6, 2), 5030 i_fgroup, 5031 to_date(fdate, 'yyyy-MM-dd'), 5032 0, 5033 i_fpreparer, 5034 v_count_gkfszh, 5035 3, 5036 i_databasename, 5037 '1', --资金来源类型 5038 0, 5039 v_orign_type, 5040 sysdate 5041 5042 from dual; 5043 5044 5045 ---贷方数据插入 5046 insert into gk_zwentry(fserialnum,fentryid,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname,budgetid) 5047 select fserialnum,ROWNUM+1,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, budgetid from ( 5048 select fserialnum,ROWNUM+1,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, 5049 budgetno || ',' ||substr(fdate,0,4)|| ',' || budget_type || ',' || voucher_type || ',' || SRC_ID budgetid 5050 from ( 5051 SELECT Z.SRC_ID,Z.voucher_type,z.budget_type,z.budgetno,substr(to_char(sysdate,'yyyy-MM-dd'),0,4) year1, v_fserialnum_5 fserialnum , 5052 '5005'||budgetno facctid, 5053 '1' fclsid , 5054 z.purpose fexp,z.zf_item_amt fdebit,0 fcredit,'1' fbanksettel ,z.prjno ftransid,'RMB' fcyid,z.unitno fobjid,z.zf_itemno zf_itemno,z.zf_itemname zf_itemname 5055 FROM ( 5056 SELECT Z.voucher_type, 5057 z.refundment_memo purpose, 5058 z.amt zf_item_amt, 5059 z.prjno prjno, 5060 z.unitno, 5061 Z.SRC_ID, 5062 Z.budget_type, 5063 Z.budgetno, 5064 '' zf_itemno, 5065 '' zf_itemname, 5066 (select bz.org_type from bs_zjly bz where bz.fundno=z.src_id ) ORG_TYPE 5067 -- z.AFFIRM_DATE 5068 FROM ( select crbd.id as id , '3' voucher_type , crb.reason as refundment_memo , crbd.pay_amt as amt , crbd.prjno as prjno ,crb.unitno ,crb.src_id as SRC_ID ,crbd.budget_type ,crbd.budgetno from common_req_back crb,common_req_back_detail crbd where crb.id=crbd.common_req_back_id) Z 5069 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 5070 and z.budgetno in (select distinct bg.func_bdgid from bs_gnflyskm bg where bg.func_bdgname like '%药品%') 5071 ) Z 5072 order by z.budgetno 5073 ) 5074 ) 5075 ; 5076 ---借方： 5077 5078 select sum(a.fcredit) into v_total from gk_zwentry a where a.fserialnum = v_fserialnum_5 ; 5079 insert into gk_zwentry 5080 (fserialnum, 5081 fentryid, 5082 facctid, 5083 fclsid, 5084 fexp, 5085 fdebit, 5086 fcredit, 5087 fbanksettel, 5088 ftransid, 5089 fcyid, 5090 fobjid, 5091 zf_itemno, 5092 zf_itemname,BUDGETID) 5093 SELECT v_fserialnum_5, 5094 v_max_index, 5095 '100400101' as facctid , 5096 '0', 5097 '', 5098 v_total, 5099 0, 5100 5101 '1', 5102 '000', 5103 'RMB', 5104 '*', 5105 '', 5106 '','100400101'||',' ||substr(fdate,0,4)|| ',*,*,*' 5107 from dual; 5108 5109 insert into gk_zwvch_refer(FSERIALNUM, orign_type,orign_id,voucher_type,origin_teable,fmodule) 5110 select v_fserialnum_5 , 5111 '3' ORIGN_TYPE, 5112 z.id ORIGN_ID, 5113 z.voucher_type VOUCHER_TYPE, 5114 'common_req_back_detail' ORIGIN_TEABLE, 5115 '3' FMODULE 5116 from ( select crbd.id as id , '3' voucher_type , crb.reason as refundment_memo , crbd.pay_amt as amt , crbd.prjno as prjno ,crb.unitno ,crb.src_id as SRC_ID ,crbd.budget_type ,crbd.budgetno from common_req_back crb,common_req_back_detail crbd where crb.id=crbd.common_req_back_id) z 5117 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) and z.budgetno in (select distinct bg.func_bdgid from bs_gnflyskm bg where bg.func_bdgname like '%药品%') ; 5118 end if; 5119 5120 5121 end if; 5122 5123 5124 --================================================================================================================ 5125 --========== 社会保障基金财政专户(失业) ======== 5126 --================================================================================================================ 5127 elsif org_name='社会保障基金财政专户(失业)' then 5128 if opertype='0' or opertype='1' or opertype='6' then 5129 /* 5130 （1）失业：上划社保资金（人行） 5131 借：2001.001暂收款.工伤/失业/医疗统筹资金 5132 贷：1003.003财政专户存款.人民银行 5133 5134 */ 5135 select count(1) into v_count_gkfszh from gk_zfpz Z WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) and z.src_id in ('00S','007') and z.purpose like '%失业%' and z.fk_account='190606000004273090'; /*社会保障基金财政专户(失业)*/ 5136 if v_count_gkfszh >0 then 5137 --插入主表 5138 insert into gk_zwvch 5139 (fserialnum, 5140 FPERIOD, 5141 fgroup, 5142 fdate, 5143 fnum, 5144 fpreparer, 5145 fattachment, 5146 fmodule, 5147 jz_database, 5148 org_type, 5149 jz_fserialnum, 5150 orign_type, 5151 make_date) 5152 select v_fserialnum_1, 5153 substr(fdate, 6, 2), 5154 i_fgroup, 5155 to_date(fdate, 'yyyy-MM-dd'), 5156 0, 5157 i_fpreparer, 5158 v_count_gkfszh, 5159 3, 5160 i_databasename, 5161 '1', --资金来源类型 5162 0, 5163 v_orign_type, 5164 sysdate 5165 5166 from dual; 5167 5168 5169 ---借方数据插入 5170 insert into gk_zwentry(fserialnum,fentryid,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname,budgetid) 5171 select fserialnum,ROWNUM,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, budgetid from ( 5172 select fserialnum,ROWNUM,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, 5173 budgetno || ',' ||substr(fdate,0,4)|| ',' || budget_type || ',' || voucher_type || ',' || SRC_ID budgetid 5174 from ( 5175 SELECT Z.SRC_ID,Z.voucher_type,z.budget_type,z.budgetno,substr(to_char(sysdate,'yyyy-MM-dd'),0,4) year1, v_fserialnum_1 fserialnum , 5176 '2001001' facctid, 5177 '1' fclsid , 5178 z.purpose fexp,z.zf_item_amt fdebit,0 fcredit,'1' fbanksettel ,z.prjno ftransid,'RMB' fcyid,z.unitno fobjid,z.zf_itemno zf_itemno,z.zf_itemname zf_itemname 5179 FROM ( 5180 SELECT Z.voucher_type, 5181 z.purpose purpose, 5182 z.amt zf_item_amt, 5183 z.prjno prjno, 5184 z.unitno, 5185 Z.SRC_ID, 5186 Z.budget_type, 5187 Z.budgetno, 5188 '' zf_itemno, 5189 '' zf_itemname, 5190 (select bz.org_type from bs_zjly bz where bz.fundno=z.src_id ) ORG_TYPE 5191 -- z.AFFIRM_DATE 5192 FROM gk_zfpz Z 5193 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 5194 and z.src_id in ('00S','007') and z.purpose like '%失业%' and z.fk_account='190606000004273090' 5195 ) Z 5196 order by z.budgetno 5197 ) 5198 ) 5199 ; 5200 ---贷方： 5201 5202 select sum(a.fdebit) into v_total from gk_zwentry a where a.fserialnum = v_fserialnum_1 ; 5203 select max(a.fentryid) + 1 into v_max_index from gk_zwentry a where a.fserialnum = v_fserialnum_1; 5204 insert into gk_zwentry 5205 (fserialnum, 5206 fentryid, 5207 facctid, 5208 fclsid, 5209 fexp, 5210 fdebit, 5211 fcredit, 5212 fbanksettel, 5213 ftransid, 5214 fcyid, 5215 fobjid, 5216 zf_itemno, 5217 zf_itemname,BUDGETID) 5218 SELECT v_fserialnum_1, 5219 v_max_index, 5220 '1003003' as facctid , 5221 '0', 5222 '', 5223 0, 5224 v_total, 5225 '1', 5226 '000', 5227 'RMB', 5228 '*', 5229 '', 5230 '','1003003'||',' ||substr(fdate,0,4)|| ',*,*,*' 5231 from dual; 5232 5233 insert into gk_zwvch_refer(FSERIALNUM, orign_type,orign_id,voucher_type,origin_teable,fmodule) 5234 select v_fserialnum_1 , 5235 '1' ORIGN_TYPE, 5236 z.id ORIGN_ID, 5237 z.voucher_type VOUCHER_TYPE, 5238 'GK_ZFPZ' ORIGIN_TEABLE, 5239 '3' FMODULE 5240 from gk_zfpz z 5241 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) and z.src_id in ('00S','007') and z.purpose like '%失业%' and z.fk_account='190606000004273090' ; 5242 end if; 5243 5244 5245 5246 5247 /* 5248 （2）失业：上划社保资金（农行） 5249 借：2001.001暂收款.工伤/失业/医疗统筹资金 5250 贷：1003.002财政专户存款.工伤/失业/医疗市级统筹专户 5251 社会保障基金专户（市级统筹失业） 465001040021376-0000000007 中国农业银行股份有限公司顺德清晖支行 5252 */ 5253 select count(1) into v_count_gkfszh from gk_zfpz Z WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) and z.src_id in ('00S','007') and z.purpose like '%失业%' and z.fk_account='44465001040021376-0000000007'; /*社会保障基金财政专户(失业)*/ 5254 if v_count_gkfszh >0 then 5255 --插入主表 5256 insert into gk_zwvch 5257 (fserialnum, 5258 FPERIOD, 5259 fgroup, 5260 fdate, 5261 fnum, 5262 fpreparer, 5263 fattachment, 5264 fmodule, 5265 jz_database, 5266 org_type, 5267 jz_fserialnum, 5268 orign_type, 5269 make_date) 5270 select v_fserialnum_2, 5271 substr(fdate, 6, 2), 5272 i_fgroup, 5273 to_date(fdate, 'yyyy-MM-dd'), 5274 0, 5275 i_fpreparer, 5276 v_count_gkfszh, 5277 3, 5278 i_databasename, 5279 '1', --资金来源类型 5280 0, 5281 v_orign_type, 5282 sysdate 5283 5284 from dual; 5285 5286 5287 ---借方数据插入 5288 insert into gk_zwentry(fserialnum,fentryid,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname,budgetid) 5289 select fserialnum,ROWNUM,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, budgetid from ( 5290 select fserialnum,ROWNUM,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, 5291 budgetno || ',' ||substr(fdate,0,4)|| ',' || budget_type || ',' || voucher_type || ',' || SRC_ID budgetid 5292 from ( 5293 SELECT Z.SRC_ID,Z.voucher_type,z.budget_type,z.budgetno,substr(to_char(sysdate,'yyyy-MM-dd'),0,4) year1, v_fserialnum_2 fserialnum , 5294 '2001001' facctid, 5295 '1' fclsid , 5296 z.purpose fexp,z.zf_item_amt fdebit,0 fcredit,'1' fbanksettel ,z.prjno ftransid,'RMB' fcyid,z.unitno fobjid,z.zf_itemno zf_itemno,z.zf_itemname zf_itemname 5297 FROM ( 5298 SELECT Z.voucher_type, 5299 z.purpose purpose, 5300 z.amt zf_item_amt, 5301 z.prjno prjno, 5302 z.unitno, 5303 Z.SRC_ID, 5304 Z.budget_type, 5305 Z.budgetno, 5306 '' zf_itemno, 5307 '' zf_itemname, 5308 (select bz.org_type from bs_zjly bz where bz.fundno=z.src_id ) ORG_TYPE 5309 -- z.AFFIRM_DATE 5310 FROM gk_zfpz Z 5311 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 5312 and z.src_id in ('00S','007') and z.purpose like '%失业%' and z.fk_account='44465001040021376-0000000007' 5313 ) Z 5314 order by z.budgetno 5315 ) 5316 ) 5317 ; 5318 ---贷方： 5319 5320 select sum(a.fdebit) into v_total from gk_zwentry a where a.fserialnum = v_fserialnum_2 ; 5321 select max(a.fentryid) + 1 into v_max_index from gk_zwentry a where a.fserialnum = v_fserialnum_2; 5322 insert into gk_zwentry 5323 (fserialnum, 5324 fentryid, 5325 facctid, 5326 fclsid, 5327 fexp, 5328 fdebit, 5329 fcredit, 5330 fbanksettel, 5331 ftransid, 5332 fcyid, 5333 fobjid, 5334 zf_itemno, 5335 zf_itemname,BUDGETID) 5336 SELECT v_fserialnum_2, 5337 v_max_index, 5338 '1003002' as facctid , 5339 '0', 5340 '', 5341 0, 5342 v_total, 5343 '1', 5344 '000', 5345 'RMB', 5346 '*', 5347 '', 5348 '','1003002'||',' ||substr(fdate,0,4)|| ',*,*,*' 5349 from dual; 5350 5351 insert into gk_zwvch_refer(FSERIALNUM, orign_type,orign_id,voucher_type,origin_teable,fmodule) 5352 select v_fserialnum_2 , 5353 '1' ORIGN_TYPE, 5354 z.id ORIGN_ID, 5355 z.voucher_type VOUCHER_TYPE, 5356 'GK_ZFPZ' ORIGIN_TEABLE, 5357 '3' FMODULE 5358 from gk_zfpz z 5359 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) and z.src_id in ('00S','007') and z.purpose like '%失业%' and z.fk_account='44465001040021376-0000000007' ; 5360 end if; 5361 5362 5363 end if; 5364 5365 5366 5367 --================================================================================================================ 5368 --========== 社会保障基金财政专户(养老) ======== 5369 --================================================================================================================ 5370 elsif org_name='社会保障基金财政专户(养老)' then 5371 if opertype='0' or opertype='1' or opertype='6' then 5372 /* 5373 （1）养老/生育：上划社保资金（人行） 一般支付支出 5374 借：2001.001暂收款.养老统筹资金 5375 贷：1003.002 财政专户存款.人民银行 5376 5377 gk_zfpz 表付款帐号为： 人行社保专户 190606000004273090 中国人民银行顺德支行 5378 5379 */ 5380 5381 select count(1) into v_count_gkfszh from gk_zfpz Z WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) and z.src_id in ('00S','007') and( z.purpose like '%养老%' and z.purpose not like '%利息%' ) and z.fk_account in ('190606000004273090' ); /*社会保障基金财政专户(养老)*/ 5382 if v_count_gkfszh >0 then 5383 --插入主表 5384 insert into gk_zwvch 5385 (fserialnum, 5386 FPERIOD, 5387 fgroup, 5388 fdate, 5389 fnum, 5390 fpreparer, 5391 fattachment, 5392 fmodule, 5393 jz_database, 5394 org_type, 5395 jz_fserialnum, 5396 orign_type, 5397 make_date) 5398 select v_fserialnum_1, 5399 substr(fdate, 6, 2), 5400 i_fgroup, 5401 to_date(fdate, 'yyyy-MM-dd'), 5402 0, 5403 i_fpreparer, 5404 v_count_gkfszh, 5405 3, 5406 i_databasename, 5407 '1', --资金来源类型 5408 0, 5409 v_orign_type, 5410 sysdate 5411 5412 from dual; 5413 5414 5415 ---借方数据插入 5416 insert into gk_zwentry(fserialnum,fentryid,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname,budgetid) 5417 select fserialnum,ROWNUM,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, budgetid from ( 5418 select fserialnum,ROWNUM,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, 5419 budgetno || ',' ||substr(fdate,0,4)|| ',' || budget_type || ',' || voucher_type || ',' || SRC_ID budgetid 5420 from ( 5421 SELECT Z.SRC_ID,Z.voucher_type,z.budget_type,z.budgetno,substr(to_char(sysdate,'yyyy-MM-dd'),0,4) year1, v_fserialnum_1 fserialnum , 5422 '2001001' facctid, 5423 '1' fclsid , 5424 z.purpose fexp,z.zf_item_amt fdebit,0 fcredit,'1' fbanksettel ,z.prjno ftransid,'RMB' fcyid,z.unitno fobjid,z.zf_itemno zf_itemno,z.zf_itemname zf_itemname 5425 FROM ( 5426 SELECT Z.voucher_type, 5427 z.purpose purpose, 5428 z.amt zf_item_amt, 5429 z.prjno prjno, 5430 z.unitno, 5431 Z.SRC_ID, 5432 Z.budget_type, 5433 Z.budgetno, 5434 '' zf_itemno, 5435 '' zf_itemname, 5436 (select bz.org_type from bs_zjly bz where bz.fundno=z.src_id ) ORG_TYPE 5437 -- z.AFFIRM_DATE 5438 FROM gk_zfpz Z 5439 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 5440 and z.src_id in ('00S','007') 5441 and( z.purpose like '%养老%' and z.purpose not like '%利息%' ) 5442 and z.fk_account in ('190606000004273090' ) 5443 ) Z 5444 order by z.budgetno 5445 ) 5446 ) 5447 ; 5448 ---贷方： 5449 5450 select sum(a.fdebit) into v_total from gk_zwentry a where a.fserialnum = v_fserialnum_1 ; 5451 select max(a.fentryid) + 1 into v_max_index from gk_zwentry a where a.fserialnum = v_fserialnum_1; 5452 insert into gk_zwentry 5453 (fserialnum, 5454 fentryid, 5455 facctid, 5456 fclsid, 5457 fexp, 5458 fdebit, 5459 fcredit, 5460 fbanksettel, 5461 ftransid, 5462 fcyid, 5463 fobjid, 5464 zf_itemno, 5465 zf_itemname,BUDGETID) 5466 SELECT v_fserialnum_1, 5467 v_max_index, 5468 '1003002' as facctid , 5469 '0', 5470 '', 5471 0, 5472 v_total, 5473 '1', 5474 '000', 5475 'RMB', 5476 '*', 5477 '', 5478 '','1003002'||',' ||substr(fdate,0,4)|| ',*,*,*' 5479 from dual; 5480 5481 insert into gk_zwvch_refer(FSERIALNUM, orign_type,orign_id,voucher_type,origin_teable,fmodule) 5482 select v_fserialnum_1 , 5483 '1' ORIGN_TYPE, 5484 z.id ORIGN_ID, 5485 z.voucher_type VOUCHER_TYPE, 5486 'GK_ZFPZ' ORIGIN_TEABLE, 5487 '3' FMODULE 5488 from gk_zfpz z 5489 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 5490 and z.src_id in ('00S','007') 5491 and( z.purpose like '%养老%' and z.purpose not like '%利息%' ) 5492 and z.fk_account in ('190606000004273090' ); 5493 end if; 5494 5495 5496 5497 5498 5499 /* 5500 （2）养老/生育：上划社保资金（农行） 一般支付支出 5501 借：2001001暂收款.养老统筹资金 5502 贷：1003.001财政专户存款.养老市级统筹专户 44465001040021376-0000000005 5503 5504 gk_zfpz 表付款帐号为： 社会保障基金专户（市级统筹养老） 465001040021376-0000000005 中国农业银行股份有限公司顺德清晖支行 5505 */ 5506 5507 select count(1) into v_count_gkfszh from gk_zfpz Z WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) and z.src_id in ('00S','007') and (z.purpose like '%养老%' and z.purpose not like '%利息%') and z.fk_account='44465001040021376-0000000005'; /*社会保障基金财政专户(养老)*/ 5508 if v_count_gkfszh >0 then 5509 --插入主表 5510 insert into gk_zwvch 5511 (fserialnum, 5512 FPERIOD, 5513 fgroup, 5514 fdate, 5515 fnum, 5516 fpreparer, 5517 fattachment, 5518 fmodule, 5519 jz_database, 5520 org_type, 5521 jz_fserialnum, 5522 orign_type, 5523 make_date) 5524 select v_fserialnum_2, 5525 substr(fdate, 6, 2), 5526 i_fgroup, 5527 to_date(fdate, 'yyyy-MM-dd'), 5528 0, 5529 i_fpreparer, 5530 v_count_gkfszh, 5531 3, 5532 i_databasename, 5533 '1', --资金来源类型 5534 0, 5535 v_orign_type, 5536 sysdate 5537 5538 from dual; 5539 5540 5541 ---借方数据插入 5542 insert into gk_zwentry(fserialnum,fentryid,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname,budgetid) 5543 select fserialnum,ROWNUM,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, budgetid from ( 5544 select fserialnum,ROWNUM,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, 5545 budgetno || ',' ||substr(fdate,0,4)|| ',' || budget_type || ',' || voucher_type || ',' || SRC_ID budgetid 5546 from ( 5547 SELECT Z.SRC_ID,Z.voucher_type,z.budget_type,z.budgetno,substr(to_char(sysdate,'yyyy-MM-dd'),0,4) year1, v_fserialnum_2 fserialnum , 5548 '2001001' facctid, 5549 '1' fclsid , 5550 z.purpose fexp,z.zf_item_amt fdebit,0 fcredit,'1' fbanksettel ,z.prjno ftransid,'RMB' fcyid,z.unitno fobjid,z.zf_itemno zf_itemno,z.zf_itemname zf_itemname 5551 FROM ( 5552 SELECT Z.voucher_type, 5553 z.purpose purpose, 5554 z.amt zf_item_amt, 5555 z.prjno prjno, 5556 z.unitno, 5557 Z.SRC_ID, 5558 Z.budget_type, 5559 Z.budgetno, 5560 '' zf_itemno, 5561 '' zf_itemname, 5562 (select bz.org_type from bs_zjly bz where bz.fundno=z.src_id ) ORG_TYPE 5563 -- z.AFFIRM_DATE 5564 FROM gk_zfpz Z 5565 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 5566 and z.src_id in ('00S','007') 5567 and (z.purpose like '%养老%' and z.purpose not like '%利息%') 5568 and z.fk_account='44465001040021376-0000000005' 5569 ) Z 5570 order by z.budgetno 5571 ) 5572 ) 5573 ; 5574 ---贷方： 5575 5576 select sum(a.fdebit) into v_total from gk_zwentry a where a.fserialnum = v_fserialnum_2 ; 5577 select max(a.fentryid) + 1 into v_max_index from gk_zwentry a where a.fserialnum = v_fserialnum_2; 5578 insert into gk_zwentry 5579 (fserialnum, 5580 fentryid, 5581 facctid, 5582 fclsid, 5583 fexp, 5584 fdebit, 5585 fcredit, 5586 fbanksettel, 5587 ftransid, 5588 fcyid, 5589 fobjid, 5590 zf_itemno, 5591 zf_itemname,BUDGETID) 5592 SELECT v_fserialnum_2, 5593 v_max_index, 5594 '1003001' as facctid , 5595 '0', 5596 '', 5597 0, 5598 v_total, 5599 '1', 5600 '000', 5601 'RMB', 5602 '*', 5603 '', 5604 '','1003001'||',' ||substr(fdate,0,4)|| ',*,*,*' 5605 from dual; 5606 5607 insert into gk_zwvch_refer(FSERIALNUM, orign_type,orign_id,voucher_type,origin_teable,fmodule) 5608 select v_fserialnum_2 , 5609 '1' ORIGN_TYPE, 5610 z.id ORIGN_ID, 5611 z.voucher_type VOUCHER_TYPE, 5612 'GK_ZFPZ' ORIGIN_TEABLE, 5613 '3' FMODULE 5614 from gk_zfpz z 5615 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 5616 and z.src_id in ('00S','007') 5617 and (z.purpose like '%养老%' and z.purpose not like '%利息%') 5618 and z.fk_account='44465001040021376-0000000005' ; 5619 end if; 5620 5621 5622 5623 5624 /* 5625 （3）上划利息收入（只针对养老户） 一般支付支出 5626 借：2001.001暂收款.养老统筹资金 5627 贷：1003.002财政专户存款.人民银行 5628 5629 gk_zfpz 表付款帐号为： 人行社保专户 190606000004273090 中国人民银行顺德支行 5630 */ 5631 select count(1) into v_count_gkfszh from gk_zfpz Z WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) and z.src_id in ('00S','007') and z.purpose like '%利息%' ; /*社会保障基金财政专户(养老)*/ 5632 if v_count_gkfszh >0 then 5633 --插入主表 5634 insert into gk_zwvch 5635 (fserialnum, 5636 FPERIOD, 5637 fgroup, 5638 fdate, 5639 fnum, 5640 fpreparer, 5641 fattachment, 5642 fmodule, 5643 jz_database, 5644 org_type, 5645 jz_fserialnum, 5646 orign_type, 5647 make_date) 5648 select v_fserialnum_3, 5649 substr(fdate, 6, 2), 5650 i_fgroup, 5651 to_date(fdate, 'yyyy-MM-dd'), 5652 0, 5653 i_fpreparer, 5654 v_count_gkfszh, 5655 3, 5656 i_databasename, 5657 '1', --资金来源类型 5658 0, 5659 v_orign_type, 5660 sysdate 5661 5662 from dual; 5663 5664 5665 ---借方数据插入 5666 insert into gk_zwentry(fserialnum,fentryid,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname,budgetid) 5667 select fserialnum,ROWNUM,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, budgetid from ( 5668 select fserialnum,ROWNUM,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, 5669 budgetno || ',' ||substr(fdate,0,4)|| ',' || budget_type || ',' || voucher_type || ',' || SRC_ID budgetid 5670 from ( 5671 SELECT Z.SRC_ID,Z.voucher_type,z.budget_type,z.budgetno,substr(to_char(sysdate,'yyyy-MM-dd'),0,4) year1, v_fserialnum_3 fserialnum , 5672 '2001001' facctid, 5673 '1' fclsid , 5674 z.purpose fexp,z.zf_item_amt fdebit,0 fcredit,'1' fbanksettel ,z.prjno ftransid,'RMB' fcyid,z.unitno fobjid,z.zf_itemno zf_itemno,z.zf_itemname zf_itemname 5675 FROM ( 5676 SELECT Z.voucher_type, 5677 z.purpose purpose, 5678 z.amt zf_item_amt, 5679 z.prjno prjno, 5680 z.unitno, 5681 Z.SRC_ID, 5682 Z.budget_type, 5683 Z.budgetno, 5684 '' zf_itemno, 5685 '' zf_itemname, 5686 (select bz.org_type from bs_zjly bz where bz.fundno=z.src_id ) ORG_TYPE 5687 -- z.AFFIRM_DATE 5688 FROM gk_zfpz Z 5689 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 5690 and z.src_id in ('00S','007') 5691 and z.purpose like '%利息%' 5692 ) Z 5693 order by z.budgetno 5694 ) 5695 ) 5696 ; 5697 ---贷方： 5698 5699 select sum(a.fdebit) into v_total from gk_zwentry a where a.fserialnum = v_fserialnum_3 ; 5700 select max(a.fentryid) + 1 into v_max_index from gk_zwentry a where a.fserialnum = v_fserialnum_3; 5701 insert into gk_zwentry 5702 (fserialnum, 5703 fentryid, 5704 facctid, 5705 fclsid, 5706 fexp, 5707 fdebit, 5708 fcredit, 5709 fbanksettel, 5710 ftransid, 5711 fcyid, 5712 fobjid, 5713 zf_itemno, 5714 zf_itemname,BUDGETID) 5715 SELECT v_fserialnum_3, 5716 v_max_index, 5717 '1003002' as facctid , 5718 '0', 5719 '', 5720 0, 5721 v_total, 5722 '1', 5723 '000', 5724 'RMB', 5725 '*', 5726 '', 5727 '','1003002'||',' ||substr(fdate,0,4)|| ',*,*,*' 5728 from dual; 5729 5730 insert into gk_zwvch_refer(FSERIALNUM, orign_type,orign_id,voucher_type,origin_teable,fmodule) 5731 select v_fserialnum_3 , 5732 '1' ORIGN_TYPE, 5733 z.id ORIGN_ID, 5734 z.voucher_type VOUCHER_TYPE, 5735 'GK_ZFPZ' ORIGIN_TEABLE, 5736 '3' FMODULE 5737 from gk_zfpz z 5738 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 5739 and z.src_id in ('00S','007') 5740 and z.purpose like '%利息%'; 5741 end if; 5742 5743 end if; 5744 --================================================================================================================ 5745 --========== 社会保障基金财政专户(生育) ======== 5746 --================================================================================================================ 5747 elsif org_name='社会保障基金财政专户(生育)' then 5748 if opertype='0' or opertype='1' or opertype='6' then 5749 /* 5750 （1）养老/生育：上划社保资金（人行） 一般支付支出 5751 借：2001.001暂收款.养老统筹资金 5752 贷：1003.002财政专户存款.人民银行 5753 5754 gk_zfpz 表付款帐号为： 人行社保专户 190606000004273090 中国人民银行顺德支行 5755 */ 5756 select count(1) into v_count_gkfszh from gk_zfpz Z WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) and z.src_id in ('00S','007') and z.purpose like '%生育%' and z.fk_account in ('190606000004273090' ); /*社会保障基金财政专户(生育)*/ 5757 if v_count_gkfszh >0 then 5758 --插入主表 5759 insert into gk_zwvch 5760 (fserialnum, 5761 FPERIOD, 5762 fgroup, 5763 fdate, 5764 fnum, 5765 fpreparer, 5766 fattachment, 5767 fmodule, 5768 jz_database, 5769 org_type, 5770 jz_fserialnum, 5771 orign_type, 5772 make_date) 5773 select v_fserialnum_1, 5774 substr(fdate, 6, 2), 5775 i_fgroup, 5776 to_date(fdate, 'yyyy-MM-dd'), 5777 0, 5778 i_fpreparer, 5779 v_count_gkfszh, 5780 3, 5781 i_databasename, 5782 '1', --资金来源类型 5783 0, 5784 v_orign_type, 5785 sysdate 5786 5787 from dual; 5788 5789 5790 ---借方数据插入 5791 insert into gk_zwentry(fserialnum,fentryid,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname,budgetid) 5792 select fserialnum,ROWNUM,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, budgetid from ( 5793 select fserialnum,ROWNUM,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, 5794 budgetno || ',' ||substr(fdate,0,4)|| ',' || budget_type || ',' || voucher_type || ',' || SRC_ID budgetid 5795 from ( 5796 SELECT Z.SRC_ID,Z.voucher_type,z.budget_type,z.budgetno,substr(to_char(sysdate,'yyyy-MM-dd'),0,4) year1, v_fserialnum_1 fserialnum , 5797 '2001001' facctid, 5798 '1' fclsid , 5799 z.purpose fexp,z.zf_item_amt fdebit,0 fcredit,'1' fbanksettel ,z.prjno ftransid,'RMB' fcyid,z.unitno fobjid,z.zf_itemno zf_itemno,z.zf_itemname zf_itemname 5800 FROM ( 5801 SELECT Z.voucher_type, 5802 z.purpose purpose, 5803 z.amt zf_item_amt, 5804 z.prjno prjno, 5805 z.unitno, 5806 Z.SRC_ID, 5807 Z.budget_type, 5808 Z.budgetno, 5809 '' zf_itemno, 5810 '' zf_itemname, 5811 (select bz.org_type from bs_zjly bz where bz.fundno=z.src_id ) ORG_TYPE 5812 -- z.AFFIRM_DATE 5813 FROM gk_zfpz Z 5814 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 5815 and z.src_id in ('00S','007') and z.purpose like '%生育%' and z.fk_account in ('190606000004273090' ) 5816 ) Z 5817 order by z.budgetno 5818 ) 5819 ) 5820 ; 5821 ---贷方： 5822 5823 select sum(a.fdebit) into v_total from gk_zwentry a where a.fserialnum = v_fserialnum_1 ; 5824 select max(a.fentryid) + 1 into v_max_index from gk_zwentry a where a.fserialnum = v_fserialnum_1; 5825 insert into gk_zwentry 5826 (fserialnum, 5827 fentryid, 5828 facctid, 5829 fclsid, 5830 fexp, 5831 fdebit, 5832 fcredit, 5833 fbanksettel, 5834 ftransid, 5835 fcyid, 5836 fobjid, 5837 zf_itemno, 5838 zf_itemname,BUDGETID) 5839 SELECT v_fserialnum_1, 5840 v_max_index, 5841 '1003002' as facctid , 5842 '0', 5843 '', 5844 0, 5845 v_total, 5846 '1', 5847 '000', 5848 'RMB', 5849 '*', 5850 '', 5851 '','1003002'||',' ||substr(fdate,0,4)|| ',*,*,*' 5852 from dual; 5853 5854 insert into gk_zwvch_refer(FSERIALNUM, orign_type,orign_id,voucher_type,origin_teable,fmodule) 5855 select v_fserialnum_1 , 5856 '1' ORIGN_TYPE, 5857 z.id ORIGN_ID, 5858 z.voucher_type VOUCHER_TYPE, 5859 'GK_ZFPZ' ORIGIN_TEABLE, 5860 '3' FMODULE 5861 from gk_zfpz z 5862 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) and z.src_id in ('00S','007') and z.purpose like '%生育%' and z.fk_account in ('190606000004273090' ) ; 5863 end if; 5864 5865 5866 5867 5868 5869 5870 /* 5871 （2）养老/生育：上划社保资金（农行） 一般支付支出 5872 借：2001.001暂收款.养老统筹资金 5873 贷：1003.001财政专户存款.养老市级统筹专户 5874 44465001040021376-0000000009 5875 gk_zfpz 表付款帐号为： 社会保障基金专户（市级统筹生育） 465001040021376-0000000009 中国农业银行股份有限公司顺德清晖支行 5876 5877 */ 5878 5879 select count(1) into v_count_gkfszh from gk_zfpz Z WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) and z.src_id in ('00S','007') and z.purpose like '%生育%' and z.fk_account='44465001040021376-0000000009'; /*社会保障基金财政专户(生育)*/ 5880 if v_count_gkfszh >0 then 5881 --插入主表 5882 insert into gk_zwvch 5883 (fserialnum, 5884 FPERIOD, 5885 fgroup, 5886 fdate, 5887 fnum, 5888 fpreparer, 5889 fattachment, 5890 fmodule, 5891 jz_database, 5892 org_type, 5893 jz_fserialnum, 5894 orign_type, 5895 make_date) 5896 select v_fserialnum_2, 5897 substr(fdate, 6, 2), 5898 i_fgroup, 5899 to_date(fdate, 'yyyy-MM-dd'), 5900 0, 5901 i_fpreparer, 5902 v_count_gkfszh, 5903 3, 5904 i_databasename, 5905 '1', --资金来源类型 5906 0, 5907 v_orign_type, 5908 sysdate 5909 5910 from dual; 5911 5912 5913 ---借方数据插入 5914 insert into gk_zwentry(fserialnum,fentryid,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname,budgetid) 5915 select fserialnum,ROWNUM,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, budgetid from ( 5916 select fserialnum,ROWNUM,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, 5917 budgetno || ',' ||substr(fdate,0,4)|| ',' || budget_type || ',' || voucher_type || ',' || SRC_ID budgetid 5918 from ( 5919 SELECT Z.SRC_ID,Z.voucher_type,z.budget_type,z.budgetno,substr(to_char(sysdate,'yyyy-MM-dd'),0,4) year1, v_fserialnum_2 fserialnum , 5920 '2001001' facctid, 5921 '1' fclsid , 5922 z.purpose fexp,z.zf_item_amt fdebit,0 fcredit,'1' fbanksettel ,z.prjno ftransid,'RMB' fcyid,z.unitno fobjid,z.zf_itemno zf_itemno,z.zf_itemname zf_itemname 5923 FROM ( 5924 SELECT Z.voucher_type, 5925 z.purpose purpose, 5926 z.amt zf_item_amt, 5927 z.prjno prjno, 5928 z.unitno, 5929 Z.SRC_ID, 5930 Z.budget_type, 5931 Z.budgetno, 5932 '' zf_itemno, 5933 '' zf_itemname, 5934 (select bz.org_type from bs_zjly bz where bz.fundno=z.src_id ) ORG_TYPE 5935 -- z.AFFIRM_DATE 5936 FROM gk_zfpz Z 5937 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 5938 and z.src_id in ('00S','007') and z.purpose like '%生育%' and z.fk_account='44465001040021376-0000000009' 5939 ) Z 5940 order by z.budgetno 5941 ) 5942 ) 5943 ; 5944 ---贷方： 5945 5946 select sum(a.fdebit) into v_total from gk_zwentry a where a.fserialnum = v_fserialnum_2 ; 5947 select max(a.fentryid) + 1 into v_max_index from gk_zwentry a where a.fserialnum = v_fserialnum_2; 5948 insert into gk_zwentry 5949 (fserialnum, 5950 fentryid, 5951 facctid, 5952 fclsid, 5953 fexp, 5954 fdebit, 5955 fcredit, 5956 fbanksettel, 5957 ftransid, 5958 fcyid, 5959 fobjid, 5960 zf_itemno, 5961 zf_itemname,BUDGETID) 5962 SELECT v_fserialnum_2, 5963 v_max_index, 5964 '1003001' as facctid , 5965 '0', 5966 '', 5967 0, 5968 v_total, 5969 '1', 5970 '000', 5971 'RMB', 5972 '*', 5973 '', 5974 '','1003001'||',' ||substr(fdate,0,4)|| ',*,*,*' 5975 from dual; 5976 5977 insert into gk_zwvch_refer(FSERIALNUM, orign_type,orign_id,voucher_type,origin_teable,fmodule) 5978 select v_fserialnum_2 , 5979 '1' ORIGN_TYPE, 5980 z.id ORIGN_ID, 5981 z.voucher_type VOUCHER_TYPE, 5982 'GK_ZFPZ' ORIGIN_TEABLE, 5983 '3' FMODULE 5984 from gk_zfpz z 5985 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) and z.src_id in ('00S','007') and z.purpose like '%生育%' and z.fk_account='44465001040021376-0000000009' ; 5986 end if; 5987 5988 end if; 5989 5990 5991 --================================================================================================================ 5992 --========== 社会保障基金财政专户(医疗) ======== 5993 --================================================================================================================ 5994 elsif org_name='社会保障基金财政专户(医疗)' then 5995 5996 if opertype='0' or opertype='1' or opertype='6' then 5997 /* 5998 （1） 医疗：上划社保资金（人行） 5999 借：2001.001暂收款.工伤/失业/医疗统筹资金 6000 贷：1003.003财政专户存款.人民银行 6001 6002 */ 6003 select count(1) into v_count_gkfszh from gk_zfpz Z WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) and z.src_id in ('00S','007') and z.purpose like '%医疗%' and z.fk_account='190606000004273090'; /*社会保障基金财政专户(医疗)*/ 6004 if v_count_gkfszh >0 then 6005 --插入主表 6006 insert into gk_zwvch 6007 (fserialnum, 6008 FPERIOD, 6009 fgroup, 6010 fdate, 6011 fnum, 6012 fpreparer, 6013 fattachment, 6014 fmodule, 6015 jz_database, 6016 org_type, 6017 jz_fserialnum, 6018 orign_type, 6019 make_date) 6020 select v_fserialnum_1, 6021 substr(fdate, 6, 2), 6022 i_fgroup, 6023 to_date(fdate, 'yyyy-MM-dd'), 6024 0, 6025 i_fpreparer, 6026 v_count_gkfszh, 6027 3, 6028 i_databasename, 6029 '1', --资金来源类型 6030 0, 6031 v_orign_type, 6032 sysdate 6033 6034 from dual; 6035 6036 6037 ---借方数据插入 6038 insert into gk_zwentry(fserialnum,fentryid,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname,budgetid) 6039 select fserialnum,ROWNUM,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, budgetid from ( 6040 select fserialnum,ROWNUM,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, 6041 budgetno || ',' ||substr(fdate,0,4)|| ',' || budget_type || ',' || voucher_type || ',' || SRC_ID budgetid 6042 from ( 6043 SELECT Z.SRC_ID,Z.voucher_type,z.budget_type,z.budgetno,substr(to_char(sysdate,'yyyy-MM-dd'),0,4) year1, v_fserialnum_1 fserialnum , 6044 '2001001' facctid, 6045 '1' fclsid , 6046 z.purpose fexp,z.zf_item_amt fdebit,0 fcredit,'1' fbanksettel ,z.prjno ftransid,'RMB' fcyid,z.unitno fobjid,z.zf_itemno zf_itemno,z.zf_itemname zf_itemname 6047 FROM ( 6048 SELECT Z.voucher_type, 6049 z.purpose purpose, 6050 z.amt zf_item_amt, 6051 z.prjno prjno, 6052 z.unitno, 6053 Z.SRC_ID, 6054 Z.budget_type, 6055 Z.budgetno, 6056 '' zf_itemno, 6057 '' zf_itemname, 6058 (select bz.org_type from bs_zjly bz where bz.fundno=z.src_id ) ORG_TYPE 6059 -- z.AFFIRM_DATE 6060 FROM gk_zfpz Z 6061 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 6062 and z.src_id in ('00S','007') and z.purpose like '%医疗%' and z.fk_account='190606000004273090' 6063 ) Z 6064 order by z.budgetno 6065 ) 6066 ) 6067 ; 6068 ---贷方： 6069 6070 select sum(a.fdebit) into v_total from gk_zwentry a where a.fserialnum = v_fserialnum_1 ; 6071 select max(a.fentryid) + 1 into v_max_index from gk_zwentry a where a.fserialnum = v_fserialnum_1; 6072 insert into gk_zwentry 6073 (fserialnum, 6074 fentryid, 6075 facctid, 6076 fclsid, 6077 fexp, 6078 fdebit, 6079 fcredit, 6080 fbanksettel, 6081 ftransid, 6082 fcyid, 6083 fobjid, 6084 zf_itemno, 6085 zf_itemname,BUDGETID) 6086 SELECT v_fserialnum_1, 6087 v_max_index, 6088 '1003003' as facctid , 6089 '0', 6090 '', 6091 0, 6092 v_total, 6093 '1', 6094 '000', 6095 'RMB', 6096 '*', 6097 '', 6098 '','1003003'||',' ||substr(fdate,0,4)|| ',*,*,*' 6099 from dual; 6100 6101 insert into gk_zwvch_refer(FSERIALNUM, orign_type,orign_id,voucher_type,origin_teable,fmodule) 6102 select v_fserialnum_1 , 6103 '1' ORIGN_TYPE, 6104 z.id ORIGN_ID, 6105 z.voucher_type VOUCHER_TYPE, 6106 'GK_ZFPZ' ORIGIN_TEABLE, 6107 '3' FMODULE 6108 from gk_zfpz z 6109 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) and z.src_id in ('00S','007') and z.purpose like '%医疗%' and z.fk_account='190606000004273090' ; 6110 end if; 6111 6112 6113 6114 6115 6116 /* 6117 （2）工伤/失业/医疗：上划社保资金（农行） 6118 借：2001.001暂收款.工伤/失业/医疗统筹资金 6119 贷：1003.002财政专户存款.工伤/失业/医疗市级统筹专户 6120 6121 社会保障基金专户（市级统筹医疗） 465001040021376-0000000008 中国农业银行股份有限公司顺德清晖支行 6122 6123 */ 6124 6125 select count(1) into v_count_gkfszh from gk_zfpz Z WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) and z.src_id in ('00S','007') and z.purpose like '%医疗%' and z.fk_account='44465001040021376-0000000008'; /*社会保障基金财政专户(医疗)*/ 6126 if v_count_gkfszh >0 then 6127 --插入主表 6128 insert into gk_zwvch 6129 (fserialnum, 6130 FPERIOD, 6131 fgroup, 6132 fdate, 6133 fnum, 6134 fpreparer, 6135 fattachment, 6136 fmodule, 6137 jz_database, 6138 org_type, 6139 jz_fserialnum, 6140 orign_type, 6141 make_date) 6142 select v_fserialnum_2, 6143 substr(fdate, 6, 2), 6144 i_fgroup, 6145 to_date(fdate, 'yyyy-MM-dd'), 6146 0, 6147 i_fpreparer, 6148 v_count_gkfszh, 6149 3, 6150 i_databasename, 6151 '1', --资金来源类型 6152 0, 6153 v_orign_type, 6154 sysdate 6155 6156 from dual; 6157 6158 6159 ---借方数据插入 6160 insert into gk_zwentry(fserialnum,fentryid,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname,budgetid) 6161 select fserialnum,ROWNUM,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, budgetid from ( 6162 select fserialnum,ROWNUM,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, 6163 budgetno || ',' ||substr(fdate,0,4)|| ',' || budget_type || ',' || voucher_type || ',' || SRC_ID budgetid 6164 from ( 6165 SELECT Z.SRC_ID,Z.voucher_type,z.budget_type,z.budgetno,substr(to_char(sysdate,'yyyy-MM-dd'),0,4) year1, v_fserialnum_2 fserialnum , 6166 '2001001' facctid, 6167 '1' fclsid , 6168 z.purpose fexp,z.zf_item_amt fdebit,0 fcredit,'1' fbanksettel ,z.prjno ftransid,'RMB' fcyid,z.unitno fobjid,z.zf_itemno zf_itemno,z.zf_itemname zf_itemname 6169 FROM ( 6170 SELECT Z.voucher_type, 6171 z.purpose purpose, 6172 z.amt zf_item_amt, 6173 z.prjno prjno, 6174 z.unitno, 6175 Z.SRC_ID, 6176 Z.budget_type, 6177 Z.budgetno, 6178 '' zf_itemno, 6179 '' zf_itemname, 6180 (select bz.org_type from bs_zjly bz where bz.fundno=z.src_id ) ORG_TYPE 6181 -- z.AFFIRM_DATE 6182 FROM gk_zfpz Z 6183 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 6184 and z.src_id in ('00S','007') and z.purpose like '%医疗%' and z.fk_account='44465001040021376-0000000008' 6185 ) Z 6186 order by z.budgetno 6187 ) 6188 ) 6189 ; 6190 ---贷方： 6191 6192 select sum(a.fdebit) into v_total from gk_zwentry a where a.fserialnum = v_fserialnum_2 ; 6193 select max(a.fentryid) + 1 into v_max_index from gk_zwentry a where a.fserialnum = v_fserialnum_2; 6194 insert into gk_zwentry 6195 (fserialnum, 6196 fentryid, 6197 facctid, 6198 fclsid, 6199 fexp, 6200 fdebit, 6201 fcredit, 6202 fbanksettel, 6203 ftransid, 6204 fcyid, 6205 fobjid, 6206 zf_itemno, 6207 zf_itemname,BUDGETID) 6208 SELECT v_fserialnum_2, 6209 v_max_index, 6210 '1003002' as facctid , 6211 '0', 6212 '', 6213 0, 6214 v_total, 6215 '1', 6216 '000', 6217 'RMB', 6218 '*', 6219 '', 6220 '','1003002'||',' ||substr(fdate,0,4)|| ',*,*,*' 6221 from dual; 6222 6223 insert into gk_zwvch_refer(FSERIALNUM, orign_type,orign_id,voucher_type,origin_teable,fmodule) 6224 select v_fserialnum_2 , 6225 '1' ORIGN_TYPE, 6226 z.id ORIGN_ID, 6227 z.voucher_type VOUCHER_TYPE, 6228 'GK_ZFPZ' ORIGIN_TEABLE, 6229 '3' FMODULE 6230 from gk_zfpz z 6231 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) and z.src_id in ('00S','007') and z.purpose like '%医疗%' and z.fk_account='44465001040021376-0000000008' ; 6232 end if; 6233 6234 6235 6236 6237 6238 end if; 6239 6240 6241 --================================================================================================================ 6242 --========== 新型农村社会养老保险资金专户 ======== 6243 --================================================================================================================ 6244 elsif org_name='新型农村社会养老保险资金专户' then 6245 if opertype='0' or opertype='1' or opertype='6' then 6246 /* 6247 拨清算资金 支出 6248 借:5005.208.99.01[预算单位]财政专户管理资金支出.社会保障与就业.其他社会保障与就业支出.其他社会保障与就业支出 6249 贷：1003.001.01财政专户存款.农商行.活期存款 6250 6251 会计科目编码组成：5005+功能分类科目编码 6252 6253 */ 6254 6255 insert into gk_zwvch 6256 (fserialnum, 6257 FPERIOD, 6258 fgroup, 6259 fdate, 6260 fnum, 6261 fpreparer, 6262 fattachment, 6263 fmodule, 6264 jz_database, 6265 org_type, 6266 jz_fserialnum, 6267 orign_type, 6268 make_date) 6269 select v_fserialnum_1, 6270 substr(fdate, 6, 2), 6271 i_fgroup, 6272 to_date(fdate, 'yyyy-MM-dd'), 6273 0, 6274 i_fpreparer, 6275 i_fattachment, 6276 3, 6277 i_databasename, 6278 '1', --资金来源类型 6279 0, 6280 v_orign_type, 6281 sysdate 6282 6283 from dual; 6284 6285 6286 ---借方数据插入 6287 insert into gk_zwentry(fserialnum,fentryid,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname,budgetid) 6288 select fserialnum,ROWNUM,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, budgetid from ( 6289 select fserialnum,ROWNUM,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, 6290 budgetno || ',' ||substr(fdate,0,4)|| ',' || budget_type || ',' || voucher_type || ',' || SRC_ID budgetid 6291 from ( 6292 SELECT Z.SRC_ID,Z.voucher_type,z.budget_type,z.budgetno,substr(to_char(sysdate,'yyyy-MM-dd'),0,4) year1, v_fserialnum_1 fserialnum , 6293 '50052089901' facctid, 6294 '1' fclsid , 6295 z.purpose fexp,z.zf_item_amt fdebit,0 fcredit,'1' fbanksettel ,z.prjno ftransid,'RMB' fcyid,z.unitno fobjid,z.zf_itemno zf_itemno,z.zf_itemname zf_itemname 6296 FROM ( 6297 SELECT Z.voucher_type, 6298 '拨清算资金' purpose, 6299 z.amt zf_item_amt, 6300 z.prjno prjno, 6301 z.unitno, 6302 Z.SRC_ID, 6303 Z.budget_type, 6304 Z.budgetno, 6305 '' zf_itemno, 6306 '' zf_itemname, 6307 (select bz.org_type from bs_zjly bz where bz.fundno=z.src_id ) ORG_TYPE 6308 -- z.AFFIRM_DATE 6309 FROM gk_zfpz Z 6310 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 6311 ) Z 6312 order by z.budgetno 6313 ) 6314 ) 6315 ; 6316 ---贷方： 6317 6318 select sum(a.fdebit) into v_total from gk_zwentry a where a.fserialnum = v_fserialnum_1 ; 6319 select max(a.fentryid) + 1 into v_max_index from gk_zwentry a where a.fserialnum = v_fserialnum_1; 6320 insert into gk_zwentry 6321 (fserialnum, 6322 fentryid, 6323 facctid, 6324 fclsid, 6325 fexp, 6326 fdebit, 6327 fcredit, 6328 fbanksettel, 6329 ftransid, 6330 fcyid, 6331 fobjid, 6332 zf_itemno, 6333 zf_itemname,BUDGETID) 6334 SELECT v_fserialnum_1, 6335 v_max_index, 6336 '100300101' as facctid , 6337 '0', 6338 '拨清算资金', 6339 0, 6340 v_total, 6341 '1', 6342 '000', 6343 'RMB', 6344 '*', 6345 '', 6346 '','100300101'||',' ||substr(fdate,0,4)|| ',*,*,*' 6347 from dual; 6348 6349 insert into gk_zwvch_refer(FSERIALNUM, orign_type,orign_id,voucher_type,origin_teable,fmodule) 6350 select v_fserialnum_1 , 6351 '1' ORIGN_TYPE, 6352 z.id ORIGN_ID, 6353 z.voucher_type VOUCHER_TYPE, 6354 'GK_ZFPZ' ORIGIN_TEABLE, 6355 '3' FMODULE 6356 from gk_zfpz z 6357 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) ; 6358 6359 6360 elsif opertype='2' or opertype='3' then 6361 /* 6362 （2）收退回清算资金 退款 6363 借:1003.001.01财政专户存款.农商行.活期存款 6364 贷:5005.208.99.01[预算单位]财政专户管理资金支出.社会保障与就业.其他社会保障与就业支出.其他社会保障与就业支出 6365 6366 会计科目编码组成：5005+功能分类科目编码 6367 6368 */ 6369 insert into gk_zwvch 6370 (fserialnum, 6371 FPERIOD, 6372 fgroup, 6373 fdate, 6374 fnum, 6375 fpreparer, 6376 fattachment, 6377 fmodule, 6378 jz_database, 6379 org_type, 6380 jz_fserialnum, 6381 orign_type, 6382 make_date) 6383 select v_fserialnum_1, 6384 substr(fdate, 6, 2), 6385 i_fgroup, 6386 to_date(fdate, 'yyyy-MM-dd'), 6387 0, 6388 i_fpreparer, 6389 i_fattachment, 6390 3, 6391 i_databasename, 6392 '1', --资金来源类型 6393 0, 6394 v_orign_type, 6395 sysdate 6396 6397 from dual; 6398 6399 6400 ---借方数据插入 6401 insert into gk_zwentry(fserialnum,fentryid,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname,budgetid) 6402 select fserialnum,ROWNUM+1,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, budgetid from ( 6403 select fserialnum,ROWNUM+1,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, 6404 budgetno || ',' ||substr(fdate,0,4)|| ',' || budget_type || ',' || voucher_type || ',' || SRC_ID budgetid 6405 from ( 6406 SELECT Z.SRC_ID,Z.voucher_type,z.budget_type,z.budgetno,substr(to_char(sysdate,'yyyy-MM-dd'),0,4) year1, v_fserialnum_1 fserialnum , 6407 '50052089901' facctid, 6408 '1' fclsid , 6409 z.purpose fexp,0 fdebit,z.zf_item_amt fcredit,'1' fbanksettel ,z.prjno ftransid,'RMB' fcyid,z.unitno fobjid,z.zf_itemno zf_itemno,z.zf_itemname zf_itemname 6410 FROM ( 6411 SELECT Z.voucher_type, 6412 '拨清算资金' purpose, 6413 z.amt zf_item_amt, 6414 z.prjno prjno, 6415 z.unitno, 6416 Z.SRC_ID, 6417 Z.budget_type, 6418 Z.budgetno, 6419 '' zf_itemno, 6420 '' zf_itemname, 6421 (select bz.org_type from bs_zjly bz where bz.fundno=z.src_id ) ORG_TYPE 6422 -- z.AFFIRM_DATE 6423 FROM gk_zfpz Z 6424 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 6425 ) Z 6426 order by z.budgetno 6427 ) 6428 ) 6429 ; 6430 ---借方： 6431 6432 select sum(a.fcredit) into v_total from gk_zwentry a where a.fserialnum = v_fserialnum_1 ; 6433 insert into gk_zwentry 6434 (fserialnum, 6435 fentryid, 6436 facctid, 6437 fclsid, 6438 fexp, 6439 fdebit, 6440 fcredit, 6441 fbanksettel, 6442 ftransid, 6443 fcyid, 6444 fobjid, 6445 zf_itemno, 6446 zf_itemname,BUDGETID) 6447 SELECT v_fserialnum_1, 6448 1, 6449 '100300101' as facctid , 6450 '0', 6451 '拨清算资金', 6452 v_total, 6453 0, 6454 6455 '1', 6456 '000', 6457 'RMB', 6458 '*', 6459 '', 6460 '','100300101'||',' ||substr(fdate,0,4)|| ',*,*,*' 6461 from dual; 6462 6463 insert into gk_zwvch_refer(FSERIALNUM, orign_type,orign_id,voucher_type,origin_teable,fmodule) 6464 select v_fserialnum_1 , 6465 '1' ORIGN_TYPE, 6466 z.id ORIGN_ID, 6467 z.voucher_type VOUCHER_TYPE, 6468 'GK_ZFPZ' ORIGIN_TEABLE, 6469 '3' FMODULE 6470 from gk_zfpz z 6471 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) ; 6472 6473 6474 6475 6476 6477 6478 elsif opertype='4' or opertype='3' then 6479 /* 6480 （2）收退回清算资金 退款 6481 借:1003.001.01财政专户存款.农商行.活期存款 6482 贷:5005.208.99.01[预算单位]财政专户管理资金支出.社会保障与就业.其他社会保障与就业支出.其他社会保障与就业支出 6483 6484 会计科目编码组成：5005+功能分类科目编码 6485 6486 */ 6487 insert into gk_zwvch 6488 (fserialnum, 6489 FPERIOD, 6490 fgroup, 6491 fdate, 6492 fnum, 6493 fpreparer, 6494 fattachment, 6495 fmodule, 6496 jz_database, 6497 org_type, 6498 jz_fserialnum, 6499 orign_type, 6500 make_date) 6501 select v_fserialnum_1, 6502 substr(fdate, 6, 2), 6503 i_fgroup, 6504 to_date(fdate, 'yyyy-MM-dd'), 6505 0, 6506 i_fpreparer, 6507 i_fattachment, 6508 3, 6509 i_databasename, 6510 '1', --资金来源类型 6511 0, 6512 v_orign_type, 6513 sysdate 6514 6515 from dual; 6516 6517 6518 ---借方数据插入 6519 insert into gk_zwentry(fserialnum,fentryid,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname,budgetid) 6520 select fserialnum,ROWNUM+1,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, budgetid from ( 6521 select fserialnum,ROWNUM+1,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, 6522 budgetno || ',' ||substr(fdate,0,4)|| ',' || budget_type || ',' || voucher_type || ',' || SRC_ID budgetid 6523 from ( 6524 SELECT Z.SRC_ID,Z.voucher_type,z.budget_type,z.budgetno,substr(to_char(sysdate,'yyyy-MM-dd'),0,4) year1, v_fserialnum_1 fserialnum , 6525 '50052089901' facctid, 6526 '1' fclsid , 6527 z.purpose fexp,0 fdebit,z.zf_item_amt fcredit,'1' fbanksettel ,z.prjno ftransid,'RMB' fcyid,z.unitno fobjid,z.zf_itemno zf_itemno,z.zf_itemname zf_itemname 6528 FROM ( 6529 SELECT Z.voucher_type, 6530 '拨清算资金' purpose, 6531 z.amt zf_item_amt, 6532 z.prjno prjno, 6533 z.unitno, 6534 Z.SRC_ID, 6535 Z.budget_type, 6536 Z.budgetno, 6537 '' zf_itemno, 6538 '' zf_itemname, 6539 (select bz.org_type from bs_zjly bz where bz.fundno=z.src_id ) ORG_TYPE 6540 -- z.AFFIRM_DATE 6541 FROM GK_PART_REFUNDMENT Z 6542 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 6543 ) Z 6544 order by z.budgetno 6545 ) 6546 ) 6547 ; 6548 ---借方： 6549 6550 select sum(a.fcredit) into v_total from gk_zwentry a where a.fserialnum = v_fserialnum_1 ; 6551 insert into gk_zwentry 6552 (fserialnum, 6553 fentryid, 6554 facctid, 6555 fclsid, 6556 fexp, 6557 fdebit, 6558 fcredit, 6559 fbanksettel, 6560 ftransid, 6561 fcyid, 6562 fobjid, 6563 zf_itemno, 6564 zf_itemname,BUDGETID) 6565 SELECT v_fserialnum_1, 6566 1, 6567 '100300101' as facctid , 6568 '0', 6569 '拨清算资金', 6570 v_total, 6571 0, 6572 6573 '1', 6574 '000', 6575 'RMB', 6576 '*', 6577 '', 6578 '','100300101'||',' ||substr(fdate,0,4)|| ',*,*,*' 6579 from dual; 6580 6581 insert into gk_zwvch_refer(FSERIALNUM, orign_type,orign_id,voucher_type,origin_teable,fmodule) 6582 select v_fserialnum_1 , 6583 '1' ORIGN_TYPE, 6584 z.id ORIGN_ID, 6585 z.voucher_type VOUCHER_TYPE, 6586 'GK_PART_REFUNDMENT' ORIGIN_TEABLE, 6587 '3' FMODULE 6588 from GK_PART_REFUNDMENT z 6589 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) ; 6590 6591 6592 6593 6594 elsif opertype='7' then 6595 /* 6596 （2）收退回清算资金 退款 6597 借:1003.001.01财政专户存款.农商行.活期存款 6598 贷:5005.208.99.01[预算单位]财政专户管理资金支出.社会保障与就业.其他社会保障与就业支出.其他社会保障与就业支出 6599 6600 会计科目编码组成：5005+功能分类科目编码 6601 6602 */ 6603 6604 insert into gk_zwvch 6605 (fserialnum, 6606 FPERIOD, 6607 fgroup, 6608 fdate, 6609 fnum, 6610 fpreparer, 6611 fattachment, 6612 fmodule, 6613 jz_database, 6614 org_type, 6615 jz_fserialnum, 6616 orign_type, 6617 make_date) 6618 select v_fserialnum_1, 6619 substr(fdate, 6, 2), 6620 i_fgroup, 6621 to_date(fdate, 'yyyy-MM-dd'), 6622 0, 6623 i_fpreparer, 6624 i_fattachment, 6625 3, 6626 i_databasename, 6627 '1', --资金来源类型 6628 0, 6629 v_orign_type, 6630 sysdate 6631 6632 from dual; 6633 6634 6635 ---借方数据插入 6636 insert into gk_zwentry(fserialnum,fentryid,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname,budgetid) 6637 select fserialnum,ROWNUM+1,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, budgetid from ( 6638 select fserialnum,ROWNUM+1,facctid,fclsid,fexp,fdebit,fcredit,fbanksettel,ftransid,fcyid,fobjid,zf_itemno,zf_itemname, 6639 budgetno || ',' ||substr(fdate,0,4)|| ',' || budget_type || ',' || voucher_type || ',' || SRC_ID budgetid 6640 from ( 6641 SELECT Z.SRC_ID,Z.voucher_type,z.budget_type,z.budgetno,substr(to_char(sysdate,'yyyy-MM-dd'),0,4) year1, v_fserialnum_1 fserialnum , 6642 '50052089901' facctid, 6643 '1' fclsid , 6644 z.purpose fexp,0 fdebit,z.zf_item_amt fcredit,'1' fbanksettel ,z.prjno ftransid,'RMB' fcyid,z.unitno fobjid,z.zf_itemno zf_itemno,z.zf_itemname zf_itemname 6645 FROM ( 6646 SELECT Z.voucher_type, 6647 '拨清算资金' purpose, 6648 z.amt zf_item_amt, 6649 z.prjno prjno, 6650 z.unitno, 6651 Z.SRC_ID, 6652 Z.budget_type, 6653 Z.budgetno, 6654 '' zf_itemno, 6655 '' zf_itemname, 6656 (select bz.org_type from bs_zjly bz where bz.fundno=z.src_id ) ORG_TYPE 6657 -- z.AFFIRM_DATE 6658 FROM ( select crbd.id as id , '3' voucher_type , crb.reason as refundment_memo , crbd.pay_amt as amt , crbd.prjno as prjno ,crb.unitno ,crb.src_id as SRC_ID ,crbd.budget_type ,crbd.budgetno from common_req_back crb,common_req_back_detail crbd where crb.id=crbd.common_req_back_id) Z 6659 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) 6660 ) Z 6661 order by z.budgetno 6662 ) 6663 ) 6664 ; 6665 ---借方： 6666 6667 select sum(a.fcredit) into v_total from gk_zwentry a where a.fserialnum = v_fserialnum_1 ; 6668 insert into gk_zwentry 6669 (fserialnum, 6670 fentryid, 6671 facctid, 6672 fclsid, 6673 fexp, 6674 fdebit, 6675 fcredit, 6676 fbanksettel, 6677 ftransid, 6678 fcyid, 6679 fobjid, 6680 zf_itemno, 6681 zf_itemname,BUDGETID) 6682 SELECT v_fserialnum_1, 6683 1, 6684 '100300101' as facctid , 6685 '0', 6686 '拨清算资金', 6687 v_total, 6688 0, 6689 6690 '1', 6691 '000', 6692 'RMB', 6693 '*', 6694 '', 6695 '','100300101'||',' ||substr(fdate,0,4)|| ',*,*,*' 6696 from dual; 6697 6698 insert into gk_zwvch_refer(FSERIALNUM, orign_type,orign_id,voucher_type,origin_teable,fmodule) 6699 select v_fserialnum_1 , 6700 '1' ORIGN_TYPE, 6701 z.id ORIGN_ID, 6702 z.voucher_type VOUCHER_TYPE, 6703 'common_req_back_detail' ORIGIN_TEABLE, 6704 '3' FMODULE 6705 from ( select crbd.id as id , '3' voucher_type , crb.reason as refundment_memo , crbd.pay_amt as amt , crbd.prjno as prjno ,crb.unitno ,crb.src_id as SRC_ID ,crbd.budget_type ,crbd.budgetno from common_req_back crb,common_req_back_detail crbd where crb.id=crbd.common_req_back_id) z 6706 WHERE Z.id IN (select GK_ZFPZ_ID from GK_ZWVCH_IDS a where pk_id = i_pk_id) ; 6707 6708 6709 6710 end if; 6711 6712 end if; 6713 6714 end if; 6715 6716 exception 6717 when others then 6718 o_ret := 1; 6719 6720 END PRO_K3_CZZH;