📄 paymentdetail.asp
字号:
<!--#include file="../config.ini" -->
<!--#include file="../commfunction.inc" -->
<%
Dim objcheck
Set objcheck=Server.CreateObject("SmartSales.CheckFunction")
objcheck.CheckUserFunction "payment","read"
dim conn
dim rs
set conn=server.CreateObject("adodb.connection")
set rs=server.CreateObject("adodb.recordset")
conn.Open connstring
rs.Open "select * from v_orderpayment where paymentid="&request("paymentid"),conn,1,1
if rs.EOF then
Response.Write "记录不存在"
Response.End
end if
%>
<html>
<head>
<LINK href="../global.css" rel=STYLESHEET type=text/css>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=rs("paymentno")%></title>
</head>
<script language="JavaScript">
function window_onload()
{
window.moveTo(-2,-2);
window.resizeTo(screen.availWidth, screen.availHeight);
}
</script>
<body bgcolor="#ffffff" onload="window_onload()">
<table width="100%" height="30" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="35%"><b><font class="title">应收账：<%=rs("paymentno")%></font></b></td>
<td width="65%"> </td>
</tr>
<tr >
<td height="16" colspan="2" background="../images/title.gif"></td>
</tr>
<tr>
<td height=4></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="DECFAD">
<tr>
<td align=center height=20 bgcolor="DEDFDE">应收账编号</td>
<td align=center bgcolor="efefef"><%=rs("paymentno")%></td>
<td align=center bgcolor="DEDFDE">客户</td>
<td align=center bgcolor="efefef">
<%response.write rs("account")%>
</td>
<td align=center bgcolor="DEDFDE">合同号</td>
<td align=center bgcolor="efefef"><%=rs("ordernum")%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align=center height=18 bgcolor="DEDFDE">应收类型</td>
<td align=center bgcolor="efefef"><%=rs("paymenttype")%></td>
<td align=center bgcolor="DEDFDE">应开票金额</td>
<td align=center bgcolor="efefef"><%=formatnumber(rs("invoiceamount"),2)%></td>
<td align=center bgcolor="DEDFDE">应开日期</td>
<td align=center bgcolor="efefef"><%=rs("invoicedate")%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align=center height=18 bgcolor="DEDFDE">发货金额</td>
<td align=center bgcolor="efefef"><%=formatnumber(rs("deliveryamount"),2)%></td>
<td align=center bgcolor="DEDFDE">应收金额</td>
<td align=center bgcolor="efefef"><%=formatnumber(rs("amount"),2)%></td>
<td align=center bgcolor="DEDFDE">应收日期</td>
<td align=center bgcolor="efefef"><%=rs("paymentdate")%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align=center height=18 bgcolor="DEDFDE">销售员</td>
<td align=center bgcolor="efefef"><%=rs("username")%></td>
<td align=center bgcolor="DEDFDE">收款状态</td>
<td align=center bgcolor="efefef"><%=rs("collectionstatus")%></td>
<td align=center bgcolor="DEDFDE">开票状态</td>
<td align=center bgcolor="efefef"><%=rs("invoicestatus")%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align=center height=18 bgcolor="DEDFDE">描述</td>
<td colspan="5" align=center bgcolor="efefef"> <div align="left"><%=rs("description")%></div></td>
</tr>
</table>
<br>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="12%"><strong><font size="2">相关合同</font></b></strong></td>
<td width="88%"><a href="javascript:opensubwin3('../order/neworder.asp?accountid=<%=request("accountid")%>&accountname=<%=rs("account")%>&type=新建','合同','toolbar=no,scrollbars=no,location=no,status=no,menubar=no,width=600,height=400,top=150,left=160');"><img src="../images/button_new.gif" border="0"></a></td>
</tr>
<tr>
<td height=2 colspan="2" bgcolor="#4A699C"></td>
</tr>
</table>
<%
set rsdeliverline=conn.execute("select * from v_MaterialTransaction where (orderpaymentid="&request("paymentid")&")")
%>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="ffffff">
<tr>
<td width="5%" align=center bgcolor="DEDFDE">序号</td>
<td width="15%" align=center bgcolor="DEDFDE">货号</td>
<td align=center bgcolor="DEDFDE">型号</td>
<td width="5%" align=center bgcolor="DEDFDE">数量</td>
<td width="8%" align=center bgcolor="DEDFDE">价格</td>
<td width="8%" align=center bgcolor="DEDFDE">平均成本</td>
<td width="8%" align=center bgcolor="DEDFDE">调准成本</td>
<td width="10%" align=center bgcolor="DEDFDE">发货金额</td>
<td width="10%" align=center bgcolor="DEDFDE">应收金额</td>
<td width="5%" align=center bgcolor="DEDFDE">备注</td>
<td width="8%" align=center bgcolor="DEDFDE">收款日期</td>
<td width="8%" align=center bgcolor="DEDFDE">收款状态</td>
</tr>
<%j=1
do while not rsdeliverline.EOF
%>
<tr>
<td align=center bgcolor="efefef"><%=j%></td>
<td align=center bgcolor="efefef"><%=rsdeliverline("productcode")%></td>
<td align=center bgcolor="efefef"><%=rsdeliverline("model")%></td>
<td align=center bgcolor="efefef"><%=rsdeliverline("qty")%></td>
<td align=center bgcolor="efefef"><%=formatnumber(rsdeliverline("price"),2)%></td>
<td align=center bgcolor="efefef"><%if objcheck.CheckUserFunction2("viewcost","read" ) then Response.Write formatnumber(rsdeliverline("cost"),2)%></td>
<td align=center bgcolor="efefef"><%if objcheck.CheckUserFunction2("viewcost","read" ) then Response.Write formatnumber(rsdeliverline("adjustcost"),2)%></td>
<td align=center bgcolor="efefef"><%=formatnumber(csng(rsdeliverline("qty"))*csng(rsdeliverline("price")),2)%></td>
<td align=center bgcolor="efefef"><%=formatnumber(rsdeliverline("receiveamount"),2)%></td>
<td align=center bgcolor="efefef"><a href="javascript:opensubwin('resizable=no, scrollbars=no, left= 300, top=220, menubar=no, location=no, toolbar=no ,width=300, height=200','../tools/SetMaterialTransaction.asp?transactid=<%=rsdeliverline("transactid")%>&fieldname=description');" title="查看/修改备注">备注</a></td>
<td align=center bgcolor="efefef"><%=rsdeliverline("collectionverifydate")%></td>
<td align=center bgcolor="efefef">
<%if rsdeliverline("collectionstatus")="已收" then%>
<input type=checkbox name="collectionstatus<%=rs("id")%>" value=<%=rsdeliverline("transactid")%> checked>
<%else%>
<input type=checkbox name="collectionstatus<%=request("paymentid")%>" value=<%=rsdeliverline("transactid")%>>
<%end if%>
</td>
</tr>
<%
j=j+1
rsdeliverline.MoveNext
loop
rsdeliverline.Close
set rsdeliverline=nothing
%>
<tr><td colspan=11></td><td align=center><a href="javascript:form1.statusindex.value=<%=request("paymentid")%>;form1.submit();" title="保存收款状态">保存</a></td></tr>
</table>
<%
rs.Close
set rs=nothing
conn.Close
set conn=nothing
set objcheck=nothing
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -