📄 cstactreceive_view.asp
字号:
<%@ Language=VBScript %>
<%'******************************************************
'功能：查看客户应收款
'入口参数：
' 1,客户ID
'出口参数：
'作者：钟宇 日期：2001年6月20日
'******************************************************
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<%
Dim DBConn,Rs,LStr_Sql,TStr_CstID,LStr_RevSSum,LStr_CstName
TStr_CstID=Trim(Request("TCst_ID"))
If TStr_CstID="" Then
Response.Write "网页已经过期，请重新登录系统！"
Response.End
End If
Set DBConn=Server.CreateObject("ADODB.Connection")
DBconn.ConnectionTimeout =application("Connection2_Connectiontimeout")
DBconn.OPEN Application("Connection2_ConnectionString")
'DBConn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=CMS;Data Source=FileServer","sa",""
'***查找客户信息***
LStr_Sql= "SELECT Basic_Customer.Cst_Name,"
LStr_Sql=LStr_Sql+"Finance_ReceivableSum.Fnc_RevSSum "
LStr_Sql=LStr_Sql+"FROM Basic_Customer,Finance_ReceivableSum "
LStr_Sql=LStr_Sql+"WHERE (Basic_Customer.Cst_ID = Finance_ReceivableSum.Cst_ID ) AND "
LStr_Sql=LStr_Sql+"(Basic_Customer.Cst_ID = '"& TStr_CstID &"')"
Set Rs=Server.CreateObject("ADODB.Recordset")
Rs.Open LStr_Sql,DBConn
If Not(Rs.EOF And Rs.BOF) Then
LStr_RevSSum=Rs("Fnc_RevSSum")
LStr_CstName=Rs("Cst_Name")
End If
%>
<P><STRONG><FONT size=5>客户应收款</FONT></STRONG></P>
<P><FONT size=5><STRONG>
<HR></STRONG></FONT>
<P></P>
<P>客户名称：
<INPUT id=text1 name=text1
style="HEIGHT: 22px; WIDTH: 332px" readonly value=<%=LStr_CstName%>>
</P>
<%
Rs.Close
LStr_Sql="SELECT Finance_Receivable.Fnc_RevID,"
LStr_Sql=LStr_Sql+"Basic_Category.Ctg_Name,"
LStr_Sql=LStr_Sql+"Finance_Receivable.Fnc_RevSumMust,"
LStr_Sql=LStr_Sql+"Finance_Receivable.Fnc_RevSumReal,"
LStr_Sql=LStr_Sql+"Finance_Receivable.Fnc_RevDate,"
LStr_Sql=LStr_Sql+"Sale_Sale.Sal_SalID "
LStr_Sql=LStr_Sql+"FROM Basic_Category,Finance_Receivable,Sale_Sale "
LStr_Sql=LStr_Sql+"WHERE (Sale_Sale.Sal_SalID = Finance_Receivable.Sal_SalID ) AND "
LStr_Sql=LStr_Sql+"(Sale_Sale.Ctg_ID = Basic_Category.Ctg_ID) AND "
LStr_Sql=LStr_Sql+"(Finance_Receivable.Cst_ID = '"& TStr_CstID &"')"
Rs.Open LStr_Sql,DBConn
%>
<table width="80%" border="1">
<tr>
<td>
<div align="center">应收款编号</div>
</td>
<td>
<div align="center">品种名称</div>
</td>
<td>
<div align="center">应收款额</div>
</td>
<td>
<div align="center">实收金额</div>
</td>
<td>
<div align="center">形成日期</div>
</td>
<td>
<div align="center">销售定单号</div>
</td>
</tr>
<%
Do While Not Rs.EOF
Response.Write "<tr><td>" & Rs("Fnc_RevID") & "</td>"
Response.Write "<td>" & Rs("Ctg_Name") & "</td>"
Response.Write "<td>" & Rs("Fnc_RevSumMust") & "</td>"
Response.Write "<td>" & Rs("Fnc_RevSumReal") & "</td>"
Response.Write "<td>" & Rs("Fnc_RevDate") & "</td>"
Response.Write "<td>" & Rs("Sal_SalID") & "</td></tr>"
Rs.MoveNext
Loop
%>
</table>
<P>应收款总额：<INPUT id=text2 name=text2 readonly value=<%=LStr_RevSSum%>></P>
<P> </P>
<P align=center><INPUT id=button1 name=button1 type=button value=关闭窗口></P>
<P> </P>
<%
Rs.Close
DBConn.Close
Set Rs=Nothing
Set DBConn=Nothing
%>
</BODY>
</HTML>
<SCRIPT LANGUAGE="vbscript">
<!--
function button1_OnClick()
window.close
end function
-->
</SCRIPT> ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -