if (v_compute_form = 1) then
current_fee := v_square * price; --本月费用
if (v_overdue_flag = 1) then
overdue_fine := previous_fee * 5 / 10000; --滞纳金
end if;
elsif (v_compute_form = 2) then
current_fee := record_count * price + v_plan_count1 * extra_price1 + v_plan_count2 * extra_price2 ;
end if;