1 procedure ReBuild_IE02( 2 pi_aac001 in number, 3 po_fhz out varchar2, 4 po_msg out varchar2) 5 is 6 type typ_tab_ie02 is table of ie02%rowtype index by binary_integer; 7 type typ_rec_InterestRate is record( 8 YearRate number(8, 6), 9 MonthRate number(7, 6) 10 ); 11 type typ_tab_InterestRate is table of typ_rec_InterestRate index by binary_integer; 12 13 cursor cur_list is 14 select ic50.bae001, --系统机构代码 15 ic50.aab001, --组织ID-即虚拟单位编号 16 ic50.aac001, --个人编号 17 case when nvl(ic52.aab383, 0) - nvl(ic52.aic021, 0) > 0 then nvl(ic52.aab383, 0) - nvl(ic52.aic021, 0) else 0 end aic441, --划入统筹金额 = 应缴金额 - 划入账户金额 18 case when nvl(ic52.aic452, 0) > 0 then nvl(ic52.aic452, 0) else 0 end aic452, --政府补贴金额 19 aae002 20 from ic50, 21 ic52 22 where ic50.aac001 = ic52.aac001 23 and ic50.aac001 = pi_aac001 24 and ic52.bce094 = '1' --缴费标志 25 and ic52.aae016 = '1'; --复核标志 26 27 i_count integer; 28 s_bae001 ac01.bae001%type; 29 n_aab001 ac01.aab001%type; 30 n_MinYear_ie02 number(4); 31 n_SysCurYear number(4); 32 n_LoopYear number(4); 33 n_LoopMonth number(2); 34 tab_ie02 typ_tab_ie02; 35 tab_InterestRate typ_tab_InterestRate; 36 37 procedure GetMinYear_ie02 38 is 39 begin 40 select min(aae001) 41 into n_MinYear_ie02 42 from ic52 43 where aac001 = pi_aac001 44 and bce094 = '1' 45 and aae016 = '1'; 46 end GetMinYear_ie02; 47 48 procedure Init_tab_ie02 49 is 50 begin 51 for i in n_MinYear_ie02..n_SysCurYear loop 52 tab_ie02(i).bae001 := s_bae001; --系统机构代码 53 tab_ie02(i).aab001 := n_aab001; --组织ID 54 tab_ie02(i).aac001 := pi_aac001; --人员ID 55 tab_ie02(i).aae001 := i; --账户年度 56 tab_ie02(i).cic103 := 0; --截止上年末个人缴费划拨统筹部分累计本息 57 tab_ie02(i).cic105 := 0; --1月增加个人缴费划拨统筹部分金额 58 tab_ie02(i).cic106 := 0; --2月增加个人缴费划拨统筹部分金额 59 tab_ie02(i).cic107 := 0; --3月增加个人缴费划拨统筹部分金额 60 tab_ie02(i).cic108 := 0; --4月增加个人缴费划拨统筹部分金额 61 tab_ie02(i).cic109 := 0; --5月增加个人缴费划拨统筹部分金额 62 tab_ie02(i).cic110 := 0; --6月增加个人缴费划拨统筹部分金额 63 tab_ie02(i).cic111 := 0; --7月增加个人缴费划拨统筹部分金额 64 tab_ie02(i).cic112 := 0; --8月增加个人缴费划拨统筹部分金额 65 tab_ie02(i).cic113 := 0; --9月增加个人缴费划拨统筹部分金额 66 tab_ie02(i).cic114 := 0; --10月增加个人缴费划拨统筹部分金额 67 tab_ie02(i).cic115 := 0; --11月增加个人缴费划拨统筹部分金额 68 tab_ie02(i).cic116 := 0; --12月增加个人缴费划拨统筹部分金额 69 tab_ie02(i).cic117 := 0; --本年个人缴费划拨统筹部分本金总额 70 tab_ie02(i).cic131 := 0; --本年缴纳个人缴费划拨统筹部分本年计入利息 71 tab_ie02(i).cic133 := 0; --截止上年末个人缴费划拨统筹部分累计本息在本年产生的利息 72 tab_ie02(i).cic135 := 0; --截止本年末个人缴费划拨统筹部分累计储存额（本息） 73 tab_ie02(i).aae013 := null; --备注 74 end loop; 75 end Init_tab_ie02; 76 77 procedure Init_tab_InterestRate 78 is 79 begin 80 for i in n_MinYear_ie02..n_SysCurYear loop 81 GetAcctYearlyRate( 82 i, 83 '110', 84 tab_InterestRate(i).YearRate, 85 po_fhz, 86 po_msg); 87 if po_fhz <> pkg_pub.def_OK then 88 return; 89 end if; 90 91 tab_InterestRate(i).MonthRate := round(tab_InterestRate(i).YearRate / 12, 6); 92 end loop; 93 end Init_tab_InterestRate; 94 95 procedure FillinAllotCorpusAmt(ai_aic441 in number) --划入统筹金额 96 is 97 begin 98 if ai_aic441 <> 0 then 99 case n_LoopMonth 100 when 1 then tab_ie02(n_LoopYear).cic105 := tab_ie02(n_LoopYear).cic105 + ai_aic441; --1月增加个人缴费划拨统筹部分金额 101 when 2 then tab_ie02(n_LoopYear).cic106 := tab_ie02(n_LoopYear).cic106 + ai_aic441; --2月增加个人缴费划拨统筹部分金额 102 when 3 then tab_ie02(n_LoopYear).cic107 := tab_ie02(n_LoopYear).cic107 + ai_aic441; --3月增加个人缴费划拨统筹部分金额 103 when 4 then tab_ie02(n_LoopYear).cic108 := tab_ie02(n_LoopYear).cic108 + ai_aic441; --4月增加个人缴费划拨统筹部分金额 104 when 5 then tab_ie02(n_LoopYear).cic109 := tab_ie02(n_LoopYear).cic109 + ai_aic441; --5月增加个人缴费划拨统筹部分金额 105 when 6 then tab_ie02(n_LoopYear).cic110 := tab_ie02(n_LoopYear).cic110 + ai_aic441; --6月增加个人缴费划拨统筹部分金额 106 when 7 then tab_ie02(n_LoopYear).cic111 := tab_ie02(n_LoopYear).cic111 + ai_aic441; --7月增加个人缴费划拨统筹部分金额 107 when 8 then tab_ie02(n_LoopYear).cic112 := tab_ie02(n_LoopYear).cic112 + ai_aic441; --8月增加个人缴费划拨统筹部分金额 108 when 9 then tab_ie02(n_LoopYear).cic113 := tab_ie02(n_LoopYear).cic113 + ai_aic441; --9月增加个人缴费划拨统筹部分金额 109 when 10 then tab_ie02(n_LoopYear).cic114 := tab_ie02(n_LoopYear).cic114 + ai_aic441; --10月增加个人缴费划拨统筹部分金额 110 when 11 then tab_ie02(n_LoopYear).cic115 := tab_ie02(n_LoopYear).cic115 + ai_aic441; --11月增加个人缴费划拨统筹部分金额 111 when 12 then tab_ie02(n_LoopYear).cic116 := tab_ie02(n_LoopYear).cic116 + ai_aic441; --12月增加个人缴费划拨统筹部分金额 112 end case; 113 114 tab_ie02(n_LoopYear).cic117 := tab_ie02(n_LoopYear).cic117 + ai_aic441; --本年个人缴费划拨统筹部分本金总额 115 end if; 116 end FillinAllotCorpusAmt; 117 118 procedure CalculateAccountAccrual 119 is 120 n_cic103 number(8, 2); --截止上年末个人缴费划拨统筹部分累计本息 121 n_AccrualEndMonth number(2); 122 begin 123 n_cic103 := 0; 124 for n_year in tab_ie02.First..tab_ie02.Last loop 125 tab_ie02(n_year).cic103 := n_cic103; 126 127 if n_year < n_SysCurYear then 128 n_AccrualEndMonth := 12; 129 else 130 n_AccrualEndMonth := to_number(to_char(sysdate, 'mm')); 131 end if; 132 133 --按正常按时缴费模式处理，从缴费当月起计息 134 for n_month in 1..n_AccrualEndMonth loop 135 --1月份 136 if n_month = 1 then 137 if tab_ie02(n_year).cic105 <> 0 and n_AccrualEndMonth >= n_month then 138 tab_ie02(n_year).cic131 := tab_ie02(n_year).cic131 + tab_InterestRate(n_year).MonthRate * tab_ie02(n_year).cic105 * (n_AccrualEndMonth - n_month + 1); 139 end if; 140 --2月份 141 elsif n_month = 2 then 142 if tab_ie02(n_year).cic106 <> 0 and n_AccrualEndMonth >= n_month then 143 tab_ie02(n_year).cic131 := tab_ie02(n_year).cic131 + tab_InterestRate(n_year).MonthRate * tab_ie02(n_year).cic106 * (n_AccrualEndMonth - n_month + 1); 144 end if; 145 --3月份 146 elsif n_month = 3 then 147 if tab_ie02(n_year).cic107 <> 0 and n_AccrualEndMonth >= n_month then 148 tab_ie02(n_year).cic131 := tab_ie02(n_year).cic131 + tab_InterestRate(n_year).MonthRate * tab_ie02(n_year).cic107 * (n_AccrualEndMonth - n_month + 1); 149 end if; 150 --4月份 151 elsif n_month = 4 then 152 if tab_ie02(n_year).cic108 <> 0 and n_AccrualEndMonth >= n_month then 153 tab_ie02(n_year).cic131 := tab_ie02(n_year).cic131 + tab_InterestRate(n_year).MonthRate * tab_ie02(n_year).cic108 * (n_AccrualEndMonth - n_month + 1); 154 end if; 155 --5月份 156 elsif n_month = 5 then 157 if tab_ie02(n_year).cic109 <> 0 and n_AccrualEndMonth >= n_month then 158 tab_ie02(n_year).cic131 := tab_ie02(n_year).cic131 + tab_InterestRate(n_year).MonthRate * tab_ie02(n_year).cic109 * (n_AccrualEndMonth - n_month + 1); 159 end if; 160 --6月份 161 elsif n_month = 6 then 162 if tab_ie02(n_year).cic110 <> 0 and n_AccrualEndMonth >= n_month then 163 tab_ie02(n_year).cic131 := tab_ie02(n_year).cic131 + tab_InterestRate(n_year).MonthRate * tab_ie02(n_year).cic110 * (n_AccrualEndMonth - n_month + 1); 164 end if; 165 --7月份 166 elsif n_month = 7 then 167 if tab_ie02(n_year).cic111 <> 0 and n_AccrualEndMonth >= n_month then 168 tab_ie02(n_year).cic131 := tab_ie02(n_year).cic131 + tab_InterestRate(n_year).MonthRate * tab_ie02(n_year).cic111 * (n_AccrualEndMonth - n_month + 1); 169 end if; 170 --8月份 171 elsif n_month = 8 then 172 if tab_ie02(n_year).cic112 <> 0 and n_AccrualEndMonth >= n_month then 173 tab_ie02(n_year).cic131 := tab_ie02(n_year).cic131 + tab_InterestRate(n_year).MonthRate * tab_ie02(n_year).cic112 * (n_AccrualEndMonth - n_month + 1); 174 end if; 175 --9月份 176 elsif n_month = 9 then 177 if tab_ie02(n_year).cic113 <> 0 and n_AccrualEndMonth >= n_month then 178 tab_ie02(n_year).cic131 := tab_ie02(n_year).cic131 + tab_InterestRate(n_year).MonthRate * tab_ie02(n_year).cic113 * (n_AccrualEndMonth - n_month + 1); 179 end if; 180 --10月份 181 elsif n_month = 10 then 182 if tab_ie02(n_year).cic114 <> 0 and n_AccrualEndMonth >= n_month then 183 tab_ie02(n_year).cic131 := tab_ie02(n_year).cic131 + tab_InterestRate(n_year).MonthRate * tab_ie02(n_year).cic114 * (n_AccrualEndMonth - n_month + 1); 184 end if; 185 --11月份 186 elsif n_month = 11 then 187 if tab_ie02(n_year).cic115 <> 0 and n_AccrualEndMonth >= n_month then 188 tab_ie02(n_year).cic131 := tab_ie02(n_year).cic131 + tab_InterestRate(n_year).MonthRate * tab_ie02(n_year).cic115 * (n_AccrualEndMonth - n_month + 1); 189 end if; 190 --12月份 191 elsif n_month = 12 then 192 if tab_ie02(n_year).cic116 <> 0 and n_AccrualEndMonth >= n_month then 193 tab_ie02(n_year).cic131 := tab_ie02(n_year).cic131 + tab_InterestRate(n_year).MonthRate * tab_ie02(n_year).cic116 * (n_AccrualEndMonth - n_month + 1); 194 end if; 195 end if; 196 end loop; 197 198 if n_AccrualEndMonth = 12 then 199 tab_ie02(n_year).cic133 := tab_ie02(n_year).cic103 * tab_InterestRate(n_year).YearRate; 200 else 201 tab_ie02(n_year).cic133 := tab_ie02(n_year).cic103 * tab_InterestRate(n_year).MonthRate * n_AccrualEndMonth; 202 end if; 203 204 tab_ie02(n_year).cic135 := tab_ie02(n_year).cic103 + tab_ie02(n_year).cic117 + tab_ie02(n_year).cic131 + tab_ie02(n_year).cic133; 205 206 n_cic103 := tab_ie02(n_year).cic135; 207 end loop; 208 end CalculateAccountAccrual; 209 210 procedure Insert_ie02 211 is 212 begin 213 for i in n_MinYear_ie02..n_SysCurYear loop 214 insert into ie02( 215 bae001, --系统机构代码 216 aab001, --组织ID 217 aac001, --人员ID 218 aae001, --账户年度 219 cic103, --截止上年末个人缴费划拨统筹部分累计本息 220 cic105, --1月增加个人缴费划拨统筹部分金额 221 cic106, --2月增加个人缴费划拨统筹部分金额 222 cic107, --3月增加个人缴费划拨统筹部分金额 223 cic108, --4月增加个人缴费划拨统筹部分金额 224 cic109, --5月增加个人缴费划拨统筹部分金额 225 cic110, --6月增加个人缴费划拨统筹部分金额 226 cic111, --7月增加个人缴费划拨统筹部分金额 227 cic112, --8月增加个人缴费划拨统筹部分金额 228 cic113, --9月增加个人缴费划拨统筹部分金额 229 cic114, --10月增加个人缴费划拨统筹部分金额 230 cic115, --11月增加个人缴费划拨统筹部分金额 231 cic116, --12月增加个人缴费划拨统筹部分金额 232 cic117, --本年个人缴费划拨统筹部分本金总额 233 cic131, --本年缴纳个人缴费划拨统筹部分本年计入利息 234 cic133, --截止上年末个人缴费划拨统筹部分累计本息在本年产生的利息 235 cic135, --截止本年末个人缴费划拨统筹部分累计储存额（本息） 236 aae013) --备注 237 values( 238 tab_ie02(i).bae001, --系统机构代码 239 tab_ie02(i).aab001, --组织ID 240 tab_ie02(i).aac001, --人员ID 241 tab_ie02(i).aae001, --账户年度 242 tab_ie02(i).cic103, --截止上年末个人缴费划拨统筹部分累计本息 243 tab_ie02(i).cic105, --1月增加个人缴费划拨统筹部分金额 244 tab_ie02(i).cic106, --2月增加个人缴费划拨统筹部分金额 245 tab_ie02(i).cic107, --3月增加个人缴费划拨统筹部分金额 246 tab_ie02(i).cic108, --4月增加个人缴费划拨统筹部分金额 247 tab_ie02(i).cic109, --5月增加个人缴费划拨统筹部分金额 248 tab_ie02(i).cic110, --6月增加个人缴费划拨统筹部分金额 249 tab_ie02(i).cic111, --7月增加个人缴费划拨统筹部分金额 250 tab_ie02(i).cic112, --8月增加个人缴费划拨统筹部分金额 251 tab_ie02(i).cic113, --9月增加个人缴费划拨统筹部分金额 252 tab_ie02(i).cic114, --10月增加个人缴费划拨统筹部分金额 253 tab_ie02(i).cic115, --11月增加个人缴费划拨统筹部分金额 254 tab_ie02(i).cic116, --12月增加个人缴费划拨统筹部分金额 255 tab_ie02(i).cic117, --本年个人缴费划拨统筹部分本金总额 256 tab_ie02(i).cic131, --本年缴纳个人缴费划拨统筹部分本年计入利息 257 tab_ie02(i).cic133, --截止上年末个人缴费划拨统筹部分累计本息在本年产生的利息 258 tab_ie02(i).cic135, --截止本年末个人缴费划拨统筹部分累计储存额（本息） 259 tab_ie02(i).aae013); --备注 260 end loop; 261 end Insert_ie02; 262 263 begin 264 po_fhz := pkg_pub.def_OK; 265 266 select count(1) 267 into i_count 268 from ic52 269 where aac001 = pi_aac001 270 and bce094 = '1' --缴费标志 271 and aae016 = '1' --复核标志 272 and (aae002 is null or length(to_char(aae002)) <> 6); 273 if i_count > 0 then 274 po_fhz := pkg_pub.def_ERR; 275 po_msg := to_char(pi_aac001)||'系统检查发现该参保人存在有失地居民人员养老按年零星缴费记录的【费款所属期】不正确，无法重建划统筹部分的账户记录，请先检查核实！'; 276 return; 277 end if; 278 279 select count(1) into i_count from ie02 where aac001 = pi_aac001; 280 if i_count > 0 then 281 delete ie02 where aac001 = pi_aac001; 282 end if; 283 284 select bae001, aab001 into s_bae001, n_aab001 from ac01 where aac001 = pi_aac001; 285 n_SysCurYear := to_char(sysdate, 'yyyy'); 286 287 GetMinYear_ie02; 288 if n_MinYear_ie02 is null then 289 return; 290 elsif n_MinYear_ie02 > n_SysCurYear then 291 po_fhz := pkg_pub.def_ERR; 292 po_msg := to_char(pi_aac001)||'系统检查发现该参保人存在有失地居民人员养老按年零星缴费记录的所属账户年度大于系统当前年度值，认为数据有问题，请先检查核实！'; 293 return; 294 end if; 295 296 Init_tab_ie02; 297 for rec in cur_list loop 298 n_LoopYear := to_number(substr(rec.aae002, 1, 4)); 299 n_LoopMonth := to_number(substr(rec.aae002, 5, 2)); 300 301 if n_LoopMonth < 1 or n_LoopMonth > 12 then 302 po_fhz := pkg_pub.def_ERR; 303 po_msg := to_char(pi_aac001)||'系统检查发现该参保人存在有失地居民人员养老按年零星缴费记录无法确定其记账所属年月，认为数据有问题，请通知系统管理员协助检查核实！'; 304 return; 305 end if; 306 307 FillinAllotCorpusAmt(rec.aic441); 308 309 if tab_ie02(n_LoopYear).bae001 <> rec.bae001 then 310 tab_ie02(n_LoopYear).bae001 := rec.bae001; 311 end if; 312 if tab_ie02(n_LoopYear).aab001 <> rec.aab001 then 313 tab_ie02(n_LoopYear).aab001 := rec.aab001; 314 end if; 315 end loop; 316 317 Init_tab_InterestRate; 318 if po_fhz <> pkg_pub.def_OK then 319 return; 320 end if; 321 322 CalculateAccountAccrual; 323 Insert_ie02; 324 exception 325 when others then 326 po_fhz := pkg_pub.def_ERR; 327 po_msg := to_char(pi_aac001)||'对该参保人的失地居民人员养老按年零星缴费记录重建划统筹部分的账户记录时发生失败：'||sqlerrm; 328 end ReBuild_IE02;