📄 custsalemoneyback_view.asp
字号:
<%@ Language=VBScript %>
<%
'******************************************************
'功能：查看客户销售回款状态
'入口参数
'1.cst_id (客户代码)
'2.cst_name(客户代码)
'作者： 蒋柳 日期：2001。6。21
'********************************************************
%>
<%
'获取入口参数
Lstr_cst_id=Request("cst_id")
Lstr_cst_name=Request("cst_name")
%>
<%
'数据库连接
dim DBconn
set DBconn=server.CreateObject("ADODB.Connection")
DBconn.ConnectionTimeout =application("Connection2_Connectiontimeout")
DBconn.OPEN Application("Connection2_ConnectionString")
'DBconn.Open "DRIVER=SQL Server;SERVER=fileserver;UID=sa;APP=Microsoft Development Environment;WSID=JL;DATABASE=CMS"
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<script language=vbscript>
function frm_submit()
window.frm_view.submit
end function
</script>
</HEAD>
<BODY>
<form action=custsalemoneyback_view.asp method=post name=frm_view>
<input type=hidden name=cst_id value=<%=trim(Request("cst_id"))%>>
<input type=hidden name=cst_name value=<%=trim(Request("cst_name"))%>>
客户销售查询：
<hr>
客户名称：<%=Lstr_cst_name%>
<%
set rs_rgn_name=server.CreateObject ("adodb.recordset")
sql_rgn_name="select rgn_name from basic_region where rgn_id=(select rgn_id from basic_customer where cst_id='"&Lstr_cst_id&"')"
rs_rgn_name.Open sql_rgn_name,dbconn,adOpenForwardOnly
Lstr_rgn_name=rs_rgn_name("rgn_name")
rs_rgn_name.Close
%>
客户所在地区：<%=Lstr_rgn_name%>
<%if Request("chk_pay")="" then
%>
<P><INPUT id=checkbox1 name=chk_pay type=checkbox onclick=frm_submit()>应收款查询</P>
<%else %>
<P><INPUT id=checkbox1 name=chk_pay type=checkbox CHECKED onclick=frm_submit()>应收款查询</P>
<%end if%>
<TABLE border=1 cellPadding=1 cellSpacing=1 style="HEIGHT: 28px; WIDTH: 776px"
width="75%">
<TR>
<TD>
<P align=center>定单号</P></TD>
<TD>
<P align=center>定货日期</P></TD>
<TD>
<P align=center>品种名称</P></TD>
<TD>
<P align=center>销售数量</P></TD>
<TD>
<P align=center>销售金额</P></TD>
<TD>
<P align=center>回款金额</P></TD>
<TD>
<P align=center>最近回款日期</P></TD>
<TD>
<P align=center>应收款</P></TD>
<TD>
<P align=center>批发价</P></TD>
<TD>
<P align=center>扣率</P></TD>
<TD>
<P align=center>区域公司</P></TD>
</TR>
<%
if Request("chk_pay")="" then
sql_custsalemoneyback_view="select sal_salid,agn_id,ctg_id,sal_salqty,sal_salsum,sal_salsumpay,sal_salflgpay,sal_salprice,sal_saldiscount,auditdate from sale_sale where sal_saltype in ('销售定单','销售退货') and procmark='认可' and cst_id='"&lstr_cst_id&"'"
else
sql_custsalemoneyback_view="select sal_salid,agn_id,ctg_id,sal_salqty,sal_salsum,sal_salsumpay,sal_salflgpay,sal_salprice,sal_saldiscount,auditdate from sale_sale where sal_saltype in ('销售定单','销售退货') and procmark='认可' and cst_id='"&lstr_cst_id&"' and sal_salid in (select sal_salid from finance_receivable where fnc_revsummust<>Fnc_RevSumReal) "
end if
%>
<%
set rs_moneyback_view=server.CreateObject ("adodb.recordset")
rs_moneyback_view.CursorLocation=3
rs_moneyback_view.Open sql_custsalemoneyback_view,dbconn,2
'response.Write sql_custsalemoneyback_view
if rs_moneyback_view.EOF then
%>
没有要查询的信息!
<%
else
rs_moneyback_view.PageSize =12
Page = CLng(Request("Page")) 'string型转化为long型
If Page < 1 Then Page = 1
rs_moneyback_view.AbsolutePage=page
for i=0 to rs_moneyback_view.PageSize
%>
<TR>
<TD>
<P align=center><%=rs_moneyback_view("sal_salid")%></P></TD>
<TD>
<P align=center><%=rs_moneyback_view("auditdate")%></P></TD>
<TD>
<%
set rs_ctg_name=server.CreateObject ("adodb.recordset")
sql_ctg_name="select ctg_name from basic_category where ctg_id='"&trim(rs_moneyback_view("ctg_id"))&"'"
rs_ctg_name.Open sql_ctg_name,dbconn,2
Lstr_ctg_name=rs_ctg_name("ctg_name")
rs_ctg_name.Close
%>
<P align=center><%=Lstr_ctg_name%></P></TD>
<TD>
<P align=center><%=rs_moneyback_view("sal_salqty")%></P></TD>
<TD>
<P align=center><%=rs_moneyback_view("sal_salsum")%></P></TD>
<TD>
<P align=center><%=rs_moneyback_view("sal_salsumpay")%></P></TD>
<TD>
<%
set rs_revdate_last=server.CreateObject ("adodb.recordset")
sql_revdate_last="select fnc_revdatelast,fnc_revsummust from finance_receivable where sal_salid='"&trim(rs_moneyback_view("sal_salid"))&"'"
rs_revdate_last.Open sql_revdate_last,dbconn,2
if rs_revdate_last.EOF then
%>
<P align=center> 末回款</P></TD>
<TD>
<P align=center>0</P></TD>
<TD>
<%
else
Lstr_revdate_last=rs_revdate_last("fnc_revdatelast")
Lstr_revmust=rs_revdate_last("fnc_revsummust")
rs_revdate_last.close
%>
<P align=center><%=Lstr_revdate_last%></P></TD>
<TD>
<P align=center><%=Lstr_revmust%></P></TD>
<TD>
<%end if %>
<P align=center><%=rs_moneyback_view("sal_salprice")%></P></TD>
<TD>
<P align=center><%=rs_moneyback_view("sal_saldiscount")%></P></TD>
<TD>
<%
set rs_agn_name=server.CreateObject ("adodb.recordset")
sql_agn_name="select agn_name from basic_agency where agn_id='"&trim(rs_moneyback_view("agn_id"))&"'"
rs_agn_name.Open sql_agn_name,dbconn,2
Lstr_agn_name=rs_agn_name("agn_name")
rs_agn_name.close
%>
<P align=center><%=Lstr_agn_name%></P></TD>
<tr>
<%
rs_moneyback_view.MoveNext
if rs_moneyback_view.EOF then exit for
next
%>
</TABLE>
<P>
</form>
<%
if Request("chk_pay")="" then
sql_all_sal="select sum(sal_salsum) as all_sal_salsum,sum(sal_salsumpay) as all_sal_salsumpay from sale_sale where sal_saltype='销售定单' and procmark='认可' and cst_id='"&lstr_cst_id&"' "
else
sql_all_sal="select sum(sal_salsum)as all_sal_salsum,sum(sal_salsumpay) as all_sal_salsumpay from sale_sale where sal_saltype='销售定单' and procmark='认可' and cst_id='"&lstr_cst_id&"' and sal_salid in (select sal_salid from finance_receivable where fnc_revsummust>0) "
end if
set rs_all_sal=server.CreateObject ("adodb.recordset")
rs_all_sal.Open sql_all_sal,dbconn,2
Lstr_all_salsum=rs_all_sal("all_sal_salsum")
lstr_all_salsumpay=rs_all_sal("all_sal_salsumpay")
rs_all_sal.close
set rs_all_revsummust=server.CreateObject ("adodb.recordset")
sql_all_revsummust="select sum(fnc_revsummust) as all_must from finance_receivable where cst_id='"&lstr_cst_id&"'"
rs_all_revsummust.Open sql_all_revsummust,dbconn,2
lstr_all_revsummust=rs_all_revsummust("all_must")
if cdbl(lstr_all_revsummust)=0 then
Lstr_all_revsummust="暂未生成应收款"
end if
rs_all_revsummust.close
%>
销售总额：<%=Lstr_all_salsum%>
回款总额：<%=Lstr_all_salsumpay%>
应收款总额：<%=Lstr_all_revsummust%>
<%end if %>
<hr>
<br>
<%
If Page <> 1 and rs_moneyback_view.PageCount<>0 Then
If Page <>rs_moneyback_view.PageCount Then
%>
<a href="custsalemoneyback_view.asp?page=1&chk_pay=<%Request("chk_pay")%>&cst_id=<%=trim(Request("cst_id"))%>&cst_name=<%=trim(Request("cst_name"))%>">首页</a>
<a href="custsalemoneyback_view.asp?page=<%=page-1%>&chk_pay=<%Request("chk_pay")%>&cst_id=<%=trim(Request("cst_id"))%>&cst_name=<%=trim(Request("cst_name"))%>">上一页</a>
<a href="custsalemoneyback_view.asp?page=<%=page+1%>&chk_pay=<%Request("chk_pay")%>&cst_id=<%=trim(Request("cst_id"))%>&cst_name=<%=trim(Request("cst_name"))%>">下一页</a>
<a href="custsalemoneyback_view.asp?page=<%= rs_moneyback_view.pagecount%>&chk_pay=<%Request("chk_pay")%>&cst_id=<%=trim(Request("cst_id"))%>&cst_name=<%=trim(Request("cst_name"))%>">末页</a>
<%
else
%>
<a href="custsalemoneyback_view.asp?page=1&chk_pay=<%Request("chk_pay")%>&cst_id=<%=trim(Request("cst_id"))%>&cst_name=<%=trim(Request("cst_name"))%>">首页</a>
<a href="custsalemoneyback_view.asp?page=<%=page-1%>&chk_pay=<%Request("chk_pay")%>&cst_id=<%=trim(Request("cst_id"))%>&cst_name=<%=trim(Request("cst_name"))%>">上一页</a>
下一页
末页
<%
End If
else
%>
<%
If rs_moneyback_view.PageCount = 1 or rs_moneyback_view.PageCount=0 Then
%>
首页
上一页
下一页
末页
<%else%>
首页
上一页
<a href="custsalemoneyback_view.asp?page=<%=page+1%>&chk_pay=<%Request("chk_pay")%>&cst_id=<%=trim(Request("cst_id"))%>&cst_name=<%=trim(Request("cst_name"))%>">下一页</a>
<a href="custsalemoneyback_view.asp?page=<%= rs_moneyback_view.pagecount%>&chk_pay=<%Request("chk_pay")%>&cst_id=<%=trim(Request("cst_id"))%>&cst_name=<%=trim(Request("cst_name"))%>">末页</a>
<%
end If
End If
%>
<%if rs_moneyback_view.PageCount=0 then%>
第一页，共一页
<%else%>
第<%=page%>页,共<%=rs_moneyback_view.PageCount%>页
<%end if %>
</P>
<P>客户到帐信息：</P>
<TABLE border=1 cellPadding=1 cellSpacing=1 style="HEIGHT: 27px; WIDTH: 591px"
width="75%">
<TR>
<TD>
<P align=center>回款编号</P></TD>
<TD>
<P align=center>进帐单号</P></TD>
<TD>
<P align=center>回款金额</P></TD>
<TD>
<P align=center>回款方式</P></TD>
<TD>
<P align=center>到帐日期</P></TD>
<TD>
<P align=center>银行</P></TD>
</TR>
<%
set rs_payment=server.CreateObject ("adodb.recordset")
sql_payment="select fnc_pmtid,Fnc_PmtPrimalVoucherNO,Fnc_PmtSum,Fnc_PmtPayType,Fnc_PmtDate,Fnc_PmtAcctNo from Finance_Payment where cst_id='"&lstr_cst_id&"'"
rs_payment.CursorLocation=3
rs_payment.Open sql_payment,dbconn,2
if rs_payment.EOF then
%>
此客户暂无回款记录!
<%
else
rs_payment.PageSize=12
page_payment=clng(Request("page_payment"))
if page_payment<1 then page_payment=1
rs_payment.AbsolutePage=page_payment
for j=0 to rs_payment.PageSize
%>
<TR>
<TD>
<P align=center> <%=rs_payment("fnc_pmtid")%></P></TD>
<TD>
<P align=center> <%=rs_payment("Fnc_PmtPrimalVoucherNO")%></P></TD>
<TD>
<P align=center> <%=rs_payment("fnc_PmtSum")%></P></TD>
<TD>
<P align=center> <%=rs_payment("fnc_pmtpaytype")%></P></TD>
<TD>
<P align=center> <%=rs_payment("fnc_pmtdate")%></P></TD>
<TD>
<%
set rs_bank=server.CreateObject ("adodb.recordset")
sql_bank="select Fnc_BkActName from Finance_BankAccount where Fnc_BkActID='"&trim(rs_payment("Fnc_PmtAcctNo"))&"'"
rs_bank.Open sql_bank,dbconn,2
if rs_bank.EOF then
lstr_bank="无"
else
lstr_bank=rs_bank("fnc_bkactname")
end if
rs_bank.Close
%>
<P align=center><%=lstr_bank%></P></TD>
</TR>
<%
rs_payment.MoveNext
if rs_payment.EOF then exit for
next
%>
<%end if %>
</TABLE>
<hr>
<br>
<%
If page_payment <> 1 and rs_payment.PageCount<>0 Then
If page_payment <>rs_payment.PageCount Then
%>
<a href="custsalemoneyback_view.asp?page_payment=1&cst_id=<%=trim(Request("cst_id"))%>&cst_name=<%=trim(Request("cst_name"))%>">首页</a>
<a href="custsalemoneyback_view.asp?page_payment=<%=page_payment-1%>&cst_id=<%=trim(Request("cst_id"))%>&cst_name=<%=trim(Request("cst_name"))%>">上一页</a>
<a href="custsalemoneyback_view.asp?page_payment=<%=page_payment+1%>&cst_id=<%=trim(Request("cst_id"))%>&cst_name=<%=trim(Request("cst_name"))%>">下一页</a>
<a href="custsalemoneyback_view.asp?page_payment=<%=rs_payment.pagecount%>&cst_id=<%=trim(Request("cst_id"))%>&cst_name=<%=trim(Request("cst_name"))%>">末页</a>
<%
else
%>
<a href="custsalemoneyback_view.asp?page_payment=1&cst_id=<%=trim(Request("cst_id"))%>&cst_name=<%=trim(Request("cst_name"))%>">首页</a>
<a href="custsalemoneyback_view.asp?page_payment=<%=page_payment-1%>&cst_id=<%=trim(Request("cst_id"))%>&cst_name=<%=trim(Request("cst_name"))%>">上一页</a>
下一页
末页
<%
End If
else
%>
<%
If rs_payment.PageCount = 1 or rs_payment.PageCount=0 Then
%>
首页
上一页
下一页
末页
<%else%>
首页
上一页
<a href="custsalemoneyback_view.asp?page_payment=<%=page_payment+1%>&cst_id=<%=trim(Request("cst_id"))%>&cst_name=<%=trim(Request("cst_name"))%>">下一页</a>
<a href="custsalemoneyback_view.asp?page_payment=<%=rs_payment.pagecount%>&cst_id=<%=trim(Request("cst_id"))%>&cst_name=<%=trim(Request("cst_name"))%>">末页</a>
<%
end If
End If
%>
<%if rs_payment.PageCount=0 then%>
第一页，共一页
<%else%>
第<%=page_payment%>页,共<%=rs_payment.PageCount%>页
<%end if %>
<hr>
<div align="center">
<input type="submit" name="Submit" value="关闭窗口" onclick="window.close ()">
</div>
<P> </P>
<P> </P>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -