functions.asp

来自「财务管理系统 报账等基本功能实现 有完整的实现」· ASP 代码 · 共 44 行

<%
'根据客户编号取得应收帐款金额
Function GetGTotal(iCustId)
  Dim rs
  Set rs = Server.CreateObject("ADODB.RecordSet")  
  sql = "SELECT IsNull(SUM(ProSum+OtherCost),0) AS gTotal FROM SaleOrder WHERE CustId=" & iCustId
  Set rs = Conn.Execute(sql)
  If IsNull(rs("gTotal")) Then
    GetGTotal = 0
  Else
    GetGTotal = rs("gTotal")
  End If
  Set rs = Nothing  
End Function

'根据客户信息提取其退货总额
Function GetPTotal(iCustId)  
  Dim rs
  Set rs = Server.CreateObject("ADODB.RecordSet")  
  sql = "SELECT IsNull(SUM(r.ProSum+r.OtherCost),0) AS pTotal  FROM SaleReturn r,SaleOrder o WHERE r.SaleId=o.SaleId AND o.CustId=" & iCustId
  Set rs = Conn.Execute(sql)
  If IsNull(rs("pTotal")) Then
    GetPTotal = 0
  Else
    GetPTotal = rs("pTotal")
  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
%>