存储过程：cursor_4 （cursor_1 +cursor_2 +cursor_3 ）
CREATE OR REPLACE PROCEDURE TKSWSHRZS.PROC_BBBBB(in_FYear NUMBER ,in_FPeriod NUMBER )
ISv_name varchar2(100) :='';v_adminnumber varchar2(100) :='';v_Company_FNumber VARCHAR2(100) :='';v_Company_FNumber_sub VARCHAR2(100) :='';v_Company_FNumber_4 VARCHAR2(100) :='';v_FYear number(10,0) := 0;v_FPeriod number(10,0) := 0;v_sum number(18,2) := 0; cur_s1 number(18,2) := 0;cur_s7 number(18,2) := 0;cur_chaoE number(18,2) := 0; ---超额奖----
v_chaoE_sj number(18,2) := 0; ---超额奖----cur_yuSuan number(18,2) := 0; ---预算
v_yuSuan number(18,2) := 0; ---预算----CURSOR cursor_4 IS select FNUMBER from T_ORG_Admin where LENGTH(FLONGNUMBER )=4 order by FLONGNUMBER; CURSOR cursor_1 IS SELECT admin.FNUMBER ,SCTABLE.FPERIODYEAR,sum(NVL(scTable.s1,0) ),SUM(NVL(scTable.s7,0) ) FROM T_HR_SCmpCalTable scTableINNER JOIN T_ORG_Admin admin ON admin.fid=scTable.fadminorgUnitidINNER JOIN T_HR_SCALSCHEME scheme on scTable.fcalschemeid=scheme.fid WHERE scTable.FPERIODYEAR = in_FYear ----in_FYearand scTable.FPERIODMONTH <= in_FPeriod ----in_FPeriodAND admin.fnumber LIKE CONCAT(v_Company_FNumber_4,'%') --CONCAT('--- --组织 -----',v_Company_FNUMBER) --'02%' group by admin.fnumber,scTable.FPERIODYEAR ORDER BY admin.fnumber;CURSOR cursor_2 IS SELECT t5731.adminnumber as adminnumber, t5731.nianduz as nianduz , sum( NVL(t5731.M4HP5,0) + NVL(t5731.M2HP3JO4,0) + NVL(t5731.M1HP2JYXO3JYX,0) + NVL(t5731.M3HP4JO5,0) + NVL(t5731.M8HM9,0) + NVL(t5731.M5DM7HP6JYS,0) ) as chaoEFROM T_MGR_ManagerEx20230920125731 t5731where t5731.nianduz = in_FYear --今年 in_FYearAND t5731.adminnumber = v_Company_FNumber_4group by t5731.adminnumber, t5731.nianduz ORDER BY t5731.adminnumber ;CURSOR cursor_3 IS SELECT t405.adminnumber , t405.nianduz , sum( NVL(t405.xinchouZE,0) ) FROM T_MGR_ManagerEx20230920130405 t405where t405.nianduz = in_FYear --今年 in_FYearAND t405.adminnumber = v_Company_FNumber_4group by t405.adminnumber, t405.nianduz ORDER BY t405.adminnumber ; BEGINv_FYear := in_FYear;v_FPeriod := in_FPeriod;DELETE FROM "t_GZYSZXQK_TBBBBB" WHERE FYEAR = v_FYear AND fperiod=in_FPeriod;-- DELETE FROM t_GZYSZXQK_TBBBBB WHERE YEAR = v_FYear;-- 外层循环-----组织 dbms_output.put_line('----------第 4 个游标------开始-----外层循环-----组织 -----'); begin--循环开始LOOPIF NOT cursor_4%ISOPEN THENOPEN cursor_4;END IF; FETCH cursor_4 INTO v_Company_FNumber_4 ; --退出循环的条件EXIT WHEN cursor_4%NOTFOUND OR cursor_4%NOTFOUND IS NULL; dbms_output.put_line(CONCAT('----------第 4 个游标-----------外层循环-----组织 -----',v_Company_FNumber_4)); v_sum := 0;----第一个游标dbms_output.put_line('----------第 1 个游标------开始----'); begin--循环开始LOOPIF NOT cursor_1%ISOPEN THENOPEN cursor_1;END IF; FETCH cursor_1 INTO v_Company_FNUMBER , v_FYear ,cur_s1 ,cur_s7 ; --退出循环的条件EXIT WHEN cursor_1%NOTFOUND OR cursor_1%NOTFOUND IS NULL; dbms_output.put_line(CONCAT('----第 1 个游标-----v_Company_FNUMBER--------',v_Company_FNUMBER)); v_sum := v_sum + cur_s1 + cur_s7;END LOOP;CLOSE cursor_1;END;dbms_output.put_line('----------第 1 个游标------结束----'); v_chaoE_sj := 0 ;----第 2 个游标dbms_output.put_line('----------第 2 个游标------开始----'); begin--循环开始LOOPIF NOT cursor_2%ISOPEN THENOPEN cursor_2;END IF; FETCH cursor_2 INTO v_adminnumber , v_FYear ,cur_chaoE; --退出循环的条件EXIT WHEN cursor_2%NOTFOUND OR cursor_2%NOTFOUND IS NULL; dbms_output.put_line(CONCAT('-----第 2 个游标--------v_adminnumber--------',v_adminnumber)); v_chaoE_sj := v_chaoE_sj + cur_chaoE;END LOOP;CLOSE cursor_2;END;dbms_output.put_line('----------第 2 个游标------结束----'); v_yuSuan := 0;----第3个游标dbms_output.put_line('----------第 3 个游标------开始----'); begin--循环开始LOOPIF NOT cursor_3%ISOPEN THENOPEN cursor_3;END IF; FETCH cursor_3 INTO v_adminnumber , v_FYear ,cur_yuSuan; --退出循环的条件EXIT WHEN cursor_3%NOTFOUND OR cursor_3%NOTFOUND IS NULL; dbms_output.put_line(CONCAT('-----第 3 个游标--------v_adminnumber--------',v_adminnumber)); v_yuSuan := v_yuSuan + cur_yuSuan;END LOOP;CLOSE cursor_3;END;dbms_output.put_line('----------第 3 个游标------结束----'); if( v_yuSuan != 0) then
-- INSERT INTO TKSWSHRZS."t_GZYSZXQK_TBBBBB" -----工资预算执行情况
-- (ADMINNUMBER, "FYEAR",FPERIOD, YUSUAN, SHIJI, CHAE, ZHIXINGBILI, CREATETIME)
-- VALUES(v_Company_FNumber_4,in_FYear,in_FPeriod, v_yuSuan, v_sum+v_chaoE_sj, v_yuSuan-(v_sum+v_chaoE_sj), ROUND((v_sum+v_chaoE_sj)/ v_yuSuan , 6) , SYSDATE);
-- INSERT INTO TKSWSHRZS."t_GZYSZXQK_TBBBBB" -----工资预算执行情况(ADMINNUMBER, "FYEAR",FPERIOD, YUSUAN, SHIJI, CHAE, ZHIXINGBILI, CREATETIME)VALUES(v_Company_FNumber_4,in_FYear,in_FPeriod, v_yuSuan, v_sum+v_chaoE_sj, v_yuSuan-(v_sum+v_chaoE_sj), CONCAT(TO_CHAR( ROUND((v_sum+v_chaoE_sj)/ v_yuSuan , 4) *100 ) ,'%') , SYSDATE);-- SELECT CONCAT(TO_CHAR( ROUND(36385618.93/ 18040000 , 4) *100 ) ,'%') FROM dual;elseINSERT INTO TKSWSHRZS."t_GZYSZXQK_TBBBBB" -----工资预算执行情况(ADMINNUMBER, "FYEAR",FPERIOD, YUSUAN, SHIJI, CHAE, ZHIXINGBILI, CREATETIME)VALUES(v_Company_FNumber_4,in_FYear,in_FPeriod, v_yuSuan, v_sum+v_chaoE_sj, v_yuSuan-(v_sum+v_chaoE_sj), 0, SYSDATE);end if;END LOOP;CLOSE cursor_4;END;dbms_output.put_line('----------第 4 个游标------结束----'); --
--EXCEPTION
--when others then
-- P_RESULT:='插入失败';
end PROC_BBBBB;--
--declare
-- FYEAR number(10) ;
-- FPERIOD number(10) ;
--begin
-- FYEAR := 2023;
-- FPERIOD := 10;
-- PROC_BBBBB( FYEAR , FPERIOD );
--end;
--
