CREATE OR REPLACE TYPE "T_ACCOUNT_MONTH" as object( ACCOUNT_ID NUMBER, INIT_AMOUNT NUMBER, DEBIT_AMOUNT NUMBER, CREDIT_AMOUNT NUMBER )

CREATE OR REPLACE TYPE "T_ACCOUNT_MONTH_TABLE" as table of t_account_month

create or replace function account_month(tDate IN DATE) return t_account_month_table pipelined as v_account_month t_account_month; v_date DATE; begin v_date:=tDate; IF v_date IS NULL THEN v_date:=sysdate; END IF; for myrow in ( select d.ACCOUNT_ID, sum(decode(sign(d.create_time-trunc(v_date,'month')),-1, d.debit_unvoucher + d.debit_unposted +d.debit_posted - d.CREDIT_UNVOUCHER -d.CREDIT_UNPOSTED- d.CREDIT_POSTED_D, 0)) INIT_AMOUNT, sum(decode(sign(trunc(d.create_time,'year')-trunc(sysdate,'year')),0, d.debit_unposted+d.debit_posted, 0)) DEBIT_AMOUNT, sum(decode(sign(trunc(d.create_time,'year')-trunc(sysdate,'year')),0, d.credit_unposted+d.credit_posted, 0)) CREDIT_AMOUNT from ACCOUNT_DAILY_VEIW d group by d.ACCOUNT_ID ) loop v_account_month := t_account_month( myrow.ACCOUNT_ID, myrow.INIT_AMOUNT, myrow.DEBIT_AMOUNT, myrow.CREDIT_AMOUNT ); pipe row (v_account_month); end loop; return; end;