loop
if :cb2.act_cd_c in ('15','30','11','62','13','10','41','61','49') then --Ãß°¡
if :system.last_record = 'TRUE' then--Ãß°¡
delete_record;--Ãß°¡
exit;--Ãß°¡
else--Ãß°¡
delete_record;--Ãß°¡
end if; --Ãß°¡
else --Ãß°¡
if :slip_div = '10' then
:dr_cash_cnt1 := nvl(:dr_cash_cnt1,0) + nvl(:dr_cash_cnt,0);
:dr_cash_amt1 := nvl(:dr_cash_amt1,0) + nvl(:dr_cash_amt,0);
:dr_tran_cnt1 := nvl(:dr_tran_cnt1,0) + nvl(:dr_tran_cnt,0);
:dr_tran_amt1 := nvl(:dr_tran_amt1,0) + nvl(:dr_tran_amt,0);
:cr_cash_cnt1 := nvl(:cr_cash_cnt1,0) + nvl(:cr_cash_cnt,0);
:cr_cash_amt1 := nvl(:cr_cash_amt1,0) + nvl(:cr_cash_amt,0);
:cr_tran_cnt1 := nvl(:cr_tran_cnt1,0) + nvl(:cr_tran_cnt,0);
:cr_tran_amt1 := nvl(:cr_tran_amt1,0) + nvl(:cr_tran_amt,0);
else
:dr_cash_cnt2 := nvl(:dr_cash_cnt2,0) + nvl(:dr_cash_cnt,0);
:dr_cash_amt2 := nvl(:dr_cash_amt2,0) + nvl(:dr_cash_amt,0);
:dr_tran_cnt2 := nvl(:dr_tran_cnt2,0) + nvl(:dr_tran_cnt,0);
:dr_tran_amt2 := nvl(:dr_tran_amt2,0) + nvl(:dr_tran_amt,0);
:cr_cash_cnt2 := nvl(:cr_cash_cnt2,0) + nvl(:cr_cash_cnt,0);
:cr_cash_amt2 := nvl(:cr_cash_amt2,0) + nvl(:cr_cash_amt,0);
:cr_tran_cnt2 := nvl(:cr_tran_cnt2,0) + nvl(:cr_tran_cnt,0);
:cr_tran_amt2 := nvl(:cr_tran_amt2,0) + nvl(:cr_tran_amt,0);
end if;
exit when :system.last_record = 'TRUE';
next_record;
end if; --Ãß°¡
end loop;
|