Oracle存储过程（包：PACK_KPI_KERNEL For YS三度评价体系）
Posted qiupiaohujie
tags:
篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了Oracle存储过程（包：PACK_KPI_KERNEL For YS三度评价体系）相关的知识，希望对你有一定的参考价值。
1 CREATE OR REPLACE PACKAGE PACK_KPI_KERNEL IS 2 --定义多级数组 字符串 3 TYPE TSTRARRY IS TABLE OF VARCHAR2(4000) INDEX BY BINARY_INTEGER; 4 5 TYPE TSTRARRYARRY IS TABLE OF TSTRARRY INDEX BY BINARY_INTEGER; 6 7 TYPE TSTRARRYARRYARRY IS TABLE OF TSTRARRYARRY INDEX BY BINARY_INTEGER; 8 9 -- Author : D 10 -- Created : 2011 11 -- Purpose : KPI模块 绩效考核核心算法包 12 13 --核心 调用接口 as_KEY是关键值 as_flag 是调用标记 14 PROCEDURE KERNEL_MASTER_CONTROL; 15 16 --自动获取绩效考核月份参数 默认为 本月上月的月份 17 FUNCTION GET_KPI_DATE RETURN VARCHAR2; 18 19 --核心 调用接口 as_KEY是关键值 as_flag 是调用标记 20 PROCEDURE KT_MAIN_MASTER_CONTROL(as_KEY IN VARCHAR2, as_flag IN VARCHAR2); 21 22 --计算 量化指标 单项得分 体系ID BODATA 23 FUNCTION GET_ONETARGET_SCORE(as_TARSYS_id IN VARCHAR2, as_bodata NUMBER) 24 RETURN NUMBER; 25 26 --计算 量化指标 单项有自变量 得分 体系ID BODATA 27 FUNCTION GET_ONETARGET_SCORE_VAR(as_TARSYS_id IN VARCHAR2, 28 as_bodata NUMBER) RETURN NUMBER; 29 30 --计算量化月奖 每日 31 PROCEDURE GET_BORESULT_LH_AWORD_TODAY; 32 33 --建立System_P_ID二维数组 34 FUNCTION Get_KPI_System_P_ID(as_target_id IN VARCHAR2) RETURN TSTRARRY; 35 36 --建立SystemID二维数组 37 FUNCTION Get_KPI_SystemID(as_target_id IN VARCHAR2) RETURN TSTRARRYARRY; 38 39 --计算量化月奖 40 FUNCTION GetComAword(as_KPI_SCORE IN number, as_CATALOG_ID IN VARCHAR2) 41 RETURN NUMBER; 42 43 --计算总月奖 44 FUNCTION Get_all_Aword(as_LH_SCORE IN number, as_GL_SCORE IN NUMBER) 45 RETURN NUMBER; 46 47 --获取指标的bodata2 48 FUNCTION Get_bodata2_kpi_flu_record(as_target_id IN VARCHAR2, 49 as_month IN VARCHAR2) RETURN NUMBER; 50 51 --部门得分修正 52 FUNCTION Get_K_DEP_DATA(as_dep_id IN VARCHAR2, as_month IN VARCHAR2) 53 RETURN NUMBER; 54 55 --指标单项得分修正 56 FUNCTION get_lh_score_fix(LH_score IN NUMBER, 57 dep_id IN NUMBER, 58 as_month IN VARCHAR2) RETURN NUMBER; 59 60 --取得资金计划准确率 61 FUNCTION get_zjjhzql(as_dep_id IN VARCHAR2, as_month IN VARCHAR2) 62 RETURN NUMBER; 63 64 --定时取指标元素 主程序 小元素合成算法 65 --=-=-==-=-=-=-=------------------------------- 66 PROCEDURE BOELEMENT_MASTER_CONTROL(as_date IN VARCHAR2); 67 68 --取值 69 --=-=-==-=-=-=-=------------------------------- 70 FUNCTION GET_BOELEMENT(as_ele_id IN VARCHAR2, as_date IN VARCHAR2) 71 RETURN NUMBER; 72 73 --取值 74 --=-=-==-=-=-=-=------------------------------- 75 FUNCTION kpi_splitelementex(P_STRING IN VARCHAR2, as_date IN VARCHAR2) 76 return NUMBER; 77 --取值 78 --=-=-==-=-=-=-=------------------------------- 79 FUNCTION kpi_splitelementgetrs(as_V_POS IN VARCHAR2, as_date IN VARCHAR2) 80 return VARCHAR2; 81 82 --根据指标公式，得出指标的实际值和计划值 83 --=-=-==-=-=-=-=------------------------------- 84 PROCEDURE KERNEL_TARGET_DATA_MAIN(AS_MONTH IN VARCHAR2); 85 86 procedure KPI_VIEW_TARGET; --集团指标取数 87 88 /*procedure Insert_JHZ_ToJHFluTable(as_date IN VARCHAR2); 89 procedure InsertOne_JHZ_ToJHFluTable(as_TARGET_ID in varchar2, 90 as_VALUE_PLAN in varchar2, 91 as_VALUE_DATA in varchar2, 92 as_REC_REASON in varchar2, 93 as_REC_MONTH in varchar2); 94 95 procedure kpi_BackToELeResultTable(as_date in varchar2); 96 */ 97 98 --计算量化月奖 99 FUNCTION Get_OneTarget_Score_NEW(as_TARSYS_id IN VARCHAR2, 100 as_bodata NUMBER) RETURN NUMBER; 101 PROCEDURE KERNEL_TARGET_ALL_XS(AS_YEAR IN VARCHAR2); 102 procedure KPI_LR_SJ_PM(as_month varchar2); 103 procedure KPI_LR_YSZQL_PM(as_month varchar2); 104 END PACK_KPI_KERNEL; 105 / 106 CREATE OR REPLACE PACKAGE BODY PACK_KPI_KERNEL IS 107 type My_Cursor is ref cursor; 108 109 ARRY1 TSTRARRY; 110 ARRY2 TSTRARRYARRY; 111 ARRY3 TSTRARRYARRYARRY; 112 113 --==================================================================== 114 --主控制，控制元素合成和指标计算，缺BO部分 115 PROCEDURE KERNEL_MASTER_CONTROL AS 116 ls_YF VARCHAR2(10); 117 ln_RESULT NUMBER; 118 119 BEGIN 120 121 DBMS_OUTPUT.ENABLE(10000000); 122 --DBMS_OUTPUT.ENABLE( buffer_size =>Null ); 123 124 BEGIN 125 /* insert into kpi_test2 values(to_char(sysdate,‘yyyy-mm-dd hh:mi:ss‘)); 126 commit;*/ 127 128 ls_YF := GET_KPI_DATE(); 129 130 --取计划值 131 PACK_KPI_JHZ.KPI_GET_JHZ_BYDAY(‘‘); 132 133 DBMS_OUTPUT.put_line(‘检查点1-1‘); 134 --小元素取值，小元素合成大元素，kpi_manager_boelement ---> kpi_manager_boelement_result 135 BOELEMENT_MASTER_CONTROL(ls_YF); 136 DBMS_OUTPUT.put_line(‘检查点1-2‘); 137 --根据指标公式，计算指标计划值和实际值 138 139 KERNEL_TARGET_DATA_MAIN(ls_YF); 140 DBMS_OUTPUT.put_line(‘检查点1-3‘); 141 --指标计划值，实际值取值，计算指标得分，kpi_manager_boresult ---> kpi_manager_boresult_report 142 KT_MAIN_MASTER_CONTROL(ls_YF, ‘0‘); 143 DBMS_OUTPUT.put_line(‘检查点1-4‘); 144 --第二次计算 145 BOELEMENT_MASTER_CONTROL(ls_YF); 146 DBMS_OUTPUT.put_line(‘检查点2-1‘); 147 KERNEL_TARGET_DATA_MAIN(ls_YF); 148 149 DBMS_OUTPUT.put_line(‘检查点2-2‘); 150 KT_MAIN_MASTER_CONTROL(ls_YF, ‘0‘); 151 152 DBMS_OUTPUT.put_line(‘检查点2-3‘); 153 --运行日志 154 pack_kpi_base.SET_SYSTEM_LOG(‘核心任务成功！‘, ‘被计算月份‘ || ls_YF); 155 156 /* if to_number(to_char(SYSDATE, ‘dd‘))=15 then 157 Insert_JHZ_ToJHFluTable(ls_YF); 158 end if;*/ 159 160 DBMS_OUTPUT.disable(); 161 EXCEPTION 162 WHEN OTHERS THEN 163 --运行日志 164 pack_kpi_base.SET_SYSTEM_LOG(‘核心任务失败！‘, 165 ‘被计算月份‘ || ls_YF || Sqlerrm(Sqlcode)); 166 END; 167 168 END KERNEL_MASTER_CONTROL; 169 170 --==================================================================== 171 172 --==================================================================== 173 --自动获取绩效考核月份参数 默认为 本月上月的月份 174 FUNCTION GET_KPI_DATE RETURN VARCHAR2 AS 175 176 ls_kpi_date VARCHAR2(10); 177 day number; 178 179 BEGIN 180 day := to_number(to_char(SYSDATE, ‘dd‘)); 181 182 if day < 20 then 183 ls_kpi_date := to_char(pack_kpi_base.F_GET_SYM(to_char(SYSDATE, 184 ‘yyyymm‘)), 185 ‘yyyy-mm‘); 186 187 -- ls_kpi_date := ‘2012-12‘; 188 else 189 ls_kpi_date := to_char(SYSDATE, ‘yyyy-mm‘); 190 --ls_kpi_date := ‘2012-01‘; 191 end if; 192 193 RETURN ls_kpi_date; 194 195 END GET_KPI_DATE; 196 197 --==================================================================== 198 199 --================================================================================= 200 --==================================================================== 201 202 --核心 调用接口 as_KEY是关键值 as_flag 是调用标记 0 是自动指标计算 1 是用户自定义计算 203 PROCEDURE KT_MAIN_MASTER_CONTROL(as_KEY IN VARCHAR2, as_flag IN VARCHAR2) IS 204 205 ls_key VARCHAR2(4000); 206 ls_flag VARCHAR2(10); 207 208 --游标取值 209 Cursor Cur_BO Is 210 SELECT t1.id, --主键 211 t1.t_id, 212 t1.target_id, 213 t1.target_code, 214 t1.target_name, 215 t1.tarsys_id, 216 t1.standardvalue, --标准值 217 t1.RATIO, --预测值 218 --2011-10-08 修改四舍五入 219 round(t1.BODATA, 4) BODATA, --指标分值 当月累计数 220 t1.bodata2, 221 t1.bodate 222 From kpi_manager_boresult_temp t1 223 -- where t1.target_id=38568 224 ; 225 226 -- 227 ln_ID NUMBER; 228 ls_T_ID VARCHAR2(4000); 229 ls_TARGET_ID VARCHAR2(4000); 230 ls_TARGET_CODE VARCHAR2(4000); 231 ls_TARGET_NAME VARCHAR2(4000); 232 ls_tarsys_id VARCHAR2(4000); 233 ls_STANDARDVALUE VARCHAR2(4000); 234 ls_RATIO VARCHAR2(4000); 235 ls_BODATA NUMBER; --实际值 236 ls_BODATA2 NUMBER; 237 ls_BODATE VARCHAR2(4000); 238 239 ls_realvalue number; --实际值=ls_BODATA 240 -- 241 ln_i NUMBER; 242 ln_industry90001 NUMBER; 243 ln_industry90002 NUMBER; 244 ln_ALL_BEST NUMBER; 245 ln_HISTORY_BEST NUMBER; 246 247 --分数计算部分变量 248 ln_industry NUMBER; 249 resScore NUMBER; 250 resScoreYSZQL NUMBER; 251 --ln_score NUMBER; 252 Ln_TARSYS_TYPE NUMBER; 253 ln_TARSYS_SCORE_TYPE NUMBER; --体系得分算法体系，重要用于判断分支 254 255 ln_K_DEP_DATA NUMBER; --部门指标修正系数 256 ln_CXD_SCORE NUMBER; --创新度得分 257 ln_WDD_SCORE NUMBER; --稳定度的分 258 ln_NLD_SCORE NUMBER; --努力度得分 259 ln_YSZQL_SCROE NUMBER; --预算准确率得分 260 261 BEGIN 262 DBMS_OUTPUT.ENABLE(10000000); 263 264 --参数处理 265 IF as_KEY IS NULL THEN 266 ls_key := GET_KPI_DATE(); 267 ELSE 268 ls_key := as_KEY; 269 END IF; 270 271 IF as_flag IS NULL THEN 272 ls_flag := ‘0‘; 273 ELSE 274 ls_flag := as_flag; 275 END IF; 276 277 --test 278 DBMS_OUTPUT.PUT_LINE(‘0、 装填原始数据 、参数 主键 = ‘ || ls_key || 279 ‘计算类型 0 自动计算 1 用户计算= ls_flag =‘ || ls_flag); 280 281 --================================================== 282 --第一部分 完成待计算数据处理 根据flag 283 --================================================== 284 285 --测试时候注释掉保留中间结果 286 DELETE FROM kpi_manager_boresult_temp; 287 COMMIT; 288 289 --ls_flag = 0 每日计算 290 IF ls_flag = ‘0‘ THEN 291 292 INSERT INTO kpi_manager_boresult_temp 293 294 (ID, 295 T_ID, 296 TARGET_ID, 297 TARGET_CODE, 298 TARGET_NAME, 299 tarsys_id, 300 STANDARDVALUE, 301 RATIO, 302 BODATA, 303 BODATA2, 304 BODATE, 305 JS_DATE) 306 SELECT rownum, 307 t.BORESULTID, 308 t.TARGET_ID, 309 NULL, 310 t.TARGET_NAME, 311 tt.tarsys_id, 312 t.STANDARDVALUE, 313 t.RATIO, 314 t.BODATA, 315 t.bodata2, 316 to_char(t.BOGETDATE, ‘yyyy-mm‘), 317 SYSDATE 318 FROM kpi_kernel_boresult_v t, kpi_kpimodel_tst tt 319 WHERE t.TARGET_ID = tt.target_id 320 --and t.target_id=‘38568‘ 321 ; 322 COMMIT; 323 324 END IF; 325 326 --=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- 327 --ls_flag = 1 用户自定义计算 328 IF ls_flag = ‘1‘ THEN 329 330 INSERT INTO kpi_manager_boresult_temp 331 332 (ID, 333 T_ID, 334 TARGET_ID, 335 TARGET_CODE, 336 TARGET_NAME, 337 tarsys_id, 338 STANDARDVALUE, 339 RATIO, 340 BODATA, 341 BODATA2, 342 BODATE, 343 JS_DATE) 344 SELECT rownum, 345 t.rec_id, 346 t.target_id, --指标ID 347 ‘‘, 348 tt.target_name, --指标名字 349 tt.tarsys_id, 350 -- pack_kpi_base.F_GET_standardvalue(t.target_id) standardvalue, --标准值 351 352 pack_kpi_kernel.Get_bodata2_kpi_flu_record(t.target_id, 353 t.rec_date) standardvalue, 354 pack_kpi_base.F_GET_RATIO(t.target_id) PRE_RATIO, --预测值 355 t.BODATA, --指标分值 用户自行修改值 356 -- pack_kpi_kernel.Get_bodata2_kpi_flu_record(t.target_id,to_char(to_date(t.rec_date,‘yyyy-mm-dd‘),‘yyyy-mm‘)) BODATA2, 357 pack_kpi_kernel.Get_bodata2_kpi_flu_record(t.target_id, 358 t.rec_date) BODATA2, 359 360 t.rec_date, --时间 361 SYSDATE 362 FROM kpi_flu_record t, kpi_kpimodel_tst tt 363 WHERE t.target_id = tt.target_id 364 AND t.rec_id = ls_key; 365 366 COMMIT; 367 368 END IF; 369 370 --================================================== 371 --第二部分 完成指标体系分值计算 372 --================================================== 373 374 --游标从统一接口取数 375 Open Cur_BO; 376 Fetch Cur_BO 377 INTO ln_ID, 378 ls_T_ID, 379 ls_TARGET_ID, 380 ls_TARGET_CODE, 381 ls_TARGET_NAME, 382 ls_tarsys_id, 383 ls_STANDARDVALUE, 384 ls_RATIO, 385 ls_BODATA, 386 ls_BODATA2, 387 ls_BODATE; 388 ln_i := 1; 389 --主循环 每次一个指标。 390 While Cur_BO%Found LOOP 391 --test 392 393 ln_i := ln_i + 1; 394 395 --循环每行 396 --根据指标类型编码 判断 是那个类型的指标 ，分别调用不同方法计算。并保存 397 --各项变量重新初始化 398 ln_industry := 99999; --创新度中间结果 399 ln_CXD_SCORE := 99999; --创新度 400 ln_WDD_SCORE := 99999; --稳定度的分 401 ln_NLD_SCORE := 99999; --努力度得分 402 ln_YSZQL_SCROE := 99999; --预算准确率得分 403 ln_K_DEP_DATA := 1; --部门得分修正系数 404 ln_TARSYS_SCORE_TYPE := -1; --默认为无效 405 ls_realvalue := ls_BODATA; --保存实际值 406 407 --通过判断实际值和计划值与指标是否是比值行还是普通型，确定是否进行计算 408 IF ((ls_BODATA IS NOT NULL) AND 409 pack_kpi_base.F_GET_TARSYS_TYPE(ls_tarsys_id) = ‘0‘) OR 410 (pack_kpi_base.F_GET_TARSYS_TYPE(ls_tarsys_id) = ‘1‘ AND 411 (ls_STANDARDVALUE IS NOT NULL) or 412 pack_kpi_base.F_GET_TARSYS_TYPE(ls_tarsys_id) = ‘2‘) THEN 413 --第一类：普通型 414 IF pack_kpi_base.F_GET_TARSYS_TYPE(ls_tarsys_id) = ‘0‘ THEN 415 416 ls_BODATA := ls_BODATA - ls_STANDARDVALUE; --跟计划值没关系 417 418 END IF; 419 --第二类：比值型 420 --bodata 综合处理 当 指标体系是比值型的时候，对bodata除以计划值得到率 421 IF pack_kpi_base.F_GET_TARSYS_TYPE(ls_tarsys_id) = ‘1‘ THEN 422 423 IF ls_STANDARDVALUE = 0 THEN 424 --预测值等于0 或为空 预测值得分为100 否则执行 用分数除以预测值的比值 425 IF ls_BODATA = 0 THEN 426 ls_BODATA := ‘100‘; 427 END IF; 428 ELSE 429 ls_BODATA := round(ls_BODATA / ls_STANDARDVALUE, 4) * 100; 430 END IF; 431 432 -- DBMS_OUTPUT.PUT_LINE( ‘1.1、bodata 综合处理 、ln_ID = ‘|| ln_ID || ‘ls_TARGET_ID=‘||ls_TARGET_ID||‘ ls_TARGET_NAME=‘||ls_TARGET_NAME||‘ ls_BODATA=‘|| ls_BODATA ); 433 434 END IF; 435 436 --取得 考核体系 类型代码 重要用于判断分支 437 --0,稳定度（普通）;1,稳定度（正向）;2,稳定度（反向）;3,努力度;4,创新度;5,预算准确率;6,修正系数;7,不计算 8创新度不计算 438 439 ln_TARSYS_SCORE_TYPE := pack_kpi_base.F_GET_SCORETYPE_from_tarsys_id(ls_tarsys_id); 440 441 DBMS_OUTPUT.PUT_LINE(‘1、 初始化完成待计算前 、ln_ID = ‘ || ln_ID || 442 ‘ls_TARGET_ID=‘ || ls_TARGET_ID || 443 ‘ ls_TARGET_NAME=‘ || ls_TARGET_NAME || 444 ‘ ls_BODATA=‘ || ls_BODATA || 445 ‘ ln_TARSYS_SCORE_TYPE=‘ || 446 ln_TARSYS_SCORE_TYPE); 447 448 --========算法开始，================================= 449 --=====创新度========================================================= 450 451 --!!!!! 452 IF ln_TARSYS_SCORE_TYPE = 4 THEN 453 454 --文件中规定的算法,暂时屏蔽 455 /* BEGIN --获取指标的历史最好水平和行业最好水平 456 SELECT t.ALL_BEST,t.HISTORY_BEST 457 INTO ln_ALL_BEST,ln_HISTORY_BEST 458 from kpi_kpimodel_industry t 459 where t.target_id = ls_TARGET_ID; 460 exception 461 when NO_DATA_FOUND then 462 ln_ALL_BEST := 0; 463 ln_HISTORY_BEST := 0; 464 END; 465 ---- 466 IF ln_ALL_BEST+ln_HISTORY_BEST >0 THEN 467 468 469 470 --正向 471 IF ls_tarsys_id = ‘90001‘ THEN 472 473 IF (ls_BODATA - ln_ALL_BEST)*1 -3>0 THEN 474 ln_industry90001 := 3; 475 ELSE 476 ln_industry90001 := (ls_BODATA - ln_ALL_BEST)*1; 477 END IF; 478 479 IF (ls_BODATA - ln_HISTORY_BEST)*2 - 5 > 0 THEN 480 ln_industry90002 := 3; 481 ELSE 482 ln_industry90002 := (ls_BODATA - ln_HISTORY_BEST)*5; 483 END IF; 484 485 IF ln_industry90001 > ln_industry90002 THEN 486 ln_industry := ln_industry90001; 487 ELSE 488 ln_industry := ln_industry90002; 489 END IF; 490 491 END IF; 492 493 --反向 494 IF ls_tarsys_id = ‘90002‘ THEN 495 IF (ln_ALL_BEST - ls_BODATA)*1 -3>0 THEN 496 ln_industry90001 := 3; 497 ELSE 498 ln_industry90001 := (ln_ALL_BEST - ls_BODATA)*1; 499 END IF; 500 501 IF (ln_HISTORY_BEST - ls_BODATA)*2 - 5 > 0 THEN 502 ln_industry90002 := 3; 503 ELSE 504 ln_industry90002 := (ln_HISTORY_BEST - ls_BODATA)*5; 505 END IF; 506 507 IF ln_industry90001 > ln_industry90002 THEN 508 ln_industry := ln_industry90001; 509 ELSE 510 ln_industry := ln_industry90002; 511 END IF; 512 END IF; 513 ---- 514 END IF; 515 516 ln_CXD_SCORE :=ln_industry;*/ 517 518 --执行 519 --=========(创新度得分=当权重不为0时：实际值-行业最好>=0?20:0；权重为0：按照普通方法计算)===================== 520 if pack_kpi_base.F_GET_WEIGHT_SCALE(ls_TARGET_ID) <> 0 then 521 522 ln_ALL_BEST := pack_kpi_base.F_GET_ALL_BEST(ls_TARGET_ID); --获取行业最好 523 ls_BODATA := ls_realvalue - ln_ALL_BEST; --实际值-行业最好 524 end if; 525 526 ln_CXD_SCORE := PACK_KPI_KERNEL.Get_OneTarget_Score(ls_tarsys_id, 527 ls_BODATA); 528 529 -- 更新创新度结果 位置需变更！！！！！！！！！ 530 UPDATE kpi_manager_boresult_temp t 531 SET t.cxd_score = ln_CXD_SCORE 532 WHERE t.id = ln_ID; 533 COMMIT; 534 535 --test 536 DBMS_OUTPUT.PUT_LINE(‘ 2.1 创新度计算 、 ls_TARGET_NAME=‘ || 537 ls_TARGET_NAME || ‘ ls_tarsys_id=‘ || 538 ls_tarsys_id || ‘ln_CXD_SCORE=‘ || 539 ln_CXD_SCORE); 540 541 END IF; 542 543 --=======预算准确率=========================================================================== 544 --!!!!! 545 IF ln_TARSYS_SCORE_TYPE = 5 THEN 546 547 --执行 548 ln_YSZQL_SCROE := PACK_KPI_KERNEL.Get_OneTarget_Score(ls_tarsys_id, 549 ls_BODATA); 550 551 -- 更新预算准确率 552 UPDATE kpi_manager_boresult_temp t 553 SET t.yszql_scroe = ln_YSZQL_SCROE 554 WHERE t.id = ln_ID; 555 COMMIT; 556 --test 557 DBMS_OUTPUT.PUT_LINE(‘ 2.1 预算准确率 、 ls_TARGET_NAME=‘ || 558 ls_TARGET_NAME || ‘ ls_tarsys_id=‘ || 559 ls_tarsys_id || ‘ln_YSZQL_SCROE=‘ || 560 ln_YSZQL_SCROE); 561 562 END IF; 563 564 --================================================================== 565 566 --努力度得分=========================================================== 567 --!!!!! 568 IF ln_TARSYS_SCORE_TYPE = 3 OR ln_TARSYS_SCORE_TYPE = 31 OR 569 ln_TARSYS_SCORE_TYPE = 32 THEN 570 571 IF ln_TARSYS_SCORE_TYPE = 3 THEN 572 --普通:（实际值-历史最好>=0？10：0） 573 --执行 574 ln_HISTORY_BEST := pack_kpi_base.F_GET_HISTORY_BEST(as_target_id => ls_TARGET_ID); 575 ls_BODATA := ls_realvalue - ln_HISTORY_BEST; 576 ln_NLD_SCORE := PACK_KPI_KERNEL.Get_OneTarget_Score_NEW(ls_tarsys_id, 577 ls_BODATA); 578 579 -- 更新努力度得分 普通 580 UPDATE kpi_manager_boresult_temp t 581 SET t.nld_score = ln_NLD_SCORE 582 WHERE t.id = ln_ID; 583 COMMIT; 584 585 --test 586 DBMS_OUTPUT.PUT_LINE(‘ 2.3 努力度 普通 得分 、 ls_TARGET_NAME=‘ || 587 ls_TARGET_NAME || ‘ ls_tarsys_id=‘ || 588 ls_tarsys_id || ‘ln_NLD_SCORE=‘ || 589 ln_NLD_SCORE); 590 END IF; 591 592 IF ln_TARSYS_SCORE_TYPE = 31 AND ls_BODATA2 > 0 THEN 593 --正向（实际值-历史最好>=0？10：0） 594 --执行 595 ln_HISTORY_BEST := pack_kpi_base.F_GET_HISTORY_BEST(as_target_id => ls_TARGET_ID); 596 ls_BODATA := ls_realvalue - ln_HISTORY_BEST; 597 598 ln_NLD_SCORE := PACK_KPI_KERNEL.Get_OneTarget_Score_NEW(ls_tarsys_id, 599 ls_BODATA); 600 601 -- 更新努力度得分 正向 602 UPDATE kpi_manager_boresult_temp t 603 SET t.nld_score = ln_NLD_SCORE 604 WHERE t.id = ln_ID; 605 COMMIT; 606 607 --test 608 DBMS_OUTPUT.PUT_LINE(‘ 2.3 努力度 正向 得分 、 ls_TARGET_NAME=‘ || 609 ls_TARGET_NAME || ‘ ls_tarsys_id=‘ || 610 ls_tarsys_id || ‘ln_NLD_SCORE=‘ || 611 ln_NLD_SCORE); 612 END IF; 613 614 IF ln_TARSYS_SCORE_TYPE = 32 AND ls_BODATA2 < 0 THEN 615 --反向（努力度得分=历史最好-实际值>=0?10:0） 616 --执行 617 ln_HISTORY_BEST := pack_kpi_base.F_GET_HISTORY_BEST(as_target_id => ls_TARGET_ID); 618 ls_BODATA := ln_HISTORY_BEST - ls_realvalue; 619 620 ln_NLD_SCORE := PACK_KPI_KERNEL.Get_OneTarget_Score_NEW(ls_tarsys_id, 621 ls_BODATA); 622 623 -- 更新努力度得分 反向 624 UPDATE kpi_manager_boresult_temp t 625 SET t.nld_score = ln_NLD_SCORE 626 WHERE t.id = ln_ID; 627 COMMIT; 628 629 --test 630 DBMS_OUTPUT.PUT_LINE(‘ 2.3 努力度 反向 得分 、 ls_TARGET_NAME=‘ || 631 ls_TARGET_NAME || ‘ ls_tarsys_id=‘ || 632 ls_tarsys_id || ‘ln_NLD_SCORE=‘ || 633 ln_NLD_SCORE); 634 END IF; 635 636 END IF; 637 638 --稳定度得分=========================================================== 639 640 --先确定tarsys_id 是稳定度部分指标 641 --!!!!! 642 IF ln_TARSYS_SCORE_TYPE = 0 OR ln_TARSYS_SCORE_TYPE = 1 OR 643 ln_TARSYS_SCORE_TYPE = 2 THEN 644 --待修改 645 646 --普通稳定度 647 --!!!!! 648 IF ln_TARSYS_SCORE_TYPE = 0 THEN 649 --执行 650 ln_WDD_SCORE := 100 + nvl(PACK_KPI_KERNEL.Get_OneTarget_Score_NEW(ls_tarsys_id, 651 ls_BODATA), 652 0); 653 654 -- 更新稳定度得分 655 UPDATE kpi_manager_boresult_temp t 656 SET t.wdd_score = ln_WDD_SCORE 657 WHERE t.id = ln_ID; 658 COMMIT; 659 --test 660 DBMS_OUTPUT.PUT_LINE(‘ 2.4 稳定度得分,普通 、 ls_TARGET_NAME=‘ || 661 ls_TARGET_NAME || ‘ ls_tarsys_id=‘ || 662 ls_tarsys_id || ‘ln_WDD_SCORE=‘ || 663 ln_WDD_SCORE); 664 665 END IF; 666 667 --财务稳定度 正向 668 --!!!!! 669 IF ln_TARSYS_SCORE_TYPE = 1 AND ls_BODATA2 > 0 THEN 670 671 --执行 672 ln_WDD_SCORE := 100 + nvl(PACK_KPI_KERNEL.Get_OneTarget_Score_NEW(ls_tarsys_id, 673 ls_BODATA), 674 0); 675 676 -- 更新稳定度得分 677 UPDATE kpi_manager_boresult_temp t 678 SET t.wdd_score = ln_WDD_SCORE 679 WHERE t.id = ln_ID; 680 COMMIT; 681 --test 682 DBMS_OUTPUT.PUT_LINE(‘ 2.4 稳定度得分 财务稳定度 正向 、 ls_TARGET_NAME=‘ || 683 ls_TARGET_NAME || ‘ ls_tarsys_id=‘ || 684 ls_tarsys_id || ‘ln_WDD_SCORE=‘ || 685 ln_WDD_SCORE); 686 687 END IF; 688 689 --财务稳定度 反向 690 --!!!!! 691 IF ln_TARSYS_SCORE_TYPE = 2 AND ls_BODATA2 < 0 THEN 692 --执行 693 ln_WDD_SCORE := 100 + nvl(PACK_KPI_KERNEL.Get_OneTarget_Score_NEW(ls_tarsys_id, 694 ls_BODATA), 695 0); 696 697 -- 更新稳定度得分 698 UPDATE kpi_manager_boresult_temp t 699 SET t.wdd_score = ln_WDD_SCORE 700 WHERE t.id = ln_ID; 701 COMMIT; 702 703 --test 704 DBMS_OUTPUT.PUT_LINE(‘ 2.4 稳定度得分--财务稳定度 反向 、 ls_TARGET_NAME=‘ || 705 ls_TARGET_NAME || ‘ ls_tarsys_id=‘ || 706 ls_tarsys_id || ‘ln_WDD_SCORE=‘ || 707 ln_WDD_SCORE); 708 709 END IF; 710 711 END IF; -- 712 713 --不计算的 稳定度得分=========================================================== 714 --!!!!! 715 IF ln_TARSYS_SCORE_TYPE = 7 THEN 716 717 -- 更新稳定度得分 718 UPDATE kpi_manager_boresult_temp t 719 SET t.wdd_score = ls_BODATA 720 WHERE t.id = ln_ID; 721 COMMIT; 722 DBMS_OUTPUT.PUT_LINE(‘ 2.7 不计算的稳定度得分 、 ls_TARGET_NAME=‘ || 723 ls_TARGET_NAME || ‘ ls_tarsys_id=‘ || 724 ls_tarsys_id || ‘ln_WDD_SCORE=‘ || 725 ln_WDD_SCORE); 726 727 END IF; -- 728 729 --不计算的 创新度得分=========================================================== 730 --!!!!! 731 IF ln_TARSYS_SCORE_TYPE = 8 THEN 732 733 -- 更新创新度得分 734 UPDATE kpi_manager_boresult_temp t 735 SET t.CXD_SCORE = ls_BODATA 736 WHERE t.id = ln_ID; 737 COMMIT; 738 DBMS_OUTPUT.PUT_LINE(‘ 2.8 不计算的创新度得分 、 ls_TARGET_NAME=‘ || 739 ls_TARGET_NAME || ‘ ls_tarsys_id=‘ || 740 ls_tarsys_id || ‘CXD_SCORE=‘ || ls_BODATA); 741 742 END IF; -- 743 744 --修正系数得分计算=========================================================== 745 --!!!!! 746 IF ln_TARSYS_SCORE_TYPE = 6 THEN 747 ln_K_DEP_DATA := PACK_KPI_KERNEL.Get_OneTarget_Score(ls_tarsys_id, 748 ls_BODATA/100); 749 750 -- 修正系数得分 751 UPDATE kpi_manager_boresult_temp t 752 SET t.K_DEP_DATA = ln_K_DEP_DATA 753 WHERE t.id = ln_ID; 754 COMMIT; 755 DBMS_OUTPUT.PUT_LINE(‘ 2.6 修正系数得分、 ls_TARGET_NAME=‘ || 756 ls_TARGET_NAME || ‘ ls_tarsys_id=‘ || 757 ls_tarsys_id || ‘ln_K_DEP_DATA=‘ || 758 ln_K_DEP_DATA); 759 760 END IF; -- 761 ------------修正系数不计算 范广龙 20130905 762 IF ln_TARSYS_SCORE_TYPE = 61 THEN 763 ln_K_DEP_DATA := ls_BODATA; 764 765 -- 修正系数得分 766 UPDATE kpi_manager_boresult_temp t 767 SET t.K_DEP_DATA = ln_K_DEP_DATA 768 WHERE t.id = ln_ID; 769 COMMIT; 770 DBMS_OUTPUT.PUT_LINE(‘ 2.7 修正系数不计算体系得分、 ls_TARGET_NAME=‘ || 771 ls_TARGET_NAME || ‘ ls_tarsys_id=‘ || 772 ls_tarsys_id || ‘ln_K_DEP_DATA=‘ || 773 ln_K_DEP_DATA); 774 775 END IF; 776 ----------------------------------------------- -- 777 ---- 778 779 END IF; 780 --============================== 781 --循环结束FETCH一次============= 782 --============================== 783 Fetch Cur_BO 784 INTO ln_ID, 785 ls_T_ID, 786 ls_TARGET_ID, 787 ls_TARGET_CODE, 788 ls_TARGET_NAME, 789 ls_tarsys_id, 790 ls_STANDARDVALUE, 791 ls_RATIO, 792 ls_BODATA, 793 ls_BODATA2, 794 ls_BODATE; 795 796 End Loop; 797 798 --test 799 DBMS_OUTPUT.PUT_LINE(‘ 2.9、 计算结束——共计算指标个数 、 ln_i=‘ || ln_i); 800 801 Close Cur_bo; 802 803 --================================================== 804 --第三部分 完成指标数据提交至指定位置 805 --================================================== 806 807 --更新根据flag分类。 808 809 --ls_flag = 0 批量计算 810 IF ls_flag = ‘0‘ THEN 811 812 --kpi_manager_boresult_temp ----》kpi_manager_boresult_report 813 814 begin 815 merge into kpi_manager_boresult_report t1 816 using (select t.t_id, 817 t.target_id, 818 t.target_code, 819 t.target_name, 820 t.bodata, 821 t.bodata2, 822 t.bodate, 823 SUM(t.wdd_score) wdd_score, 824 SUM(t.nld_score) nld_score, 825 SUM(t.cxd_score) cxd_score, 826 SUM(t.yszql_scroe) yszql_scroe, 827 SUM(t.K_DEP_DATA) K_DEP_DATA 828 829 from KPI_MANAGER_BORESULT_TEMP t 830 GROUP BY t.t_id, 831 t.target_id, 832 t.target_code, 833 t.target_name, 834 t.bodata, 835 t.bodata2, 836 t.bodate) t2 837 on (t1.target_id || t1.report_month = t2.target_id || t2.bodate) 838 839 when matched then 840 update 841 set t1.update_date = SYSDATE, 842 t1.useflag = ‘0‘, 843 t1.bodata = t2.bodata, 844 t1.bodata2 = t2.bodata2, 845 t1.wdd_score = t2.wdd_score, 846 t1.nld_score = t2.nld_score, 847 t1.cxd_score = t2.cxd_score, 848 t1.yszql_scroe = t2.yszql_scroe, 849 t1.K_DEP_DATA = t2.K_DEP_DATA /*, 850 t1.commit_flag = ‘0‘*/ 851 852 WHERE t1.target_id = t2.target_id 853 AND t1.report_month = t2.bodate 854 and t1.commit_flag = 0 855 856 857 when not matched then 858 insert 859 (TARGET_ID, 860 TARGET_NAME, 861 TARGET_CODE, 862 UPDATE_DATE, 863 REPORT_MONTH, 864 USEFLAG, 865 WDD_SCORE, 866 NLD_SCORE, 867 CXD_SCORE, 868 YSZQL_SCROE, 869 K_DEP_DATA, 870 COMMIT_FLAG, 871 BODATA, 872 BODATA2 873 874 ) 875 Values 876 (t2.target_id, 877 t2.target_name, 878 t2.target_code, 879 SYSDATE, 880 t2.bodate, 881 ‘0‘, 882 t2.WDD_SCORE, 883 t2.NLD_SCORE, 884 t2.CXD_SCORE, 885 t2.YSZQL_SCROE, 886 t2.K_DEP_DATA, 887 ‘0‘, 888 t2.bodata, 889 t2.bodata2); 890 commit; 891 exception 892 when OTHERS then 893 rollback; 894 end; 895 END IF; --========================================== 896 897 --=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- 898 --ls_flag = 1 用户自定义计算 899 IF ls_flag = ‘1‘ THEN 900 901 begin 902 merge into kpi_flu_record t1 903 using (select t.t_id, 904 t.target_id, 905 t.target_code, 906 t.target_name, 907 t.bodata, 908 t.bodate, 909 SUM(t.wdd_score) wdd_score, 910 SUM(t.nld_score) nld_score, 911 SUM(t.cxd_score) cxd_score, 912 SUM(t.yszql_scroe) yszql_scroe 913 914 from KPI_MANAGER_BORESULT_TEMP t 915 GROUP BY t.t_id, 916 t.target_id, 917 t.target_code, 918 t.target_name, 919 t.bodata, 920 t.bodate) t2 921 on (t1.rec_id = t2.t_id) 922 923 when matched then 924 update 925 SET t1.wdd_score = t2.wdd_score, 926 t1.nld_score = t2.nld_score, 927 t1.cxd_score = t2.cxd_score, 928 t1.yszql_scroe = t2.yszql_scroe 929 WHERE t1.rec_id = t2.t_id; 930 commit; 931 exception 932 when OTHERS then 933 rollback; 934 end; 935 --更新K值 936 begin 937 merge into kpi_manager_boresult_report t1 938 using (select t.t_id, 939 t.target_id, 940 t.target_code, 941 t.target_name, 942 t.bodata, 943 t.bodata2, 944 t.bodate, 945 SUM(t.wdd_score) wdd_score, 946 SUM(t.nld_score) nld_score, 947 SUM(t.cxd_score) cxd_score, 948 SUM(t.yszql_scroe) yszql_scroe, 949 SUM(t.K_DEP_DATA) K_DEP_DATA 950 951 from KPI_MANAGER_BORESULT_TEMP t 952 GROUP BY t.t_id, 953 t.target_id, 954 t.target_code, 955 t.target_name, 956 t.bodata, 957 t.bodata2, 958 t.bodate) t2 959 on (t1.target_id || t1.report_month = t2.target_id || t2.bodate) 960 961 when matched then 962 update 963 set t1.update_date = SYSDATE, 964 t1.useflag = ‘0‘, 965 -- t1.bodata = t2.bodata, 966 t1.bodata2 = t2.bodata2, 967 968 t1.K_DEP_DATA = t2.K_DEP_DATA 969 /*, 970 t1.commit_flag = ‘0‘*/ 971 972 WHERE t1.target_id = t2.target_id 973 AND t1.report_month = t2.bodate; 974 975 commit; 976 exception 977 when OTHERS then 978 rollback; 979 end; 980 981 END IF; 982 983 END KT_MAIN_MASTER_CONTROL; 984 985 ---================================================== 986 987 --==================================================================== 988 989 FUNCTION GET_ONETARGET_SCORE(as_TARSYS_id IN VARCHAR2, as_bodata NUMBER) 990 RETURN NUMBER AS 991 --ComClass CATALOG_ID 992 --分数上限、下限和步长 993 994 --返回值 995 ln_RESULT NUMBER; 996 997 BEGIN 998 999 DECLARE 1000 1001 BEGIN 1002 --初始化 1003 1004 IF as_bodata IS NULL THEN 1005 -- 1006 1007 RETURN 0; 1008 1009 ELSE 1010 BEGIN 1011 1012 SELECT DECODE(SIGN(t.tarsys_step), 1013 1, 1014 ( /*trunc(*/ 1015 (as_bodata - t.tarsys_bottom) / t.tarsys_step) * 1016 t.tarsys_score /*)*/, 1017 -1, 1018 ( /*trunc(*/ 1019 (t.tarsys_upper - as_bodata) / (-t.tarsys_step)) * 1020 t.tarsys_score /*)*/, 1021 0, 1022 t.tarsys_score, --步长为0，直接返回默认分值 1023 0) 1024 INTO ln_RESULT 1025 from kpi_kpimodel_targetsystem t 1026 1027 WHERE t.p_tarsys_id = as_TARSYS_id 1028 AND t.tarsys_upper > as_bodata 1029 AND t.tarsys_bottom <= as_bodata; 1030 EXCEPTION 1031 WHEN OTHERS THEN 1032 ln_RESULT := 0; 1033 1034 END; 1035 END IF; 1036 END; 1037 1038 RETURN round(ln_RESULT, 2); 1039 END GET_ONETARGET_SCORE; 1040 1041 --==================================================================== 1042 1043 --==================================================================== 1044 1045 --==================================================================== 1046 1047 FUNCTION GET_ONETARGET_SCORE_VAR(as_TARSYS_id IN VARCHAR2, 1048 as_bodata NUMBER) RETURN NUMBER AS 1049 --ComClass CATALOG_ID 1050 --分数上限、下限和步长 1051 1052 --返回值 1053 ln_RESULT NUMBER; 1054 1055 BEGIN 1056 1057 DECLARE 1058 1059 BEGIN 1060 --初始化 1061 1062 IF as_bodata IS NULL THEN 1063 -- 1064 1065 RETURN 0; 1066 1067 ELSE 1068 BEGIN 1069 1070 SELECT as_bodata * t.tarsys_score --传入值乘参数，用体系得分保存。 1071 INTO ln_RESULT 1072 1073 from kpi_kpimodel_targetsystem t 1074 1075 WHERE t.p_tarsys_id = as_TARSYS_id 1076 AND t.tarsys_upper > as_bodata 1077 AND t.tarsys_bottom <= as_bodata; 1078 EXCEPTION 1079 WHEN OTHERS THEN 1080 ln_RESULT := 0; 1081 1082 END; 1083 END IF; 1084 END; 1085 1086 RETURN round(ln_RESULT, 2); 1087 END GET_ONETARGET_SCORE_VAR; 1088 1089 --==================================================================== 1090 1091 --==================================================================== 1092 1093 --计算量化月奖 ，每日 ，暂时停用中 1094 PROCEDURE GET_BORESULT_LH_AWORD_today IS 1095 1096 BEGIN 1097 1098 begin 1099 --从kpi_kernel_lh_aword_v ----》KPI_RESULT_DEP_AWORD 1100 --仅仅取当日的BODATA结果，根据部门汇总月奖保存 1101 merge into KPI_RESULT_DEP_AWORD t1 1102 using (SELECT * 1103 1104 FROM kpi_kernel_lh_aword_v t 1105 WHERE t.resultdate = to_char(SYSDATE, ‘yyyymmdd‘)) t2 1106 on (t1.depid = t2.department_id) 1107 1108 when matched then 1109 update 1110 set t1.resdata = t2.Aword, t1.resdate = t2.resultdate 1111 WHERE t1.resdate = to_char(SYSDATE, ‘yyyymmdd‘) 1112 when not matched then 1113 insert 1114 (ResultID, DepID, ResDATA, ResDate) 1115 Values 1116 (seq_KPI_Result_AWORD.NEXTVAL, 1117 t2.department_id, 1118 t2.Aword, 1119 SYSDATE); 1120 commit; 1121 1122 exception 1123 when OTHERS then 1124 rollback; 1125 end; 1126 1127 END GET_BORESULT_LH_AWORD_today; 1128 1129 FUNCTION Get_KPI_System_P_ID(as_target_id IN VARCHAR2) RETURN TSTRARRY AS 1130 1131 tst_arry TSTRARRY; 1132 1133 --tst游标 1134 Cursor Cur_TST Is 1135 select t.TARSYS_ID 1136 from kpi_kpimodel_tst t 1137 where t.target_id = as_target_id; 1138 1139 ls_tst VARCHAR2(100); 1140 ls_tst2 VARCHAR2(100); 1141 ln_i INTEGER; 1142 ln_count INTEGER; 1143 1144 BEGIN 1145 Open Cur_TST; 1146 Fetch Cur_TST 1147 INTO ls_tst; 1148 ln_i := 1; 1149 --主循环 每次一个指标。 1150 While Cur_TST%Found LOOP 1151 1152 tst_arry(ln_i) := ls_tst; 1153 ln_i := ln_i + 1; 1154 --循环结束FETCH一次 1155 1156 Fetch Cur_TST 1157 INTO ls_tst; 1158 End Loop; 1159 Close Cur_TST; 1160 1161 --处理数组0位置，用来记录数据数量 1162 tst_arry(0) := ln_i; 1163 1164 RETURN tst_arry; 1165 1166 END Get_KPI_System_P_ID; 1167 --==================================================================== 1168 1169 FUNCTION Get_KPI_SystemID(as_target_id IN VARCHAR2) RETURN TSTRARRYARRY AS 1170 1171 tst_arry TSTRARRY; 1172 tst_arryarry TSTRARRYARRY; 1173 1174 --tst游标 1175 Cursor Cur_TST Is 1176 select t.TARSYS_ID 1177 from kpi_kpimodel_tst t 1178 where t.target_id = as_target_id; 1179 1180 ls_tst VARCHAR2(100); 1181 ls_tst2 VARCHAR2(100); 1182 ln_i INTEGER; 1183 ln_count INTEGER; 1184 1185 --system1 有子节点 1186 Cursor Cur_system1 Is 1187 select t.tarsys_id 1188 from KPI_KPIMODEL_TARGETSYSTEM t 1189 where t.tarsys_id <> ls_tst2 1190 start with t.tarsys_id = ls_tst2 1191 connect by prior t.tarsys_id = t.p_tarsys_id; 1192 1193 --system2 没子节点 1194 Cursor Cur_system2 Is 1195 select t.tarsys_id 1196 from KPI_KPIMODEL_TARGETSYSTEM t 1197 where t.tarsys_id = ls_tst2 1198 start with t.tarsys_id = ls_tst2 1199 connect by prior t.tarsys_id = t.p_tarsys_id; 1200 1201 BEGIN 1202 Open Cur_TST; 1203 Fetch Cur_TST 1204 INTO ls_tst; 1205 ln_i := 1; 1206 --主循环 每次一个指标。 1207 While Cur_TST%Found LOOP 1208 1209 tst_arry(ln_i) := ls_tst; 1210 ln_i := ln_i + 1; 1211 --循环结束FETCH一次 1212 1213 Fetch Cur_TST 1214 INTO ls_tst; 1215 End Loop; 1216 Close Cur_TST; 1217 1218 --处理数组0位置，用来记录数据数量 1219 tst_arry(0) := ln_i; 1220 tst_arryarry(0)(0) := ln_i; 1221 IF ln_i = 1 THEN 1222 tst_arryarry(0)(0) := ‘0‘; 1223 END IF; 1224 1225 --根据tst取所有的子节点 1226 FOR i IN 1 .. tst_arry(0) - 1 LOOP 1227 DBMS_OUTPUT.PUT_LINE(‘二、 tst第一步,循环次数:‘ || i || ‘,target_id:‘ || 1228 as_target_id || ‘ 考核大体系‘ || tst_arry(i)); 1229 END LOOP; 1230 1231 IF tst_arryarry(0) (0) <> 0 THEN 1232 FOR i IN 1 .. tst_arry(0) - 1 LOOP 1233 ls_tst2 := tst_arry(i); 1234 1235 --判断是否有子节点 1236 BEGIN 1237 select COUNT(1) 1238 INTO ln_count 1239 from KPI_KPIMODEL_TARGETSYSTEM t 1240 where t.tarsys_id <> ls_tst2 1241 start with t.tarsys_id = ls_tst2 1242 connect by prior t.tarsys_id = t.p_tarsys_id; 1243 exception 1244 when NO_DATA_FOUND then 1245 ln_count := 0; 1246 END; 1247 1248 IF ln_count > 0 THEN 1249 Open Cur_system1; 1250 Fetch Cur_system1 1251 INTO ls_tst; 1252 ln_i := 1; 1253 --主循环 每次一个指标。 1254 While Cur_system1%Found LOOP 1255 1256 tst_arryarry(i)(ln_i) := ls_tst; 1257 ln_i := ln_i + 1; 1258 Fetch Cur_system1 1259 INTO ls_tst; 1260 End Loop; 1261 Close Cur_system1; 1262 tst_arryarry(i)(0) := ln_i; 1263 1264 ELSE 1265 Open Cur_system2; 1266 Fetch Cur_system2 1267 INTO ls_tst; 1268 ln_i := 1; 1269 --主循环 每次一个指标。 1270 While Cur_system2%Found LOOP 1271 1272 tst_arryarry(i)(ln_i) := ls_tst; 1273 ln_i := ln_i + 1; 1274 Fetch Cur_system2 1275 INTO ls_tst; 1276 End Loop; 1277 Close Cur_system2; 1278 tst_arryarry(i)(0) := ln_i; 1279 1280 END IF; 1281 1282 END LOOP; 1283 END IF; 1284 1285 RETURN tst_arryarry; 1286 1287 END Get_KPI_SystemID; 1288 1289 --==================================================================== 1290 1291 FUNCTION GetComAword(as_KPI_SCORE IN number, as_CATALOG_ID IN VARCHAR2) 1292 RETURN NUMBER AS 1293 --ComClass CATALOG_ID 1294 --分数上限、下限和步长 1295 dblScoreUP number; 1296 dblScoreBottom number; 1297 dblScoreStep number; 1298 dblScoreTT number; 1299 1300 LS_BOTTOM number; --记录起征点 1301 --返回值 1302 ln_RESULT NUMBER; 1303 1304 BEGIN 1305 1306 DECLARE 1307 --TYPE s_TYPE IS RECORD 1308 --( str VARCHAR2(4000) ); 1309 1310 BEGIN 1311 LS_BOTTOM := 0; 1312 ln_RESULT := 0; 1313 1314 --获取“起征点” 1315 BEGIN 1316 1317 SELECT t.catalog_t_bottom 1318 INTO LS_BOTTOM 1319 from KPI_KPIMODEL_CATALOGTARGET t 1320 1321 WHERE t.catalog_id = as_CATALOG_ID 1322 AND t.catalog_t_award = 0; 1323 EXCEPTION 1324 WHEN OTHERS THEN 1325 LS_BOTTOM := -99999; 1326 1327 END; 1328 --无法获取起征点，则结果返回-99999 1329 IF LS_BOTTOM = -99999 THEN 1330 ln_RESULT := -99999; --返回值为-1特殊值，说明表中参数设置有错误。 1331 1332 ELSE 1333 --算法 1334 1335 IF as_KPI_SCORE >= LS_BOTTOM THEN 1336 1337 --新算法，适合累进计算部分 1338 BEGIN 1339 SELECT SUM(DECODE(DECODE(SIGN(as_KPI_SCORE - T.CATALOG_T_UPPER), 1340 0, 1341 1, 1342 1, 1343 1, 1344 -1, 1345 -1), --判断区间 0,1均返回1代表本段算全分 -1返回-1代表本段算比例分 1346 1, 1347 ((T.CATALOG_T_UPPER - T.CATALOG_T_BOTTOM) / 1348 T.CATALOG_T_STEP) * T.CATALOG_T_AWARD, --不在这个区间 1349 -1, 1350 DECODE(SIGN(CATALOG_T_STEP), 1351 1, 1352 ((as_KPI_SCORE - T.CATALOG_T_BOTTOM) / 1353 T.CATALOG_T_STEP * T.CATALOG_T_AWARD)), 1354 -1, 1355 ((T.CATALOG_T_UPPER - as_KPI_SCORE) / 1356 (-T.CATALOG_T_STEP) * T.CATALOG_T_AWARD), 1357 0)) C_AWARD 1358 INTO ln_RESULT 1359 FROM KPI_KPIMODEL_CATALOGTARGET T 1360 1361 WHERE T.CATALOG_ID = as_CATALOG_ID 1362 AND T.CATALOG_T_BOTTOM >= LS_BOTTOM 1363 AND T.CATALOG_T_BOTTOM <= as_KPI_SCORE 1364 ORDER BY T.CATALOG_T_UPPER; 1365 EXCEPTION 1366 WHEN OTHERS THEN 1367 ln_RESULT := -99998; 1368 END; 1369 1370 END IF; 1371 1372 IF as_KPI_SCORE < LS_BOTTOM THEN 1373 1374 --老算法，适合多段计算部分 1375 BEGIN 1376 SELECT 1377 1378 DECODE(SIGN(CATALOG_T_STEP), 1379 1, 1380 (DECODE(CATALOG_T_STEP, --若step为9999，则直接-1,奖金为零 1381 9999, 1382 -1, 1383 --step 小于零 1384 (as_KPI_SCORE - T.CATALOG_T_BOTTOM) / 1385 T.CATALOG_T_STEP * T.CATALOG_T_AWARD)), 1386 -1, 1387 ((T.CATALOG_T_UPPER - as_KPI_SCORE) / 1388 (-T.CATALOG_T_STEP) * T.CATALOG_T_AWARD), 1389 0) LN_RESULT 1390 INTO ln_RESULT 1391 FROM KPI_KPIMODEL_CATALOGTARGET T 1392 1393 WHERE T.CATALOG_ID = as_CATALOG_ID 1394 AND T.CATALOG_T_UPPER <= LS_BOTTOM 1395 AND T.CATALOG_T_UPPER > as_KPI_SCORE 1396 AND T.CATALOG_T_BOTTOM <= as_KPI_SCORE; 1397 1398 EXCEPTION 1399 WHEN OTHERS THEN 1400 ln_RESULT := -99997; 1401 END; 1402 1403 END IF; 1404 1405 END IF; 1406 1407 --test 1408 --DBMS_OUTPUT.PUT_LINE(‘GetScoreAllYSZQL :as_bo.TARGET_ID=‘ ||as_bo.TARGET_ID ||‘Ln_temp_resDBL预算=‘||Ln_temp_resDBL ); 1409 --加基本月奖1，返回实际月奖 1410 ln_RESULT := nvl(ln_RESULT, 0) + 1; 1411 END; 1412 RETURN ln_RESULT; 1413 END GetComAword; 1414 1415 --==================================================================== 1416 1417 --==================================================================== 1418 --计算总月奖 1419 FUNCTION Get_all_Aword(as_LH_SCORE IN number, as_GL_SCORE IN NUMBER) 1420 RETURN NUMBER AS 1421 1422 ln_RESULT NUMBER; 1423 1424 BEGIN 1425 1426 ln_RESULT := 0; 1427 ln_RESULT := round(as_LH_SCORE * (1 - as_GL_SCORE), 3); 1428 1429 RETURN ln_RESULT; 1430 END Get_all_Aword; 1431 1432 --==================================================================== 1433 1434 --==================================================================== 1435 --获取指标的bodata2 1436 FUNCTION Get_bodata2_kpi_flu_record(as_target_id IN VARCHAR2, 1437 as_month IN VARCHAR2) RETURN NUMBER AS 1438 --权重修正 1439 --K值修正 1440 --得分上下限修正。 1441 1442 --返回值 1443 ln_RESULT NUMBER; 1444 1445 BEGIN 1446 begin 1447 select t.bodata2 1448 into ln_RESULT --取P_id 1449 from kpi_manager_boresult_report t 1450 where t.target_id = as_target_id 1451 AND t.report_month = as_month; 1452 exception 1453 when NO_DATA_FOUND then 1454 ln_RESULT := 0; 1455 end; 1456 1457 RETURN ln_RESULT; 1458 END Get_bodata2_kpi_flu_record; 1459 1460 --==================================================================== 1461 1462 --==================================================================== 1463 --指标得分最终得分修正 1464 FUNCTION Get_K_DEP_DATA(as_dep_id IN VARCHAR2, as_month IN VARCHAR2) 1465 RETURN NUMBER AS 1466 --权重修正 1467 --K值修正 1468 --得分上下限修正。 1469 1470 --返回值 1471 ln_RESULT NUMBER; 1472 ls_target_id VARCHAR2(50); 1473 1474 BEGIN 1475 BEGIN 1476 select tv.target_id 1477 into ls_target_id --取P_id 1478 -----范广龙修改 2013 09 07 1479 1480 from (select t.target_id from kpi_kpimodel_kpitarget t 1481 where t.department_id = as_dep_id 1482 AND t.target_name LIKE ‘月奖基准系数%‘ order by t.target_id desc) tv 1483 where 1484 rownum=1; 1485 /*范例 1486 select * from (select t.* 1487 --取P_id 1488 from kpi_kpimodel_kpitarget t 1489 where t.department_id = 122 1490 AND t.target_name LIKE ‘月奖基准系数%‘ order by t.target_id desc) ty where rownum=1; 1491 1492 */ 1493 1494 1495 exception 1496 when OTHERS then 1497 ln_RESULT := 1; 1498 end; 1499 1500 BEGIN 1501 select t.k_dep_data 1502 into ln_RESULT --取P_id 1503 from kpi_manager_boresult_report t 1504 where t.target_id = ls_target_id 1505 AND t.report_month = as_month; 1506 exception 1507 when OTHERS then 1508 ln_RESULT := 1; 1509 end; 1510 1511 RETURN nvl(ln_RESULT, 1); 1512 END Get_K_DEP_DATA; 1513 1514 --==================================================================== 1515 1516 --==================================================================== 1517 --指标得分最终得分修正 1518 FUNCTION get_lh_score_fix(LH_score IN NUMBER, 1519 dep_id IN NUMBER, 1520 as_month IN VARCHAR2) RETURN NUMBER AS 1521 1522 --返回值 1523 ln_RESULT NUMBER; 1524 ln_upper_score NUMBER; 1525 ln_LH_score NUMBER; 1526 BEGIN 1527 ln_LH_score := LH_score; 1528 --计算 1529 --（量化指标基础的分 - 本单位资金计划准确率得分）*修正系数 在上下限规整 1530 1531 --1 - 本单位资金计划准确率得分 1532 ln_LH_score := ln_LH_score + get_zjjhzql(dep_id, as_month); 1533 1534 --2 K值修正 1535 ln_LH_score := ln_LH_score *1;-- Get_K_DEP_DATA(dep_id, as_month); 1536 1537 --3 得分上下限修正。 1538 1539 BEGIN 1540 SELECT t.upper_score 1541 INTO ln_upper_score 1542 FROM kpi_kpimodel_department t 1543 WHERE t.department_id = dep_id; 1544 EXCEPTION 1545 WHEN OTHERS THEN 1546 ln_RESULT := ln_LH_score; 1547 END; 1548 1549 --超过上限的 修改成得分上限 1550 IF ln_upper_score < ln_LH_score THEN 1551 ln_RESULT := ln_upper_score; 1552 ELSE 1553 ln_RESULT := ln_LH_score; 1554 END IF; 1555 1556 RETURN ln_RESULT; 1557 END get_lh_score_fix; 1558 1559 --==================================================================== 1560 --取得资金计划准确率 1561 FUNCTION get_zjjhzql(as_dep_id IN VARCHAR2, as_month IN VARCHAR2) 1562 RETURN NUMBER AS 1563 --权重修正 1564 --K值修正 1565 --得分上下限修正。 1566 1567 --返回值 1568 ln_RESULT NUMBER; 1569 ls_target_id VARCHAR2(50); 1570 1571 BEGIN 1572 BEGIN 1573 SELECT t.YSZQL_SCROE 1574 INTO ln_RESULT 1575 from kpi_kernel_dep_month_mx_base_v t 1576 WHERE t.TARGET_NAME LIKE ‘%资金计划准确率%‘ 1577 AND t.REC_MONTHDATE = as_month 1578 AND t.DEPARTMENT_ID = as_dep_id; 1579 exception 1580 when OTHERS then 1581 ln_RESULT := 0; 1582 end; 1583 1584 RETURN nvl(ln_RESULT, 0); 1585 END get_zjjhzql; 1586 1587 --==================================================================== 1588 1589 --==================================================================== 1590 --定时取指标元素 主程序 小元素合成算法 1591 --=-=-==-=-=-=-=------------------------------- 1592 PROCEDURE BOELEMENT_MASTER_CONTROL(as_date IN VARCHAR2) AS 1593 --定义一 1594 1595 ls_date VARCHAR2(20); 1596 1597 --定义二 1598 1599 small_ele_idx NUMBER; 1600 ln_S NUMBER; 1601 ln_S1 NUMBER; 1602 ln_A1 NUMBER; 1603 ln_A2 NUMBER; 1604 ln_A3 NUMBER; 1605 ln_A4 NUMBER; 1606 ln_A5 NUMBER; 1607 ln_A6 NUMBER; 1608 1609 --保存游标取出的值 1610 ele_row kpi_kernel_boelement_bigele_v%rowtype; 1611 1612 type small_ele is record --包含转账方向、金额等信息 1613 ( 1614 rownum number, 1615 ele_id VARCHAR2(100), 1616 er_value NUMBER 1617 1618 ); 1619 1620 type small_ele_t IS TABLE of small_ele index by binary_integer; 1621 l_small_ele small_ele; --记录 1622 l_small_ele_t small_ele_t; --定义表 1623 1624 --大元素游标 1625 Cursor Cur_ele_big Is 1626 --禁用生产的数据,当不需要禁用时，解锁 1627 SELECT * 1628 From kpi_kernel_boelement_bigele_v 1629 where 1 = 2 1630 ORDER BY BIG_ELE_ID; 1631 1632 --小元素游标 1633 Cursor Cur_ele_small Is 1634 SELECT rownum, tt.ele_id, tt.er_value 1635 FROM kpi_manager_boelement t, kpi_manager_boelement_result tt 1636 WHERE t.ele_id = tt.ele_id 1637 AND t.ele_id LIKE ele_row.big_ele_id || ‘-%‘ 1638 AND tt.er_month = ls_date 1639 ORDER BY tt.ele_id; 1640 1641 --定义三 1642 1643 BEGIN 1644 1645 -- DBMS_OUTPUT.ENABLE(10000000); 1646 1647 --参数处理 1648 IF as_date IS NULL THEN 1649 1650 ls_date := GET_KPI_DATE(); 1651 ELSE 1652 ls_date := as_date; 1653 END IF; 1654 1655 --================================================== 1656 --第一部分 获取所有普通元素和小元素的值 1657 --================================================== 1658 1659 --主体 取元素值，每月一条，有则更新 1660 BEGIN 1661 DBMS_OUTPUT.put_line(‘检查点1-1‘); 1662 delete KPI_MANAGER_ELE_RESULT_TEMP; 1663 commit; 1664 DBMS_OUTPUT.put_line(‘检查点1-2‘); 1665 insert /*+append */ into KPI_MANAGER_ELE_RESULT_TEMP 1666 SELECT t.ELE_ID, 1667 t.ELE_TYPE, 1668 t.ELEMENT_NAME, 1669 t.DEP_NAME, 1670 t.FACTRY_NAME, 1671 t.ELEMNT_SORUCE, 1672 t.DEFAULTVALUE, 1673 PACK_KPI_KERNEL.GET_BOELEMENT(t.ele_id, ls_date) ER_VALUE, 1674 ls_date er_month 1675 from kpi_manager_boelement t 1676 WHERE t.ele_type_update IN (‘0‘, ‘1‘) 1677 and t.ele_type <> ‘指标值‘; 1678 commit; 1679 1680 DBMS_OUTPUT.put_line(‘检查点1-3‘); 1681 MERGE INTO kpi_manager_boelement_result t1 1682 USING KPI_MANAGER_ELE_RESULT_TEMP t2 1683 ON (t1.ele_id || t1.ER_MONTH = t2.ELE_ID || t2.er_month) 1684 --按月写入条目，每月每元素一条数据 1685 WHEN MATCHED THEN --匹配就更新 1686 UPDATE 1687 SET t1.ER_VALUE = t2.ER_VALUE, t1.ER_DATE = SYSDATE 1688 WHERE t1.ele_id = t2.ELE_ID 1689 AND t1.er_month = t2.er_month 1690 1691 1692 WHEN NOT MATCHED THEN --不匹配就写入新数据 1693 INSERT 1694 (ELE_ID, ER_MONTH, ER_VALUE, ER_DATE) 1695 VALUES 1696 (t2.ELE_ID, 1697 t2.er_month, 1698 t2.ER_VALUE, 1699 SYSDATE 1700 1701 ); 1702 1703 commit; 1704 DBMS_OUTPUT.put_line(‘检查点1-4‘); 1705 ---新增日志表记录 1706 1707 /* insert into KPI_MANAGER_BOELEMENT_LOG 1708 (er_id,ele_id, er_month, er_value, er_date) 1709 SELECT 1710 SEQ_KPI_KPI_ELE_LOG.Nextval, 1711 t.ELE_ID, 1712 ls_date er_month, 1713 GET_BOELEMENT(t.ele_id, ls_date) ER_VALUE, 1714 sysdate 1715 from kpi_manager_boelement t 1716 WHERE t.ele_type_update IN (‘0‘, ‘1‘) 1717 and t.ele_type <> ‘指标值‘; 1718 1719 1720 1721 commit;*/ 1722 --Exception 1723 --when others then 1724 1725 --pack_kpi_base.SET_SYSTEM_LOG( ‘指标元素提取出错‘, ‘指标元素提取出错‘); 1726 1727 end; 1728 1729 --将审批通过的计划值更新到元素结果表【kpi_manager_boelement_result】中 1730 DBMS_OUTPUT.put_line(‘检查点1-5‘); 1731 PACK_KPI_JHZ.kpi_BackToELeResultTable(ls_date); 1732 DBMS_OUTPUT.put_line(‘检查点1-6‘); 1733 --利润实际排名 1734 KPI_LR_SJ_PM(ls_date); 1735 --利润预算准确率排名 1736 KPI_LR_YSZQL_PM(as_month => ls_date); 1737 DBMS_OUTPUT.put_line(‘检查点1-7‘); 1738 --================================================== 1739 --第二部分 根据获取的小元素 合成大元素 写入临时表 1740 --================================================== 1741 1742 --1、获取大元素列表逐条计算大元素值 1743 Open Cur_ele_big; 1744 loop 1745 --主循环 1746 1747 --循环内参数初始化#### 1748 --small_ele_idx :=0; 1749 ln_s1 := -9997; -- 中间结果 1750 ln_s := -9998; --最终结果 1751 ln_A1 := 0; 1752 ln_A2 := 0; 1753 ln_A3 := 0; 1754 ln_A4 := 0; 1755 ln_A5 := 0; 1756 ln_A6 := 0; 1757 1758 --取游标 1759 fetch Cur_ele_big 1760 into ele_row; 1761 exit when Cur_ele_big%NOTFOUND; 1762 1763 --- 1764 /*DBMS_OUTPUT.PUT_LINE(‘2.1、 大元素值取得、 big_ele_id = ‘ || 1765 ele_row.big_ele_id || ‘ element_name=‘ || 1766 ele_row.element_name || ‘ ele_type_update=‘ || 1767 ele_row.ele_type_update || ‘ ele_weight1=‘ || 1768 ele_row.ele_weight1 || ‘ tarsys_id=‘ || 1769 ele_row.tarsys_id || ‘ target_id=‘ || 1770 ele_row.target_id || ‘ formula_bm=‘ || 1771 ele_row.formula_bm);*/ 1772 small_ele_idx := 0; 1773 1774 --（1）得到此大元素的小元素序列，并循环把小元素的值存入变量中。 1775 Open Cur_ele_small; 1776 loop 1777 --主循环 1778 fetch Cur_ele_small 1779 into l_small_ele_t(small_ele_idx); 1780 exit when Cur_ele_small%NOTFOUND; 1781 1782 --- 1783 /*DBMS_OUTPUT.PUT_LINE(‘ 2.2小元素值循环调用 、num = ‘ || l_small_ele_t(small_ele_idx) 1784 .rownum || ‘ ele_id=‘ || l_small_ele_t(small_ele_idx) 1785 .ele_id || ‘ er_value=‘ || l_small_ele_t(small_ele_idx) 1786 .er_value);*/ 1787 1788 small_ele_idx := small_ele_idx + 1; 1789 1790 end LOOP; 1791 close Cur_ele_small; 1792 1793 /* 代码例子备用 1794 for idx in 1 .. 5 loop -- 初始化数据 1795 l_small_ele_t(idx).rownum :=idx; 1796 l_small_ele_t(idx).ele_id := ‘xxxxx‘ ||idx; 1797 l_small_ele_t(idx).er_value := ‘F‘ ; 1798 END loop;*/ 1799 1800 --（2）根据大元素的公式标记 进入相对应的算法 计算得分S1 1801 1802 /* 1803 NHYSZQL 指标元素体系-能耗预算准确率 S1=(A2-A1)/A1*100 1804 FJWCL 指标元素体系-分解完成率 S1=(A2-A1)/A1*100 1805 WNCXL 指标元素体系-物耗能耗创新率 S1=A1/A2*100 1806 WNWCL 指标元素体系-能耗物耗完成率 S1=A1/A2*100 1807 CLJH 指标元素体系-产量计划 S1=A2/A1 1808 CLCX1 指标元素体系-产量创新 1809 CLCX3 指标元素体系-产量创新 1810 CLCX4 指标元素体系-产量创新 1811 CLCX5 指标元素体系-产量创新 1812 CLCX6 指标元素体系-产量创新 1813 CLCX7 指标元素体系-产量创新 1814 ZLDF 质量 1815 SSL 损失率*/ 1816 1817 --/* SSL 1818 IF ele_row.formula_bm = ‘SSL‘ THEN 1819 1820 BEGIN 1821 ln_a1 := l_small_ele_t(0).er_value; --计划值 1822 ln_a2 := l_small_ele_t(1).er_value; -- 实际值 1823 1824 IF ln_a2 IS NULL OR ln_a1 IS NULL OR ln_a1 = 0 THEN 1825 ln_s1 := 0; 1826 ELSE 1827 ln_s1 := ln_a2 / ln_a1 * 100; 1828 END IF; 1829 EXCEPTION 1830 WHEN OTHERS THEN 1831 ln_s1 := 0; 1832 END; 1833 1834 -- S = f(s1) 根据S1 计算S的过程，每个算法均可能不同 1835 IF ln_s1 = 0 THEN 1836 ln_S := 0; 1837 ELSE 1838 1839 IF ln_s1 <= 90 THEN 1840 ln_S := 110; 1841 END IF; 1842 IF ln_s1 > 90 AND ln_s1 <= 110 THEN 1843 ln_S := ln_s1; 1844 END IF; 1845 IF ln_s1 > 110 THEN 1846 ln_S := 0; 1847 END IF; 1848 1849 END IF; 1850 1851 END IF; 1852 1853 --/* NHYSZQL S1=(A2-A1)/A1*100 1854 IF ele_row.formula_bm = ‘NHYSZQL‘ THEN 1855 1856 BEGIN 1857 ln_a1 := l_small_ele_t(0).er_value; 1858 ln_a2 := l_small_ele_t(1).er_value; 1859 1860 IF ln_a2 IS NULL OR ln_a1 IS NULL OR ln_a1 = 0 THEN 1861 ln_s1 := 0; 1862 ELSE 1863 ln_s1 := (ln_a2 - ln_a1) / ln_a1 * 100; 1864 END IF; 1865 EXCEPTION 1866 WHEN OTHERS THEN 1867 ln_s1 := 0; 1868 END; 1869 1870 -- S = f(s1)根据S1 计算S的过程，每个算法均可能不同 1871 1872 ln_S := PACK_KPI_KERNEL.Get_OneTarget_Score(ele_row.tarsys_id, 1873 ln_s1); 1874 1875 END IF; 1876 1877 --/* FJWCL S1=(A2-A1)/A1*100 1878 IF ele_row.formula_bm = ‘FJWCL‘ THEN 1879 1880 BEGIN 1881 ln_a1 := l_small_ele_t(0).er_value; 1882 ln_a2 := l_small_ele_t(1).er_value; 1883 1884 IF ln_a2 IS NULL OR ln_a1 IS NULL OR ln_a1 = 0 THEN 1885 ln_s1 := 0; 1886 ELSE 1887 ln_s1 := (ln_a2 - ln_a1) / ln_a1 * 100; 1888 ln_s1 := ln_s1 * (ln_a1 / abs(ln_a1)); 1889 END IF; 1890 EXCEPTION 1891 WHEN OTHERS THEN 1892 ln_s1 := 0; 1893 END; 1894 1895 -- S = f(s1)根据S1 计算S的过程，每个算法均可能不同 1896 1897 ln_S := PACK_KPI_KERNEL.Get_OneTarget_Score(ele_row.tarsys_id, 1898 ln_s1); 1899 1900 END IF; 1901 1902 --WNCXL S1=A1/A2*100 1903 IF ele_row.formula_bm = ‘WNCXL‘ THEN 1904 1905 BEGIN 1906 ln_a1 := l_small_ele_t(0).er_value; 1907 ln_a2 := l_small_ele_t(1).er_value; 1908 1909 IF ln_a2 IS NULL OR ln_a1 IS NULL OR ln_a1 = 0 THEN 1910 ln_s1 := 0; 1911 ELSE 1912 ln_s1 := (ln_a1 / ln_a2) * 100; 1913 END IF; 1914 EXCEPTION 1915 WHEN OTHERS THEN 1916 ln_s1 := 0; 1917 END; 1918 1919 -- S = f(s1) 根据S1 计算S的过程，每个算法均可能不同 1920 IF ln_s1 = 0 THEN 1921 ln_S := 0; 1922 ELSE 1923 1924 IF ln_s1 < 100 THEN 1925 ln_S := 0; 1926 END IF; 1927 IF ln_s1 >= 100 AND ln_s1 <= 105 THEN 1928 ln_S := ln_s1; 1929 END IF; 1930 IF ln_s1 > 105 THEN 1931 ln_S := 105; 1932 END IF; 1933 1934 END IF; 1935 1936 END IF; 1937 1938 --WNCXL S1=A1/A2*100 1939 IF ele_row.formula_bm = ‘WNCXL2‘ THEN 1940 1941 BEGIN 1942 ln_a1 := l_small_ele_t(0).er_value; 1943 ln_a2 := l_small_ele_t(1).er_value; 1944 1945 IF ln_a2 IS NULL OR ln_a1 IS NULL OR ln_a2 = 0 THEN 1946 ln_s1 := 0; 1947 ELSE 1948 ln_s1 := (ln_a2 / ln_a1) * 100; 1949 END IF; 1950 EXCEPTION 1951 WHEN OTHERS THEN 1952 ln_s1 := 0; 1953 END; 1954 1955 -- S = f(s1) 根据S1 计算S的过程，每个算法均可能不同 1956 IF ln_s1 = 0 THEN 1957 ln_S := 0; 1958 ELSE 1959 1960 IF ln_s1 < 100 THEN 1961 ln_S := 0; 1962 END IF; 1963 IF ln_s1 >= 100 AND ln_s1 <= 105 THEN 1964 ln_S := ln_s1; 1965 END IF; 1966 IF ln_s1 > 105 THEN 1967 ln_S := 105; 1968 END IF; 1969 1970 END IF; 1971 1972 END IF; 1973 1974 -- WNWCL S1=A1/A2*100 1975 IF ele_row.formula_bm = ‘WNWCL‘ THEN 1976 1977 BEGIN 1978 ln_a1 := l_small_ele_t(0).er_value; 1979 ln_a2 := l_small_ele_t(1).er_value; 1980 1981 IF ln_a2 IS NULL OR ln_a1 IS NULL OR ln_a2 = 0 THEN 1982 ln_s1 := 0; 1983 ELSE 1984 ln_s1 := pack_kpi_base.F_GET_CFYS(ln_a1, ln_a2) * 100; 1985 END IF; 1986 1987 EXCEPTION 1988 WHEN OTHERS THEN 1989 ln_s1 := 0; 1990 END; 1991 1992 -- S = f(s1) 根据S1 计算S的过程，每个算法均可能不同 1993 IF ln_s1 = 0 THEN 1994 ln_S := 0; 1995 ELSE 1996 1997 IF ln_s1 < 90 THEN 1998 ln_S := 0; 1999 END IF; 2000 IF ln_s1 >= 90 AND ln_s1 <= 105 THEN 2001 ln_S := ln_s1; 2002 END IF; 2003 IF ln_s1 > 105 THEN 2004 ln_S := 105; 2005 END IF; 2006 2007 END IF; 2008 2009 END IF; 2010 2011 --CLJH 指标元素体系-产量计划S1=A2/A1 2012 IF ele_row.formula_bm = ‘CLJH‘ THEN 2013 2014 BEGIN 2015 ln_a1 := l_small_ele_t(0).er_value; 2016 ln_a2 := l_small_ele_t(1).er_value; 2017 2018 IF ln_a2 IS NULL OR ln_a1 IS NULL OR ln_a1 = 0 THEN 2019 ln_s1 := 0; 2020 ELSE 2021 ln_s1 := pack_kpi_base.F_GET_CFYS(ln_a2, ln_a1); 2022 END IF; 2023 2024 EXCEPTION 2025 WHEN OTHERS THEN 2026 ln_s1 := 0; 2027 END; 2028 2029 -- S = f(s1) 根据S1 计算S的过程，每个算法均可能不同 2030 IF ln_s1 = 0 THEN 2031 ln_S := 0; 2032 ELSE 2033 2034 IF ln_s1 > 1.04 THEN 2035 ln_S := 1.04; 2036 ELSE 2037 ln_S := ln_s1; 2038 END IF; 2039 2040 END IF; 2041 2042 END IF; 2043 2044 /* 较复杂待编写 2045 CLCX1 指标元素体系-产量创新 2046 CLCX2 指标元素体系-产量创新 2047 CLCX3 指标元素体系-产量创新 2048 CLCX4 指标元素体系-产量创新 2049 CLCX5 指标元素体系-产量创新 2050 CLCX6 指标元素体系-产量创新 2051 CLCX7 指标元素体系-产量创新 2052 */ 2053 2054 --CLCX1 指标元素体系-产量计划S1=A2/A1 2055 IF ele_row.formula_bm = ‘CLCX1‘ THEN 2056 2057 BEGIN 2058 ln_a1 := l_small_ele_t(0).er_value; 2059 ln_a2 := l_small_ele_t(1).er_value; 2060 ln_a3 := l_small_ele_t(2).er_value; 2061 ln_a4 := l_small_ele_t(3).er_value; 2062 ln_a5 := l_small_ele_t(4).er_value; 2063 2064 DBMS_OUTPUT.PUT_LINE(‘ CLCX1计算过程及结果 、ln_a1 = ‘ || 2065 ln_a1 || ‘ln_a2 = ‘ || ln_a2 || ‘ ln_a3 =‘ || 2066 ln_a3 || ‘ ln_a4 =‘ || ln_a4); 2067 2068 --若实际值为0，则结果为0 2069 if nvl(ln_a1, 0) = 0 then 2070 --- 2071 ln_s := 0; 2072 2073 ELSE 2074 --- 2075 ln_a1 := pack_kpi_base.F_GET_CFYS(ln_a1, ln_a5); 2076 2077 --a2,a3,a4,均不为空 2078 IF nvl(ln_a2, 0) <> 0 and nvl(ln_a3, 0) <> 0 and 2079 nvl(ln_a4, 0) <> 0 THEN 2080 2081 IF ln_a1 > ln_a4 THEN 2082 ln_s := (ln_a1 - ln_a4) / ln_a4 * 300 + 2083 (ln_a4 - ln_a3) / ln_a3 * 200 + 2084 (ln_a3 - ln_a2) / ln_a2 * 100; 2085 ELSIF ln_a1 > ln_a3 THEN 2086 ln_s := (ln_a1 - ln_a3) / ln_a3 * 200 + 2087 (ln_a3 - ln_a2) / ln_a2 * 100; 2088 ELSIF ln_a1 > ln_a2 THEN 2089 ln_s := (ln_a1 - ln_a2) / ln_a2 * 100; 2090 ELSIF ln_a1 < ln_a2 THEN 2091 ln_s := 0; 2092 2093 END IF; 2094 2095 IF ln_s > 30 THEN 2096 ln_s := 30; 2097 END IF; 2098 2099 END IF; 2100 2101 --a2,a3,均不为空 a4 = 空 2102 IF nvl(ln_a2, 0) <> 0 and nvl(ln_a3, 0) <> 0 and 2103 nvl(ln_a4, 0) = 0 THEN 2104 2105 IF ln_a1 > ln_a3 THEN 2106 ln_s := (ln_a1 - ln_a3) / ln_a3 * 200 + 2107 (ln_a3 - ln_a2) / ln_a2 * 100; 2108 ELSIF ln_a1 > ln_a2 THEN 2109 ln_s := (ln_a1 - ln_a2) / ln_a2 * 100; 2110 ELSIF ln_a1 < ln_a2 THEN 2111 ln_s := 0; 2112 END IF; 2113 2114 IF ln_s > 20 THEN 2115 ln_s := 20; 2116 END IF; 2117 END IF; 2118 2119 --a2,不为空 a3，a4 = 空 2120 IF nvl(ln_a2, 0) <> 0 and nvl(ln_a3, 0) = 0 and 2121 nvl(ln_a4, 0) = 0 THEN 2122 2123 IF ln_a1 > ln_a2 THEN 2124 ln_s := (ln_a1 - ln_a2) / ln_a2 * 100; 2125 ELSE 2126 IF ln_a1 < ln_a2 THEN 2127 ln_s := 0; 2128 2129 END IF; 2130 2131 IF ln_s > 10 THEN 2132 ln_s := 10; 2133 END IF; 2134 END IF; 2135 2136 END IF; 2137 2138 END IF; 2139 EXCEPTION 2140 WHEN OTHERS THEN 2141 ln_s := 0; 2142 END; 2143 2144 END IF; 2145 2146 --CLCX2 指标元素体系-产量计划S1=A2/A1 2147 IF ele_row.formula_bm = ‘CLCX2‘ THEN 2148 2149 BEGIN 2150 ln_a1 := l_small_ele_t(0).er_value; 2151 ln_a2 := l_small_ele_t(1).er_value; 2152 ln_a3 := l_small_ele_t(2).er_value; 2153 ln_a4 := l_small_ele_t(3).er_value; 2154 2155 --若实际值为0，则结果为0 2156 if nvl(ln_a1, 0) = 0 then 2157 --- 2158 ln_s := 0; 2159 2160 ELSE 2161 --- 2162 2163 ln_a1 := pack_kpi_base.F_GET_CFYS(ln_a1, ln_a4); -- 求日产量 2164 2165 --a2,a3,均不为空 2166 IF nvl(ln_a2, 0) <> 0 and nvl(ln_a3, 0) <> 0 THEN 2167 2168 IF ln_a1 > ln_a3 THEN 2169 ln_s := (ln_a1 - ln_a3) / ln_a3 * 200 + 2170 (ln_a3 - ln_a2) / ln_a2 * 100; 2171 ELSIF ln_a1 > ln_a2 THEN 2172 ln_s := (ln_a1 - ln_a2) / ln_a2 * 100; 2173 ELSIF ln_a1 < ln_a2 THEN 2174 ln_s := 0; 2175 END IF; 2176 2177 IF ln_s > 20 THEN 2178 ln_s := 20; 2179 END IF; 2180 END IF; 2181 2182 --a2,不为空 a3， = 空 2183 IF nvl(ln_a2, 0) <> 0 and nvl(ln_a3, 0) = 0 THEN 2184 2185 IF ln_a1 > ln_a2 THEN 2186 ln_s := (ln_a1 - ln_a2) / ln_a2 * 100; 2187 ELSE 2188 IF ln_a1 < ln_a2 THEN 2189 ln_s := 0; 2190 2191 END IF; 2192 2193 IF ln_s > 10 THEN 2194 ln_s := 10; 2195 END IF; 2196 END IF; 2197 2198 END IF; 2199 2200 END IF; 2201 EXCEPTION 2202 WHEN OTHERS THEN 2203 ln_s := 0; 2204 END; 2205 2206 END IF; 2207 2208 --CLCX3 S1=(A1+A2+A3+A4+A5+A6)*0.15 2209 IF ele_row.formula_bm = ‘CLCX3‘ THEN 2210 2211 BEGIN 2212 ln_a1 := l_small_ele_t(0).er_value; 2213 ln_a2 := l_small_ele_t(1).er_value; 2214 ln_a3 := l_small_ele_t(2).er_value; 2215 ln_a4 := l_small_ele_t(3).er_value; 2216 ln_a5 := l_small_ele_t(4).er_value; 2217 ln_a6 := l_small_ele_t(5).er_value; 2218 2219 ln_s := (ln_a1 + ln_a2 + ln_a3 + ln_a4 + ln_a5 + ln_a6) * 0.15; 2220 2221 EXCEPTION 2222 WHEN OTHERS THEN 2223 ln_s := 0; 2224 END; 2225 2226 END IF; 2227 2228 --CLCX4 S1=(A1+A2+A3+A4+A5)*0.2 2229 IF ele_row.formula_bm = ‘CLCX4‘ THEN 2230 2231 BEGIN 2232 ln_a1 := l_small_ele_t(0).er_value; 2233 ln_a2 := l_small_ele_t(1).er_value; 2234 ln_a3 := l_small_ele_t(2).er_value; 2235 ln_a4 := l_small_ele_t(3).er_value; 2236 ln_a5 := l_small_ele_t(4).er_value; 2237 2238 ln_s := (ln_a1 + ln_a2 + ln_a3 + ln_a4 + ln_a5) * 0.2; 2239 2240 EXCEPTION 2241 WHEN OTHERS THEN 2242 ln_s := 0; 2243 END; 2244 2245 END IF; 2246 2247 --CLCX5 S1=(A1+A2)/A3 2248 IF ele_row.formula_bm = ‘CLCX5‘ THEN 2249 2250 BEGIN 2251 ln_a1 := l_small_ele_t(0).er_value; 2252 ln_a2 := l_small_ele_t(1).er_value; 2253 ln_a3 := l_small_ele_t(2).er_value; 2254 2255 ln_s := pack_kpi_base.F_GET_CFYS(ln_a1 + ln_a2, ln_a3); 2256 2257 EXCEPTION 2258 WHEN OTHERS THEN 2259 ln_s := 0; 2260 END; 2261 2262 END IF; 2263 2264 --CLCX6 S1=(A1+A2)/A3/24 2265 IF ele_row.formula_bm = ‘CLCX6‘ THEN 2266 2267 BEGIN 2268 ln_a1 := l_small_ele_t(0).er_value; 2269 ln_a2 := l_small_ele_t(1).er_value; 2270 ln_a3 := l_small_ele_t(2).er_value; 2271 2272 ln_s := pack_kpi_base.F_GET_CFYS(ln_a1 + ln_a2, ln_a3) / 24; 2273 2274 EXCEPTION 2275 WHEN OTHERS THEN 2276 ln_s := 0; 2277 END; 2278 2279 END IF; 2280 2281 --CLCX7 S1=A1/A2 2282 IF ele_row.formula_bm = ‘CLCX7‘ THEN 2283 2284 BEGIN 2285 ln_a1 := l_small_ele_t(0).er_value; 2286 ln_a2 := l_small_ele_t(1).er_value; 2287 2288 ln_s1 := pack_kpi_base.F_GET_CFYS(ln_a1, ln_a2); 2289 IF ln_s1 > 1 THEN 2290 ln_s := 3; 2291 ELSE 2292 ln_s := 0; 2293 END IF; 2294 2295 EXCEPTION 2296 WHEN OTHERS THEN 2297 ln_s := 0; 2298 END; 2299 2300 END IF; 2301 2302 --zfdl S = a1 - a2 2303 IF ele_row.formula_bm = ‘ZLDF‘ THEN 2304 2305 BEGIN 2306 ln_a1 := l_small_ele_t(0).er_value; 2307 ln_a2 := l_small_ele_t(1).er_value; 2308 2309 IF ln_a1 = 0 THEN 2310 --除数为零结果为零 2311 ln_s := 0; 2312 ELSE 2313 ln_s := (pack_kpi_base.F_GET_CFYS(ln_a1, ln_a2) - 1) * 1000 * 5; 2314 END IF; 2315 2316 --上下限修正 2317 IF ln_s > 50 THEN 2318 ln_s := 50; 2319 END IF; 2320 2321 IF ln_s < -50 THEN 2322 ln_s := -50; 2323 END IF; 2324 2325 EXCEPTION 2326 WHEN OTHERS THEN 2327 ln_s := 0; 2328 END; 2329 END IF; 2330 2331 --test 2332 /* DBMS_OUTPUT.PUT_LINE(‘ 2.3权重修正前的s ‘ || ‘ln_s1 = ‘ || 2333 ln_s1 || ‘ ln_s =‘ || ln_s);*/ 2334 2335 --（4）根据大元素的权重类型 进行权重修正。 --测试时NVl为1，正式时为0 2336 ln_S := ln_S * nvl(ele_row.ele_weight1, 100) / 100 * 2337 nvl(ele_row.ele_weight2, 100) / 100; 2338 ln_S := round(ln_S, 2); 2339 --test 2340 /*DBMS_OUTPUT.PUT_LINE(‘ 2.4计算过程及结果 、ele_id = ‘ || 2341 ele_row.big_ele_id || ‘ln_s1 = ‘ || ln_s1 || 2342 ‘ ln_s =‘ || ln_s);*/ 2343 2344 --(5) 结果更新 2345 2346 merge into kpi_manager_boelement_result t1 2347 using (select ele_row.big_ele_id ele_id, 2348 ln_S er_value, 2349 ls_date update_date 2350 2351 from dual 2352 2353 ) t2 2354 on (t1.ele_id || t1.er_month = t2.ele_id || t2.update_date) 2355 WHEN MATCHED THEN 2356 UPDATE 2357 SET t1.er_value = t2.er_value, t1.er_date = SYSDATE 2358 WHERE t1.ele_id = t2.ele_id 2359 and t1.er_month = t2.update_date 2360 2361 2362 WHEN NOT MATCHED THEN 2363 INSERT 2364 ( 2365 2366 ELE_ID, 2367 ER_MONTH, 2368 ER_VALUE, 2369 --ER_VALUE2, 2370 ER_DATE) 2371 VALUES 2372 (t2.ele_id, t2.update_date, t2.er_value, SYSDATE); 2373 2374 COMMIT; 2375 2376 end loop; --主循环结束 2377 2378 close Cur_ele_big; --游标关闭 2379 2380 --================================================== 2381 --第三部分 将临时表中计算得到的大元素的值 整体更新入元素结果表 2382 --================================================== 2383 2384 END BOELEMENT_MASTER_CONTROL; 2385 2386 --==================================================================== 2387 --==================================================================== 2388 --取值 2389 FUNCTION GET_BOELEMENT(as_ele_id IN VARCHAR2, as_date IN VARCHAR2) 2390 RETURN NUMBER AS 2391 2392 ln_RESULT NUMBER; 2393 ln_defaultvalue NUMBER; 2394 ls_SQL LONG; 2395 2396 ls_SJ_SQL LONG; 2397 ls_JH_SQL LONG; 2398 2399 ls_pa varchar2(4000); 2400 ls_temp varchar2(4000); 2401 ls_NF varchar2(10); 2402 ls_source varchar2(10); 2403 2404 ls_ele_name varchar2(4000); 2405 2406 --手动取数：计划值取上月的数据，其它数据取默认值 2407 ls_ele_type varchar2(50); 2408 BEGIN 2409 ls_NF := pack_kpi_base.F_GET_NF(as_date); 2410 --1、根据元素ID取的SQL，若没有，则取默认值。转4 2411 BEGIN 2412 SELECT t.elemnt_soruce, t.source 2413 INTO ls_SJ_SQL, ls_source 2414 FROM kpi_manager_boelement t 2415 WHERE t.ele_id = as_ele_id 2416 AND rownum = 1; 2417 EXCEPTION 2418 WHEN no_data_found THEN 2419 ls_SJ_SQL := ‘0‘; --elemnt_soruce 字段没有值或者值为0，就说明无法自动取数 2420 END; 2421 2422 BEGIN 2423 SELECT t.defaultvalue, t.element_name, t.ele_type 2424 INTO ln_defaultvalue, ls_ele_name, ls_ele_type 2425 FROM kpi_manager_boelement t 2426 WHERE t.ele_id = as_ele_id 2427 AND rownum = 1; 2428 EXCEPTION 2429 WHEN no_data_found THEN 2430 ln_defaultvalue := 0; 2431 END; 2432 2433 --第一种情况：手动取数:计划值取上月数据，其它数据取默认值 2434 if ls_source = 1 then 2435 --计划值取上月数据 2436 if ls_ele_type = ‘指标值‘ then 2437 2438 -- ln_RESULT:=0; 2439 2440 select round(nvl(t.VALUE_DATA, 0), 2) er_value 2441 into ln_RESULT 2442 from KPI_FLU_FLOW_RESULT_NEW_V t 2443 where t.TARGET_ID = as_ele_id 2444 and t.REC_MONTH = 2445 to_char(add_months(to_date(as_date || ‘-01‘, ‘yyyy-MM-dd‘), 2446 -1), 2447 ‘yyyy-MM‘) 2448 and t.s_code = 8 --已发布 2449 ; 2450 2451 --其它的取默认值 2452 else 2453 ln_RESULT := ln_defaultvalue; 2454 end if; 2455 --#######临时注释######################################################################## 2456 --dbms_output.put_line(‘ELE_ID: ‘ || as_ele_id || ls_ele_name || 2457 -- ‘ 手动取数 默认值‘); 2458 2459 else 2460 --第二种情况：自动取数，但无SQL 2461 --重要判断 --临时屏蔽，取数口径，自动还是手动，0自动，1手动 2462 IF ls_SJ_SQL = ‘0‘ OR ls_SJ_SQL IS NULL THEN 2463 --OR ls_source = 1 THEN 2464 2465 ln_RESULT := ln_defaultvalue; 2466 --#######临时注释######################################################################## 2467 --dbms_output.put_line(‘ELE_ID: ‘ || as_ele_id || ls_ele_name || 2468 --‘ 无SQl 默认值‘); 2469 --第三种情况：自动取数，有sql 2470 ELSE 2471 --SQL顺利取到，开始取数部分 2472 --2、处理SQL 替换各类信息 2473 BEGIN 2474 --‘[#date#]‘ ‘yyyy-mm‘格式日期 2475 ls_SJ_SQL := replace(ls_SJ_SQL, ‘[#date#]‘, as_date); 2476 2477 --‘[#gcdm#]‘ 工厂代码 2478 ls_SJ_SQL := replace(ls_SJ_SQL, 2479 ‘[#gcdm#]‘, 2480 pack_kpi_base.F_GET_GCDM_FROM_ELEID(as_ele_id)); 2481 2482 --‘[#erp_lr_yf#]‘ ERP月份 HSLMM 2483 ls_SJ_SQL := replace(ls_SJ_SQL, 2484 ‘[#erp_lr_yf#]‘, 2485 ‘HSL‘ || pack_kpi_base.F_GET_MM(as_date)); 2486 2487 --‘[#NF#]‘ ‘yyyy‘格式年份 2488 ls_SJ_SQL := replace(ls_SJ_SQL, ‘[#NF#]‘, ls_NF); 2489 2490 --修正系数(累计利润) 2491 --‘[#curMonth#]‘ --当前月份 2492 ls_SJ_SQL := replace(ls_SJ_SQL, 2493 ‘[#curMonth#]‘, 2494 pack_kpi_base.F_GET_MM(as_date)); 2495 --‘[#ele_id#]‘ --元素ID 2496 ls_SJ_SQL := replace(ls_SJ_SQL, ‘[#ele_id#]‘, as_ele_id); 2497 2498 --3、执行SQL 取值 2499 2500 execute immediate ls_SJ_SQL 2501 into ln_RESULT; 2502 /* dbms_output.put_line(‘ELE_ID: ‘ || as_ele_id || ls_ele_name || 2503 ‘ SQl ##OK## 取的的值 ‘ || ln_RESULT || 2504 ‘ 成功的SQL：‘ || ls_SJ_SQL); 2505 */ 2506 IF ln_RESULT IS NULL THEN 2507 ln_RESULT := NULL; 2508 END IF; 2509 2510 --4、最终结果处理并返回。 2511 2512 EXCEPTION 2513 WHEN OTHERS THEN 2514 --pack_kpi_base.SET_SYSTEM_LOG(‘元素取值错误‘,‘配置的SQl执行报错，结果返回默认值‘||ls_SJ_SQL); 2515 --#######临时注释######################################################################## 2516 --dbms_output.put_line(‘ELE_ID: ‘ || as_ele_id || ls_ele_name || 2517 --‘ SQl执行报错或没有取得 默认值 SQL：‘ || ls_SJ_SQL); 2518 ln_RESULT := ln_defaultvalue; 2519 END; 2520 2521 END IF; 2522 end if; 2523 RETURN round(nvl(ln_RESULT, 0), 3); 2524 END GET_BOELEMENT; 2525 2526 --代码保留 2527 --begin 2528 /*loop 2529 exit when instr(v_GS,‘[#‘)=0; 2530 v_pa:=substr(v_GS,instr(v_GS,‘[#‘)+2,instr(v_GS,‘#]‘)-instr(v_GS,‘[#‘)-2); 2531 select CSTQFF into v_temp from tech_device_base_para_day_t where upper(CSDM)=upper(v_pa) and rownum=1; 2532 2533 v_GS:=replace(v_GS,‘[#‘||v_pa||‘#]‘,v_temp); 2534 end loop;*/ 2535 2536 --取实际值过程 2537 2538 /* --SQL例子 2539 ( 2540 select sum(mesfctrafmval) 2541 from mb_zbsj_v 2542 where mes_fctr_id =‘26‘ 2543 and mtrl_id=‘1540015‘ 2544 and tzzdm=‘Z5YS0307‘ 2545 and begtime=last_day(add_months(‘{#KSSJ#}‘, -1)) 2546 and endtime=last_day(‘{#KSSJ#}‘)-1 2547 and id=‘431‘ 2548 )*/ 2549 2550 /* v_GS:=replace(v_GS,‘{#KSSJ#}‘,p_rq);*/ 2551 2552 --ls_SQL:=‘select ‘||ls_SJ_SQL||‘ from dual‘; 2553 2554 --execute immediate ls_SQL into ln_RESULT; 2555 2556 --dbms_output.put_line(v_SQL,4000); 2557 -- EXCEPTION 2558 -- WHEN TOO_MANY_ROWS or ZERO_DIVIDE then 2559 -- Result:=999.99; 2560 --WHEN OTHERS THEN 2561 -- Result:=0; 2562 --end; 2563 2564 --==================================================================== 2565 2566 function KPI_SplitElementEx(P_STRING IN VARCHAR2, as_date IN VARCHAR2) 2567 return NUMBER is 2568 --分解结构[#x#]*常量+[#y#].......公式，并置换为所需要的数值，完成绩效指标公式的运算。函数使用字符串分解办法进行 2569 --Fantasy_Van 2011.6.30 2570 --V_POS为需要的变量[#x#]，而后下一个函数对该变量进行处理，取得所需要的数值并返回，置换出原有的内容,V_POS_MID为取得的数值 2571 --E: [#111#]+[#222#]经过置换后成为： 23.12+[#222#] 2572 Result NUMBER; 2573 ls_date VARCHAR2(20); 2574 V_POS VARCHAR2(2000); 2575 V_POS_MID VARCHAR2(2000); 2576 iPosHead INT := 1; 2577 iPosEnd INT := 0; 2578 V_ResultEnd LONG; 2579 ln_num NUMBER; 2580 i INT := 0; 2581 L_STRING VARCHAR2(2000); 2582 BEGIN 2583 --参数处理 2584 IF as_date IS NULL THEN 2585 ls_date := GET_KPI_DATE(); 2586 ELSE 2587 ls_date := as_date; 2588 END IF; 2589 2590 L_STRING := P_STRING; 2591 IF Length(L_STRING) > 0 THEN 2592 LOOP 2593 SELECT INSTR(L_STRING, ‘[#‘) Into iPosHead FROM dual; 2594 SELECT INSTR(L_STRING, ‘#]‘) - INSTR(L_STRING, ‘[#‘) + 2 2595 Into iPosEnd 2596 FROM dual; 2597 if iPosHead < 1 THEN 2598 EXIT; 2599 END IF; 2600 SELECT substr(L_STRING, iPosHead, iPosEnd) Into V_POS FROM dual; 2601 V_POS_MID := KPI_SplitElementGetRS(V_POS, ls_date); 2602 L_STRING := REPLACE(L_STRING, V_POS, V_POS_MID); 2603 END LOOP; 2604 END IF; 2605 V_ResultEnd := L_STRING; 2606 IF Length(L_STRING) = 0 THEN 2607 V_ResultEnd := ‘00000000‘; 2608 END IF; 2609 2610 BEGIN 2611 2612 V_ResultEnd := ‘SELECT ‘ || V_ResultEnd || ‘ FROM dual‘; 2613 Dbms_Output.Put_Line(V_ResultEnd); 2614 BEGIN 2615 execute immediate V_ResultEnd 2616 into ln_num; 2617 EXCEPTION 2618 WHEN OTHERS THEN 2619 ln_num := -9999; 2620 END; 2621 RETURN ln_num; 2622 2623 END; 2624 end KPI_SplitElementEx; 2625 2626 function KPI_SplitElementGetRS(as_V_POS IN VARCHAR2, as_date IN VARCHAR2) 2627 return VARCHAR2 is 2628 --取得所需要的元素的数值 Fantasy_Van 2011-6.30 2629 Result VARCHAR2(2000); 2630 ELEM_ID_RESSULT VARCHAR2(2000); 2631 L_V_POS VARCHAR2(2000); 2632 V_POS_MID VARCHAR2(2000); 2633 iHead INT := 0; 2634 iEnd INT := 0; 2635 v_exist int := 0; 2636 BEGIN 2637 BEGIN 2638 L_V_POS := as_V_POS; 2639 SELECT INSTR(L_V_POS, ‘[#‘) Into iHead FROM dual; 2640 SELECT INSTR(L_V_POS, ‘#]‘) Into iEnd FROM dual; 2641 V_POS_MID := SUBSTR(L_V_POS, iHead + 2, iEnd - iHead - 2); 2642 2643 --元素取值 2644 select count(1) 2645 into v_exist 2646 FROM kpi_manager_boelement_result t 2647 WHERE t.er_month = as_date 2648 AND t.ele_id = V_POS_MID; 2649 2650 --当kpi_manager_boelement_result表中没有此元素时，取元素表中的默认值 2651 --出现场景：新增指标和元素 2652 if v_exist <> 0 then 2653 SELECT t.er_value 2654 INTO ELEM_ID_RESSULT 2655 FROM kpi_manager_boelement_result t 2656 WHERE t.er_month = as_date 2657 AND t.ele_id = V_POS_MID; 2658 else 2659 select nvl(e.defaultvalue, 0) 2660 into ELEM_ID_RESSULT 2661 from kpi_manager_boelement e 2662 where e.ele_id = V_POS_MID; 2663 end if; 2664 2665 EXCEPTION 2666 WHEN OTHERS THEN 2667 dbms_output.put_line(Sqlerrm(SQLCODE)); 2668 END; 2669 2670 Result := nvl(ELEM_ID_RESSULT, 0); 2671 return Result; 2672 EXCEPTION 2673 WHEN OTHERS THEN 2674 return 0; 2675 2676 end KPI_SplitElementGetRS; 2677 2678 --==================================================================== 2679 --定时取指标实际值计划值 2680 --=-=-==-=-=-=-=------------------------------- 2681 PROCEDURE KERNEL_TARGET_DATA_MAIN(AS_MONTH IN VARCHAR2) AS 2682 --定义一 2683 2684 LS_MONTH VARCHAR2(20); 2685 BEGIN 2686 DBMS_OUTPUT.ENABLE(10000000); 2687 --参数处理 2688 IF LS_MONTH IS NULL THEN 2689 LS_MONTH := GET_KPI_DATE(); 2690 ELSE 2691 LS_MONTH := AS_MONTH; 2692 END IF; 2693 2694 /* 1 原BO新增加 量化指标 的处理。 2695 仿照訾海原程序中写入各种表数据 2696 2 公式计算模块 2697 调用GET_SPLITE_ELEMENT_EX 分解公式字符串，并返回元素的值 2698 实现每月kpi_kernel_target_data 表中量化指标的数据的生成 2699 */ 2700 2701 BEGIN 2702 --更新标记 2703 UPDATE kpi_manager_boresult t SET t.useflag = ‘1‘; 2704 2705 --写入新数据 2706 INSERT INTO kpi_manager_boresult 2707 (BORESULTID, 2708 TARGET_CODE, 2709 TARGET_NAME, 2710 BODATA, 2711 BODATA2, 2712 BOGETDATE, 2713 USEFLAG, 2714 update_date) 2715 SELECT seq_kpi_manager_boresult.nextval, 2716 t.target_id, 2717 TARGET_NAME, 2718 decode(FORMULA, 2719 NULL, 2720 0, 2721 KPI_SplitElementEx(FORMULA, LS_MONTH)) VALUE_DATA, --实际值 2722 decode(FORMULA2, 2723 NULL, 2724 0, 2725 KPI_SplitElementEx(FORMULA2, LS_MONTH)) VALUE_PLAN, --计划值 2726 pack_kpi_base.F_GET_BYM(LS_MONTH) REC_MONTH, 2727 ‘0‘, 2728 SYSDATE 2729 FROM kpi_kpimodel_kpitarget T 2730 WHERE T.TARGET_TYPE = 0 2731 AND T.TARGET_USEFLAG = 0 2732 AND t.target_name <> ‘专项指标‘; 2733 2734 --更新标准值 2735 UPDATE kpi_kpimodel_kpitarget t 2736 SET t.standardvalue = decode(t.FORMULA2, 2737 NULL, 2738 0, 2739 KPI_SplitElementEx(t.FORMULA2, LS_MONTH)) 2740 WHERE T.TARGET_TYPE = 0 2741 AND T.TARGET_USEFLAG = 0 2742 AND t.target_name <> ‘专项指标‘; 2743 2744 COMMIT; 2745 2746 EXCEPTION 2747 WHEN OTHERS THEN 2748 ROLLBACK; 2749 dbms_output.put_line(‘定时取指标实际值计划值‘ || SQLERRM(SQLCODE)); 2750 END; 2751 2752 END KERNEL_TARGET_DATA_MAIN; 2753 --================================================================================= 2754 --==================================================================== 2755 procedure KPI_VIEW_TARGET --集团指标取数（月完成） 2756 as 2757 var_TID NUMBER; 2758 val_T_SQL varchar2(500); 2759 val_source number; 2760 val_result varchar2(50); 2761 var_date varchar2(10); 2762 2763 --表级循环，需要用游标 2764 target_row KPI_VIEW_TARGET_SQL_T%rowtype; 2765 2766 cursor rows is 2767 select * from KPI_VIEW_TARGET_SQL_T; 2768 2769 begin 2770 var_date := GET_KPI_DATE(); --获取日期 2771 --循环执行sql 2772 for target_row in rows loop 2773 val_T_SQL := target_row.t_sql; 2774 val_source := target_row.source; 2775 var_TID := target_row.tid; 2776 if (val_source = 0 and val_T_SQL <> null) then 2777 val_result := PACK_KPI_BASE.EXECSQL_ALL(val_T_SQL, var_date); 2778 --第一步：将获取到的数据插入到KPI_VIEW_TARGET_DATA_T表中 2779 ---删除当月原有数据 2780 delete KPI_VIEW_TARGET_DATA_T t 2781 where t.tid = var_TID 2782 and t.tdate = var_date; 2783 commit; 2784 ---新增获取到的当月月完成的数据 2785 insert into KPI_VIEW_TARGET_DATA_T 2786 (TTID, TID, TYWC, TDATE) 2787 values 2788 ((select nvl(max(a.TTID), 0) + 1 from KPI_VIEW_TARGET_DATA_T a), 2789 var_TID, 2790 val_result, 2791 var_date); 2792 commit; 2793 --第二步：更新KPI_VIEW_TARGET_SQL_T表中的取数时间，为当前时间 2794 2795 update KPI_VIEW_TARGET_SQL_T b 2796 set b.tgetdate = to_char(sysdate, ‘yyyy-mm-dd hh:mm:ss am‘); 2797 commit; 2798 2799 end if; 2800 2801 end loop; 2802 end KPI_VIEW_TARGET; 2803 2804 /* * 2805 ============================================================= 2806 过程名：（Insert_JHZ_ToJHFluTable） 2807 作用 ：将元素计划值，从元素结果表 2808 （kpi_manager_boelement_result） 2809 中，提取出来放到计划值审批流程表 2810 (KPI_FLU_FLOW_RESULT_NEW)中 2811 2812 参数：as_date--从元素结果表中取数的日期,格式为‘yyyy-MM’； 2813 ============================================================= 2814 *2815 2816 procedure Insert_JHZ_ToJHFluTable(as_date IN VARCHAR2) as 2817 2818 ls_date varchar2(20); 2819 ele_row kpi_JHZ_V%rowtype; --计划值行 2820 2821 cursor rows_JHZ is --计划值游标 2822 select * from kpi_JHZ_V t where t.er_month = ls_date; 2823 2824 begin 2825 DBMS_OUTPUT.ENABLE(10000000); 2826 2827 IF as_date IS NULL THEN 2828 ls_date := GET_KPI_DATE(); 2829 ELSE 2830 ls_date := as_date; 2831 END IF; 2832 2833 --循环元素结果表【kpi_manager_boelement_result】 2834 for ele_row in rows_JHZ loop 2835 --插入到计划值审批流程表中 2836 InsertOne_JHZ_ToJHFluTable(ele_row.ele_id, 2837 0, 2838 ele_row.er_value, 2839 ele_row.element_name, 2840 ele_row.er_month); 2841 2842 end loop; 2843 dbms_output.put_line(‘执行成功！‘); 2844 exception 2845 when others then 2846 rollback; 2847 dbms_output.put_line(sqlerrm); 2848 2849 end Insert_JHZ_ToJHFluTable; 2850 2851 --单个计划值插入 2852 procedure InsertOne_JHZ_ToJHFluTable(as_TARGET_ID in varchar2, 2853 as_VALUE_PLAN in varchar2, 2854 as_VALUE_DATA in varchar2, 2855 as_REC_REASON in varchar2, 2856 as_REC_MONTH in varchar2) as 2857 2858 v_P_INSTID number; --保存流程实例号的最大值 2859 v_Has number; --当本月本元素已有数据，不再执行插入操作,0-没有数据；1-有数据 2860 v_result_Id number; --保持KPI_FLU_FLOW_RESULT_NEW和KPI_FLU_FLOW_RESULT_NEW_OLD的ID保持一致。便于查询 2861 begin 2862 --当本月本元素已有数据，不再执行插入操作 2863 v_Has := 0; -- 0-没有数据 2864 select count(*) 2865 into v_Has 2866 from KPI_FLU_FLOW_RESULT_NEW t 2867 where t.target_id = as_TARGET_ID 2868 and t.rec_month = as_REC_MONTH; 2869 2870 if v_Has = 0 then 2871 --第一：从流程控制表【KPI_FLU_PROCESS_NEW】中获取最大的流程实例号 2872 select (nvl(max(P_INSTID), 0) + 1) 2873 into v_P_INSTID 2874 from KPI_FLU_PROCESS_NEW; 2875 2876 --第二：向流程控制表【KPI_FLU_PROCESS_NEW】中添加数据 2877 insert into KPI_FLU_PROCESS_NEW 2878 (P_ID, P_INSTID, P_WCODE, P_CURRENT) 2879 values 2880 ( 2881 --(select nvl(max(P_ID),0)+1 from KPI_FLU_PROCESS_NEW) 2882 SEQ_KPI_FLU_PROCESS.NEXTVAL, 2883 v_P_INSTID, 2884 1 --工作项编码，1：表示专业提交 2885 , 2886 1 --当前状态为1，表示可用 2887 ); 2888 2889 --第三：向流程数据表【KPI_FLU_FLOW_RESULT_NEW】中添加数据 2890 2891 select SEQ_KPI_FLU_FLOW_RESULT.NEXTVAL into v_result_Id from dual; 2892 2893 insert into KPI_FLU_FLOW_RESULT_NEW 2894 (ID, 2895 FLOW_ID, 2896 TARGET_ID, 2897 VALUE_PLAN, 2898 VALUE_DATA, 2899 REC_REASON, 2900 UPDATE_DATE, 2901 FLOW_DESC, 2902 REC_MONTH) 2903 values 2904 ( 2905 --(select nvl(max(ID),0)+1 from KPI_FLU_FLOW_RESULT_NEW) 2906 v_result_Id, 2907 v_P_INSTID, 2908 as_TARGET_ID, 2909 as_VALUE_PLAN, 2910 as_VALUE_DATA, 2911 as_REC_REASON, 2912 sysdate, 2913 1 --FLOW_DESC:状态描述 2914 , 2915 as_REC_MONTH); 2916 2917 --第四：向流程数据原始表【KPI_FLU_FLOW_RESULT_NEW_OLD】中添加数据 2918 2919 insert into KPI_FLU_FLOW_RESULT_NEW_OLD 2920 (ID, 2921 FLOW_ID, 2922 TARGET_ID, 2923 VALUE_PLAN, 2924 VALUE_DATA, 2925 REC_REASON, 2926 UPDATE_DATE, 2927 FLOW_DESC, 2928 REC_MONTH) 2929 values 2930 (v_result_Id, 2931 v_P_INSTID, 2932 as_TARGET_ID, 2933 as_VALUE_PLAN, 2934 as_VALUE_DATA, 2935 as_REC_REASON, 2936 sysdate, 2937 1 --FLOW_DESC:状态描述 2938 , 2939 as_REC_MONTH); 2940 2941 commit; 2942 end if; 2943 2944 dbms_output.put_line(‘执行成功！‘); 2945 exception 2946 when others then 2947 rollback; 2948 dbms_output.put_line(sqlerrm); 2949 2950 end InsertOne_JHZ_ToJHFluTable; 2951 2952 * 2953 ================================================ 2954 过程：kpi_BackToELeResultTable 2955 2956 作用：将审批通过的元素计划值，覆盖到元素结果表 2957 【kpi_manager_boelement_result】中 2958 2959 参数：as_date--覆盖元素结果表中数据的考核日期, 2960 格式为‘yyyy-MM’； 2961 ================================================ 2962 *2963 procedure kpi_BackToELeResultTable(as_date in varchar2) as 2964 ls_date varchar2(20); 2965 begin 2966 2967 DBMS_OUTPUT.ENABLE(10000000); 2968 2969 IF as_date IS NULL THEN 2970 ls_date := GET_KPI_DATE(); 2971 ELSE 2972 ls_date := as_date; 2973 END IF; 2974 2975 merge into kpi_manager_boelement_result t1 2976 using 2977 ( 2978 select 2979 t2.TARGET_ID, 2980 t2.VALUE_DATA, 2981 t2.REC_MONTH 2982 from KPI_FLU_FLOW_RESULT_NEW_V t2 2983 where t2.s_code=8 2984 ) t3 2985 on(t1.ele_id||t1.er_month=t3.TARGET_ID||ls_date) 2986 2987 when matched then 2988 update 2989 set t1.er_value=t3.value_data 2990 where t1.ele_id=t3.target_id 2991 and t1.er_month=t3.rec_month; 2992 2993 commit; 2994 dbms_output.put_line(‘执行成功！‘); 2995 exception 2996 when others then 2997 rollback; 2998 dbms_output.put_line(sqlerrm); 2999 3000 end kpi_BackToELeResultTable;*/ 3001 3002 /* 3003 --2012-2-6 3004 --计算指标得分创新度和努力度由原来的一个段匹配，更改为多段累加 3005 --政工需求 3006 --起征点：有区间这种情况，例如：0-5之间不加分也不减分 3007 */ 3008 FUNCTION Get_OneTarget_Score_NEW(as_TARSYS_id IN VARCHAR2, 3009 as_bodata NUMBER) RETURN NUMBER AS 3010 3011 LS_BOTTOM NUMBER; --记录起征点下限 3012 LS_UPPER NUMBER; --记录起征点上限 3013 3014 bottom number; --当下限为-9999时，返回的是定值，不用累加 3015 upper number; --当上限为999999时，返回的是定值，不用累加 3016 --返回值 3017 LN_RESULT NUMBER; 3018 3019 BEGIN 3020 BEGIN 3021 LS_BOTTOM := 0; 3022 LS_UPPER := 0; 3023 LN_RESULT := 0; 3024 3025 -- 第一步：判断是否在极限区间（-9999-xx；xx-999999） 3026 begin 3027 select t.tarsys_bottom, t.tarsys_upper 3028 into bottom, upper 3029 from kpi_kpimodel_targetsystem t 3030 WHERE t.p_tarsys_id = as_TARSYS_id 3031 and t.tarsys_bottom <= as_bodata 3032 and t.tarsys_upper > as_bodata; 3033 3034 EXCEPTION 3035 WHEN OTHERS THEN 3036 bottom := -9999; 3037 upper := -9999; 3038 END; 3039 3040 IF bottom = -9999 OR upper = 999999 THEN 3041 begin 3042 select t.tarsys_score 3043 into LN_RESULT 3044 from kpi_kpimodel_targetsystem t 3045 WHERE t.p_tarsys_id = as_TARSYS_id 3046 and t.tarsys_bottom <= as_bodata 3047 and t.tarsys_upper > as_bodata; 3048 3049 EXCEPTION 3050 WHEN OTHERS THEN 3051 LN_RESULT := -9999; 3052 end; 3053 ELSE 3054 --获取“起征点” 3055 BEGIN 3056 select t.tarsys_bottom, t.tarsys_upper 3057 into LS_BOTTOM, LS_UPPER 3058 from kpi_kpimodel_targetsystem t 3059 WHERE t.p_tarsys_id = as_TARSYS_id 3060 and t.tarsys_score = 0; 3061 EXCEPTION 3062 WHEN OTHERS THEN 3063 LS_BOTTOM := -9999; 3064 LS_UPPER := -9999; 3065 END; 3066 3067 --无法获取起征点，则结果返回-9999 3068 IF LS_BOTTOM = -9999 and LS_UPPER = -9999 THEN 3069 LN_RESULT := -9999; --返回值为-1特殊值，说明表中参数设置有错误。 3070 3071 ELSE 3072 --算法 3073 IF as_bodata >= LS_UPPER THEN 3074 --新算法，适合累进计算部分 3075 BEGIN 3076 select sum(DECODE(DECODE(SIGN(as_bodata - T.TARSYS_UPPER), 3077 0, 3078 1, 3079 1, 3080 1, 3081 -1, 3082 -1), 3083 1, --大于上限 3084 (DECODE(DECODE(sign(t.tarsys_step), 3085 0, 3086 0, 3087 1, 3088 1, 3089 -1, 3090 1), 3091 0, --步长为0，就直接返回得分 3092 t.tarsys_score, 3093 1, 3094 (T.TARSYS_UPPER - T.TARSYS_BOTTOM) / 3095 T.TARSYS_STEP * T.TARSYS_SCORE)), 3096 -1, --小于上限 3097 (decode(DECODE(sign(t.tarsys_step), 3098 0, 3099 0, 3100 1, 3101 1, 3102 -1, 3103 1), 3104 0, --步长为0，就直接返回得分 3105 t.tarsys_score, 3106 1, 3107 (as_bodata - T.TARSYS_BOTTOM) / 3108 T.TARSYS_STEP * T.TARSYS_SCORE)) 3109 3110 )) as C_SCORD 3111 into LN_RESULT 3112 FROM kpi_kpimodel_targetsystem T 3113 3114 WHERE T.p_tarsys_id = as_TARSYS_id 3115 and t.tarsys_bottom >= LS_UPPER 3116 and t.tarsys_bottom <= as_bodata 3117 ORDER BY T.TARSYS_UPPER; 3118 3119 EXCEPTION 3120 WHEN OTHERS THEN 3121 LN_RESULT := -9998; 3122 END; 3123 3124 END IF; 3125 3126 IF as_bodata < LS_BOTTOM THEN 3127 --累减 3128 BEGIN 3129 select sum(DECODE(DECODE(SIGN(as_bodata - T.TARSYS_BOTTOM), 3130 0, 3131 1, 3132 1, 3133 1, 3134 -1, 3135 -1), 3136 1, --大于下限 3137 (DECODE(DECODE(sign(t.tarsys_step), 3138 0, 3139 0, 3140 1, 3141 1, 3142 -1, 3143 1), 3144 0, --步长为0，就直接返回得分 3145 t.tarsys_score, 3146 1, 3147 (T.TARSYS_UPPER - as_bodata) / 3148 (-T.TARSYS_STEP) * T.TARSYS_SCORE)), 3149 -1, --小于下限 3150 (DECODE(DECODE(sign(t.tarsys_step), 3151 0, 3152 0, 3153 1, 3154 1, 3155 -1, 3156 1), 3157 0, --步长为0，就直接返回得分 3158 t.tarsys_score, 3159 1, 3160 (T.TARSYS_UPPER - T.TARSYS_BOTTOM) / 3161 (-T.TARSYS_STEP) * T.TARSYS_SCORE)))) as C_SCORD 3162 3163 into LN_RESULT 3164 FROM kpi_kpimodel_targetsystem T 3165 3166 WHERE T.p_tarsys_id = as_TARSYS_id 3167 and t.tarsys_upper <= LS_BOTTOM 3168 and t.tarsys_upper > as_bodata 3169 ORDER BY T.TARSYS_UPPER; 3170 3171 EXCEPTION 3172 WHEN OTHERS THEN 3173 LN_RESULT := -9997; 3174 END; 3175 3176 END IF; 3177 3178 END IF; 3179 end if; 3180 END; 3181 RETURN LN_RESULT; 3182 END Get_OneTarget_Score_NEW; 3183 PROCEDURE KERNEL_TARGET_ALL_XS(AS_YEAR IN VARCHAR2) AS 3184 --一年调用一次 写入每月的系数 3185 intI NUMBER; 3186 strMid varchar2(20); 3187 BEGIN 3188 FOR intI in 1 .. 12 LOOP 3189 if intI < 10 then 3190 select AS_YEAR || ‘-0‘ || to_char(intI) into strMid from dual; 3191 else 3192 select AS_YEAR || ‘-‘ || to_char(intI) into strMid from dual; 3193 end if; 3194 INSERT INTO KPI_PPXH_ALL_UNIT_T T 3195 (T.TID, t.TYEARMONTH, t.TVALUES) 3196 VALUES 3197 (KPI_NDXH_TID.NEXTVAL, strMid, 1); 3198 COMMIT; 3199 end LOOP; 3200 3201 END KERNEL_TARGET_ALL_XS; 3202 3203 /*利润排名*/ 3204 procedure KPI_LR_SJ_PM(as_month varchar2) as 3205 ls_ele_name varchar2(200); --利润元素排名的元素名称 3206 ls_up_ele_name varchar2(200); --需要更新数值的元素 3207 begin 3208 ls_ele_name := ‘实际利润实际值‘; --参与排名的元素 3209 ls_up_ele_name := ‘实际利润排名‘; --需要更新数值的元素 3210 3211 --更新排名默认值 3212 update KPI_MANAGER_BOELEMENT a 3213 set a.defaultvalue = 3214 (select t.pm 3215 from (select t1.department_id, 3216 t1.department_name, 3217 t1.target_name, 3218 t2.bodata sj_value, 3219 rank() over(order by report_month, abs(round((case 3220 when sign(nvl(t2.bodata, 3221 0)) > 0 then 3222 t2.bodata 3223 end), 3)) desc) pm 3224 from KPI_KPITARGET_PREDICT_V t1, 3225 kpi_manager_boresult_report t2 3226 WHERE t1.target_id = t2.target_id 3227 and nvl(weight_scale, 0) = 0 3228 and t1.p_department_id=42 3229 and t1.target_name in 3230 (‘利润‘, ‘利润（实际）‘, ‘实际利润‘) 3231 and nvl(t2.bodata, 0) > 0 3232 and t2.report_month = as_month) t 3233 where a.dep_id = t.department_id) 3234 where a.element_name = ls_up_ele_name; 3235 commit; 3236 3237 --更新元素结果表 3238 update kpi_manager_boelement_result r 3239 set r.er_value = 3240 (select a.defaultvalue 3241 from KPI_MANAGER_BOELEMENT a 3242 where a.element_name = ls_up_ele_name 3243 and a.ele_id = r.ele_id) 3244 where r.er_month = as_month 3245 and r.ele_id in (select b.ele_id 3246 from KPI_MANAGER_BOELEMENT b 3247 where b.element_name = ls_up_ele_name); 3248 3249 commit; 3250 3251 end KPI_LR_SJ_PM; 3252 3253 /*利润预算准确率排名*/ 3254 procedure KPI_LR_YSZQL_PM(as_month varchar2) as 3255 3256 ls_up_ele_name varchar2(200); --需要更新数值的元素 3257 begin 3258 3259 ls_up_ele_name := ‘利润预算准确率排名‘; --需要更新数值的元素 3260 3261 --更新排名默认值 3262 update KPI_MANAGER_BOELEMENT a 3263 set a.defaultvalue = 3264 (select t.pm 3265 from (select t1.department_id, 3266 t1.department_name, 3267 t2.bodata2 plan_value, 3268 t2.bodata sj_value, 3269 t1.weight_scale, 3270 abs(round(pack_kpi_base.F_GET_CFYS(t2.bodata - 3271 t2.bodata2, 3272 t2.bodata2) * 100, 3273 3)) yszql, 3274 rank() over(order by report_month, abs(round((case 3275 when nvl(t2.bodata2, 3276 0) <> 0 then 3277 pack_kpi_base.F_GET_CFYS(t2.bodata - 3278 t2.bodata2, 3279 t2.bodata2) * 100 3280 end), 3)) asc) pm 3281 from KPI_KPITARGET_PREDICT_V t1, 3282 kpi_manager_boresult_report t2 3283 WHERE t1.target_id = t2.target_id 3284 and nvl(weight_scale, 0) <> 0 3285 and t1.p_department_id=42 3286 and t1.target_name like ‘利润%‘ 3287 and report_month = as_month) t 3288 where a.dep_id = t.department_id) 3289 where a.element_name = ls_up_ele_name; 3290 commit; 3291 3292 --更新元素结果表 3293 update kpi_manager_boelement_result r 3294 set r.er_value = 3295 (select a.defaultvalue 3296 from KPI_MANAGER_BOELEMENT a 3297 where a.element_name = ls_up_ele_name 3298 and a.ele_id = r.ele_id) 3299 where r.er_month = as_month 3300 and r.ele_id in (select b.ele_id 3301 from KPI_MANAGER_BOELEMENT b 3302 where b.element_name = ls_up_ele_name); 3303 3304 commit; 3305 3306 end KPI_LR_YSZQL_PM; 3307 END PACK_KPI_KERNEL; 3308 /
以上是关于Oracle存储过程（包：PACK_KPI_KERNEL For YS三度评价体系）的主要内容，如果未能解决你的问题，请参考以下文章