create or replace procedure gather_tp(v_year number,
v_month number,
v_day number
) as
var_type t_cprt_tp_charge_temp.type%TYPE;
CURSOR C IS SELECT TYPE from t_cprt_tp_charge_temp GROUP BY TYPE ORDER BY 1;
BEGIN
OPEN C;
LOOP
FETCH C INTO var_type;
EXIT WHEN C%NOTFOUND;
IF var_type = 0 THEN
pkg_tp_gather.pro_tp_actual_plan_reverse(v_year,v_month,v_day,0);
ELSIF var_type = 1 THEN
pkg_tp_gather.pro_tp_actual_plan_reverse(v_year,v_month,v_day,1);
ELSIF var_type = 2 THEN
pkg_tp_gather.pro_tp_actual_plan_reverse(v_year,v_month,v_day,2);
ELSIF var_type = 3 THEN
pkg_tp_gather.pro_tp_direct_jjc_sjj_otc(v_year,v_month,v_day,3);
ELSIF var_type = 4 THEN
pkg_tp_gather.pro_tp_indirect_otc(v_year,v_month,v_day,4);
ELSIF var_type = 5 THEN
pkg_tp_gather.pro_tp_gt_otc(v_year,v_month,v_day,5);
ELSIF var_type = 6 THEN
DBMS_OUTPUT.PUT_LINE('6');
ELSIF var_type = 7 THEN
pkg_tp_gather.pro_tp_neu(v_year,v_month,v_day,7);
ELSIF var_type = 8 THEN
pkg_tp_gather.pro_tp_direct_jjc_sjj_otc(v_year,v_month,v_day,8);
END IF;
END LOOP;
CLOSE C;
END;
存储过程调用包中的函数
最新推荐文章于 2022-09-07 13:58:19 发布