Q5/ws_objects/cw_account.pbl.src/f_rst_item_bbala.srf

$PBExportHeader$f_rst_item_bbala.srf
global type f_rst_item_bbala from function_object
end type

forward prototypes
global function decimal f_rst_item_bbala (long arg_accsetid, long arg_cmonth, string arg_subid, long arg_itemid)
end prototypes

global function decimal f_rst_item_bbala (long arg_accsetid, long arg_cmonth, string arg_subid, long arg_itemid);//返回项目总帐期初数
decimal rst_item_bbala
decimal init_item_bala,cur_item_bala 

  SELECT isnull(sum(uv_dept_bala.credit),0) - isnull(sum(uv_dept_bala.debit),0)
    into :cur_item_bala
    FROM uv_dept_bala
   WHERE ( uv_dept_bala.accsetid = :arg_accsetid ) AND  
         ( uv_dept_bala.cmonth < :arg_cmonth ) AND  
			( uv_dept_bala.subid = :arg_subid ) and 
         ( uv_dept_bala.itemid = :arg_itemid )  
GROUP BY uv_dept_bala.cmonth,   
         uv_dept_bala.subid,   
         uv_dept_bala.itemid ;
			
  SELECT isnull(uv_item_init.balance,0)
    into :init_item_bala
    FROM uv_item_init
   WHERE ( uv_item_init.accsetid = :arg_accsetid ) AND 
			( uv_item_init.subid = :arg_subid ) and 
         ( uv_item_init.itemid = :arg_itemid )  ;
			
			
if isnull(cur_item_bala) then cur_item_bala=0
if isnull(init_item_bala) then init_item_bala=0


rst_item_bbala=cur_item_bala + init_item_bala

return rst_item_bbala
end function