functions.asp

财务管理系统 报账等基本功能实现 有完整的实现

<%
'根据客户编号取得应收和应付金额,0-付款；1-收款
Function GetCustTotal(nFlag,CustId)  
  Dim rs
  Set rs = Server.CreateObject("ADODB.RecordSet")  
  sql = "SELECT IsNull(SUM(Quantity*Price),0) AS ss FROM PurProductList WHERE Flag=" & nFlag & " And CustId=" & CustId
  Set rs = Conn.Execute(sql)
  If IsNull(rs("ss")) Then
    GetCustTotal = 0
  Else
    GetCustTotal = rs("ss")
  End If
  Set rs = Nothing  
End Function

'根据客户编号取得已收和已付金额
Function GetCustSum(nType,iCustId)  
  Dim rs
  Set rs = Server.CreateObject("ADODB.RecordSet")  
  sql = "SELECT IsNull(SUM(ExcSum),0) AS eTotal FROM Exchange WHERE nType=" & nType & " AND CustId=" & iCustId
  Set rs = Conn.Execute(sql)
  If IsNull(rs("eTotal")) Then
    GetCustSum = 0
  Else
    GetCustSum = rs("eTotal")
  End If
  Set rs = Nothing  
End Function
%>