📄 cstfund_view.asp
字号:
<%
'******************************************************************
'功能:查看该客户的回款单
'入口参数：
'TStr_PmtID:回款单号
'作者：王伟峰 日期：2001.7.2
'******************************************************************
%>
<%
'接收参数
TStr_PmtID=trim(request("TStr_PmtID"))
'数据库连接
dim DBconn
set DBconn=server.CreateObject("ADODB.Connection")
'DBconn.ConnectionTimeout =application("Connection1_Connectiontimeout")
'DBconn.Open "DRIVER=SQL Server;SERVER=fileserver;UID=sa;APP=Microsoft Development Environment;WSID=JL;DATABASE=CMS"
DBconn.OPEN Application("Connection2_ConnectionString")
'打开表
dim wwf_RsViewPmt
set wwf_RsViewPmt=server.CreateObject("adodb.recordset")
wwf_SqlViewPmt="select c.Cst_Name,f.Fnc_PmtID,f.Fnc_PmtPayType,b.Fnc_BkActName,f.Fnc_PmtAcctNo,f.Fnc_PmtPrimalVoucherNO,f.Fnc_PmtSum,f.Fnc_PmtDate,f.Fnc_PmtStrkSum,f.Fnc_PmtStrkSumLeav,f.Fnc_PmtSumRtn,f.Fnc_PmtFlag,f.Fnc_Handler,f.Fnc_Date"
wwf_SqlViewPmt=wwf_SqlViewPmt&" from Finance_Payment f,Basic_Customer c,Finance_BankAccount b"
wwf_SqlViewPmt=wwf_SqlViewPmt&" where f.Cst_ID=c.Cst_ID and b.Fnc_BkActID=f.Fnc_PmtAcctNo and f.Fnc_PmtID='"&TStr_PmtID&"'"
'Response.Write wwf_SqlViewPmt
wwf_RsViewPmt.Open wwf_SqlViewPmt,DBconn,2
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE>CstFund_View</TITLE>
</HEAD>
<BODY>
<P align=left><STRONG>客户汇款单查询</STRONG></P>
<TABLE cellSpacing=1 cellPadding=1 border=0>
<TR>
<TD align=right>客户名称: </TD>
<TD><%=trim(wwf_RsViewPmt("Cst_Name"))%></TD></TR>
<TR>
<TD align=right>回款编号: </TD>
<TD><%=trim(wwf_RsViewPmt("Fnc_PmtID"))%></TD></TR>
<TR>
<TD align=right>付款方式: </TD>
<TD ><%=trim(wwf_RsViewPmt("Fnc_PmtPayType"))%></TD></TR>
<TR>
<TD align=right>到帐银行: </TD>
<TD><%=trim(wwf_RsViewPmt("Fnc_BkActName"))%></TD></TR>
<TR>
<TD align=right>银行帐号: </TD>
<TD><%=trim(wwf_RsViewPmt("Fnc_PmtAcctNo"))%></TD></TR>
<TR>
<TD align=right>原始凭证号: </TD>
<TD><%=trim(wwf_RsViewPmt("Fnc_PmtPrimalVoucherNO"))%></TD></TR>
<TR>
<TD align=right>回款金额: </TD>
<TD><%=trim(wwf_RsViewPmt("Fnc_PmtSum"))%></TD></TR>
<TR>
<TD align=right>回款日期: </TD>
<TD><%=trim(wwf_RsViewPmt("Fnc_PmtDate"))%></TD></TR>
<TR>
<TD align=right></TD>
<TD></TD></TR>
<TR>
<TD align=right></TD>
<TD></TD></TR>
<TR>
<TD align=right></TD>
<TD></TD></TR>
<TR>
<TD align=right>已划分金额: </TD>
<TD><%=trim(wwf_RsViewPmt("Fnc_PmtStrkSum"))%></TD></TR>
<TR>
<TD align=right>可划分金额: </TD>
<TD><%=trim(wwf_RsViewPmt("Fnc_PmtStrkSumLeav"))%></TD></TR>
<TR>
<TD align=right>已返款金额: </TD>
<TD><%=trim(wwf_RsViewPmt("Fnc_PmtSumRtn"))%></TD></TR>
<TR>
<TD align=right></TD>
<TD></TD></TR>
<TR>
<TD align=right></TD>
<TD></TD></TR>
<TR>
<TD align=right></TD>
<TD></TD></TR>
<TR>
<TD align=right>处理状态: </TD>
<TD><%=trim(wwf_RsViewPmt("Fnc_PmtFlag"))%></TD></TR>
<TR>
<TD align=right>处理人: </TD>
<TD>
<%
dim wwf_RsStf
set wwf_RsStf=server.CreateObject("adodb.recordset")
wwf_SqlStf="select Stf_Name from basic_Staffer where Stf_ID='"&trim(wwf_RsViewPmt("Fnc_Handler"))&"'"
wwf_RsStf.Open wwf_SqlStf,DBconn,2
%>
<%=wwf_RsStf("Stf_Name")%>
<%
wwf_RsStf.Close
%>
</TD></TR>
<TR>
<TD align=right>处理日期: </TD>
<TD><%=trim(wwf_RsViewPmt("Fnc_Date"))%></TD></TR>
</TABLE>
<P align=left><a href=# onclick="javascript:window.close()"><关闭></a></P>
<%
wwf_RsViewPmt.Close
DBconn.Close
%>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -