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

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

forward prototypes
global function long f_cnt_billnumber (long arg_accsetid, datetime arg_firstdate, datetime arg_enddate, long arg_firstcredno, long arg_endcredno, integer arg_postflag)
end prototypes

global function long f_cnt_billnumber (long arg_accsetid, datetime arg_firstdate, datetime arg_enddate, long arg_firstcredno, long arg_endcredno, integer arg_postflag);long rst_billnumber = 0

SELECT sum(cw_credence.billnumber)
  into :rst_billnumber
    FROM cw_credence 
   WHERE (cw_credence.postflag = :arg_postflag OR  
         :arg_postflag = -1) AND  
         cw_credence.creddate >= :arg_firstdate AND  
         cw_credence.creddate <= :arg_enddate AND  
         cw_credence.accsetid = :arg_accsetid AND  
         cw_credence.credno >= :arg_firstcredno AND  
         cw_credence.credno <= :arg_endcredno;			
if sqlca.sqlcode <> 0 then
	rst_billnumber = 0
end if

return rst_billnumber



end function